Home » Personal collection » Acorn tapes » Own_Work » drawer_tr_tape02a_hf90_acorn_finished_programs.wav » Mega-Des

Mega-Des

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 » Own_Work » drawer_tr_tape02a_hf90_acorn_finished_programs.wav
Filename: Mega-Des
Read OK:
File size: 07E1 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10MODE6:PROCinit
   15 IF RND(3)<>2 THEN 100
   20IF INKEY(-98) THEN a=a-1
   30IF INKEY(-67) THEN a=a+1
   40IF INKEY(-73) THEN b=b-1
   50IF INKEY(-105) THEN b=b+1
   60IF a<0 THEN a=0
   70IF b<0 THEN b=0
   80IF a>19 THEN a=19
   90IF b>14 THEN b=14
  100PRINTTAB(a,b);
  110IF INKEY(-87) THEN PROCload:PROCdraw
  120IF INKEY(-82) THEN PROCsave
  130IF INKEY(-74) THEN PROCput
  140IF INKEY(-90) THEN PROCinvisible
  150IF INKEY(-1) THEN PROCdelete
  160IF INKEY(-88) AND lev<>49 THEN lev=lev+1:PROCdraw
  170IF INKEY(-104) AND lev<>0 THEN lev=lev-1:PROCdraw
  180FORl=0TO50:NEXT:GOTO20
  190DEFPROCinit:a=0:b=0:lev=0
  200PRINTTAB(11,12);"Please Wait . . ."
  210FORcle=&4000 TO &4BB8:?cle=0:NEXT
  220VDU23,128,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF
  230VDU23,129,126,171,213,171,213,171,213,126
  240PROCdraw
  250ENDPROC
  260DEFPROCput
  270hit=(?(INT(&4001+lev*60+b*4+a DIV 5-0.5)))/(3^(a MOD 5)) MOD 3
  280IF hit=1 THEN ENDPROC
  290IF hit=2 THEN ?(INT(&4001+lev*60+b*4+a DIV 5-0.5))=?(INT(&4001+lev*60+b*4+a DIV 5-0.5))-2*(3^(a MOD 5))
  300?(INT(&4001+lev*60+b*4+a DIV 5-0.5))=?(INT(&4001+lev*60+b*4+a DIV 5-0.5))+3^(a MOD 5)
  310PRINT;CHR$(129);TAB(a,b);:ENDPROC
  320DEFPROCinvisible
  330hit=(?(INT(&4001+lev*60+b*4+a DIV 5-0.5)))/(3^(a MOD 5)) MOD 3
  340IF hit=2 THEN ENDPROC
  350IF hit=1 THEN ?(INT(&4001+lev*60+b*4+a DIV 5-0.5))=?(INT(&4001+lev*60+b*4+a DIV 5-0.5))-(3^(a MOD 5))
  360?(INT(&4001+lev*60+b*4+a DIV 5-0.5))=?(INT(&4001+lev*60+b*4+a DIV 5-0.5))+2*(3^(a MOD 5))
  370PRINT;CHR$(128);TAB(a,b);:ENDPROC
  380DEFPROCdelete
  390hit=(?(INT(&4001+lev*60+b*4+a DIV 5-0.5)))/(3^(a MOD 5)) MOD 3
  400IF hit=0 THEN ENDPROC
  410IF hit=2 THEN ?(INT(&4001+lev*60+b*4+a DIV 5-0.5))=?(INT(&4001+lev*60+b*4+a DIV 5-0.5))-(3^(a MOD 5))
  420?(INT(&4001+lev*60+b*4+a DIV 5-0.5))=?(INT(&4001+lev*60+b*4+a DIV 5-0.5))-(3^(a MOD 5))
  430PRINT;" ";TAB(a,b);:ENDPROC
  440DEFPROCload:CLS
  450PRINTTAB(11,12);"Are you sure(Y/N)"
  460A$=GET$:CLS
  470IF A$="N" THEN ENDPROC
  480IF A$="Y" THEN *LOAD Megadata 4000:ENDPROC
  490GOTO 450
  500DEFPROCsave:CLS
  505 PRINT"RECORD then RETURN";TAB(0,0);:*MOTOR1
  507 IF INKEY(-74) THEN 510 ELSE 507
  510*SAVE Megadata 4000 4BB8
  520ON ERROR GOTO 540
  530 PRINT"Now check your file is reloadable                 Press ESCAPE to continue":*.
  540ON ERROR OFF
  550PROCdraw:GOTO130
  560 DEFPROCdraw:CLS
  570 FORxpos=0TO19:FORypos=0TO14
  580cont=(?(INT(&4001+lev*60+ypos*4+xpos DIV 5-0.5)))/(3^(xpos MOD 5)) MOD 3
  590 IF cont=0 THEN PRINTTAB(xpos,ypos);" ";
  600 IF cont=1 THEN PRINTTAB(xpos,ypos);CHR$(129);
  610 IF cont=2 THEN PRINTTAB(xpos,ypos);CHR$(128);
  620 NEXT,:PRINTTAB(10,20);"Level:";lev:ENDPROC

