Radio Shack TRS-80 User Manual page 229

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