Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_37.ADF » G/MAIN

G/MAIN

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 ADFS disks » Electron_User_Group » EUG_37.ADF
Filename: G/MAIN
Read OK: ✔
File size: 0E35 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10ONERRORGOTO100
   20*FX4,1
   30DIM SC(9),SC$(9)
   40FOR O%=0TO9:SC(O%)=50000-5000*O%:SC$(O%)="Winglebith":NEXT
   50*L.CHARS
   60*T.
   70FORI%=0TO&7FCSTEP4:I%!&D00=I%!&6000:NEXT
   80FORI%=0TO&160STEP4:I%!&2660=I%!&7000:NEXT
   90MODE1:HIMEM=&2660:DIFF=10
  100PROCtitle
  110PROCgame:IF DEATH=1 GOTO140
  120PROCbonus:IF N%=3 GOTO160
  130N%=N%+1:GOTO110
  140FORO%=200TO0STEP-10:SOUND1,1,O%,2:NEXT
  150PRINTTAB(10,14)"WINGLEBITH IS DEAD!";
  160PROChiscore:GOTO 100
  170DEFPROCgame
  180PROCscreen(N%):!&79=0:CALL M%
  190CYS=?&8C:IF !&79>0 GOTO 240
  200EA=?&8D:CAN=?&89
  210IFINKEY(-98) CALL L% ELSE IFINKEY(-67) CALL R% ELSE IFINKEY(-105) CALL D% ELSE IFINKEY(-73) CALL U% ELSE GOTO230
  220IF EA=?&8D SOUND0,-5,2,1 ELSE SC=SC+20:PROCsc:SOUND&0010,-5,4,5
  230IF CAN<>?&89 SC=SC+200:PROCsc:SOUND&0011,1,100,20
  240CALL M%
  250IF ADVAL(-8)=15 PROCtune
  260IFINKEY(-90) REPEAT:UNTILINKEY(-106)
  270IF CYS<>?&8C PROCenergy
  280CNT=CNT+1:IF CNT>MCT PROCmovemonsters
  290CT=(CT+1)MOD MCT:IF CT>0 GOTO350
  300GCOL0,3:MOVE TME,1004:DRAW TME,1012
  310MOVE ENER,976:DRAW ENER,984
  320IF BM<>0 TME=TME-4
  330ENER=ENER-2
  340IF TME<32 OR ENER<32 DEATH=1:ENDPROC
  350IF ?&89+?&8C+?&8D+NM+BM=0 DEATH=0:ENDPROC
  360IF ?&7D=&1B OR ?&7D=&C DEATH=1:ENDPROC
  370FORO%=1TO20:NEXT:GOTO190
  380DEFPROCtune:SOUND3,4,?TN%,TN%?1
  390TN%=TN%+2:IF?TN%=0TN%=&2660
  400ENDPROC
  410DEFPROCmovemonsters
  420IF BM<>0 !&9C=!&A0:?&8A=&E:?&8B=&D:CALLT%:IF?&82=&D BM=0:SOUND1,3,0,1:SC=SC+1000:PROCsc
  430G%=G%+4:IFG%>&98G%=&90
  440AM=(?&73+256*?&74)-&27C0
  450AA=(G%?2+256*G%?3)-&27C0
  460!&9C=!G%
  470IF AM MOD 20>AA MOD 20 CALL Y%:GOTO 490
  480IF AM MOD 20<AA MOD 20 CALL X%
  490IF AM DIV 20<AA DIV 20 CALL W%:GOTO 510
  500IF AM DIV 20>AA DIV 20 CALL Z%
  510?&8A=&F:?&8B=&1B:CALL T%:IF ?&82=&1B NM=NM-1:SOUND 1,3,50,1:SC=SC+2000:PROCsc
  520IF !G%=0 GOTO 540
  530!G%=!&9C:SOUND&0012,2,(G%-&80)*4,20
  540CNT=0:ENDPROC
  550:
  560DEFPROCscreen(N)
  570G%=&90:!&A0=0:CT=0:A=0:TN%=&2660
  580CNT=0:MCT=DIFF
  590CLS:H%=&900+256*N
  600FOR I%=0 TO 13:FOR O%=0 TO 17
  610?(&27D5+O%+20*I%)=?(H%+O%+18*I%)
  620NEXT,
  630PROCframe
  640FOR I%=0 TO 3:VDU19,I%,?(H%+I%+252);0;:NEXT
  650CALL F%:NM=?&9D:CALL S%:CALL Q%
  660BM=?&A1
  670PROCsc:PROCdiff:PROCbars
  680ENDPROC
  690DEFPROCframe
  700FOR I%=&27C0 TO &27D3:?I%=&16:NEXT
  710FOR I%=&27D4 TO &28D8 STEP 20
  720?I%=&16:I%?19=&16:NEXT
  730FOR I%=&28EC TO &28FF:?I%=&16:NEXT
  740ENDPROC
  750DEFPROCbl
  760FOR O%=&27C0 TO &28FF:?O%=0:NEXT
  770PROCframe:CLS:CALL S%
  780ENDPROC
  790DEFPROCtitle
  800SC=0
  810PROCbl:PROCsc:PROCdiff
  820VDU19,0,0;0;19,1,1;0;19,2,3;0;19,3,7;0;23,1,0;0;0;0;
  830COLOUR3:PRINTTAB(12,3)"SYSTEM WADGEBURY";TAB(13,5)"by Andrew Cook";
  840FOR O%=0TO9
  850PRINTTAB(7,O%+11);STRING$(6-LEN(STR$(SC(O%))),"0");SC(O%);"   ";SC$(O%)
  860NEXT
  870PRINTTAB(2,26)"Press 1 to 9 for difficulty (1=hard)";TAB(13,28)"A - D to start";
  880PROCdemo:N%=G-65
  890ENDPROC
  900DEFPROCbars
  910GCOL0,3:MOVE28,1016:MOVE1248,1016:PLOT85,28,1000:PLOT85,1248,1000
  920MOVE28,988:MOVE1248,988:PLOT85,28,972:PLOT85,1248,972
  930GCOL0,1:FORO%=32 TO 1244 STEP 4
  940MOVE O%,976:DRAW O%,984
  950MOVE O%,1004:DRAW O%,1012
  960SOUND&0011,-1,O%/5,2:NEXT
  970TME=1244:ENER=1244:ENDPROC
  980DEFPROCenergy:GCOL0,1:SOUND1,4,200,5
  990SC=SC+100:PROCsc
 1000OENR=ENER:REPEAT
 1010IF ADVAL(-8)=15 PROCtune
 1020MOVE ENER,976:DRAW ENER,984:ENER=ENER+4
 1030UNTIL ENER=OENR+80 OR ENER>=1244
 1040ENDPROC
 1050DEFPROCsc
 1060PRINTTAB(17,31);STRING$(6-LEN(STR$(SC)),"0");SC;
 1070ENDPROC
 1080DEFPROCdiff
 1090PRINTTAB(0,31)"DIFF=";DIFF-1;:ENDPROC
 1100DEFPROCbonus:GCOL0,3
 1110MOVE TME,1004:MOVE TME,1012
 1120FOR O%=TME TO 28 STEP-16:SC=SC+20:PROCsc
 1130PLOT85,O%,1004:PLOT85,O%,1012
 1140SOUND&0011,-10,O%/10,2:NEXT
 1150MOVE ENER,976:MOVE ENER,984
 1160FOR O%=ENER TO 28 STEP-16:SC=SC+20:PROCsc
 1170PLOT85,O%,976:PLOT85,O%,984
 1180SOUND&0011,-10,O%/10,2:NEXT
 1190ENDPROC
 1200DEFPROCdemo:!&70=&FE184440:?&74=&27:!&79=0
 1210CALL Q%:B%=0:REPEAT:IF !&79>0 GOTO 1240
 1220IF B%<15 CALL R% ELSEIF B%<22 CALL D% ELSEIF B%<37 CALL L% ELSE CALL U%
 1230B%=(B%+1)MOD44
 1240CALL M%:FOR O%=1TO300:NEXT
 1250G=INKEY0:IF G>48 AND G<58 DIFF=G-47:PROCdiff
 1260UNTIL G>64 AND G<69
 1270ENDPROC
 1280DEFPROCinput
 1290X$="":VDU23,1,1;0;0;0;31,12,18
 1300G=GET:IF G=127 AND LEN(X$)>0 X$=LEFT$(X$,LEN(X$)-1):PRINTCHR$127;
 1310IF G=13 ENDPROC
 1320IF LEN(X$)<17 AND G>31 AND G<127 G$=CHR$(G):X$=X$+G$:PRINTG$;
 1330GOTO 1300
 1340DEFPROChiscore
 1350IFADVAL(-1)>0THENG=GET:GOTO1350
 1360G=INKEY(300):IF SC<SC(9) ENDPROC
 1370PROCbl:PROCsc:PRINTTAB(4,8)"YOUR SCORE QUALIFIES YOU FOR THE"TAB(14,10)"HALL OF FAME!"TAB(8,15)"PLEASE ENTER YOUR NAME:";
 1380COLOUR2:PROCinput
 1390O%=-1:REPEAT:O%=O%+1:UNTIL SC(O%)<=SC
 1400FOR I%=8 TO O% STEP-1:SC(I%+1)=SC(I%):SC$(I%+1)=SC$(I%):NEXT
 1410SC(O%)=SC:SC$(O%)=X$
 1420ENDPROC


