Test Program - Radio Shack TRS-80 26-3650 Service Manual

5-3.
Test
Program
Program
No.
Line
No.
Program
PO
10
VAC
20
FOR 1=1 TO
2
:
FOR
J
=2 TO
3
:
FOR
K-3TO4:
FOR
L
=
6
TO
4
STEP -1
30
NEXT
L
:
NEXT K
:
NEXT
J
:
NEXT
1
40
GOSUB
50:
PRINT 'TEST
1
OK"
:
END
50
GOSUB
60:
RETURN
60
GOSUB
70
:
RETURN
70
GOSUB
80
:
RETURN
80
GOSUB
90
:
RETURN
90
GOSUB
#1
:
RETURN
P1
10 IF
"AB"
= "AB"
THEN
20
15
GOTO
1
20
IF
"A"<"AB" THEN
30
25
GOTO
1
30
IF
"AB">"A" THEN
40
35
GOTO
1
40
IF
"12"
£ "AB"
;
IF
"AB" > "12" THEN
50
45
GOTO
1
50
IF
-123*
123;
IF
123
< -123
THEN
1
60
IF
-1234 > -123 THEN
1
70
IF
-123
:£
-1234 THEN
1
80
IF
123
>
456
THEN
1
90
IF
456=
123
THEN
1
100
GOSUB
#2
:
RETURN
P2
Hotel
10
IF
RND
(SIN
195+
COS 234+TAN 1e-3+ EXP
1
+
LOG
163,
-5) # 4.0839
THEN
1
20
C=C+12345*12345/234/345+SQR
0+SQR
2+SO.R-30+ SIN 30t
2
30
FOR
H--5 TO
4
:D=D+ RND
(5544.4455, H):
NEXT
H
40
A-1 :E=A
(A (A (A (A (A (A))
I)))
50
GOSUB
#3
60
RETURN
P3 Hon
2
10
X-123
:
0$="H&J"
:
$-0$+"="
20
$= MID
(1
,
3)
+ MID
(4)
+ "ABC"
30
GOTO
#4
P4 10 IF
l
+
J+K+L*15
THEN
1
20
IF
A+B+
E+
X-
125
THEN
30
25
GOTO
ER
30
IF
$*"H&J =
ABC"
THEN
1
40
IF
RND
(C,
-5)*
1894.4034
THEN
1
50
IF
RND
(D,
2)* 55000
THEN
1
60
GOTO
#5
P5 10
GOTO
20
15
RETURN
20
GOTO
15
P9 10
FOR
A=
1
TO
201
:
A
(A)
= A +
9999999000:
NEXT
A
20
$= "ABCDEFGHIJKLMNOPQRSTUVWXYZ* +
/-"
30
FOR
A=1 TO
201:
IF
A
(A)
* 9999999000+
A THEN
ER
40
NEXT
A: IF
$*"ABCDEFGHIJKLMNOPQRSTUVWXYZ*
+ /-"
THEN
ER
50
|
PRINT 'TEST OK!
"
nnot
b
b
fully entered
if
you
use a one-key
command
(e.g. ne
10
ca
SHIFT
J
IF).
Therefore, enter the program manually without
spaces.
2.
P3
line 10;
"&"
can be entered by
. .
(a)
MODE
f-T]
(EXT mode
set) (b)
press the
[SHIFT]
(
the
red S) key
(c)
Press tne
"U"
key
(d)
IMODEI
rr]
(EXT mode
reset)
II
-