�6:�init
 � �(3)<>2 � �Dd@
� �(-98) � a=a-1
� �(-67) � a=a+1
(� �(-73) � b=b-1
2� �(-105) � b=b+1
<� a<0 � a=0
F� b<0 � b=0
P� a>19 � a=19
Z� b>14 � b=14
d�a,b);
n� �(-87) � �load:�draw
x� �(-82) � �save
�� �(-74) � �put
�� �(-90) � �invisible
�� �(-1) � �delete
�(� �(-88) � lev<>49 � lev=lev+1:�draw
�(� �(-104) � lev<>0 � lev=lev-1:�draw
��l=0�50:�:�TT@
���init:a=0:b=0:lev=0
� �11,12);"Please Wait . . ."
��cle=&4000 � &4BB8:?cle=0:�
�+�23,128,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF
�+�23,129,126,171,213,171,213,171,213,126
�	�draw
��
	��put
:hit=(?(�(&4001+lev*60+b*4+a � 5-0.5)))/(3^(a � 5)) � 3
� hit=1 � �
"]� hit=2 � ?(�(&4001+lev*60+b*4+a � 5-0.5))=?(�(&4001+lev*60+b*4+a � 5-0.5))-2*(3^(a � 5))
,O?(�(&4001+lev*60+b*4+a � 5-0.5))=?(�(&4001+lev*60+b*4+a � 5-0.5))+3^(a � 5)
6�;�(129);�a,b);:�
@��invisible
J:hit=(?(�(&4001+lev*60+b*4+a � 5-0.5)))/(3^(a � 5)) � 3
T� hit=2 � �
^[� hit=1 � ?(�(&4001+lev*60+b*4+a � 5-0.5))=?(�(&4001+lev*60+b*4+a � 5-0.5))-(3^(a � 5))
hS?(�(&4001+lev*60+b*4+a � 5-0.5))=?(�(&4001+lev*60+b*4+a � 5-0.5))+2*(3^(a � 5))
r�;�(128);�a,b);:�
|��delete
�:hit=(?(�(&4001+lev*60+b*4+a � 5-0.5)))/(3^(a � 5)) � 3
�� hit=0 � �
�[� hit=2 � ?(�(&4001+lev*60+b*4+a � 5-0.5))=?(�(&4001+lev*60+b*4+a � 5-0.5))-(3^(a � 5))
�Q?(�(&4001+lev*60+b*4+a � 5-0.5))=?(�(&4001+lev*60+b*4+a � 5-0.5))-(3^(a � 5))
��;" ";�a,b);:�
���load:�
� �11,12);"Are you sure(Y/N)"
�
A$=�:�
�� A$="N" � �
�*� A$="Y" � *LOAD Megadata 4000:ENDPROC
�
� �dBA
���save:�
�) �"RECORD then RETURN";�0,0);:*MOTOR1
� � �(-74) � �d~A � �d{A
�*SAVE Megadata 4000 4BB8
� � � �T\B
U �"Now check your file is reloadable                 Press ESCAPE to continue":*.
	� � �
&�draw:�tB@
0
 ��draw:�
: �xpos=0�19:�ypos=0�14
DDcont=(?(�(&4001+lev*60+ypos*4+xpos � 5-0.5)))/(3^(xpos � 5)) � 3
N! � cont=0 � �xpos,ypos);" ";
X$ � cont=1 � �xpos,ypos);�(129);
b$ � cont=2 � �xpos,ypos);�(128);
l �,:�10,20);"Level:";lev:�
�
00000000  0d 00 0a 0c eb 36 3a f2  69 6e 69 74 0d 00 0f 15  |.....6:.init....|
00000010  20 e7 20 b3 28 33 29 3c  3e 32 20 8c 20 8d 44 64  | . .(3)<>2 . .Dd|
00000020  40 0d 00 14 14 e7 20 a6  28 2d 39 38 29 20 8c 20  |@..... .(-98) . |
00000030  61 3d 61 2d 31 0d 00 1e  14 e7 20 a6 28 2d 36 37  |a=a-1..... .(-67|
00000040  29 20 8c 20 61 3d 61 2b  31 0d 00 28 14 e7 20 a6  |) . a=a+1..(.. .|
00000050  28 2d 37 33 29 20 8c 20  62 3d 62 2d 31 0d 00 32  |(-73) . b=b-1..2|
00000060  15 e7 20 a6 28 2d 31 30  35 29 20 8c 20 62 3d 62  |.. .(-105) . b=b|
00000070  2b 31 0d 00 3c 0f e7 20  61 3c 30 20 8c 20 61 3d  |+1..<.. a<0 . a=|
00000080  30 0d 00 46 0f e7 20 62  3c 30 20 8c 20 62 3d 30  |0..F.. b<0 . b=0|
00000090  0d 00 50 11 e7 20 61 3e  31 39 20 8c 20 61 3d 31  |..P.. a>19 . a=1|
000000a0  39 0d 00 5a 11 e7 20 62  3e 31 34 20 8c 20 62 3d  |9..Z.. b>14 . b=|
000000b0  31 34 0d 00 64 0b f1 8a  61 2c 62 29 3b 0d 00 6e  |14..d...a,b);..n|
000000c0  1a e7 20 a6 28 2d 38 37  29 20 8c 20 f2 6c 6f 61  |.. .(-87) . .loa|
000000d0  64 3a f2 64 72 61 77 0d  00 78 14 e7 20 a6 28 2d  |d:.draw..x.. .(-|
000000e0  38 32 29 20 8c 20 f2 73  61 76 65 0d 00 82 13 e7  |82) . .save.....|
000000f0  20 a6 28 2d 37 34 29 20  8c 20 f2 70 75 74 0d 00  | .(-74) . .put..|
00000100  8c 19 e7 20 a6 28 2d 39  30 29 20 8c 20 f2 69 6e  |... .(-90) . .in|
00000110  76 69 73 69 62 6c 65 0d  00 96 15 e7 20 a6 28 2d  |visible..... .(-|
00000120  31 29 20 8c 20 f2 64 65  6c 65 74 65 0d 00 a0 28  |1) . .delete...(|
00000130  e7 20 a6 28 2d 38 38 29  20 80 20 6c 65 76 3c 3e  |. .(-88) . lev<>|
00000140  34 39 20 8c 20 6c 65 76  3d 6c 65 76 2b 31 3a f2  |49 . lev=lev+1:.|
00000150  64 72 61 77 0d 00 aa 28  e7 20 a6 28 2d 31 30 34  |draw...(. .(-104|
00000160  29 20 80 20 6c 65 76 3c  3e 30 20 8c 20 6c 65 76  |) . lev<>0 . lev|
00000170  3d 6c 65 76 2d 31 3a f2  64 72 61 77 0d 00 b4 13  |=lev-1:.draw....|
00000180  e3 6c 3d 30 b8 35 30 3a  ed 3a e5 8d 54 54 40 0d  |.l=0.50:.:..TT@.|
00000190  00 be 18 dd f2 69 6e 69  74 3a 61 3d 30 3a 62 3d  |.....init:a=0:b=|
000001a0  30 3a 6c 65 76 3d 30 0d  00 c8 20 f1 8a 31 31 2c  |0:lev=0... ..11,|
000001b0  31 32 29 3b 22 50 6c 65  61 73 65 20 57 61 69 74  |12);"Please Wait|
000001c0  20 2e 20 2e 20 2e 22 0d  00 d2 1f e3 63 6c 65 3d  | . . .".....cle=|
000001d0  26 34 30 30 30 20 b8 20  26 34 42 42 38 3a 3f 63  |&4000 . &4BB8:?c|
000001e0  6c 65 3d 30 3a ed 0d 00  dc 2b ef 32 33 2c 31 32  |le=0:....+.23,12|
000001f0  38 2c 26 46 46 2c 26 46  46 2c 26 46 46 2c 26 46  |8,&FF,&FF,&FF,&F|
00000200  46 2c 26 46 46 2c 26 46  46 2c 26 46 46 2c 26 46  |F,&FF,&FF,&FF,&F|
00000210  46 0d 00 e6 2b ef 32 33  2c 31 32 39 2c 31 32 36  |F...+.23,129,126|
00000220  2c 31 37 31 2c 32 31 33  2c 31 37 31 2c 32 31 33  |,171,213,171,213|
00000230  2c 31 37 31 2c 32 31 33  2c 31 32 36 0d 00 f0 09  |,171,213,126....|
00000240  f2 64 72 61 77 0d 00 fa  05 e1 0d 01 04 09 dd f2  |.draw...........|
00000250  70 75 74 0d 01 0e 3a 68  69 74 3d 28 3f 28 a8 28  |put...:hit=(?(.(|
00000260  26 34 30 30 31 2b 6c 65  76 2a 36 30 2b 62 2a 34  |&4001+lev*60+b*4|
00000270  2b 61 20 81 20 35 2d 30  2e 35 29 29 29 2f 28 33  |+a . 5-0.5)))/(3|
00000280  5e 28 61 20 83 20 35 29  29 20 83 20 33 0d 01 18  |^(a . 5)) . 3...|
00000290  0f e7 20 68 69 74 3d 31  20 8c 20 e1 0d 01 22 5d  |.. hit=1 . ..."]|
000002a0  e7 20 68 69 74 3d 32 20  8c 20 3f 28 a8 28 26 34  |. hit=2 . ?(.(&4|
000002b0  30 30 31 2b 6c 65 76 2a  36 30 2b 62 2a 34 2b 61  |001+lev*60+b*4+a|
000002c0  20 81 20 35 2d 30 2e 35  29 29 3d 3f 28 a8 28 26  | . 5-0.5))=?(.(&|
000002d0  34 30 30 31 2b 6c 65 76  2a 36 30 2b 62 2a 34 2b  |4001+lev*60+b*4+|
000002e0  61 20 81 20 35 2d 30 2e  35 29 29 2d 32 2a 28 33  |a . 5-0.5))-2*(3|
000002f0  5e 28 61 20 83 20 35 29  29 0d 01 2c 4f 3f 28 a8  |^(a . 5))..,O?(.|
00000300  28 26 34 30 30 31 2b 6c  65 76 2a 36 30 2b 62 2a  |(&4001+lev*60+b*|
00000310  34 2b 61 20 81 20 35 2d  30 2e 35 29 29 3d 3f 28  |4+a . 5-0.5))=?(|
00000320  a8 28 26 34 30 30 31 2b  6c 65 76 2a 36 30 2b 62  |.(&4001+lev*60+b|
00000330  2a 34 2b 61 20 81 20 35  2d 30 2e 35 29 29 2b 33  |*4+a . 5-0.5))+3|
00000340  5e 28 61 20 83 20 35 29  0d 01 36 15 f1 3b bd 28  |^(a . 5)..6..;.(|
00000350  31 32 39 29 3b 8a 61 2c  62 29 3b 3a e1 0d 01 40  |129);.a,b);:...@|
00000360  0f dd f2 69 6e 76 69 73  69 62 6c 65 0d 01 4a 3a  |...invisible..J:|
00000370  68 69 74 3d 28 3f 28 a8  28 26 34 30 30 31 2b 6c  |hit=(?(.(&4001+l|
00000380  65 76 2a 36 30 2b 62 2a  34 2b 61 20 81 20 35 2d  |ev*60+b*4+a . 5-|
00000390  30 2e 35 29 29 29 2f 28  33 5e 28 61 20 83 20 35  |0.5)))/(3^(a . 5|
000003a0  29 29 20 83 20 33 0d 01  54 0f e7 20 68 69 74 3d  |)) . 3..T.. hit=|
000003b0  32 20 8c 20 e1 0d 01 5e  5b e7 20 68 69 74 3d 31  |2 . ...^[. hit=1|
000003c0  20 8c 20 3f 28 a8 28 26  34 30 30 31 2b 6c 65 76  | . ?(.(&4001+lev|
000003d0  2a 36 30 2b 62 2a 34 2b  61 20 81 20 35 2d 30 2e  |*60+b*4+a . 5-0.|
000003e0  35 29 29 3d 3f 28 a8 28  26 34 30 30 31 2b 6c 65  |5))=?(.(&4001+le|
000003f0  76 2a 36 30 2b 62 2a 34  2b 61 20 81 20 35 2d 30  |v*60+b*4+a . 5-0|
00000400  2e 35 29 29 2d 28 33 5e  28 61 20 83 20 35 29 29  |.5))-(3^(a . 5))|
00000410  0d 01 68 53 3f 28 a8 28  26 34 30 30 31 2b 6c 65  |..hS?(.(&4001+le|
00000420  76 2a 36 30 2b 62 2a 34  2b 61 20 81 20 35 2d 30  |v*60+b*4+a . 5-0|
00000430  2e 35 29 29 3d 3f 28 a8  28 26 34 30 30 31 2b 6c  |.5))=?(.(&4001+l|
00000440  65 76 2a 36 30 2b 62 2a  34 2b 61 20 81 20 35 2d  |ev*60+b*4+a . 5-|
00000450  30 2e 35 29 29 2b 32 2a  28 33 5e 28 61 20 83 20  |0.5))+2*(3^(a . |
00000460  35 29 29 0d 01 72 15 f1  3b bd 28 31 32 38 29 3b  |5))..r..;.(128);|
00000470  8a 61 2c 62 29 3b 3a e1  0d 01 7c 0c dd f2 64 65  |.a,b);:...|...de|
00000480  6c 65 74 65 0d 01 86 3a  68 69 74 3d 28 3f 28 a8  |lete...:hit=(?(.|
00000490  28 26 34 30 30 31 2b 6c  65 76 2a 36 30 2b 62 2a  |(&4001+lev*60+b*|
000004a0  34 2b 61 20 81 20 35 2d  30 2e 35 29 29 29 2f 28  |4+a . 5-0.5)))/(|
000004b0  33 5e 28 61 20 83 20 35  29 29 20 83 20 33 0d 01  |3^(a . 5)) . 3..|
000004c0  90 0f e7 20 68 69 74 3d  30 20 8c 20 e1 0d 01 9a  |... hit=0 . ....|
000004d0  5b e7 20 68 69 74 3d 32  20 8c 20 3f 28 a8 28 26  |[. hit=2 . ?(.(&|
000004e0  34 30 30 31 2b 6c 65 76  2a 36 30 2b 62 2a 34 2b  |4001+lev*60+b*4+|
000004f0  61 20 81 20 35 2d 30 2e  35 29 29 3d 3f 28 a8 28  |a . 5-0.5))=?(.(|
00000500  26 34 30 30 31 2b 6c 65  76 2a 36 30 2b 62 2a 34  |&4001+lev*60+b*4|
00000510  2b 61 20 81 20 35 2d 30  2e 35 29 29 2d 28 33 5e  |+a . 5-0.5))-(3^|
00000520  28 61 20 83 20 35 29 29  0d 01 a4 51 3f 28 a8 28  |(a . 5))...Q?(.(|
00000530  26 34 30 30 31 2b 6c 65  76 2a 36 30 2b 62 2a 34  |&4001+lev*60+b*4|
00000540  2b 61 20 81 20 35 2d 30  2e 35 29 29 3d 3f 28 a8  |+a . 5-0.5))=?(.|
00000550  28 26 34 30 30 31 2b 6c  65 76 2a 36 30 2b 62 2a  |(&4001+lev*60+b*|
00000560  34 2b 61 20 81 20 35 2d  30 2e 35 29 29 2d 28 33  |4+a . 5-0.5))-(3|
00000570  5e 28 61 20 83 20 35 29  29 0d 01 ae 12 f1 3b 22  |^(a . 5)).....;"|
00000580  20 22 3b 8a 61 2c 62 29  3b 3a e1 0d 01 b8 0c dd  | ";.a,b);:......|
00000590  f2 6c 6f 61 64 3a db 0d  01 c2 20 f1 8a 31 31 2c  |.load:.... ..11,|
000005a0  31 32 29 3b 22 41 72 65  20 79 6f 75 20 73 75 72  |12);"Are you sur|
000005b0  65 28 59 2f 4e 29 22 0d  01 cc 0a 41 24 3d be 3a  |e(Y/N)"....A$=.:|
000005c0  db 0d 01 d6 10 e7 20 41  24 3d 22 4e 22 20 8c 20  |...... A$="N" . |
000005d0  e1 0d 01 e0 2a e7 20 41  24 3d 22 59 22 20 8c 20  |....*. A$="Y" . |
000005e0  2a 4c 4f 41 44 20 4d 65  67 61 64 61 74 61 20 34  |*LOAD Megadata 4|
000005f0  30 30 30 3a 45 4e 44 50  52 4f 43 0d 01 ea 0a e5  |000:ENDPROC.....|
00000600  20 8d 64 42 41 0d 01 f4  0c dd f2 73 61 76 65 3a  | .dBA......save:|
00000610  db 0d 01 f9 29 20 f1 22  52 45 43 4f 52 44 20 74  |....) ."RECORD t|
00000620  68 65 6e 20 52 45 54 55  52 4e 22 3b 8a 30 2c 30  |hen RETURN";.0,0|
00000630  29 3b 3a 2a 4d 4f 54 4f  52 31 0d 01 fb 1b 20 e7  |);:*MOTOR1.... .|
00000640  20 a6 28 2d 37 34 29 20  8c 20 8d 64 7e 41 20 8b  | .(-74) . .d~A .|
00000650  20 8d 64 7b 41 0d 01 fe  1c 2a 53 41 56 45 20 4d  | .d{A....*SAVE M|
00000660  65 67 61 64 61 74 61 20  34 30 30 30 20 34 42 42  |egadata 4000 4BB|
00000670  38 0d 02 08 0e ee 20 85  20 e5 20 8d 54 5c 42 0d  |8..... . . .T\B.|
00000680  02 12 55 20 f1 22 4e 6f  77 20 63 68 65 63 6b 20  |..U ."Now check |
00000690  79 6f 75 72 20 66 69 6c  65 20 69 73 20 72 65 6c  |your file is rel|
000006a0  6f 61 64 61 62 6c 65 20  20 20 20 20 20 20 20 20  |oadable         |
000006b0  20 20 20 20 20 20 20 20  50 72 65 73 73 20 45 53  |        Press ES|
000006c0  43 41 50 45 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |CAPE to continue|
000006d0  22 3a 2a 2e 0d 02 1c 09  ee 20 85 20 87 0d 02 26  |":*...... . ...&|
000006e0  0f f2 64 72 61 77 3a e5  8d 74 42 40 0d 02 30 0d  |..draw:..tB@..0.|
000006f0  20 dd f2 64 72 61 77 3a  db 0d 02 3a 1a 20 e3 78  | ..draw:...:. .x|
00000700  70 6f 73 3d 30 b8 31 39  3a e3 79 70 6f 73 3d 30  |pos=0.19:.ypos=0|
00000710  b8 31 34 0d 02 44 44 63  6f 6e 74 3d 28 3f 28 a8  |.14..DDcont=(?(.|
00000720  28 26 34 30 30 31 2b 6c  65 76 2a 36 30 2b 79 70  |(&4001+lev*60+yp|
00000730  6f 73 2a 34 2b 78 70 6f  73 20 81 20 35 2d 30 2e  |os*4+xpos . 5-0.|
00000740  35 29 29 29 2f 28 33 5e  28 78 70 6f 73 20 83 20  |5)))/(3^(xpos . |
00000750  35 29 29 20 83 20 33 0d  02 4e 21 20 e7 20 63 6f  |5)) . 3..N! . co|
00000760  6e 74 3d 30 20 8c 20 f1  8a 78 70 6f 73 2c 79 70  |nt=0 . ..xpos,yp|
00000770  6f 73 29 3b 22 20 22 3b  0d 02 58 24 20 e7 20 63  |os);" ";..X$ . c|
00000780  6f 6e 74 3d 31 20 8c 20  f1 8a 78 70 6f 73 2c 79  |ont=1 . ..xpos,y|
00000790  70 6f 73 29 3b bd 28 31  32 39 29 3b 0d 02 62 24  |pos);.(129);..b$|
000007a0  20 e7 20 63 6f 6e 74 3d  32 20 8c 20 f1 8a 78 70  | . cont=2 . ..xp|
000007b0  6f 73 2c 79 70 6f 73 29  3b bd 28 31 32 38 29 3b  |os,ypos);.(128);|
000007c0  0d 02 6c 1f 20 ed 2c 3a  f1 8a 31 30 2c 32 30 29  |..l. .,:..10,20)|
000007d0  3b 22 4c 65 76 65 6c 3a  22 3b 6c 65 76 3a e1 0d  |;"Level:";lev:..|
000007e0  ff                                                |.|
000007e1
Mega-Des.m0
Mega-Des.m1
Mega-Des.m2
Mega-Des.m4
Mega-Des.m5