��Dd@

*FX4,1
� SC(9),SC$(9)
(8� O%=0�9:SC(O%)=50000-5000*O%:SC$(O%)="Winglebith":�
2*L.CHARS
<*T.
F#�I%=0�&7FC�4:I%!&D00=I%!&6000:�
P$�I%=0�&160�4:I%!&2660=I%!&7000:�
Z�1:�=&2660:DIFF=10
d
�title
n�game:� DEATH=1 �tL@
x�bonus:� N%=3 �t`@
�N%=N%+1:�Dn@
��O%=200�0�-10:�1,1,O%,2:�
�"�10,14)"WINGLEBITH IS DEAD!";
��hiscore:� �Dd@
�
��game
��screen(N%):!&79=0:� M%
�CYS=?&8C:� !&79>0 � �dp@
�EA=?&8D:CAN=?&89
�F�(-98) � L% � �(-67) � R% � �(-105) � D% � �(-73) � U% � �df@
�4� EA=?&8D �0,-5,2,1 � SC=SC+20:�sc:�&0010,-5,4,5
�-� CAN<>?&89 SC=SC+200:�sc:�&0011,1,100,20
�� M%
�� �(-8)=15 �tune
�(-90) �:��(-106)
� CYS<>?&8C �energy
%CNT=CNT+1:� CNT>MCT �movemonsters
"CT=(CT+1)� MCT:� CT>0 �D^A
,�0,3:� TME,1004:� TME,1012
6� ENER,976:� ENER,984
@� BM<>0 TME=TME-4
JENER=ENER-2
T � TME<32 � ENER<32 DEATH=1:�
^&� ?&89+?&8C+?&8D+NM+BM=0 DEATH=0:�
h"� ?&7D=&1B � ?&7D=&C DEATH=1:�
r�O%=1�20:�:�t~@
|��tune:�3,4,?TN%,TN%?1
�TN%=TN%+2:�?TN%=0TN%=&2660
��
���movemonsters
�O� BM<>0 !&9C=!&A0:?&8A=&E:?&8B=&D:�T%:�?&82=&D BM=0:�1,3,0,1:SC=SC+1000:�sc
�G%=G%+4:�G%>&98G%=&90
�AM=(?&73+256*?&74)-&27C0
�AA=(G%?2+256*G%?3)-&27C0
�!&9C=!G%
�!� AM � 20>AA � 20 � Y%:� �djA
�� AM � 20<AA � 20 � X%
�!� AM � 20<AA � 20 � W%:� �d~A
�� AM � 20>AA � 20 � Z%
�F?&8A=&F:?&8B=&1B:� T%:� ?&82=&1B NM=NM-1:� 1,3,50,1:SC=SC+2000:�sc
� !G%=0 � �T\B
#!G%=!&9C:�&0012,2,(G%-&80)*4,20
CNT=0:�
&:
0��screen(N)
:$G%=&90:!&A0=0:CT=0:A=0:TN%=&2660
DCNT=0:MCT=DIFF
N�:H%=&900+256*N
X� I%=0 � 13:� O%=0 � 17
b$?(&27D5+O%+20*I%)=?(H%+O%+18*I%)
l�,
v
�frame
�'� I%=0 � 3:�19,I%,?(H%+I%+252);0;:�
�� F%:NM=?&9D:� S%:� Q%
�BM=?&A1
��sc:�diff:�bars
��
���frame
� � I%=&27C0 � &27D3:?I%=&16:�
�� I%=&27D4 � &28D8 � 20
�?I%=&16:I%?19=&16:�
� � I%=&28EC � &28FF:?I%=&16:�
��
���bl
�� O%=&27C0 � &28FF:?O%=0:�
�frame:�:� S%
�
��title
 SC=0
*�bl:�sc:�diff
46�19,0,0;0;19,1,1;0;19,2,3;0;19,3,7;0;23,1,0;0;0;0;
>8�3:�12,3)"SYSTEM WADGEBURY";�13,5)"by Andrew Cook";
H� O%=0�9
R8�7,O%+11);�6-�(�(SC(O%))),"0");SC(O%);"   ";SC$(O%)
\�
fJ�2,26)"Press 1 to 9 for difficulty (1=hard)";�13,28)"A - D to start";
p�demo:N%=G-65
z�
�
��bars
�6�0,3:�28,1016:�1248,1016:�85,28,1000:�85,1248,1000
�-�28,988:�1248,988:�85,28,972:�85,1248,972
��0,1:�O%=32 � 1244 � 4
�� O%,976:� O%,984
�� O%,1004:� O%,1012
��&0011,-1,O%/5,2:�
�TME=1244:ENER=1244:�
���energy:�0,1:�1,4,200,5
�SC=SC+100:�sc
�OENR=ENER:�
�� �(-8)=15 �tune
�%� ENER,976:� ENER,984:ENER=ENER+4
� ENER=OENR+80 � ENER>=1244
�
��sc
$!�17,31);�6-�(�(SC)),"0");SC;
.�
8
��diff
B�0,31)"DIFF=";DIFF-1;:�
L��bonus:�0,3
V� TME,1004:� TME,1012
`#� O%=TME � 28 �-16:SC=SC+20:�sc
j�85,O%,1004:�85,O%,1012
t�&0011,-10,O%/10,2:�
~� ENER,976:� ENER,984
�$� O%=ENER � 28 �-16:SC=SC+20:�sc
��85,O%,976:�85,O%,984
��&0011,-10,O%/10,2:�
��
�)��demo:!&70=&FE184440:?&74=&27:!&79=0
�� Q%:B%=0:�:� !&79>0 � �dXD
�3� B%<15 � R% �� B%<22 � D% �� B%<37 � L% � � U%
�B%=(B%+1)�44
�� M%:� O%=1�300:�
�&G=�0:� G>48 � G<58 DIFF=G-47:�diff
�� G>64 � G<69
��
��input

 X$="":�23,1,1;0;0;0;31,12,18
