home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / BRAIN-CRANE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.3 KB  |  246 lines
  1. 10 REM (null)^ SYSUSRDIM(null) (null)USRDIM(null)L(null)XXXXXXXXX
  2. 11 REM DO NOT REMOVE OR CHANGE LINE 10         IT IS A ML 'PRINT AT' PROGRAM.
  3. 12 REM USED LIKE THIS: SYSZ,ROW,COL            WHERE ROW IS THE ROW # AND
  4. 13 REM COL IS THE COLUMN #
  5. 14 :::::  ::::: (null) TO 40 :::::  :::::       :::::  :::::        :::::  :::::
  6. 15 "[141][145] [156]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
  7. 16 "GOSUBON ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  8. 17 "[141][145] ""[184]""  [158]THIS IS AN OLD COMMODORE  [156]""[184]""
  9. 18 "GOSUBON ""FRE""                            ""FRE""
  10. 19 "[141][145] ""[184]""  [158]EDUCATIONAL PROGRAM THAT  [156]""[184]""
  11. 20 "GOSUBON ""FRE""                            ""FRE""
  12. 21 "[141][145] ""[184]""  [158]WAS MADE TO RUN ON MANY   [156]""[184]""
  13. 22 "GOSUBON ""FRE""                            ""FRE""
  14. 23 "[141][145] ""[184]""     [158]TYPES OF COMMODORE     [156]""[184]""
  15. 24 "GOSUBON ""FRE""                            ""FRE""
  16. 25 "[141][145] ""[184]""   [158]COMPUTERS. EVERYTHING    [156]""[184]""
  17. 26 "GOSUBON ""FRE""                            ""FRE""
  18. 27 "[141][145] ""[184]""   [158]NOT NEEDED WAS REMOVED   [156]""[184]""
  19. 28 "GOSUBON ""FRE""                            ""FRE""
  20. 29 "[141][145] ""[184]""   [158]AND IMPROVEMENTS MADE.   [156]""[184]""
  21. 30 "GOSUBON ""FRE""                            ""FRE""
  22. 31 "[141][145] ""[184]""   BLAME IT ON  JIM GREEN   [156]""[184]""
  23. 32 "GOSUBON ""FRE""                            ""FRE""
  24. 33 "[141][145] ""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
  25. 34 "GOSUBON ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE"" CONT
  26. 40 K=2054:M=5:S=54272:N=RND(-TI):P=1024:POKE53265,11
  27. 45 POKE53280,7:POKE53281,7:PRINT"[147][142]";
  28. 50 PRINT"      [223][146]    [146] [169][223][146]      [169][223][146]       [146][223]  [223][146]    "
  29. 55 PRINT"   [167][146] [223] [223]  [169]  [223][146]    [169]  [223][146]      [146]    [223][146]   "
  30. 60 PRINT"   [167][146] [169] [146][169]    [146][169][223] [223][146]  [169] [146][169][223] [223][146]       [146][223] [223]  "
  31. 65 PRINT"   [167][169] [146][169]        [146][169] [169] [146][169]  [223] [223][146]      [146] [223]   "
  32. 70 PRINT"       [223][146]      [146][169] [169]        [223][146]   [146]   [146]  [223]  "
  33. 75 PRINT"    [146]  [223] [223]  [146][223] [223][146] [169] [146][169]      [223] [223]  [146]   [146]     "
  34. 80 PRINT"    [146]  [169] [146][169]  [146] [223] [223][146][223]  [146]        [146][169]  [146]   [146]     "
  35. 85 PRINT"       [146][169]   [146]  [223] [223][146][223] [146]       [146][169]   [146]   [146]     "
  36. 90 PRINT"              [223] [223]
  37. 95 [153]"               (null)STEP
  38. 100 PRINT"[169]   [223][146]    [146] [169][223][146]      [169][223][146]    [223]  [223][146]    [146]      [223]"
  39. 105 PRINT"  [146][169][223] [223]  [169]  [223][146]    [169]  [223][146]       [223][146]     "
  40. 110 PRINT"  [146]  [223] [223]   [146][169][223] [223][146]  [169] [146][169][223] [223][146]     [146][223] [223]    "
  41. 115 PRINT"  [146]   [184][184]      [146][169] [169] [146][169]  [223] [223][146]    [146] [223]     "
  42. 120 PRINT"  [146]          [146][169] [169]        [223][146]   [146]  [223]  [146]     [223]"
  43. 125 PRINT"  [146]       [146][223] [223][146] [169] [146][169]      [223] [223]  [146]       "
  44. 130 PRINT"  [223][146] [169] [146][169]  [146] [223] [223][146][223]  [146]        [146][169]  [146]       "
  45. 135 PRINT"[223]    [146][169]   [146]  [223] [223][146][223] [146]       [146][169]   [146]          [223]
  46. 140 [153]"            (null) (null)":[151]53265,27
  47. 145 [153]"             (null)STEP":[141]1050:[129]D[178]1[164]1E3:[130]:[151]53265,11
  48. 150 [153]"LOADLIST":[151]53281,12:[151]53280,12
  49. 155 [153]" SYSLENRANE PRINT* PEEKRAIN SYSLENRANE PRINT* PEEKRAIN SYSLENRANE PRINT* PEEKRA";
  50. 160 [153]"IN SYSLENRANE PRINT* PEEKRAIN SYSLENRANE PRINT* PEEKRAIN SYSLENRANE PRINT* PEEK";
  51. 165 [153]"RAIN SYSLENRANE PRINT* PEEKRAIN SYSLENRANE PRINT* PEEKRAIN SYSLENRANE PRINT*";
  52. 170 [153]" PEEKRAIN SYSLENRANE PRINT* PEEKRAIN SYSLENRANE PRINT* PEEKRAIN SYSLENRANE"
  53. 175 [153]"OPEN                 (null)VAL(null)(null)"
  54. 180 [153]"PRINT --------------------------------------"
  55. 185 [153]"LIST       1.   PEEKEGIN PEEK(null)ATNRIGHT$(null)CLOSELEN(null)ATN(null)VAL TO DRILL
  56. 190 PRINT"   ON [193]DDITION, [211]UBTRACTION & [205]ULTIPLY
  57. 195 [153]"       2.   RIGHT$NSTRUCTIONS
  58. 200 PRINT"       3.   [209]UIT - [209]UIT - [209]UIT
  59. 205 [153]" --------------------------------------"
  60. 210 [153]"PRINT       (null)RESS A NUMBER KEY (1-3) ":[151]53265,27
  61. 215 [161]G$:[139]G$[179]"1"[176]G$[177]"3"[167]215
  62. 220 [145][197](G$)[141] 410,235,230
  63. 225 [137]150
  64. 230 [151]53281,6:[151]53280,14:[153]"LOADRETURNCONT OK, OK, I QUIT!!":[129]D[178]1[164]3E3:[130]
  65. 232 [153]"                   ON":[128]
  66. 235 [151]53265,11:[153]"LOAD":[151]53280,15:[151]53281,15
  67. 240 [153]"  RIGHT$NSTRUCTIONS             PEEKRAIN LENRAIN
  68. 245 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  69. 250 PRINT"[151] [212]HIS PROGRAM HELPS YOU WITH MATH.
  70. 255 [153]" (null)HE COMPUTER WILL ASK YOU SOME MATH
  71. 260 PRINT" QUESTIONS SUCH AS  '1 + [192][146] = 5'. [217]OU"
  72. 265 PRINT" HAVE TO TYPE IN THE NUMBER THAT SHOULD"
  73. 270 PRINT" BE WHERE THE [192][146] IS.  [201]N THIS CASE
  74. 275 [153]" YOU WOULD TYPE IN '4' (WITHOUT "
  75. 280 [153]" QUOTATION MARKS [']).  (null)HE COMPUTER "
  76. 285 [153]" WILL THEN FIX THE QUESTION BY PUTTING"
  77. 290 [153]" YOUR ANSWER IN IT WITH A CRANE.":[151]53265,27
  78. 295 [141] 390:[151]53265,11
  79. 300 [153]"LOADPOKE (null)OTE:(null)O ADVANCE FROM ONE QUESTION"
  80. 305 [153]" TO THE NEXT PRESS THE (null)(null)ATNLENVAL BAR"
  81. 310 [153]"   (null)HIS PROGRAM 'BUILDS UP' A PLAYER'S"
  82. 315 [153]"MATH SKILLS BY DRILL.  ATN FAMILY OF"
  83. 320 [153]"NUMBERS IS DRILLED TEN TIMES, AFTER"
  84. 325 [153]"WHICH THE PLAYER'S SCORE IS PRINTED."
  85. 330 [153]"(null)HE COMPUTER WILL GIVE A COMMENT "
  86. 335 [153]"APPROPRIATE TO THE SCORE.  RIGHT$F THE"
  87. 340 [153]"PLAYER DID NOT GET ALL THE QUESTIONS"
  88. 345 [153]"CORRECT, THE SAME NUMBER FAMILY WILL BE"
  89. 350 [153]"DRILLED AGAIN.  (null)HE RANGE OF FAMILIES"
  90. 355 [153]"AVAILABLE IS FROM 1 TO 50 FOR + AND -   AND 1 TO 12 FOR X.
  91. 360 PRINT"   [217]OU HAVE THE OPTION OF CHOOSING ONE"
  92. 365 PRINT"FAMILY OF NUMBERS FOR INTENSIVE STUDY,"
  93. 370 PRINT"OR THE COMPUTER CAN RANDOMLY CHOOSE"
  94. 375 PRINT"DIFFERENT FAMILIES FOR EACH QUESTION."
  95. 380 PRINT"   [193]N EXAMPLE OF A NUMBER FAMILY IS THE"
  96. 385 PRINT"12 IN '7 + 5 = 12'.":POKE53265,27
  97. 390 POKE198,0:SYSK,23,6:PRINT" PRESS <SPACE> TO CONTINUE "
  98. 395 GETG$:IFG$<>" "THEN 395
  99. 400 RETURN
  100. 405 GOTO150
  101. 410 PRINT"[147][142]";:RESTORE:POKE53280,15:POKE53281,15:POKE53265,11
  102. 415 FORI=0TO9:READA$(I):NEXT
  103. 420 PRINT" BRAIN CRANE . . . .
  104. 425 [153]" TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  105. 430 PRINT"[153]   WOULD YOU LIKE TO DO....":PRINTTAB(13)"A[154][146]DDITION
  106. 435 [153][163]13)"SCONTWAITUBTRACTION":[153][163]13)"MCONTWAITULTIPLICATION
  107. 440 PRINT"[153]   WHICH WILL IT BE....  A - S OR M":POKE53265,27
  108. 445 GETG$:IFG$<>"A"ANDG$<>"S"ANDG$<>"M"THEN 445
  109. 450 IFG$="A"THENPRINTTAB(12)"[154]ADDITION IT IS
  110. 455 [139]G$[178]"S"[167] SU[178]1:[153][163]10)"CONTSUBTRACTION IT IS":Q$[178]"-"
  111. 460 [139]G$[178]"M"[167] MU[178]1:[153][163]9)"CONTMULTIPLICATION IT IS
  112. 465 PRINT"[152]        DO YOU WANT THE COMPUTER
  113. 470 [153]"      TO PICK RANDOM NUMBERS   Y/N":L[178]0
  114. 475 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167] 475
  115. 480 [139]G$[178]"Y"[167]L[178]1
  116. 485 [129]I[178]18[164]23:[151]781,I:[158]59903:[130]
  117. 490 [137] 930
  118. 495 JX[178]JX[170]1:[151]53280,15:[151]53281,15:[151]53265,11
  119. 500 [153]"LOAD  BRAIN CRANE             QUESTION #"JX
  120. 505 [153]" TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANPRINT#"
  121. 515 [153]"      ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  122. 520 PRINT"      [221]  [167][205][167][208][167][208][167][167][208]  [167][208][167][208][167][208][167][208][167][208]   [221]
  123. 525 [153]"      (null)  THENSQRTHENSQRTHENSQRTHENTHENTHEN  THEN THENSQRTHENSQRTHENTHENTHENTAN   (null)
  124. 530 PRINT"      [221]  [167][186][167][205][167][167][167][167][167]  [167][186][170][205][167][167][167][167][167][186]   [221]
  125. 535 [153]"      /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  126. 540 SYSK,16,4:Z$=STR$(B):GOSUB 980:PRINTS$;
  127. 545 Z$=STR$(C):GOSUB 985:PRINT"[152][162][162][162][157][157][157][162][162][162][145][145] ";:Z$=STR$(A):GOSUB 980:D=0
  128. 550 SYSK,12,9:PRINT"[152]WHAT IS THE NUMBER ";:POKE53265,27
  129. 555 OPEN1,0:INPUT#1,U$:PRINT:CLOSE1
  130. 560 D=VAL(U$):IFD<0ORD>50THEN 550
  131. 565 IFC=DTHEND$="":GOTO 605
  132. 570 Y=Y+1:IFY=3THEN 590
  133. 575 PRINT" SORRY, THAT'S WRONG. PLEASE TRY AGAIN.":GOSUB1085
  134. 580 FORE=1TO1200:NEXT:D=0:D$=""
  135. 585 IFD=0ANDD$<>"0"THENFORT=12TO14:POKE781,T:SYS59903:NEXT:GOTO 550
  136. 590 PRINT"[145] THAT'S 3 WRONG ANSWERS.  THE ANSWER IS"
  137. 595 PRINTTAB(12)""B;Q$;C"="A:FORI=1TO3:GOSUB1085:NEXT
  138. 600 GOSUB 390:W=W+1:Y=0:GOTO 495
  139. 605 GOSUB1050
  140. 610 FORT=1TO30:SYSK,22,T:PRINT" RIGHT!! [146]";:FORE=0TO0 :NEXT:NEXT
  141. 615 GOSUB1050
  142. 620 FORT=30TO1STEP-1:SYSK,22,T:PRINT" RIGHT!! [146]";:FORE=0TO0 :NEXT:NEXT
  143. 625 :        :FORE=1TO1E3:NEXT
  144. 630 POKE781,12:SYS59903:POKE781,22:SYS59903:PRINT"";:NR=NR+1
  145. 635 PRINT"[152]                 [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";
  146. 640 PRINT"               [213][190][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][165] ";
  147. 645 PRINT"               [221] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][205][209][209][209][209][209][209][152][205] ";
  148. 650 PRINT"              [202][203]              [190]::::::::[188][146]";
  149. 655 PRINT"                             [152][172][154]          [146]";
  150. 660 PRINT"                [160]            [159][170][154][161] [150][215][154][165] [182][182][182][182] [146]";
  151. 665 PRINT"                             [159][167][154][188][146][152][176][189][146][154][165]      [146]";
  152. 670 PRINT"                             [152][188][154][167] .[154][165]      [146]";
  153. 675 PRINT"      [146][154]                        [167][164][164][154][165] [188][188][188][188] [146]";
  154. 680 PRINT"NUMBER[146][154]                                  [146]";
  155. 685 PRINT"      [146][154]                        [151][213][178][219][219][178][178][219][219][178][201]";
  156. 690 PRINT"  BOX [146]                        [151][171][209][215][215][215][215][215][215][209][179]";
  157. 695 PRINT"      [146]                        [151][202][177][177][177][177][177][177][177][177][203][152]";
  158. 700 PRINT"                             [163][163][163][163][163][163][163][163][163][163][163]":X=14
  159. 705 FORE=1TO1E3:NEXT:SYSK,7,31:PRINT"[150][209] [157][157][189][146] "
  160. 710 G=(LEN(STR$(B))-1)*3:IFG=3THENG=2
  161. 715 IFG=9THENG=10
  162. 720 B$=MID$(STR$(C),2):IFLEN(B$)=1THENC$=A$(VAL(B$)):D$="":GOTO 730
  163. 725 C$=A$(VAL(LEFT$(B$,1))):D$=A$(VAL(RIGHT$(B$,1)))
  164. 730 B$="[152]  [164][157][157][157][157] [213][190][146][214][157][157][157][157] [221] [163][157][157][157][157][157] [202][203] [157][157][157][145][145][145][145]"
  165. 735 SYSK,2,X:PRINT"[152]";:FORI=XTO3STEP-1:PRINTB$;:GOSUB 1075  :NEXT  I
  166. 740 FORI=0TO3:R=P+203+40*I:POKER,93:POKER+S,12
  167. 745 POKER-1,32:POKER+40,75:POKER+40+S,12:POKER+39,74:POKER+39+S,12
  168. 750 GOSUB1075:NEXT
  169. 755 POKER+40,93:POKER+40+S,12:POKER+39,32:FORI=1TO500:NEXT
  170. 760 M=M+1:POKE646,M:IFM=11THENM=5
  171. 765 FORI=1TO5:SYSK,10,0:FORJ=1TOI:PRINT"[145]";:NEXT
  172. 770 PRINT"  "LEFT$(C$,7*I):GOSUB1075:NEXT
  173. 775 R=P+238:B$=LEFT$(B$,31)+C$
  174. 780 PRINT"";:FORI=3TO11+G:FORJ=1TOI:PRINT" ";:NEXTJ:PRINTB$;
  175. 785 PRINT"[157][157][157][157][157] [157] [157] [157] [157] [145][145][145][145][145][145][145][145]"
  176. 790 GOSUB1075:NEXT:RR=R+I+1-80:X=12+G
  177. 795 FORJ=1TOI-2:PRINT"";:NEXT:PRINT"";:FORI=1TO12:PRINT" [152][221] [157][157][157]"C$"[157][157][157][157]";
  178. 800 GOSUB1075:NEXT
  179. 805 FORI=9TO0STEP-1:R=RR+40*I:POKER,93:POKER+S,12:POKER+39,74:POKER+39+S,12
  180. 810 POKER+40,75:POKER+40+S,12:POKER+79,32:POKER+80,32:GOSUB1075:NEXT
  181. 815 IFD$=""THENSYSK,7,31:PRINT" [150][215][157][157][152][176][189][146]":GOSUB 390:GOTO 825
  182. 820 G=G+4:C$=D$:D$="":GOTO 730
  183. 825 IFJX<10THENY=0:GOSUB930:GOTO495
  184. 830 PRINT"[147]                [158]GAME OVER
  185. 835 [153]" PRINT#TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  186. 840 [153][163]14)"CONTFAMILY OF"N
  187. 845 [153]"TOTAL RIGHT         TOTAL WRONG"
  188. 850 [153]"PRINT#VALVALVALVALVALVALVALVALVALVALVAL         VALVALVALVALVALVALVALVALVALVALVAL":[129]T[178]1[164]3:[141]1050:[130]
  189. 855 [153]"CONT"[163]8)NR[163]28)W"":NR[178]10[171]W
  190. 860 [139]NR[179]5[167][153]"OOPS!! LET'S TRY IT AGAIN.":[137] 915
  191. 865 [139]NR[179]8[167][153]"LET'S TRY TO DO BETTER BY PRACTICINGSOME MORE.":[137]915
  192. 870 [139]NR[179]10[167][153]"WOW! ALMOST PERFECT. LET'S DO IT AGAIN AND SEE IF WE";
  193. 875 [139]NR[179]10[167][153]" CAN GET 10!":[137] 915
  194. 880 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTO"
  195. 885 [153]"CONTPERFECT!!!!!!":[153]"SYSYOU'RE TOO GOOD FOR ME!!";:[129]I[178]1[164]20
  196. 890 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDYOU'RE TOO GOOD FOR ME!!";
  197. 895 [129]J[178]1[164]50:[130]
  198. 900 [153]"WAITCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDYOU'RE TOO GOOD FOR ME!!";
  199. 905 [129]J[178]1[164]50:[130]
  200. 910 [130]:[153]
  201. 915 [141] 390
  202. 920 [139]NR[179]10[167][153]"LOAD":JX[178]0:NR[178]0:W[178]0:[137]495
  203. 925 [137]150
  204. 930 [139]L[178]1[167]A1[178]1:N[178][181]([187](1)[172]50[170]1)
  205. 935 [139]MU[178]1[167]1105
  206. 940 [139]SU[178]1[167]B[178]N:A[178][181]([187](1)[172]B[170]1):C[178]B[171]A:S$[178]"PRINT#ANDANDANDWAITONON":Q$[178]"-":[137] 950
  207. 945 A[178]N:B[178][181]([187](1)[172]A[170]1):C[178]A[171]B:S$[178]"PRINT# USRWAITCMDCMDUSR USRWAITCMDCMD WAITONONON":Q$[178]"+"
  208. 950 [139]A1[178]1[167] 495
  209. 955 [158]K,19,4:[153]"WHAT NUMBER DO YOU WANT TO DRILL."
  210. 960 [139]MU[178]1[167]1130
  211. 965 [133]"          (BETWEEN 1 AND 50) ";N:A1[178]1
  212. 970 [139]N[177]50[176]N[179]1[167] 955
  213. 975 [137] 935
  214. 980 [129]I[178]2[164][195](Z$):[153]A$([197]([202](Z$,I,1)))"";:[130]:[142]
  215. 985 [129]I[178]2[164][195](Z$):[129]J[178]1[164]5:[153]"DEFTOTOTOWAITCMDCMDCMD";:[130]:[153]"ONONONONON ";:[130]
  216. 990 [142]
  217. 995 [131]"   WAITCMDCMDCMD WAIT  WAITCMDCMDCMD WAIT  WAITCMDCMDCMD WAIT  WAITCMDCMDCMD   WAITONONONONONPRINT#"
  218. 1000 [131]"SYSSTEP WAIT CMDCMDCMD  WAIT CMDCMDCMD  WAIT CMDCMDCMD  WAIT CMDCMDCMD   WAITONONONONONPRINT#"
  219. 1005 [131]"   WAITCMDCMDCMD   CMDCMDCMD   CMDCMDCMD WAIT  CMDCMDCMD   WAITONONONONONPRINT#"
  220. 1010 [131]"   WAITCMDCMDCMD   CMDCMDCMD   WAITCMDCMDCMD   CMDCMDCMD   WAITONONONONONPRINT#"
  221. 1015 [131]" WAIT  CMDCMDCMD WAIT  CMDCMDCMD   WAITCMDCMDCMD   WAITCMDCMDCMD   WAITONONONONONPRINT#"
  222. 1020 [131]"PRINT   CMDCMDCMD WAIT  CMDCMDCMD   WAITCMDCMDCMD   CMDCMDCMD   WAITONONONONONPRINT#"
  223. 1025 [131]"CONT   CMDCMDCMD WAIT  CMDCMDCMD   CMDCMDCMD WAIT  CMDCMDCMD   WAITONONONONONPRINT#"
  224. 1030 [131]"FOR   WAITCMDCMDCMD   WAITCMDCMDCMD   WAITCMDCMDCMD   WAITCMDCMDCMD   WAITONONONONONPRINT#"
  225. 1035 [131]"VERIFY   CMDCMDCMD WAIT  CMDCMDCMD   CMDCMDCMD WAIT  CMDCMDCMD   WAITONONONONONPRINT#"
  226. 1040 [131]"CLR   CMDCMDCMD WAIT  CMDCMDCMD   WAITCMDCMDCMD   WAITCMDCMDCMD   WAITONONONONONPRINT#"
  227. 1045 [129]T[178]15[164]0[169][171].5:[151]S[170]24,T:[151]S[170]24,0:[130]:[142]
  228. 1050 [151]S[170]5,17:[151]S[170]6,251:[151]S[170]19,187:[151]S[170]20,140
  229. 1055 [151]S[170]24,15:[151]S[170]18,17:[151]S[170]4,17:[129]I[178]30[164]200[169]3:[151]S[170]1,I:[130]
  230. 1060 [151]S[170]4,0:[129]I[178]1[164]150:[130]:[151]S[170]4,17:[129]I[178]30[164]120[169]3:[151]S[170]1,I:[130]
  231. 1065 [129]I[178]120[164]20[169][171]1.5:[151]S[170]1,I:[130]:[129]I[178]S[164]S[170]23:[151]I,0:[130]:[142]
  232. 1070 [129]I[178]120[164]20[169][171]1.5:[151]S[170]1,I:[130]:[129]I[178]S[164]S[170]23:[151]I,0:[130]:[142]
  233. 1075 [151]S[170]5,140:[151]S[170]6,246:[151]S[170]24,15:[151]S[170]1,0:[151]S,184:[151]S[170]15,2
  234. 1080 [151]S[170]4,21:[129]E[178]1[164]30:[130]:[151]S[170]4,20:[142]
  235. 1085 [129]T[178]15[164]0[169][171].5:[151]S[170]24,T:[151]S[170]24,0:[130]:[142]
  236. 1090 [129]S2[178]1[164]2:[151]S[170]5,17:[151]S[170]6,251:[151]S[170]19,187:[151]S[170]20,140
  237. 1095 [151]S[170]24,15:[151]S[170]18,17:[151]S[170]4,17:[129]T[178]30[164]160[169]3:[151]S[170]1,T:[130]
  238. 1100 [151]S[170]4,0:[129]E[178]1[164]40:[130]:[130]:[129]T[178]S[164]S[170]23:[151]T,0:[130]:[142]
  239. 1105 [139]L[178]1[167]A1[178]1:N[178][181]([187](1)[172]12)[170]1
  240. 1110 S$[178]"PRINT# WAITTO CMDCMDCMDWAITTHEN(null)FNCMDCMDCMD WAITTAB( WAITONONON":Q$[178]"X"
  241. 1120 B[178]N:U[178][181]([187](1)[172]12)[170]1
  242. 1125 A[178]B[172]U:C[178]A[173]B:[137] 950
  243. 1130 [133]"          (BETWEEN 1 AND 12) ";N:A1[178]1
  244. 1135 [139]N[177]12[176]N[179]1[167]1130
  245. 1140 [137]1120
  246.