Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav » Thrust2
Thrust2
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav |
Filename: | Thrust2 |
Read OK: | ❌ |
File size: | 1600 bytes |
Load address: | FFFF1A00 |
Exec address: | FFFF8023 |
File contents
10REM Thruster Part 2 20REM by Rob Walmsley 30REM (c) The Micro User 40ON ERROR MODE7:REPORT:PRINT" at ";ERL:END 50MODE2:VDU23;8202;0;0;0; 60PROCInit 70REPEAT 80PROCResetGame 90REPEAT 100PROCResetScreen 110PROCInfo 120PROCScreen 130PROCStatus 140PROCEntrance 150REPEAT 160IFTWI% PROCTwiz 170PROCWalls:PROCMain 180UNTIL Dead% ORY%>1080 190IFDead% GCOL3,C1%:PROCDrawShip(A%,X%,Y%):PROCExplosion(X%,Y%):Lives%=Lives%-1 ELSEScreen%=Screen%+1:SOUND2,3,180,1 200PROCDelay(150) 210UNTILLives%=0 220PROCGameOver 230UNTIL0 240: 250DEFPROCMain:IFTIME<mt%ENDPROC 260OA%=A%:OX%=X%:OY%=Y% 270VDU19,C1%,6;0;19,C2%,0;0; 280IFEN% GOTO340 290IFINKEY-74 IF Fire%=0 SOUND3,2,2,2:Fire%=TRUE:FXD=S(A%)*28:FYD=C(A%)*28:FX%=X%+36+FXD:FY%=Y%-32+FYD:FM%=6:GCOL3,7:PLOT69,FX%,FY% 300IFINKEY-66 A%=A%-1:IFA%=-1 A%=11 310IFINKEY-82 A%=A%+1:IFA%=12 A%=0 320IFINKEY-1 PROCT1 ELSE PROCT2 330IFFire% PROCFire 340IFGT%=2 VDU19,12,TH%;0; 350XD=XD+TH%*S(A%) 360YD=YD+TH%*C(A%) 370XD=XD*.97 380IFXD>-.3 IF XD<.3 XD=0 390IFGT%=1 YD=YD+GR ELSEYD=YD-GR 400X%=X%+XD 410Y%=Y%+YD 420GCOL3,C2% 430PROCDrawShip(A%,X%,Y%) 440VDU19,C1%,0;0;19,C2%,6;0; 450GCOL3,C1% 460PROCDrawShip(OA%,OX%,OY%) 470IFC1%=1 C1%=2:C2%=1 ELSE C1%=1:C2%=2 480PROCCheckDead 490mt%=TIME+mi%:ENDPROC 500: 510DEFPROCT1:TH%=2 520IFF%=1 SOUND0,-1,6,-1:F%=0 530ENDPROC 540: 550DEFPROCT2:TH%=0 560IFF%=0 F%=1:*FX21,4 570ENDPROC 580: 590DEFPROCCheckDead:U%=X%+36:V%=Y%-32 600P1%=POINT(U%+S(A%)*28,V%+C(A%)*28) 610P2%=POINT(U%+S((A%+5)MOD12)*28,V%+C((A%+5)MOD12)*28) 620P3%=POINT(U%+S((A%+7)MOD12)*28,V%+C((A%+7)MOD12)*28) 630IF(P1%>3 ANDP1%<12 ORP2%>3 ANDP2%<12 ORP3%>3 ANDP2%<12) ANDD%=-4 ENDPROC 640IFP1%>3 ORP2%>3 ORP3%>3 Dead%=TRUE 650ENDPROC 660: 670DEFPROCDrawShip(I%,X%,Y%) 680MOVEX%,Y%:VDU 224+I%*2 690MOVEX%,Y%-32:VDU 225+I%*2 700ENDPROC 710: 720DEFPROCFire 730GCOL3,7:PLOT69,FX%,FY% 740FM%=FM%-1 750FX%=FX%+FXD 760FY%=FY%+FYD 770Col%=POINT(FX%,FY%) 780IFCol%>12 PROCHitBlob 790IFCol%>3 IF Col%<12 IF D%=-4 GOTO810 800IFCol%<>0 ORFM%=0 Fire%=FALSE:ENDPROC 810GCOL3,7:PLOT69,FX%,FY% 820ENDPROC 830: 840DEFPROCInit:F%=0 850TW%=0:TH%=-1 860Fire%=FALSE:Dead%=FALSE 870XD=0:YD=0:GR=1:TH%=0 880DIM S(11),C(11),ED%(7,1),GT$(2) 890GT$(0)="" 900GT$(1)="Inverse Gravity" 910GT$(2)="Invisible Landscape" 920FORI%=0TO11:J%=I%*30 930S(I%)=SINRADJ% 940C(I%)=COSRADJ% 950NEXT: 960ti%=10:wi%=300 970mi%=10:ENDPROC 980: 990DEFPROCEntrance:LOCAL GT% 1000EN%=TRUE:X%=224:Y%=1088 1010VDU4:COLOUR134 1020PRINTTAB(2,0)SPC4 1030COLOUR128:VDU5:EN%=FALSE 1040tt%=TIME+30:wt%=TIME+30 1050FORi%=0TO15:mt%=TIME-1 1060PROCMain:NEXT 1070ENDPROC 1080: 1090DEFPROCCircle(X%,Y%,R%) 1100VDU29,X%;Y%; 1110FORK%=0TOR%STEP4 1120Q%=SQR(R%*R%-K%*K%) 1130MOVE-Q%,K%:DRAWQ%,K% 1140MOVE-Q%,-K%:DRAWQ%,-K% 1150NEXT:VDU26:ENDPROC 1160: 1170DEFPROCBase 1180FORJ%=0TO2:GCOL0,15-J% 1190PROCCircle(BX%,BY%,24-J%*8) 1200NEXT:ENDPROC 1210: 1220DEFPROCScreen 1230FORI%=0TO15:VDU19,I%,0;0;:NEXT 1240GX%=64:GY%=32:GCOL0,12 1250RESTORE (2470+((Screen%-1)MOD10)*30) 1260READ N% 1270FORI%=1TON%:READ A$ 1280X1%=FNc(A$,1)*GX% 1290Y1%=1024-FNc(A$,2)*GY% 1300X2%=FNc(A$,3)*GX% 1310Y2%=1024-FNc(A$,4)*GY% 1320X3%=FNc(A$,5)*GX% 1330Y3%=1024-FNc(A$,6)*GY% 1340MOVEX1%,Y1%:MOVEX2%,Y2% 1350PLOT85,X3%,Y3%:NEXT 1360PROCDrawWalls 1370READ BX%,BY%:PROCBase 1380VDU4:COLOUR3 1390PRINTTAB(2,26);"- - Thruster - -" 1400PRINTTAB(10,29);"Level " 1410PRINTTAB(2,29);"Lives " 1420VDU5 1430FORI%=3TO11:VDU19,I%,6;0;:NEXT 1440VDU19,4,3;0;19,8,3;0;19,12,2;0; 1450ENDPROC 1460: 1470DEFFNc(A$,N%)=ASCMID$(A$,N%)-65 1480: 1490DEFPROCDrawWalls 1500READ N%:IFN%=0 ENDPROC 1510FORi%=1TON% 1520READ WX%,WY%,WT%,WL% 1530IFWT% GOTO1600 1540FORJ%=0TO1 1550GCOL0,4+J%*4 1560MOVEWX%+J%*8,WY%:DRAWWX%+J%*8,WY%+WL% 1570MOVEWX%+24-J%*8,WY%:DRAWWX%+24-J%*8,WY%+WL% 1580NEXT 1590GOTO1660 1600FORJ%=0TO1:GCOL0,4+J%*4 1610MOVEWX%,WY%+J%*8:DRAWWX%+WL%,WY%+J%*8 1620MOVEWX%,WY%+J%*8+4:DRAWWX%+WL%,WY%+J%*8+4 1630MOVEWX%,WY%+20-J%*8:DRAWWX%+WL%,WY%+20-J%*8 1640MOVEWX%,WY%+16-J%*8:DRAWWX%+WL%,WY%+16-J%*8 1650NEXT 1660NEXT:ENDPROC 1670: 1680DEFPROCWalls:IFTIME<wt%ENDPROC 1690IFD%=4 VDU19,C%,0;0; ELSEVDU19,C%,3;0; 1700IFC%+D%=0 OR C%+D%=12 D%=-D%:wt%=TIME+wi% ELSEC%=C%+D% 1710ENDPROC 1720: 1730DEFPROCTwiz:IFTIME<tt%ENDPROC 1740Q%=Q%+1:IFQ%<1 ENDPROC 1750IFTD%=1 VDU19,TW%,1;0; ELSEVDU19,TW%,0;0; 1760IFTD%+TW%=12 ORTD%+TW%=16 TD%=-TD% ELSETW%=TW%+TD% 1770Q%=0:tt%=TIME+ti%:ENDPROC 1780: 1790DEFPROCExplosion(EX%,EY%) 1800LOCAL I%,J%:*FX21,4 1810SOUND1,1,150,45:SOUND0,-15,7,35 1820GCOL3,7:VDU19,7,7;0; 1830FORI%=0TO2 1840ED%(I%,0)=RND(3)-2 1850ED%(I%,1)=RND(3)-2 1860NEXT 1870FORI%=16 TO60 STEP4 1880IFI%=60 GOTO1920 1890FORJ%=0TO2 1900MOVE EX%+ED%(J%,0)*I%,EY%+ED%(J%,1)*I% 1910VDUASC".":NEXT 1920IFI%=16 GOTO1960 1930FORJ%=0TO2 1940MOVE EX%+ED%(J%,0)*(I%-4),EY%+ED%(J%,1)*(I%-4) 1950VDUASC".":NEXT 1960NEXT 1970VDU19,7,6;0; 1980ENDPROC 1990: 2000DEFPROCHitBlob:TWI%=0 2010VDU19,13,0;0;19,14,0;0;15,0;0; 2020GCOL0,0 2030PROCCircle(BX%,BY%,24) 2040PROCExplosion(BX%,BY%) 2050VDU4:COLOUR128 2060PRINTTAB(2,0)SPC4 2070VDU5:ENDPROC 2080: 2090DEFPROCResetGame 2100Screen%=1:Lives%=3 2110GR=.7:GT%=0:ENDPROC 2120: 2130DEFPROCResetScreen 2140TWI%=TRUE 2150C%=8:D%=-4:T%=0 2160TD%=1:TW%=13 2170A%=0:C1%=1:C2%=2 2180XD=0:YD=0:TH%=0 2190Dead%=FALSE 2200ENDPROC 2210: 2220DEFPROCInfo:VDU4:CLS 2230COLOUR7:VDU19,7,7;0;19,8,8;0; 2240PRINTTAB(1,10);"Entering level - ";Screen% 2250GT%=Screen%DIV10 2260IF(Screen%MOD10)=0 COLOUR8:PRINTTAB(1,12);GT$(GT%) :GOTO2280 2270IF(Screen%MOD5)=0 COLOUR8:PRINTTAB(1,12);"Increased Gravity":GR=.8 2280IFGT%=1 A%=6 2290PROCDelay(300) 2300CLS:VDU5:ENDPROC 2310: 2320DEFPROCDelay(T%)T%=TIME+T% 2330REPEATUNTILTIME>T%:ENDPROC 2340: 2350DEFPROCGameOver:VDU4 2360COLOUR7:VDU19,7,7;0; 2370PRINTTAB(0,29)"Hit spacebar to play" 2380REPEATUNTILGET=32:CLS 2390VDU5:ENDPROC 2400: 2410DEFPROCStatus 2420VDU4:COLOUR3 2430PRINTTAB(8,29);Lives% 2440PRINTTAB(16,29);Screen% 2450VDU5:ENDPROC 2460: 2470DATA 10,AACAAQ,AKDZAZ,BRDZIZ,ISHZUZ,PXUJUZ,MKUJUV,SKUAUJ,UDUAPA,MDSAGA,INJBGA 2480DATA 2,508,448,0,172,540,688,1,232 2490DATA 1084,900 2500DATA 12,AACAAZ,AGCACG,OKCGPH,OKBLBF,AZCZBK,AZLZHV,IPLZHV,IPLZUQ,UZLZUM,UQRQUA,UFMAUA,RDGANA 2510DATA 1,504,540,0,148 2520DATA 172,320 2530DATA 14,CECAAA,CEAAAS,BZAEAZ,BZIZAV,UZGZQV,UZUAQV,TGUANA,REGANA,OCGAGE,EQGEHS,GNNQHS,IQNQNN,GDGJMC,JDNJMC 2540DATA 1,808,604,0,144 2550DATA 500,650 2560DATA 13,AUCAAA,AZDZAJ,AZUZHX,GAJAFT,JRNZHY,JRNZLH,JAPAHF,JAPAUH,UAPAUH,QEPKUH,UXRIUH,UZUSLY,UZLPLY 2570DATA 1,488,788,1,500 2580DATA 1100,480 2590DATA 14,AZCAAA,AZCZAB,AZFZAV,AZUZOX,RZUZUU,SAUZUU,SAUAUU,UGUANA,UDGANA,MBGAGD,FHLIEU,KGPJEU,KVPJEU,KVPJSP 2600DATA 1,104,388,1,144 2610DATA 1100,360 2620DATA 18,AZAACA,DGAZCB,DGDZAZ,DMFMDZ,FZFMDZ,FZFQHQ,FZHZHQ,HWHZUZ,UTQYUZ,UAPPUY,UAJTPP,UAJTJO,UAHOJO,UAHOHK,UAFKHK,UAFKFG,UAGBFG,UAGBGA 2630DATA 0 2640DATA 1100,360 2650DATA 8,AACACE,GCUEUA,GAGCUA,AAAUIN,KNUAUU,URUZKZ,ATDZAZ,AXOZAZ 2660DATA 1,508,600,1,140 2670DATA 124,380 2680DATA 13,AACAAJ,CACJAJ,CHCJQJ,CHQHQJ,UAGAGC,UAUCGC,UASAUZ,SZSAUZ,SZSOEO,AZCJAJ,AZCJCZ,AZSZCV,AZSZQV 2690DATA 8,396,804,0,154,596,804,0,154,796,804,0,154,996,804,
� Thruster Part 2 � by Rob Walmsley � (c) The Micro User (� � �7:�:�" at ";�:� 2�2:�23;8202;0;0;0; < �Init F� P�ResetGame Z� d�ResetScreen n �Info x�Screen ��Status � �Entrance �� ��TWI% �Twiz ��Walls:�Main �� Dead% �Y%>1080 �e�Dead% �3,C1%:�DrawShip(A%,X%,Y%):�Explosion(X%,Y%):Lives%=Lives%-1 �Screen%=Screen%+1:�2,3,180,1 ��Delay(150) � �Lives%=0 � �GameOver ��0 �: ���Main:�<mt%� OA%=A%:OX%=X%:OY%=Y% �19,C1%,6;0;19,C2%,0;0; �EN% �DTA "q�-74 � Fire%=0 �3,2,2,2:Fire%=�:FXD=S(A%)*28:FYD=C(A%)*28:FX%=X%+36+FXD:FY%=Y%-32+FYD:FM%=6:�3,7:�69,FX%,FY% ,�-66 A%=A%-1:�A%=-1 A%=11 6�-82 A%=A%+1:�A%=12 A%=0 @�-1 �T1 � �T2 J�Fire% �Fire T�GT%=2 �19,12,TH%;0; ^XD=XD+TH%*S(A%) hYD=YD+TH%*C(A%) r XD=XD*.97 |�XD>-.3 � XD<.3 XD=0 ��GT%=1 YD=YD+GR �YD=YD-GR �X%=X%+XD �Y%=Y%+YD � �3,C2% ��DrawShip(A%,X%,Y%) ��19,C1%,0;0;19,C2%,6;0; � �3,C1% ��DrawShip(OA%,OX%,OY%) �$�C1%=1 C1%=2:C2%=1 � C1%=1:C2%=2 ��CheckDead �mt%=�+mi%:� �: ���T1:TH%=2 �F%=1 �0,-1,6,-1:F%=0 � : &��T2:TH%=0 0�F%=0 F%=1:*FX21,4 :� D: N!��CheckDead:U%=X%+36:V%=Y%-32 X!P1%=�U%+S(A%)*28,V%+C(A%)*28) b/P2%=�U%+S((A%+5)�12)*28,V%+C((A%+5)�12)*28) l/P3%=�U%+S((A%+7)�12)*28,V%+C((A%+7)�12)*28) v;�(P1%>3 �P1%<12 �P2%>3 �P2%<12 �P3%>3 �P2%<12) �D%=-4 � � �P1%>3 �P2%>3 �P3%>3 Dead%=� �� �: ���DrawShip(I%,X%,Y%) ��X%,Y%:� 224+I%*2 ��X%,Y%-32:� 225+I%*2 �� �: � ��Fire ��3,7:�69,FX%,FY% � FM%=FM%-1 �FX%=FX%+FXD �FY%=FY%+FYD Col%=�FX%,FY%) �Col%>12 �HitBlob #�Col%>3 � Col%<12 � D%=-4 �TjC �Col%<>0 �FM%=0 Fire%=�:� *�3,7:�69,FX%,FY% 4� >: H��Init:F%=0 RTW%=0:TH%=-1 \Fire%=�:Dead%=� fXD=0:YD=0:GR=1:TH%=0 p!� S(11),C(11),ED%(7,1),GT$(2) z GT$(0)="" �GT$(1)="Inverse Gravity" � GT$(2)="Invisible Landscape" ��I%=0�11:J%=I%*30 �S(I%)=��J% �C(I%)=��J% ��: �ti%=10:wi%=300 �mi%=10:� �: ���Entrance:� GT% �EN%=�:X%=224:Y%=1088 ��4:�134 ��2,0)�4 �128:�5:EN%=� tt%=�+30:wt%=�+30 �i%=0�15:mt%=�-1 $�Main:� .� 8: B��Circle(X%,Y%,R%) L�29,X%;Y%; V�K%=0�R%�4 `Q%=�(R%*R%-K%*K%) j�-Q%,K%:�Q%,K% t�-Q%,-K%:�Q%,-K% ~�:�26:� �: � ��Base ��J%=0�2:�0,15-J% ��Circle(BX%,BY%,24-J%*8) ��:� �: ���Screen ��I%=0�15:�19,I%,0;0;:� �GX%=64:GY%=32:�0,12 � � (2470+((Screen%-1)�10)*30) �� N% ��I%=1�N%:� A$ X1%=�c(A$,1)*GX% Y1%=1024-�c(A$,2)*GY% X2%=�c(A$,3)*GX% Y2%=1024-�c(A$,4)*GY% (X3%=�c(A$,5)*GX% 2Y3%=1024-�c(A$,6)*GY% <�X1%,Y1%:�X2%,Y2% F�85,X3%,Y3%:� P�DrawWalls Z� BX%,BY%:�Base d �4:�3 n�2,26);"- - Thruster - -" x�10,29);"Level " ��2,29);"Lives " ��5 ��I%=3�11:�19,I%,6;0;:� �!�19,4,3;0;19,8,3;0;19,12,2;0; �� �: �ݤc(A$,N%)=��A$,N%)-65 �: ���DrawWalls �� N%:�N%=0 � ��i%=1�N% �� WX%,WY%,WT%,WL% ��WT% �D@F �J%=0�1 �0,4+J%*4 #�WX%+J%*8,WY%:�WX%+J%*8,WY%+WL% ")�WX%+24-J%*8,WY%:�WX%+24-J%*8,WY%+WL% ,� 6 �D|F @�J%=0�1:�0,4+J%*4 J#�WX%,WY%+J%*8:�WX%+WL%,WY%+J%*8 T'�WX%,WY%+J%*8+4:�WX%+WL%,WY%+J%*8+4 ^)�WX%,WY%+20-J%*8:�WX%+WL%,WY%+20-J%*8 h)�WX%,WY%+16-J%*8:�WX%+WL%,WY%+16-J%*8 r� |�:� �: ���Walls:�<wt%� �"�D%=4 �19,C%,0;0; ��19,C%,3;0; �2�C%+D%=0 � C%+D%=12 D%=-D%:wt%=�+wi% �C%=C%+D% �� �: ���Twiz:�<tt%� �Q%=Q%+1:�Q%<1 � �%�TD%=1 �19,TW%,1;0; ��19,TW%,0;0; �1�TD%+TW%=12 �TD%+TW%=16 TD%=-TD% �TW%=TW%+TD% �Q%=0:tt%=�+ti%:� �: ���Explosion(EX%,EY%) � I%,J%:*FX21,4 �1,1,150,45:�0,-15,7,35 �3,7:�19,7,7;0; &�I%=0�2 0ED%(I%,0)=�(3)-2 :ED%(I%,1)=�(3)-2 D� N�I%=16 �60 �4 X�I%=60 �t@G b�J%=0�2 l'� EX%+ED%(J%,0)*I%,EY%+ED%(J%,1)*I% v�".":� ��I%=16 �thG ��J%=0�2 �/� EX%+ED%(J%,0)*(I%-4),EY%+ED%(J%,1)*(I%-4) ��".":� �� ��19,7,6;0; �� �: ���HitBlob:TWI%=0 � �19,13,0;0;19,14,0;0;15,0;0; ��0,0 ��Circle(BX%,BY%,24) ��Explosion(BX%,BY%) �4:�128 �2,0)�4 �5:� : *��ResetGame 4Screen%=1:Lives%=3 >GR=.7:GT%=0:� H: R��ResetScreen \ TWI%=� fC%=8:D%=-4:T%=0 pTD%=1:TW%=13 zA%=0:C1%=1:C2%=2 �XD=0:YD=0:TH%=0 �Dead%=� �� �: ���Info:�4:� ��7:�19,7,7;0;19,8,8;0; �'�1,10);"Entering level - ";Screen% �GT%=Screen%�10 �.�(Screen%�10)=0 �8:�1,12);GT$(GT%) :�dhH �7�(Screen%�5)=0 �8:�1,12);"Increased Gravity":GR=.8 ��GT%=1 A%=6 ��Delay(300) � �:�5:� : ��Delay(T%)T%=�+T% ���>T%:� $: .��GameOver:�4 8�7:�19,7,7;0; B!�0,29)"Hit spacebar to play" L���=32:� V�5:� `: j��Status t �4:�3 ~�8,29);Lives% ��16,29);Screen% ��5:� �: �N� 10,AACAAQ,AKDZAZ,BRDZIZ,ISHZUZ,PXUJUZ,MKUJUV,SKUAUJ,UDUAPA,MDSAGA,INJBGA �#� 2,508,448,0,172,540,688,1,232 �� 1084,900 �\� 12,AACAAZ,AGCACG,OKCGPH,OKBLBF,AZCZBK,AZLZHV,IPLZHV,IPLZUQ,UZLZUM,UQRQUA,UFMAUA,RDGANA �� 1,504,540,0,148 � � 172,320 �j� 14,CECAAA,CEAAAS,BZAEAZ,BZIZAV,UZGZQV,UZUAQV,TGUANA,REGANA,OCGAGE,EQGEHS,GNNQHS,IQNQNN,GDGJMC,JDNJMC �� 1,808,604,0,144 � � 500,650 c� 13,AUCAAA,AZDZAJ,AZUZHX,GAJAFT,JRNZHY,JRNZLH,JAPAHF,JAPAUH,UAPAUH,QEPKUH,UXRIUH,UZUSLY,UZLPLY � 1,488,788,1,500 � 1100,480 j� 14,AZCAAA,AZCZAB,AZFZAV,AZUZOX,RZUZUU,SAUZUU,SAUAUU,UGUANA,UDGANA,MBGAGD,FHLIEU,KGPJEU,KVPJEU,KVPJSP (� 1,104,388,1,144 2� 1100,360 <�� 18,AZAACA,DGAZCB,DGDZAZ,DMFMDZ,FZFMDZ,FZFQHQ,FZHZHQ,HWHZUZ,UTQYUZ,UAPPUY,UAJTPP,UAJTJO,UAHOJO,UAHOHK,UAFKHK,UAFKFG,UAGBFG,UAGBGA F� 0 P� 1100,360 Z?� 8,AACACE,GCUEUA,GAGCUA,AAAUIN,KNUAUU,URUZKZ,ATDZAZ,AXOZAZ d� 1,508,600,1,140 n � 124,380 xc� 13,AACAAJ,CACJAJ,CHCJQJ,CHQHQJ,UAGAGC,UAUCGC,UASAUZ,SZSAUZ,SZSOEO,AZCJAJ,AZCJCZ,AZSZCV,AZSZQV �w� 8,396,804,0,154,596,804,0,154,796,804,0,154,996,804,
00000000 0d 00 0a 15 f4 20 54 68 72 75 73 74 65 72 20 50 |..... Thruster P| 00000010 61 72 74 20 32 0d 00 14 15 f4 20 62 79 20 52 6f |art 2..... by Ro| 00000020 62 20 57 61 6c 6d 73 6c 65 79 0d 00 1e 18 f4 20 |b Walmsley..... | 00000030 28 63 29 20 54 68 65 20 4d 69 63 72 6f 20 55 73 |(c) The Micro Us| 00000040 65 72 0d 00 28 18 ee 20 85 20 eb 37 3a f6 3a f1 |er..(.. . .7:.:.| 00000050 22 20 61 74 20 22 3b 9e 3a e0 0d 00 32 16 eb 32 |" at ";.:...2..2| 00000060 3a ef 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b |:.23;8202;0;0;0;| 00000070 0d 00 3c 09 f2 49 6e 69 74 0d 00 46 05 f5 0d 00 |..<..Init..F....| 00000080 50 0e f2 52 65 73 65 74 47 61 6d 65 0d 00 5a 05 |P..ResetGame..Z.| 00000090 f5 0d 00 64 10 f2 52 65 73 65 74 53 63 72 65 65 |...d..ResetScree| 000000a0 6e 0d 00 6e 09 f2 49 6e 66 6f 0d 00 78 0b f2 53 |n..n..Info..x..S| 000000b0 63 72 65 65 6e 0d 00 82 0b f2 53 74 61 74 75 73 |creen.....Status| 000000c0 0d 00 8c 0d f2 45 6e 74 72 61 6e 63 65 0d 00 96 |.....Entrance...| 000000d0 05 f5 0d 00 a0 0f e7 54 57 49 25 20 f2 54 77 69 |.......TWI% .Twi| 000000e0 7a 0d 00 aa 10 f2 57 61 6c 6c 73 3a f2 4d 61 69 |z.....Walls:.Mai| 000000f0 6e 0d 00 b4 14 fd 20 44 65 61 64 25 20 84 59 25 |n..... Dead% .Y%| 00000100 3e 31 30 38 30 0d 00 be 65 e7 44 65 61 64 25 20 |>1080...e.Dead% | 00000110 e6 33 2c 43 31 25 3a f2 44 72 61 77 53 68 69 70 |.3,C1%:.DrawShip| 00000120 28 41 25 2c 58 25 2c 59 25 29 3a f2 45 78 70 6c |(A%,X%,Y%):.Expl| 00000130 6f 73 69 6f 6e 28 58 25 2c 59 25 29 3a 4c 69 76 |osion(X%,Y%):Liv| 00000140 65 73 25 3d 4c 69 76 65 73 25 2d 31 20 8b 53 63 |es%=Lives%-1 .Sc| 00000150 72 65 65 6e 25 3d 53 63 72 65 65 6e 25 2b 31 3a |reen%=Screen%+1:| 00000160 d4 32 2c 33 2c 31 38 30 2c 31 0d 00 c8 0f f2 44 |.2,3,180,1.....D| 00000170 65 6c 61 79 28 31 35 30 29 0d 00 d2 0d fd 4c 69 |elay(150).....Li| 00000180 76 65 73 25 3d 30 0d 00 dc 0d f2 47 61 6d 65 4f |ves%=0.....GameO| 00000190 76 65 72 0d 00 e6 06 fd 30 0d 00 f0 05 3a 0d 00 |ver.....0....:..| 000001a0 fa 12 dd f2 4d 61 69 6e 3a e7 91 3c 6d 74 25 e1 |....Main:..<mt%.| 000001b0 0d 01 04 18 4f 41 25 3d 41 25 3a 4f 58 25 3d 58 |....OA%=A%:OX%=X| 000001c0 25 3a 4f 59 25 3d 59 25 0d 01 0e 1b ef 31 39 2c |%:OY%=Y%.....19,| 000001d0 43 31 25 2c 36 3b 30 3b 31 39 2c 43 32 25 2c 30 |C1%,6;0;19,C2%,0| 000001e0 3b 30 3b 0d 01 18 0e e7 45 4e 25 20 e5 8d 44 54 |;0;.....EN% ..DT| 000001f0 41 0d 01 22 71 e7 a6 2d 37 34 20 e7 20 46 69 72 |A.."q..-74 . Fir| 00000200 65 25 3d 30 20 d4 33 2c 32 2c 32 2c 32 3a 46 69 |e%=0 .3,2,2,2:Fi| 00000210 72 65 25 3d b9 3a 46 58 44 3d 53 28 41 25 29 2a |re%=.:FXD=S(A%)*| 00000220 32 38 3a 46 59 44 3d 43 28 41 25 29 2a 32 38 3a |28:FYD=C(A%)*28:| 00000230 46 58 25 3d 58 25 2b 33 36 2b 46 58 44 3a 46 59 |FX%=X%+36+FXD:FY| 00000240 25 3d 59 25 2d 33 32 2b 46 59 44 3a 46 4d 25 3d |%=Y%-32+FYD:FM%=| 00000250 36 3a e6 33 2c 37 3a f0 36 39 2c 46 58 25 2c 46 |6:.3,7:.69,FX%,F| 00000260 59 25 0d 01 2c 1e e7 a6 2d 36 36 20 41 25 3d 41 |Y%..,...-66 A%=A| 00000270 25 2d 31 3a e7 41 25 3d 2d 31 20 41 25 3d 31 31 |%-1:.A%=-1 A%=11| 00000280 0d 01 36 1d e7 a6 2d 38 32 20 41 25 3d 41 25 2b |..6...-82 A%=A%+| 00000290 31 3a e7 41 25 3d 31 32 20 41 25 3d 30 0d 01 40 |1:.A%=12 A%=0..@| 000002a0 13 e7 a6 2d 31 20 20 f2 54 31 20 8b 20 f2 54 32 |...-1 .T1 . .T2| 000002b0 0d 01 4a 10 e7 46 69 72 65 25 20 f2 46 69 72 65 |..J..Fire% .Fire| 000002c0 0d 01 54 18 e7 47 54 25 3d 32 20 ef 31 39 2c 31 |..T..GT%=2 .19,1| 000002d0 32 2c 54 48 25 3b 30 3b 0d 01 5e 13 58 44 3d 58 |2,TH%;0;..^.XD=X| 000002e0 44 2b 54 48 25 2a 53 28 41 25 29 0d 01 68 13 59 |D+TH%*S(A%)..h.Y| 000002f0 44 3d 59 44 2b 54 48 25 2a 43 28 41 25 29 0d 01 |D=YD+TH%*C(A%)..| 00000300 72 0d 58 44 3d 58 44 2a 2e 39 37 0d 01 7c 18 e7 |r.XD=XD*.97..|..| 00000310 58 44 3e 2d 2e 33 20 e7 20 58 44 3c 2e 33 20 58 |XD>-.3 . XD<.3 X| 00000320 44 3d 30 0d 01 86 1d e7 47 54 25 3d 31 20 59 44 |D=0.....GT%=1 YD| 00000330 3d 59 44 2b 47 52 20 8b 59 44 3d 59 44 2d 47 52 |=YD+GR .YD=YD-GR| 00000340 0d 01 90 0c 58 25 3d 58 25 2b 58 44 0d 01 9a 0c |....X%=X%+XD....| 00000350 59 25 3d 59 25 2b 59 44 0d 01 a4 0a e6 33 2c 43 |Y%=Y%+YD.....3,C| 00000360 32 25 0d 01 ae 17 f2 44 72 61 77 53 68 69 70 28 |2%.....DrawShip(| 00000370 41 25 2c 58 25 2c 59 25 29 0d 01 b8 1b ef 31 39 |A%,X%,Y%).....19| 00000380 2c 43 31 25 2c 30 3b 30 3b 31 39 2c 43 32 25 2c |,C1%,0;0;19,C2%,| 00000390 36 3b 30 3b 0d 01 c2 0a e6 33 2c 43 31 25 0d 01 |6;0;.....3,C1%..| 000003a0 cc 1a f2 44 72 61 77 53 68 69 70 28 4f 41 25 2c |...DrawShip(OA%,| 000003b0 4f 58 25 2c 4f 59 25 29 0d 01 d6 24 e7 43 31 25 |OX%,OY%)...$.C1%| 000003c0 3d 31 20 43 31 25 3d 32 3a 43 32 25 3d 31 20 8b |=1 C1%=2:C2%=1 .| 000003d0 20 43 31 25 3d 31 3a 43 32 25 3d 32 0d 01 e0 0e | C1%=1:C2%=2....| 000003e0 f2 43 68 65 63 6b 44 65 61 64 0d 01 ea 0f 6d 74 |.CheckDead....mt| 000003f0 25 3d 91 2b 6d 69 25 3a e1 0d 01 f4 05 3a 0d 01 |%=.+mi%:.....:..| 00000400 fe 0e dd f2 54 31 3a 54 48 25 3d 32 0d 02 08 19 |....T1:TH%=2....| 00000410 e7 46 25 3d 31 20 d4 30 2c 2d 31 2c 36 2c 2d 31 |.F%=1 .0,-1,6,-1| 00000420 3a 46 25 3d 30 0d 02 12 05 e1 0d 02 1c 05 3a 0d |:F%=0.........:.| 00000430 02 26 0e dd f2 54 32 3a 54 48 25 3d 30 0d 02 30 |.&...T2:TH%=0..0| 00000440 16 e7 46 25 3d 30 20 46 25 3d 31 3a 2a 46 58 32 |..F%=0 F%=1:*FX2| 00000450 31 2c 34 0d 02 3a 05 e1 0d 02 44 05 3a 0d 02 4e |1,4..:....D.:..N| 00000460 21 dd f2 43 68 65 63 6b 44 65 61 64 3a 55 25 3d |!..CheckDead:U%=| 00000470 58 25 2b 33 36 3a 56 25 3d 59 25 2d 33 32 0d 02 |X%+36:V%=Y%-32..| 00000480 58 21 50 31 25 3d b0 55 25 2b 53 28 41 25 29 2a |X!P1%=.U%+S(A%)*| 00000490 32 38 2c 56 25 2b 43 28 41 25 29 2a 32 38 29 0d |28,V%+C(A%)*28).| 000004a0 02 62 2f 50 32 25 3d b0 55 25 2b 53 28 28 41 25 |.b/P2%=.U%+S((A%| 000004b0 2b 35 29 83 31 32 29 2a 32 38 2c 56 25 2b 43 28 |+5).12)*28,V%+C(| 000004c0 28 41 25 2b 35 29 83 31 32 29 2a 32 38 29 0d 02 |(A%+5).12)*28)..| 000004d0 6c 2f 50 33 25 3d b0 55 25 2b 53 28 28 41 25 2b |l/P3%=.U%+S((A%+| 000004e0 37 29 83 31 32 29 2a 32 38 2c 56 25 2b 43 28 28 |7).12)*28,V%+C((| 000004f0 41 25 2b 37 29 83 31 32 29 2a 32 38 29 0d 02 76 |A%+7).12)*28)..v| 00000500 3b e7 28 50 31 25 3e 33 20 80 50 31 25 3c 31 32 |;.(P1%>3 .P1%<12| 00000510 20 84 50 32 25 3e 33 20 80 50 32 25 3c 31 32 20 | .P2%>3 .P2%<12 | 00000520 84 50 33 25 3e 33 20 80 50 32 25 3c 31 32 29 20 |.P3%>3 .P2%<12) | 00000530 80 44 25 3d 2d 34 20 e1 0d 02 80 20 e7 50 31 25 |.D%=-4 .... .P1%| 00000540 3e 33 20 84 50 32 25 3e 33 20 84 50 33 25 3e 33 |>3 .P2%>3 .P3%>3| 00000550 20 44 65 61 64 25 3d b9 0d 02 8a 05 e1 0d 02 94 | Dead%=.........| 00000560 05 3a 0d 02 9e 18 dd f2 44 72 61 77 53 68 69 70 |.:......DrawShip| 00000570 28 49 25 2c 58 25 2c 59 25 29 0d 02 a8 15 ec 58 |(I%,X%,Y%).....X| 00000580 25 2c 59 25 3a ef 20 32 32 34 2b 49 25 2a 32 0d |%,Y%:. 224+I%*2.| 00000590 02 b2 18 ec 58 25 2c 59 25 2d 33 32 3a ef 20 32 |....X%,Y%-32:. 2| 000005a0 32 35 2b 49 25 2a 32 0d 02 bc 05 e1 0d 02 c6 05 |25+I%*2.........| 000005b0 3a 0d 02 d0 0a dd f2 46 69 72 65 0d 02 da 14 e6 |:......Fire.....| 000005c0 33 2c 37 3a f0 36 39 2c 46 58 25 2c 46 59 25 0d |3,7:.69,FX%,FY%.| 000005d0 02 e4 0d 46 4d 25 3d 46 4d 25 2d 31 0d 02 ee 0f |...FM%=FM%-1....| 000005e0 46 58 25 3d 46 58 25 2b 46 58 44 0d 02 f8 0f 46 |FX%=FX%+FXD....F| 000005f0 59 25 3d 46 59 25 2b 46 59 44 0d 03 02 12 43 6f |Y%=FY%+FYD....Co| 00000600 6c 25 3d b0 46 58 25 2c 46 59 25 29 0d 03 0c 15 |l%=.FX%,FY%)....| 00000610 e7 43 6f 6c 25 3e 31 32 20 f2 48 69 74 42 6c 6f |.Col%>12 .HitBlo| 00000620 62 0d 03 16 23 e7 43 6f 6c 25 3e 33 20 e7 20 43 |b...#.Col%>3 . C| 00000630 6f 6c 25 3c 31 32 20 e7 20 44 25 3d 2d 34 20 e5 |ol%<12 . D%=-4 .| 00000640 8d 54 6a 43 0d 03 20 1d e7 43 6f 6c 25 3c 3e 30 |.TjC.. ..Col%<>0| 00000650 20 84 46 4d 25 3d 30 20 46 69 72 65 25 3d a3 3a | .FM%=0 Fire%=.:| 00000660 e1 0d 03 2a 14 e6 33 2c 37 3a f0 36 39 2c 46 58 |...*..3,7:.69,FX| 00000670 25 2c 46 59 25 0d 03 34 05 e1 0d 03 3e 05 3a 0d |%,FY%..4....>.:.| 00000680 03 48 0f dd f2 49 6e 69 74 3a 46 25 3d 30 0d 03 |.H...Init:F%=0..| 00000690 52 10 54 57 25 3d 30 3a 54 48 25 3d 2d 31 0d 03 |R.TW%=0:TH%=-1..| 000006a0 5c 13 46 69 72 65 25 3d a3 3a 44 65 61 64 25 3d |\.Fire%=.:Dead%=| 000006b0 a3 0d 03 66 18 58 44 3d 30 3a 59 44 3d 30 3a 47 |...f.XD=0:YD=0:G| 000006c0 52 3d 31 3a 54 48 25 3d 30 0d 03 70 21 de 20 53 |R=1:TH%=0..p!. S| 000006d0 28 31 31 29 2c 43 28 31 31 29 2c 45 44 25 28 37 |(11),C(11),ED%(7| 000006e0 2c 31 29 2c 47 54 24 28 32 29 0d 03 7a 0d 47 54 |,1),GT$(2)..z.GT| 000006f0 24 28 30 29 3d 22 22 0d 03 84 1c 47 54 24 28 31 |$(0)=""....GT$(1| 00000700 29 3d 22 49 6e 76 65 72 73 65 20 47 72 61 76 69 |)="Inverse Gravi| 00000710 74 79 22 0d 03 8e 20 47 54 24 28 32 29 3d 22 49 |ty"... GT$(2)="I| 00000720 6e 76 69 73 69 62 6c 65 20 4c 61 6e 64 73 63 61 |nvisible Landsca| 00000730 70 65 22 0d 03 98 15 e3 49 25 3d 30 b8 31 31 3a |pe".....I%=0.11:| 00000740 4a 25 3d 49 25 2a 33 30 0d 03 a2 0e 53 28 49 25 |J%=I%*30....S(I%| 00000750 29 3d b5 b2 4a 25 0d 03 ac 0e 43 28 49 25 29 3d |)=..J%....C(I%)=| 00000760 9b b2 4a 25 0d 03 b6 06 ed 3a 0d 03 c0 12 74 69 |..J%.....:....ti| 00000770 25 3d 31 30 3a 77 69 25 3d 33 30 30 0d 03 ca 0c |%=10:wi%=300....| 00000780 6d 69 25 3d 31 30 3a e1 0d 03 d4 05 3a 0d 03 de |mi%=10:.....:...| 00000790 14 dd f2 45 6e 74 72 61 6e 63 65 3a ea 20 47 54 |...Entrance:. GT| 000007a0 25 0d 03 e8 18 45 4e 25 3d b9 3a 58 25 3d 32 32 |%....EN%=.:X%=22| 000007b0 34 3a 59 25 3d 31 30 38 38 0d 03 f2 0b ef 34 3a |4:Y%=1088.....4:| 000007c0 fb 31 33 34 0d 03 fc 0c f1 8a 32 2c 30 29 89 34 |.134......2,0).4| 000007d0 0d 04 06 11 fb 31 32 38 3a ef 35 3a 45 4e 25 3d |.....128:.5:EN%=| 000007e0 a3 0d 04 10 15 74 74 25 3d 91 2b 33 30 3a 77 74 |.....tt%=.+30:wt| 000007f0 25 3d 91 2b 33 30 0d 04 1a 14 e3 69 25 3d 30 b8 |%=.+30.....i%=0.| 00000800 31 35 3a 6d 74 25 3d 91 2d 31 0d 04 24 0b f2 4d |15:mt%=.-1..$..M| 00000810 61 69 6e 3a ed 0d 04 2e 05 e1 0d 04 38 05 3a 0d |ain:........8.:.| 00000820 04 42 16 dd f2 43 69 72 63 6c 65 28 58 25 2c 59 |.B...Circle(X%,Y| 00000830 25 2c 52 25 29 0d 04 4c 0e ef 32 39 2c 58 25 3b |%,R%)..L..29,X%;| 00000840 59 25 3b 0d 04 56 0e e3 4b 25 3d 30 b8 52 25 88 |Y%;..V..K%=0.R%.| 00000850 34 0d 04 60 15 51 25 3d b6 28 52 25 2a 52 25 2d |4..`.Q%=.(R%*R%-| 00000860 4b 25 2a 4b 25 29 0d 04 6a 12 ec 2d 51 25 2c 4b |K%*K%)..j..-Q%,K| 00000870 25 3a df 51 25 2c 4b 25 0d 04 74 14 ec 2d 51 25 |%:.Q%,K%..t..-Q%| 00000880 2c 2d 4b 25 3a df 51 25 2c 2d 4b 25 0d 04 7e 0b |,-K%:.Q%,-K%..~.| 00000890 ed 3a ef 32 36 3a e1 0d 04 88 05 3a 0d 04 92 0a |.:.26:.....:....| 000008a0 dd f2 42 61 73 65 0d 04 9c 14 e3 4a 25 3d 30 b8 |..Base.....J%=0.| 000008b0 32 3a e6 30 2c 31 35 2d 4a 25 0d 04 a6 1c f2 43 |2:.0,15-J%.....C| 000008c0 69 72 63 6c 65 28 42 58 25 2c 42 59 25 2c 32 34 |ircle(BX%,BY%,24| 000008d0 2d 4a 25 2a 38 29 0d 04 b0 07 ed 3a e1 0d 04 ba |-J%*8).....:....| 000008e0 05 3a 0d 04 c4 0c dd f2 53 63 72 65 65 6e 0d 04 |.:......Screen..| 000008f0 ce 1a e3 49 25 3d 30 b8 31 35 3a ef 31 39 2c 49 |...I%=0.15:.19,I| 00000900 25 2c 30 3b 30 3b 3a ed 0d 04 d8 17 47 58 25 3d |%,0;0;:.....GX%=| 00000910 36 34 3a 47 59 25 3d 33 32 3a e6 30 2c 31 32 0d |64:GY%=32:.0,12.| 00000920 04 e2 20 f7 20 28 32 34 37 30 2b 28 28 53 63 72 |.. . (2470+((Scr| 00000930 65 65 6e 25 2d 31 29 83 31 30 29 2a 33 30 29 0d |een%-1).10)*30).| 00000940 04 ec 08 f3 20 4e 25 0d 04 f6 11 e3 49 25 3d 31 |.... N%.....I%=1| 00000950 b8 4e 25 3a f3 20 41 24 0d 05 00 14 58 31 25 3d |.N%:. A$....X1%=| 00000960 a4 63 28 41 24 2c 31 29 2a 47 58 25 0d 05 0a 19 |.c(A$,1)*GX%....| 00000970 59 31 25 3d 31 30 32 34 2d a4 63 28 41 24 2c 32 |Y1%=1024-.c(A$,2| 00000980 29 2a 47 59 25 0d 05 14 14 58 32 25 3d a4 63 28 |)*GY%....X2%=.c(| 00000990 41 24 2c 33 29 2a 47 58 25 0d 05 1e 19 59 32 25 |A$,3)*GX%....Y2%| 000009a0 3d 31 30 32 34 2d a4 63 28 41 24 2c 34 29 2a 47 |=1024-.c(A$,4)*G| 000009b0 59 25 0d 05 28 14 58 33 25 3d a4 63 28 41 24 2c |Y%..(.X3%=.c(A$,| 000009c0 35 29 2a 47 58 25 0d 05 32 19 59 33 25 3d 31 30 |5)*GX%..2.Y3%=10| 000009d0 32 34 2d a4 63 28 41 24 2c 36 29 2a 47 59 25 0d |24-.c(A$,6)*GY%.| 000009e0 05 3c 15 ec 58 31 25 2c 59 31 25 3a ec 58 32 25 |.<..X1%,Y1%:.X2%| 000009f0 2c 59 32 25 0d 05 46 11 f0 38 35 2c 58 33 25 2c |,Y2%..F..85,X3%,| 00000a00 59 33 25 3a ed 0d 05 50 0e f2 44 72 61 77 57 61 |Y3%:...P..DrawWa| 00000a10 6c 6c 73 0d 05 5a 13 f3 20 42 58 25 2c 42 59 25 |lls..Z.. BX%,BY%| 00000a20 3a f2 42 61 73 65 0d 05 64 09 ef 34 3a fb 33 0d |:.Base..d..4:.3.| 00000a30 05 6e 1f f1 8a 32 2c 32 36 29 3b 22 2d 20 2d 20 |.n...2,26);"- - | 00000a40 54 68 72 75 73 74 65 72 20 2d 20 2d 22 20 0d 05 |Thruster - -" ..| 00000a50 78 15 f1 8a 31 30 2c 32 39 29 3b 22 4c 65 76 65 |x...10,29);"Leve| 00000a60 6c 20 22 0d 05 82 14 f1 8a 32 2c 32 39 29 3b 22 |l "......2,29);"| 00000a70 4c 69 76 65 73 20 22 0d 05 8c 06 ef 35 0d 05 96 |Lives ".....5...| 00000a80 1a e3 49 25 3d 33 b8 31 31 3a ef 31 39 2c 49 25 |..I%=3.11:.19,I%| 00000a90 2c 36 3b 30 3b 3a ed 0d 05 a0 21 ef 31 39 2c 34 |,6;0;:....!.19,4| 00000aa0 2c 33 3b 30 3b 31 39 2c 38 2c 33 3b 30 3b 31 39 |,3;0;19,8,3;0;19| 00000ab0 2c 31 32 2c 32 3b 30 3b 0d 05 aa 05 e1 0d 05 b4 |,12,2;0;........| 00000ac0 05 3a 0d 05 be 1a dd a4 63 28 41 24 2c 4e 25 29 |.:......c(A$,N%)| 00000ad0 3d 97 c1 41 24 2c 4e 25 29 2d 36 35 0d 05 c8 05 |=..A$,N%)-65....| 00000ae0 3a 0d 05 d2 0f dd f2 44 72 61 77 57 61 6c 6c 73 |:......DrawWalls| 00000af0 0d 05 dc 10 f3 20 4e 25 3a e7 4e 25 3d 30 20 e1 |..... N%:.N%=0 .| 00000b00 0d 05 e6 0c e3 69 25 3d 31 b8 4e 25 0d 05 f0 15 |.....i%=1.N%....| 00000b10 f3 20 57 58 25 2c 57 59 25 2c 57 54 25 2c 57 4c |. WX%,WY%,WT%,WL| 00000b20 25 0d 05 fa 0e e7 57 54 25 20 e5 8d 44 40 46 0d |%.....WT% ..D@F.| 00000b30 06 04 0b e3 4a 25 3d 30 b8 31 0d 06 0e 0d e6 30 |....J%=0.1.....0| 00000b40 2c 34 2b 4a 25 2a 34 0d 06 18 23 ec 57 58 25 2b |,4+J%*4...#.WX%+| 00000b50 4a 25 2a 38 2c 57 59 25 3a df 57 58 25 2b 4a 25 |J%*8,WY%:.WX%+J%| 00000b60 2a 38 2c 57 59 25 2b 57 4c 25 0d 06 22 29 ec 57 |*8,WY%+WL%..").W| 00000b70 58 25 2b 32 34 2d 4a 25 2a 38 2c 57 59 25 3a df |X%+24-J%*8,WY%:.| 00000b80 57 58 25 2b 32 34 2d 4a 25 2a 38 2c 57 59 25 2b |WX%+24-J%*8,WY%+| 00000b90 57 4c 25 0d 06 2c 05 ed 0d 06 36 09 e5 8d 44 7c |WL%..,....6...D|| 00000ba0 46 0d 06 40 15 e3 4a 25 3d 30 b8 31 3a e6 30 2c |F..@..J%=0.1:.0,| 00000bb0 34 2b 4a 25 2a 34 0d 06 4a 23 ec 57 58 25 2c 57 |4+J%*4..J#.WX%,W| 00000bc0 59 25 2b 4a 25 2a 38 3a df 57 58 25 2b 57 4c 25 |Y%+J%*8:.WX%+WL%| 00000bd0 2c 57 59 25 2b 4a 25 2a 38 0d 06 54 27 ec 57 58 |,WY%+J%*8..T'.WX| 00000be0 25 2c 57 59 25 2b 4a 25 2a 38 2b 34 3a df 57 58 |%,WY%+J%*8+4:.WX| 00000bf0 25 2b 57 4c 25 2c 57 59 25 2b 4a 25 2a 38 2b 34 |%+WL%,WY%+J%*8+4| 00000c00 0d 06 5e 29 ec 57 58 25 2c 57 59 25 2b 32 30 2d |..^).WX%,WY%+20-| 00000c10 4a 25 2a 38 3a df 57 58 25 2b 57 4c 25 2c 57 59 |J%*8:.WX%+WL%,WY| 00000c20 25 2b 32 30 2d 4a 25 2a 38 0d 06 68 29 ec 57 58 |%+20-J%*8..h).WX| 00000c30 25 2c 57 59 25 2b 31 36 2d 4a 25 2a 38 3a df 57 |%,WY%+16-J%*8:.W| 00000c40 58 25 2b 57 4c 25 2c 57 59 25 2b 31 36 2d 4a 25 |X%+WL%,WY%+16-J%| 00000c50 2a 38 0d 06 72 05 ed 0d 06 7c 07 ed 3a e1 0d 06 |*8..r....|..:...| 00000c60 86 05 3a 0d 06 90 13 dd f2 57 61 6c 6c 73 3a e7 |..:......Walls:.| 00000c70 91 3c 77 74 25 e1 0d 06 9a 22 e7 44 25 3d 34 20 |.<wt%....".D%=4 | 00000c80 ef 31 39 2c 43 25 2c 30 3b 30 3b 20 8b ef 31 39 |.19,C%,0;0; ..19| 00000c90 2c 43 25 2c 33 3b 30 3b 0d 06 a4 32 e7 43 25 2b |,C%,3;0;...2.C%+| 00000ca0 44 25 3d 30 20 84 20 43 25 2b 44 25 3d 31 32 20 |D%=0 . C%+D%=12 | 00000cb0 44 25 3d 2d 44 25 3a 77 74 25 3d 91 2b 77 69 25 |D%=-D%:wt%=.+wi%| 00000cc0 20 8b 43 25 3d 43 25 2b 44 25 0d 06 ae 05 e1 0d | .C%=C%+D%......| 00000cd0 06 b8 05 3a 0d 06 c2 12 dd f2 54 77 69 7a 3a e7 |...:......Twiz:.| 00000ce0 91 3c 74 74 25 e1 0d 06 cc 13 51 25 3d 51 25 2b |.<tt%.....Q%=Q%+| 00000cf0 31 3a e7 51 25 3c 31 20 e1 0d 06 d6 25 e7 54 44 |1:.Q%<1 ....%.TD| 00000d00 25 3d 31 20 ef 31 39 2c 54 57 25 2c 31 3b 30 3b |%=1 .19,TW%,1;0;| 00000d10 20 8b ef 31 39 2c 54 57 25 2c 30 3b 30 3b 0d 06 | ..19,TW%,0;0;..| 00000d20 e0 31 e7 54 44 25 2b 54 57 25 3d 31 32 20 84 54 |.1.TD%+TW%=12 .T| 00000d30 44 25 2b 54 57 25 3d 31 36 20 54 44 25 3d 2d 54 |D%+TW%=16 TD%=-T| 00000d40 44 25 20 8b 54 57 25 3d 54 57 25 2b 54 44 25 0d |D% .TW%=TW%+TD%.| 00000d50 06 ea 14 51 25 3d 30 3a 74 74 25 3d 91 2b 74 69 |...Q%=0:tt%=.+ti| 00000d60 25 3a e1 0d 06 f4 05 3a 0d 06 fe 18 dd f2 45 78 |%:.....:......Ex| 00000d70 70 6c 6f 73 69 6f 6e 28 45 58 25 2c 45 59 25 29 |plosion(EX%,EY%)| 00000d80 0d 07 08 13 ea 20 49 25 2c 4a 25 3a 2a 46 58 32 |..... I%,J%:*FX2| 00000d90 31 2c 34 0d 07 12 1b d4 31 2c 31 2c 31 35 30 2c |1,4.....1,1,150,| 00000da0 34 35 3a d4 30 2c 2d 31 35 2c 37 2c 33 35 0d 07 |45:.0,-15,7,35..| 00000db0 1c 13 e6 33 2c 37 3a ef 31 39 2c 37 2c 37 3b 30 |...3,7:.19,7,7;0| 00000dc0 3b 0d 07 26 0b e3 49 25 3d 30 b8 32 0d 07 30 14 |;..&..I%=0.2..0.| 00000dd0 45 44 25 28 49 25 2c 30 29 3d b3 28 33 29 2d 32 |ED%(I%,0)=.(3)-2| 00000de0 0d 07 3a 14 45 44 25 28 49 25 2c 31 29 3d b3 28 |..:.ED%(I%,1)=.(| 00000df0 33 29 2d 32 0d 07 44 05 ed 0d 07 4e 11 e3 49 25 |3)-2..D....N..I%| 00000e00 3d 31 36 20 b8 36 30 20 88 34 0d 07 58 10 e7 49 |=16 .60 .4..X..I| 00000e10 25 3d 36 30 20 e5 8d 74 40 47 0d 07 62 0b e3 4a |%=60 ..t@G..b..J| 00000e20 25 3d 30 b8 32 0d 07 6c 27 ec 20 45 58 25 2b 45 |%=0.2..l'. EX%+E| 00000e30 44 25 28 4a 25 2c 30 29 2a 49 25 2c 45 59 25 2b |D%(J%,0)*I%,EY%+| 00000e40 45 44 25 28 4a 25 2c 31 29 2a 49 25 0d 07 76 0b |ED%(J%,1)*I%..v.| 00000e50 ef 97 22 2e 22 3a ed 0d 07 80 10 e7 49 25 3d 31 |..".":......I%=1| 00000e60 36 20 e5 8d 74 68 47 0d 07 8a 0b e3 4a 25 3d 30 |6 ..thG.....J%=0| 00000e70 b8 32 0d 07 94 2f ec 20 45 58 25 2b 45 44 25 28 |.2.../. EX%+ED%(| 00000e80 4a 25 2c 30 29 2a 28 49 25 2d 34 29 2c 45 59 25 |J%,0)*(I%-4),EY%| 00000e90 2b 45 44 25 28 4a 25 2c 31 29 2a 28 49 25 2d 34 |+ED%(J%,1)*(I%-4| 00000ea0 29 0d 07 9e 0b ef 97 22 2e 22 3a ed 0d 07 a8 05 |)......".":.....| 00000eb0 ed 0d 07 b2 0e ef 31 39 2c 37 2c 36 3b 30 3b 0d |......19,7,6;0;.| 00000ec0 07 bc 05 e1 0d 07 c6 05 3a 0d 07 d0 14 dd f2 48 |........:......H| 00000ed0 69 74 42 6c 6f 62 3a 54 57 49 25 3d 30 0d 07 da |itBlob:TWI%=0...| 00000ee0 20 ef 31 39 2c 31 33 2c 30 3b 30 3b 31 39 2c 31 | .19,13,0;0;19,1| 00000ef0 34 2c 30 3b 30 3b 31 35 2c 30 3b 30 3b 0d 07 e4 |4,0;0;15,0;0;...| 00000f00 08 e6 30 2c 30 0d 07 ee 17 f2 43 69 72 63 6c 65 |..0,0.....Circle| 00000f10 28 42 58 25 2c 42 59 25 2c 32 34 29 0d 07 f8 17 |(BX%,BY%,24)....| 00000f20 f2 45 78 70 6c 6f 73 69 6f 6e 28 42 58 25 2c 42 |.Explosion(BX%,B| 00000f30 59 25 29 0d 08 02 0b ef 34 3a fb 31 32 38 0d 08 |Y%).....4:.128..| 00000f40 0c 0c f1 8a 32 2c 30 29 89 34 0d 08 16 08 ef 35 |....2,0).4.....5| 00000f50 3a e1 0d 08 20 05 3a 0d 08 2a 0f dd f2 52 65 73 |:... .:..*...Res| 00000f60 65 74 47 61 6d 65 0d 08 34 16 53 63 72 65 65 6e |etGame..4.Screen| 00000f70 25 3d 31 3a 4c 69 76 65 73 25 3d 33 0d 08 3e 11 |%=1:Lives%=3..>.| 00000f80 47 52 3d 2e 37 3a 47 54 25 3d 30 3a e1 0d 08 48 |GR=.7:GT%=0:...H| 00000f90 05 3a 0d 08 52 11 dd f2 52 65 73 65 74 53 63 72 |.:..R...ResetScr| 00000fa0 65 65 6e 0d 08 5c 0a 54 57 49 25 3d b9 0d 08 66 |een..\.TWI%=...f| 00000fb0 13 43 25 3d 38 3a 44 25 3d 2d 34 3a 54 25 3d 30 |.C%=8:D%=-4:T%=0| 00000fc0 0d 08 70 10 54 44 25 3d 31 3a 54 57 25 3d 31 33 |..p.TD%=1:TW%=13| 00000fd0 0d 08 7a 14 41 25 3d 30 3a 43 31 25 3d 31 3a 43 |..z.A%=0:C1%=1:C| 00000fe0 32 25 3d 32 0d 08 84 13 58 44 3d 30 3a 59 44 3d |2%=2....XD=0:YD=| 00000ff0 30 3a 54 48 25 3d 30 0d 08 8e 0b 44 65 61 64 25 |0:TH%=0....Dead%| 00001000 3d a3 0d 08 98 05 e1 0d 08 a2 05 3a 0d 08 ac 0f |=..........:....| 00001010 dd f2 49 6e 66 6f 3a ef 34 3a db 0d 08 b6 1a fb |..Info:.4:......| 00001020 37 3a ef 31 39 2c 37 2c 37 3b 30 3b 31 39 2c 38 |7:.19,7,7;0;19,8| 00001030 2c 38 3b 30 3b 0d 08 c0 27 f1 8a 31 2c 31 30 29 |,8;0;...'..1,10)| 00001040 3b 22 45 6e 74 65 72 69 6e 67 20 6c 65 76 65 6c |;"Entering level| 00001050 20 2d 20 22 3b 53 63 72 65 65 6e 25 0d 08 ca 12 | - ";Screen%....| 00001060 47 54 25 3d 53 63 72 65 65 6e 25 81 31 30 0d 08 |GT%=Screen%.10..| 00001070 d4 2e e7 28 53 63 72 65 65 6e 25 83 31 30 29 3d |...(Screen%.10)=| 00001080 30 20 fb 38 3a f1 8a 31 2c 31 32 29 3b 47 54 24 |0 .8:..1,12);GT$| 00001090 28 47 54 25 29 20 3a e5 8d 64 68 48 0d 08 de 37 |(GT%) :..dhH...7| 000010a0 e7 28 53 63 72 65 65 6e 25 83 35 29 3d 30 20 fb |.(Screen%.5)=0 .| 000010b0 38 3a f1 8a 31 2c 31 32 29 3b 22 49 6e 63 72 65 |8:..1,12);"Incre| 000010c0 61 73 65 64 20 47 72 61 76 69 74 79 22 3a 47 52 |ased Gravity":GR| 000010d0 3d 2e 38 0d 08 e8 0f e7 47 54 25 3d 31 20 41 25 |=.8.....GT%=1 A%| 000010e0 3d 36 0d 08 f2 0f f2 44 65 6c 61 79 28 33 30 30 |=6.....Delay(300| 000010f0 29 0d 08 fc 0a db 3a ef 35 3a e1 0d 09 06 05 3a |).....:.5:.....:| 00001100 0d 09 10 16 dd f2 44 65 6c 61 79 28 54 25 29 54 |......Delay(T%)T| 00001110 25 3d 91 2b 54 25 0d 09 1a 0c f5 fd 91 3e 54 25 |%=.+T%.......>T%| 00001120 3a e1 0d 09 24 05 3a 0d 09 2e 11 dd f2 47 61 6d |:...$.:......Gam| 00001130 65 4f 76 65 72 3a ef 34 0d 09 38 11 fb 37 3a ef |eOver:.4..8..7:.| 00001140 31 39 2c 37 2c 37 3b 30 3b 0d 09 42 21 f1 8a 30 |19,7,7;0;..B!..0| 00001150 2c 32 39 29 22 48 69 74 20 73 70 61 63 65 62 61 |,29)"Hit spaceba| 00001160 72 20 74 6f 20 70 6c 61 79 22 0d 09 4c 0c f5 fd |r to play"..L...| 00001170 a5 3d 33 32 3a db 0d 09 56 08 ef 35 3a e1 0d 09 |.=32:...V..5:...| 00001180 60 05 3a 0d 09 6a 0c dd f2 53 74 61 74 75 73 0d |`.:..j...Status.| 00001190 09 74 09 ef 34 3a fb 33 0d 09 7e 12 f1 8a 38 2c |.t..4:.3..~...8,| 000011a0 32 39 29 3b 4c 69 76 65 73 25 0d 09 88 14 f1 8a |29);Lives%......| 000011b0 31 36 2c 32 39 29 3b 53 63 72 65 65 6e 25 0d 09 |16,29);Screen%..| 000011c0 92 08 ef 35 3a e1 0d 09 9c 05 3a 0d 09 a6 4e dc |...5:.....:...N.| 000011d0 20 31 30 2c 41 41 43 41 41 51 2c 41 4b 44 5a 41 | 10,AACAAQ,AKDZA| 000011e0 5a 2c 42 52 44 5a 49 5a 2c 49 53 48 5a 55 5a 2c |Z,BRDZIZ,ISHZUZ,| 000011f0 50 58 55 4a 55 5a 2c 4d 4b 55 4a 55 56 2c 53 4b |PXUJUZ,MKUJUV,SK| 00001200 55 41 55 4a 2c 55 44 55 41 50 41 2c 4d 44 53 41 |UAUJ,UDUAPA,MDSA| 00001210 47 41 2c 49 4e 4a 42 47 41 0d 09 b0 23 dc 20 32 |GA,INJBGA...#. 2| 00001220 2c 35 30 38 2c 34 34 38 2c 30 2c 31 37 32 2c 35 |,508,448,0,172,5| 00001230 34 30 2c 36 38 38 2c 31 2c 32 33 32 0d 09 ba 0e |40,688,1,232....| 00001240 dc 20 31 30 38 34 2c 39 30 30 0d 09 c4 5c dc 20 |. 1084,900...\. | 00001250 31 32 2c 41 41 43 41 41 5a 2c 41 47 43 41 43 47 |12,AACAAZ,AGCACG| 00001260 2c 4f 4b 43 47 50 48 2c 4f 4b 42 4c 42 46 2c 41 |,OKCGPH,OKBLBF,A| 00001270 5a 43 5a 42 4b 2c 41 5a 4c 5a 48 56 2c 49 50 4c |ZCZBK,AZLZHV,IPL| 00001280 5a 48 56 2c 49 50 4c 5a 55 51 2c 55 5a 4c 5a 55 |ZHV,IPLZUQ,UZLZU| 00001290 4d 2c 55 51 52 51 55 41 2c 55 46 4d 41 55 41 2c |M,UQRQUA,UFMAUA,| 000012a0 52 44 47 41 4e 41 0d 09 ce 15 dc 20 31 2c 35 30 |RDGANA..... 1,50| 000012b0 34 2c 35 34 30 2c 30 2c 31 34 38 0d 09 d8 0d dc |4,540,0,148.....| 000012c0 20 31 37 32 2c 33 32 30 0d 09 e2 6a dc 20 31 34 | 172,320...j. 14| 000012d0 2c 43 45 43 41 41 41 2c 43 45 41 41 41 53 2c 42 |,CECAAA,CEAAAS,B| 000012e0 5a 41 45 41 5a 2c 42 5a 49 5a 41 56 2c 55 5a 47 |ZAEAZ,BZIZAV,UZG| 000012f0 5a 51 56 2c 55 5a 55 41 51 56 2c 54 47 55 41 4e |ZQV,UZUAQV,TGUAN| 00001300 41 2c 52 45 47 41 4e 41 2c 4f 43 47 41 47 45 2c |A,REGANA,OCGAGE,| 00001310 45 51 47 45 48 53 2c 47 4e 4e 51 48 53 2c 49 51 |EQGEHS,GNNQHS,IQ| 00001320 4e 51 4e 4e 2c 47 44 47 4a 4d 43 2c 4a 44 4e 4a |NQNN,GDGJMC,JDNJ| 00001330 4d 43 0d 09 ec 15 dc 20 31 2c 38 30 38 2c 36 30 |MC..... 1,808,60| 00001340 34 2c 30 2c 31 34 34 0d 09 f6 0d dc 20 35 30 30 |4,0,144..... 500| 00001350 2c 36 35 30 0d 0a 00 63 dc 20 31 33 2c 41 55 43 |,650...c. 13,AUC| 00001360 41 41 41 2c 41 5a 44 5a 41 4a 2c 41 5a 55 5a 48 |AAA,AZDZAJ,AZUZH| 00001370 58 2c 47 41 4a 41 46 54 2c 4a 52 4e 5a 48 59 2c |X,GAJAFT,JRNZHY,| 00001380 4a 52 4e 5a 4c 48 2c 4a 41 50 41 48 46 2c 4a 41 |JRNZLH,JAPAHF,JA| 00001390 50 41 55 48 2c 55 41 50 41 55 48 2c 51 45 50 4b |PAUH,UAPAUH,QEPK| 000013a0 55 48 2c 55 58 52 49 55 48 2c 55 5a 55 53 4c 59 |UH,UXRIUH,UZUSLY| 000013b0 2c 55 5a 4c 50 4c 59 0d 0a 0a 15 dc 20 31 2c 34 |,UZLPLY..... 1,4| 000013c0 38 38 2c 37 38 38 2c 31 2c 35 30 30 0d 0a 14 0e |88,788,1,500....| 000013d0 dc 20 31 31 30 30 2c 34 38 30 0d 0a 1e 6a dc 20 |. 1100,480...j. | 000013e0 31 34 2c 41 5a 43 41 41 41 2c 41 5a 43 5a 41 42 |14,AZCAAA,AZCZAB| 000013f0 2c 41 5a 46 5a 41 56 2c 41 5a 55 5a 4f 58 2c 52 |,AZFZAV,AZUZOX,R| 00001400 5a 55 5a 55 55 2c 53 41 55 5a 55 55 2c 53 41 55 |ZUZUU,SAUZUU,SAU| 00001410 41 55 55 2c 55 47 55 41 4e 41 2c 55 44 47 41 4e |AUU,UGUANA,UDGAN| 00001420 41 2c 4d 42 47 41 47 44 2c 46 48 4c 49 45 55 2c |A,MBGAGD,FHLIEU,| 00001430 4b 47 50 4a 45 55 2c 4b 56 50 4a 45 55 2c 4b 56 |KGPJEU,KVPJEU,KV| 00001440 50 4a 53 50 0d 0a 28 15 dc 20 31 2c 31 30 34 2c |PJSP..(.. 1,104,| 00001450 33 38 38 2c 31 2c 31 34 34 0d 0a 32 0e dc 20 31 |388,1,144..2.. 1| 00001460 31 30 30 2c 33 36 30 0d 0a 3c 86 dc 20 31 38 2c |100,360..<.. 18,| 00001470 41 5a 41 41 43 41 2c 44 47 41 5a 43 42 2c 44 47 |AZAACA,DGAZCB,DG| 00001480 44 5a 41 5a 2c 44 4d 46 4d 44 5a 2c 46 5a 46 4d |DZAZ,DMFMDZ,FZFM| 00001490 44 5a 2c 46 5a 46 51 48 51 2c 46 5a 48 5a 48 51 |DZ,FZFQHQ,FZHZHQ| 000014a0 2c 48 57 48 5a 55 5a 2c 55 54 51 59 55 5a 2c 55 |,HWHZUZ,UTQYUZ,U| 000014b0 41 50 50 55 59 2c 55 41 4a 54 50 50 2c 55 41 4a |APPUY,UAJTPP,UAJ| 000014c0 54 4a 4f 2c 55 41 48 4f 4a 4f 2c 55 41 48 4f 48 |TJO,UAHOJO,UAHOH| 000014d0 4b 2c 55 41 46 4b 48 4b 2c 55 41 46 4b 46 47 2c |K,UAFKHK,UAFKFG,| 000014e0 55 41 47 42 46 47 2c 55 41 47 42 47 41 0d 0a 46 |UAGBFG,UAGBGA..F| 000014f0 07 dc 20 30 0d 0a 50 0e dc 20 31 31 30 30 2c 33 |.. 0..P.. 1100,3| 00001500 36 30 0d 0a 5a 3f dc 20 38 2c 41 41 43 41 43 45 |60..Z?. 8,AACACE| 00001510 2c 47 43 55 45 55 41 2c 47 41 47 43 55 41 2c 41 |,GCUEUA,GAGCUA,A| 00001520 41 41 55 49 4e 2c 4b 4e 55 41 55 55 2c 55 52 55 |AAUIN,KNUAUU,URU| 00001530 5a 4b 5a 2c 41 54 44 5a 41 5a 2c 41 58 4f 5a 41 |ZKZ,ATDZAZ,AXOZA| 00001540 5a 0d 0a 64 15 dc 20 31 2c 35 30 38 2c 36 30 30 |Z..d.. 1,508,600| 00001550 2c 31 2c 31 34 30 0d 0a 6e 0d dc 20 31 32 34 2c |,1,140..n.. 124,| 00001560 33 38 30 0d 0a 78 63 dc 20 31 33 2c 41 41 43 41 |380..xc. 13,AACA| 00001570 41 4a 2c 43 41 43 4a 41 4a 2c 43 48 43 4a 51 4a |AJ,CACJAJ,CHCJQJ| 00001580 2c 43 48 51 48 51 4a 2c 55 41 47 41 47 43 2c 55 |,CHQHQJ,UAGAGC,U| 00001590 41 55 43 47 43 2c 55 41 53 41 55 5a 2c 53 5a 53 |AUCGC,UASAUZ,SZS| 000015a0 41 55 5a 2c 53 5a 53 4f 45 4f 2c 41 5a 43 4a 41 |AUZ,SZSOEO,AZCJA| 000015b0 4a 2c 41 5a 43 4a 43 5a 2c 41 5a 53 5a 43 56 2c |J,AZCJCZ,AZSZCV,| 000015c0 41 5a 53 5a 51 56 0d 0a 82 77 dc 20 38 2c 33 39 |AZSZQV...w. 8,39| 000015d0 36 2c 38 30 34 2c 30 2c 31 35 34 2c 35 39 36 2c |6,804,0,154,596,| 000015e0 38 30 34 2c 30 2c 31 35 34 2c 37 39 36 2c 38 30 |804,0,154,796,80| 000015f0 34 2c 30 2c 31 35 34 2c 39 39 36 2c 38 30 34 2c |4,0,154,996,804,| 00001600