0G=�:� G=127 � �(X$)>0 X$=�X$,�(X$)-1):�127;
� G=13 �
(3� �(X$)<17 � G>31 � G<127 G$=�(G):X$=X$+G$:�G$;
2
� �TTE
<
��hiscore
F�(-1)>0�G=�:�DFE
PG=�(300):� SC<SC(9) �
Zj�bl:�sc:�4,8)"YOUR SCORE QUALIFIES YOU FOR THE"�14,10)"HALL OF FAME!"�8,15)"PLEASE ENTER YOUR NAME:";
d
�2:�input
n O%=-1:�:O%=O%+1:� SC(O%)<=SC
x7� I%=8 � O% �-1:SC(I%+1)=SC(I%):SC$(I%+1)=SC$(I%):�
�SC(O%)=SC:SC$(O%)=X$
��
�
00000000  0d 00 0a 0b ee 85 e5 8d  44 64 40 0d 00 14 0a 2a  |........Dd@....*|
00000010  46 58 34 2c 31 0d 00 1e  12 de 20 53 43 28 39 29  |FX4,1..... SC(9)|
00000020  2c 53 43 24 28 39 29 0d  00 28 38 e3 20 4f 25 3d  |,SC$(9)..(8. O%=|
00000030  30 b8 39 3a 53 43 28 4f  25 29 3d 35 30 30 30 30  |0.9:SC(O%)=50000|
00000040  2d 35 30 30 30 2a 4f 25  3a 53 43 24 28 4f 25 29  |-5000*O%:SC$(O%)|
00000050  3d 22 57 69 6e 67 6c 65  62 69 74 68 22 3a ed 0d  |="Winglebith":..|
00000060  00 32 0c 2a 4c 2e 43 48  41 52 53 0d 00 3c 07 2a  |.2.*L.CHARS..<.*|
00000070  54 2e 0d 00 46 23 e3 49  25 3d 30 b8 26 37 46 43  |T...F#.I%=0.&7FC|
00000080  88 34 3a 49 25 21 26 44  30 30 3d 49 25 21 26 36  |.4:I%!&D00=I%!&6|
00000090  30 30 30 3a ed 0d 00 50  24 e3 49 25 3d 30 b8 26  |000:...P$.I%=0.&|
000000a0  31 36 30 88 34 3a 49 25  21 26 32 36 36 30 3d 49  |160.4:I%!&2660=I|
000000b0  25 21 26 37 30 30 30 3a  ed 0d 00 5a 16 eb 31 3a  |%!&7000:...Z..1:|
000000c0  d3 3d 26 32 36 36 30 3a  44 49 46 46 3d 31 30 0d  |.=&2660:DIFF=10.|
000000d0  00 64 0a f2 74 69 74 6c  65 0d 00 6e 19 f2 67 61  |.d..title..n..ga|
000000e0  6d 65 3a e7 20 44 45 41  54 48 3d 31 20 e5 8d 74  |me:. DEATH=1 ..t|
000000f0  4c 40 0d 00 78 17 f2 62  6f 6e 75 73 3a e7 20 4e  |L@..x..bonus:. N|
00000100  25 3d 33 20 e5 8d 74 60  40 0d 00 82 11 4e 25 3d  |%=3 ..t`@....N%=|
00000110  4e 25 2b 31 3a e5 8d 44  6e 40 0d 00 8c 1d e3 4f  |N%+1:..Dn@.....O|
00000120  25 3d 32 30 30 b8 30 88  2d 31 30 3a d4 31 2c 31  |%=200.0.-10:.1,1|
00000130  2c 4f 25 2c 32 3a ed 0d  00 96 22 f1 8a 31 30 2c  |,O%,2:...."..10,|
00000140  31 34 29 22 57 49 4e 47  4c 45 42 49 54 48 20 49  |14)"WINGLEBITH I|
00000150  53 20 44 45 41 44 21 22  3b 0d 00 a0 13 f2 68 69  |S DEAD!";.....hi|
00000160  73 63 6f 72 65 3a e5 20  8d 44 64 40 0d 00 aa 0a  |score:. .Dd@....|
00000170  dd f2 67 61 6d 65 0d 00  b4 1b f2 73 63 72 65 65  |..game.....scree|
00000180  6e 28 4e 25 29 3a 21 26  37 39 3d 30 3a d6 20 4d  |n(N%):!&79=0:. M|
00000190  25 0d 00 be 1c 43 59 53  3d 3f 26 38 43 3a e7 20  |%....CYS=?&8C:. |
000001a0  21 26 37 39 3e 30 20 e5  20 8d 64 70 40 0d 00 c8  |!&79>0 . .dp@...|
000001b0  14 45 41 3d 3f 26 38 44  3a 43 41 4e 3d 3f 26 38  |.EA=?&8D:CAN=?&8|
000001c0  39 0d 00 d2 46 e7 a6 28  2d 39 38 29 20 d6 20 4c  |9...F..(-98) . L|
000001d0  25 20 8b 20 e7 a6 28 2d  36 37 29 20 d6 20 52 25  |% . ..(-67) . R%|
000001e0  20 8b 20 e7 a6 28 2d 31  30 35 29 20 d6 20 44 25  | . ..(-105) . D%|
000001f0  20 8b 20 e7 a6 28 2d 37  33 29 20 d6 20 55 25 20  | . ..(-73) . U% |
00000200  8b 20 e5 8d 64 66 40 0d  00 dc 34 e7 20 45 41 3d  |. ..df@...4. EA=|
00000210  3f 26 38 44 20 d4 30 2c  2d 35 2c 32 2c 31 20 8b  |?&8D .0,-5,2,1 .|
00000220  20 53 43 3d 53 43 2b 32  30 3a f2 73 63 3a d4 26  | SC=SC+20:.sc:.&|
00000230  30 30 31 30 2c 2d 35 2c  34 2c 35 0d 00 e6 2d e7  |0010,-5,4,5...-.|
00000240  20 43 41 4e 3c 3e 3f 26  38 39 20 53 43 3d 53 43  | CAN<>?&89 SC=SC|
00000250  2b 32 30 30 3a f2 73 63  3a d4 26 30 30 31 31 2c  |+200:.sc:.&0011,|
00000260  31 2c 31 30 30 2c 32 30  0d 00 f0 08 d6 20 4d 25  |1,100,20..... M%|
00000270  0d 00 fa 14 e7 20 96 28  2d 38 29 3d 31 35 20 f2  |..... .(-8)=15 .|
00000280  74 75 6e 65 0d 01 04 16  e7 a6 28 2d 39 30 29 20  |tune......(-90) |
00000290  f5 3a fd a6 28 2d 31 30  36 29 0d 01 0e 17 e7 20  |.:..(-106)..... |
000002a0  43 59 53 3c 3e 3f 26 38  43 20 f2 65 6e 65 72 67  |CYS<>?&8C .energ|
000002b0  79 0d 01 18 25 43 4e 54  3d 43 4e 54 2b 31 3a e7  |y...%CNT=CNT+1:.|
000002c0  20 43 4e 54 3e 4d 43 54  20 f2 6d 6f 76 65 6d 6f  | CNT>MCT .movemo|
000002d0  6e 73 74 65 72 73 0d 01  22 1f 43 54 3d 28 43 54  |nsters..".CT=(CT|
000002e0  2b 31 29 83 20 4d 43 54  3a e7 20 43 54 3e 30 20  |+1). MCT:. CT>0 |
000002f0  e5 8d 44 5e 41 0d 01 2c  1e e6 30 2c 33 3a ec 20  |..D^A..,..0,3:. |
00000300  54 4d 45 2c 31 30 30 34  3a df 20 54 4d 45 2c 31  |TME,1004:. TME,1|
00000310  30 31 32 0d 01 36 19 ec  20 45 4e 45 52 2c 39 37  |012..6.. ENER,97|
00000320  36 3a df 20 45 4e 45 52  2c 39 38 34 0d 01 40 15  |6:. ENER,984..@.|
00000330  e7 20 42 4d 3c 3e 30 20  54 4d 45 3d 54 4d 45 2d  |. BM<>0 TME=TME-|
00000340  34 0d 01 4a 0f 45 4e 45  52 3d 45 4e 45 52 2d 32  |4..J.ENER=ENER-2|
00000350  0d 01 54 20 e7 20 54 4d  45 3c 33 32 20 84 20 45  |..T . TME<32 . E|
00000360  4e 45 52 3c 33 32 20 44  45 41 54 48 3d 31 3a e1  |NER<32 DEATH=1:.|
00000370  0d 01 5e 26 e7 20 3f 26  38 39 2b 3f 26 38 43 2b  |..^&. ?&89+?&8C+|
00000380  3f 26 38 44 2b 4e 4d 2b  42 4d 3d 30 20 44 45 41  |?&8D+NM+BM=0 DEA|
00000390  54 48 3d 30 3a e1 0d 01  68 22 e7 20 3f 26 37 44  |TH=0:...h". ?&7D|
000003a0  3d 26 31 42 20 84 20 3f  26 37 44 3d 26 43 20 44  |=&1B . ?&7D=&C D|
000003b0  45 41 54 48 3d 31 3a e1  0d 01 72 14 e3 4f 25 3d  |EATH=1:...r..O%=|
000003c0  31 b8 32 30 3a ed 3a e5  8d 74 7e 40 0d 01 7c 1a  |1.20:.:..t~@..|.|
000003d0  dd f2 74 75 6e 65 3a d4  33 2c 34 2c 3f 54 4e 25  |..tune:.3,4,?TN%|
000003e0  2c 54 4e 25 3f 31 0d 01  86 1e 54 4e 25 3d 54 4e  |,TN%?1....TN%=TN|
000003f0  25 2b 32 3a e7 3f 54 4e  25 3d 30 54 4e 25 3d 26  |%+2:.?TN%=0TN%=&|
00000400  32 36 36 30 0d 01 90 05  e1 0d 01 9a 12 dd f2 6d  |2660...........m|
00000410  6f 76 65 6d 6f 6e 73 74  65 72 73 0d 01 a4 4f e7  |ovemonsters...O.|
00000420  20 42 4d 3c 3e 30 20 21  26 39 43 3d 21 26 41 30  | BM<>0 !&9C=!&A0|
00000430  3a 3f 26 38 41 3d 26 45  3a 3f 26 38 42 3d 26 44  |:?&8A=&E:?&8B=&D|
00000440  3a d6 54 25 3a e7 3f 26  38 32 3d 26 44 20 42 4d  |:.T%:.?&82=&D BM|
00000450  3d 30 3a d4 31 2c 33 2c  30 2c 31 3a 53 43 3d 53  |=0:.1,3,0,1:SC=S|
00000460  43 2b 31 30 30 30 3a f2  73 63 0d 01 ae 19 47 25  |C+1000:.sc....G%|
00000470  3d 47 25 2b 34 3a e7 47  25 3e 26 39 38 47 25 3d  |=G%+4:.G%>&98G%=|
00000480  26 39 30 0d 01 b8 1c 41  4d 3d 28 3f 26 37 33 2b  |&90....AM=(?&73+|
00000490  32 35 36 2a 3f 26 37 34  29 2d 26 32 37 43 30 0d  |256*?&74)-&27C0.|
000004a0  01 c2 1c 41 41 3d 28 47  25 3f 32 2b 32 35 36 2a  |...AA=(G%?2+256*|
000004b0  47 25 3f 33 29 2d 26 32  37 43 30 0d 01 cc 0c 21  |G%?3)-&27C0....!|
000004c0  26 39 43 3d 21 47 25 0d  01 d6 21 e7 20 41 4d 20  |&9C=!G%...!. AM |
000004d0  83 20 32 30 3e 41 41 20  83 20 32 30 20 d6 20 59  |. 20>AA . 20 . Y|
000004e0  25 3a e5 20 8d 64 6a 41  0d 01 e0 1a e7 20 41 4d  |%:. .djA..... AM|
000004f0  20 83 20 32 30 3c 41 41  20 83 20 32 30 20 d6 20  | . 20<AA . 20 . |
00000500  58 25 0d 01 ea 21 e7 20  41 4d 20 81 20 32 30 3c  |X%...!. AM . 20<|
00000510  41 41 20 81 20 32 30 20  d6 20 57 25 3a e5 20 8d  |AA . 20 . W%:. .|
00000520  64 7e 41 0d 01 f4 1a e7  20 41 4d 20 81 20 32 30  |d~A..... AM . 20|
00000530  3e 41 41 20 81 20 32 30  20 d6 20 5a 25 0d 01 fe  |>AA . 20 . Z%...|
00000540  46 3f 26 38 41 3d 26 46  3a 3f 26 38 42 3d 26 31  |F?&8A=&F:?&8B=&1|
00000550  42 3a d6 20 54 25 3a e7  20 3f 26 38 32 3d 26 31  |B:. T%:. ?&82=&1|
00000560  42 20 4e 4d 3d 4e 4d 2d  31 3a d4 20 31 2c 33 2c  |B NM=NM-1:. 1,3,|
00000570  35 30 2c 31 3a 53 43 3d  53 43 2b 32 30 30 30 3a  |50,1:SC=SC+2000:|
00000580  f2 73 63 0d 02 08 12 e7  20 21 47 25 3d 30 20 e5  |.sc..... !G%=0 .|
00000590  20 8d 54 5c 42 0d 02 12  23 21 47 25 3d 21 26 39  | .T\B...#!G%=!&9|
000005a0  43 3a d4 26 30 30 31 32  2c 32 2c 28 47 25 2d 26  |C:.&0012,2,(G%-&|
000005b0  38 30 29 2a 34 2c 32 30  0d 02 1c 0b 43 4e 54 3d  |80)*4,20....CNT=|
000005c0  30 3a e1 0d 02 26 05 3a  0d 02 30 0f dd f2 73 63  |0:...&.:..0...sc|
000005d0  72 65 65 6e 28 4e 29 0d  02 3a 24 47 25 3d 26 39  |reen(N)..:$G%=&9|
000005e0  30 3a 21 26 41 30 3d 30  3a 43 54 3d 30 3a 41 3d  |0:!&A0=0:CT=0:A=|
000005f0  30 3a 54 4e 25 3d 26 32  36 36 30 0d 02 44 12 43  |0:TN%=&2660..D.C|
00000600  4e 54 3d 30 3a 4d 43 54  3d 44 49 46 46 0d 02 4e  |NT=0:MCT=DIFF..N|
00000610  13 db 3a 48 25 3d 26 39  30 30 2b 32 35 36 2a 4e  |..:H%=&900+256*N|
00000620  0d 02 58 1b e3 20 49 25  3d 30 20 b8 20 31 33 3a  |..X.. I%=0 . 13:|
00000630  e3 20 4f 25 3d 30 20 b8  20 31 37 0d 02 62 24 3f  |. O%=0 . 17..b$?|
00000640  28 26 32 37 44 35 2b 4f  25 2b 32 30 2a 49 25 29  |(&27D5+O%+20*I%)|
00000650  3d 3f 28 48 25 2b 4f 25  2b 31 38 2a 49 25 29 0d  |=?(H%+O%+18*I%).|
00000660  02 6c 06 ed 2c 0d 02 76  0a f2 66 72 61 6d 65 0d  |.l..,..v..frame.|
00000670  02 80 27 e3 20 49 25 3d  30 20 b8 20 33 3a ef 31  |..'. I%=0 . 3:.1|
00000680  39 2c 49 25 2c 3f 28 48  25 2b 49 25 2b 32 35 32  |9,I%,?(H%+I%+252|
00000690  29 3b 30 3b 3a ed 0d 02  8a 1a d6 20 46 25 3a 4e  |);0;:...... F%:N|
000006a0  4d 3d 3f 26 39 44 3a d6  20 53 25 3a d6 20 51 25  |M=?&9D:. S%:. Q%|
000006b0  0d 02 94 0b 42 4d 3d 3f  26 41 31 0d 02 9e 13 f2  |....BM=?&A1.....|
000006c0  73 63 3a f2 64 69 66 66  3a f2 62 61 72 73 0d 02  |sc:.diff:.bars..|
000006d0  a8 05 e1 0d 02 b2 0b dd  f2 66 72 61 6d 65 0d 02  |.........frame..|
000006e0  bc 20 e3 20 49 25 3d 26  32 37 43 30 20 b8 20 26  |. . I%=&27C0 . &|
000006f0  32 37 44 33 3a 3f 49 25  3d 26 31 36 3a ed 0d 02  |27D3:?I%=&16:...|
00000700  c6 1b e3 20 49 25 3d 26  32 37 44 34 20 b8 20 26  |... I%=&27D4 . &|
00000710  32 38 44 38 20 88 20 32  30 0d 02 d0 17 3f 49 25  |28D8 . 20....?I%|
00000720  3d 26 31 36 3a 49 25 3f  31 39 3d 26 31 36 3a ed  |=&16:I%?19=&16:.|
00000730  0d 02 da 20 e3 20 49 25  3d 26 32 38 45 43 20 b8  |... . I%=&28EC .|
00000740  20 26 32 38 46 46 3a 3f  49 25 3d 26 31 36 3a ed  | &28FF:?I%=&16:.|
00000750  0d 02 e4 05 e1 0d 02 ee  08 dd f2 62 6c 0d 02 f8  |...........bl...|
00000760  1e e3 20 4f 25 3d 26 32  37 43 30 20 b8 20 26 32  |.. O%=&27C0 . &2|
00000770  38 46 46 3a 3f 4f 25 3d  30 3a ed 0d 03 02 11 f2  |8FF:?O%=0:......|
00000780  66 72 61 6d 65 3a db 3a  d6 20 53 25 0d 03 0c 05  |frame:.:. S%....|
00000790  e1 0d 03 16 0b dd f2 74  69 74 6c 65 0d 03 20 08  |.......title.. .|
000007a0  53 43 3d 30 0d 03 2a 11  f2 62 6c 3a f2 73 63 3a  |SC=0..*..bl:.sc:|
000007b0  f2 64 69 66 66 0d 03 34  36 ef 31 39 2c 30 2c 30  |.diff..46.19,0,0|
000007c0  3b 30 3b 31 39 2c 31 2c  31 3b 30 3b 31 39 2c 32  |;0;19,1,1;0;19,2|
000007d0  2c 33 3b 30 3b 31 39 2c  33 2c 37 3b 30 3b 32 33  |,3;0;19,3,7;0;23|
000007e0  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 03 3e 38 fb  |,1,0;0;0;0;..>8.|
000007f0  33 3a f1 8a 31 32 2c 33  29 22 53 59 53 54 45 4d  |3:..12,3)"SYSTEM|
00000800  20 57 41 44 47 45 42 55  52 59 22 3b 8a 31 33 2c  | WADGEBURY";.13,|
00000810  35 29 22 62 79 20 41 6e  64 72 65 77 20 43 6f 6f  |5)"by Andrew Coo|
00000820  6b 22 3b 0d 03 48 0c e3  20 4f 25 3d 30 b8 39 0d  |k";..H.. O%=0.9.|
00000830  03 52 38 f1 8a 37 2c 4f  25 2b 31 31 29 3b c4 36  |.R8..7,O%+11);.6|
00000840  2d a9 28 c3 28 53 43 28  4f 25 29 29 29 2c 22 30  |-.(.(SC(O%))),"0|
00000850  22 29 3b 53 43 28 4f 25  29 3b 22 20 20 20 22 3b  |");SC(O%);"   ";|
00000860  53 43 24 28 4f 25 29 0d  03 5c 05 ed 0d 03 66 4a  |SC$(O%)..\....fJ|
00000870  f1 8a 32 2c 32 36 29 22  50 72 65 73 73 20 31 20  |..2,26)"Press 1 |
00000880  74 6f 20 39 20 66 6f 72  20 64 69 66 66 69 63 75  |to 9 for difficu|
00000890  6c 74 79 20 28 31 3d 68  61 72 64 29 22 3b 8a 31  |lty (1=hard)";.1|
000008a0  33 2c 32 38 29 22 41 20  2d 20 44 20 74 6f 20 73  |3,28)"A - D to s|
000008b0  74 61 72 74 22 3b 0d 03  70 11 f2 64 65 6d 6f 3a  |tart";..p..demo:|
000008c0  4e 25 3d 47 2d 36 35 0d  03 7a 05 e1 0d 03 84 0a  |N%=G-65..z......|
000008d0  dd f2 62 61 72 73 0d 03  8e 36 e6 30 2c 33 3a ec  |..bars...6.0,3:.|
000008e0  32 38 2c 31 30 31 36 3a  ec 31 32 34 38 2c 31 30  |28,1016:.1248,10|
000008f0  31 36 3a f0 38 35 2c 32  38 2c 31 30 30 30 3a f0  |16:.85,28,1000:.|
00000900  38 35 2c 31 32 34 38 2c  31 30 30 30 0d 03 98 2d  |85,1248,1000...-|
00000910  ec 32 38 2c 39 38 38 3a  ec 31 32 34 38 2c 39 38  |.28,988:.1248,98|
00000920  38 3a f0 38 35 2c 32 38  2c 39 37 32 3a f0 38 35  |8:.85,28,972:.85|
00000930  2c 31 32 34 38 2c 39 37  32 0d 03 a2 1a e6 30 2c  |,1248,972.....0,|
00000940  31 3a e3 4f 25 3d 33 32  20 b8 20 31 32 34 34 20  |1:.O%=32 . 1244 |
00000950  88 20 34 0d 03 ac 15 ec  20 4f 25 2c 39 37 36 3a  |. 4..... O%,976:|
00000960  df 20 4f 25 2c 39 38 34  0d 03 b6 17 ec 20 4f 25  |. O%,984..... O%|
00000970  2c 31 30 30 34 3a df 20  4f 25 2c 31 30 31 32 0d  |,1004:. O%,1012.|
00000980  03 c0 16 d4 26 30 30 31  31 2c 2d 31 2c 4f 25 2f  |....&0011,-1,O%/|
00000990  35 2c 32 3a ed 0d 03 ca  18 54 4d 45 3d 31 32 34  |5,2:.....TME=124|
000009a0  34 3a 45 4e 45 52 3d 31  32 34 34 3a e1 0d 03 d4  |4:ENER=1244:....|
000009b0  1c dd f2 65 6e 65 72 67  79 3a e6 30 2c 31 3a d4  |...energy:.0,1:.|
000009c0  31 2c 34 2c 32 30 30 2c  35 0d 03 de 11 53 43 3d  |1,4,200,5....SC=|
000009d0  53 43 2b 31 30 30 3a f2  73 63 0d 03 e8 0f 4f 45  |SC+100:.sc....OE|
000009e0  4e 52 3d 45 4e 45 52 3a  f5 0d 03 f2 14 e7 20 96  |NR=ENER:...... .|
000009f0  28 2d 38 29 3d 31 35 20  f2 74 75 6e 65 0d 03 fc  |(-8)=15 .tune...|
00000a00  25 ec 20 45 4e 45 52 2c  39 37 36 3a df 20 45 4e  |%. ENER,976:. EN|
00000a10  45 52 2c 39 38 34 3a 45  4e 45 52 3d 45 4e 45 52  |ER,984:ENER=ENER|
00000a20  2b 34 0d 04 06 1f fd 20  45 4e 45 52 3d 4f 45 4e  |+4..... ENER=OEN|
00000a30  52 2b 38 30 20 84 20 45  4e 45 52 3e 3d 31 32 34  |R+80 . ENER>=124|
00000a40  34 0d 04 10 05 e1 0d 04  1a 08 dd f2 73 63 0d 04  |4...........sc..|
00000a50  24 21 f1 8a 31 37 2c 33  31 29 3b c4 36 2d a9 28  |$!..17,31);.6-.(|
00000a60  c3 28 53 43 29 29 2c 22  30 22 29 3b 53 43 3b 0d  |.(SC)),"0");SC;.|
00000a70  04 2e 05 e1 0d 04 38 0a  dd f2 64 69 66 66 0d 04  |......8...diff..|
00000a80  42 1c f1 8a 30 2c 33 31  29 22 44 49 46 46 3d 22  |B...0,31)"DIFF="|
00000a90  3b 44 49 46 46 2d 31 3b  3a e1 0d 04 4c 10 dd f2  |;DIFF-1;:...L...|
00000aa0  62 6f 6e 75 73 3a e6 30  2c 33 0d 04 56 19 ec 20  |bonus:.0,3..V.. |
00000ab0  54 4d 45 2c 31 30 30 34  3a ec 20 54 4d 45 2c 31  |TME,1004:. TME,1|
00000ac0  30 31 32 0d 04 60 23 e3  20 4f 25 3d 54 4d 45 20  |012..`#. O%=TME |
00000ad0  b8 20 32 38 20 88 2d 31  36 3a 53 43 3d 53 43 2b  |. 28 .-16:SC=SC+|
00000ae0  32 30 3a f2 73 63 0d 04  6a 1b f0 38 35 2c 4f 25  |20:.sc..j..85,O%|
00000af0  2c 31 30 30 34 3a f0 38  35 2c 4f 25 2c 31 30 31  |,1004:.85,O%,101|
00000b00  32 0d 04 74 18 d4 26 30  30 31 31 2c 2d 31 30 2c  |2..t..&0011,-10,|
00000b10  4f 25 2f 31 30 2c 32 3a  ed 0d 04 7e 19 ec 20 45  |O%/10,2:...~.. E|
00000b20  4e 45 52 2c 39 37 36 3a  ec 20 45 4e 45 52 2c 39  |NER,976:. ENER,9|
00000b30  38 34 0d 04 88 24 e3 20  4f 25 3d 45 4e 45 52 20  |84...$. O%=ENER |
00000b40  b8 20 32 38 20 88 2d 31  36 3a 53 43 3d 53 43 2b  |. 28 .-16:SC=SC+|
00000b50  32 30 3a f2 73 63 0d 04  92 19 f0 38 35 2c 4f 25  |20:.sc.....85,O%|
00000b60  2c 39 37 36 3a f0 38 35  2c 4f 25 2c 39 38 34 0d  |,976:.85,O%,984.|
00000b70  04 9c 18 d4 26 30 30 31  31 2c 2d 31 30 2c 4f 25  |....&0011,-10,O%|
00000b80  2f 31 30 2c 32 3a ed 0d  04 a6 05 e1 0d 04 b0 29  |/10,2:.........)|
00000b90  dd f2 64 65 6d 6f 3a 21  26 37 30 3d 26 46 45 31  |..demo:!&70=&FE1|
00000ba0  38 34 34 34 30 3a 3f 26  37 34 3d 26 32 37 3a 21  |84440:?&74=&27:!|
00000bb0  26 37 39 3d 30 0d 04 ba  1f d6 20 51 25 3a 42 25  |&79=0..... Q%:B%|
00000bc0  3d 30 3a f5 3a e7 20 21  26 37 39 3e 30 20 e5 20  |=0:.:. !&79>0 . |
00000bd0  8d 64 58 44 0d 04 c4 33  e7 20 42 25 3c 31 35 20  |.dXD...3. B%<15 |
00000be0  d6 20 52 25 20 8b e7 20  42 25 3c 32 32 20 d6 20  |. R% .. B%<22 . |
00000bf0  44 25 20 8b e7 20 42 25  3c 33 37 20 d6 20 4c 25  |D% .. B%<37 . L%|
00000c00  20 8b 20 d6 20 55 25 0d  04 ce 10 42 25 3d 28 42  | . . U%....B%=(B|
00000c10  25 2b 31 29 83 34 34 0d  04 d8 15 d6 20 4d 25 3a  |%+1).44..... M%:|
00000c20  e3 20 4f 25 3d 31 b8 33  30 30 3a ed 0d 04 e2 26  |. O%=1.300:....&|
00000c30  47 3d a6 30 3a e7 20 47  3e 34 38 20 80 20 47 3c  |G=.0:. G>48 . G<|
00000c40  35 38 20 44 49 46 46 3d  47 2d 34 37 3a f2 64 69  |58 DIFF=G-47:.di|
00000c50  66 66 0d 04 ec 11 fd 20  47 3e 36 34 20 80 20 47  |ff..... G>64 . G|
00000c60  3c 36 39 0d 04 f6 05 e1  0d 05 00 0b dd f2 69 6e  |<69...........in|
00000c70  70 75 74 0d 05 0a 20 58  24 3d 22 22 3a ef 32 33  |put... X$="":.23|
00000c80  2c 31 2c 31 3b 30 3b 30  3b 30 3b 33 31 2c 31 32  |,1,1;0;0;0;31,12|
00000c90  2c 31 38 0d 05 14 30 47  3d a5 3a e7 20 47 3d 31  |,18...0G=.:. G=1|
00000ca0  32 37 20 80 20 a9 28 58  24 29 3e 30 20 58 24 3d  |27 . .(X$)>0 X$=|
00000cb0  c0 58 24 2c a9 28 58 24  29 2d 31 29 3a f1 bd 31  |.X$,.(X$)-1):..1|
00000cc0  32 37 3b 0d 05 1e 0c e7  20 47 3d 31 33 20 e1 0d  |27;..... G=13 ..|
00000cd0  05 28 33 e7 20 a9 28 58  24 29 3c 31 37 20 80 20  |.(3. .(X$)<17 . |
00000ce0  47 3e 33 31 20 80 20 47  3c 31 32 37 20 47 24 3d  |G>31 . G<127 G$=|
00000cf0  bd 28 47 29 3a 58 24 3d  58 24 2b 47 24 3a f1 47  |.(G):X$=X$+G$:.G|
00000d00  24 3b 0d 05 32 0a e5 20  8d 54 54 45 0d 05 3c 0d  |$;..2.. .TTE..<.|
00000d10  dd f2 68 69 73 63 6f 72  65 0d 05 46 16 e7 96 28  |..hiscore..F...(|
00000d20  2d 31 29 3e 30 8c 47 3d  a5 3a e5 8d 44 46 45 0d  |-1)>0.G=.:..DFE.|
00000d30  05 50 19 47 3d a6 28 33  30 30 29 3a e7 20 53 43  |.P.G=.(300):. SC|
00000d40  3c 53 43 28 39 29 20 e1  0d 05 5a 6a f2 62 6c 3a  |<SC(9) ...Zj.bl:|
00000d50  f2 73 63 3a f1 8a 34 2c  38 29 22 59 4f 55 52 20  |.sc:..4,8)"YOUR |
00000d60  53 43 4f 52 45 20 51 55  41 4c 49 46 49 45 53 20  |SCORE QUALIFIES |
00000d70  59 4f 55 20 46 4f 52 20  54 48 45 22 8a 31 34 2c  |YOU FOR THE".14,|
00000d80  31 30 29 22 48 41 4c 4c  20 4f 46 20 46 41 4d 45  |10)"HALL OF FAME|
00000d90  21 22 8a 38 2c 31 35 29  22 50 4c 45 41 53 45 20  |!".8,15)"PLEASE |
00000da0  45 4e 54 45 52 20 59 4f  55 52 20 4e 41 4d 45 3a  |ENTER YOUR NAME:|
00000db0  22 3b 0d 05 64 0d fb 32  3a f2 69 6e 70 75 74 0d  |";..d..2:.input.|
00000dc0  05 6e 20 4f 25 3d 2d 31  3a f5 3a 4f 25 3d 4f 25  |.n O%=-1:.:O%=O%|
00000dd0  2b 31 3a fd 20 53 43 28  4f 25 29 3c 3d 53 43 0d  |+1:. SC(O%)<=SC.|
00000de0  05 78 37 e3 20 49 25 3d  38 20 b8 20 4f 25 20 88  |.x7. I%=8 . O% .|
00000df0  2d 31 3a 53 43 28 49 25  2b 31 29 3d 53 43 28 49  |-1:SC(I%+1)=SC(I|
00000e00  25 29 3a 53 43 24 28 49  25 2b 31 29 3d 53 43 24  |%):SC$(I%+1)=SC$|
00000e10  28 49 25 29 3a ed 0d 05  82 18 53 43 28 4f 25 29  |(I%):.....SC(O%)|
00000e20  3d 53 43 3a 53 43 24 28  4f 25 29 3d 58 24 0d 05  |=SC:SC$(O%)=X$..|
00000e30  8c 05 e1 0d ff                                    |.....|
00000e35
G/MAIN.m0
G/MAIN.m1
G/MAIN.m2
G/MAIN.m4
G/MAIN.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .