Radio Shack TRS-80

290
CLSiP.TAB(5),
"ALL FUNCTIONS
ARE O.K.,
THE RAM
TEXT
IS
NOW
RUNNING .
"
300 A=M./4-l :B=0
310
F.
Y=lT08sQ=.5
320 F.B=1T0Y;Q=Q*2
:N.B
330
F.X=0TOA
:
A( X)=Q
:N.X
340 F.X
=
0TOA
j
IFA(X)OQP
.
"RAM ERROR"
sSTOP
350
N.X
360
P.AT68 ,Q iN,
Y
jP
. AT0
;
"THE RAM TEST
IS
COMPLETE"
370 F.A=1TO2500:N.A
400 CLSsK=l
410
A$=GH
420 F.X=1T032
sP.A$;
:N.X
430
F.X=1TD14
iP .
T.
{
29
)
;
A$
:N.
X
440 P. AT
469
;
450 F.
X=1T09 :P .
A$
; :N.X sP.
460 P.T.
(
21
)
;
sF
.X=1T09
:P.
A$
i
)
N.X
470 P.AT960;
480
F
.X=1T031
sP, AS ; : N.
X
490 IN.BS
500 IFK>0A$=80
510
IF
K<0A$=GH
520
K=-K
530
CLStG.420 227