Test Program - Radio Shack TRS-80 Service Manual

5-3. Test Program
Program
Line
Program
No. No.
PO
10
VAC
----- - - - - _
..
- - - - - -
- - -
- - ._-_.
20 FOR 1=1 TO 2: FOR J =2 TO 3: FORK
=
3 TO 4: FOR
L = 6 TO 4 STEP -1
1---
..
' - - - ' - - . ' - - - '
------_
..
-
30
NEXT L: NEXT K : NEXT J : NEXT I
- - _
..
_ - - _ . .---_
. .
_ - - - -
..
_ _._.-
40 GOSUB 50: PRINT "TEST 1 OK": END
- -
. _ - _
..
. _ - - - _
..
_ - -
. _ -
- - -
50 GOSUB 60: RETURN
" - - -
- - - - - - -
.
__
.
- - - - . -
t - - - -
60 GOSUB 70: RETURN
f - - - - .. t - - - .
70 GOSUB 80: RETURN _______ ._______
80 GOSUB
9O:_RETUR~
_____ . ___ ._ _ _ _ _ _ _ _ _ _ _ _ . _
t - - -..
90
GOSUB #1: RETURN
c--. -.
Pl 10
IF "AB"
=
"AB" THEN 20
' -
_ . --_
..
- -
.
__
.
f------
t - - - - - - - - -
..
_ -
-
15 GOTO 1
.
- -
.•
-_.
__
.....
- - -
..
-----_.-
t - - - .
. _ - - - - - - -
20 IF "A"
<
"AB" THEN 30
-
25
GOTO 1
30 IF "AB"
>
"A" THEN 40
35 GOTO 1
- - - r---'---"--
40
IF "12""; "AB"; IF "AB"
>
"12" THEN 50
45
GOTO 1
. -
..
50 IF -123;' 123; IF 123
<
-123 THEN 1
-------
.. ~ - ' -
r-'-'---" .
_-_. - - - - _
...
- -
60
IF -1234
>
-123 THEN 1
70 IF -123"; -1234 THEN 1
..
_ - - -
..
- - - - ... ....
_-_.
' - - . -
.
__
.-
80 IF 123
~
456 THEN 1
t----
- - ' - '
- _ . ...
- - - - - - - _
..
-
90
IF 456
=
123 THEN 1
100
GOSU8 #2 : RETURN
f - - -
- - - -
.... ..
- _ . _ - - - - - - _ . -
- -
-
P2 10 IF RND (SIN 195 + COS 234+ TAN lE-3+ EXP 1+ LOG 163,
No.. ,
-5) ;' 4.0839 THEN 1
20
C= C+ 12345:1: 12345/234/345+ SOR 0+ SQR 2+ SOR -30+ ---SIN 30t 2
30 FOR H= -5 TO 4: D= D+ RND (5544.4455, H) : NEXT H
40
A-l: E=A (A (A (A (A (A (AI) I ) ) )
.
_--_
...
_--_
....
- _
.
50 GOSUB #3
" ' - '
..
60 RETURN
..
I-
P3
Note 2
10
X= 123 : 0$= "H&J" :
$=
0$+"="
20 $=MID (1, 3) + MID (4) + "ABC"
----
-.- -
---
30
GOTO #4
P4
10 IF I+J+ K+ L'" 15 THEN 1
20 IF A+B+ E+ X- 125 THEN 30
-----_.
-
.-
25 GOTO ER
r - - - - '
r -.-..- ....- -
30
IF $","H&J=ABC" THEN 1
40
IF RND (C, -5) .. 1894.4034 THEN 1
50 IF RND (D, 21
*
55000 THEN 1
_.
- -
50 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
$ = "ABCDEFGHIJKLMNOPORSTUVWXYZ:I: +
1-"
30 FOR A=l TO 201: IF A (A) *9999999000+ A THEN ER
40
NEXT A: IF
$*
"ABCDEFGHIJKLMNOPORSTUVWXYZ:I:+I-"
THEN ER
_.-
50 PRINT "TEST OK! "
Notes: 1. P2 line 10 cannot be fully ent.ed if you use
8
one-key command
(e.g.
1
SHI FT
I~for
I F). Th.efore, enter the program manually without spaces.
2. P3 line 10; "&" can
be
entered by ...
(8) !MODEI
c::::J
(EXT mode set) (b) press the ISHIFTI (the red S) key
(c) Press tne
"u"
key (d) IMODEI
c::::J
(EXT mode reset)
- 11-