home *** CD-ROM | disk | FTP | other *** search
- 5 POKE 646,1
- 6 POKE53280,1:POKE53281,1
- 100 PRINT"[147]"
- 105 DIMW$(21), X$(21),Y$(21),Z$(21),A1(21),P(21),N(21),WW$(50)
- 110 GOSUB31500:FORX=1TO1400:NEXTX
- 120 PRINT"[147]":GOSUB33100:FORX=1TO1400:NEXTX
- 130 PRINT"[147]":GOSUB33000
- 140 PRINT:PRINT"[144]PRESS SPACE BAR TO CONTINUE"
- 150 GETAA$:IFAA$=""THEN150
- 170 IFAA$=" "THENPRINT"[147]"
- 180 IFAA$<>" "THEN150
- 200 GOSUB31500
- 205 RESTORE:MN$="":K=0:B=0:C=0
- 210 PRINT"[144]PRESS SPACE BAR TO START"
- 220 GETAA$:IFAA$=""THEN220
- 225 IFAA$=" "THENPRINT"[147]"
- 230 IFAA$<>" "THEN220
- 250 PRINT"ENTER YOUR FIRST NAME AND"
- 255 PRINT:PRINT"[144]PRESS SPACE BAR.":PRINT
- 260 GETNA$:IF NA$=""THEN260
- 265 MN$=MN$+NA$:PRINT"[144]"NA$;
- 270 IF NA$<>" "THEN260
- 273 PRINT" [165][167]
- 275 [139] NA$[178]" "[167] [153]"LOAD STOPHI, STOP";MN$
- 280 [141]30010
- 285 [129]X[178]1[164]3000:[130]X:[153]"LOAD"
- 330 [129]N[178]1 [164]21
- 340 [135] W$(N), X$(N), Y$(N),Z$(N),A1(N)
- 350 [130]N:[129]N[178]1[164]21:P(N)[178]N:[130]N
- 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
- 395 [130] N
- 400 [129] N [178]1[164]21
- 696 [153]" "
- 697 [153]" "
- 698 [153]" "
- 700 [153]" "
- 701 [153]" "
- 702 [153]" "
- 703 [153]" "
- 704 [153]" "
- 705 [153]" "
- 706 [153]" "
- 707 [153]" "
- 708 [153]" "
- 709 [153]" "
- 710 [153]" "
- 711 [153]" "
- 712 [153]" "
- 713 [153]" "
- 714 [153]" "
- 715 [153]" "
- 716 [153]" "
- 717 [153]" "
- 718 [153]" "
- 719 [153]" "
- 720 [153]" ";
- 740 [139]W$(P(N))[178]"BUG"[167][141]7152
- 741 [139]W$(P(N))[178]"RAT"[167][141]7180
- 742 [139]W$(P(N))[178]"SUN"[167][141]7063
- 743 [139]W$(P(N))[178]"MOP"[167][141]7050
- 744 [139]W$(P(N))[178]"PIG"[167][141]7140
- 745 [139]W$(P(N))[178]"FAN"[167][141]7269
- 746 [139]W$(P(N))[178]"DIG"[167][141]7340
- 747 [139]W$(P(N))[178]"BELL"[167][141]7000
- 748 [139]W$(P(N))[178]"RUG"[167][141]7090
- 749 [139]W$(P(N))[178]"SUB"[167][141]7210
- 750 [139]W$(P(N))[178]"MUG"[167][141]7115
- 751 [139]W$(P(N))[178]"PAN"[167][141]7105
- 752 [139]W$(P(N))[178]"FIN"[167][141]7195
- 753 [139]W$(P(N))[178]"DOT"[167][141]7365
- 766 [139]W$(P(N))[178]"NET"[167][141]7354
- 767 [139]W$(P(N))[178]"TEN"[167][141]7020
- 772 [139]W$(P(N))[178]"NUT"[167][141]7330
- 773 [139]W$(P(N))[178]"LID"[167][141]7315
- 774 [139]W$(P(N))[178]"TOP"[167][141]7225
- 775 [139]W$(P(N))[178]"GAS"[167][141]7240
- 777 [139]W$(P(N))[178]"LEG"[167][141]7300
- 790 [161]AA$
- 800 [139][197](AA$)[177]0[167]790
- 805 [136]C[178]C[170]1
- 810 [153]"";
- 820 [153]" STOP1. ";X$(P(N)):[153]
- 830 [153]" STOP2. ";Y$(P(N)):[153]
- 840 [153]" STOP3. ";Z$(P(N));
- 850 [161]AA$:[139]W$(P(N))[178]"DOT"[167][141]950
- 855 [139]AA$[178]""[167]850
- 856 [139]AA$[178]"1"[167]860
- 857 [139]AA$[178]"2"[167]860
- 858 [139]AA$[178]"3"[167]860
- 859 [137]850
- 860 [139][197](AA$)[178]A1(P(N))[167]K[178]K[170]1:[141]2001:[141]970 :[137]880
- 865 [139]W$(P(N))[178]"DOT"[167][153]"";
- 870 [139][197](AA$)[179][177]A1(P(N))[167] [141]900:[153]"";W$(P(N));" "
- 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
- 880 [129]I[178]1[164]1500:[130]I
- 882 [139]K[177][178]13[167][129]I[178]1[164]50:[141]31034:[141]31030:[130]I:[141]981
- 888 [139]K[177][178]13[167] [153]"LOAD":[137]200
- 890 [130]N
- 895 [139] K[179][178]13[167][140]:[137]330
- 900 [139]A1(P(N))[178]3[167][153]"CMDCMDCMDCMD";:[142]
- 905 [139]A1(P(N))[178]2[167][153]"CMDCMDCMDCMDONON";:[142]
- 910 [139]A1(P(N))[178]1[167][153]"CMDCMDCMDCMDONONONON";:[142]
- 950 [153]""[163]9)" "
- 955 [129]I[178]1[164]10:[130]I
- 960 [153]""[163]9)"(null)"
- 965 [142]
- 970 AB[178][181]([187](.)[172]7)[170]1
- 971 [139]AB[178]1[167]AB$[178]"STOPGOOD"
- 972 [139]AB[178]2[167]AB$[178]"STOPFINE"
- 973 [139]AB[178]3[167]AB$[178]"STOPGREAT"
- 974 [139]AB[178]4[167]AB$[178]"STOPO K"
- 975 [139]AB[178]5[167]AB$[178]"STOPWOW"
- 976 [139]AB[178]6[167]AB$[178]"STOPNICE"
- 977 [139]AB[178]7[167]AB$[178]"STOPSUPER"
- 980 [153]""[163]25);AB$:[142]
- 981 [139]C[178]13[167][153]"LOADGREAT JOB, ";MN$:[141]30010:[129]I[178]1[164]5000:[130]
- 982 [139]C[178]13[167][142]
- 983 [153]"LOADSTOPP.T. PEPPER WOULD LIKE FOR YOU"
- 984 [153]"TO PRACTICE THESE WORDS. WRITE"
- 985 [153]"THEM ON A PIECE OF PAPER, AND"
- 986 [153]"DRAW A PICTURE OF EACH WORD.":[153]:[153]
- 992 [129]N[178]1 [164]C
- 993 [139]WW$(N)[178]""[167]997
- 994 [153]"";WW$(N),
- 995 B[178]B[170]1:WW$(N)[178]""
- 996 [139]B[178]4[167]B[178]0:[153]
- 997 [130]N
- 999 [153]:[153]:[153]"STOPPRESS SPACE BAR TO CONTINUE"
- 1000 [161]AA$:[139] AA$[178]""[167]1000
- 1001 [139] AA$[178]" "[167] [142]
- 1002 [139] AA$[179][177]" "[167]1000
- 2001 [139]K[178]1[167][137]31140
- 2002 [139]K[178]2[167][137]31130
- 2003 [139]K[178]3[167][137]31120
- 2004 [139]K[178]4[167][137]31110
- 2005 [139]K[178]5[167][137]31100
- 2006 [139]K[178]6[167][137]31090
- 2007 [139]K[178]7[167][137]31080
- 2008 [139]K[178]8[167][137]31070
- 2009 [139]K[178]9[167][137]31050
- 2010 [139]K[178]10[167][137]31040
- 2011 [139]K[178]11[167][137]31030
- 2012 [139]K[178]12[167][137]31020
- 2013 [139]K[178]13[167][137]31010
- 2014 [139]K[177][178]14[167][142]
- 6000 [131]"BUG",BAG,BUG,BIG,2
- 6001 [131]"RAT",RAT,ROT,RUT,1
- 6003 [131]"SUN",SAN,SEN,SUN,3
- 6004 [131]"MOP",MAP,MIP,MOP,3
- 6005 [131]"PIG",PAG,PIG,PEG,2
- 6006 [131]"FAN",FAN,FIN,FUN,1
- 6007 [131]"DIG",DOG,DIG,DAG,2
- 6008 [131]"BELL",BILL,BOLL,BELL,3
- 6009 [131]"RUG",RIG,RUG,RAG,2
- 6010 [131]"SUB",SIB,SAB,SUB,3
- 6011 [131]"MUG",MUG,MEG,MIG,1
- 6012 [131]"PAN",PON,PUN,PAN,3
- 6013 [131]"FIN",FEN,FUN,FIN,3
- 6014 [131]"DOT",DOT,DET,DUT,1
- 6027 [131]"NET",NUT,NET,NAT,2
- 6028 [131]"TEN",TEN,TUN,TIN,1
- 6033 [131]"NUT",NUT,NOT,NET,1
- 6034 [131]"LID",LAD,LOD,LID,3
- 6035 [131]"TOP",TOP,TAP,TUP,1
- 6036 [131]"GAS",GAS,GIS,GUS,1
- 6038 [131]"LEG",LEG,LIG,LAG,1
- 7000 [153]" ABSINT"
- 7001 [153]" (null)TAB(TAB((null)"
- 7002 [153]" (null) (null)"
- 7003 [153]" FN THEN"
- 7005 [153]" FN THEN"
- 7006 [153]" FN THEN"
- 7007 [153]" (null) (null)"
- 7008 [153]" TAB(TAB(TAB((null)(null)TAB(TAB(TAB("
- 7009 [142]
- 7020 [153]" WAIT STEP (null)WAIT"
- 7021 [153]" WAIT STEP (null)WAIT"
- 7022 [153]" WAIT WAITSTEP (null) WAIT"
- 7023 [153]" WAIT WAIT WAIT"
- 7024 [153]" WAIT WAIT WAIT"
- 7025 [153]" WAIT (null)WAIT STEP WAIT"
- 7026 [153]" WAIT (null) WAITSTEP"
- 7027 [153]" WAIT (null) WAITSTEP"
- 7028 [142]
- 7050 [153]"VERIFY TO"
- 7051 [153]" (null)(null)"
- 7052 [153]" (null)(null)"
- 7053 [153]" (null)(null)"
- 7054 [153]" (null)(null)"
- 7055 [153]" (null)(null)"
- 7056 [153]" (null)(null)"
- 7057 [153]"POKE THENTAB(TAB(TAB((null)"
- 7058 [153]" (null)TAB((null)THENTAB( FN"
- 7059 [153]" THENTAB((null)TAB(THENTAB( (null)"
- 7060 [153]" TAB((null)(null)(null)(null)(null)FN"
- 7061 [153]"
- 7062 RETURN
- 7063 PRINT"[158] [194]"
- 7064 PRINT" [205] [194] [206]"
- 7065 PRINT" [205] [194] [206]"
- 7066 PRINT" [205][206][163][163][163][205][206]"
- 7067 PRINT" [206] [205]"
- 7068 PRINT" [165] * * [167]"
- 7069 PRINT" [195][195][195][195][165] [167][195][195][195][195]"
- 7070 PRINT" [205][205][164][164][164][206][206]"
- 7071 PRINT" [206][205][164][164][164][206][205]"
- 7072 PRINT" [206] [194] [205]"
- 7073 PRINT" [206] [194] [205]"
- 7074 PRINT" [194]"
- 7075 RETURN
- 7090 PRINT"[156] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
- 7091 PRINT" [164][164][165][206][205] [206][205][167][164][164]"
- 7092 PRINT" [164][164][165][205][206] [205][206][167][164][164]"
- 7093 PRINT" [164][164][165][206][205] [206][205][167][164][164]"
- 7094 PRINT" [164][164][165][205][206] [205][206][167][164][164]"
- 7095 PRINT" [164][164][165][206][205] [206][205][167][164][164]"
- 7096 PRINT" [164][164][165][205][206] [205][206][167][164][164]"
- 7097 PRINT" [164][164][165][206][205] [206][205][167][164][164]"
- 7098 PRINT" [165][205][206] [205][206][167] "
- 7099 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
- 7100 RETURN
- 7105 PRINT"[144] [164][164][164][164][164][164][164][164][164][164][164][164]"
- 7106 PRINT" [144][169] [146][165] [165]"
- 7107 PRINT" [169] [154] [167][163][163][163][163][163][163][163][165]"
- 7108 PRINT" [167] [165]"
- 7109 PRINT" [167] [165]"
- 7110 PRINT" [167] [165]"
- 7111 PRINT" [163][163][163][163][163][163][163] "
- 7112 RETURN
- 7115 PRINT"[156] [167][223] [146][169][165] "
- 7116 PRINT" [167] [163][163][163][163][167][163][163][165]"
- 7117 PRINT" [167] [167][163][165][165]"
- 7118 PRINT" [167] [167] [165][165]"
- 7119 PRINT" [167] [167] [165][165]"
- 7120 PRINT" [167] [167][163] [165]"
- 7121 PRINT" [167] [167][163][163] "
- 7122 PRINT" [163][163][163][163][163][163]
- 7123 [142]
- 7140 [153]"DEF TOTOTOTOTO"
- 7141 [153]" (null) (null)(null)(null)"
- 7142 [153]" (null) (null)(null)(null)TAB("
- 7143 [153]" FN TAB(TAB(RNDTAB(FN"
- 7144 [153]" THENTAB(FN FN"
- 7145 [153]" TAB( FN (null)"
- 7146 [153]" (null)TOTOTOTOTOTOTO(null)"
- 7147 [153]" THENTHEN(null)THENTHEN (null)FNFN"
- 7148 [153]" TAB( TAB( TAB( TAB("
- 7149 [142]
- 7152 [153]"STOP TAB((null) (null)TAB("
- 7153 [153]" (null)TAB(TAB(TAB(TAB(TAB((null)FNFN"
- 7154 [153]" (null) (null)TAB(TAB(TAB((null)"
- 7155 [153]" THEN (null) (null)"
- 7156 [153]" THEN THEN * * THEN"
- 7157 [153]" THENCLOSECLOSECLOSECLOSECLOSE(null) TO (null)"
- 7158 [153]" THEN (null)TOTOTO(null)"
- 7159 [153]" THENTOTOTOTOTOTOTOTOTOFN"
- 7160 [153]" THENTOCLOSEFN FN FN"
- 7161 [153]" TAB(CLOSECLOSETAB(CLOSETAB( "
- 7162 [142]
- 7180 [153]"LIST TO"
- 7181 [153]" (null)(null)FN(null)"
- 7182 [153]" THEN FN(null)"
- 7183 [153]" (null)(null)TAB(TAB((null)"
- 7184 [153]" (null) * (null)"
- 7185 [153]" THEN (null)TO (null)"
- 7186 [153]" THEN (null)TOFN TAB(TAB(FN"
- 7187 [153]" THEN THENTAB(TAB("
- 7188 [153]" TAB(FN THEN THENTOTOTHENTO"
- 7189 [153]" FNTHENTAB((null) FNFN FN"
- 7190 [153]" TAB(TAB( TAB(TAB( TAB(TAB("
- 7191 [142]
- 7195 [153]"PRINT TOTOTO"
- 7196 [153]" (null)(null)(null)(null)(null) (null)"
- 7197 [153]" PRINTTHENTHENTHENTHENCLOSETHENCLOSE(null)TAB(TAB("
- 7198 [153]" PRINT(null)TAB(TAB(TAB(TAB(TAB(TAB((null) (null)FN"
- 7199 [153]" (null) (null)THEN (null)(null)LENFN"
- 7200 [153]" (null) THEN LENFN"
- 7201 [153]" (null) THEN LENFN"
- 7202 [153]" (null) THEN (null)(null)LENFN"
- 7203 [153]" (null) (null)TOTOTOTO(null) (null)FN"
- 7204 [153]" TAB(TAB((null)(null)(null)(null)"
- 7205 [153]" TAB(TAB(TAB("
- 7206 [142]
- 7210 [153]"STOP TOTO"
- 7211 [153]" THENTOTHEN"
- 7212 [153]" (null)TAB(TAB((null)STOPSQRTHENTO(null)TAB(TAB(TAB((null)TOTO(null)TAB((null)TO"
- 7213 [153]" STOPTHENTHEN"
- 7214 [153]" SYSTHENTAB(TAB(TAB(TAB(TAB(TAB(FN"
- 7215 [153]" (null) (null) TOTO"
- 7216 [153]" (null)TAB((null)TAB(TAB(TAB(TAB(TAB(TAB((null) (null)"
- 7217 [153]" (null) FN(null)(null) (null)(null) (null)SQR"
- 7218 [153]" THEN FN(null)SQR (null)SQR THEN(null) (null)"
- 7219 [153]" THENTAB(TAB(TAB( THEN (null) (null)"
- 7220 [153]" (null) THEN (null)TAB("
- 7221 [153]" (null) (null) (null)"
- 7222 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
- 7223 [142]
- 7225 [153]"CONT ABSINT"
- 7226 [153]" (null)TAB(TAB((null)"
- 7227 [153]" (null) (null)"
- 7228 [153]" THEN(null)(null)(null)(null)(null)(null)CONTFN"
- 7229 [153]" THEN FN"
- 7230 [153]" (null) WAITSTEPCONT"
- 7231 [153]" (null) (null) "
- 7232 [153]" (null)(null) "
- 7233 [153]" FN"
- 7234 [142]
- 7240 [153]"DEF (null)TAB(TAB(TAB(TAB((null)"
- 7241 [153]" FN(null)TAB(TAB((null)THEN"
- 7242 [153]" FN(null)TOTOSQRTHENSPC( (null)TAB((null)FRE"
- 7243 [153]" FN THENSPC( FN(null)TAB("
- 7244 [153]" FN THENSPC( FNFN"
- 7245 [153]" FN THEN(null)(null)CLOSEFNFN"
- 7246 [153]" FN THEN (null)(null)FNFN"
- 7247 [153]" (null)(null)TOTOTOTOSQR(null) (null)TOFN"
- 7248 [153]" (null)TOTOTOTOTOTOSQR"
- 7249 [142]
- 7269 [153]" (null)LENLENRIGHT$"
- 7270 [153]" STEP (null)WAIT"
- 7271 [153]" FNTHEN THEN THEN THEN THEN WAIT"
- 7272 [153]" (null)SQRTOSQRSTEP (null)WAITSQRTOSQRTO WAIT"
- 7273 [153]" FNTHEN THEN WAITTHEN THEN WAIT"
- 7274 [153]" (null)SQRTOSQR WAITSQRTOSQRTO WAIT"
- 7275 [153]" FNSTEP (null) (null) (null)WAITFN WAIT"
- 7276 [153]" (null) WAIT WAIT(null) WAIT"
- 7277 [153]" FN(null) (null) (null) WAITSTEPFN WAIT"
- 7278 [153]" (null)SQRTOTO WAITTO(null)TOFN WAIT"
- 7279 [153]" FNTHEN WAIT FN (null) WAIT"
- 7280 [153]" FNTHEN THEN(null) WAITSTEP FN FN WAIT"
- 7281 [153]" (null)(null)TAB((null)TAB((null)TAB((null)TAB((null)TAB(STEP"
- 7283 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
- 7284 [142]
- 7300 [153]" (null)"
- 7301 [153]" (null)(null)"
- 7302 [153]" (null) (null)"
- 7303 [153]" (null) (null) (null)"
- 7304 [153]" THEN (null)"
- 7305 [153]" (null)WAIT THEN FN"
- 7306 [153]" TAB(TAB(STEP THEN FN"
- 7307 [153]" THEN FN"
- 7308 [153]" (null)FNCLOSEFN"
- 7309 [153]"STOP (null)TAB(TAB(TAB(THEN"
- 7310 [153]"STOP TOTOTOTOTO"
- 7311 [142]
- 7315 [153]" STOP STEPTAB(TAB(TAB(TAB(TAB((null)WAITCLOSE(null)"
- 7316 [153]"PRINT# (null)TAB(TAB(TAB(TAB(TAB((null) (null)TAB(TAB(TAB("
- 7317 [153]" (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)"
- 7318 [153]" FN (null) (null) THEN"
- 7319 [153]" FNCLOSETHENCLOSECLOSECLOSEFNCLOSETHEN"
- 7320 [153]" FN THEN FN THEN"
- 7321 [153]" FN THEN FN THEN"
- 7322 [153]" FNCLOSETHENCLOSECLOSECLOSEFNCLOSETHEN"
- 7323 [153]" FNCLOSETHENCLOSECLOSECLOSEFNCLOSETHEN"
- 7324 [153]" FN (null) (null) THEN"
- 7325 [153]" (null)TOTOTOTOTOTOTOSQR"
- 7326 [142]
- 7330 [153]"VERIFY STEPTAB(TAB(TAB(TAB(TAB((null)"
- 7331 [153]" STEP TAB((null) (null)"
- 7332 [153]" FN (null)TAB( TO (null) (null)"
- 7333 [153]" STEPTOTOTOTOTOTOTOTOTOTO(null)"
- 7334 [153]" FN TOTOTOTOTOTOTOTOTO WAITSTEP"
- 7335 [153]" (null) THEN"
- 7336 [153]" (null)(null)TOCLOSETAB((null)CLOSE(null)TAB(WAITSTEP"
- 7337 [153]" (null)TOTOTOTOTOTOWAITSTEP"
- 7338 [142]
- 7340 [153]"STOP TO"
- 7341 [153]" PEEK"
- 7342 [153]" PEEK"
- 7343 [153]" PEEK"
- 7344 [153]" PEEK"
- 7345 [153]" PEEK"
- 7346 [153]" (null)TAB((null)"
- 7347 [153]" TOTOFNCLOSETHENTOTO"
- 7348 [153]" VERIFYTOSTEP WAITSTOPFN THENVERIFY (null)WAITTOTOTO"
- 7349 [153]" (null) (null)WAIT STEP WAITSTEP"
- 7350 [153]" VERIFY(null) WAITSTEP"
- 7351 [153]" VERIFYTAB(TAB(TAB(TAB(TAB("
- 7352 [142]
- 7354 [153]"VERIFY TOTOTOTOTOTOTO"
- 7355 [153]" (null)TOTOTOTOTOTOTO(null)"
- 7356 [153]"STOPSPC(SPC(SPC(SPC(SPC(VERIFYTAB((null)(null)(null)(null)(null)(null)(null)(null)"
- 7357 [153]" (null)(null)(null)(null)(null)(null)(null)(null)(null)"
- 7358 [153]" (null)(null)(null)(null)(null)(null)(null)"
- 7359 [153]" THEN(null)(null)(null)(null)(null)FN"
- 7360 [153]" THEN(null)(null)(null)(null)(null)FN"
- 7361 [153]" (null)(null)(null)(null)(null)"
- 7362 [153]" TAB(TAB(TAB("
- 7363 [142]
- 7365 [153]" (null)"
- 7366 [153]" (null) ."
- 7367 [153]" TAB(TAB(TAB((null)"
- 7368 [153]" (null)"
- 7369 [142]
- 30000 [128]
- 30010 [153] [163]16)"VERIFYTO TO"
- 30020 [153] [163]15)"THENSTEP (null)WAITFN"
- 30030 [153] [163]15)"(null)+(null)STEP+(null)"
- 30040 [153] [163]14)"(null) STEP(null)WAIT (null) TO(null)(null)
- 30050 PRINTTAB(14)"[208][206][223][202][203][146][169][205][207] [169][223][146] [167]"
- 30070 PRINTTAB(14)"[187] [146] [172] [169] [146][169]"
- 30080 PRINTTAB(13)" [146] [165] [223] [146]"
- 30090 PRINT TAB(16)" [146] [206] [206]"
- 30100 PRINT TAB(16)" [146] [169] [223][146] [206]"
- 30110 PRINT TAB(15)"[169] [223][146] "
- 30120 PRINT TAB(14)"[169] [223] "
- 30130 PRINT TAB(14)" [146] [223]"
- 30140 PRINT TAB(13)" [146][169][223] [146][164][164][206]"
- 30150 RETURN
- 31010 PRINT""TAB(24)"[149][164] [164]"
- 31012 RETURN
- 31019 .
- 31020 PRINT""TAB(23)"[149][167][169] [223][146][165]"
- 31022 RETURN
- 31030 PRINT""TAB(23)"[149][206]+[149][223][169]+[149][205]"
- 31032 RETURN
- 31034 FORN=1TO15:NEXTN
- 31035 PRINT""TAB(23)"[149][206] [223][169] [205]"
- 31036 RETURN
- 31040 PRINT""TAB(22)"[149][206] [169][223][146] [205] [164][206][205]
- 31042 [142]
- 31050 [153]""[163]22)"VERIFY(null)(null)(null)MID$(null)WAITSTEP(null)(null) STEP(null)WAIT THEN"
- 31052 [142]
- 31070 [153]""[163]22)"VERIFYRND WAIT * STEP WAITSTEP"
- 31072 [142]
- 31080 [153]""[163]20)"VERIFYTHEN WAIT FN (null) WAIT"
- 31082 [142]
- 31090 [153]""[163]24)"VERIFY WAIT (null) (null)"
- 31092 [142]
- 31100 [153]""[163]24)"VERIFY WAIT STEP (null)WAIT (null)"
- 31102 [142]
- 31110 [153]""[163]23)"VERIFYSTEP (null)WAIT "
- 31112 [142]
- 31120 [153]""[163]22)"VERIFYSTEP (null) "
- 31122 [142]
- 31130 [153]""[163]22)"VERIFY WAIT (null)"
- 31132 [142]
- 31140 [153]""[163]21)"VERIFY WAITSTEP(null) WAITTOTO(null)"
- 31142 [142]
- 31500 [153]" (null)STEPWAITTAB(TAB(TAB((null)TOTOSTEP (null)STEP WAITTAB(TAB((null)TOSTEP (null)WAIT(null)TAB(TAB(TAB((null) WAIT"
- 31501 [153]" (null)WAIT (null) WAIT (null)WAIT WAIT"
- 31502 [153]" WAIT WAITSTEP WAIT WAIT"
- 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"
- 31504 [153]"THEN (null) WAIT"; [163]34)"(null) FN"
- 31505 [153]"THEN FN";[163]33)"THEN FN"
- 31506 [153]"THEN (null)";[163]33)"THEN (null)"
- 31507 [153]" (null) THEN";[163]33)" (null) FN"
- 31508 [153]" (null) THEN";[163]35)" (null)WAITFN"
- 31509 [153]"THEN THEN";[163]34)"STEP WAITSTEP"
- 31510 [153]"THEN (null)";[163]34)" (null)WAIT"
- 31511 [153]"THEN (null)WAITFN";[163]34)" WAIT"
- 31513 [153]"THEN (null)WAIT";[163]34)"(null) WAIT"
- 31514 [153]" (null) WAIT";[163]34)"THEN (null)"
- 31515 [153]" THEN WAIT";[163]34)"THEN THEN"
- 31516 [153]" THEN WAIT";[163]34)"(null) THEN"
- 31517 [153]" (null)(null) WAITSTEP ";[163]33)"THEN THEN"
- 31518 [153]" FN FN";[163]33)"THEN (null)"
- 31519 [153]" FN FN";[163]33)"THENSTEP (null)WAIT"
- 31520 [153]" FN (null)";[163]34)"(null) WAIT"
- 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"
- 31522 [153]"THEN WAITSTEP STEP WAITSTEP (null) WAITSTEP WAIT"
- 31523 [153]"THEN WAIT STEP WAITSTEP WAIT WAIT"
- 31524 [153]"THEN WAITSTEPTAB(TAB(TAB((null) WAITSTEPTAB(TAB((null)TOTOSTEPWAITSTEP(null) WAITSTEP(null)TOTOTO(null) (null) WAIT"
- 32000 [153]"";
- 32010 [153] [163]15)"VERIFYTO TO"
- 32020 [153] [163]14)"THENSTEP (null)WAITFN"
- 32030 [153] [163]14)"(null)+(null)STEP+(null)"
- 32040 [153] [163]13)"(null) STEP(null)WAIT (null) TO(null)(null)
- 32050 PRINT TAB(13)"[208][206][223][202][203][146][169][205][207] [169][223][146] [167]"
- 32070 PRINT TAB(13)"[187] [146] [172] [169] [146][169]"
- 32080 PRINT TAB(12)" [146] [165] [223] [146]"
- 32090 PRINT TAB(15)" [146] [206] [206]"
- 32100 PRINT TAB(15)" [146] [169] [223][146] [206]"
- 32110 PRINT TAB(14)"[169] [223][146] "
- 32120 PRINT TAB(13)"[169] [223] "
- 32130 PRINT TAB(13)" [146] [223]"
- 32140 PRINT TAB(12)" [146][169][223] [146][164][164][206]"
- 32150 PRINT:PRINT TAB(10)"P.T.'S PUZZLERS"
- 32160 RETURN
- 33000 PRINT" THIS IS A PHONICS GAME TO BE PLAYED "
- 33001 PRINT"BY ONE STUDENT. THE OBJECT OF THE GAME"
- 33002 PRINT"IS TO BUILD P. T. PEPPER BY CORRECTLY "
- 33003 PRINT"IDENTIFYING PICTURES. THREE SHORT VOWEL"
- 33004 PRINT"WORDS, SOME OF THEM NONSENSE, WILL"
- 33005 PRINT"APPEAR ON THE SCREEN ALONG WITH A"
- 33006 PRINT"PICTURE. THE STUDENT MUST READ THE"
- 33007 PRINT"THREE WORDS AND SELECT THE WORD THAT"
- 33008 PRINT"MATCHES THE PICTURE. RESPONSES WILL BE"
- 33009 PRINT"MADE BY PRESSING [144]1, 2, OR 3. THE CHILD"
- 33010 PRINT"WILL KNOW A CORRECT RESPONSE HAS BEEN"
- 33011 PRINT"MADE IF A PART OF P. T. PEPPER APPEARS"
- 33012 PRINT"ON THE SCREEN. IF AN INCORRECT RESPONSE"
- 33013 PRINT"IS MADE, THE CORRECT ANSWER WILL BE"
- 33014 PRINT"HIGHLIGHTED AND AN ADDITIONAL P. T."
- 33015 PRINT"PEPPER PART WILL NOT APPEAR. THE GAME"
- 33016 PRINT"ENDS WHEN P. T. PEPPER IS BUILT.":PRINT:PRINT
- 33021 RETURN
- 33100 PRINT"P.T.PEPPER AND COMPANY PRODUCTIONS"
- 33102 PRINT:PRINT TAB(19)"1983"
- 33103 PRINT:PRINT"EVANSVILLE-VANDERBURGH SCHOOL CORP."
- 33104 PRINT:PRINT TAB(11)"EVANSVILLE, INDIANA"
- 33105 REMPREPARED BY CINDA GABE, MEGAN PRICE, PATRICIA LUKER, SALLY MCWILLIAMS,
- 33106 REMJOYCE GODEKE AND HAROLD GODEKE
- 33107 RETURN
-