00000000: 01 1C 18 1C 0A 00 8F 20 44 53 41 56 45 20 22 40 |....... DSAVE "@|
00000010: 53 54 41 52 54 55 50 22 00 2A 1C 14 00 8B 20 CC |STARTUP".*.... .|
00000020: 28 30 29 B3 34 20 A7 20 DE 30 00 63 1C 64 00 8D |(0).4 . .0.c.d..|
00000030: 20 38 30 30 3A 8D 20 39 30 30 3A 20 8F 20 56 45 | 800:. 900: . VE|
00000040: 52 49 46 59 20 44 49 53 4B 20 50 52 45 53 45 4E |RIFY DISK PRESEN|
00000050: 54 2C 20 53 45 54 20 46 3D 31 20 49 46 46 20 35 |T, SET F=1 IFF 5|
00000060: 31 32 4B 00 80 1C 6E 00 99 20 22 13 13 93 22 2C |12K...n.. "...",|
00000070: 22 12 52 41 4D 44 49 53 4B 20 4D 45 4E 55 92 22 |".RAMDISK MENU."|
00000080: 00 86 1C 78 00 99 00 BE 1C C8 00 86 20 4E 24 28 |...x........ N$(|
00000090: 32 35 29 2C 50 24 28 32 35 29 2C 54 24 28 32 2C |25),P$(25),T$(2,|
000000A0: 32 35 29 20 20 3A 20 8F 20 52 45 41 44 20 44 41 |25) : . READ DA|
000000B0: 54 41 20 49 4E 54 4F 20 41 52 52 41 59 53 00 FE |TA INTO ARRAYS..|
000000C0: 1C D2 00 49 B2 30 3A EB 3A 49 B2 49 AA 31 3A 87 |...I.0:.:I.I.1:.|
000000D0: 20 4E 24 28 49 29 2C 50 24 28 49 29 2C 54 24 28 | N$(I),P$(I),T$(|
000000E0: 30 2C 49 29 2C 54 24 28 31 2C 49 29 3A 20 EC 20 |0,I),T$(1,I): . |
000000F0: FD 20 4E 24 28 49 29 B3 B1 22 45 4F 46 22 00 08 |. N$(I).."EOF"..|
00000100: 1D DC 00 4C B2 49 AB 31 00 24 1D 2C 01 81 20 49 |...L.I.1.$.,.. I|
00000110: B2 31 A4 4C 20 3A 20 8F 20 50 52 49 4E 54 20 20 |.1.L : . PRINT |
00000120: 4D 45 4E 55 00 3F 1D 36 01 99 20 FB 20 22 23 23 |MENU.?.6.. . "##|
00000130: 22 3B 49 3B 3A 99 22 20 22 3B 4E 24 28 49 29 00 |";I;:." ";N$(I).|
00000140: 63 1D 40 01 8B 20 CE 09 28 32 29 B2 34 30 20 A7 |c.@.. ..(2).40 .|
00000150: 20 99 22 20 20 20 20 22 3B 3A D5 3A 99 2C 2C 22 | ." ";:.:.,,"|
00000160: 91 22 3B 00 86 1D 5E 01 99 20 50 24 28 49 29 3B |.";...^.. P$(I);|
00000170: 22 20 2C 22 3B 54 24 28 46 2C 49 29 3B 22 20 4D |" ,";T$(F,I);" M|
00000180: 49 4E 22 20 3A 82 00 B2 1D 90 01 99 3A 99 20 22 |IN" :.......:. "|
00000190: 50 49 43 4B 20 41 20 4E 55 4D 42 45 52 20 3F 22 |PICK A NUMBER ?"|
000001A0: 3B 3A A1 F9 20 41 24 3A 53 B2 C6 28 41 24 29 AB |;:.. A$:S..(A$).|
000001B0: 34 38 00 D9 1D 9A 01 8B 28 53 B3 31 29 B0 28 53 |48......(S.1).(S|
000001C0: B1 4C 29 B0 28 53 B3 B1 B5 28 53 29 29 20 20 A7 |.L).(S...(S)) .|
000001D0: 20 9C 3A 20 89 20 31 30 30 00 F4 1D F4 01 99 20 | .: . 100...... |
000001E0: 22 93 20 4C 4F 41 44 49 4E 47 20 22 3B 4E 24 28 |". LOADING ";N$(|
000001F0: 53 29 3A 99 00 3A 1E FE 01 93 20 4E 24 28 53 29 |S):..:.... N$(S)|
00000200: 2C 30 38 20 20 20 3A 20 8F 20 4C 4F 41 44 20 50 |,08 : . LOAD P|
00000210: 52 4F 47 52 41 4D 2C 20 49 54 20 57 49 4C 4C 20 |ROGRAM, IT WILL |
00000220: 42 45 43 4F 4D 45 20 54 48 45 20 52 55 4E 4E 49 |BECOME THE RUNNI|
00000230: 4E 47 20 50 52 4F 47 52 41 4D 00 5C 1E 20 03 8F |NG PROGRAM.\. ..|
00000240: 20 56 45 52 49 46 59 20 50 52 45 53 45 4E 43 45 | VERIFY PRESENCE|
00000250: 20 4F 46 20 52 41 4D 20 43 41 52 44 00 75 1E 2A | OF RAM CARD.u.*|
00000260: 03 FE 02 31 35 3A 41 B2 D1 28 22 44 46 30 35 22 |...15:A..("DF05"|
00000270: 29 3A 56 B2 30 00 87 1E 52 03 8D 20 38 36 30 3A |):V.0...R.. 860:|
00000280: 56 B2 32 35 35 AB 56 00 9E 1E 5C 03 97 20 41 2C |V.255.V...\.. A,|
00000290: 56 3A 8B 20 56 B2 C2 28 41 29 20 A7 20 8E 00 DC |V:. V..(A) . ...|
000002A0: 1E 66 03 99 20 22 13 13 93 11 11 11 11 11 11 11 |.f.. "..........|
000002B0: 11 11 07 45 52 52 4F 52 3A 20 20 52 41 4D 44 49 |...ERROR: RAMDI|
000002C0: 53 4B 20 4E 4F 54 20 49 4E 53 54 41 4C 4C 45 44 |SK NOT INSTALLED|
000002D0: 11 11 11 11 11 11 11 11 11 22 3A 80 00 05 1F 84 |.........":.....|
000002E0: 03 8F 20 53 45 54 20 46 3D 31 20 49 46 20 35 31 |.. SET F=1 IF 51|
000002F0: 32 4B 20 45 4C 53 45 20 46 20 3D 30 20 49 46 20 |2K ELSE F =0 IF |
00000300: 31 32 38 20 4B 00 2E 1F 8E 03 FE 02 31 35 3A 46 |128 K.......15:F|
00000310: B2 31 3A 8B 20 30 B2 28 31 36 AF C2 28 D1 28 22 |.1:. 0.(16..(.("|
00000320: 44 46 30 30 22 29 29 29 20 A7 20 46 B2 30 00 34 |DF00"))) . F.0.4|
00000330: 1F 98 03 8E 00 5C 1F E8 03 83 20 22 48 45 4C 50 |.....\.... "HELP|
00000340: 2E 42 41 53 22 2C 22 45 58 50 4C 41 4E 41 54 4F |.BAS","EXPLANATO|
00000350: 52 59 20 54 45 58 54 22 2C 32 2C 32 00 86 1F F2 |RY TEXT",2,2....|
00000360: 03 83 20 22 52 41 4D 54 45 53 54 22 2C 22 54 45 |.. "RAMTEST","TE|
00000370: 53 54 53 20 45 58 50 41 4E 53 49 4F 4E 20 52 41 |STS EXPANSION RA|
00000380: 4D 22 2C 32 2C 39 00 B2 1F FC 03 83 20 22 42 4F |M",2,9...... "BO|
00000390: 55 4E 43 45 2E 47 45 4E 22 2C 22 42 4F 55 4E 43 |UNCE.GEN","BOUNC|
000003A0: 49 4E 47 20 42 41 4C 4C 20 44 45 4D 4F 22 2C 32 |ING BALL DEMO",2|
000003B0: 2C 35 00 E2 1F 06 04 83 20 22 53 4C 49 44 45 52 |,5...... "SLIDER|
000003C0: 2E 47 45 4E 22 2C 22 42 55 49 4C 44 53 20 41 20 |.GEN","BUILDS A |
000003D0: 53 4D 41 4C 4C 20 4D 4F 56 49 45 22 2C 20 35 2C |SMALL MOVIE", 5,|
000003E0: 31 30 00 0C 20 10 04 83 20 22 50 4F 55 4E 44 2E |10.. ... "POUND.|
000003F0: 47 45 4E 22 2C 22 41 4C 53 4F 20 4D 41 4B 45 53 |GEN","ALSO MAKES|
00000400: 20 4D 4F 56 49 45 53 22 2C 31 2C 35 00 22 20 28 | MOVIES",1,5." (|
00000410: 23 83 20 22 45 4F 46 22 2C 22 45 4F 46 22 2C 30 |#. "EOF","EOF",0|
00000420: 2C 30 00 00 00 |,0... |
....... DSAVE "@STARTUP".*.... L(0).4 .
.0.C.D.. 800:. 900: . VERIFY DISK PRESEN
T, SET F=1 IFF 512K...N.. "...",".RAMDIS
K MENU."...X.....H.. N$(25),P$(25),T$(2,
25) : . READ DATA INTO ARRAYS...R.I.0:.
:I.I.1:. N$(I),P$(I),T$(0,I),T$(1,I): .
. N$(I).."EOF".....L.I.1.$.,.. I.1.L : .
PRINT MENU.?.6.. . "##";I;:." ";N$(I).
C.@.. N.(2).40 . ." ";:U:.,,".";...^.
. P$(I);" ,";T$(F,I);" MIN" :.......:. "
PICK A NUMBER ?";:.. A$:S.F(A$).48.Y....
(S.1).(S.L).(S...(S)) . .: . 100......
". LOADING ";N$(S):..:.... N$(S),08 :
. LOAD PROGRAM, IT WILL BECOME THE RUNNI
NG PROGRAM.\. .. VERIFY PRESENCE OF RAM
CARD.U.*...15:A.Q("DF05"):V.0...R.. 860:
V.255.V...\.. A,V:. V.B(A) . ....F.. "..
...........ERROR: RAMDISK NOT INSTALLED
.........":....... SET F=1 IF 512K ELSE
F =0 IF 128 K.......15:F.1:. 0.(16.B(Q("
DF00"))) . F.0.4.....\.... "HELP.BAS","E
XPLANATORY TEXT",2,2...... "RAMTEST","TE
STS EXPANSION RAM",2,9...... "BOUNCE.GEN
","BOUNCING BALL DEMO",2,5...... "SLIDER
.GEN","BUILDS A SMALL MOVIE", 5,10.. ...
"POUND.GEN","ALSO MAKES MOVIES",1,5." (
#. "EOF","EOF",0,0...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL