reax-edit

Home » Personal collection » Commodore disks » disk04a2_game_positions.d64 » reax-edit

reax-edit

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 » Commodore disks » disk04a2_game_positions.d64
Filename:	reax-edit
Read OK:	✔
File size:	0604 bytes
Load address:	0801
Exec address:	0000

File contents

    10 POKE53280,0:POKE53281,0:PRINT"<clr><white>";CHR$(8);CHR$(14);SPC(9);:LV=1:X=0:Y=0
    15 DIM P(29,7,6)
    20 PRINT"🭻EAXION ♥CREEN 🭶DITOR";CHR$(13);SPC(9);"▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔<cursor down><cursor down><cursor down>"
    30 PRINTSPC(15);"┌┬┬┬┬┬┬┬┬┐":FORL=0TO6:PRINTSPC(15);"├";
    40 PRINTSPC(8);"┤":NEXT:PRINTSPC(15);"└┴┴┴┴┴┴┴┴┘<cursor down><cursor down>"
    50 PRINTSPC(5);"🭼EVEL:<cursor down>":PRINT"♥ - ♥AVE  🭼 - 🭼OAD  🭸 - 🭸LEAR  ● - ●UIT"
    60 PRINT"  + - ╱EXT LEVEL   - - 🭾REVIOUS LEVEL<cursor down>"
    70 PRINT"╭SE JOYSTICK PORT 2 TO MOVE, AND CLICK":PRINT"TO ALTER NINE RODS."
    80 FORL=6TO12:POKE211,16:POKE214,L:SYS58732:FORC=0TO7
    90 PRINT"<cyan><reverse on> <rev off>";:IF P(LV,C,L-6)=0 THEN PRINT"<cursor left><red><reverse on> <rev off>";
    95 NEXT:NEXT
   100 POKE211,13:POKE214,16:SYS58732:PRINT"<white>";LV
   110 POKE1280+Y*40+X,152:GET K$:IF K$="S" THEN
   120 IF K$="L" THEN 340
   125 IF K$="C" THEN 330
   130 IF K$="Q" THEN END
   140 IF K$="+" AND LV<30 THEN LV=LV+1:GOTO80
   150 IF K$="-" AND LV>1 THEN LV=LV-1:GOTO80
   160 J=127-PEEK(56320):IF (J AND 4)=4 AND X>0 THEN GOSUB220:X=X-1:GOTO110
   170 IF (J AND 8)=8 AND X<7 THEN GOSUB220:X=X+1:GOTO110
   180 IF (J AND 1)=1 AND Y>0 THEN GOSUB220:Y=Y-1:GOTO110
   190 IF (J AND 2)=2 AND Y<6 THEN GOSUB220:Y=Y+1:GOTO110
   200 IF (J AND 16)=16 THEN 230
   210 GOTO110
   220 POKE1280+Y*40+X,160:RETURN
   230 IF X<>0 AND Y<>0 THEN P(LV,X-1,Y-1)=(P(LV,X-1,Y-1)+1) AND 1
   240 IF Y<>0 THEN P(LV,X,Y-1)=(P(LV,X,Y-1)+1) AND 1
   250 IF Y<>0 AND X<>7 THEN P(LV,X+1,Y-1)=(P(LV,X+1,Y-1)+1) AND 1
   260 IF X<>0 THEN P(LV,X-1,Y)=(P(LV,X-1,Y)+1) AND 1
   270 P(LV,X,Y)=(P(LV,X,Y)+1) AND 1
   280 IF X<>7 THEN P(LV,X+1,Y)=(P(LV,X+1,Y)+1) AND 1
   290 IF X<>0 AND Y<>6 THEN P(LV,X-1,Y+1)=(P(LV,X-1,Y+1)+1) AND 1
   300 IF Y<>6 THEN P(LV,X,Y+1)=(P(LV,X,Y+1)+1) AND 1
   310 IF Y<>6 AND X<>7 THEN P(LV,X+1,Y+1)=(P(LV,X+1,Y+1)+1) AND 1
   320 GOTO 80
   330 FORX=0TO7:FORY=0TO6:P(LV,X,Y)=0:NEXT:NEXT:GOTO80
   340 PRINT"<clr>";:INPUT"🭺ILENAME";F$
   350 IF LEN(F$)>16 THEN GOTO 340
   360 PRINT"<cursor down>(🭰)APE OR (🭷)ISC?"
   370 GET D$:IF D$<>"T" AND D$<>"D" THEN 370
   380 D=8:IF D$="T" THEN D=1
   390 LOAD F$,D,1

:
�53280,0:�53281,0:�"�";�(8);�(14);�9);:LV�1:X�0:Y�0J� P(29,7,6)��"�EAXION �CREEN �DITOR";�(13);�9);"���������������������"���15);"����������":�L�0�6:��15);"�";�(��8);"�":�:��15);"����������"	2��5);"�EVEL:":�"� - �AVE  � - �OAD  � - �LEAR  � - �UIT"E	<�"  + - �EXT LEVEL   - - �REVIOUS LEVEL"�	F�"�SE JOYSTICK PORT 2 TO MOVE, AND CLICK":�"TO ALTER NINE RODS."�	P�L�6�12:�211,16:�214,L:�58732:�C�0�7�	Z�"� �";:� P(LV,C,L�6)�0 � �"� �";�	_�:�
d�211,13:�214,16:�58732:�"";LV,
n�1280�Y�40�X,152:� K$:� K$�"S" �?
x� K$�"L" � 340R
}� K$�"C" � 330c
�� K$�"Q" � ��
�� K$�"+" � LV�30 � LV�LV�1:�80�
�� K$�"-" � LV�1 � LV�LV�1:�80�
�J�127��(56320):� (J � 4)�4 � X�0 � �220:X�X�1:�110�� (J � 8)�8 � X�7 � �220:X�X�1:�110/�� (J � 1)�1 � Y�0 � �220:Y�Y�1:�110W�� (J � 2)�2 � Y�6 � �220:Y�Y�1:�110o�� (J � 16)�16 � 230x��110���1280�Y�40�X,160:���� X��0 � Y��0 � P(LV,X�1,Y�1)�(P(LV,X�1,Y�1)�1) � 1��� Y��0 � P(LV,X,Y�1)�(P(LV,X,Y�1)�1) � 1,�� Y��0 � X��7 � P(LV,X�1,Y�1)�(P(LV,X�1,Y�1)�1) � 1Y� X��0 � P(LV,X�1,Y)�(P(LV,X�1,Y)�1) � 1yP(LV,X,Y)�(P(LV,X,Y)�1) � 1�� X��7 � P(LV,X�1,Y)�(P(LV,X�1,Y)�1) � 1�"� X��0 � Y��6 � P(LV,X�1,Y�1)�(P(LV,X�1,Y�1)�1) � 1
,� Y��6 � P(LV,X,Y�1)�(P(LV,X,Y�1)�1) � 1C
6� Y��6 � X��7 � P(LV,X�1,Y�1)�(P(LV,X�1,Y�1)�1) � 1L
@� 80r
J�X�0�7:�Y�0�6:P(LV,X,Y)�0:�:�:�80�
T�"�";:�"�ILENAME";F$�
^� �(F$)�16 � � 340�
h�"(�)APE OR (�)ISC?"�
r� D$:� D$��"T" � D$��"D" � 370�
|D�8:� D$�"T" � D�1�� F$,D,1

:HJ@.53280,0:.53281,0:.".E";.(8);.(14);.9);:lv.1:x.0:y.0@jHO@. p(29,7,6)@.HT@.".eaxion .creen .ditor";.(13);.9);".....................QQQ"@.H.@..15);"..........":.l.0.6:..15);".";@.H(@..8);".":.:..15);"..........QQ"@WI2@..5);".evel:Q":.". - .ave  . - .oad  . - .lear  . - .uit"@eI<@."  + - .ext level   - - .revious levelQ"@.If@.".se joystick port 2 to move, and click":."to alter nine rods."@.Ip@.l.6.12:.211,16:.214,l:.58732:.c.0.7@.Iz@.".R .";:. p(lv,c,l.6).0 . .".£R .";@.I.@.:.@GJD@.211,13:.214,16:.58732:."E";lv@,JN@.1280.y.40.x,152:. k$:. k$."s" .@?JX@. k$."l" . 340@rJ.@. k$."c" . 330@CJ.@. k$."q" . .@.J.@. k$."+" . lv.30 . lv.lv.1:.80@.J.@. k$."-" . lv.1 . lv.lv.1:.80@.J.@j.127..(56320):. (j . 4).4 . x.0 . .220:x.x.1:.110@GK.@. (j . 8).8 . x.7 . .220:x.x.1:.110@/K.@. (j . 1).1 . y.0 . .220:y.y.1:.110@wK.@. (j . 2).2 . y.6 . .220:y.y.1:.110@OK.@. (j . 16).16 . 230@XK.@.110@.K.@.1280.y.40.x,160:.@.K.@. x..0 . y..0 . p(lv,x.1,y.1).(p(lv,x.1,y.1).1) . 1@.K.@. y..0 . p(lv,x,y.1).(p(lv,x,y.1).1) . 1@,L.@. y..0 . x..7 . p(lv,x.1,y.1).(p(lv,x.1,y.1).1) . 1@yLDA. x..0 . p(lv,x.1,y).(p(lv,x.1,y).1) . 1@YLNAp(lv,x,y).(p(lv,x,y).1) . 1@.LXA. x..7 . p(lv,x.1,y).(p(lv,x.1,y).1) . 1@.L"A. x..0 . y..6 . p(lv,x.1,y.1).(p(lv,x.1,y.1).1) . 1@KM,A. y..6 . p(lv,x,y.1).(p(lv,x,y.1).1) . 1@cM6A. y..6 . x..7 . p(lv,x.1,y.1).(p(lv,x.1,y.1).1) . 1@lM@A. 80@RMjA.x.0.7:.y.0.6:p(lv,x,y).0:.:.:.80@.MtA.".";:.".ilename";f$@.M.A. .(f$).16 . . 340@.MHA."Q(.)ape or (.)isc?"@.MRA. d$:. d$.."t" . d$.."d" . 370@.M.Ad.8:. d$."t" . d.1@CN.A. f$,d,1@@@

