0 GOTO12000
1 SPZ=10241:S=53248:POKESPZ-1,0:COL=255:POKECOL,2:Q=1:LI=3:DD=0
2 FL=10368:UP=FL+3:DN=FL+6:LF=FL+9:RT=FL+12:SN=251:SX=252:O=1416
3 DEF FN A(X)=PEEK(52481)*256+PEEK(52480)-54272:SE=1177:DE=SE+79:DK=0
100 GOSUB2000:GOSUB1000
101 GOSUB3000:SYSFL:GOSUB4000:GOSUB3000:GOSUB4000:GOSUB4000:GOSUB3000:GOSUB4000
102 GOTO101
1000 PRINT"[147]  -  ATTACK OF THE SOFTWARE PIRATES  -"
1010 A$="                        "
1020 B$="  [158]      [158]      [158]      [158]    "
1030 C$="[213][201][213][201][213][201][213][201][158][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201]"
1040 D$="[202][203][202][203][202][203][202][203][158][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203]"
1050 PRINTC$:PRINTD$:FORI=1TO5:PRINTA$:PRINTA$:PRINTB$:PRINTB$:NEXTI
1060 PRINT"        [158]                "
1070 PRINT"        [158]                "
1080 FORI=0TO25:PRINT"";:NEXTI:PRINT"SCORE:00000"
1090 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]DISKS:00[157][157][157][157][157][157][157][157]LIVES"
1998 POKES+21,231:RETURN
2000 POKES+21,0:POKES+32,0:POKES+33,0:PRINT"[147]":FORI=0TO11:PRINT:NEXTI
2002 PRINT"[158]            PLEASE WAIT"
2003 FORQ=1TO2:W=0:FORI=1TO16:FORP=0TO1:READA:POKESPZ+Y+W+P,A:NEXTP
2004 POKESPZ+Y+W+P,0:W=W+3:NEXTI:W=W-3:FORI=1TO16:POKESPZ+Y+W+P+I,0:NEXTI
2005 Y=Y+64:W=W+3:NEXTQ:M=2040
2006 POKEM,161:FORI=M+1TOM+4:POKEI,160:NEXTI:POKES,16:POKES+1,74
2008 FORI=S+39TOS+46:POKEI,0:NEXTI:POKES+28,255:POKES+37,1:POKES+38,10
2009 POKEM+5,161:POKEM+6,161:POKEM+7,161:POKES+16,224:POKES+15,101
2010 POKES+10,15:POKES+11,101:POKES+12,32:POKES+13,101:POKES+14,49
2011 POKES+2,16:POKES+3,202:POKES+4,64:POKES+5,202:POKES+6,112:POKES+7,202
2012 POKES+8,160:POKES+9,202
2020 X=52480:FORI=0TO9:READF:POKEX+I,F:NEXTI
2500 Z=10368:FORI=0TO277:READD:POKEZ+I,D:NEXTI:RETURN
3000 J=PEEK(56320):POKESX,0:POKESN,0
3020 IFJ=125THENSYSDN
3030 IFJ=126THENSYSUP
3040 IFJ=119THENSYSRT
3050 IFJ=123THENSYSLF
3055 POKE53278,255:E=PEEK(53278)AND1
3057 IFE=1ANDCAR=1THENGOSUB5000
3060 IFPEEK(FNA(X))=213ANDCAR=0ANDPEEK(53249)<>234THENCAR=1:GOSUB3900
3065 IFPEEK(53249)=234ANDCAR=1ANDPEEK(FNA(X))<>213THENCAR=0:GOSUB3950
3070 RETURN
3900 POKEFNA(X),160:POKEFNA(X)+1,160:POKEFNA(X)+40,160:POKEFNA(X)+41,160
3901 VV=FNA(X):RETURN
3950 POKEFNA(X),213:POKEFNA(X)+1,201:POKEFNA(X)+40,202:POKEFNA(X)+41,203
3960 IFPEEK(SE)=57THENPOKESE-1,PEEK(SE-1)+1:POKESE,48:GOTO3980
3970 POKESE,PEEK(SE)+1
3980 IFPEEK(DE+1)=57THENPOKEDE,PEEK(DE)+1:POKEDE+1,48:DK=DK+1:GOTO3999
3990 POKEDE+1,PEEK(DE+1)+1:DK=DK+1:IFDK=4THENGOSUB5500
3999 RETURN
4000 Q=Q+1:IFQ=5THENQ=1
4001 POKE53278,255:POKESN,Q:POKESX,Q*2:GX=PEEK(53248):GY=PEEK(53249)
4120 BX=PEEK(53248+(Q*2)):BY=PEEK(53249+(Q*2))
4125 IFCAR=0ANDQ<3THENGOTO4170
4126 IFCAR=1ANDQ=4THENFORGH=1TO2
4130 IFBX<GXTHENSYSRT
4140 IFBX>GXTHENSYSLF
4150 IFBY<GYTHENSYSDN
4160 IFBY>GYTHENSYSUP
4170 E=PEEK(53278)AND1
4180 IFE=1ANDCAR=1THENGOSUB5000
4181 IFCAR=1ANDQ=4THENNEXTGH
4999 RETURN
5000 LI=LI-1:CAR=0:POKEVV,213:POKEVV+1,201:POKEVV+40,202:POKEVV+41,203
5010 POKE53269,PEEK(53269)AND(2^(5+LI))-1:IFLI=0THEN5600
5020 RETURN
5500 DD=DD+DK:DK=0:IFDD=4THENCC=30:POKECOL,5:POKE53269,PEEK(53269)OR8
5520 IFDD=8THENCC=158:POKECOL,7:POKE53269,PEEK(53269)OR16
5530 IFDD=12THENGOTO7000
5545 PRINT"":A$="                        "
5551 PRINT:PRINTCHR$(CC):FORI=1TO4:PRINTA$:PRINTA$:PRINT:PRINT:NEXTI
5571 PRINTA$:PRINTA$:PRINTA$:PRINTA$;"":RETURN
5600 FORI=0TO100:POKE53287,PEEK(53287)+IAND15:NEXTI:POKE53269,0
5601 FORI=0TO50:PRINT:NEXT
5602 PRINT"              GAME OVER"
5603 PRINT"           ANOTHER GAME? Y/N"
5610 FOR I=1TO11:PRINT:NEXT
5620 GETA$:IFA$=""THEN5620
5630 IFA$="Y"THENRUN
5640 IFA$<>"N"THEN5620
5650 END
5999 RETURN
7000 FORI=0TO06:PRINT:NEXT:PRINT"YOU WIN"
7001 FORI=0TO30:FORFL=0TO3:POKE53288+FL,PEEK(53288+FL)+1AND15:NEXTFL:NEXTI
7002 POKE53269,0:GOTO5601
10000 DATA0,0,0,0,2,160,10,168,43,250,38,218,47,254,42,170
10010 DATA9,88,2,160,0,192,2,160,5,20,8,8,4,4,40,10
10020 DATA0,0,2,10,10,8,42,170,43,250,38,230,47,254,15,252
10030 DATA3,240,3,240,10,104,42,170,42,106,42,170,58,171,63,63
10040 REM
10050 DATA120,216,248,218,254,218,4,219,10,219
11000 DATA76,143,40,76,249,40,76,23,41,76,53,41,76,83,41,169
11010 DATA200,133,253,169,216,133,254,32,151,224,165,141,41,15,201,12
11020 DATA16,245,141,6,204,32,151,224,165,141,41,7,201,5,16,245
11030 DATA170,224,0,240,14,165,253,24,105,160,133,253,144,2,230,254
11040 DATA202,208,238,174,6,204,224,0,240,14,165,253,24,105,2,133
11050 DATA253,144,2,230,254,202,208,238,32,151,224,165,141,41,3,201
11060 DATA3,240,245,168,185,246,40,160,0,145,253,200,145,253,160,40
11070 DATA145,253,200,145,253,96,2,5,7,32,130,41,56,233,80,133
11080 DATA253,176,2,198,254,32,141,41,208,12,32,115,41,185,1,208
11090 DATA56,233,16,153,1,208,96,32,130,41,24,105,80,133,253,144
11100 DATA2,230,254,32,141,41,208,12,32,115,41,185,1,208,24,105
11110 DATA16,153,1,208,96,32,130,41,56,233,2,133,253,176,2,198
11120 DATA254,32,141,41,208,12,32,115,41,185,0,208,56,233,16,153
11130 DATA0,208,96,32,130,41,24,105,2,133,253,144,2,230,254,32
11140 DATA141,41,208,14,32,115,41,185,0,208,24,105,16,153,0,208
11150 DATA144,0,96,165,253,157,0,205,165,254,157,1,205,165,251
11160 DATA10,168,96,166,252,189,1,205,133,254,189,0,205,96,160,0,177
11170 DATA253,41,15,197,255,96
12000 POKE53280,0:POKE53281,0:PRINT"[147]"
12001 PRINT"[154]-ATTACK OF THE SOFTWARE PIRATES-"
12002 PRINT"[150]   THE OBJECTIVE IS TO GET THE
12003 [153]"DISKS FROM THE TOP OF THE SCREEN
12004 PRINT"TO THE BOTTOM, AND DEPOSIT THEM
12005 [153]"IN THEIR CORRECT COLOR COORDINATED
12006 PRINT"POSITIONS."
12007 PRINT"   THE FIRST ROW OF DISKS YOU WILL
12008 [153]"FIND FAIRLY EASY.  THE SECOND COLOR
12009 PRINT"WILL GET TOUGHER AS THE SOFTWARE
12010 [153]"PIRATES ARE OUT TO STOP YOU."
12011 [153]"   IF A PIRATE SHOULD CATCH YOU
12012 PRINT"HE WILL AUTOMATICALLY  STEAL YOUR
12013 [153]"DISK AND PLACE IT BACK AT THE TOP
12014 PRINT"OF THE SCREEN."
12015 PRINT"[153]ANY KEY TO PLAY GAME"
12016 GETGM$:IFGM$="" THEN12016
12020 GOTO1