home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PT-PEPPER-B (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.3 KB  |  449 lines
  1. 10 POKE646,2:POKE53280,1:POKE53281,1
  2. 100 PRINT"[147]"
  3. 105 DIMW$(17), X$(17),Y$(17),Z$(17),A1(17),P(17),N(17),WW$(50)
  4. 110 GOSUB31500:FORX=1TO1400:NEXTX
  5. 120 PRINT"[147]":GOSUB33100:FORX=1TO1400:NEXTX
  6. 130 PRINT"[147]":GOSUB33000
  7. 140 PRINT:PRINT"[144]PRESS SPACE BAR TO CONTINUE"
  8. 150 GETAA$:IFAA$=""THEN150
  9. 170 IFAA$=" "THENPRINT"[147]"
  10. 180 IFAA$<>" "THEN150
  11. 200 GOSUB31500
  12. 205 RESTORE:MN$="":K=0:B=0:C=0
  13. 210 PRINT"[144]PRESS SPACE BAR TO START"
  14. 220 GETAA$:IFAA$=""THEN220
  15. 225 IFAA$=" "THENPRINT"[147]"
  16. 230 IFAA$<>" "THEN220
  17. 250 PRINT"ENTER YOUR FIRST NAME AND"
  18. 255 PRINT:PRINT"[144]PRESS SPACE BAR.":PRINT""
  19. 260 GETNA$:IF NA$=""THEN260
  20. 265 MN$=MN$+NA$:PRINTNA$;
  21. 270 IF NA$<>" "THEN260
  22. 273 PRINT"   [165][167]
  23. 275 [139] NA$[178]" "[167] [153]"LOADSTOP HI, ";MN$
  24. 280 [141]30010
  25. 285 [129]X[178]1[164]3000:[130]X:[153]"LOAD"
  26. 330 [129]N[178]1 [164]17
  27. 340 [135] W$(N), X$(N), Y$(N),Z$(N),A1(N)
  28. 350 [130]N:[129]N[178]1[164]17:P(N)[178]N:[130]N
  29. 390 [129]N[178]1[164]17:R[178][181]([187](.)[172]17)[170]1:T[178]P(N):P(N)[178]P(R):P(R)[178]T
  30. 395 [130]N
  31. 400 [129]N[178]1[164]17
  32. 696 [153]"                    "
  33. 697 [153]"                    "
  34. 698 [153]"                    "
  35. 700 [153]"                                       "
  36. 701 [153]"                    "
  37. 702 [153]"                    "
  38. 703 [153]"                     "
  39. 704 [153]"                     "
  40. 705 [153]"                     "
  41. 706 [153]"                     "
  42. 707 [153]"                     "
  43. 708 [153]"                     "
  44. 709 [153]"                     "
  45. 710 [153]"                     "
  46. 711 [153]"                    "
  47. 712 [153]"                    "
  48. 713 [153]"                    "
  49. 714 [153]"               "
  50. 715 [153]"               "
  51. 716 [153]"               "
  52. 717 [153]"               "
  53. 718 [153]"               "
  54. 719 [153]"               "
  55. 720 [153]"              ";
  56. 754 [139]W$(P(N))[178]"KICK"[167][141]7370
  57. 755 [139]W$(P(N))[178]"WEB"[167][141]7560
  58. 756 [139]W$(P(N))[178]"QUACK"[167][141]7165
  59. 757 [139]W$(P(N))[178]"VAN"[167][141]7380
  60. 758 [139]W$(P(N))[178]"YELL"[167][141]7437
  61. 759 [139]W$(P(N))[178]"ZIP"[167][141]7460
  62. 760 [139]W$(P(N))[178]"KIT"[167][141]7486
  63. 761 [139]W$(P(N))[178]"WIG"[167][141]7400
  64. 762 [139]W$(P(N))[178]"ROD"[167][141]7520
  65. 763 [139]W$(P(N))[178]"VET"[167][141]7288
  66. 764 [139]W$(P(N))[178]"YES"[167][141]7500
  67. 769 [139]W$(P(N))[178]"HAT"[167][141]7080
  68. 770 [139]W$(P(N))[178]"JET"[167][141]7388
  69. 771 [139]W$(P(N))[178]"CAT"[167][141]7413
  70. 776 [139]W$(P(N))[178]"HILL"[167][141]7540
  71. 778 [139]W$(P(N))[178]"JUG"[167][141]7040
  72. 779 [139]W$(P(N))[178]"CAN"[167][141]7600
  73. 790 [161]AA$
  74. 800 [139][197](AA$)[177]0[167]790
  75. 805 [136]C[178]C[170]1
  76. 810 [153]"";
  77. 820 [153]"STOP   1. ";X$(P(N)):[153]
  78. 830 [153]"STOP   2. ";Y$(P(N)):[153]
  79. 840 [153]"STOP   3. ";Z$(P(N));
  80. 850 [161]AA$:[139]AA$[178]""[167]850
  81. 854 [139]AA$[178]"1"[167]860
  82. 855 [139]AA$[178]"2"[167]860
  83. 856 [139]AA$[178]"3"[167]860
  84. 857 [137]850
  85. 860 [139][197](AA$)[178]A1(P(N))[167]K[178]K[170]1:[141]2001:[141]970:[137]880
  86. 870 [139][197](AA$)[179][177]A1(P(N))[167] [141]900:[153]"";W$(P(N));"  "
  87. 875 [139][197](AA$)[179][177]A1(P(N))[167]WW$(N)[178]W$(P(N)):[129]I[178]1[164]500:[130]I
  88. 880 [129]I[178]1[164]1500:[130]I
  89. 882 [139]K[177][178]13[167][129]I[178]1[164]50:[141]31034:[141]31030:[130]I:[141]981
  90. 888 [139]K[177][178]13[167][153]"LOAD":[137]200
  91. 890 [130]N
  92. 895 [139]K[179][178]13[167][140]:[137]330
  93. 900 [139]A1(P(N))[178]3[167][153]"CMDCMDCMDCMD";:[142]
  94. 905 [139]A1(P(N))[178]2[167][153]"CMDCMDCMDCMDONON";:[142]
  95. 910 [139]A1(P(N))[178]1[167][153]"CMDCMDCMDCMDCMDONONONON";:[142]
  96. 970 AB[178][181]([187](.)[172]7)[170]1
  97. 971 [139]AB[178]1[167]AB$[178]"STOPGOOD"
  98. 972 [139]AB[178]2[167]AB$[178]"STOPFINE"
  99. 973 [139]AB[178]3[167]AB$[178]"STOPGREAT"
  100. 974 [139]AB[178]4[167]AB$[178]"STOPO K"
  101. 975 [139]AB[178]5[167]AB$[178]"STOPWOW"
  102. 976 [139]AB[178]6[167]AB$[178]"STOPNICE"
  103. 977 [139]AB[178]7[167]AB$[178]"STOPSUPER"
  104. 980 [153]""[163]25);AB$:[142]
  105. 981 [139]C[178]13[167][153]"LOADGREAT JOB, STOP";MN$:[141]30010:[129]I[178]1[164]5000:[130] I
  106. 982 [139]C[178]13[167] [142]
  107. 983 [153]"LOADP.T. PEPPER WOULD LIKE FOR YOU"
  108. 984 [153]"TO PRACTICE THESE WORDS. WRITE"
  109. 985 [153]"THEM ON A PIECE OF PAPER, AND"
  110. 986 [153]"DRAW A PICTURE OF EACH WORD.":[153]:[153]
  111. 992 [129] N[178]1[164] C
  112. 993 [139] WW$(N)[178]""[167]997
  113. 994 [153]"";WW$(N),
  114. 995 B[178]B[170]1:WW$(N)[178]""
  115. 996 [139]B[178]4[167]B[178]0:[153]
  116. 997 [130] N
  117. 999 [153]:[153]:[153]"STOPPRESS SPACE BAR TO CONTINUE"
  118. 1000 [161]AA$:[139]AA$[178]""[167]1000
  119. 1001 [139]AA$[178]" "[167] [142]
  120. 1002 [139]AA$[179][177]" "[167]1000
  121. 2001 [139]K[178]1[167][137]31140
  122. 2002 [139]K[178]2[167][137]31130
  123. 2003 [139]K[178]3[167][137]31120
  124. 2004 [139]K[178]4[167][137]31110
  125. 2005 [139]K[178]5[167][137]31100
  126. 2006 [139]K[178]6[167][137]31090
  127. 2007 [139]K[178]7[167][137]31080
  128. 2008 [139]K[178]8[167][137]31070
  129. 2009 [139]K[178]9[167][137]31050
  130. 2010 [139]K[178]10[167][137]31040
  131. 2011 [139]K[178]11[167][137]31030
  132. 2012 [139]K[178]12[167][137]31020
  133. 2013 [139]K[178]13[167][137]31010
  134. 2014 [139]K[177][178]14[167][142]
  135. 6015 [131]"KICK",KICK,KECK,KUCK,1
  136. 6016 [131]"WEB",WIB,WEB,WUB,2
  137. 6017 [131]"QUACK",QUACK,QUICK,QUOCK,1
  138. 6018 [131]"VAN",VON,VUN,VAN,3
  139. 6019 [131]"YELL",YELL,YILL,YULL,1
  140. 6020 [131]"ZIP",ZAP,ZOP,ZIP,3
  141. 6021 [131]"KIT",KET,KIT,KOT,2
  142. 6022 [131]"WIG",WIG,WOG,WAG,1
  143. 6023 [131]"ROD",RID,ROD,RED,2
  144. 6024 [131]"VET",VIT,VET,VOT,2
  145. 6025 [131]"YES",YAS,YIS,YES,3
  146. 6030 [131]"HAT",HIT,HOT,HAT,3
  147. 6031 [131]"JET",JET,JOT,JUT,1
  148. 6032 [131]"CAT",CUT,CAT,COT,2
  149. 6037 [131]"HILL",HULL,HILL,HOLL,2
  150. 6039 [131]"JUG",JAG,JEG,JUG,3
  151. 6040 [131]"CAN",CUN,CON,CAN,3
  152. 7040 [153]"VERIFY        TOTOTO"
  153. 7041 [153]"       FNTHENWAIT  FN"
  154. 7042 [153]"     STEPTAB(  TAB((null)WAITFN"
  155. 7043 [153]"    STEP      (null)"
  156. 7044 [153]"    FN      THEN"
  157. 7045 [153]"    FN      THEN"
  158. 7046 [153]"    FN      THEN"
  159. 7047 [153]"    FNTOTOTOTOTOTOTHENSTOP"
  160. 7048 [142]
  161. 7080 [153]"       TOTOTOTOTOTO"
  162. 7081 [153]"      STEP      (null)"
  163. 7082 [153]"      FN      +"
  164. 7083 [153]"      FN      +"
  165. 7084 [153]"      FN      +"
  166. 7085 [153]" WAITSTOP    THENSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(FN"
  167. 7086 [153]"     THENSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(FN"
  168. 7087 [153]"   FNTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(THEN"
  169. 7088 [153]"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( "
  170. 7089 [142]
  171. 7165 [153]"            TOTO"
  172. 7166 [153]"           STOP(null)  (null)"
  173. 7167 [153]"          THEN    (null)   (null)STOP"
  174. 7168 [153]"      TOTOTOTOTHEN   * STEP (null)STOP"
  175. 7169 [153]"  THEN(null)TO(null)    (null)(null)    (null)WAIT LENLENSTOP"
  176. 7170 [153]"  THEN        TAB(  TO(null)  (null)STOP"
  177. 7171 [153]"  THEN          THEN     "
  178. 7172 [153]"(null)WAITSTOP  (null)         (null)  STEP(null)"
  179. 7173 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  180. 7174 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  181. 7175 [142]
  182. 7288 [153]"STOP       TOTOTOTO"
  183. 7289 [153]"      (null)    (null)"
  184. 7290 [153]"    POKE STEP  WAIT(null)(null)  (null)WAIT"
  185. 7291 [153]"   FOR (null)FN(null)(null)TAB(TAB((null)(null) (null)FN"
  186. 7292 [153]"    (null)FN()  ()FOR (null)FN"
  187. 7293 [153]"     FN  THENFN   FN"
  188. 7294 [153]"     FN (null)TOTO(null)  FN"
  189. 7295 [153]"     (null)TOTOTOTOTOTO(null)"
  190. 7296 [142]
  191. 7370 [153]"         TOSQRTAB("
  192. 7371 [153]" VERIFYSTEPTAB((null)WAIT    (null) THEN"
  193. 7372 [153]"VERIFYTHENSPC(SPC(SPC(FNCLOSECLOSE(null)CLOSETOSQR"
  194. 7373 [153]" VERIFY(null)TOWAITSTEP(null)(null)STEP(null)WAIT(null) THENTO"
  195. 7374 [153]"    (null) (null)STEP"
  196. 7375 [153]"     (null)(null)"
  197. 7376 [142]
  198. 7380 [153]"STOP      *TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(RND"
  199. 7381 [153]"      +    LONG    THEN"
  200. 7382 [153]"  *TAB(TAB(TAB(+  DISTANCE  THEN"
  201. 7383 [153]"  +*RND +   MOVING   THEN"
  202. 7384 [153]"  +FREFRE +            THEN"
  203. 7385 [153]" COS TAB(TAB(TO+ POSPOS      POSPOS THEN"
  204. 7386 [153]"  STOP SPC(SPC( TAB(TAB(SPC(SPC(TAB(TAB(TAB(TAB(TAB(TAB(SPC(SPC(TAB(TAB("
  205. 7387 [142]
  206. 7388 [153]"     (null)TAB(TAB((null)"
  207. 7389 [153]"(null)(null)   TAB((null)  (null)"
  208. 7390 [153]"FN (null)    (null)  (null)"
  209. 7391 [153]"FN  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)WAIT"
  210. 7392 [153]"FNCLOSECLOSECLOSECLOSECLOSECLOSECLOSETOTOTO    (null)"
  211. 7393 [153]"(null)TOTOTOTOTOTO(null)  (null)    THEN"
  212. 7394 [153]"      (null)  (null)TAB(TAB(TAB(TAB(TAB(TAB("
  213. 7395 [153]"     (null)CLOSECLOSE(null)"
  214. 7396 [153]"    (null)  (null)"
  215. 7397 [153]"    TAB(TAB(TAB("
  216. 7398 [142]
  217. 7400 [153]"    STOPSTEPTAB(TAB(TAB(TAB((null)WAIT      (null)STOP"
  218. 7401 [153]"   STEP      (null)WAIT    (null)STOP"
  219. 7402 [153]"   FN *NEWNEWRNDCLOSEABSWAIT  THEN(null)STOP"
  220. 7403 [153]"   FNCLOSEABSWAITCLOSECLOSEGETCLOSETHENWAIT  CLOSETAB(STOP"
  221. 7404 [153]"   FNCLOSEABSWAITCLOSECLOSEGETCLOSEABS"
  222. 7405 [153]" *ABSFNCLOSEABSWAITCLOSECLOSEGETCLOSE+INTRND"
  223. 7406 [153]" THENCLOSECLOSECLOSEABSWAITCLOSECLOSEGETCLOSECLOSECLOSEFN"
  224. 7407 [153]" LOGTOTOTOABSWAITCLOSECLOSEGETTOTOTOCOS"
  225. 7408 [153]"     (null)CLOSECLOSE(null)"
  226. 7409 [153]"      (null)SQR"
  227. 7410 [142]
  228. 7413 [153]"SYS    (null)(null)CLOSECLOSECLOSECLOSE(null)(null)"
  229. 7414 [153]"   (null)(null)(null)(null)TOTO(null)(null)(null)(null)"
  230. 7415 [153]"   FN TOTO  TOTO THEN"
  231. 7416 [153]"   FNTHEN STEPWAIT THEN STEPWAIT THEN"
  232. 7417 [153]"   FNTHENSTEP WAIT THENSTEP WAIT THEN"
  233. 7418 [153]"   FNTOTOTO(null)STEPTOTOTOTHEN"
  234. 7419 [153]"   FN  (null)THEN (null)  THEN"
  235. 7420 [153]"   (null)CLOSE(null)TO(null)(null)TO(null)CLOSE(null)"
  236. 7421 [153]"    (null)TOTOTOTOTOTO(null)"
  237. 7422 [142]
  238. 7437 [153]"STOP    STEP   (null)WAIT"
  239. 7438 [153]"   STEP  WAITSTEPTOTHEN "
  240. 7439 [153]"      WAIT *THEN "
  241. 7440 [153]"    WAIT( WAIT TO (null)   (null)STOP"
  242. 7441 [153]"   STEP  (null) (null).SGN (null)STOP"
  243. 7442 [153]"   FN  FN  USR LENLENLENLENLENLENSTOP"
  244. 7443 [153]"   (null)  (null)TO(null)FN  (null)STOP"
  245. 7444 [153]"    (null)   (null)    (null)STOP"
  246. 7445 [153]"     (null)TAB((null)"
  247. 7446 [142]
  248. 7460 [153]"   (null)(null)     (null)(null)"
  249. 7461 [153]"   (null)(null)(null)  WAIT (null)(null)(null)"
  250. 7462 [153]"    (null)(null)(null) WAIT(null)(null)(null)"
  251. 7463 [153]"     (null)(null)TO(null)(null)"
  252. 7464 [153]"      (null)CLOSE(null)"
  253. 7465 [153]"       (null)FN"
  254. 7466 [153]"       (null)FN"
  255. 7467 [153]"       (null)FN"
  256. 7468 [153]"       (null)FN"
  257. 7469 [153]"       (null)FN"
  258. 7470 [153]"       (null)FN"
  259. 7471 [153]"       TAB("
  260. 7472 [142]
  261. 7486 [153]"STOP       (null)(null)"
  262. 7487 [153]"   (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)"
  263. 7488 [153]"  THENCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEFN"
  264. 7489 [153]"  THENTOTOTOTO(null)(null)TOTOTOTOFN"
  265. 7490 [153]"  THEN          FN"
  266. 7491 [153]"  THEN      WAITSTOP    FN"
  267. 7492 [153]"  THEN       WAITSTOP   FN"
  268. 7493 [153]"  THEN       WAITSTOP   FN"
  269. 7494 [153]"  THEN      WAITSTOP    FN"
  270. 7495 [153]"   (null)TOTOTOTOTOTOTOTO(null)"
  271. 7496 [142]
  272. 7500 [153]"STOPSTEP     (null)WAIT"
  273. 7501 [153]" WAITSTEP   (null) WAIT     (null)TAB(TAB(TAB(TAB(TAB(TAB((null)"
  274. 7502 [153]" WAIT      WAIT    (null)        FN"
  275. 7503 [153]" WAIT(null) WAITLEN WAIT(null) WAIT   (null)(null)TAB((null) THEN (null)STOP CLOSEFN"
  276. 7504 [153]" WAIT  .   WAIT (null)TAB( FN THEN THEN(null)STOP   FN"
  277. 7505 [153]"THEN (null)TO(null)CLOSEFN (null)TO FNCLOSETHEN THEN(null)STOPCLOSECLOSECLOSEFN"
  278. 7506 [153]" (null)TOTOTO(null)    (null)(null)TO(null).THEN (null).STOP FN"
  279. 7507 [153]" SQR   (null)     (null)       (null)"
  280. 7508 [153]"(null)     (null)     TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  281. 7510 [142]
  282. 7520 [153]"VERIFY        "
  283. 7526 [153]"    FN    TOTO "
  284. 7527 [153]"    FN   VERIFYSTEPWAITSTEP FN"
  285. 7528 [153]"   (null)(null)  VERIFYSTEPWAITSTEPSAVE  FN"
  286. 7529 [153]"      VERIFYSTEPWAITSTEPSAVE   FN"
  287. 7530 [153]"     STEPWAITSTEP    FN"
  288. 7531 [153]"    STEPWAITSTEP     (null)TOTOTOTOTOTOVERIFY"
  289. 7532 [153]"   STEPWAITSTEP     (null)SGN  TO   (null)VERIFY"
  290. 7533 [153]"  STEPWAITSTEP     THEN (null)FN(null)*(null)(null)FNTHENVERIFY"
  291. 7534 [153]" STEPWAITSTEP      THEN   (null)TO(null)(null)FNTHENVERIFY"
  292. 7535 [153]"STEPWAITSTEP        (null)TOTOTOTOTOTOTO(null)"
  293. 7536 [153]"TAB(
  294. 7537 RETURN
  295. 7540 PRINT"[149]    [169] [223][146]"
  296. 7541 PRINT"    [167] [165]"
  297. 7542 PRINT"    [161] [146][161] [144]    [206]"
  298. 7543 PRINT"   [169][163][163][163][223][146][144]  [223][146][144][206]"
  299. 7544 PRINT"  [169]     [223][146][144]  [223][146]   [213][201][213][201]"
  300. 7545 PRINT" [169]       [223][146]     [202][203][202][203]"
  301. 7546 PRINT"[169]         [223][146]    [161][146][161][161][146][161]"
  302. 7547 PRINT"           [223][146]   [171][179][169][223][146]"
  303. 7548 PRINT"            [223][146]  [221][221][221][221]"
  304. 7549 PRINT"             [163][163][163][163][163][163][163]"
  305. 7550 RETURN
  306. 7560 PRINT"       [167]"
  307. 7561 PRINT"       [223][169][144]"
  308. 7564 PRINT"      [165]  [167]   "
  309. 7565 PRINT"    [205][206][207][208][163][208][205][206]"
  310. 7566 PRINT"    [206][205][204][186][164][186][206][205]"
  311. 7567 PRINT"  [205][206] [206]    [205] [205][206]"
  312. 7568 PRINT"  [167][205][206] [208] [207]  [205][206][165]"
  313. 7569 PRINT"  [167] [165][208][206][163][205][207] [167] [165]"
  314. 7570 PRINT"  [195][195][195][207][165]  [165] [167] [165]"
  315. 7571 PRINT"  [167][167] [208][205][164][206][204] [167] [165]"
  316. 7572 PRINT"  [167][206][205][163][186] [204]  [206][205][165]"
  317. 7573 PRINT"  [206][205] [205][164][164][164][164][206] [206][205]"
  318. 7574 PRINT"    [205][206][165][167] [167][205][206]"
  319. 7575 PRINT"    [206][205][204][186][164][186][206][205]"
  320. 7576 PRINT"      [165]  [167]   "
  321. 7578 RETURN
  322. 7600 PRINT"[154]     [164][164][164][164]"
  323. 7601 PRINT"    [206][195][195][195][195][205]"
  324. 7602 PRINT"   [206][213][162][187]   [205]"
  325. 7603 PRINT"  [167][205][202][162][146][190]   [206][165]
  326. 7604 [153]"  THEN TAB(TAB(TAB(TAB(TAB(TAB( FN"
  327. 7605 [153]"  THEN STR$STR$STR$STR$STR$STR$ FN"
  328. 7606 [153]"  THEN (null)FNCONT  (null)  FNSTEPWAITTOCONT"
  329. 7607 [153]"  THEN (null) (null)FNCONT   FN(null)CONT"
  330. 7608 [153]"  THEN   (null)FN(null)FNCONT FN"
  331. 7609 [153]"  THEN (null)   (null)CONT  FN"
  332. 7610 [153]"  THEN      (null) FN"
  333. 7611 [153]"  THEN   (null)    FN"
  334. 7612 [153]"   (null)LENLENLENLENLENLENWAITCONT(null)"
  335. 7613 [153]"    TAB(TAB(TAB(TAB(TAB(TAB("
  336. 7615 [142]
  337. 30000 [128]
  338. 30010 [153] [163]16)"VERIFYTO  TO"
  339. 30020 [153] [163]15)"THENSTEP  (null)WAITFN"
  340. 30030 [153] [163]15)"(null)+(null)STEP+(null)"
  341. 30040 [153] [163]14)"(null)  STEP(null)WAIT  (null)    TO(null)(null)
  342. 30050 PRINTTAB(14)"[208][206][223][202][203][146][169][205][207]   [169][223][146] [167]"
  343. 30070 PRINTTAB(14)"[187]    [146]  [172]  [169]   [146][169]"
  344. 30080 PRINTTAB(13)"          [146] [165] [223] [146]"
  345. 30090 PRINT TAB(16)"    [146]   [206]   [206]"
  346. 30100 PRINT TAB(16)"    [146]  [169] [223][146] [206]"
  347. 30110 PRINT TAB(15)"[169]    [223][146]     "
  348. 30120 PRINT TAB(14)"[169]      [223]    "
  349. 30130 PRINT TAB(14)"        [146]   [223]"
  350. 30140 PRINT TAB(13)"    [146][169][223]    [146][164][164][206]"
  351. 30150 RETURN
  352. 31010 PRINT"[149]"TAB(24)"[164]  [164]"
  353. 31012 RETURN
  354. 31019 .
  355. 31020 PRINT"[149]"TAB(23)"[167][169]  [223][146][165]"
  356. 31022 RETURN
  357. 31030 PRINT"[149]"TAB(23)"[206]+[149][223][169]+[149][205]"
  358. 31032 RETURN
  359. 31034 FORN=1TO15:NEXTN
  360. 31035 PRINT"[149]"TAB(23)"[206] [223][169] [205]"
  361. 31036 RETURN
  362. 31040 PRINT"[149]"TAB(22)"[206]  [169][223][146]  [205]    [164][206][205]
  363. 31042 [142]
  364. 31050 [153]"VERIFY"[163]22)"(null)(null)(null)MID$(null)WAITSTEP(null)(null)   STEP(null)WAIT THEN"
  365. 31052 [142]
  366. 31070 [153]"VERIFY"[163]22)"RND    WAIT  *  STEP   WAITSTEP"
  367. 31072 [142]
  368. 31080 [153]"VERIFY"[163]20)"THEN          WAIT FN (null) WAIT"
  369. 31082 [142]
  370. 31090 [153]"VERIFY"[163]24)"    WAIT   (null)   (null)"
  371. 31092 [142]
  372. 31100 [153]"VERIFY"[163]24)"    WAIT  STEP (null)WAIT (null)"
  373. 31102 [142]
  374. 31110 [153]"VERIFY"[163]23)"STEP    (null)WAIT     "
  375. 31112 [142]
  376. 31120 [153]"VERIFY"[163]22)"STEP      (null)    "
  377. 31122 [142]
  378. 31130 [153]"VERIFY"[163]22)"        WAIT   (null)"
  379. 31132 [142]
  380. 31140 [153]"VERIFY"[163]21)"    WAITSTEP(null)    WAITTOTO(null)"
  381. 31142 [142]
  382. 31500 [153]"    (null)STEPWAITTAB(TAB(TAB((null)TOTOSTEP   (null)STEP WAITTAB(TAB((null)TOSTEP    (null)WAIT(null)TAB(TAB(TAB((null)   WAIT"
  383. 31501 [153]"       (null)WAIT    (null)        WAIT         (null)WAIT       WAIT"
  384. 31502 [153]"       WAIT            WAITSTEP          WAIT       WAIT"
  385. 31503 [153]"THEN(null)  WAITSTEP(null)  WAITTO(null)TAB((null)TO(null)(null)  WAITSTEPTAB(TAB((null)TOTOTO(null)TAB(TAB((null)   (null)WAIT(null)TAB((null)(null) WAITSTEP"
  386. 31504 [153]"THEN (null) WAIT"; [163]34)"(null)  FN"
  387. 31505 [153]"THEN   FN";[163]33)"THEN   FN"
  388. 31506 [153]"THEN   (null)";[163]33)"THEN   (null)"
  389. 31507 [153]" (null)  THEN";[163]33)" (null)   FN"
  390. 31508 [153]" (null)  THEN";[163]35)"  (null)WAITFN"
  391. 31509 [153]"THEN   THEN";[163]34)"STEP  WAITSTEP"
  392. 31510 [153]"THEN   (null)";[163]34)"   (null)WAIT"
  393. 31511 [153]"THEN  (null)WAITFN";[163]34)"    WAIT"
  394. 31513 [153]"THEN   (null)WAIT";[163]34)"(null)   WAIT"
  395. 31514 [153]" (null)   WAIT";[163]34)"THEN  (null)"
  396. 31515 [153]" THEN   WAIT";[163]34)"THEN  THEN"
  397. 31516 [153]" THEN   WAIT";[163]34)"(null)  THEN"
  398. 31517 [153]" (null)(null) WAITSTEP ";[163]33)"THEN   THEN"
  399. 31518 [153]" FN  FN";[163]33)"THEN   (null)"
  400. 31519 [153]" FN  FN";[163]33)"THENSTEP  (null)WAIT"
  401. 31520 [153]" FN  (null)";[163]34)"(null)   WAIT"
  402. 31521 [153]"THEN(null)WAIT  STEP(null)WAITTOTO(null)TAB(TAB(TAB((null)TOTOSTEP  WAITTAB((null)TOSTEP   (null)STEP(null)WAITTO(null)TAB(TAB((null)WAITTOSTEP   WAIT"
  403. 31522 [153]"THEN      WAITSTEP    STEP    WAITSTEP   (null)     WAITSTEP          WAIT"
  404. 31523 [153]"THEN      WAIT    STEP    WAITSTEP          WAIT           WAIT"
  405. 31524 [153]"THEN     WAITSTEPTAB(TAB(TAB((null)    WAITSTEPTAB(TAB((null)TOTOSTEPWAITSTEP(null)  WAITSTEP(null)TOTOTO(null)  (null)   WAIT"
  406. 32000 [153]"VERIFY";
  407. 32010 [153] [163]15)"TO  TO"
  408. 32020 [153] [163]14)"THENSTEP  (null)WAITFN"
  409. 32030 [153] [163]14)"(null)+(null)STEP+(null)"
  410. 32040 [153] [163]13)"(null)  STEP(null)WAIT  (null)    TO(null)(null)
  411. 32050 PRINT TAB(13)"[208][206][223][202][203][146][169][205][207]   [169][223][146] [167]"
  412. 32070 PRINT TAB(13)"[187]    [146]  [172]  [169]   [146][169]"
  413. 32080 PRINT TAB(12)"          [146] [165] [223] [146]"
  414. 32090 PRINT TAB(15)"    [146]   [206]   [206]"
  415. 32100 PRINT TAB(15)"    [146]  [169] [223][146] [206]"
  416. 32110 PRINT TAB(14)"[169]    [223][146]     "
  417. 32120 PRINT TAB(13)"[169]      [223]    "
  418. 32130 PRINT TAB(13)"        [146]   [223]"
  419. 32140 PRINT TAB(12)"    [146][169][223]    [146][164][164][206]"
  420. 32150 PRINT:PRINT TAB(10)"P.T.'S  PUZZLERS"
  421. 32160 RETURN
  422. 33000 PRINT"   THIS IS A PHONICS GAME TO BE PLAYED "
  423. 33001 PRINT"BY ONE STUDENT.  THE OBJECT OF THE GAME"
  424. 33002 PRINT"IS TO BUILD P. T. PEPPER  BY CORRECTLY "
  425. 33003 PRINT"IDENTIFYING PICTURES. THREE SHORT VOWEL"
  426. 33004 PRINT"WORDS,  SOME  OF  THEM  NONSENSE,  WILL"
  427. 33005 PRINT"APPEAR  ON  THE   SCREEN  ALONG  WITH A"
  428. 33006 PRINT"PICTURE.  THE  STUDENT  MUST  READ  THE"
  429. 33007 PRINT"THREE  WORDS  AND  SELECT THE WORD THAT"
  430. 33008 PRINT"MATCHES THE PICTURE.  RESPONSES WILL BE"
  431. 33009 PRINT"MADE BY PRESSING [144]1, 2, OR 3.  THE CHILD"
  432. 33010 PRINT"WILL  KNOW  A CORRECT RESPONSE HAS BEEN"
  433. 33011 PRINT"MADE  IF A PART OF P. T. PEPPER APPEARS"
  434. 33012 PRINT"ON THE SCREEN. IF AN INCORRECT RESPONSE"
  435. 33013 PRINT"IS  MADE, THE  CORRECT  ANSWER  WILL BE"
  436. 33014 PRINT"HIGHLIGHTED  AND  AN  ADDITIONAL  P. T."
  437. 33015 PRINT"PEPPER  PART WILL NOT APPEAR.  THE GAME"
  438. 33016 PRINT"ENDS WHEN P. T. PEPPER IS BUILT.":PRINT:PRINT
  439. 33021 RETURN
  440. 33100 PRINT"P.T.PEPPER AND COMPANY PRODUCTIONS"
  441. 33101 PRINT:PRINT TAB(19)"1983"
  442. 33102 PRINT:PRINT"EVANSVILLE-VANDERBURGH SCHOOL CORP."
  443. 33103 PRINT:PRINT TAB(11)"EVANSVILLE, INDIANA"
  444. 33104 PRINT:PRINT TAB(11)"EVANSVILLE, INDIANA"
  445. 33115 REMPREPARED BY CINDA GABE, MEGAN PRICE, PATRICIA LUKER, SALLY MCWILLIAMS,
  446. 33116 REMJOYCE GODEKE AND HAROLD GODEKE
  447. 33119 FORA=1TO300:NEXTA
  448. 33120 RETURN
  449.