Home » Archimedes archive » Micro User » MU 1991-10.adf » PD-Stuff » SoftRock/Exeria/!Exeria/!RUNIMAGE
SoftRock/Exeria/!Exeria/!RUNIMAGE
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 » Archimedes archive » Micro User » MU 1991-10.adf » PD-Stuff |
| Filename: | SoftRock/Exeria/!Exeria/!RUNIMAGE |
| Read OK: | ✔ |
| File size: | 1DF6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!EXERIA.!RUNIMAGE
20STAGE%=0:MNG%=3
30ON ERROR GOTO 2820
40REM ESCAPE FROM EXERIA
50REM BY VINCE M. HUDD
60REM (C)1990 SOFT ROCK SOFTWARE
70MODE 15:OFF:PROCTITLE
80STAGE%=1
90PROCSCREEN
100PROCSPACE(X,Y)
110A%=0:A%=FNMOVEPLAYER(PX%,PY%)
120IF INKEY(-38) AND INKEY(-87) AND INKEY(-36) AND INKEY(-85) THEN CHEAT%=TRUE:SCORE%=0:PROCPCH:GOTO 420
130OK%=TRUE
140WINSCREEN%=0
150CASE A% OF
160WHEN 2:OK%=FALSE
170WHEN 8:OK%=TRUE:PROCPILL1
180WHEN 9:OK%=TRUE:PROCPILL2
190WHEN 10:OK%=TRUE:PROCPILL3
200WHEN 11:OK%=TRUE:PROCPILL4
210WHEN 12:OK%=TRUE:WINSCREEN%=TRUE:PROCSCORE
220ENDCASE
230IF NOT OK% THEN GOTO 320
240IF WINSCREEN% THEN GOTO 420
250GH%=1:OK%=TRUE
260IF GH%>MNG% THEN FOR DELAY=1 TO 1000:NEXT:GOTO 310
265A%=FNMOVEGHOST(GX%(GH%),GY%(GH%))
270IF A%=1 OR A%>12 AND A%<17 THEN OK%=FALSE
280GH%=GH%+1
290IF GH%=4 THEN 310
300IF GX%(GH%)>0 AND OK%=TRUE THEN 260
310IF OK% THEN 110
320PROCPUTSPRITE(PX%,PY%,17)
330LIVES%=LIVES%-1:SCORE%=SN%*25
340FOR A=1 TO 250:NEXT
350*SFLIPX SPLAT
360PROCPUTSPRITE(PX%,PY%,17):FOR A=1 TO 250:NEXT:*SFLIPX SPLAT
370PROCPUTSPRITE(PX%,PY%,17):FOR A=1 TO 250:NEXT:*SFLIPY SPLAT
380PROCPUTSPRITE(PX%,PY%,17):FOR A=1 TO 250:NEXT:*SFLIPY SPLAT
390PROCPUTSPRITE(PX%,PY%,17):FOR A=1 TO 250:PROCPUTSPRITE(PX%,PY%,0)
400IF LIVES%>0 THEN PROCSPACE(552,512):GOTO 90
410GOTO 2840
420REM WINSCREEN
440SN%=SN%+1:IF SN% MOD 4=0 THEN LIVES%=LIVES%+1
450IF SN%<10 GOTO 90
460IF CHEAT% THEN SN%=0:GOTO 90
470PROCENDGAME
480VDU4:REPEAT UNTIL INKEY(-99):REPEAT UNTIL NOT INKEY(-99):*FX15,1
490RUN
500DEFPROCTITLE
510DIM GX%(3),GY%(3),CBG%(3),GD%(3)
520DIM SCREEN% 16000,TEMP% 400,NAME% 1600
530PROCTITLEDISPLAY
540OSCLI("LOAD <A$P>.DATA "+RIGHT$("00000000"+STR$~(SCREEN%),8))
550OSCLI("LOAD <A$P>.NAMES "+RIGHT$("00000000"+STR$~(NAME%),8))
560SN%=0:CHEAT%=FALSE
570LIVES%=5:SCORE%=0
580X=552:Y=512
590VOICES 4
600*CHANNELVOICE 1 StringLib-Steel
630*CHANNELVOICE 4 Percussion-Soft
640SYS"Sound_Configure",0,0,100
650ENDPROC
660DEFPROCSPACE(X,Y)
670GCOL7:RECTANGLE FILL X-16,Y-64,216,80
680GCOL6:RECTANGLE FILL X-12,Y-60,208,72
690GCOL5:RECTANGLE FILL X-10,Y-56,204,64
700GCOL3:RECTANGLE FILL X-6,Y-48,196,48
710VDU5:GCOL0:MOVE X,Y-4:PRINT "PRESS SPACE":VDU4:OFF
720REPEAT UNTIL INKEY(-99):REPEAT UNTIL NOT INKEY(-99)
730VDU5:GCOL64 TINT0:RECTANGLE FILL X-16,Y-64,216,80
740*FX15,1
750ENDPROC
760DEFPROCSCREEN:COLOUR 128:CLS
770SCNADR%=SCREEN%+400*SN%:NOMV=0
780FOR A%=0 TO 383:TEMP%?A%=SCNADR%?A%:NEXT
790PROCSCNBAK
800COLOUR 1
810FOR A%=1 TO 3:GX%(A%)=0:GY%(A%)=0:CBG%(A%)=0:GD%(A%)=0:NEXT
820PX%=0:PY%=0:NP1%=0:NP2%=0:NP3%=0:NP4%=0
830GH%=1
840FOR X%=1 TO 24:FOR Y%=1 TO 16
850A%=?FNSTORE(X%,Y%)
860CASE A% OF
870WHEN 1:PX%=X%:PY%=Y%
880WHEN 2:PROCGHOSET
890WHEN 8:NP1%+=1
900WHEN 9:NP2%+=1
910WHEN 10:NP3%+=1
920WHEN 11:NP4%+=1
930ENDCASE
940PROCPUTSPRITE(X%,Y%,A%)
950NEXT,
960X=552:Y=80
970ENDPROC
980DEF FNSTORE(X%,Y%)=TEMP%+(X%-1)+(Y%-1)*24
990DEFPROCHOOSE(A%)
1000CASE A% OF
1010WHEN 0:*SCHOOSE SPCE
1020WHEN 1:*SCHOOSE PLYR
1030WHEN 2:*SCHOOSE GHOST
1040WHEN 3:*SCHOOSE WALL
1050WHEN 4:*SCHOOSE GAT1
1060WHEN 5:*SCHOOSE GAT2
1070WHEN 6:*SCHOOSE GAT3
1080WHEN 7:*SCHOOSE GAT4
1090WHEN 8:*SCHOOSE PIL1
1100WHEN 9:*SCHOOSE PIL2
1110WHEN 10:*SCHOOSE PIL3
1120WHEN 11:*SCHOOSE PIL4
1130WHEN 12:*SCHOOSE EXIT
1140WHEN 13:*SCHOOSE PLUP
1150WHEN 14:*SCHOOSE PLDN
1160WHEN 15:*SCHOOSE PLRT
1170WHEN 16:*SCHOOSE PLLT
1180WHEN 17:*SCHOOSE SPLAT
1190ENDCASE
1200ENDPROC
1210DEFPROCPUTSPRITE(X%,Y%,Z%)
1220?FNSTORE(X%,Y%)=Z%
1230X%=FNADRX(X%)
1240Y%=FNADRY(Y%)
1250PROCHOOSE(Z%)
1260PLOT &ED,X%,Y%
1270ENDPROC
1280DEF FNADRX(X%)=64+(X%-1)*48
1290DEF FNADRY(Y%)=896-Y%*48
1300DEF FNMOVEPLAYER(X%,Y%)
1310LOCAL CHARACTER%
1320CHARACTER%=FALSE
1330D%=0:NX%=X%:NY%=Y%:CHAR%=1
1340IF INKEY(-80) THEN D%=1
1350IF INKEY(-105) THEN D%=3
1360IF INKEY(-67) THEN D%=2
1370IF INKEY(-98) THEN D%=4
1380IF D%=0 THEN PROCOUNT:=FALSE:ELSE NOMV=0
1390CASE D% OF
1400WHEN 1:NX%=X%:NY%=Y%-1:CHAR%=13
1410WHEN 2:NX%=X%+1:NY%=Y%:CHAR%=15
1420WHEN 3:NX%=X%:NY%=Y%+1:CHAR%=14
1430WHEN 4:NX%=X%-1:NY%=Y%:CHAR%=16
1440ENDCASE
1450IF NX%=0 THEN NX%=24
1460IF NX%=25 THEN NX%=1
1470IF NY%=17 THEN NY%=1
1480IF NY%=0 THEN NY%=16
1490CHARACTER%=?FNSTORE(NX%,NY%)
1500IF CHARACTER%>=3 AND CHARACTER%<=7 THEN NX%=X%:NY%=Y%:CHARACTER%=0
1510PROCPUTSPRITE(X%,Y%,CHAR%)
1520PROCPUTSPRITE(NX%,NY%,CHAR%)
1530PROCPUTSPRITE(X%,Y%,0)
1540PROCPUTSPRITE(NX%,NY%,CHAR%)
1550PX%=NX%:PY%=NY%
1560=CHARACTER%
1570DEFPROCPILL1:SOUND 1,-10,197,1
1580NP1%-=1:IF NP1%=0 THEN PROCGATE1
1590ENDPROC
1600DEFPROCPILL2:SOUND 1,-10,197,1
1610NP2%-=1:IF NP2%=0 THEN PROCGATE2
1620ENDPROC
1630DEFPROCPILL3:SOUND 1,-10,197,1
1640NP3%-=1:IF NP3%=0 THEN PROCGATE3
1650ENDPROC
1660DEFPROCPILL4:SOUND 1,-10,197,1
1670NP4%-=1:IF NP4%=0 THEN PROCGATE4
1680ENDPROC
1690DEFPROCGATE1
1700PROCSCORE
1710FOR X%=1 TO 24:FOR Y%=1 TO 16
1720IF ?FNSTORE(X%,Y%)=4 THEN PROCPUTSPRITE(X%,Y%,9):NP2%+=1
1730NEXT,
1740ENDPROC
1750DEFPROCGATE2
1760PROCSCORE
1770FOR X%=1 TO 24:FOR Y%=1 TO 16
1780IF ?FNSTORE(X%,Y%)=5 THEN PROCPUTSPRITE(X%,Y%,10):NP3%+=1
1790NEXT,
1800ENDPROC
1810DEFPROCGATE3
1820PROCSCORE
1830FOR X%=1 TO 24:FOR Y%=1 TO 16
1840IF ?FNSTORE(X%,Y%)=6 THEN PROCPUTSPRITE(X%,Y%,11):NP4%+=1
1850NEXT,
1860ENDPROC
1870DEFPROCGATE4
1880PROCSCORE
1890FOR X%=1 TO 24:FOR Y%=1 TO 16
1900IF ?FNSTORE(X%,Y%)=7 THEN PROCPUTSPRITE(X%,Y%,0)
1910NEXT,
1920ENDPROC
1930DEF FNMOVEGHOST(X%,Y%):
1940IF GD%(GH%)=0 THEN GD%(GH%)=1:GOTO 1960
1950IF GD%(GH%)=0 THEN =CBG%(GH%)
1960CASE GD%(GH%) OF
1970WHEN 1:NX%=X%:NY%=Y%-1
1980WHEN 2:NX%=X%+1:NY%=Y%
1990WHEN 3:NX%=X%:NY%=Y%+1
2000WHEN 4:NX%=X%-1:NY%=Y%
2010ENDCASE
2020IF NX%=0 OR NX%=25 OR NY%=0 OR NY%=17 THEN GD%(GH%)=FNEWAY(GD%(GH%)):GOTO 1950
2030A%=?FNSTORE(NX%,NY%)
2040IF A%=2 OR A%=3 OR A%=4 OR A%=5 OR A%=6 OR A%=7 THEN GD%(GH%)=FNEWAY(GD%(GH%)):GOTO 1950
2050IF NX%=X% AND NY%=Y% THEN=CBG%(GH%)
2060PROCPUTSPRITE(NX%,NY%,2):PROCPUTSPRITE(X%,Y%,CBG%(GH%))
2070CBG%(GH%)=A%:GX%(GH%)=NX%:GY%(GH%)=NY%
2080=A%
2090DEF FNEWAY(D%)
2100D%=D%+1
2110IF D%=5 THEN D%=0
2120=D%
2130DEFPROCTITLEDISPLAY
2140COLOUR 192:CLS
2150GCOL6:RECTANGLE FILL 256,768,768,224
2160GCOL5:RECTANGLE FILL 264,776,752,208
2170GCOL4:RECTANGLE FILL 272,784,736,192
2180GCOL3:RECTANGLE FILL 280,792,720,176
2190GCOL2:RECTANGLE FILL 288,800,704,160
2200GCOL1:RECTANGLE FILL 296,808,688,144
2210GCOL0:RECTANGLE FILL 304,816,672,128
2220GCOL15
2230VDU23,17,7,6,12;24;0;0;
2240VDU5:MOVE 424,920:PRINT"ESCAPE from EXERIA"
2245VDU23,17,7,6,8;8;0;0;:MOVE 640-120,740:PRINT"PD DEMO VERSION"
2250VDU23,17,7,6,8;12;0;0;
2260GCOL14:MOVE 640-192,680:PRINT"written by Vince M. Hudd"
2270GCOL11:MOVE 640-208,620:PRINT"(c)1990 Soft Rock Software"
2280GCOL15:MOVE 562,616:PRINT"Soft Rock Software"
2281VDU4:OFF:COLOUR 100:PRINT TAB(2,18)"PRESS SPACE TO PLAY OR A NUMBER FROM 0 TO 3 TO CHANGE THE NUMBER OF GHOSTS (";MNG%;")"
2283A$=GET$:IF A$>="0" AND A$<="3" THEN MNG%=VAL(A$):GOTO 2281
2285IF A$<>" "THEN VDU7:GOTO 2283
2290VDU4:OFF
2300ENDPROC
2310DEFPROCSCNBAK:GCOL127:CLS:CLG:OFF
2320FOR A%=0 TO 6:GCOL A%
2330RECTANGLE 62-4*A%,124-4*A%,1154+8*A%,772+8*A%:RECTANGLE 60-4*A%,124-4*A%,1158+8*A%,772+8*A%
2340NEXT
2350VDU4:COLOUR 14:PRINT TAB(16,29);"SCREEN: "+RIGHT$("00"+STR$(SN%+1),2)
2360PRINT TAB(54,29);"LIVES: "+RIGHT$("000"+STR$(LIVES%),3):PROCPSC
2370IF CHEAT% THEN PROCPCH
2380A$=$(NAME%+SN%*40):Q=(LEN(A$))*16/2
2390GCOL6:RECTANGLE FILL 640-Q-64,920,Q*2+128,96
2400GCOL5:RECTANGLE FILL 640-Q-56,924,Q*2+112,88
2410GCOL4:RECTANGLE FILL 640-Q-48,928,Q*2+96,80
2420GCOL3:RECTANGLE FILL 640-Q-40,932,Q*2+80,72
2430GCOL2:RECTANGLE FILL 640-Q-32,936,Q*2+64,64
2440GCOL1:RECTANGLE FILL 640-Q-24,940,Q*2+48,56
2450GCOL0:RECTANGLE FILL 640-Q-16,944,Q*2+32,48
2460VDU5:GCOL7:MOVE 640-Q,984:PRINT A$:VDU4:OFF
2470OFF:ENDPROC
2480DEFPROCENDGAME
2490FOR LOOP=1 TO 2
2500C%=0:ADD%=1:FOR X%=0 TO 1278 STEP 2:GCOL C%:LINE X%,0,X%,1023:C%=C%+ADD%
2510IF C%=8 OR C%=-1 THEN ADD%=-ADD%:C%=C%+ADD%
2520NEXT
2530C%=0:ADD%=1:FOR X%=0 TO 1220 STEP 4:GCOL C%:LINE 0,X%,1279,X%:C%=C%+ADD%
2540IF C%=8 OR C%=-1 THEN ADD%=-ADD%:C%=C%+ADD%
2550NEXT,
2560FOR LOOP=1 TO 3
2570C%=0:ADD%=1:FOR X%=0 TO 1278 STEP 2:GCOL 3,C%:LINE X%,0,X%,1023:C%=C%+ADD%
2580IF C%=8 OR C%=-1 THEN ADD%=-ADD%:C%=C%+ADD%
2590NEXT
2600IF LOOP=3 THEN 2640
2610C%=0:ADD%=1:FOR X%=0 TO 1220 STEP 4:GCOL 3,C%:LINE 0,X%,1279,X%:C%=C%+ADD%
2620IF C%=8 OR C%=-1 THEN ADD%=-ADD%:C%=C%+ADD%
2630NEXT
2640NEXT
2650GCOL7
2660FOR X%=0 TO 640 STEP 2:LINE 640-X%,0,640-X%,1023:LINE 640+X%,0,640+X%,1023:NEXT
2670GCOL6:RECTANGLE FILL 320,256,640,512
2680GCOL5:RECTANGLE FILL 336,272,608,480
2690GCOL4:RECTANGLE FILL 352,288,576,448
2700GCOL3:RECTANGLE FILL 368,304,544,416
2710GCOL2:RECTANGLE FILL 384,320,512,384
2720GCOL1:RECTANGLE FILL 400,336,480,352
2730GCOL0:RECTANGLE FILL 416,352,448,320
2740VDU23,17,7,6,12;16;0;0;5
2750GCOL7:MOVE 448,664:PRINT"CONGRATULATIONS!"
2760MOVE 544,604:PRINT"YOU HAVE"
2770MOVE 496,544:PRINT"ESCAPED FROM"
2780MOVE 568,484:PRINT"EXERIA"
2790MOVE 448,424:PRINT"!!!!!!!!!!!!!!!!"
2800VDU4:OFF
2810ENDPROC
2820IF STAGE%=0 THEN COLOUR 135:COLOUR 0:CLS:OFF:QUIT
2830RUN
2840PROCGAMEOVER:RUN
2850DEFPROCGAMEOVER
2860X=552:Y=512
2870GCOL7:RECTANGLE FILL X-16,Y-64,216,80
2880GCOL6:RECTANGLE FILL X-12,Y-60,208,72
2890GCOL5:RECTANGLE FILL X-10,Y-56,204,64
2900GCOL3:RECTANGLE FILL X-6,Y-48,196,48
2910VDU5:GCOL0:MOVE X,Y-4:PRINT "GAME OVER !":VDU4:OFF
2920PROCSPACE(X,Y-96)
2930ENDPROC
2940DEFPROCSCORE
2950IF NOT CHEAT% THEN SCORE%=SCORE%+5:PROCPSC
2960ENDPROC
2970DEFPROCPSC:VDU4:COLOUR 14:PRINT TAB(16,30);"SCORE: ";
2980SC$=RIGHT$("000"+STR$(SCORE%),3):SC$=LEFT$(SC$,2)+"."+RIGHT$(SC$,1)+"%"
2990PRINT SC$:VDU5:ENDPROC
3000DEFPROCPCH:VDU4:COLOUR 14:PRINT TAB(54,30);"SCREEN HOPPED"
3010VDU5:ENDPROC
3020DEFPROCOUNT
3030NOMV=NOMV+1:IF NOMV>10 THEN PROCPUTSPRITE(X%,Y%,1)
3040ENDPROC
4000DEF PROCGHOSET
4010GX%(GH%)=X%:GY%(GH%)=Y%:GH%=GH%+1
4020IF (GH%-1)>MNG% THEN A%=0
4030ENDPROC
� >!EXERIA.!RUNIMAGE
STAGE%=0:MNG%=3
� � � �TDK
(� ESCAPE FROM EXERIA
2� BY VINCE M. HUDD
< � (C)1990 SOFT ROCK SOFTWARE
F� 15:�:�TITLE
P STAGE%=1
Z �SCREEN
d�SPACE(X,Y)
n A%=0:A%=�MOVEPLAYER(PX%,PY%)
xG� �(-38) � �(-87) � �(-36) � �(-85) � CHEAT%=�:SCORE%=0:�PCH:� �tdA
� OK%=�
�WINSCREEN%=0
� Ȏ A% �
�
� 2:OK%=�
�� 8:OK%=�:�PILL1
�� 9:OK%=�:�PILL2
�� 10:OK%=�:�PILL3
�� 11:OK%=�:�PILL4
�"� 12:OK%=�:WINSCREEN%=�:�SCORE
��
�� � OK% � � �D@A
�� WINSCREEN% � � �tdA
�GH%=1:OK%=�
*� GH%>MNG% � � DELAY=1 � 1000:�:� �TvA
$A%=�MOVEGHOST(GX%(GH%),GY%(GH%))
"� A%=1 � A%>12 � A%<17 � OK%=�
GH%=GH%+1
"� GH%=4 � �TvA
, � GX%(GH%)>0 � OK%=� � �TDA
6� OK% � �Dn@
@�PUTSPRITE(PX%,PY%,17)
J!LIVES%=LIVES%-1:SCORE%=SN%*25
T� A=1 � 250:�
^*SFLIPX SPLAT
h6�PUTSPRITE(PX%,PY%,17):� A=1 � 250:�:*SFLIPX SPLAT
r6�PUTSPRITE(PX%,PY%,17):� A=1 � 250:�:*SFLIPY SPLAT
|6�PUTSPRITE(PX%,PY%,17):� A=1 � 250:�:*SFLIPY SPLAT
�<�PUTSPRITE(PX%,PY%,17):� A=1 � 250:�PUTSPRITE(PX%,PY%,0)
�'� LIVES%>0 � �SPACE(552,512):� �DZ@
�
� �TXK
�� WINSCREEN
�+SN%=SN%+1:� SN% � 4=0 � LIVES%=LIVES%+1
�� SN%<10 � �DZ@
�� CHEAT% � SN%=0:� �DZ@
� �ENDGAME
�&�4:� � �(-99):� � � �(-99):*FX15,1
��
� ��TITLE
�"� GX%(3),GY%(3),CBG%(3),GD%(3)
(� SCREEN% 16000,TEMP% 400,NAME% 1600
�TITLEDISPLAY
4�("LOAD <A$P>.DATA "+�"00000000"+�~(SCREEN%),8))
&3�("LOAD <A$P>.NAMES "+�"00000000"+�~(NAME%),8))
0SN%=0:CHEAT%=�
:LIVES%=5:SCORE%=0
DX=552:Y=512
NȠ 4
X#*CHANNELVOICE 1 StringLib-Steel
v#*CHANNELVOICE 4 Percussion-Soft
� ș"Sound_Configure",0,0,100
��
���SPACE(X,Y)
� �7:ȓ Ȑ X-16,Y-64,216,80
� �6:ȓ Ȑ X-12,Y-60,208,72
� �5:ȓ Ȑ X-10,Y-56,204,64
� �3:ȓ Ȑ X-6,Y-48,196,48
�&�5:�0:� X,Y-4:� "PRESS SPACE":�4:�
�� � �(-99):� � � �(-99)
�%�5:�64 Ȝ0:ȓ Ȑ X-16,Y-64,216,80
� *FX15,1
��
���SCREEN:� 128:�
"SCNADR%=SCREEN%+400*SN%:NOMV=0
&� A%=0 � 383:TEMP%?A%=SCNADR%?A%:�
�SCNBAK
� 1
*9� A%=1 � 3:GX%(A%)=0:GY%(A%)=0:CBG%(A%)=0:GD%(A%)=0:�
4+PX%=0:PY%=0:NP1%=0:NP2%=0:NP3%=0:NP4%=0
> GH%=1
H� X%=1 � 24:� Y%=1 � 16
RA%=?�STORE(X%,Y%)
\ Ȏ A% �
f� 1:PX%=X%:PY%=Y%
p� 2:�GHOSET
z� 8:NP1%+=1
�� 9:NP2%+=1
�� 10:NP3%+=1
�� 11:NP4%+=1
��
��PUTSPRITE(X%,Y%,A%)
��,
�X=552:Y=80
��
�*� �STORE(X%,Y%)=TEMP%+(X%-1)+(Y%-1)*24
���HOOSE(A%)
� Ȏ A% �
�� 0:*SCHOOSE SPCE
�� 1:*SCHOOSE PLYR
� 2:*SCHOOSE GHOST
� 3:*SCHOOSE WALL
� 4:*SCHOOSE GAT1
$� 5:*SCHOOSE GAT2
.� 6:*SCHOOSE GAT3
8� 7:*SCHOOSE GAT4
B� 8:*SCHOOSE PIL1
L� 9:*SCHOOSE PIL2
V� 10:*SCHOOSE PIL3
`� 11:*SCHOOSE PIL4
j� 12:*SCHOOSE EXIT
t� 13:*SCHOOSE PLUP
~� 14:*SCHOOSE PLDN
�� 15:*SCHOOSE PLRT
�� 16:*SCHOOSE PLLT
�� 17:*SCHOOSE SPLAT
��
��
���PUTSPRITE(X%,Y%,Z%)
�?�STORE(X%,Y%)=Z%
�X%=�ADRX(X%)
�Y%=�ADRY(Y%)
��HOOSE(Z%)
�� &ED,X%,Y%
��
� �ADRX(X%)=64+(X%-1)*48
� �ADRY(Y%)=896-Y%*48
� �MOVEPLAYER(X%,Y%)
� CHARACTER%
(CHARACTER%=�
2 D%=0:NX%=X%:NY%=Y%:CHAR%=1
<� �(-80) � D%=1
F� �(-105) � D%=3
P� �(-67) � D%=2
Z� �(-98) � D%=4
d � D%=0 � �OUNT:=�:� NOMV=0
n Ȏ D% �
x � 1:NX%=X%:NY%=Y%-1:CHAR%=13
� � 2:NX%=X%+1:NY%=Y%:CHAR%=15
� � 3:NX%=X%:NY%=Y%+1:CHAR%=14
� � 4:NX%=X%-1:NY%=Y%:CHAR%=16
��
�� NX%=0 � NX%=24
�� NX%=25 � NX%=1
�� NY%=17 � NY%=1
�� NY%=0 � NY%=16
� CHARACTER%=?�STORE(NX%,NY%)
�@� CHARACTER%>=3 � CHARACTER%<=7 � NX%=X%:NY%=Y%:CHARACTER%=0
��PUTSPRITE(X%,Y%,CHAR%)
� �PUTSPRITE(NX%,NY%,CHAR%)
��PUTSPRITE(X%,Y%,0)
�PUTSPRITE(NX%,NY%,CHAR%)
PX%=NX%:PY%=NY%
=CHARACTER%
"��PILL1:� 1,-10,197,1
, NP1%-=1:� NP1%=0 � �GATE1
6�
@��PILL2:� 1,-10,197,1
J NP2%-=1:� NP2%=0 � �GATE2
T�
^��PILL3:� 1,-10,197,1
h NP3%-=1:� NP3%=0 � �GATE3
r�
|��PILL4:� 1,-10,197,1
� NP4%-=1:� NP4%=0 � �GATE4
��
� ��GATE1
�
�SCORE
�� X%=1 � 24:� Y%=1 � 16
�4� ?�STORE(X%,Y%)=4 � �PUTSPRITE(X%,Y%,9):NP2%+=1
��,
��
� ��GATE2
�
�SCORE
�� X%=1 � 24:� Y%=1 � 16
�5� ?�STORE(X%,Y%)=5 � �PUTSPRITE(X%,Y%,10):NP3%+=1
��,
�
��GATE3
�SCORE
&� X%=1 � 24:� Y%=1 � 16
05� ?�STORE(X%,Y%)=6 � �PUTSPRITE(X%,Y%,11):NP4%+=1
:�,
D�
N ��GATE4
X
�SCORE
b� X%=1 � 24:� Y%=1 � 16
l,� ?�STORE(X%,Y%)=7 � �PUTSPRITE(X%,Y%,0)
v�,
��
�� �MOVEGHOST(X%,Y%):
�$� GD%(GH%)=0 � GD%(GH%)=1:� �thG
� � GD%(GH%)=0 � =CBG%(GH%)
�Ȏ GD%(GH%) �
�� 1:NX%=X%:NY%=Y%-1
�� 2:NX%=X%+1:NY%=Y%
�� 3:NX%=X%:NY%=Y%+1
�� 4:NX%=X%-1:NY%=Y%
��
�G� NX%=0 � NX%=25 � NY%=0 � NY%=17 � GD%(GH%)=�EWAY(GD%(GH%)):� �t^G
�A%=?�STORE(NX%,NY%)
�O� A%=2 � A%=3 � A%=4 � A%=5 � A%=6 � A%=7 � GD%(GH%)=�EWAY(GD%(GH%)):� �t^G
!� NX%=X% � NY%=Y% �=CBG%(GH%)
5�PUTSPRITE(NX%,NY%,2):�PUTSPRITE(X%,Y%,CBG%(GH%))
*CBG%(GH%)=A%:GX%(GH%)=NX%:GY%(GH%)=NY%
=A%
*� �EWAY(D%)
4 D%=D%+1
>� D%=5 � D%=0
H=D%
R��TITLEDISPLAY
\ � 192:�
f �6:ȓ Ȑ 256,768,768,224
p �5:ȓ Ȑ 264,776,752,208
z �4:ȓ Ȑ 272,784,736,192
� �3:ȓ Ȑ 280,792,720,176
� �2:ȓ Ȑ 288,800,704,160
� �1:ȓ Ȑ 296,808,688,144
� �0:ȓ Ȑ 304,816,672,128
��15
��23,17,7,6,12;24;0;0;
�&�5:� 424,920:�"ESCAPE from EXERIA"
�8�23,17,7,6,8;8;0;0;:� 640-120,740:�"PD DEMO VERSION"
��23,17,7,6,8;12;0;0;
�1�14:� 640-192,680:�"written by Vince M. Hudd"
�3�11:� 640-208,620:�"(c)1990 Soft Rock Software"
�'�15:� 562,616:�"Soft Rock Software"
�n�4:�:� 100:� �2,18)"PRESS SPACE TO PLAY OR A NUMBER FROM 0 TO 3 TO CHANGE THE NUMBER OF GHOSTS (";MNG%;")"
�0A$=�:� A$>="0" � A$<="3" � MNG%=�(A$):� �diH
�� A$<>" "� �7:� �dkH
��4:�
��
��SCNBAK:�127:�:�:�
� A%=0 � 6:� A%
Qȓ 62-4*A%,124-4*A%,1154+8*A%,772+8*A%:ȓ 60-4*A%,124-4*A%,1158+8*A%,772+8*A%
$�
.2�4:� 14:� �16,29);"SCREEN: "+�"00"+�(SN%+1),2)
80� �54,29);"LIVES: "+�"000"+�(LIVES%),3):�PSC
B� CHEAT% � �PCH
L%A$=$(NAME%+SN%*40):Q=(�(A$))*16/2
V$�6:ȓ Ȑ 640-Q-64,920,Q*2+128,96
`$�5:ȓ Ȑ 640-Q-56,924,Q*2+112,88
j#�4:ȓ Ȑ 640-Q-48,928,Q*2+96,80
t#�3:ȓ Ȑ 640-Q-40,932,Q*2+80,72
~#�2:ȓ Ȑ 640-Q-32,936,Q*2+64,64
�#�1:ȓ Ȑ 640-Q-24,940,Q*2+48,56
�#�0:ȓ Ȑ 640-Q-16,944,Q*2+32,48
� �5:�7:� 640-Q,984:� A$:�4:�
��:�
�
��ENDGAME
�� LOOP=1 � 2
�@C%=0:ADD%=1:� X%=0 � 1278 � 2:� C%:� X%,0,X%,1023:C%=C%+ADD%
�*� C%=8 � C%=-1 � ADD%=-ADD%:C%=C%+ADD%
��
�@C%=0:ADD%=1:� X%=0 � 1220 � 4:� C%:� 0,X%,1279,X%:C%=C%+ADD%
�*� C%=8 � C%=-1 � ADD%=-ADD%:C%=C%+ADD%
��,
� LOOP=1 � 3
BC%=0:ADD%=1:� X%=0 � 1278 � 2:� 3,C%:� X%,0,X%,1023:C%=C%+ADD%
*� C%=8 � C%=-1 � ADD%=-ADD%:C%=C%+ADD%
�
(� LOOP=3 � �DPJ
2BC%=0:ADD%=1:� X%=0 � 1220 � 4:� 3,C%:� 0,X%,1279,X%:C%=C%+ADD%
<*� C%=8 � C%=-1 � ADD%=-ADD%:C%=C%+ADD%
F�
P�
Z�7
dD� X%=0 � 640 � 2:� 640-X%,0,640-X%,1023:� 640+X%,0,640+X%,1023:�
n �6:ȓ Ȑ 320,256,640,512
x �5:ȓ Ȑ 336,272,608,480
� �4:ȓ Ȑ 352,288,576,448
� �3:ȓ Ȑ 368,304,544,416
� �2:ȓ Ȑ 384,320,512,384
� �1:ȓ Ȑ 400,336,480,352
� �0:ȓ Ȑ 416,352,448,320
��23,17,7,6,12;16;0;0;5
�$�7:� 448,664:�"CONGRATULATIONS!"
�� 544,604:�"YOU HAVE"
� � 496,544:�"ESCAPED FROM"
�� 568,484:�"EXERIA"
�!� 448,424:�"!!!!!!!!!!!!!!!!"
��4:�
��
!� STAGE%=0 � � 135:� 0:�:�:Ș
�
�GAMEOVER:�
"��GAMEOVER
,X=552:Y=512
6 �7:ȓ Ȑ X-16,Y-64,216,80
@ �6:ȓ Ȑ X-12,Y-60,208,72
J �5:ȓ Ȑ X-10,Y-56,204,64
T �3:ȓ Ȑ X-6,Y-48,196,48
^&�5:�0:� X,Y-4:� "GAME OVER !":�4:�
h�SPACE(X,Y-96)
r�
| ��SCORE
�%� � CHEAT% � SCORE%=SCORE%+5:�PSC
��
�&��PSC:�4:� 14:� �16,30);"SCORE: ";
�7SC$=�"000"+�(SCORE%),3):SC$=�SC$,2)+"."+�SC$,1)+"%"
�� SC$:�5:�
�+��PCH:�4:� 14:� �54,30);"SCREEN HOPPED"
��5:�
�
��OUNT
�/NOMV=NOMV+1:� NOMV>10 � �PUTSPRITE(X%,Y%,1)
��
�
� �GHOSET
�%GX%(GH%)=X%:GY%(GH%)=Y%:GH%=GH%+1
�� (GH%-1)>MNG% � A%=0
��
� 00000000 0d 00 0a 18 f4 20 3e 21 45 58 45 52 49 41 2e 21 |..... >!EXERIA.!|
00000010 52 55 4e 49 4d 41 47 45 0d 00 14 13 53 54 41 47 |RUNIMAGE....STAG|
00000020 45 25 3d 30 3a 4d 4e 47 25 3d 33 0d 00 1e 0e ee |E%=0:MNG%=3.....|
00000030 20 85 20 e5 20 8d 54 44 4b 0d 00 28 18 f4 20 45 | . . .TDK..(.. E|
00000040 53 43 41 50 45 20 46 52 4f 4d 20 45 58 45 52 49 |SCAPE FROM EXERI|
00000050 41 0d 00 32 16 f4 20 42 59 20 56 49 4e 43 45 20 |A..2.. BY VINCE |
00000060 4d 2e 20 48 55 44 44 0d 00 3c 20 f4 20 28 43 29 |M. HUDD..< . (C)|
00000070 31 39 39 30 20 53 4f 46 54 20 52 4f 43 4b 20 53 |1990 SOFT ROCK S|
00000080 4f 46 54 57 41 52 45 0d 00 46 11 eb 20 31 35 3a |OFTWARE..F.. 15:|
00000090 87 3a f2 54 49 54 4c 45 0d 00 50 0c 53 54 41 47 |.:.TITLE..P.STAG|
000000a0 45 25 3d 31 0d 00 5a 0b f2 53 43 52 45 45 4e 0d |E%=1..Z..SCREEN.|
000000b0 00 64 0f f2 53 50 41 43 45 28 58 2c 59 29 0d 00 |.d..SPACE(X,Y)..|
000000c0 6e 20 41 25 3d 30 3a 41 25 3d a4 4d 4f 56 45 50 |n A%=0:A%=.MOVEP|
000000d0 4c 41 59 45 52 28 50 58 25 2c 50 59 25 29 0d 00 |LAYER(PX%,PY%)..|
000000e0 78 47 e7 20 a6 28 2d 33 38 29 20 80 20 a6 28 2d |xG. .(-38) . .(-|
000000f0 38 37 29 20 80 20 a6 28 2d 33 36 29 20 80 20 a6 |87) . .(-36) . .|
00000100 28 2d 38 35 29 20 8c 20 43 48 45 41 54 25 3d b9 |(-85) . CHEAT%=.|
00000110 3a 53 43 4f 52 45 25 3d 30 3a f2 50 43 48 3a e5 |:SCORE%=0:.PCH:.|
00000120 20 8d 74 64 41 0d 00 82 09 4f 4b 25 3d b9 0d 00 | .tdA....OK%=...|
00000130 8c 10 57 49 4e 53 43 52 45 45 4e 25 3d 30 0d 00 |..WINSCREEN%=0..|
00000140 96 0b c8 8e 20 41 25 20 ca 0d 00 a0 0d c9 20 32 |.... A% ...... 2|
00000150 3a 4f 4b 25 3d a3 0d 00 aa 14 c9 20 38 3a 4f 4b |:OK%=...... 8:OK|
00000160 25 3d b9 3a f2 50 49 4c 4c 31 0d 00 b4 14 c9 20 |%=.:.PILL1..... |
00000170 39 3a 4f 4b 25 3d b9 3a f2 50 49 4c 4c 32 0d 00 |9:OK%=.:.PILL2..|
00000180 be 15 c9 20 31 30 3a 4f 4b 25 3d b9 3a f2 50 49 |... 10:OK%=.:.PI|
00000190 4c 4c 33 0d 00 c8 15 c9 20 31 31 3a 4f 4b 25 3d |LL3..... 11:OK%=|
000001a0 b9 3a f2 50 49 4c 4c 34 0d 00 d2 22 c9 20 31 32 |.:.PILL4...". 12|
000001b0 3a 4f 4b 25 3d b9 3a 57 49 4e 53 43 52 45 45 4e |:OK%=.:WINSCREEN|
000001c0 25 3d b9 3a f2 53 43 4f 52 45 0d 00 dc 05 cb 0d |%=.:.SCORE......|
000001d0 00 e6 14 e7 20 ac 20 4f 4b 25 20 8c 20 e5 20 8d |.... . OK% . . .|
000001e0 44 40 41 0d 00 f0 19 e7 20 57 49 4e 53 43 52 45 |D@A..... WINSCRE|
000001f0 45 4e 25 20 8c 20 e5 20 8d 74 64 41 0d 00 fa 0f |EN% . . .tdA....|
00000200 47 48 25 3d 31 3a 4f 4b 25 3d b9 0d 01 04 2a e7 |GH%=1:OK%=....*.|
00000210 20 47 48 25 3e 4d 4e 47 25 20 8c 20 e3 20 44 45 | GH%>MNG% . . DE|
00000220 4c 41 59 3d 31 20 b8 20 31 30 30 30 3a ed 3a e5 |LAY=1 . 1000:.:.|
00000230 20 8d 54 76 41 0d 01 09 24 41 25 3d a4 4d 4f 56 | .TvA...$A%=.MOV|
00000240 45 47 48 4f 53 54 28 47 58 25 28 47 48 25 29 2c |EGHOST(GX%(GH%),|
00000250 47 59 25 28 47 48 25 29 29 0d 01 0e 22 e7 20 41 |GY%(GH%))...". A|
00000260 25 3d 31 20 84 20 41 25 3e 31 32 20 80 20 41 25 |%=1 . A%>12 . A%|
00000270 3c 31 37 20 8c 20 4f 4b 25 3d a3 0d 01 18 0d 47 |<17 . OK%=.....G|
00000280 48 25 3d 47 48 25 2b 31 0d 01 22 12 e7 20 47 48 |H%=GH%+1..".. GH|
00000290 25 3d 34 20 8c 20 8d 54 76 41 0d 01 2c 1f e7 20 |%=4 . .TvA..,.. |
000002a0 47 58 25 28 47 48 25 29 3e 30 20 80 20 4f 4b 25 |GX%(GH%)>0 . OK%|
000002b0 3d b9 20 8c 20 8d 54 44 41 0d 01 36 10 e7 20 4f |=. . .TDA..6.. O|
000002c0 4b 25 20 8c 20 8d 44 6e 40 0d 01 40 1a f2 50 55 |K% . .Dn@..@..PU|
000002d0 54 53 50 52 49 54 45 28 50 58 25 2c 50 59 25 2c |TSPRITE(PX%,PY%,|
000002e0 31 37 29 0d 01 4a 21 4c 49 56 45 53 25 3d 4c 49 |17)..J!LIVES%=LI|
000002f0 56 45 53 25 2d 31 3a 53 43 4f 52 45 25 3d 53 4e |VES%-1:SCORE%=SN|
00000300 25 2a 32 35 0d 01 54 11 e3 20 41 3d 31 20 b8 20 |%*25..T.. A=1 . |
00000310 32 35 30 3a ed 0d 01 5e 11 2a 53 46 4c 49 50 58 |250:...^.*SFLIPX|
00000320 20 53 50 4c 41 54 0d 01 68 36 f2 50 55 54 53 50 | SPLAT..h6.PUTSP|
00000330 52 49 54 45 28 50 58 25 2c 50 59 25 2c 31 37 29 |RITE(PX%,PY%,17)|
00000340 3a e3 20 41 3d 31 20 b8 20 32 35 30 3a ed 3a 2a |:. A=1 . 250:.:*|
00000350 53 46 4c 49 50 58 20 53 50 4c 41 54 0d 01 72 36 |SFLIPX SPLAT..r6|
00000360 f2 50 55 54 53 50 52 49 54 45 28 50 58 25 2c 50 |.PUTSPRITE(PX%,P|
00000370 59 25 2c 31 37 29 3a e3 20 41 3d 31 20 b8 20 32 |Y%,17):. A=1 . 2|
00000380 35 30 3a ed 3a 2a 53 46 4c 49 50 59 20 53 50 4c |50:.:*SFLIPY SPL|
00000390 41 54 0d 01 7c 36 f2 50 55 54 53 50 52 49 54 45 |AT..|6.PUTSPRITE|
000003a0 28 50 58 25 2c 50 59 25 2c 31 37 29 3a e3 20 41 |(PX%,PY%,17):. A|
000003b0 3d 31 20 b8 20 32 35 30 3a ed 3a 2a 53 46 4c 49 |=1 . 250:.:*SFLI|
000003c0 50 59 20 53 50 4c 41 54 0d 01 86 3c f2 50 55 54 |PY SPLAT...<.PUT|
000003d0 53 50 52 49 54 45 28 50 58 25 2c 50 59 25 2c 31 |SPRITE(PX%,PY%,1|
000003e0 37 29 3a e3 20 41 3d 31 20 b8 20 32 35 30 3a f2 |7):. A=1 . 250:.|
000003f0 50 55 54 53 50 52 49 54 45 28 50 58 25 2c 50 59 |PUTSPRITE(PX%,PY|
00000400 25 2c 30 29 0d 01 90 27 e7 20 4c 49 56 45 53 25 |%,0)...'. LIVES%|
00000410 3e 30 20 8c 20 f2 53 50 41 43 45 28 35 35 32 2c |>0 . .SPACE(552,|
00000420 35 31 32 29 3a e5 20 8d 44 5a 40 0d 01 9a 0a e5 |512):. .DZ@.....|
00000430 20 8d 54 58 4b 0d 01 a4 0f f4 20 57 49 4e 53 43 | .TXK..... WINSC|
00000440 52 45 45 4e 0d 01 b8 2b 53 4e 25 3d 53 4e 25 2b |REEN...+SN%=SN%+|
00000450 31 3a e7 20 53 4e 25 20 83 20 34 3d 30 20 8c 20 |1:. SN% . 4=0 . |
00000460 4c 49 56 45 53 25 3d 4c 49 56 45 53 25 2b 31 0d |LIVES%=LIVES%+1.|
00000470 01 c2 13 e7 20 53 4e 25 3c 31 30 20 e5 20 8d 44 |.... SN%<10 . .D|
00000480 5a 40 0d 01 cc 1b e7 20 43 48 45 41 54 25 20 8c |Z@..... CHEAT% .|
00000490 20 53 4e 25 3d 30 3a e5 20 8d 44 5a 40 0d 01 d6 | SN%=0:. .DZ@...|
000004a0 0c f2 45 4e 44 47 41 4d 45 0d 01 e0 26 ef 34 3a |..ENDGAME...&.4:|
000004b0 f5 20 fd 20 a6 28 2d 39 39 29 3a f5 20 fd 20 ac |. . .(-99):. . .|
000004c0 20 a6 28 2d 39 39 29 3a 2a 46 58 31 35 2c 31 0d | .(-99):*FX15,1.|
000004d0 01 ea 05 f9 0d 01 f4 0b dd f2 54 49 54 4c 45 0d |..........TITLE.|
000004e0 01 fe 22 de 20 47 58 25 28 33 29 2c 47 59 25 28 |..". GX%(3),GY%(|
000004f0 33 29 2c 43 42 47 25 28 33 29 2c 47 44 25 28 33 |3),CBG%(3),GD%(3|
00000500 29 0d 02 08 28 de 20 53 43 52 45 45 4e 25 20 31 |)...(. SCREEN% 1|
00000510 36 30 30 30 2c 54 45 4d 50 25 20 34 30 30 2c 4e |6000,TEMP% 400,N|
00000520 41 4d 45 25 20 31 36 30 30 0d 02 12 11 f2 54 49 |AME% 1600.....TI|
00000530 54 4c 45 44 49 53 50 4c 41 59 0d 02 1c 34 ff 28 |TLEDISPLAY...4.(|
00000540 22 4c 4f 41 44 20 3c 41 24 50 3e 2e 44 41 54 41 |"LOAD <A$P>.DATA|
00000550 20 22 2b c2 22 30 30 30 30 30 30 30 30 22 2b c3 | "+."00000000"+.|
00000560 7e 28 53 43 52 45 45 4e 25 29 2c 38 29 29 0d 02 |~(SCREEN%),8))..|
00000570 26 33 ff 28 22 4c 4f 41 44 20 3c 41 24 50 3e 2e |&3.("LOAD <A$P>.|
00000580 4e 41 4d 45 53 20 22 2b c2 22 30 30 30 30 30 30 |NAMES "+."000000|
00000590 30 30 22 2b c3 7e 28 4e 41 4d 45 25 29 2c 38 29 |00"+.~(NAME%),8)|
000005a0 29 0d 02 30 12 53 4e 25 3d 30 3a 43 48 45 41 54 |)..0.SN%=0:CHEAT|
000005b0 25 3d a3 0d 02 3a 15 4c 49 56 45 53 25 3d 35 3a |%=...:.LIVES%=5:|
000005c0 53 43 4f 52 45 25 3d 30 0d 02 44 0f 58 3d 35 35 |SCORE%=0..D.X=55|
000005d0 32 3a 59 3d 35 31 32 0d 02 4e 08 c8 a0 20 34 0d |2:Y=512..N... 4.|
000005e0 02 58 23 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 45 |.X#*CHANNELVOICE|
000005f0 20 31 20 53 74 72 69 6e 67 4c 69 62 2d 53 74 65 | 1 StringLib-Ste|
00000600 65 6c 0d 02 76 23 2a 43 48 41 4e 4e 45 4c 56 4f |el..v#*CHANNELVO|
00000610 49 43 45 20 34 20 50 65 72 63 75 73 73 69 6f 6e |ICE 4 Percussion|
00000620 2d 53 6f 66 74 0d 02 80 1f c8 99 22 53 6f 75 6e |-Soft......"Soun|
00000630 64 5f 43 6f 6e 66 69 67 75 72 65 22 2c 30 2c 30 |d_Configure",0,0|
00000640 2c 31 30 30 0d 02 8a 05 e1 0d 02 94 10 dd f2 53 |,100...........S|
00000650 50 41 43 45 28 58 2c 59 29 0d 02 9e 1d e6 37 3a |PACE(X,Y).....7:|
00000660 c8 93 20 c8 90 20 58 2d 31 36 2c 59 2d 36 34 2c |.. .. X-16,Y-64,|
00000670 32 31 36 2c 38 30 0d 02 a8 1d e6 36 3a c8 93 20 |216,80.....6:.. |
00000680 c8 90 20 58 2d 31 32 2c 59 2d 36 30 2c 32 30 38 |.. X-12,Y-60,208|
00000690 2c 37 32 0d 02 b2 1d e6 35 3a c8 93 20 c8 90 20 |,72.....5:.. .. |
000006a0 58 2d 31 30 2c 59 2d 35 36 2c 32 30 34 2c 36 34 |X-10,Y-56,204,64|
000006b0 0d 02 bc 1c e6 33 3a c8 93 20 c8 90 20 58 2d 36 |.....3:.. .. X-6|
000006c0 2c 59 2d 34 38 2c 31 39 36 2c 34 38 0d 02 c6 26 |,Y-48,196,48...&|
000006d0 ef 35 3a e6 30 3a ec 20 58 2c 59 2d 34 3a f1 20 |.5:.0:. X,Y-4:. |
000006e0 22 50 52 45 53 53 20 53 50 41 43 45 22 3a ef 34 |"PRESS SPACE":.4|
000006f0 3a 87 0d 02 d0 1b f5 20 fd 20 a6 28 2d 39 39 29 |:...... . .(-99)|
00000700 3a f5 20 fd 20 ac 20 a6 28 2d 39 39 29 0d 02 da |:. . . .(-99)...|
00000710 25 ef 35 3a e6 36 34 20 c8 9c 30 3a c8 93 20 c8 |%.5:.64 ..0:.. .|
00000720 90 20 58 2d 31 36 2c 59 2d 36 34 2c 32 31 36 2c |. X-16,Y-64,216,|
00000730 38 30 0d 02 e4 0b 2a 46 58 31 35 2c 31 0d 02 ee |80....*FX15,1...|
00000740 05 e1 0d 02 f8 14 dd f2 53 43 52 45 45 4e 3a fb |........SCREEN:.|
00000750 20 31 32 38 3a db 0d 03 02 22 53 43 4e 41 44 52 | 128:...."SCNADR|
00000760 25 3d 53 43 52 45 45 4e 25 2b 34 30 30 2a 53 4e |%=SCREEN%+400*SN|
00000770 25 3a 4e 4f 4d 56 3d 30 0d 03 0c 26 e3 20 41 25 |%:NOMV=0...&. A%|
00000780 3d 30 20 b8 20 33 38 33 3a 54 45 4d 50 25 3f 41 |=0 . 383:TEMP%?A|
00000790 25 3d 53 43 4e 41 44 52 25 3f 41 25 3a ed 0d 03 |%=SCNADR%?A%:...|
000007a0 16 0b f2 53 43 4e 42 41 4b 0d 03 20 07 fb 20 31 |...SCNBAK.. .. 1|
000007b0 0d 03 2a 39 e3 20 41 25 3d 31 20 b8 20 33 3a 47 |..*9. A%=1 . 3:G|
000007c0 58 25 28 41 25 29 3d 30 3a 47 59 25 28 41 25 29 |X%(A%)=0:GY%(A%)|
000007d0 3d 30 3a 43 42 47 25 28 41 25 29 3d 30 3a 47 44 |=0:CBG%(A%)=0:GD|
000007e0 25 28 41 25 29 3d 30 3a ed 0d 03 34 2b 50 58 25 |%(A%)=0:...4+PX%|
000007f0 3d 30 3a 50 59 25 3d 30 3a 4e 50 31 25 3d 30 3a |=0:PY%=0:NP1%=0:|
00000800 4e 50 32 25 3d 30 3a 4e 50 33 25 3d 30 3a 4e 50 |NP2%=0:NP3%=0:NP|
00000810 34 25 3d 30 0d 03 3e 09 47 48 25 3d 31 0d 03 48 |4%=0..>.GH%=1..H|
00000820 1b e3 20 58 25 3d 31 20 b8 20 32 34 3a e3 20 59 |.. X%=1 . 24:. Y|
00000830 25 3d 31 20 b8 20 31 36 0d 03 52 15 41 25 3d 3f |%=1 . 16..R.A%=?|
00000840 a4 53 54 4f 52 45 28 58 25 2c 59 25 29 0d 03 5c |.STORE(X%,Y%)..\|
00000850 0b c8 8e 20 41 25 20 ca 0d 03 66 15 c9 20 31 3a |... A% ...f.. 1:|
00000860 50 58 25 3d 58 25 3a 50 59 25 3d 59 25 0d 03 70 |PX%=X%:PY%=Y%..p|
00000870 0f c9 20 32 3a f2 47 48 4f 53 45 54 0d 03 7a 0f |.. 2:.GHOSET..z.|
00000880 c9 20 38 3a 4e 50 31 25 2b 3d 31 0d 03 84 0f c9 |. 8:NP1%+=1.....|
00000890 20 39 3a 4e 50 32 25 2b 3d 31 0d 03 8e 10 c9 20 | 9:NP2%+=1..... |
000008a0 31 30 3a 4e 50 33 25 2b 3d 31 0d 03 98 10 c9 20 |10:NP3%+=1..... |
000008b0 31 31 3a 4e 50 34 25 2b 3d 31 0d 03 a2 05 cb 0d |11:NP4%+=1......|
000008c0 03 ac 18 f2 50 55 54 53 50 52 49 54 45 28 58 25 |....PUTSPRITE(X%|
000008d0 2c 59 25 2c 41 25 29 0d 03 b6 06 ed 2c 0d 03 c0 |,Y%,A%).....,...|
000008e0 0e 58 3d 35 35 32 3a 59 3d 38 30 0d 03 ca 05 e1 |.X=552:Y=80.....|
000008f0 0d 03 d4 2a dd 20 a4 53 54 4f 52 45 28 58 25 2c |...*. .STORE(X%,|
00000900 59 25 29 3d 54 45 4d 50 25 2b 28 58 25 2d 31 29 |Y%)=TEMP%+(X%-1)|
00000910 2b 28 59 25 2d 31 29 2a 32 34 0d 03 de 0f dd f2 |+(Y%-1)*24......|
00000920 48 4f 4f 53 45 28 41 25 29 0d 03 e8 0b c8 8e 20 |HOOSE(A%)...... |
00000930 41 25 20 ca 0d 03 f2 15 c9 20 30 3a 2a 53 43 48 |A% ...... 0:*SCH|
00000940 4f 4f 53 45 20 53 50 43 45 0d 03 fc 15 c9 20 31 |OOSE SPCE..... 1|
00000950 3a 2a 53 43 48 4f 4f 53 45 20 50 4c 59 52 0d 04 |:*SCHOOSE PLYR..|
00000960 06 16 c9 20 32 3a 2a 53 43 48 4f 4f 53 45 20 47 |... 2:*SCHOOSE G|
00000970 48 4f 53 54 0d 04 10 15 c9 20 33 3a 2a 53 43 48 |HOST..... 3:*SCH|
00000980 4f 4f 53 45 20 57 41 4c 4c 0d 04 1a 15 c9 20 34 |OOSE WALL..... 4|
00000990 3a 2a 53 43 48 4f 4f 53 45 20 47 41 54 31 0d 04 |:*SCHOOSE GAT1..|
000009a0 24 15 c9 20 35 3a 2a 53 43 48 4f 4f 53 45 20 47 |$.. 5:*SCHOOSE G|
000009b0 41 54 32 0d 04 2e 15 c9 20 36 3a 2a 53 43 48 4f |AT2..... 6:*SCHO|
000009c0 4f 53 45 20 47 41 54 33 0d 04 38 15 c9 20 37 3a |OSE GAT3..8.. 7:|
000009d0 2a 53 43 48 4f 4f 53 45 20 47 41 54 34 0d 04 42 |*SCHOOSE GAT4..B|
000009e0 15 c9 20 38 3a 2a 53 43 48 4f 4f 53 45 20 50 49 |.. 8:*SCHOOSE PI|
000009f0 4c 31 0d 04 4c 15 c9 20 39 3a 2a 53 43 48 4f 4f |L1..L.. 9:*SCHOO|
00000a00 53 45 20 50 49 4c 32 0d 04 56 16 c9 20 31 30 3a |SE PIL2..V.. 10:|
00000a10 2a 53 43 48 4f 4f 53 45 20 50 49 4c 33 0d 04 60 |*SCHOOSE PIL3..`|
00000a20 16 c9 20 31 31 3a 2a 53 43 48 4f 4f 53 45 20 50 |.. 11:*SCHOOSE P|
00000a30 49 4c 34 0d 04 6a 16 c9 20 31 32 3a 2a 53 43 48 |IL4..j.. 12:*SCH|
00000a40 4f 4f 53 45 20 45 58 49 54 0d 04 74 16 c9 20 31 |OOSE EXIT..t.. 1|
00000a50 33 3a 2a 53 43 48 4f 4f 53 45 20 50 4c 55 50 0d |3:*SCHOOSE PLUP.|
00000a60 04 7e 16 c9 20 31 34 3a 2a 53 43 48 4f 4f 53 45 |.~.. 14:*SCHOOSE|
00000a70 20 50 4c 44 4e 0d 04 88 16 c9 20 31 35 3a 2a 53 | PLDN..... 15:*S|
00000a80 43 48 4f 4f 53 45 20 50 4c 52 54 0d 04 92 16 c9 |CHOOSE PLRT.....|
00000a90 20 31 36 3a 2a 53 43 48 4f 4f 53 45 20 50 4c 4c | 16:*SCHOOSE PLL|
00000aa0 54 0d 04 9c 17 c9 20 31 37 3a 2a 53 43 48 4f 4f |T..... 17:*SCHOO|
00000ab0 53 45 20 53 50 4c 41 54 0d 04 a6 05 cb 0d 04 b0 |SE SPLAT........|
00000ac0 05 e1 0d 04 ba 19 dd f2 50 55 54 53 50 52 49 54 |........PUTSPRIT|
00000ad0 45 28 58 25 2c 59 25 2c 5a 25 29 0d 04 c4 15 3f |E(X%,Y%,Z%)....?|
00000ae0 a4 53 54 4f 52 45 28 58 25 2c 59 25 29 3d 5a 25 |.STORE(X%,Y%)=Z%|
00000af0 0d 04 ce 10 58 25 3d a4 41 44 52 58 28 58 25 29 |....X%=.ADRX(X%)|
00000b00 0d 04 d8 10 59 25 3d a4 41 44 52 59 28 59 25 29 |....Y%=.ADRY(Y%)|
00000b10 0d 04 e2 0e f2 48 4f 4f 53 45 28 5a 25 29 0d 04 |.....HOOSE(Z%)..|
00000b20 ec 0f f0 20 26 45 44 2c 58 25 2c 59 25 0d 04 f6 |... &ED,X%,Y%...|
00000b30 05 e1 0d 05 00 1c dd 20 a4 41 44 52 58 28 58 25 |....... .ADRX(X%|
00000b40 29 3d 36 34 2b 28 58 25 2d 31 29 2a 34 38 0d 05 |)=64+(X%-1)*48..|
00000b50 0a 19 dd 20 a4 41 44 52 59 28 59 25 29 3d 38 39 |... .ADRY(Y%)=89|
00000b60 36 2d 59 25 2a 34 38 0d 05 14 18 dd 20 a4 4d 4f |6-Y%*48..... .MO|
00000b70 56 45 50 4c 41 59 45 52 28 58 25 2c 59 25 29 0d |VEPLAYER(X%,Y%).|
00000b80 05 1e 10 ea 20 43 48 41 52 41 43 54 45 52 25 0d |.... CHARACTER%.|
00000b90 05 28 10 43 48 41 52 41 43 54 45 52 25 3d a3 0d |.(.CHARACTER%=..|
00000ba0 05 32 1e 44 25 3d 30 3a 4e 58 25 3d 58 25 3a 4e |.2.D%=0:NX%=X%:N|
00000bb0 59 25 3d 59 25 3a 43 48 41 52 25 3d 31 0d 05 3c |Y%=Y%:CHAR%=1..<|
00000bc0 13 e7 20 a6 28 2d 38 30 29 20 8c 20 44 25 3d 31 |.. .(-80) . D%=1|
00000bd0 0d 05 46 14 e7 20 a6 28 2d 31 30 35 29 20 8c 20 |..F.. .(-105) . |
00000be0 44 25 3d 33 0d 05 50 13 e7 20 a6 28 2d 36 37 29 |D%=3..P.. .(-67)|
00000bf0 20 8c 20 44 25 3d 32 0d 05 5a 13 e7 20 a6 28 2d | . D%=2..Z.. .(-|
00000c00 39 38 29 20 8c 20 44 25 3d 34 0d 05 64 1e e7 20 |98) . D%=4..d.. |
00000c10 44 25 3d 30 20 8c 20 f2 4f 55 4e 54 3a 3d a3 3a |D%=0 . .OUNT:=.:|
00000c20 8b 20 4e 4f 4d 56 3d 30 0d 05 6e 0b c8 8e 20 44 |. NOMV=0..n... D|
00000c30 25 20 ca 0d 05 78 20 c9 20 31 3a 4e 58 25 3d 58 |% ...x . 1:NX%=X|
00000c40 25 3a 4e 59 25 3d 59 25 2d 31 3a 43 48 41 52 25 |%:NY%=Y%-1:CHAR%|
00000c50 3d 31 33 0d 05 82 20 c9 20 32 3a 4e 58 25 3d 58 |=13... . 2:NX%=X|
00000c60 25 2b 31 3a 4e 59 25 3d 59 25 3a 43 48 41 52 25 |%+1:NY%=Y%:CHAR%|
00000c70 3d 31 35 0d 05 8c 20 c9 20 33 3a 4e 58 25 3d 58 |=15... . 3:NX%=X|
00000c80 25 3a 4e 59 25 3d 59 25 2b 31 3a 43 48 41 52 25 |%:NY%=Y%+1:CHAR%|
00000c90 3d 31 34 0d 05 96 20 c9 20 34 3a 4e 58 25 3d 58 |=14... . 4:NX%=X|
00000ca0 25 2d 31 3a 4e 59 25 3d 59 25 3a 43 48 41 52 25 |%-1:NY%=Y%:CHAR%|
00000cb0 3d 31 36 0d 05 a0 05 cb 0d 05 aa 14 e7 20 4e 58 |=16.......... NX|
00000cc0 25 3d 30 20 8c 20 4e 58 25 3d 32 34 0d 05 b4 14 |%=0 . NX%=24....|
00000cd0 e7 20 4e 58 25 3d 32 35 20 8c 20 4e 58 25 3d 31 |. NX%=25 . NX%=1|
00000ce0 0d 05 be 14 e7 20 4e 59 25 3d 31 37 20 8c 20 4e |..... NY%=17 . N|
00000cf0 59 25 3d 31 0d 05 c8 14 e7 20 4e 59 25 3d 30 20 |Y%=1..... NY%=0 |
00000d00 8c 20 4e 59 25 3d 31 36 0d 05 d2 1f 43 48 41 52 |. NY%=16....CHAR|
00000d10 41 43 54 45 52 25 3d 3f a4 53 54 4f 52 45 28 4e |ACTER%=?.STORE(N|
00000d20 58 25 2c 4e 59 25 29 0d 05 dc 40 e7 20 43 48 41 |X%,NY%)...@. CHA|
00000d30 52 41 43 54 45 52 25 3e 3d 33 20 80 20 43 48 41 |RACTER%>=3 . CHA|
00000d40 52 41 43 54 45 52 25 3c 3d 37 20 8c 20 4e 58 25 |RACTER%<=7 . NX%|
00000d50 3d 58 25 3a 4e 59 25 3d 59 25 3a 43 48 41 52 41 |=X%:NY%=Y%:CHARA|
00000d60 43 54 45 52 25 3d 30 0d 05 e6 1b f2 50 55 54 53 |CTER%=0.....PUTS|
00000d70 50 52 49 54 45 28 58 25 2c 59 25 2c 43 48 41 52 |PRITE(X%,Y%,CHAR|
00000d80 25 29 0d 05 f0 1d f2 50 55 54 53 50 52 49 54 45 |%).....PUTSPRITE|
00000d90 28 4e 58 25 2c 4e 59 25 2c 43 48 41 52 25 29 0d |(NX%,NY%,CHAR%).|
00000da0 05 fa 17 f2 50 55 54 53 50 52 49 54 45 28 58 25 |....PUTSPRITE(X%|
00000db0 2c 59 25 2c 30 29 0d 06 04 1d f2 50 55 54 53 50 |,Y%,0).....PUTSP|
00000dc0 52 49 54 45 28 4e 58 25 2c 4e 59 25 2c 43 48 41 |RITE(NX%,NY%,CHA|
00000dd0 52 25 29 0d 06 0e 13 50 58 25 3d 4e 58 25 3a 50 |R%)....PX%=NX%:P|
00000de0 59 25 3d 4e 59 25 0d 06 18 0f 3d 43 48 41 52 41 |Y%=NY%....=CHARA|
00000df0 43 54 45 52 25 0d 06 22 19 dd f2 50 49 4c 4c 31 |CTER%.."...PILL1|
00000e00 3a d4 20 31 2c 2d 31 30 2c 31 39 37 2c 31 0d 06 |:. 1,-10,197,1..|
00000e10 2c 1d 4e 50 31 25 2d 3d 31 3a e7 20 4e 50 31 25 |,.NP1%-=1:. NP1%|
00000e20 3d 30 20 8c 20 f2 47 41 54 45 31 0d 06 36 05 e1 |=0 . .GATE1..6..|
00000e30 0d 06 40 19 dd f2 50 49 4c 4c 32 3a d4 20 31 2c |..@...PILL2:. 1,|
00000e40 2d 31 30 2c 31 39 37 2c 31 0d 06 4a 1d 4e 50 32 |-10,197,1..J.NP2|
00000e50 25 2d 3d 31 3a e7 20 4e 50 32 25 3d 30 20 8c 20 |%-=1:. NP2%=0 . |
00000e60 f2 47 41 54 45 32 0d 06 54 05 e1 0d 06 5e 19 dd |.GATE2..T....^..|
00000e70 f2 50 49 4c 4c 33 3a d4 20 31 2c 2d 31 30 2c 31 |.PILL3:. 1,-10,1|
00000e80 39 37 2c 31 0d 06 68 1d 4e 50 33 25 2d 3d 31 3a |97,1..h.NP3%-=1:|
00000e90 e7 20 4e 50 33 25 3d 30 20 8c 20 f2 47 41 54 45 |. NP3%=0 . .GATE|
00000ea0 33 0d 06 72 05 e1 0d 06 7c 19 dd f2 50 49 4c 4c |3..r....|...PILL|
00000eb0 34 3a d4 20 31 2c 2d 31 30 2c 31 39 37 2c 31 0d |4:. 1,-10,197,1.|
00000ec0 06 86 1d 4e 50 34 25 2d 3d 31 3a e7 20 4e 50 34 |...NP4%-=1:. NP4|
00000ed0 25 3d 30 20 8c 20 f2 47 41 54 45 34 0d 06 90 05 |%=0 . .GATE4....|
00000ee0 e1 0d 06 9a 0b dd f2 47 41 54 45 31 0d 06 a4 0a |.......GATE1....|
00000ef0 f2 53 43 4f 52 45 0d 06 ae 1b e3 20 58 25 3d 31 |.SCORE..... X%=1|
00000f00 20 b8 20 32 34 3a e3 20 59 25 3d 31 20 b8 20 31 | . 24:. Y%=1 . 1|
00000f10 36 0d 06 b8 34 e7 20 3f a4 53 54 4f 52 45 28 58 |6...4. ?.STORE(X|
00000f20 25 2c 59 25 29 3d 34 20 8c 20 f2 50 55 54 53 50 |%,Y%)=4 . .PUTSP|
00000f30 52 49 54 45 28 58 25 2c 59 25 2c 39 29 3a 4e 50 |RITE(X%,Y%,9):NP|
00000f40 32 25 2b 3d 31 0d 06 c2 06 ed 2c 0d 06 cc 05 e1 |2%+=1.....,.....|
00000f50 0d 06 d6 0b dd f2 47 41 54 45 32 0d 06 e0 0a f2 |......GATE2.....|
00000f60 53 43 4f 52 45 0d 06 ea 1b e3 20 58 25 3d 31 20 |SCORE..... X%=1 |
00000f70 b8 20 32 34 3a e3 20 59 25 3d 31 20 b8 20 31 36 |. 24:. Y%=1 . 16|
00000f80 0d 06 f4 35 e7 20 3f a4 53 54 4f 52 45 28 58 25 |...5. ?.STORE(X%|
00000f90 2c 59 25 29 3d 35 20 8c 20 f2 50 55 54 53 50 52 |,Y%)=5 . .PUTSPR|
00000fa0 49 54 45 28 58 25 2c 59 25 2c 31 30 29 3a 4e 50 |ITE(X%,Y%,10):NP|
00000fb0 33 25 2b 3d 31 0d 06 fe 06 ed 2c 0d 07 08 05 e1 |3%+=1.....,.....|
00000fc0 0d 07 12 0b dd f2 47 41 54 45 33 0d 07 1c 0a f2 |......GATE3.....|
00000fd0 53 43 4f 52 45 0d 07 26 1b e3 20 58 25 3d 31 20 |SCORE..&.. X%=1 |
00000fe0 b8 20 32 34 3a e3 20 59 25 3d 31 20 b8 20 31 36 |. 24:. Y%=1 . 16|
00000ff0 0d 07 30 35 e7 20 3f a4 53 54 4f 52 45 28 58 25 |..05. ?.STORE(X%|
00001000 2c 59 25 29 3d 36 20 8c 20 f2 50 55 54 53 50 52 |,Y%)=6 . .PUTSPR|
00001010 49 54 45 28 58 25 2c 59 25 2c 31 31 29 3a 4e 50 |ITE(X%,Y%,11):NP|
00001020 34 25 2b 3d 31 0d 07 3a 06 ed 2c 0d 07 44 05 e1 |4%+=1..:..,..D..|
00001030 0d 07 4e 0b dd f2 47 41 54 45 34 0d 07 58 0a f2 |..N...GATE4..X..|
00001040 53 43 4f 52 45 0d 07 62 1b e3 20 58 25 3d 31 20 |SCORE..b.. X%=1 |
00001050 b8 20 32 34 3a e3 20 59 25 3d 31 20 b8 20 31 36 |. 24:. Y%=1 . 16|
00001060 0d 07 6c 2c e7 20 3f a4 53 54 4f 52 45 28 58 25 |..l,. ?.STORE(X%|
00001070 2c 59 25 29 3d 37 20 8c 20 f2 50 55 54 53 50 52 |,Y%)=7 . .PUTSPR|
00001080 49 54 45 28 58 25 2c 59 25 2c 30 29 0d 07 76 06 |ITE(X%,Y%,0)..v.|
00001090 ed 2c 0d 07 80 05 e1 0d 07 8a 18 dd 20 a4 4d 4f |.,.......... .MO|
000010a0 56 45 47 48 4f 53 54 28 58 25 2c 59 25 29 3a 0d |VEGHOST(X%,Y%):.|
000010b0 07 94 24 e7 20 47 44 25 28 47 48 25 29 3d 30 20 |..$. GD%(GH%)=0 |
000010c0 8c 20 47 44 25 28 47 48 25 29 3d 31 3a e5 20 8d |. GD%(GH%)=1:. .|
000010d0 74 68 47 0d 07 9e 1d e7 20 47 44 25 28 47 48 25 |thG..... GD%(GH%|
000010e0 29 3d 30 20 8c 20 3d 43 42 47 25 28 47 48 25 29 |)=0 . =CBG%(GH%)|
000010f0 0d 07 a8 11 c8 8e 20 47 44 25 28 47 48 25 29 20 |...... GD%(GH%) |
00001100 ca 0d 07 b2 17 c9 20 31 3a 4e 58 25 3d 58 25 3a |...... 1:NX%=X%:|
00001110 4e 59 25 3d 59 25 2d 31 0d 07 bc 17 c9 20 32 3a |NY%=Y%-1..... 2:|
00001120 4e 58 25 3d 58 25 2b 31 3a 4e 59 25 3d 59 25 0d |NX%=X%+1:NY%=Y%.|
00001130 07 c6 17 c9 20 33 3a 4e 58 25 3d 58 25 3a 4e 59 |.... 3:NX%=X%:NY|
00001140 25 3d 59 25 2b 31 0d 07 d0 17 c9 20 34 3a 4e 58 |%=Y%+1..... 4:NX|
00001150 25 3d 58 25 2d 31 3a 4e 59 25 3d 59 25 0d 07 da |%=X%-1:NY%=Y%...|
00001160 05 cb 0d 07 e4 47 e7 20 4e 58 25 3d 30 20 84 20 |.....G. NX%=0 . |
00001170 4e 58 25 3d 32 35 20 84 20 4e 59 25 3d 30 20 84 |NX%=25 . NY%=0 .|
00001180 20 4e 59 25 3d 31 37 20 8c 20 47 44 25 28 47 48 | NY%=17 . GD%(GH|
00001190 25 29 3d a4 45 57 41 59 28 47 44 25 28 47 48 25 |%)=.EWAY(GD%(GH%|
000011a0 29 29 3a e5 20 8d 74 5e 47 0d 07 ee 17 41 25 3d |)):. .t^G....A%=|
000011b0 3f a4 53 54 4f 52 45 28 4e 58 25 2c 4e 59 25 29 |?.STORE(NX%,NY%)|
000011c0 0d 07 f8 4f e7 20 41 25 3d 32 20 84 20 41 25 3d |...O. A%=2 . A%=|
000011d0 33 20 84 20 41 25 3d 34 20 84 20 41 25 3d 35 20 |3 . A%=4 . A%=5 |
000011e0 84 20 41 25 3d 36 20 84 20 41 25 3d 37 20 8c 20 |. A%=6 . A%=7 . |
000011f0 47 44 25 28 47 48 25 29 3d a4 45 57 41 59 28 47 |GD%(GH%)=.EWAY(G|
00001200 44 25 28 47 48 25 29 29 3a e5 20 8d 74 5e 47 0d |D%(GH%)):. .t^G.|
00001210 08 02 21 e7 20 4e 58 25 3d 58 25 20 80 20 4e 59 |..!. NX%=X% . NY|
00001220 25 3d 59 25 20 8c 3d 43 42 47 25 28 47 48 25 29 |%=Y% .=CBG%(GH%)|
00001230 0d 08 0c 35 f2 50 55 54 53 50 52 49 54 45 28 4e |...5.PUTSPRITE(N|
00001240 58 25 2c 4e 59 25 2c 32 29 3a f2 50 55 54 53 50 |X%,NY%,2):.PUTSP|
00001250 52 49 54 45 28 58 25 2c 59 25 2c 43 42 47 25 28 |RITE(X%,Y%,CBG%(|
00001260 47 48 25 29 29 0d 08 16 2a 43 42 47 25 28 47 48 |GH%))...*CBG%(GH|
00001270 25 29 3d 41 25 3a 47 58 25 28 47 48 25 29 3d 4e |%)=A%:GX%(GH%)=N|
00001280 58 25 3a 47 59 25 28 47 48 25 29 3d 4e 59 25 0d |X%:GY%(GH%)=NY%.|
00001290 08 20 07 3d 41 25 0d 08 2a 0f dd 20 a4 45 57 41 |. .=A%..*.. .EWA|
000012a0 59 28 44 25 29 0d 08 34 0b 44 25 3d 44 25 2b 31 |Y(D%)..4.D%=D%+1|
000012b0 0d 08 3e 11 e7 20 44 25 3d 35 20 8c 20 44 25 3d |..>.. D%=5 . D%=|
000012c0 30 0d 08 48 07 3d 44 25 0d 08 52 12 dd f2 54 49 |0..H.=D%..R...TI|
000012d0 54 4c 45 44 49 53 50 4c 41 59 0d 08 5c 0b fb 20 |TLEDISPLAY..\.. |
000012e0 31 39 32 3a db 0d 08 66 1c e6 36 3a c8 93 20 c8 |192:...f..6:.. .|
000012f0 90 20 32 35 36 2c 37 36 38 2c 37 36 38 2c 32 32 |. 256,768,768,22|
00001300 34 0d 08 70 1c e6 35 3a c8 93 20 c8 90 20 32 36 |4..p..5:.. .. 26|
00001310 34 2c 37 37 36 2c 37 35 32 2c 32 30 38 0d 08 7a |4,776,752,208..z|
00001320 1c e6 34 3a c8 93 20 c8 90 20 32 37 32 2c 37 38 |..4:.. .. 272,78|
00001330 34 2c 37 33 36 2c 31 39 32 0d 08 84 1c e6 33 3a |4,736,192.....3:|
00001340 c8 93 20 c8 90 20 32 38 30 2c 37 39 32 2c 37 32 |.. .. 280,792,72|
00001350 30 2c 31 37 36 0d 08 8e 1c e6 32 3a c8 93 20 c8 |0,176.....2:.. .|
00001360 90 20 32 38 38 2c 38 30 30 2c 37 30 34 2c 31 36 |. 288,800,704,16|
00001370 30 0d 08 98 1c e6 31 3a c8 93 20 c8 90 20 32 39 |0.....1:.. .. 29|
00001380 36 2c 38 30 38 2c 36 38 38 2c 31 34 34 0d 08 a2 |6,808,688,144...|
00001390 1c e6 30 3a c8 93 20 c8 90 20 33 30 34 2c 38 31 |..0:.. .. 304,81|
000013a0 36 2c 36 37 32 2c 31 32 38 0d 08 ac 07 e6 31 35 |6,672,128.....15|
000013b0 0d 08 b6 19 ef 32 33 2c 31 37 2c 37 2c 36 2c 31 |.....23,17,7,6,1|
000013c0 32 3b 32 34 3b 30 3b 30 3b 0d 08 c0 26 ef 35 3a |2;24;0;0;...&.5:|
000013d0 ec 20 34 32 34 2c 39 32 30 3a f1 22 45 53 43 41 |. 424,920:."ESCA|
000013e0 50 45 20 66 72 6f 6d 20 45 58 45 52 49 41 22 0d |PE from EXERIA".|
000013f0 08 c5 38 ef 32 33 2c 31 37 2c 37 2c 36 2c 38 3b |..8.23,17,7,6,8;|
00001400 38 3b 30 3b 30 3b 3a ec 20 36 34 30 2d 31 32 30 |8;0;0;:. 640-120|
00001410 2c 37 34 30 3a f1 22 50 44 20 44 45 4d 4f 20 56 |,740:."PD DEMO V|
00001420 45 52 53 49 4f 4e 22 0d 08 ca 18 ef 32 33 2c 31 |ERSION".....23,1|
00001430 37 2c 37 2c 36 2c 38 3b 31 32 3b 30 3b 30 3b 0d |7,7,6,8;12;0;0;.|
00001440 08 d4 31 e6 31 34 3a ec 20 36 34 30 2d 31 39 32 |..1.14:. 640-192|
00001450 2c 36 38 30 3a f1 22 77 72 69 74 74 65 6e 20 62 |,680:."written b|
00001460 79 20 56 69 6e 63 65 20 4d 2e 20 48 75 64 64 22 |y Vince M. Hudd"|
00001470 0d 08 de 33 e6 31 31 3a ec 20 36 34 30 2d 32 30 |...3.11:. 640-20|
00001480 38 2c 36 32 30 3a f1 22 28 63 29 31 39 39 30 20 |8,620:."(c)1990 |
00001490 53 6f 66 74 20 52 6f 63 6b 20 53 6f 66 74 77 61 |Soft Rock Softwa|
000014a0 72 65 22 0d 08 e8 27 e6 31 35 3a ec 20 35 36 32 |re"...'.15:. 562|
000014b0 2c 36 31 36 3a f1 22 53 6f 66 74 20 52 6f 63 6b |,616:."Soft Rock|
000014c0 20 53 6f 66 74 77 61 72 65 22 0d 08 e9 6e ef 34 | Software"...n.4|
000014d0 3a 87 3a fb 20 31 30 30 3a f1 20 8a 32 2c 31 38 |:.:. 100:. .2,18|
000014e0 29 22 50 52 45 53 53 20 53 50 41 43 45 20 54 4f |)"PRESS SPACE TO|
000014f0 20 50 4c 41 59 20 4f 52 20 41 20 4e 55 4d 42 45 | PLAY OR A NUMBE|
00001500 52 20 46 52 4f 4d 20 30 20 54 4f 20 33 20 54 4f |R FROM 0 TO 3 TO|
00001510 20 43 48 41 4e 47 45 20 54 48 45 20 4e 55 4d 42 | CHANGE THE NUMB|
00001520 45 52 20 4f 46 20 47 48 4f 53 54 53 20 28 22 3b |ER OF GHOSTS (";|
00001530 4d 4e 47 25 3b 22 29 22 0d 08 eb 30 41 24 3d be |MNG%;")"...0A$=.|
00001540 3a e7 20 41 24 3e 3d 22 30 22 20 80 20 41 24 3c |:. A$>="0" . A$<|
00001550 3d 22 33 22 20 8c 20 4d 4e 47 25 3d bb 28 41 24 |="3" . MNG%=.(A$|
00001560 29 3a e5 20 8d 64 69 48 0d 08 ed 18 e7 20 41 24 |):. .diH..... A$|
00001570 3c 3e 22 20 22 8c 20 ef 37 3a e5 20 8d 64 6b 48 |<>" ". .7:. .dkH|
00001580 0d 08 f2 08 ef 34 3a 87 0d 08 fc 05 e1 0d 09 06 |.....4:.........|
00001590 17 dd f2 53 43 4e 42 41 4b 3a e6 31 32 37 3a db |...SCNBAK:.127:.|
000015a0 3a da 3a 87 0d 09 10 13 e3 20 41 25 3d 30 20 b8 |:.:...... A%=0 .|
000015b0 20 36 3a e6 20 41 25 0d 09 1a 51 c8 93 20 36 32 | 6:. A%...Q.. 62|
000015c0 2d 34 2a 41 25 2c 31 32 34 2d 34 2a 41 25 2c 31 |-4*A%,124-4*A%,1|
000015d0 31 35 34 2b 38 2a 41 25 2c 37 37 32 2b 38 2a 41 |154+8*A%,772+8*A|
000015e0 25 3a c8 93 20 36 30 2d 34 2a 41 25 2c 31 32 34 |%:.. 60-4*A%,124|
000015f0 2d 34 2a 41 25 2c 31 31 35 38 2b 38 2a 41 25 2c |-4*A%,1158+8*A%,|
00001600 37 37 32 2b 38 2a 41 25 0d 09 24 05 ed 0d 09 2e |772+8*A%..$.....|
00001610 32 ef 34 3a fb 20 31 34 3a f1 20 8a 31 36 2c 32 |2.4:. 14:. .16,2|
00001620 39 29 3b 22 53 43 52 45 45 4e 3a 20 22 2b c2 22 |9);"SCREEN: "+."|
00001630 30 30 22 2b c3 28 53 4e 25 2b 31 29 2c 32 29 0d |00"+.(SN%+1),2).|
00001640 09 38 30 f1 20 8a 35 34 2c 32 39 29 3b 22 4c 49 |.80. .54,29);"LI|
00001650 56 45 53 3a 20 22 2b c2 22 30 30 30 22 2b c3 28 |VES: "+."000"+.(|
00001660 4c 49 56 45 53 25 29 2c 33 29 3a f2 50 53 43 0d |LIVES%),3):.PSC.|
00001670 09 42 13 e7 20 43 48 45 41 54 25 20 8c 20 f2 50 |.B.. CHEAT% . .P|
00001680 43 48 0d 09 4c 25 41 24 3d 24 28 4e 41 4d 45 25 |CH..L%A$=$(NAME%|
00001690 2b 53 4e 25 2a 34 30 29 3a 51 3d 28 a9 28 41 24 |+SN%*40):Q=(.(A$|
000016a0 29 29 2a 31 36 2f 32 0d 09 56 24 e6 36 3a c8 93 |))*16/2..V$.6:..|
000016b0 20 c8 90 20 36 34 30 2d 51 2d 36 34 2c 39 32 30 | .. 640-Q-64,920|
000016c0 2c 51 2a 32 2b 31 32 38 2c 39 36 0d 09 60 24 e6 |,Q*2+128,96..`$.|
000016d0 35 3a c8 93 20 c8 90 20 36 34 30 2d 51 2d 35 36 |5:.. .. 640-Q-56|
000016e0 2c 39 32 34 2c 51 2a 32 2b 31 31 32 2c 38 38 0d |,924,Q*2+112,88.|
000016f0 09 6a 23 e6 34 3a c8 93 20 c8 90 20 36 34 30 2d |.j#.4:.. .. 640-|
00001700 51 2d 34 38 2c 39 32 38 2c 51 2a 32 2b 39 36 2c |Q-48,928,Q*2+96,|
00001710 38 30 0d 09 74 23 e6 33 3a c8 93 20 c8 90 20 36 |80..t#.3:.. .. 6|
00001720 34 30 2d 51 2d 34 30 2c 39 33 32 2c 51 2a 32 2b |40-Q-40,932,Q*2+|
00001730 38 30 2c 37 32 0d 09 7e 23 e6 32 3a c8 93 20 c8 |80,72..~#.2:.. .|
00001740 90 20 36 34 30 2d 51 2d 33 32 2c 39 33 36 2c 51 |. 640-Q-32,936,Q|
00001750 2a 32 2b 36 34 2c 36 34 0d 09 88 23 e6 31 3a c8 |*2+64,64...#.1:.|
00001760 93 20 c8 90 20 36 34 30 2d 51 2d 32 34 2c 39 34 |. .. 640-Q-24,94|
00001770 30 2c 51 2a 32 2b 34 38 2c 35 36 0d 09 92 23 e6 |0,Q*2+48,56...#.|
00001780 30 3a c8 93 20 c8 90 20 36 34 30 2d 51 2d 31 36 |0:.. .. 640-Q-16|
00001790 2c 39 34 34 2c 51 2a 32 2b 33 32 2c 34 38 0d 09 |,944,Q*2+32,48..|
000017a0 9c 1f ef 35 3a e6 37 3a ec 20 36 34 30 2d 51 2c |...5:.7:. 640-Q,|
000017b0 39 38 34 3a f1 20 41 24 3a ef 34 3a 87 0d 09 a6 |984:. A$:.4:....|
000017c0 07 87 3a e1 0d 09 b0 0d dd f2 45 4e 44 47 41 4d |..:.......ENDGAM|
000017d0 45 0d 09 ba 10 e3 20 4c 4f 4f 50 3d 31 20 b8 20 |E..... LOOP=1 . |
000017e0 32 0d 09 c4 40 43 25 3d 30 3a 41 44 44 25 3d 31 |2...@C%=0:ADD%=1|
000017f0 3a e3 20 58 25 3d 30 20 b8 20 31 32 37 38 20 88 |:. X%=0 . 1278 .|
00001800 20 32 3a e6 20 43 25 3a 86 20 58 25 2c 30 2c 58 | 2:. C%:. X%,0,X|
00001810 25 2c 31 30 32 33 3a 43 25 3d 43 25 2b 41 44 44 |%,1023:C%=C%+ADD|
00001820 25 0d 09 ce 2a e7 20 43 25 3d 38 20 84 20 43 25 |%...*. C%=8 . C%|
00001830 3d 2d 31 20 8c 20 41 44 44 25 3d 2d 41 44 44 25 |=-1 . ADD%=-ADD%|
00001840 3a 43 25 3d 43 25 2b 41 44 44 25 0d 09 d8 05 ed |:C%=C%+ADD%.....|
00001850 0d 09 e2 40 43 25 3d 30 3a 41 44 44 25 3d 31 3a |...@C%=0:ADD%=1:|
00001860 e3 20 58 25 3d 30 20 b8 20 31 32 32 30 20 88 20 |. X%=0 . 1220 . |
00001870 34 3a e6 20 43 25 3a 86 20 30 2c 58 25 2c 31 32 |4:. C%:. 0,X%,12|
00001880 37 39 2c 58 25 3a 43 25 3d 43 25 2b 41 44 44 25 |79,X%:C%=C%+ADD%|
00001890 0d 09 ec 2a e7 20 43 25 3d 38 20 84 20 43 25 3d |...*. C%=8 . C%=|
000018a0 2d 31 20 8c 20 41 44 44 25 3d 2d 41 44 44 25 3a |-1 . ADD%=-ADD%:|
000018b0 43 25 3d 43 25 2b 41 44 44 25 0d 09 f6 06 ed 2c |C%=C%+ADD%.....,|
000018c0 0d 0a 00 10 e3 20 4c 4f 4f 50 3d 31 20 b8 20 33 |..... LOOP=1 . 3|
000018d0 0d 0a 0a 42 43 25 3d 30 3a 41 44 44 25 3d 31 3a |...BC%=0:ADD%=1:|
000018e0 e3 20 58 25 3d 30 20 b8 20 31 32 37 38 20 88 20 |. X%=0 . 1278 . |
000018f0 32 3a e6 20 33 2c 43 25 3a 86 20 58 25 2c 30 2c |2:. 3,C%:. X%,0,|
00001900 58 25 2c 31 30 32 33 3a 43 25 3d 43 25 2b 41 44 |X%,1023:C%=C%+AD|
00001910 44 25 0d 0a 14 2a e7 20 43 25 3d 38 20 84 20 43 |D%...*. C%=8 . C|
00001920 25 3d 2d 31 20 8c 20 41 44 44 25 3d 2d 41 44 44 |%=-1 . ADD%=-ADD|
00001930 25 3a 43 25 3d 43 25 2b 41 44 44 25 0d 0a 1e 05 |%:C%=C%+ADD%....|
00001940 ed 0d 0a 28 13 e7 20 4c 4f 4f 50 3d 33 20 8c 20 |...(.. LOOP=3 . |
00001950 8d 44 50 4a 0d 0a 32 42 43 25 3d 30 3a 41 44 44 |.DPJ..2BC%=0:ADD|
00001960 25 3d 31 3a e3 20 58 25 3d 30 20 b8 20 31 32 32 |%=1:. X%=0 . 122|
00001970 30 20 88 20 34 3a e6 20 33 2c 43 25 3a 86 20 30 |0 . 4:. 3,C%:. 0|
00001980 2c 58 25 2c 31 32 37 39 2c 58 25 3a 43 25 3d 43 |,X%,1279,X%:C%=C|
00001990 25 2b 41 44 44 25 0d 0a 3c 2a e7 20 43 25 3d 38 |%+ADD%..<*. C%=8|
000019a0 20 84 20 43 25 3d 2d 31 20 8c 20 41 44 44 25 3d | . C%=-1 . ADD%=|
000019b0 2d 41 44 44 25 3a 43 25 3d 43 25 2b 41 44 44 25 |-ADD%:C%=C%+ADD%|
000019c0 0d 0a 46 05 ed 0d 0a 50 05 ed 0d 0a 5a 06 e6 37 |..F....P....Z..7|
000019d0 0d 0a 64 44 e3 20 58 25 3d 30 20 b8 20 36 34 30 |..dD. X%=0 . 640|
000019e0 20 88 20 32 3a 86 20 36 34 30 2d 58 25 2c 30 2c | . 2:. 640-X%,0,|
000019f0 36 34 30 2d 58 25 2c 31 30 32 33 3a 86 20 36 34 |640-X%,1023:. 64|
00001a00 30 2b 58 25 2c 30 2c 36 34 30 2b 58 25 2c 31 30 |0+X%,0,640+X%,10|
00001a10 32 33 3a ed 0d 0a 6e 1c e6 36 3a c8 93 20 c8 90 |23:...n..6:.. ..|
00001a20 20 33 32 30 2c 32 35 36 2c 36 34 30 2c 35 31 32 | 320,256,640,512|
00001a30 0d 0a 78 1c e6 35 3a c8 93 20 c8 90 20 33 33 36 |..x..5:.. .. 336|
00001a40 2c 32 37 32 2c 36 30 38 2c 34 38 30 0d 0a 82 1c |,272,608,480....|
00001a50 e6 34 3a c8 93 20 c8 90 20 33 35 32 2c 32 38 38 |.4:.. .. 352,288|
00001a60 2c 35 37 36 2c 34 34 38 0d 0a 8c 1c e6 33 3a c8 |,576,448.....3:.|
00001a70 93 20 c8 90 20 33 36 38 2c 33 30 34 2c 35 34 34 |. .. 368,304,544|
00001a80 2c 34 31 36 0d 0a 96 1c e6 32 3a c8 93 20 c8 90 |,416.....2:.. ..|
00001a90 20 33 38 34 2c 33 32 30 2c 35 31 32 2c 33 38 34 | 384,320,512,384|
00001aa0 0d 0a a0 1c e6 31 3a c8 93 20 c8 90 20 34 30 30 |.....1:.. .. 400|
00001ab0 2c 33 33 36 2c 34 38 30 2c 33 35 32 0d 0a aa 1c |,336,480,352....|
00001ac0 e6 30 3a c8 93 20 c8 90 20 34 31 36 2c 33 35 32 |.0:.. .. 416,352|
00001ad0 2c 34 34 38 2c 33 32 30 0d 0a b4 1a ef 32 33 2c |,448,320.....23,|
00001ae0 31 37 2c 37 2c 36 2c 31 32 3b 31 36 3b 30 3b 30 |17,7,6,12;16;0;0|
00001af0 3b 35 0d 0a be 24 e6 37 3a ec 20 34 34 38 2c 36 |;5...$.7:. 448,6|
00001b00 36 34 3a f1 22 43 4f 4e 47 52 41 54 55 4c 41 54 |64:."CONGRATULAT|
00001b10 49 4f 4e 53 21 22 0d 0a c8 19 ec 20 35 34 34 2c |IONS!"..... 544,|
00001b20 36 30 34 3a f1 22 59 4f 55 20 48 41 56 45 22 0d |604:."YOU HAVE".|
00001b30 0a d2 1d ec 20 34 39 36 2c 35 34 34 3a f1 22 45 |.... 496,544:."E|
00001b40 53 43 41 50 45 44 20 46 52 4f 4d 22 0d 0a dc 17 |SCAPED FROM"....|
00001b50 ec 20 35 36 38 2c 34 38 34 3a f1 22 45 58 45 52 |. 568,484:."EXER|
00001b60 49 41 22 0d 0a e6 21 ec 20 34 34 38 2c 34 32 34 |IA"...!. 448,424|
00001b70 3a f1 22 21 21 21 21 21 21 21 21 21 21 21 21 21 |:."!!!!!!!!!!!!!|
00001b80 21 21 21 22 0d 0a f0 08 ef 34 3a 87 0d 0a fa 05 |!!!".....4:.....|
00001b90 e1 0d 0b 04 21 e7 20 53 54 41 47 45 25 3d 30 20 |....!. STAGE%=0 |
00001ba0 8c 20 fb 20 31 33 35 3a fb 20 30 3a db 3a 87 3a |. . 135:. 0:.:.:|
00001bb0 c8 98 0d 0b 0e 05 f9 0d 0b 18 0f f2 47 41 4d 45 |............GAME|
00001bc0 4f 56 45 52 3a f9 0d 0b 22 0e dd f2 47 41 4d 45 |OVER:..."...GAME|
00001bd0 4f 56 45 52 0d 0b 2c 0f 58 3d 35 35 32 3a 59 3d |OVER..,.X=552:Y=|
00001be0 35 31 32 0d 0b 36 1d e6 37 3a c8 93 20 c8 90 20 |512..6..7:.. .. |
00001bf0 58 2d 31 36 2c 59 2d 36 34 2c 32 31 36 2c 38 30 |X-16,Y-64,216,80|
00001c00 0d 0b 40 1d e6 36 3a c8 93 20 c8 90 20 58 2d 31 |..@..6:.. .. X-1|
00001c10 32 2c 59 2d 36 30 2c 32 30 38 2c 37 32 0d 0b 4a |2,Y-60,208,72..J|
00001c20 1d e6 35 3a c8 93 20 c8 90 20 58 2d 31 30 2c 59 |..5:.. .. X-10,Y|
00001c30 2d 35 36 2c 32 30 34 2c 36 34 0d 0b 54 1c e6 33 |-56,204,64..T..3|
00001c40 3a c8 93 20 c8 90 20 58 2d 36 2c 59 2d 34 38 2c |:.. .. X-6,Y-48,|
00001c50 31 39 36 2c 34 38 0d 0b 5e 26 ef 35 3a e6 30 3a |196,48..^&.5:.0:|
00001c60 ec 20 58 2c 59 2d 34 3a f1 20 22 47 41 4d 45 20 |. X,Y-4:. "GAME |
00001c70 4f 56 45 52 20 21 22 3a ef 34 3a 87 0d 0b 68 12 |OVER !":.4:...h.|
00001c80 f2 53 50 41 43 45 28 58 2c 59 2d 39 36 29 0d 0b |.SPACE(X,Y-96)..|
00001c90 72 05 e1 0d 0b 7c 0b dd f2 53 43 4f 52 45 0d 0b |r....|...SCORE..|
00001ca0 86 25 e7 20 ac 20 43 48 45 41 54 25 20 8c 20 53 |.%. . CHEAT% . S|
00001cb0 43 4f 52 45 25 3d 53 43 4f 52 45 25 2b 35 3a f2 |CORE%=SCORE%+5:.|
00001cc0 50 53 43 0d 0b 90 05 e1 0d 0b 9a 26 dd f2 50 53 |PSC........&..PS|
00001cd0 43 3a ef 34 3a fb 20 31 34 3a f1 20 8a 31 36 2c |C:.4:. 14:. .16,|
00001ce0 33 30 29 3b 22 53 43 4f 52 45 3a 20 22 3b 0d 0b |30);"SCORE: ";..|
00001cf0 a4 37 53 43 24 3d c2 22 30 30 30 22 2b c3 28 53 |.7SC$=."000"+.(S|
00001d00 43 4f 52 45 25 29 2c 33 29 3a 53 43 24 3d c0 53 |CORE%),3):SC$=.S|
00001d10 43 24 2c 32 29 2b 22 2e 22 2b c2 53 43 24 2c 31 |C$,2)+"."+.SC$,1|
00001d20 29 2b 22 25 22 0d 0b ae 0e f1 20 53 43 24 3a ef |)+"%"..... SC$:.|
00001d30 35 3a e1 0d 0b b8 2b dd f2 50 43 48 3a ef 34 3a |5:....+..PCH:.4:|
00001d40 fb 20 31 34 3a f1 20 8a 35 34 2c 33 30 29 3b 22 |. 14:. .54,30);"|
00001d50 53 43 52 45 45 4e 20 48 4f 50 50 45 44 22 0d 0b |SCREEN HOPPED"..|
00001d60 c2 08 ef 35 3a e1 0d 0b cc 0a dd f2 4f 55 4e 54 |...5:.......OUNT|
00001d70 0d 0b d6 2f 4e 4f 4d 56 3d 4e 4f 4d 56 2b 31 3a |.../NOMV=NOMV+1:|
00001d80 e7 20 4e 4f 4d 56 3e 31 30 20 8c 20 f2 50 55 54 |. NOMV>10 . .PUT|
00001d90 53 50 52 49 54 45 28 58 25 2c 59 25 2c 31 29 0d |SPRITE(X%,Y%,1).|
00001da0 0b e0 05 e1 0d 0f a0 0d dd 20 f2 47 48 4f 53 45 |......... .GHOSE|
00001db0 54 0d 0f aa 25 47 58 25 28 47 48 25 29 3d 58 25 |T...%GX%(GH%)=X%|
00001dc0 3a 47 59 25 28 47 48 25 29 3d 59 25 3a 47 48 25 |:GY%(GH%)=Y%:GH%|
00001dd0 3d 47 48 25 2b 31 0d 0f b4 19 e7 20 28 47 48 25 |=GH%+1..... (GH%|
00001de0 2d 31 29 3e 4d 4e 47 25 20 8c 20 41 25 3d 30 0d |-1)>MNG% . A%=0.|
00001df0 0f be 05 e1 0d ff |......|
00001df6 
.