00000000  3a 08 0a 00 97 35 33 32  38 30 2c 30 3a 97 35 33  |:....53280,0:.53|
00000010  32 38 31 2c 30 3a 99 22  93 05 22 3b c7 28 38 29  |281,0:."..";.(8)|
00000020  3b c7 28 31 34 29 3b a6  39 29 3b 3a 4c 56 b2 31  |;.(14);.9);:LV.1|
00000030  3a 58 b2 30 3a 59 b2 30  00 4a 08 0f 00 86 20 50  |:X.0:Y.0.J.... P|
00000040  28 32 39 2c 37 2c 36 29  00 8c 08 14 00 99 22 d2  |(29,7,6)......".|
00000050  45 41 58 49 4f 4e 20 d3  43 52 45 45 4e 20 c5 44  |EAXION .CREEN .D|
00000060  49 54 4f 52 22 3b c7 28  31 33 29 3b a6 39 29 3b  |ITOR";.(13);.9);|
00000070  22 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |"...............|
00000080  a3 a3 a3 a3 a3 a3 11 11  11 22 00 b5 08 1e 00 99  |........."......|
00000090  a6 31 35 29 3b 22 b0 b2  b2 b2 b2 b2 b2 b2 b2 ae  |.15);"..........|
000000a0  22 3a 81 4c b2 30 a4 36  3a 99 a6 31 35 29 3b 22  |":.L.0.6:..15);"|
000000b0  ab 22 3b 00 d9 08 28 00  99 a6 38 29 3b 22 b3 22  |.";...(...8);"."|
000000c0  3a 82 3a 99 a6 31 35 29  3b 22 ad b1 b1 b1 b1 b1  |:.:..15);"......|
000000d0  b1 b1 b1 bd 11 11 22 00  17 09 32 00 99 a6 35 29  |......"...2...5)|
000000e0  3b 22 cc 45 56 45 4c 3a  11 22 3a 99 22 d3 20 2d  |;".EVEL:.":.". -|
000000f0  20 d3 41 56 45 20 20 cc  20 2d 20 cc 4f 41 44 20  | .AVE  . - .OAD |
00000100  20 c3 20 2d 20 c3 4c 45  41 52 20 20 d1 20 2d 20  | . - .LEAR  . - |
00000110  d1 55 49 54 22 00 45 09  3c 00 99 22 20 20 2b 20  |.UIT".E.<.."  + |
00000120  2d 20 ce 45 58 54 20 4c  45 56 45 4c 20 20 20 2d  |- .EXT LEVEL   -|
00000130  20 2d 20 d0 52 45 56 49  4f 55 53 20 4c 45 56 45  | - .REVIOUS LEVE|
00000140  4c 11 22 00 8a 09 46 00  99 22 d5 53 45 20 4a 4f  |L."...F..".SE JO|
00000150  59 53 54 49 43 4b 20 50  4f 52 54 20 32 20 54 4f  |YSTICK PORT 2 TO|
00000160  20 4d 4f 56 45 2c 20 41  4e 44 20 43 4c 49 43 4b  | MOVE, AND CLICK|
00000170  22 3a 99 22 54 4f 20 41  4c 54 45 52 20 4e 49 4e  |":."TO ALTER NIN|
00000180  45 20 52 4f 44 53 2e 22  00 b3 09 50 00 81 4c b2  |E RODS."...P..L.|
00000190  36 a4 31 32 3a 97 32 31  31 2c 31 36 3a 97 32 31  |6.12:.211,16:.21|
000001a0  34 2c 4c 3a 9e 35 38 37  33 32 3a 81 43 b2 30 a4  |4,L:.58732:.C.0.|
000001b0  37 00 dc 09 5a 00 99 22  9f 12 20 92 22 3b 3a 8b  |7...Z..".. .";:.|
000001c0  20 50 28 4c 56 2c 43 2c  4c ab 36 29 b2 30 20 a7  | P(LV,C,L.6).0 .|
000001d0  20 99 22 9d 1c 12 20 92  22 3b 00 e4 09 5f 00 82  | ."... .";..._..|
000001e0  3a 82 00 07 0a 64 00 97  32 31 31 2c 31 33 3a 97  |:....d..211,13:.|
000001f0  32 31 34 2c 31 36 3a 9e  35 38 37 33 32 3a 99 22  |214,16:.58732:."|
00000200  05 22 3b 4c 56 00 2c 0a  6e 00 97 31 32 38 30 aa  |.";LV.,.n..1280.|
00000210  59 ac 34 30 aa 58 2c 31  35 32 3a a1 20 4b 24 3a  |Y.40.X,152:. K$:|
00000220  8b 20 4b 24 b2 22 53 22  20 a7 00 3f 0a 78 00 8b  |. K$."S" ..?.x..|
00000230  20 4b 24 b2 22 4c 22 20  a7 20 33 34 30 00 52 0a  | K$."L" . 340.R.|
00000240  7d 00 8b 20 4b 24 b2 22  43 22 20 a7 20 33 33 30  |}.. K$."C" . 330|
00000250  00 63 0a 82 00 8b 20 4b  24 b2 22 51 22 20 a7 20  |.c.... K$."Q" . |
00000260  80 00 86 0a 8c 00 8b 20  4b 24 b2 22 2b 22 20 af  |....... K$."+" .|
00000270  20 4c 56 b3 33 30 20 a7  20 4c 56 b2 4c 56 aa 31  | LV.30 . LV.LV.1|
00000280  3a 89 38 30 00 a8 0a 96  00 8b 20 4b 24 b2 22 2d  |:.80...... K$."-|
00000290  22 20 af 20 4c 56 b1 31  20 a7 20 4c 56 b2 4c 56  |" . LV.1 . LV.LV|
000002a0  ab 31 3a 89 38 30 00 df  0a a0 00 4a b2 31 32 37  |.1:.80.....J.127|
000002b0  ab c2 28 35 36 33 32 30  29 3a 8b 20 28 4a 20 af  |..(56320):. (J .|
000002c0  20 34 29 b2 34 20 af 20  58 b1 30 20 a7 20 8d 32  | 4).4 . X.0 . .2|
000002d0  32 30 3a 58 b2 58 ab 31  3a 89 31 31 30 00 07 0b  |20:X.X.1:.110...|
000002e0  aa 00 8b 20 28 4a 20 af  20 38 29 b2 38 20 af 20  |... (J . 8).8 . |
000002f0  58 b3 37 20 a7 20 8d 32  32 30 3a 58 b2 58 aa 31  |X.7 . .220:X.X.1|
00000300  3a 89 31 31 30 00 2f 0b  b4 00 8b 20 28 4a 20 af  |:.110./.... (J .|
00000310  20 31 29 b2 31 20 af 20  59 b1 30 20 a7 20 8d 32  | 1).1 . Y.0 . .2|
00000320  32 30 3a 59 b2 59 ab 31  3a 89 31 31 30 00 57 0b  |20:Y.Y.1:.110.W.|
00000330  be 00 8b 20 28 4a 20 af  20 32 29 b2 32 20 af 20  |... (J . 2).2 . |
00000340  59 b3 36 20 a7 20 8d 32  32 30 3a 59 b2 59 aa 31  |Y.6 . .220:Y.Y.1|
00000350  3a 89 31 31 30 00 6f 0b  c8 00 8b 20 28 4a 20 af  |:.110.o.... (J .|
00000360  20 31 36 29 b2 31 36 20  a7 20 32 33 30 00 78 0b  | 16).16 . 230.x.|
00000370  d2 00 89 31 31 30 00 8f  0b dc 00 97 31 32 38 30  |...110......1280|
00000380  aa 59 ac 34 30 aa 58 2c  31 36 30 3a 8e 00 c7 0b  |.Y.40.X,160:....|
00000390  e6 00 8b 20 58 b3 b1 30  20 af 20 59 b3 b1 30 20  |... X..0 . Y..0 |
000003a0  a7 20 50 28 4c 56 2c 58  ab 31 2c 59 ab 31 29 b2  |. P(LV,X.1,Y.1).|
000003b0  28 50 28 4c 56 2c 58 ab  31 2c 59 ab 31 29 aa 31  |(P(LV,X.1,Y.1).1|
000003c0  29 20 af 20 31 00 f4 0b  f0 00 8b 20 59 b3 b1 30  |) . 1...... Y..0|
000003d0  20 a7 20 50 28 4c 56 2c  58 2c 59 ab 31 29 b2 28  | . P(LV,X,Y.1).(|
000003e0  50 28 4c 56 2c 58 2c 59  ab 31 29 aa 31 29 20 af  |P(LV,X,Y.1).1) .|
000003f0  20 31 00 2c 0c fa 00 8b  20 59 b3 b1 30 20 af 20  | 1.,.... Y..0 . |
00000400  58 b3 b1 37 20 a7 20 50  28 4c 56 2c 58 aa 31 2c  |X..7 . P(LV,X.1,|
00000410  59 ab 31 29 b2 28 50 28  4c 56 2c 58 aa 31 2c 59  |Y.1).(P(LV,X.1,Y|
00000420  ab 31 29 aa 31 29 20 af  20 31 00 59 0c 04 01 8b  |.1).1) . 1.Y....|
00000430  20 58 b3 b1 30 20 a7 20  50 28 4c 56 2c 58 ab 31  | X..0 . P(LV,X.1|
00000440  2c 59 29 b2 28 50 28 4c  56 2c 58 ab 31 2c 59 29  |,Y).(P(LV,X.1,Y)|
00000450  aa 31 29 20 af 20 31 00  79 0c 0e 01 50 28 4c 56  |.1) . 1.y...P(LV|
00000460  2c 58 2c 59 29 b2 28 50  28 4c 56 2c 58 2c 59 29  |,X,Y).(P(LV,X,Y)|
00000470  aa 31 29 20 af 20 31 00  a6 0c 18 01 8b 20 58 b3  |.1) . 1...... X.|
00000480  b1 37 20 a7 20 50 28 4c  56 2c 58 aa 31 2c 59 29  |.7 . P(LV,X.1,Y)|
00000490  b2 28 50 28 4c 56 2c 58  aa 31 2c 59 29 aa 31 29  |.(P(LV,X.1,Y).1)|
000004a0  20 af 20 31 00 de 0c 22  01 8b 20 58 b3 b1 30 20  | . 1...".. X..0 |
000004b0  af 20 59 b3 b1 36 20 a7  20 50 28 4c 56 2c 58 ab  |. Y..6 . P(LV,X.|
000004c0  31 2c 59 aa 31 29 b2 28  50 28 4c 56 2c 58 ab 31  |1,Y.1).(P(LV,X.1|
000004d0  2c 59 aa 31 29 aa 31 29  20 af 20 31 00 0b 0d 2c  |,Y.1).1) . 1...,|
000004e0  01 8b 20 59 b3 b1 36 20  a7 20 50 28 4c 56 2c 58  |.. Y..6 . P(LV,X|
000004f0  2c 59 aa 31 29 b2 28 50  28 4c 56 2c 58 2c 59 aa  |,Y.1).(P(LV,X,Y.|
00000500  31 29 aa 31 29 20 af 20  31 00 43 0d 36 01 8b 20  |1).1) . 1.C.6.. |
00000510  59 b3 b1 36 20 af 20 58  b3 b1 37 20 a7 20 50 28  |Y..6 . X..7 . P(|
00000520  4c 56 2c 58 aa 31 2c 59  aa 31 29 b2 28 50 28 4c  |LV,X.1,Y.1).(P(L|
00000530  56 2c 58 aa 31 2c 59 aa  31 29 aa 31 29 20 af 20  |V,X.1,Y.1).1) . |
00000540  31 00 4c 0d 40 01 89 20  38 30 00 72 0d 4a 01 81  |1.L.@.. 80.r.J..|
00000550  58 b2 30 a4 37 3a 81 59  b2 30 a4 36 3a 50 28 4c  |X.0.7:.Y.0.6:P(L|
00000560  56 2c 58 2c 59 29 b2 30  3a 82 3a 82 3a 89 38 30  |V,X,Y).0:.:.:.80|
00000570  00 8b 0d 54 01 99 22 93  22 3b 3a 85 22 c6 49 4c  |...T..".";:.".IL|
00000580  45 4e 41 4d 45 22 3b 46  24 00 a2 0d 5e 01 8b 20  |ENAME";F$...^.. |
00000590  c3 28 46 24 29 b1 31 36  20 a7 20 89 20 33 34 30  |.(F$).16 . . 340|
000005a0  00 bc 0d 68 01 99 22 11  28 d4 29 41 50 45 20 4f  |...h..".(.)APE O|
000005b0  52 20 28 c4 29 49 53 43  3f 22 00 df 0d 72 01 a1  |R (.)ISC?"...r..|
000005c0  20 44 24 3a 8b 20 44 24  b3 b1 22 54 22 20 af 20  | D$:. D$.."T" . |
000005d0  44 24 b3 b1 22 44 22 20  a7 20 33 37 30 00 f6 0d  |D$.."D" . 370...|
000005e0  7c 01 44 b2 38 3a 8b 20  44 24 b2 22 54 22 20 a7  ||.D.8:. D$."T" .|
000005f0  20 44 b2 31 00 03 0e 86  01 93 20 46 24 2c 44 2c  | D.1...... F$,D,|
00000600  31 00 00 00                                       |1...|
00000604

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