home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PT-PEPPER-A (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  13.4 KB  |  504 lines

  1. 5 POKE 646,1
  2. 6 POKE53280,1:POKE53281,1
  3. 100 PRINT"[147]"
  4. 105 DIMW$(21), X$(21),Y$(21),Z$(21),A1(21),P(21),N(21),WW$(50)
  5. 110 GOSUB31500:FORX=1TO1400:NEXTX
  6. 120 PRINT"[147]":GOSUB33100:FORX=1TO1400:NEXTX
  7. 130 PRINT"[147]":GOSUB33000
  8. 140 PRINT:PRINT"[144]PRESS SPACE BAR TO CONTINUE"
  9. 150 GETAA$:IFAA$=""THEN150
  10. 170 IFAA$=" "THENPRINT"[147]"
  11. 180 IFAA$<>" "THEN150
  12. 200 GOSUB31500
  13. 205 RESTORE:MN$="":K=0:B=0:C=0
  14. 210 PRINT"[144]PRESS SPACE BAR TO START"
  15. 220 GETAA$:IFAA$=""THEN220
  16. 225 IFAA$=" "THENPRINT"[147]"
  17. 230 IFAA$<>" "THEN220
  18. 250 PRINT"ENTER YOUR FIRST NAME AND"
  19. 255 PRINT:PRINT"[144]PRESS SPACE BAR.":PRINT
  20. 260 GETNA$:IF NA$=""THEN260
  21. 265 MN$=MN$+NA$:PRINT"[144]"NA$;
  22. 270 IF NA$<>" "THEN260
  23. 273 PRINT"   [165][167]
  24. 275 [139] NA$[178]" "[167] [153]"LOAD STOPHI, STOP";MN$
  25. 280 [141]30010
  26. 285 [129]X[178]1[164]3000:[130]X:[153]"LOAD"
  27. 330 [129]N[178]1 [164]21
  28. 340 [135] W$(N), X$(N), Y$(N),Z$(N),A1(N)
  29. 350 [130]N:[129]N[178]1[164]21:P(N)[178]N:[130]N
  30. 390 [129]N[178]1[164]21:R[178][181]([187](.)[172]21)[170]1:T[178]P(N):P(N)[178]P(R):P(R)[178]T
  31. 395 [130] N
  32. 400 [129] N [178]1[164]21
  33. 696 [153]"                    "
  34. 697 [153]"                    "
  35. 698 [153]"                    "
  36. 700 [153]"                                       "
  37. 701 [153]"                    "
  38. 702 [153]"                    "
  39. 703 [153]"                    "
  40. 704 [153]"                     "
  41. 705 [153]"                     "
  42. 706 [153]"                     "
  43. 707 [153]"                     "
  44. 708 [153]"                     "
  45. 709 [153]"                     "
  46. 710 [153]"                    "
  47. 711 [153]"                    "
  48. 712 [153]"                    "
  49. 713 [153]"                    "
  50. 714 [153]"              "
  51. 715 [153]"              "
  52. 716 [153]"              "
  53. 717 [153]"              "
  54. 718 [153]"              "
  55. 719 [153]"              "
  56. 720 [153]"              ";
  57. 740 [139]W$(P(N))[178]"BUG"[167][141]7152
  58. 741 [139]W$(P(N))[178]"RAT"[167][141]7180
  59. 742 [139]W$(P(N))[178]"SUN"[167][141]7063
  60. 743 [139]W$(P(N))[178]"MOP"[167][141]7050
  61. 744 [139]W$(P(N))[178]"PIG"[167][141]7140
  62. 745 [139]W$(P(N))[178]"FAN"[167][141]7269
  63. 746 [139]W$(P(N))[178]"DIG"[167][141]7340
  64. 747 [139]W$(P(N))[178]"BELL"[167][141]7000
  65. 748 [139]W$(P(N))[178]"RUG"[167][141]7090
  66. 749 [139]W$(P(N))[178]"SUB"[167][141]7210
  67. 750 [139]W$(P(N))[178]"MUG"[167][141]7115
  68. 751 [139]W$(P(N))[178]"PAN"[167][141]7105
  69. 752 [139]W$(P(N))[178]"FIN"[167][141]7195
  70. 753 [139]W$(P(N))[178]"DOT"[167][141]7365
  71. 766 [139]W$(P(N))[178]"NET"[167][141]7354
  72. 767 [139]W$(P(N))[178]"TEN"[167][141]7020
  73. 772 [139]W$(P(N))[178]"NUT"[167][141]7330
  74. 773 [139]W$(P(N))[178]"LID"[167][141]7315
  75. 774 [139]W$(P(N))[178]"TOP"[167][141]7225
  76. 775 [139]W$(P(N))[178]"GAS"[167][141]7240
  77. 777 [139]W$(P(N))[178]"LEG"[167][141]7300
  78. 790 [161]AA$
  79. 800 [139][197](AA$)[177]0[167]790
  80. 805 [136]C[178]C[170]1
  81. 810 [153]"";
  82. 820 [153]"    STOP1.  ";X$(P(N)):[153]
  83. 830 [153]"    STOP2.  ";Y$(P(N)):[153]
  84. 840 [153]"    STOP3.  ";Z$(P(N));
  85. 850 [161]AA$:[139]W$(P(N))[178]"DOT"[167][141]950
  86. 855 [139]AA$[178]""[167]850
  87. 856 [139]AA$[178]"1"[167]860
  88. 857 [139]AA$[178]"2"[167]860
  89. 858 [139]AA$[178]"3"[167]860
  90. 859 [137]850
  91. 860 [139][197](AA$)[178]A1(P(N))[167]K[178]K[170]1:[141]2001:[141]970 :[137]880
  92. 865 [139]W$(P(N))[178]"DOT"[167][153]"";
  93. 870 [139][197](AA$)[179][177]A1(P(N))[167] [141]900:[153]"";W$(P(N));" "
  94. 875 [139][197](AA$)[179][177]A1(P(N))[167]WW$(N)[178]W$(P(N)):KK[178]KK[170]1:[129]I[178]1[164]1500:[130]I
  95. 880 [129]I[178]1[164]1500:[130]I
  96. 882 [139]K[177][178]13[167][129]I[178]1[164]50:[141]31034:[141]31030:[130]I:[141]981
  97. 888 [139]K[177][178]13[167] [153]"LOAD":[137]200
  98. 890 [130]N
  99. 895 [139] K[179][178]13[167][140]:[137]330
  100. 900 [139]A1(P(N))[178]3[167][153]"CMDCMDCMDCMD";:[142]
  101. 905 [139]A1(P(N))[178]2[167][153]"CMDCMDCMDCMDONON";:[142]
  102. 910 [139]A1(P(N))[178]1[167][153]"CMDCMDCMDCMDONONONON";:[142]
  103. 950 [153]""[163]9)" "
  104. 955 [129]I[178]1[164]10:[130]I
  105. 960 [153]""[163]9)"(null)"
  106. 965 [142]
  107. 970 AB[178][181]([187](.)[172]7)[170]1
  108. 971 [139]AB[178]1[167]AB$[178]"STOPGOOD"
  109. 972 [139]AB[178]2[167]AB$[178]"STOPFINE"
  110. 973 [139]AB[178]3[167]AB$[178]"STOPGREAT"
  111. 974 [139]AB[178]4[167]AB$[178]"STOPO K"
  112. 975 [139]AB[178]5[167]AB$[178]"STOPWOW"
  113. 976 [139]AB[178]6[167]AB$[178]"STOPNICE"
  114. 977 [139]AB[178]7[167]AB$[178]"STOPSUPER"
  115. 980 [153]""[163]25);AB$:[142]
  116. 981 [139]C[178]13[167][153]"LOADGREAT JOB, ";MN$:[141]30010:[129]I[178]1[164]5000:[130]
  117. 982 [139]C[178]13[167][142]
  118. 983 [153]"LOADSTOPP.T. PEPPER WOULD LIKE FOR YOU"
  119. 984 [153]"TO PRACTICE THESE WORDS. WRITE"
  120. 985 [153]"THEM ON A PIECE OF PAPER, AND"
  121. 986 [153]"DRAW A PICTURE OF EACH WORD.":[153]:[153]
  122. 992 [129]N[178]1 [164]C
  123. 993 [139]WW$(N)[178]""[167]997
  124. 994 [153]"";WW$(N),
  125. 995 B[178]B[170]1:WW$(N)[178]""
  126. 996 [139]B[178]4[167]B[178]0:[153]
  127. 997 [130]N
  128. 999 [153]:[153]:[153]"STOPPRESS SPACE BAR TO CONTINUE"
  129. 1000 [161]AA$:[139] AA$[178]""[167]1000
  130. 1001 [139] AA$[178]" "[167] [142]
  131. 1002 [139] AA$[179][177]" "[167]1000
  132. 2001 [139]K[178]1[167][137]31140
  133. 2002 [139]K[178]2[167][137]31130
  134. 2003 [139]K[178]3[167][137]31120
  135. 2004 [139]K[178]4[167][137]31110
  136. 2005 [139]K[178]5[167][137]31100
  137. 2006 [139]K[178]6[167][137]31090
  138. 2007 [139]K[178]7[167][137]31080
  139. 2008 [139]K[178]8[167][137]31070
  140. 2009 [139]K[178]9[167][137]31050
  141. 2010 [139]K[178]10[167][137]31040
  142. 2011 [139]K[178]11[167][137]31030
  143. 2012 [139]K[178]12[167][137]31020
  144. 2013 [139]K[178]13[167][137]31010
  145. 2014 [139]K[177][178]14[167][142]
  146. 6000 [131]"BUG",BAG,BUG,BIG,2
  147. 6001 [131]"RAT",RAT,ROT,RUT,1
  148. 6003 [131]"SUN",SAN,SEN,SUN,3
  149. 6004 [131]"MOP",MAP,MIP,MOP,3
  150. 6005 [131]"PIG",PAG,PIG,PEG,2
  151. 6006 [131]"FAN",FAN,FIN,FUN,1
  152. 6007 [131]"DIG",DOG,DIG,DAG,2
  153. 6008 [131]"BELL",BILL,BOLL,BELL,3
  154. 6009 [131]"RUG",RIG,RUG,RAG,2
  155. 6010 [131]"SUB",SIB,SAB,SUB,3
  156. 6011 [131]"MUG",MUG,MEG,MIG,1
  157. 6012 [131]"PAN",PON,PUN,PAN,3
  158. 6013 [131]"FIN",FEN,FUN,FIN,3
  159. 6014 [131]"DOT",DOT,DET,DUT,1
  160. 6027 [131]"NET",NUT,NET,NAT,2
  161. 6028 [131]"TEN",TEN,TUN,TIN,1
  162. 6033 [131]"NUT",NUT,NOT,NET,1
  163. 6034 [131]"LID",LAD,LOD,LID,3
  164. 6035 [131]"TOP",TOP,TAP,TUP,1
  165. 6036 [131]"GAS",GAS,GIS,GUS,1
  166. 6038 [131]"LEG",LEG,LIG,LAG,1
  167. 7000 [153]"       ABSINT"
  168. 7001 [153]"      (null)TAB(TAB((null)"
  169. 7002 [153]"     (null)    (null)"
  170. 7003 [153]"     FN    THEN"
  171. 7005 [153]"     FN    THEN"
  172. 7006 [153]"     FN    THEN"
  173. 7007 [153]"    (null)      (null)"
  174. 7008 [153]"    TAB(TAB(TAB((null)(null)TAB(TAB(TAB("
  175. 7009 [142]
  176. 7020 [153]"     WAIT   STEP   (null)WAIT"
  177. 7021 [153]"     WAIT  STEP     (null)WAIT"
  178. 7022 [153]"     WAIT    WAITSTEP (null)  WAIT"
  179. 7023 [153]"     WAIT    WAIT     WAIT"
  180. 7024 [153]"     WAIT    WAIT     WAIT"
  181. 7025 [153]"     WAIT    (null)WAIT STEP  WAIT"
  182. 7026 [153]"     WAIT  (null)     WAITSTEP"
  183. 7027 [153]"     WAIT   (null)   WAITSTEP"
  184. 7028 [142]
  185. 7050 [153]"VERIFY                TO"
  186. 7051 [153]"               (null)(null)"
  187. 7052 [153]"              (null)(null)"
  188. 7053 [153]"             (null)(null)"
  189. 7054 [153]"            (null)(null)"
  190. 7055 [153]"           (null)(null)"
  191. 7056 [153]"          (null)(null)"
  192. 7057 [153]"POKE       THENTAB(TAB(TAB((null)"
  193. 7058 [153]"      (null)TAB((null)THENTAB( FN"
  194. 7059 [153]"    THENTAB((null)TAB(THENTAB( (null)"
  195. 7060 [153]"     TAB((null)(null)(null)(null)(null)FN"
  196. 7061 [153]"
  197. 7062 RETURN
  198. 7063 PRINT"[158]          [194]"
  199. 7064 PRINT"     [205]    [194]    [206]"
  200. 7065 PRINT"      [205]   [194]   [206]"
  201. 7066 PRINT"       [205][206][163][163][163][205][206]"
  202. 7067 PRINT"       [206]     [205]"
  203. 7068 PRINT"       [165] * * [167]"
  204. 7069 PRINT"   [195][195][195][195][165]     [167][195][195][195][195]"
  205. 7070 PRINT"       [205][205][164][164][164][206][206]"
  206. 7071 PRINT"       [206][205][164][164][164][206][205]"
  207. 7072 PRINT"      [206]   [194]   [205]"
  208. 7073 PRINT"     [206]    [194]    [205]"
  209. 7074 PRINT"          [194]"
  210. 7075 RETURN
  211. 7090 PRINT"[156]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  212. 7091 PRINT"  [164][164][165][206][205]      [206][205][167][164][164]"
  213. 7092 PRINT"  [164][164][165][205][206]      [205][206][167][164][164]"
  214. 7093 PRINT"  [164][164][165][206][205]      [206][205][167][164][164]"
  215. 7094 PRINT"  [164][164][165][205][206]      [205][206][167][164][164]"
  216. 7095 PRINT"  [164][164][165][206][205]      [206][205][167][164][164]"
  217. 7096 PRINT"  [164][164][165][205][206]      [205][206][167][164][164]"
  218. 7097 PRINT"  [164][164][165][206][205]      [206][205][167][164][164]"
  219. 7098 PRINT"    [165][205][206]      [205][206][167]  "
  220. 7099 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  221. 7100 RETURN
  222. 7105 PRINT"[144]   [164][164][164][164][164][164][164][164][164][164][164][164]"
  223. 7106 PRINT"  [144][169]     [146][165]      [165]"
  224. 7107 PRINT"  [169]   [154] [167][163][163][163][163][163][163][163][165]"
  225. 7108 PRINT"       [167]       [165]"
  226. 7109 PRINT"       [167]       [165]"
  227. 7110 PRINT"       [167]       [165]"
  228. 7111 PRINT"        [163][163][163][163][163][163][163] "
  229. 7112 RETURN
  230. 7115 PRINT"[156]    [167][223]    [146][169][165] "
  231. 7116 PRINT"    [167] [163][163][163][163][167][163][163][165]"
  232. 7117 PRINT"    [167]     [167][163][165][165]"
  233. 7118 PRINT"    [167]     [167] [165][165]"
  234. 7119 PRINT"    [167]     [167] [165][165]"
  235. 7120 PRINT"    [167]     [167][163] [165]"
  236. 7121 PRINT"    [167]     [167][163][163] "
  237. 7122 PRINT"     [163][163][163][163][163][163]
  238. 7123 [142]
  239. 7140 [153]"DEF      TOTOTOTOTO"
  240. 7141 [153]"     (null)     (null)(null)(null)"
  241. 7142 [153]"    (null)     (null)(null)(null)TAB("
  242. 7143 [153]"    FN     TAB(TAB(RNDTAB(FN"
  243. 7144 [153]"  THENTAB(FN         FN"
  244. 7145 [153]"  TAB( FN        (null)"
  245. 7146 [153]"    (null)TOTOTOTOTOTOTO(null)"
  246. 7147 [153]"    THENTHEN(null)THENTHEN (null)FNFN"
  247. 7148 [153]"     TAB( TAB( TAB( TAB("
  248. 7149 [142]
  249. 7152 [153]"STOP           TAB((null) (null)TAB("
  250. 7153 [153]"      (null)TAB(TAB(TAB(TAB(TAB((null)FNFN"
  251. 7154 [153]"     (null)     (null)TAB(TAB(TAB((null)"
  252. 7155 [153]"    THEN     (null)     (null)"
  253. 7156 [153]"    THEN    THEN  * * THEN"
  254. 7157 [153]"    THENCLOSECLOSECLOSECLOSECLOSE(null)  TO  (null)"
  255. 7158 [153]"    THEN      (null)TOTOTO(null)"
  256. 7159 [153]"    THENTOTOTOTOTOTOTOTOTOFN"
  257. 7160 [153]"     THENTOCLOSEFN  FN FN"
  258. 7161 [153]"        TAB(CLOSECLOSETAB(CLOSETAB( "
  259. 7162 [142]
  260. 7180 [153]"LIST         TO"
  261. 7181 [153]"       (null)(null)FN(null)"
  262. 7182 [153]"      THEN  FN(null)"
  263. 7183 [153]"       (null)(null)TAB(TAB((null)"
  264. 7184 [153]"       (null)  * (null)"
  265. 7185 [153]"      THEN (null)TO  (null)"
  266. 7186 [153]"      THEN (null)TOFN TAB(TAB(FN"
  267. 7187 [153]"      THEN    THENTAB(TAB("
  268. 7188 [153]"   TAB(FN THEN THENTOTOTHENTO"
  269. 7189 [153]"    FNTHENTAB((null)  FNFN FN"
  270. 7190 [153]"    TAB(TAB(  TAB(TAB( TAB(TAB("
  271. 7191 [142]
  272. 7195 [153]"PRINT        TOTOTO"
  273. 7196 [153]"       (null)(null)(null)(null)(null) (null)"
  274. 7197 [153]"      PRINTTHENTHENTHENTHENCLOSETHENCLOSE(null)TAB(TAB("
  275. 7198 [153]"     PRINT(null)TAB(TAB(TAB(TAB(TAB(TAB((null)  (null)FN"
  276. 7199 [153]"    (null) (null)THEN     (null)(null)LENFN"
  277. 7200 [153]"    (null)  THEN       LENFN"
  278. 7201 [153]"    (null)  THEN       LENFN"
  279. 7202 [153]"    (null)  THEN     (null)(null)LENFN"
  280. 7203 [153]"     (null) (null)TOTOTOTO(null)  (null)FN"
  281. 7204 [153]"      TAB(TAB((null)(null)(null)(null)"
  282. 7205 [153]"         TAB(TAB(TAB("
  283. 7206 [142]
  284. 7210 [153]"STOP      TOTO"
  285. 7211 [153]"     THENTOTHEN"
  286. 7212 [153]"  (null)TAB(TAB((null)STOPSQRTHENTO(null)TAB(TAB(TAB((null)TOTO(null)TAB((null)TO"
  287. 7213 [153]"      STOPTHENTHEN"
  288. 7214 [153]"    SYSTHENTAB(TAB(TAB(TAB(TAB(TAB(FN"
  289. 7215 [153]"     (null)    (null) TOTO"
  290. 7216 [153]"   (null)TAB((null)TAB(TAB(TAB(TAB(TAB(TAB((null) (null)"
  291. 7217 [153]"  (null)  FN(null)(null) (null)(null)  (null)SQR"
  292. 7218 [153]" THEN   FN(null)SQR (null)SQR THEN(null) (null)"
  293. 7219 [153]" THENTAB(TAB(TAB(       THEN (null) (null)"
  294. 7220 [153]"  (null)         THEN  (null)TAB("
  295. 7221 [153]"   (null)        (null) (null)"
  296. 7222 [153]"    TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  297. 7223 [142]
  298. 7225 [153]"CONT        ABSINT"
  299. 7226 [153]"       (null)TAB(TAB((null)"
  300. 7227 [153]"      (null)    (null)"
  301. 7228 [153]"     THEN(null)(null)(null)(null)(null)(null)CONTFN"
  302. 7229 [153]"     THEN      FN"
  303. 7230 [153]"      (null)    WAITSTEPCONT"
  304. 7231 [153]"       (null)  (null) "
  305. 7232 [153]"        (null)(null) "
  306. 7233 [153]"         FN"
  307. 7234 [142]
  308. 7240 [153]"DEF     (null)TAB(TAB(TAB(TAB((null)"
  309. 7241 [153]"     FN(null)TAB(TAB((null)THEN"
  310. 7242 [153]"     FN(null)TOTOSQRTHENSPC(  (null)TAB((null)FRE"
  311. 7243 [153]"     FN    THENSPC(  FN(null)TAB("
  312. 7244 [153]"     FN    THENSPC(  FNFN"
  313. 7245 [153]"     FN    THEN(null)(null)CLOSEFNFN"
  314. 7246 [153]"     FN    THEN (null)(null)FNFN"
  315. 7247 [153]"    (null)(null)TOTOTOTOSQR(null) (null)TOFN"
  316. 7248 [153]"    (null)TOTOTOTOTOTOSQR"
  317. 7249 [142]
  318. 7269 [153]"       (null)LENLENRIGHT$"
  319. 7270 [153]"   STEP          (null)WAIT"
  320. 7271 [153]"   FNTHEN THEN THEN THEN THEN  WAIT"
  321. 7272 [153]"   (null)SQRTOSQRSTEP (null)WAITSQRTOSQRTO WAIT"
  322. 7273 [153]"   FNTHEN THEN   WAITTHEN THEN  WAIT"
  323. 7274 [153]"   (null)SQRTOSQR   WAITSQRTOSQRTO WAIT"
  324. 7275 [153]"   FNSTEP  (null) (null)  (null)WAITFN WAIT"
  325. 7276 [153]"   (null)    WAIT     WAIT(null) WAIT"
  326. 7277 [153]"   FN(null)  (null) (null)  WAITSTEPFN WAIT"
  327. 7278 [153]"   (null)SQRTOTO   WAITTO(null)TOFN WAIT"
  328. 7279 [153]"   FNTHEN     WAIT FN (null) WAIT"
  329. 7280 [153]"   FNTHEN THEN(null) WAITSTEP FN FN WAIT"
  330. 7281 [153]"   (null)(null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(STEP"
  331. 7283 [153]"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  332. 7284 [142]
  333. 7300 [153]"        (null)"
  334. 7301 [153]"        (null)(null)"
  335. 7302 [153]"       (null)  (null)"
  336. 7303 [153]"      (null)  (null) (null)"
  337. 7304 [153]"     THEN  (null)"
  338. 7305 [153]"   (null)WAIT THEN  FN"
  339. 7306 [153]" TAB(TAB(STEP THEN  FN"
  340. 7307 [153]"     THEN  FN"
  341. 7308 [153]"     (null)FNCLOSEFN"
  342. 7309 [153]"STOP    (null)TAB(TAB(TAB(THEN"
  343. 7310 [153]"STOP    TOTOTOTOTO"
  344. 7311 [142]
  345. 7315 [153]" STOP    STEPTAB(TAB(TAB(TAB(TAB((null)WAITCLOSE(null)"
  346. 7316 [153]"PRINT#     (null)TAB(TAB(TAB(TAB(TAB((null) (null)TAB(TAB(TAB("
  347. 7317 [153]"    (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)"
  348. 7318 [153]"    FN (null)   (null) THEN"
  349. 7319 [153]"    FNCLOSETHENCLOSECLOSECLOSEFNCLOSETHEN"
  350. 7320 [153]"    FN THEN   FN THEN"
  351. 7321 [153]"    FN THEN   FN THEN"
  352. 7322 [153]"    FNCLOSETHENCLOSECLOSECLOSEFNCLOSETHEN"
  353. 7323 [153]"    FNCLOSETHENCLOSECLOSECLOSEFNCLOSETHEN"
  354. 7324 [153]"    FN (null)   (null) THEN"
  355. 7325 [153]"    (null)TOTOTOTOTOTOTOSQR"
  356. 7326 [142]
  357. 7330 [153]"VERIFY      STEPTAB(TAB(TAB(TAB(TAB((null)"
  358. 7331 [153]"     STEP   TAB((null)  (null)"
  359. 7332 [153]"    FN (null)TAB( TO  (null) (null)"
  360. 7333 [153]"    STEPTOTOTOTOTOTOTOTOTOTO(null)"
  361. 7334 [153]"   FN TOTOTOTOTOTOTOTOTO WAITSTEP"
  362. 7335 [153]"    (null)          THEN"
  363. 7336 [153]"     (null)(null)TOCLOSETAB((null)CLOSE(null)TAB(WAITSTEP"
  364. 7337 [153]"      (null)TOTOTOTOTOTOWAITSTEP"
  365. 7338 [142]
  366. 7340 [153]"STOP            TO"
  367. 7341 [153]"            PEEK"
  368. 7342 [153]"            PEEK"
  369. 7343 [153]"            PEEK"
  370. 7344 [153]"            PEEK"
  371. 7345 [153]"            PEEK"
  372. 7346 [153]"           (null)TAB((null)"
  373. 7347 [153]"         TOTOFNCLOSETHENTOTO"
  374. 7348 [153]"       VERIFYTOSTEP  WAITSTOPFN THENVERIFY  (null)WAITTOTOTO"
  375. 7349 [153]"        (null)  (null)WAIT STEP  WAITSTEP"
  376. 7350 [153]"         VERIFY(null)     WAITSTEP"
  377. 7351 [153]"          VERIFYTAB(TAB(TAB(TAB(TAB("
  378. 7352 [142]
  379. 7354 [153]"VERIFY      TOTOTOTOTOTOTO"
  380. 7355 [153]"     (null)TOTOTOTOTOTOTO(null)"
  381. 7356 [153]"STOPSPC(SPC(SPC(SPC(SPC(VERIFYTAB((null)(null)(null)(null)(null)(null)(null)(null)"
  382. 7357 [153]"     (null)(null)(null)(null)(null)(null)(null)(null)(null)"
  383. 7358 [153]"      (null)(null)(null)(null)(null)(null)(null)"
  384. 7359 [153]"      THEN(null)(null)(null)(null)(null)FN"
  385. 7360 [153]"      THEN(null)(null)(null)(null)(null)FN"
  386. 7361 [153]"       (null)(null)(null)(null)(null)"
  387. 7362 [153]"        TAB(TAB(TAB("
  388. 7363 [142]
  389. 7365 [153]"    (null)"
  390. 7366 [153]"       (null) ."
  391. 7367 [153]"    TAB(TAB(TAB((null)"
  392. 7368 [153]"      (null)"
  393. 7369 [142]
  394. 30000 [128]
  395. 30010 [153] [163]16)"VERIFYTO  TO"
  396. 30020 [153] [163]15)"THENSTEP  (null)WAITFN"
  397. 30030 [153] [163]15)"(null)+(null)STEP+(null)"
  398. 30040 [153] [163]14)"(null)  STEP(null)WAIT  (null)    TO(null)(null)
  399. 30050 PRINTTAB(14)"[208][206][223][202][203][146][169][205][207]   [169][223][146] [167]"
  400. 30070 PRINTTAB(14)"[187]    [146]  [172]  [169]   [146][169]"
  401. 30080 PRINTTAB(13)"          [146] [165] [223] [146]"
  402. 30090 PRINT TAB(16)"    [146]   [206]   [206]"
  403. 30100 PRINT TAB(16)"    [146]  [169] [223][146] [206]"
  404. 30110 PRINT TAB(15)"[169]    [223][146]     "
  405. 30120 PRINT TAB(14)"[169]      [223]    "
  406. 30130 PRINT TAB(14)"        [146]   [223]"
  407. 30140 PRINT TAB(13)"    [146][169][223]    [146][164][164][206]"
  408. 30150 RETURN
  409. 31010 PRINT""TAB(24)"[149][164]  [164]"
  410. 31012 RETURN
  411. 31019 .
  412. 31020 PRINT""TAB(23)"[149][167][169]  [223][146][165]"
  413. 31022 RETURN
  414. 31030 PRINT""TAB(23)"[149][206]+[149][223][169]+[149][205]"
  415. 31032 RETURN
  416. 31034 FORN=1TO15:NEXTN
  417. 31035 PRINT""TAB(23)"[149][206] [223][169] [205]"
  418. 31036 RETURN
  419. 31040 PRINT""TAB(22)"[149][206]  [169][223][146]  [205]    [164][206][205]
  420. 31042 [142]
  421. 31050 [153]""[163]22)"VERIFY(null)(null)(null)MID$(null)WAITSTEP(null)(null)   STEP(null)WAIT THEN"
  422. 31052 [142]
  423. 31070 [153]""[163]22)"VERIFYRND    WAIT  *  STEP   WAITSTEP"
  424. 31072 [142]
  425. 31080 [153]""[163]20)"VERIFYTHEN          WAIT FN (null) WAIT"
  426. 31082 [142]
  427. 31090 [153]""[163]24)"VERIFY    WAIT   (null)   (null)"
  428. 31092 [142]
  429. 31100 [153]""[163]24)"VERIFY    WAIT  STEP (null)WAIT (null)"
  430. 31102 [142]
  431. 31110 [153]""[163]23)"VERIFYSTEP    (null)WAIT     "
  432. 31112 [142]
  433. 31120 [153]""[163]22)"VERIFYSTEP      (null)    "
  434. 31122 [142]
  435. 31130 [153]""[163]22)"VERIFY        WAIT   (null)"
  436. 31132 [142]
  437. 31140 [153]""[163]21)"VERIFY    WAITSTEP(null)    WAITTOTO(null)"
  438. 31142 [142]
  439. 31500 [153]"     (null)STEPWAITTAB(TAB(TAB((null)TOTOSTEP   (null)STEP WAITTAB(TAB((null)TOSTEP    (null)WAIT(null)TAB(TAB(TAB((null)   WAIT"
  440. 31501 [153]"       (null)WAIT    (null)        WAIT         (null)WAIT       WAIT"
  441. 31502 [153]"        WAIT            WAITSTEP          WAIT       WAIT"
  442. 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"
  443. 31504 [153]"THEN (null) WAIT"; [163]34)"(null)  FN"
  444. 31505 [153]"THEN   FN";[163]33)"THEN   FN"
  445. 31506 [153]"THEN   (null)";[163]33)"THEN   (null)"
  446. 31507 [153]" (null)  THEN";[163]33)" (null)   FN"
  447. 31508 [153]" (null)  THEN";[163]35)"  (null)WAITFN"
  448. 31509 [153]"THEN   THEN";[163]34)"STEP  WAITSTEP"
  449. 31510 [153]"THEN   (null)";[163]34)"   (null)WAIT"
  450. 31511 [153]"THEN  (null)WAITFN";[163]34)"    WAIT"
  451. 31513 [153]"THEN   (null)WAIT";[163]34)"(null)   WAIT"
  452. 31514 [153]" (null)   WAIT";[163]34)"THEN  (null)"
  453. 31515 [153]" THEN   WAIT";[163]34)"THEN  THEN"
  454. 31516 [153]" THEN   WAIT";[163]34)"(null)  THEN"
  455. 31517 [153]" (null)(null) WAITSTEP ";[163]33)"THEN   THEN"
  456. 31518 [153]" FN  FN";[163]33)"THEN   (null)"
  457. 31519 [153]" FN  FN";[163]33)"THENSTEP  (null)WAIT"
  458. 31520 [153]" FN  (null)";[163]34)"(null)   WAIT"
  459. 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"
  460. 31522 [153]"THEN      WAITSTEP    STEP    WAITSTEP   (null)     WAITSTEP          WAIT"
  461. 31523 [153]"THEN      WAIT    STEP    WAITSTEP          WAIT           WAIT"
  462. 31524 [153]"THEN     WAITSTEPTAB(TAB(TAB((null)    WAITSTEPTAB(TAB((null)TOTOSTEPWAITSTEP(null)  WAITSTEP(null)TOTOTO(null)  (null)   WAIT"
  463. 32000 [153]"";
  464. 32010 [153] [163]15)"VERIFYTO  TO"
  465. 32020 [153] [163]14)"THENSTEP  (null)WAITFN"
  466. 32030 [153] [163]14)"(null)+(null)STEP+(null)"
  467. 32040 [153] [163]13)"(null)  STEP(null)WAIT  (null)    TO(null)(null)
  468. 32050 PRINT TAB(13)"[208][206][223][202][203][146][169][205][207]   [169][223][146] [167]"
  469. 32070 PRINT TAB(13)"[187]    [146]  [172]  [169]   [146][169]"
  470. 32080 PRINT TAB(12)"          [146] [165] [223] [146]"
  471. 32090 PRINT TAB(15)"    [146]   [206]   [206]"
  472. 32100 PRINT TAB(15)"    [146]  [169] [223][146] [206]"
  473. 32110 PRINT TAB(14)"[169]    [223][146]     "
  474. 32120 PRINT TAB(13)"[169]      [223]    "
  475. 32130 PRINT TAB(13)"        [146]   [223]"
  476. 32140 PRINT TAB(12)"    [146][169][223]    [146][164][164][206]"
  477. 32150 PRINT:PRINT TAB(10)"P.T.'S  PUZZLERS"
  478. 32160 RETURN
  479. 33000 PRINT"   THIS IS A PHONICS GAME TO BE PLAYED "
  480. 33001 PRINT"BY ONE STUDENT.  THE OBJECT OF THE GAME"
  481. 33002 PRINT"IS TO BUILD P. T. PEPPER  BY CORRECTLY "
  482. 33003 PRINT"IDENTIFYING PICTURES. THREE SHORT VOWEL"
  483. 33004 PRINT"WORDS,  SOME  OF  THEM  NONSENSE, WILL"
  484. 33005 PRINT"APPEAR  ON  THE  SCREEN  ALONG  WITH  A"
  485. 33006 PRINT"PICTURE.  THE  STUDENT  MUST  READ  THE"
  486. 33007 PRINT"THREE  WORDS  AND  SELECT THE WORD THAT"
  487. 33008 PRINT"MATCHES THE PICTURE.  RESPONSES WILL BE"
  488. 33009 PRINT"MADE BY PRESSING [144]1, 2, OR 3.  THE CHILD"
  489. 33010 PRINT"WILL  KNOW  A CORRECT RESPONSE HAS BEEN"
  490. 33011 PRINT"MADE IF A  PART OF P. T. PEPPER APPEARS"
  491. 33012 PRINT"ON THE SCREEN. IF AN INCORRECT RESPONSE"
  492. 33013 PRINT"IS  MADE, THE  CORRECT  ANSWER  WILL BE"
  493. 33014 PRINT"HIGHLIGHTED  AND  AN  ADDITIONAL  P. T."
  494. 33015 PRINT"PEPPER  PART WILL NOT APPEAR.  THE GAME"
  495. 33016 PRINT"ENDS WHEN P. T. PEPPER IS BUILT.":PRINT:PRINT
  496. 33021 RETURN
  497. 33100 PRINT"P.T.PEPPER AND COMPANY PRODUCTIONS"
  498. 33102 PRINT:PRINT TAB(19)"1983"
  499. 33103 PRINT:PRINT"EVANSVILLE-VANDERBURGH SCHOOL CORP."
  500. 33104 PRINT:PRINT TAB(11)"EVANSVILLE, INDIANA"
  501. 33105 REMPREPARED BY CINDA GABE, MEGAN PRICE, PATRICIA LUKER, SALLY MCWILLIAMS,
  502. 33106 REMJOYCE GODEKE AND HAROLD GODEKE
  503. 33107 RETURN
  504.