home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / THE-BUS-BARNS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.5 KB  |  406 lines
  1. 5 REM
  2. 10 REM                  "THE BUS BARNS"
  3. 11 REM      BY ALICE LAWRENCE JULY,1983
  4. 50 PRINTCHR$(142)
  5. 60 HH=RND(-TI)
  6. 100 DIM A(12),B(12),C(12),D(12)
  7. 200 DIMC$(10),CO$(10),RA$(6),FI$(10)
  8. 210 DIM OV(12),CH(12),GG$(11)
  9. 220 D=1:OV=-1
  10. 221 GOSUB63500
  11. 225 GOSUB60000
  12. 227 GOSUB62000
  13. 230 GOSUB61000
  14. 240 IFTT=1THEN630
  15. 250 IFTT=2THEN300
  16. 260 IFTT=3THEN400
  17. 300 FORJ=1TO12:A(J)=INT(RND(1)*80)+20
  18. 340 B(J)=INT(RND(0)*9)+1
  19. 350 C(J)=A(J)-B(J)
  20. 360 D(J)=D:IFINT(J/4)=J/4 THEN D=D+8
  21. 370 OV=OV+8:OV(J)=OV:IFOV=31 THEN OV=-1
  22. 380 CH(J)=J:OP$="-"
  23. 390 NEXTJ:GOTO750
  24. 400 FORJ=1TO12:A(J)=INT(RND(1)*6)+4
  25. 410 B(J)=INT(RND(1)*6)+3:OP$="X"
  26. 420 C(J)=A(J)*B(J)
  27. 430 D(J)=D:IFINT(J/4)=J/4 THEN D=D+8
  28. 440 OV=OV+8:OV(J)=OV:IFOV=31 THEN OV=-1
  29. 450 CH(J)=J
  30. 460 L$(I)=STR$(C):L$(I)=RIGHT$(L$,2)
  31. 470 NEXT J
  32. 490 GOTO750
  33. 630 FOR J=1TO12:A(J)=INT(RND(1)*80)+10
  34. 635 B(J)=INT(RND(1)*9)+1
  35. 640 C(J)=A(J)+B(J):OP$="+"
  36. 650 D(J)=D:IFINT(J/4)=J/4 THEN D=D+8
  37. 660 OV=OV+8:OV(J)=OV:IFOV=31 THEN OV=-1
  38. 670 CH(J)=J
  39. 675 L$(I)=STR$(C):L$(I)=RIGHT$(L$,2)
  40. 680 NEXT J
  41. 750 GOSUB30000
  42. 1510 REM               START OF PROGRAM
  43. 1515 HE=0:FORJ=1TO12
  44. 1516 IFCH(J)=0THEN HE=HE+1
  45. 1517 NEXTJ:IFHE=12THENGOTO41000
  46. 1520 I=INT(RND(1)*12)+1
  47. 1525 IF CH(I)=0 THEN GOTO 1520
  48. 1530 D=D(I):OV=OV(I)
  49. 1540 A=A(I):B=B(I):C=C(I)
  50. 1545 CH(I)=0
  51. 1555 WB=0
  52. 1560 REM                FLASHERS IN BUS
  53. 1660 K=1
  54. 1670 FORJ=1TO6:K=1-K
  55. 1680 RV$(1)="":RV$(0)="[146]"
  56. 1700 PRINTLEFT$(CC$,D)RV$(K)TAB(OV)A"[157]"B"[157][157][157]"OP$"="CHR$(7)
  57. 1750 NEXTJ
  58. 1760 GOSUB33300:REM          PRINTS BUS
  59. 1800 PRINTLEFT$(CC$,22)"[194][172]";:GOSUB50000
  60. 1801 PRINTLEFT$(CC$,22)"[194][188]";:GOSUB50000
  61. 1802 PRINTLEFT$(CC$,22)"[194][190]";:GOSUB50000
  62. 1803 PRINTLEFT$(CC$,22)"[194][187]";:GOSUB50000
  63. 1810 GETZ$:IFZ$=""THEN1800
  64. 1820 IFZ$=CHR$(13)THEN1810
  65. 1830 IFZ$=CHR$(63)THEN1810
  66. 1840 FORJ=1TOLEN(EX$):IFMID$(EX$,J,1)=Z$THENJ=100
  67. 1850 NEXTJ:IFJ=101THEN1870
  68. 1860 GOTO1800
  69. 1870 PRINTLEFT$(CC$,22)"[194]"Z$
  70. 1875 Z1=VAL(Z$)*10
  71. 1880 T=2:IFWA=1THENT=T+1
  72. 1900 PRINTLEFT$(CC$,22)"[194][183]";:GOSUB50000
  73. 1920 PRINTLEFT$(CC$,22)"[194][184]";:GOSUB50000
  74. 1930 PRINTLEFT$(CC$,22)"[194][185][146]";:GOSUB50000
  75. 1940 PRINTLEFT$(CC$,22)"[194][175][146]";:GOSUB50000
  76. 1945 PRINTLEFT$(CC$,22)"[194] [146]";:GOSUB50000
  77. 1950 GETZ$:IFZ$=""THEN1900
  78. 1960 IFZ$=CHR$(13)THEN1900
  79. 1970 IFZ$=CHR$(63)THEN1900
  80. 1980 FORJ=1TOLEN(EX$):IFMID$(EX$,J,1)=Z$THENJ=100
  81. 1990 NEXTJ:IFJ=101THEN1996
  82. 1995 GOTO1900
  83. 1996 PRINTLEFT$(CC$,22)"[194]"Z$
  84. 1997 Z2=VAL(Z$)
  85. 1998 Z3=Z2+Z1:Z3$=STR$(Z3):Z3$=RIGHT$(Z3$,2):GOTO40000
  86. 29999 REM                     BUS BARNS
  87. 30000 TP$="                                 [146]"
  88. 30015 ROAD$="  [146][166][166][166][166][166][166]  [146][166][166][166][166][166][166]  [146][166][166][166][166][166][166]  [146][166][166][166][166][166][166] [146]"
  89. 30020 WALL$="[161]       [161]       [161]       [161][160][160][160][160][160][160][160][161]"
  90. 30023 PRINT"[147]"
  91. 30025 FOR J=1TO3
  92. 30030 PRINT""TP$
  93. 30040 FORJJ=1TO3:PRINT""WALL$:NEXTJJ
  94. 30060 PRINT""ROAD$
  95. 30070 NEXTJ
  96. 30080 PRINT"[145][166][166][166][166][166][166]"ROAD$
  97. 30090 S=5:GOSUB50000:S=1
  98. 30099 RETURN
  99. 32098 :
  100. 32200 REM                      COMMENTS
  101. 32210 X=RND(1)*10+1
  102. 32215 LO$(1)=""
  103. 32220 PRINTLO$(1)FI$(X)
  104. 32223 S=1:GOSUB50000:S=.1
  105. 32225 PRINTLO$(1)"           "
  106. 32230 RETURN
  107. 33190 FORJ=1TO3:PRINTLEFT$(CC$,20+J)BL$:NEXTJ
  108. 33200 RETURN
  109. 33290 REM          PRINTS BUS IN CORNER
  110. 33300 B1$="[213][195][195][195][201][157][157][157][157][157][194]  [188][194][157][157][157][157][157][202][209][195][209][203]"
  111. 33310 PRINTLEFT$(CC$,21)B1$
  112. 33320 S=.1:GOSUB50000
  113. 33330 RETURN
  114. 33980 :
  115. 33990 REM   DRIVER WALKING TO CHECK BUS
  116. 40000 BD$="[209] [157][157][219] [157][157][191] " :REM DR LEFT
  117. 40005 S=.05
  118. 40010 JO$="[209] [157][157][219] [157][157][191][146] "
  119. 40020 FOR J=38TO5STEP-2
  120. 40030 PRINTLEFT$(CC$,21)TAB(J)BD$"[145][145][145]":GOSUB50000
  121. 40040 PRINTLEFT$(CC$,21)TAB(J-1)JO$"[145][145][145]":GOSUB50000
  122. 40050 NEXTJ
  123. 40051 X=INT(RND(1)*10)+1
  124. 40052 REM             RIGHT BUS COMMENT
  125. 40053 IFZ3=CTHENPRINTLO$C$(X):GOTO40079
  126. 40054 REM                     WRONG BUS
  127. 40055 WB=WB+1:IFWB=2THENWB=0:GOTO40600
  128. 40057 PRINTLO$CO$(X)
  129. 40058 S=1:GOSUB50000:PRINTLO$"                    "
  130. 40059 REM                   REMOVES BUS
  131. 40060 S=.5:GOSUB50000
  132. 40061 FOR J=0TO33
  133. 40062 PRINTLEFT$(CC$,21)LEFT$(R$,J)W1$;Z3$;W2$
  134. 40063 NEXTJ
  135. 40065 PRINTLEFT$(CC$,21)BL$
  136. 40066 PRINTLEFT$(CC$,22)BL$
  137. 40067 PRINTLEFT$(CC$,23)BL$
  138. 40069 GT=GT+1
  139. 40070 GOSUB33290:GOTO1560
  140. 40078 :
  141. 40079 REM                 BUS & LIFT UP
  142. 40080 S=5:GOSUB50000:S=.1
  143. 40082 PRINTLEFT$(CC$,21)TAB(5)" [157] [157] [145]                  "
  144. 40095 IFD=17THENGOTO40150
  145. 40100 FORJ=20TOD+4STEP-1
  146. 40110 PRINTLEFT$(CC$,J)W4$;Z3$;W5$;LI$
  147. 40120 S=.05:GOSUB50000
  148. 40130 NEXTJ
  149. 40140 REM                     BUS RIGHT
  150. 40150 FORJ=0TOOV
  151. 40160 PRINTLEFT$(CC$,D+4)TAB(J)W1$;Z3$;W2$
  152. 40170 S=.1:GOSUB50000
  153. 40180 NEXTJ
  154. 40182 :
  155. 40185 REM               BUS AND LIFT UP
  156. 40210 FORJ=D+3TOD+1STEP-1
  157. 40220 PRINTLEFT$(CC$,J)TAB(OV+1)W4$;Z3$;W5$;LI$
  158. 40230 GOSUB50000
  159. 40240 NEXTJ
  160. 40250 ED$=" [157][209][157][219][157][157][157][157][157][157]     [191][157][157][157][157][157][157][166][166][166][166][166][166]"
  161. 40260 FOR J=D+1TOD+3STEP 1
  162. 40270 PRINTLEFT$(CC$,J)TAB(OV+6)ED$
  163. 40280 GOSUB50000
  164. 40290 NEXTJ:
  165. 40300 BD$="[209] [157][157][219] [157][157][191] "
  166. 40310 JO$="[209] [157][157][219] [157][157][191][146] "
  167. 40315 IF OV=17 THEN GOTO 40360
  168. 40317 :
  169. 40318 REM           DRIVER WALKING LEFT
  170. 40319 IFD=17THEN40800
  171. 40320 FOR J=OV+5TO4STEP-2
  172. 40330 PRINTLEFT$(CC$,D+4)TAB(J)BD$"[145][145][145]":GOSUB50000
  173. 40340 PRINTLEFT$(CC$,D+4)TAB(J-1)JO$"[145][145][145]":GOSUB50000
  174. 40350 NEXTJ :REM OK
  175. 40360 PRINTLEFT$(CC$,21)TAB(5)" [157] [157] "
  176. 40370 ED$="[166][166][166][166][166][166][145][157][157][157][157][157][157]    [191] [145][157][157][157][157][157][157]    [219] [145][157][157][157][157][157][157]    [209][145][157] "
  177. 40380 FOR J=D+7TO24STEP 1
  178. 40390 PRINTLEFT$(CC$,J)ED$
  179. 40400 GOSUB50000
  180. 40410 NEXTJ
  181. 40420 BD$=" [209][157][157] [219][157][157] [191]"
  182. 40430 JO$=" [209][157][157] [219][157][157] [191][146]"
  183. 40440 FOR J=3TO37STEP2:S=.1:GOSUB50000
  184. 40450 PRINTLEFT$(CC$,21)TAB(J)BD$"[145][145][145]":GOSUB50000
  185. 40460 PRINTLEFT$(CC$,21)TAB(J+1)JO$"[145][145][145]":
  186. 40470 IFJ=19THENGOSUB32200
  187. 40475 S=.1
  188. 40477 IFJ=35THENPRINTLO$"                   "
  189. 40480 NEXTJ
  190. 40490 PRINTLEFT$(CC$,21)TAB(39)" [157] [157] "
  191. 40499 GOTO1510
  192. 40505 LO$=""
  193. 40510 PRINTLO$GG$(X):S=.5:GOSUB50000:S=.1
  194. 40520 PRINTLEFT$(CC$,21)TAB(J+I)JO$" ":GOSUB5000
  195. 40530 IFJ=37THENGOSUB32200:S=5:GOSUB5000
  196. 40540 S=.1:NEXTJ
  197. 40550 PRINTLEFT$(CC$,21)BL$
  198. 40560 PRINTLEFT$(CC$,22)BL$
  199. 40570 PRINTLEFT$(CC$,23)BL$
  200. 40580 GOTO1510
  201. 40600 GOTO40610:REM    X=INT(RND(1)*6)+1
  202. 40601 RA$(1)="BUS "+L$+"WHERE ARE YOU?"+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  203. 40602 RA$(2)="I'M LOOKING FOR BUS "+L$(I)+"."+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  204. 40603 RA$(3)="WHERE IS BUS "+L$(I)+"."+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  205. 40604 RA$(4)="BUS "+L$(I)+"IS MISSING."+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  206. 40605 RA$(5)="QUIT GUESSING. IT'S BUS "+L$(I)+"."+CHR$(7)+CHR$(7)+CHR$(7)
  207. 40606 RA$(6)="GET A MATRIX. IT'S "+L$(I)+"."+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  208. 40610 PRINTLEFT$(CC$,22)LEFT$(R$,10)"BUS";CHR$(7);:S=3:GOSUB50000
  209. 40612 PRINTC;CHR$(7);CHR$(7);:GOSUB50000:GOSUB50000:PRINT" WHERE ";CHR$(7);
  210. 40615 GOSUB50000:PRINT"ARE";CHR$(7);:GOSUB50000:PRINT" YOU?";CHR$(7)
  211. 40620 S=10:GOSUB50000:S=.1
  212. 40625 PRINTLEFT$(CC$,22)LEFT$(R$,10)"                               "
  213. 40630 REM                   REMOVES BUS
  214. 40640 GOSUB50000
  215. 40650 FOR J=0TO33
  216. 40660 PRINTLEFT$(CC$,21)LEFT$(R$,J)W1$;Z3$;W2$
  217. 40670 NEXTJ
  218. 40680 PRINTLEFT$(CC$,21)BL$
  219. 40685 PRINTLEFT$(CC$,22)BL$
  220. 40690 PRINTLEFT$(CC$,23)BL$
  221. 40700 GOTO1510
  222. 40800 FORJ=OV+6TO36STEP2:GOSUB50000
  223. 40810 PRINTLEFT$(CC$,21)TAB(J)" [157] [157] [145][145]"BD$:GOSUB50000
  224. 40812 PRINTLEFT$(CC$,21)TAB(J+1)" [157] [157] [145][145]"JO$:GOSUB50000
  225. 40813 NEXTJ
  226. 40815 IFJ=35THENGOSUB32200:S=5:GOSUB50000:S=.1
  227. 40836 PRINTLEFT$(CC$,21)BL$
  228. 40837 PRINTLEFT$(CC$,22)BL$
  229. 40838 PRINTLEFT$(CC$,23)BL$
  230. 40840 GOTO1510
  231. 41000 REM                        FINALE
  232. 41010 S=5:GOSUB50000:S=1
  233. 41015 BD$="[209] [157][157][219] [157][157][191] " :REM DR LEFT
  234. 41016 JO$="[209] [157][157][219] [157][157][191][146] "
  235. 41020 FORJ=38TO10STEP-2
  236. 41030 PRINTLEFT$(CC$,21)TAB(J)BD$"[145][145][145]":GOSUB50000
  237. 41040 PRINTLEFT$(CC$,21)TAB(J-1)JO$"[145][145][145]":GOSUB50000
  238. 41050 NEXTJ:S=2.5
  239. 41060 PRINTLEFT$(CC$,22)LEFT$(R$,12)"YOU ";CHR$(7);:GOSUB50000:PRINT"PARKED";
  240. 41065 PRINTCHR$(7);
  241. 41070 GOSUB50000:PRINT12-GT;CHR$(7);:GOSUB50000:PRINT"BUSES";CHR$(7);CHR$(7);
  242. 41075 PRINTCHR$(7);CHR$(7);
  243. 41080 PRINT" RIGHT";CHR$(7);:S=20:GOSUB50000
  244. 41090 S=5:PRINTLEFT$(CC$,22)LEFT$(R$,12)"                          "
  245. 41100 PRINTLEFT$(CC$,22)LEFT$(R$,12)"ON ";CHR$(7);:GOSUB50000
  246. 41120 PRINT"THE ";CHR$(7);:GOSUB50000:PRINT"FIRST ";CHR$(7);:GOSUB50000
  247. 41130 PRINT"TRY.";CHR$(7):S=20:GOSUB50000
  248. 41135 PRINTLEFT$(CC$,22)LEFT$(R$,12)"                         "
  249. 41140 IFGT=0THENPRINTLEFT$(CC$,22)LEFT$(R$,12)"IS THAT YOU ";:PRINTKD$;:PRINT"."
  250. 41145 GOSUB50000:S=5
  251. 41146 PRINTLEFT$(CC$,21)BL$
  252. 41147 PRINTLEFT$(CC$,21)BL$
  253. 41148 PRINTLEFT$(CC$,21)BL$
  254. 41150 M$="WOULD YOU LIKE TO TRY AGAIN ":GOSUB61500
  255. 41160 IFZ$="Y"THENGOTO220
  256. 41180 PRINT"[147]"TAB(16)"SEE YA!":S=20:GOSUB50000:PRINT"[147]":END
  257. 49999 REM                        :DELAY
  258. 50000 FOR G=1TO100*S:NEXTG:RETURN
  259. 51020 M$=QU$:SO=22:GOSUB51010:STOP
  260. 51100 FORR=36TOSOSTEP-1
  261. 51110 PRINT""TAB(R)M$
  262. 51120 S=.1:GOSUB50000:NEXTR
  263. 51130 RETURN
  264. 60000 CC$=""
  265. 60010 BL$="                                       "
  266. 60020 R$=""
  267. 60030 LO$=LEFT$(CC$,22)+LEFT$(R$,10)
  268. 60040 EX$="0123456789"
  269. 60049 REM            RIGHT BUS COMMENTS
  270. 60060 C$(1)="YEP"+CHR$(7):C$(2)="O.K."+CHR$(7)+CHR$(7)
  271. 60070 C$(3)="THAT'S MINE"+CHR$(7)+CHR$(7):C$(4)="RIGHT ON"+CHR$(7)+CHR$(7)
  272. 60080 C$(5)="WHY NOT"+CHR$(7)+CHR$(7):C$(6)="SURE IS"+CHR$(7)+CHR$(7)
  273. 60090 C$(7)="KEERECT"+CHR$(7)+CHR$(7):C$(8)="BRAVO"+CHR$(7)+CHR$(7)
  274. 60100 C$(9)="CERTAINLY"+CHR$(7)+CHR$(7)+CHR$(7)
  275. 60103 :
  276. 60105 REM            WRONG BUS COMMENTS
  277. 60110 C$(10)="OKEE DOKEE"+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  278. 60120 CO$(1)="NOPE"+CHR$(7):CO$(2)="NOT THIS ONE"+CHR$(7)+CHR$(7)+CHR$(7)
  279. 60130 CO$(3)="WRONG BUS"+CHR$(7)+CHR$(7):CO$(4)="GOLLY GEE"+CHR$(7)+CHR$(7)
  280. 60140 CO$(5)="SORRY WRONG NUMBER"+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  281. 60150 CO$(6)="%&*#$#"+CHR$(7):CO$(7)="TRY AGAIN"+CHR$(7)+CHR$(7)+CHR$(7)
  282. 60160 CO$(8)="NOT AGAIN"+CHR$(7)+CHR$(7):CO$(9)="NEVER"+CHR$(7)+CHR$(7)
  283. 60170 CO$(10)="UNBELIEVABLE"+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  284. 60180 :
  285. 60255 REM             NICE JOB COMMENTS
  286. 60260 FI$(1)="THERE"+CHR$(7):FI$(2)="DONE"+CHR$(7)
  287. 60270 FI$(3)="FINISHED"+CHR$(7)+CHR$(7):FI$(4)="BRAVO"+CHR$(7)+CHR$(7)
  288. 60280 FI$(5)="I'M TIRED"+CHR$(7)+CHR$(7):FI$(6)="NICE JOB"+CHR$(7)+CHR$(7)
  289. 60290 FI$(7)="KEEP IT UP"+CHR$(7)+CHR$(7)+CHR$(7)
  290. 60300 FI$(8)="WHEW!"+CHR$(7):FI$(9)="HOW'S THAT"+CHR$(7)+CHR$(7)
  291. 60310 FI$(10)="IT'S HOT"+CHR$(7)+CHR$(7)
  292. 60320 W1$=  " [213][195][195][195][201] [157][157][157][157][157][157][157] [194]"
  293. 60330 W2$="[188][194][160][157][157][157][157][157][157][157] [202][209][195][209][203] "
  294. 60340 W4$="[213][195][195][195][201][157][157][157][157][157][194]"
  295. 60350 W5$="[188][194][157][157][157][157][157][202][209][195][209][203]"
  296. 60360 LI$="[157][157][157][157][157][166][166][166][166][166][166][157][157][157][157][157][157]      "
  297. 60530 GG$(1)="YEP"+CHR$(7)
  298. 60540 GG$(2)="O.K."+CHR$(7)+CHR$(7)
  299. 60550 GG$(3)="THAT'S MINE"+CHR$(7)+CHR$(7)
  300. 60560 GG$(4)="RIGHT ON"+CHR$(7)+CHR$(7)
  301. 60570 GG$(5)="WHY NOT"+CHR$(7)+CHR$(7)
  302. 60580 GG$(6)="SURE IS"+CHR$(7)+CHR$(7)
  303. 60590 GG$(7)="KEERECT"+CHR$(7)+CHR$(7)
  304. 60600 GG$(8)="OKEE DOKEE"+CHR$(7)+CHR$(7)+CHR$(7)+CHR$(7)
  305. 60610 GG$(9)="YUPP"+CHR$(7)
  306. 60620 GG$(10)="CERTAINLY"+CHR$(7)+CHR$(7)+CHR$(7)
  307. 60670 GG$(11)="BRAVO"+CHR$(7)+CHR$(7)
  308. 60680 S=1:GOSUB50000:PRINTLO$"           "
  309. 60700 WH$="[213][195][195][195][195][195][201] [157][157][157][157][157][157][157][157][157] [194][190]WHEN[200] [157][157][157][157][157][157][157][157][202][195][209][195][195][209][203] "
  310. 60710 AR$="[204]A[186] [157][157][157][209] "
  311. 60720 QU$="[213][195][195][195][195][195][195][195][195][195][201] [157][157][157][157][157][157][157][157][157][157][157][157][194][162][146]QUESTION[200] [157][157][157][157][157][157][157][157][157][157][157][157][202][195][209][195][209][195][195][209][195][209][203] "
  312. 60730 TH$="[213][195][195][195][195][201][157][157][157][157][157][157][200][190]THE[200][157][157][157][157][157][157][202][209][195][195][209][203] [145][157] [145][157] "
  313. 60740 BS$="[213][195][195][195][195][201][157][157][157][157][157][157][200][190]BUS[200][157][157][157][157][157][157][202][209][195][195][209][203] [145][157] [145][157] "
  314. 60750 BA$="[213][195][195][195][195][195][195][201][157][157][157][157][157][157][157][157][194][162][146]BARNS[200][157][157][157][157][157][157][157][157][202][195][209][195][195][209][195][203] [145][157] [145][157] "
  315. 60760 BY$="[213][195][195][195][201][157][157][157][157][157][200][190]BY[200][157][157][157][157][157][202][209][195][209][203] [145][157] [145][157] "
  316. 60770 AL$="[213][195][195][195][195][195][195][201][157][157][157][157][157][157][157][157][194][162][146]ALICE[200][157][157][157][157][157][157][157][157][202][195][209][195][195][209][195][203] [145][157] [145][157] "
  317. 60900 RETURN
  318. 61000 REM                          MENU
  319. 61005 GT=0
  320. 61010 WO$="WOULD YOU LIKE "
  321. 61020 AD$="ADDITION "
  322. 61030 SU$="SUBTRACTION "
  323. 61040 MU$="MULTIPLICATION "
  324. 61060 M$=WO$+AD$:GOSUB61500
  325. 61070 IFZ$="Y"THENTT=1:RETURN
  326. 61080 M$=WO$+SU$:GOSUB61500
  327. 61100 IFZ$="Y"THENTT=2:RETURN
  328. 61110 M$=WO$+MU$:GOSUB61500
  329. 61120 IFZ$="Y"THENTT=3:RETURN
  330. 61150 GOTO61000
  331. 61500 REM              CHECK FOR Y OR N
  332. 61510 R$(0)="":R$(1)="[146]"
  333. 61520 CH$="YN":D$=CHR$(63)
  334. 61530 M=LEN(M$)
  335. 61540 PRINT"[147]"LEFT$(CC$,10)TAB(20-M/2)M$;
  336. 61550 PRINTLEFT$(CC$,10)TAB(20-M/2+M)R$(K)D$
  337. 61560 GETZ$:K=1-K
  338. 61565 IFZ$=""THEN61550
  339. 61570 IF Z$=CHR$(13)THEN61550
  340. 61580 IFZ$=CHR$(63)THEN61550
  341. 61590 FORJ=1TOLEN(CH$):IFMID$(CH$,J,1)=Z$THENJ=100
  342. 61600 NEXTJ:RETURN
  343. 62000 REM                         TITLE
  344. 62060 PRINT"[147]"
  345. 62070 S=1:GOSUB50000
  346. 62080 FOR J=34TO8STEP-1
  347. 62090 PRINT""TAB(J)TH$:NEXTJ
  348. 62100 PRINTCHR$(7):GOSUB50000
  349. 62110 FOR J=34TO16STEP-1
  350. 62120 PRINT""TAB(J)BS$:NEXTJ
  351. 62130 PRINTCHR$(7):GOSUB50000
  352. 62140 FOR J=32TO24STEP-1
  353. 62150 PRINT""TAB(J)BA$:NEXTJ
  354. 62160 PRINTCHR$(7):GOSUB50000
  355. 62170 FOR J=35TO16STEP-1
  356. 62180 PRINT""TAB(J)BY$:NEXTJ
  357. 62190 PRINTCHR$(7):GOSUB50000
  358. 62200 FOR J=32TO15STEP-1
  359. 62210 PRINTLEFT$(CC$,16)TAB(J)AL$:NEXTJ
  360. 62220 PRINTCHR$(7)CHR$(7)
  361. 62230 S=20:GOSUB50000:S=.1
  362. 62240 RETURN
  363. 62730 FL$="[213][195][195][195][195][195][195][195][195][201] [157][157][157][157][157][157][157][157][157][157][157][200][162][146]FLASHES[200] [157][157][157][157][157][157][157][157][157][157][157][202][195][209][195][195][195][195][195][209][203] "
  364. 62740 TY$="[213][195][195][195][195][195][201] [157][157][157][157][157][157][157][157][194][190]TYPE[200] [157][157][157][157][157][157][157][157][157] [202][209][195][195][195][209][203]"
  365. 62750 AN$="[213][195][195][195][195][195][195][195][201] [157][157][157][157][157][157][157][157][157][157][200][162][146]ANSWER[200] [157][157][157][157][157][157][157][157][157][157][202][195][209][195][195][195][195][209][203] "
  366. 62760 IN$="[207][163][163][208] [157][157][157][157][157][165]IN[167] [157][157][157][157][157][163][209][209][163]"
  367. 63000 REM              PASSWORD ROUTINE
  368. 63010 S=1:GOSUB50000
  369. 63020 PRINT"[147]"
  370. 63030 PRINTLEFT$(CC$,10)TAB(9)"WHAT IS THE PASSWORD"
  371. 63040 GETZ$:IFZ$=""THEN63040
  372. 63050 IFZ$<>CHR$(78)THEN GOSUB63200:GOTO63020
  373. 63060 GETZ$:IFZ$=""THEN63060
  374. 63070 IFZ$<>CHR$(72)THENGOSUB63200:GOTO63020
  375. 63080 GETZ$:IFZ$=""THEN63080
  376. 63090 IFZ$<>CHR$(79)THENGOSUB63200:GOTO63020
  377. 63100 GETZ$:IFZ$=""THEN63100
  378. 63110 IFZ$<>CHR$(74)THENGOSUB63200:GOTO63020
  379. 63120 RETURN
  380. 63200 REM                 MUSIC ROUTINE
  381. 63210 RESTORE
  382. 63220 PRINT
  383. 63230 PRINT
  384. 63240 POKE59467,16:REM 16
  385. 63250 POKE59466,127:REM127
  386. 63260 POKE59467,16:REM 16
  387. 63270 POKE59464,0
  388. 63280 READ P,T,L$:PRINTL$;
  389. 63290 POKE59464,P
  390. 63300 IFT=0THENRETURN
  391. 63310 FORX=1TOT:NEXT
  392. 63320 POKE59464,0:GOTO63280
  393. 63330 DATA 78,500,"OH "
  394. 63340 POKE59464,P
  395. 63350 DATA 93,250,"NO ",118,250,"JOHN, "
  396. 63360 DATA 105,250,"NO ",125,250,"JOHN, "
  397. 63370 DATA 118,100,"N-",125,150,"O "
  398. 63380 DATA 160,250,"JOHN, ",118,500,"NO",0,0,"."
  399. 63390 FOR D=1TOT:NEXT:NEXTM
  400. 63400 NEXTM
  401. 63410 POKE59467,0:POKE59464,0
  402. 63420 RETURN
  403. 63500 PRINT"[147]PLEASE TYPE YOUR NAME.";
  404. 63510 INPUTKD$
  405. 63520 RETURN
  406.