Home » Personal collection » Commodore disks » disk04a2_game_positions.d64 » reax-edit2
reax-edit2
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-edit2 |
| Read OK: | ✔ |
| File size: | 07DF 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:X=0:Y=0: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
400 PRINT"<cursor down>🭾LEASE ○AIT. . .":FORLV=0TO29:FORY=0TO6
410 X=PEEK(11264+Y+LV*7):B=1:FORX=0TO7
420 P(LV,X,Y)=X AND B:B=B*2:NEXT:NEXT:NEXT
430 LV=1:GOTO80
440 PRINT"<clr>🭾LEASE ○AIT. . .":FORLV=0TO29:FORY=0TO6
450 A=11264+Y+LV*7:POKEA,0:FORB=0TO7:POKEA,PEEK(A) AND (2^B*P(LV,B,Y)):NEXT
460 NEXT:NEXT
470 INPUT"<cursor down>🭺ILENAME";F$:IF LEN(F$)>16 THEN 470
480 PRINT"(🭰)APE OR (🭷)ISC?"
490 GETK$:IFK$<>"T"ANDK$<>"D" THEN 490
500 D=1:IF K$="D" THEN D=8
510 FORL=1TOLEN(F$):POKE4096+L,MID$(F$,L,1):NEXT:POKE4112,D:POKE4113,LEN(F$)
520 SYS4032:GOTO80
: �53280,0:�53281,0:�"�";�(8);�(14);�9);:LV�1:X�0:Y�0 J � P(29,7,6) � �"�EAXION �CREEN �DITOR";�(13);�9);"���������������������"