home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1998-07_1998_CSW_Side_B.d64
/
rl-autostart64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
949b
|
25 lines
10 y=peek(203):@#22:rem y=tastencode
20 gosub 800:rem uhr anzeigen
30 if y=64 then 480:rem keine taste gedrueckt
40 y$=chr$(peek(60289+y+(peek(653)and1)*65)):rem in ascii-code umwandeln
50 poke 53280,0:for i=1 to 30:next:poke 53280,14
60 if y$="f" then ^"3/disk-tools/:fcopy"
70 if y$="s" then gosub900:@"cd4/stroke world":@"cp4":^"*"
80 if y$="h" then gosub500:goto40:rem (h)ilfeseite
90 if y$=" " then @#8:^"*":rem load"*",8:run
100 if y$="$" then @#8:@"$":rem load"$",8:list
480 poke198,0:new:rem tastaturpuffer leer und ende
490 rem **************************
500 print "[147] abkuerzungen":print
510 print " f - fcopy"
520 print " s - stroke world"
530 print " $ - directory von floppy #8"
540 print "space - erstes prg von floppy #8"
600 wait 203,64:rem warten, bis h-taste losgelassen ist
610 y=peek(203):if y=64 then 610:rem neue taste abwarten
620 poke198,0:return:rem tastaturpuffer leer und zurueck in zeile 80
630 rem **************************
800 @"t-ra",22:@"",22:return:rem uhranzeige
810 rem **************************
900 @"s-8":for i=1 to 500:next:@#8:return:rem swap8