00000000: 44 43 4C 45 41 52 0D 42 41 4E 4B 31 35 3A 59 3D |DCLEAR.BANK15:Y=|
00000010: 50 45 45 4B 28 35 37 30 39 34 29 3A 50 4F 4B 45 |PEEK(57094):POKE|
00000020: 20 35 37 30 39 34 2C 59 2B 31 3A 50 4F 4B 45 20 | 57094,Y+1:POKE |
00000030: 37 31 33 36 2C 41 42 53 28 50 45 45 4B 28 35 37 |7136,ABS(PEEK(57|
00000040: 30 39 34 29 2D 59 29 0D 5A 3A 49 46 20 4E 4F 54 |094)-Y).Z:IF NOT|
00000050: 20 45 52 52 4F 52 4C 45 56 45 4C 20 31 20 5A 3A | ERRORLEVEL 1 Z:|
00000060: 41 55 54 4F 45 58 45 43 2E 4E 4F 31 37 35 30 0D |AUTOEXEC.NO1750.|
00000070: 5A 3A 53 45 54 52 41 4D 20 31 36 2C 38 0D 5A 3A |Z:SETRAM 16,8.Z:|
00000080: 47 45 54 52 41 4D 20 52 41 4D 44 49 53 4B 0D 50 |GETRAM RAMDISK.P|
00000090: 4F 4B 45 20 44 45 43 28 22 31 42 43 46 22 29 2C |OKE DEC("1BCF"),|
000000A0: 32 2A 31 36 2B 38 0D 49 4E 53 54 41 4C 4C 20 41 |2*16+8.INSTALL A|
000000B0: 52 43 2A 20 43 53 2A 0D 54 45 58 54 0D 4E 45 57 |RC* CS*.TEXT.NEW|
000000C0: 0D 52 44 49 52 2F 57 0D 20 |.RDIR/W. |
DCLEAR.BANK15:Y=PEEK(57094):POKE 57094,Y
+1:POKE 7136,ABS(PEEK(57094)-Y).Z:IF NOT
ERRORLEVEL 1 Z:AUTOEXEC.NO1750.Z:SETRAM
16,8.Z:GETRAM RAMDISK.POKE DEC("1BCF"),
2*16+8.INSTALL ARC* CS*.TEXT.NEW.RDIR/W.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL