home *** CD-ROM | disk | FTP | other *** search
- 0 POKE54296,15:FORL=1TO10:POKEL+54272,0:NEXT:POKE788,52
- 1 PRINT"[147]";:POKE53280,12:POKE53281,15:FORI=1024TO1063:POKEI,160:POKEI+54272,2:NEXT
- 2 PRINT"";:FORI=1TO22:PRINT"[145] [146]";SPC(38);" [146]":NEXT
- 3 POKE1944,160:POKE54272+1944,2:POKE1983,160:POKE54272+1983,2
- 4 FORI=1984TO2023:POKEI,160:POKEI+54272,2:NEXT:POKE54296,15
- 5 PRINT"TYPY TOES"
- 6 PRINT"[154] BY SYD BOLTON"
- 7 PRINT"[144]COPYRIGHT (C) 1984 BY"
- 8 PRINT"OSTON SOFTWARE":PRINT"HIT A KEY OR WAIT";
- 9 FORI=1TO3000:GETA$:IFA$=""THENNEXT
- 18 POKE56,48:CLR:HS$="SYD":HS=200
- 19 POKE53280,12:POKE53281,0
- 20 PRINT"[147]":PRINT"[158] TYPY TOES[146]"
- 30 PRINT" HI THERE! WELCOME TO TYPY TOES"
- 40 PRINT" THE GAME WHERE YOU IMPROVE YOUR"
- 50 PRINT" T Y P I N G S K I L L S !"
- 60 GOSUB50000
- 62 IFPEEK(12584)=229THENPOKE53272,(PEEK(53272)AND240)OR12:GOTO90
- 63 PRINT" [154]ONE MOMENT PLEASE"
- 64 FORI=49152TO49235:READA:POKEI,A:NEXT
- 66 POKE53272,(PEEK(53272)AND240)OR12:SYS49152
- 67 READA:IFA=-1THEN90
- 68 FORI=0TO7:READB:POKE12288+A*8+I,B:NEXT:GOTO67
- 90 PRINT"[155]"
- 95 INPUT"WHAT'S YOUR NAME";N$
- 110 PRINT"[158]THANK YOU ";N$;"!":GOSUB50000
- 111 PRINT"[145] "
- 112 INPUT"[145][155]SKILL LEVEL [1-4]";SL
- 113 IFSL<1ORSL>4THEN111
- 114 IFSL=1THENL$=" ":U=31:SL=100:G=31:G$=L$
- 115 IFSL=2THENL$=" ":U=26:SL=200:G=26:G$=L$
- 116 IFSL=3THENL$=" ":U=21:SL=300:G=21:G$=L$
- 117 IFSL=4THENL$=" ":U=16:SL=400:G=16:G$=L$
- 120 GOSUB50000:
- 130 POKE53281,15
- 131 PRINT"[147]";" THE LETTER ON THE SCREEN THAT TURNS"
- 135 PRINT" "
- 140 PRINT" REVERSE, LIKE K [146] IS THE LETTER ON "
- 145 PRINT" "
- 150 PRINT" THE KEYBOARD THAT YOU PRESS. OKAY?"
- 160 PRINT" YOU HAVE A TIME LIMIT, SO HURRY!"
- 161 PRINT" TO END THE GAME AT ANY TIME PRESS '_'"
- 162 PRINT" TO PAUSE, PRESS SHIFT/LOCK"
- 165 Y$="Y"
- 170 INPUT"[144] ARE YOU READY";Y$:IFLEFT$(Y$,1)="Y"THEN181
- 180 PRINT"HURRY UP AND GET READY!!!!":GOTO170
- 181 POKE53281,15
- 182 W$="[145] "
- 183 PRINT"";:FORI=1TO4:PRINTW$:NEXT
- 188 Q$="[145][181] [167]"
- 189 PRINT"[151]"
- 190 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
- 192 PRINT"[145][181] [196] COMMODORE[146] 64[146] POWER[146] [209][151] [167]"
- 195 PRINTQ$
- 200 PRINT"[145][181]_ 1 2 3 4 5 6 7 8 9 0 + - \ [211][212] [193][194] F1[170]"
- 210 PRINT"[145][181] [179][180] [161][162] [167]"
- 220 PRINT"[145][181]() Q W E R T Y U I O P @ * ^ RSTR F3[167]"
- 225 PRINTQ$
- 230 PRINT"[145][181]%& [164][165][166] A S D F G H J K L : ; = RTN F5[167]"
- 235 PRINT"[145][181][197][198] [199][200] [167]"
- 240 PRINT"[145][181][196] [164][165][166] Z X C V B N M < > ? [164][165][166] ^ _ F7[167]"
- 245 PRINTQ$
- 250 PRINT"[145][181] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] [167]"
- 255 PRINT"[145][181] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [167]"
- 260 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
- 265 FORI=1TO5:PRINTW$:NEXT:PRINT"[145][145]"
- 270 FORI=0TO39:POKE1944+I,160:POKE1984+I,160:POKE56216+I,6:POKE56256+I,6:NEXT
- 280 E=(40-(11+LEN(N$)))/2:PRINT"";TAB(E)"";N$;"'S COMPUTER"
- 285 SC=0
- 290 GOSUB40000
- 500 W=INT(RND(1)*26)+1:J=0:U=G:L$=G$:POKE198,0
- 505 PRINT"";L$;" [146]":T$=""
- 510 IFW=1THENR=9:C=4:A$="Q":GOTO1000
- 520 IFW=2THENR=9:C=6:A$="W":GOTO1000
- 530 IFW=3THENR=9:C=8:A$="E":GOTO1000
- 540 IFW=4THENR=9:C=10:A$="R":GOTO1000
- 550 IFW=5THENR=9:C=12:A$="T":GOTO1000
- 560 IFW=6THENR=9:C=14:A$="Y":GOTO1000
- 570 IFW=7THENR=9:C=16:A$="U":GOTO1000
- 580 IFW=8THENR=9:C=18:A$="I":GOTO1000
- 590 IFW=9THENR=9:C=20:A$="O":GOTO1000
- 600 IFW=10THENR=9:C=22:A$="P":GOTO1000
- 610 IFW=11THENR=11:C=8:A$="A":GOTO1000
- 620 IFW=12THENR=11:C=10:A$="S":GOTO1000
- 630 IFW=13THENR=11:C=12:A$="D":GOTO1000
- 640 IFW=14THENR=11:C=14:A$="F":GOTO1000
- 650 IFW=15THENR=11:C=16:A$="G":GOTO1000
- 660 IFW=16THENR=11:C=18:A$="H":GOTO1000
- 670 IFW=17THENR=11:C=20:A$="J":GOTO1000
- 680 IFW=18THENR=11:C=22:A$="K":GOTO1000
- 690 IFW=19THENR=11:C=24:A$="L":GOTO1000
- 700 IFW=20THENR=13:C=7:A$="Z":GOTO1000
- 710 IFW=21THENR=13:C=9:A$="X":GOTO1000
- 720 IFW=22THENR=13:C=11:A$="C":GOTO1000
- 730 IFW=23THENR=13:C=13:A$="V":GOTO1000
- 740 IFW=24THENR=13:C=15:A$="B":GOTO1000
- 750 IFW=25THENR=13:C=17:A$="N":GOTO1000
- 760 IFW=26THENR=13:C=19:A$="M":GOTO1000
- 770 GOTO500
- 1000 P=1024+R*40+C:O=PEEK(P):POKEP,O+128:POKEP+54272,6
- 1001 POKEP-40,160:POKEP-40+54272,6:POKEP-39,160:POKEP-39+54272,6
- 1002 POKEP-41,160:POKEP-41+54272,6:POKEP-1,160:POKEP-1+54272,6
- 1003 POKEP+1,160:POKEP+1+54272,6:POKEP+39,160:POKEP+39+54272,6
- 1004 POKEP+40,160:POKEP+40+54272,6:POKEP+41,160:POKEP+41+54272,6
- 1010 GETT$:IFT$=A$THENGOTO1100
- 1011 IFPEEK(653)=1THEN1011
- 1015 IFT$=""THENU=U-1:L$=LEFT$(L$,U):IFU=1THEN1030
- 1025 PRINT"";L$;" [146]"
- 1026 IFT$=""THENGOTO1010
- 1027 IFT$="_"THENGOTO5000
- 1028 POKE198,0
- 1030 POKE54296,15:POKE54277,45:POKE54278,165
- 1040 POKE54276,33:POKE54273,6:POKE54272,5
- 1050 FORI=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:SC=SC-10:IFSC<-500THEN7000
- 1060 IFU=<2THENPOKEP,O:POKEP-39,32:POKEP-40,32:POKEP-41,32:POKEP-1,32:POKEP+1,32:POKEP+39,32
- 1065 IFU=<2THENPOKEP+40,32:POKEP+41,32:POKEP+54272,11:GOSUB40000:GOTO500
- 1070 GOSUB40000:GOTO1010
- 1100 POKE54296,15:POKE54277,0:POKE54278,247
- 1105 POKE54276,17:POKE54273,40:POKE54272,0
- 1110 FORI=1TO100:NEXT:POKE54276,16
- 1140 POKEP,O:POKEP-39,32:POKEP-40,32:POKEP-41,32:POKEP-1,32:POKEP+1,32:POKEP+39,32:POKEP+40,32
- 1145 POKEP+41,32:POKEP+54272,11
- 1149 SC=SC+10:IFSC=SLTHENGOTO2000
- 1150 B=B+U:GOSUB40000:GOTO500
- 2000 POKE53280,0:POKE53281,0:PRINT"[147]";
- 2010 FORI=1TO12:POKE646,I:PRINT" Y O U D I D I T ! ! ! ! ! !":
- 2015 FORK=1TO200:NEXT:NEXT
- 2020 GOSUB50000
- 2030 FORI=0TO39:POKE1424+I,60:POKEI+55696,1:FORK=1TO60:NEXT:POKE1424+I,32:NEXT
- 2040 PRINT"[155]CONGRATULATIONS!!"
- 2045 FORI=1TO2000:NEXT:FS=FS+SC
- 2050 PRINT"[147]";:POKE53280,12:POKE53281,15:PRINT"[147]"
- 2060 SI=54272:W1=SI+4:W3=SI+18:V=SI+24:PW=SI+27:PE=SI+28
- 2065 FORI=SITOPE-10:POKEI,0:NEXT
- 2070 POKEW1+1,17:POKEW1+2,251:POKEW3+1,187:POKEW3+2,140
- 2075 POKEV,143:POKEW3,17:POKEW3-3,15:POKEW1,17
- 2080 POKEW3,129
- 2085 FORI=1TO100:POKE54273,PEEK(54299)/7+35:POKE646,I:PRINT"";TAB(15);"GET READY!":NEXT
- 2090 POKEW1,0:POKEW3,0
- 2095 PRINT" [144]GET READY!"
- 2110 SL=SL+100:IFSL=1100THENSL=1000
- 2115 B=INT(B/5)
- 2120 PRINT"BONUS:":FORI=1TOB:PRINT""I
- 2130 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
- 2140 FORT=1TO5:NEXT:POKE54276,16:FORT=1TO5:NEXT:NEXT
- 2150 FORI=1TO1000:NEXT:FS=FS+B:GOTO181
- 5000 POKE53280,12:POKE53281,15:PRINT"[147][144] END OF GAME"
- 5010 FS=FS+SC:IFFS>HSTHENHS=FS:HS$=N$:PRINT"";TAB(11);"A NEW HIGH SCORE":GOSUB50000
- 5020 PRINT"HIGH SCORE:[146]";HS:PRINT"[145]HELD BY:[146] ";HS$
- 5025 PRINT"YOUR SCORE:";"[146]";FS
- 5030 INPUT"[144]DO YOU WANT TO PLAY AGAIN";Y$:IFLEFT$(Y$,1)="Y"THENGOTO19
- 5040 INPUT"COME ON, PLEASE";Y$:IFLEFT$(Y$,1)="Y"ORLEFT$(Y$,1)="O"THENGOTO19
- 5050 POKE53281,6:POKE53280,14:PRINT"[147][154]";:END
- 7000 PRINT"[147][144]IT SEEMS TO ME, ";N$
- 7010 PRINT"THAT YOU ARE HAVING A BIT OF A"
- 7020 PRINT"PROBLEM WITH THIS GAME."
- 7030 PRINT"MAYBE YOU SHOULD REDUCE THE "
- 7040 PRINT"SKILL LEVEL OR LEARN TO "
- 7050 PRINT"RECOGNIZE SYMBOLS BETTER. OK?"
- 7055 POKE198,0
- 7060 Y$="Y":INPUT"DO YOU WANT TO TRY AGAIN";Y$:IFMID$(Y$,1)="Y"THEN181
- 7070 Y$="N":INPUT"ARE YOU SURE[146]";Y$:IFMID$(Y$,1)="N"THEN181
- 7080 POKE53281,6:POKE53280,14:PRINT"[147][154]":END
- 40000 PRINT"";N$;"'S SCORE:";" ";
- 40010 PRINT"[157][157][157][157]";"[144]";SC
- 40020 PRINT"TIME REMAINING:"
- 40030 RETURN
- 50000 POKE54296,15:RESTORE:POKE54291,128:POKE54292,0:POKE54288,128
- 50010 FORI=1TO12
- 50020 READH:READL:POKE54290,65:POKE54287,H:POKE54286,L:FORK=1TO100:NEXT:POKE54290,6
- 50030 NEXT
- 50050 RETURN
- 55000 DATA34,75,36,85,38,126,40,200,43,52,45,198,48,127,51,97,54,111,57,172,61
- 55010 DATA126,64,188
- 60000 DATA120,173,14,220,41,254
- 60010 DATA141,14,220,165,1,41
- 60020 DATA251,133,1,173,24,208
- 60030 DATA41,14,10,10,133,167
- 60040 DATA169,208,133,252,173,0
- 60050 DATA221,41,3,73,3,10
- 60060 DATA10,10,10,10,10,5
- 60070 DATA167,133,254,169,0,133
- 60080 DATA251,133,253,168,162,8
- 60090 DATA177,251,145,253,200,208
- 60100 DATA249,230,252,230,254,202
- 60110 DATA208,242,165,1,9,4
- 60120 DATA133,1,173,14,220,9
- 60130 DATA1,141,14,220,88,96
- 63000 DATA037,229,165,229,165,151,000,238,132
- 63001 DATA038,080,112,112,112,080,000,238,170
- 63002 DATA040,238,132,132,132,228,000,000,000
- 63003 DATA041,228,164,228,164,151,000,000,000
- 63004 DATA065,234,078,078,078,234,000,103,084
- 63005 DATA066,238,132,228,036,228,000,064,064
- 63006 DATA068,000,120,134,128,134,120,000,000
- 63007 DATA069,228,036,228,000,000,000,000,000
- 63008 DATA070,174,168,232,000,000,000,000,000
- 63009 DATA071,142,138,138,138,238,000,000,000
- 63010 DATA072,234,140,136,140,234,000,000,000
- 63011 DATA083,232,136,136,136,238,000,174,170
- 63012 DATA084,224,160,224,160,144,000,174,232
- 63013 DATA097,086,084,103,000,000,000,000,000
- 63014 DATA098,064,064,112,000,000,000,000,000
- 63015 DATA100,000,234,138,238,042,234,000,000
- 63016 DATA101,000,238,072,076,072,232,000,000
- 63017 DATA102,000,224,064,064,064,064,000,000
- 63018 DATA115,234,170,174,000,000,000,000,000
- 63019 DATA116,172,168,174,000,000,000,000,000
- 63999 DATA-1
-