Radio Shack TRS-80 26-3650

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
-