start tok64 d64-HzqYka
0 POKE52,128:POKE56,128
1 POKE53280,6:POKE53281,6:PRINT"{light blue}{clear}ramdisk is loading{.*3}{space*19}{cm t*7}
2 PRINT"{down}(c) one july mcml{x*3}ix
3 OPEN1,8,1,"ramdisk.mc,p,r":POKE780,.:SYS65493:CLOSE1
4 PRINT"{home}ramdisk is loaded{.*3} "
5 PRINT"{down*3}command{space*2}use
6 PRINT"raml{space*5}load file from ramdisk
7 PRINT"rams{space*5}save file on ramdisk
8 PRINT"ramr{space*5}remove file from ramdisk
9 PRINT"ramm{space*5}ramdisk directory
10 PRINT"ramc{space*5}clear {reverse on}whole{reverse off} ramdisk
11 PRINT"ramk{space*5}turn ramdisk off
12 PRINT"sys32809 turn ramdisk on
13 PRINT"sys32{7*3} turn ramdisk on + reset
14 PRINT"syntax for raml,s&r : ram?"CHR$(34)"name"CHR$(34)
15 PRINT"{down}error messages:
16 PRINT"ramfile does not exist!
17 PRINT"ramfile does already exists!
18 PRINT"can't save more than 16 files!
19 PRINT"file too long!
20 PRINT"stupid ram syntax!
21 PRINT"?missing file name{space*2}error
22 PRINT"{down}press a key>{home}":POKE198,.:WAIT198,1
23 PRINT"{clear}don't save files from $8{0*3}-$b{f*3} or
24 PRINT"$d{0*3}-${f*4}! $c{0*3}-$c{f*3} is no problem.
25 PRINT"{down}ramdisk uses $8{0*3}-${f*4} except from
26 PRINT"$c{0*3}-$c{f*3}.
27 PRINT"{down*3}press a key to start>":POKE198,.:WAIT198,1
28 SYS32777
stop tok64
(bastext 1.0)