Radio Shack TRS-80 Voxbox - Page 28

How To Write Your Own Application Programs
Complete Program (Continued)
900 REM
DELAY FOR BETTER
USER INTERACTION
910 FOR
1=1
TO 300
920
NEXT
Is
RETURN
930 RETURN
1000
REM CALL TRAINING
SUBROUTINE
1010 TA=AB+1018:
IF TA>32767
THEN
TA=TA-65536
1030 POKE
16526*
1040
POKE 16527? AD
1050 POKE TA»TR:
REM PASS
TRAINING
INDEX TO
SUBR
1060
X=USR<0>
1070 IF
PEEK(TA) <>
THEN GOTO 1090
1080 RETURN
1090 PRINT "ERROR
-
PLEASE
REPEAT"
1100 GOTO
1030
26