0 POKE45,PEEK(174):POKE46,PEEK(175):CLR
1 REM**********************************
2 REM*                                *
3 REM*      THE TAXMAN  (C) 1984  BY  *
4 REM*      DOUG SMOAK                *
5 REM*      303 HEYWARD ST.           *
6 REM*      COLUMBIA, SC 29201        *
7 REM*      803 765 1189              *
8 REM*                                *
9 REM**********************************
10 PRINT"[147][152]THE[150]":POKE53272,(PEEK(53272)AND240)OR10
20 DIMTP(5),HO$(5),MN$(5):DW$="":OT=828:OM=OT
30 TP(1)=55:TP(2)=110:TP(3)=165:TP(4)=165:TP(5)=165:C=253:DM=254:SP=32
40 M=1525:S=1104:DB=80:HA=.5:BG=53281:BO=BG-1:POKEBO,11:POKEBG,0
50 R=40:RT=49152:TP=0:WL=209:HL=36:SID=54272:CD=SID:NW=SID+11:BN=2000
60 GOSUB1110:G$="      TAXMAN!":GOSUB1530:PRINTDW$:GOSUB820
70 GOSUB1560:PRINT"[152]                   BY"
80 PRINT"               DOUG SMOAK"
90 ML=51200
100 READA:IFA>=0THENPOKEML,A:ML=ML+1:GOTO100
110 SYS51200
120 ML=49152
130 READA:IFA>=0THENPOKEML,A:ML=ML+1:GOTO130
140 ML=49223
150 READA:IFA>=0THENPOKEML,A:ML=ML+1:GOTO150
160 PRINTDW$"          PRESS ANY KEY TO PLAY[146]"
170 GOSUB590
180 GETD$:ON-(D$="")GOTO170:SYS51253
190 GOSUB800:PRINT"[147]":GOSUB370
200 LV=3:SC=0
210 POKE49301,255:GOSUB820:SYS49223:POKE253,27
220 TP=0:ME=M:OM=ME:OT=828:CH=27
230 POKEME,CH:POKEME+CD,1:GOSUB500
240 J=0:K%=HA+(ME-S)/DB:ET=K%*DB+S:DE=1:E=90:CE=14
250 IFRND(1)<.5THENET=ET+39:DE=-1:E=92:CE=14
260 IFPEEK(ME)=HLTHENTP=TP+1:SC=SC+10:GOSUB640:POKENW,128
270 IFPEEK(ET)=HLTHENTP=TP+1:SC=SC-10:GOSUB640
280 POKEOM,SP:POKEME,CH:POKEME+CD,1
290 IFPEEK(ET)=CHTHENPOKENW,129:LV=LV-1:GOSUB640:POKENW,128
300 POKEOT,SP:POKEET+CD,CE:POKEET,E+(JAND1)
310 SYSRT:CH=PEEK(C)+(MEAND3)
320 IFTP=>TP(SK)THENSK=SK-(SK<5):GOSUB490:GOTO220
330 OM=ME:ME=OM+PEEK(DM)-R
340 IFPEEK(ME)<>SPANDPEEK(ME)<>HLTHENME=OM
350 OT=ET:ET=ET+DE:J=J+1:IFJ=40THEN240
360 GOTO260
370 DN$="":OV$=""
380 MN$(3)="$ $  $ $  $ $$ $ $ $ $  $ $$ $"
390 MN$(4)="$ $  $ $  $ $$ $ $ $ $  $ $$ $"
400 MN$(5)="$ $  $ $  $ $$ $ $ $ $  $ $$ $"
410 MN$(2)="$ $   $  $   $   $   $ $  $  $"
420 MN$(1)="$     $      $       $       $"
430 HO$(3)="   "
440 HO$(2)="    "
450 HO$(1)="     "
460 HO$(4)="  "
470 HO$(5)=" "
480 RETURN
490 POKEOT,SP:POKEOM,SP:POKEME,SP:POKEET,SP:RETURN
500 PRINT"";
510 FORI=1TO11:PRINT"[151][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]":NEXT
520 PRINT"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]"
530 FORI=4TO22STEP2
540 PRINTLEFT$(DN$,I)LEFT$(OV$,RND(0)*17+1)HO$(SK):NEXT
550 FORI=3TO23STEP2
560 PRINTLEFT$(DN$,I)LEFT$(OV$,RND(0)*8+1)MN$(SK):NEXT
570 PRINT"[151][158]SCORE        "TAB(17)"LIVES"TAB(33)"SKILL[146]"
580 RETURN
590 MD=MD+1:IFMD=38THENMD=0
600 ET=1464+MD:ME=1466+MD:POKEOT,32:POKEET+CD,14:POKEET,90+(MEAND1)
610 POKEOM,32:POKEME,59+(MDAND3):POKEME+CD,1
620 OM=ME:OT=ET:FORI=1TO60:NEXT
630 RETURN
640 IFSC>=BNTHENIFNL=0THENPOKENW,33:NL=1:LV=LV+1
650 PRINT"[155]"TAB(5)SC" [157][157] ";TAB(22)LV;TAB(38)SK
660 IFLV<>0THENRETURN
670 POKEOT,SP:POKEET,E:POKEET+CD,3:SYS49287:GOSUB820:PRINT"[147]";
680 G$=STR$(SC):GS=LEN(G$)-1:GS=(40-4*GS)/2
690 PRINT"[129]"DW$LEFT$(OV$,GS-1);:GOSUB1530:PRINTDW$""
700 IFSC>HSTHENHS=SC:GOSUB770:GOTO720
710 G$="       WHOOPS!":GOSUB1530:PRINTDW$
720 PRINT"[152]           PLAY AGAIN   Y OR N[146]"
730 GETA$:ON-(A$="")GOTO730:SYS51253
740 IFA$="N"THENPRINT"[147]":POKE53272,(PEEK(53272)AND240)OR4:END
750 PRINT"[147]"
760 GOSUB800:GOTO200
770 SYS51200:G$="  A  NEW  HIGH":GOSUB1530:PRINTDW$"[154]"
780 G$="         SCORE!":GOSUB1530:PRINTDW$:GOSUB1560:GOSUB820
790 RETURN
800 PRINT"[147][152]STARTING SKILL LEVEL 1-5 ";:INPUT"  1[157][157][157]";SK:IFSK<1ORSK>5THEN800
810 PRINT"[147]";:QX=FRE(0)
811 RETURN
820 FORI=0TO24:POKESI+I,0:NEXT:POKESI+24,15:POKESI+5,9:POKESI+6,240
830 POKESI+13,240:POKESI+8,28:RETURN
840 DATA25,30,60,18,209,60,15,210,60,18,209,60
850 DATA15,210,60,18,209,60,25,30,60
860 DATA18,209,60,15,210,60,18,209,60
870 DATA15,210,60,18,209,60,25,30,60
880 DATA17,195,60,18,209,60,21,31,60,23,181,60
890 DATA25,30,250,0,0,125,18,209,250,0,0,125,12,143,750
900 DATA 0,0,-1
910 DATA 120,169,200,141,21,3,169,18,141,20,3,169,6,141,52
920 DATA 3,88,96,206,52,3,240,3,76,49,234,169,5,141,52
930 DATA 3,160,26,169,226,153,151,5,230,2,165,2,41,15,153
940 DATA 151,217,136,16,239,76,49,234,120,169,49,141,20,3,169
950 DATA 234,141,21,3,88,96,-1
960 DATA 169,40,133,254,173,0,220,74,176,8,160,0,132,254,234
970 DATA234,234,234,74,176,8,160,80,132,254,234,234,234,234,74
980 DATA 176,8,160,39,132,254,160,27,132,253,74,176,8,160,41
990 DATA 132,254,160,59,132,253,96,-1
1000 DATA 120,169,84,141
1010 DATA 20,3,169,192,141,21,3,88,96,173,148,192,208,40,174
1020 DATA 149,192,232,224,64,208,2,162,0,189,150,192,141,0,212
1030 DATA 232,189,150,192,141,1,212,232,189,150,192,141,4,212,232
1040 DATA 189,150,192,141,148,192,142,149,192,206,148,192,76,49,234
1050 DATA 120,169,49,141,20,3,169,234,141,21,3,88,96,1,31
1060 DATA 97,8,17,15,143,12,17,15,195,16,17,15,48,11,17
1070 DATA 15,143,10,17,15,48,11,17,15,104,9,17,15,143,10
1080 DATA 17,15,97,8,17,15,233,7,17,15,97,8,17,15,104
1090 DATA 9,17,15,143,10,17,15,48,11,17,15,104,9,17,15
1100 DATA 143,10,17,15,-1
1110 REM ** ALPHABET **
1120 DIMA$(57)
1130 A$(1)="   [157][157][157]  [157][157][157] [146][183] [146][157][157][157][183] [183][145][145][145]"
1140 A$(2)="  [223][157][157][157]  [157][157][157] [146][183] [146][157][157][157][183][183][183][145][145][145]"
1150 A$(3)="   [157][157][157] [157] [157][146][183][183][183][145][145][145]"
1160 A$(4)="  [223][157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
1170 A$(5)="   [157][157][157] [157] [146][183][157][157][146][183][183][183][145][145][145]"
1180 A$(6)="   [157][157][157] [157] [146][183][157][157][146][183][145][145][145]"
1190 A$(7)="   [157][157][157] [157]  [157][157][157][146][183][183][183][145][145][145]"
1200 A$(8)="  [157][157][157]  [157][157][157] [146][183] [146][157][157][157][183] [183][145][145][145]"
1210 A$(9)=" [157] [157] [157][146][183][145][145][145]"
1220 A$(10)=" [157] [157][157][157][184] [157][157][157][146][183][183][183][145][145][145]"
1230 A$(11)="  [157][157][157]  [157][157][157] [146][183][181][157][157][157][183] [183][145][145][145]"
1240 A$(12)=" [157] [157] [157][146][183][183][183][145][145][145]"
1250 A$(13)=" [223][169] [157][157][157][157] [146][223][169] [157][157][157][157]  [157][157][157][157][157][146][183]  [183][145][145][145]"
1260 A$(14)=" [223] [157][157][157] [146][223] [157][157][157]  [157][157][157][157][146][183] [183][145][145][145]"
1270 A$(15)="   [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
1280 A$(16)="  [223][157][157][157]  [157][157][157] [146][183][183][157][157][157][183][145][145][145]"
1290 A$(17)="   [157][157][157]  [157][157][157] [146][172] [146][157][157][157][183][183][183][190][145][145][145]"
1300 A$(18)="  [223][157][157][157]  [157][157][157] [146][183][181][157][157][157][183] [183][145][145][145]"
1310 A$(19)="   [157][157][157] [157][146][183][183] [146][157][157][157][183][183][183][145][145][145]"
1320 A$(20)="   [157][157] [157] [157][146][183][145][145][145]"
1330 A$(21)="  [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
1340 A$(22)="  [157][157][157]  [157][157][157][146][223][164][169][157][157][157] [183] [145][145][145]"
1350 A$(23)="  [157][157][157][157] [169][223] [157][157][157][157] [146][169][223] [157][157][157][157][157][146][183]  [183][145][145][145]"
1360 A$(24)="  [157][157][157][187][184][172][157][157][157]  [157][157][157][146][183][183][145][145][145]"
1370 A$(25)="  [157][157][157]  [157][157][157][146][183] [146][183][157][157][183] [145][145][145]"
1380 A$(26)="   [157][157][169][146][169][157][157][157][169][146][169][164][157][157][157][183][183][183][145][145][145]"
1390 A$(32)=""
1400 A$(33)=" [157] [157][146][162][157][183][145][145][145]"
1410 A$(45)="[162][162][162][145]"
1420 A$(48)=" [175] [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
1430 A$(49)="[172] [157] [157] [157][146][183][145][145][145]"
1440 A$(50)="[175][185] [157][157][169][146][169][157][157][157][169][146][169][157][157][183][183][183][145][145][145]"
1450 A$(51)="[175][185] [157][157][146][172] [157][157][157][146][185] [146][157][157][157][183][183][183][145][145][145]"
1460 A$(52)="[169] [157][157][157][169][146][169] [157][157][157][162][162] [146][190][157][157][183][145][145][145]"
1470 A$(53)=" [175][175][157][157][157] [146][162][162][157][157][157][175]  [146][157][157][157][183][183][183][145][145][145]"
1480 A$(54)=" [175][175][157][157][157] [146][162][162][157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
1490 A$(55)="[175][175] [157][157][169][146][169][157][157] [146][157][183][145][145][145]"
1500 A$(56)=" [175] [157][157][157] [146][162] [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
1510 A$(57)=" [175] [157][157][157] [146][162] [157] [146][157][183][145][145][145]"
1520 RETURN
1530 FORI=1TOLEN(G$):G=ASC(MID$(G$,I,1)):IFG>64THENG=G-64
1540 PRINTA$(G);:NEXT:RETURN
1560 HQ=SID+8:LQ=SID+7:POKENW-7,33:POKENW,33:RESTORE
1570 READXX:READXY:READDU:IFDU<0THEN1600
1580 POKEHQ,XX:POKELQ,XY:POKESI,XY+30:POKESI+1,XX:FORDL=1TODU:NEXT
1590 GOTO1570
1600 POKENW,0:POKENW-7,0:RETURN