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