home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-11_1992_-_de_Side_A.d64 / fk.dir (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  433b  |  31 lines
  1. 10 gosub200
  2. 20 end
  3. 30 :
  4. 31 :
  5. 90 rem *****************
  6. 91 rem * zeichen lesen *
  7. 92 rem *****************
  8. 93 :
  9. 100 get#1,a$
  10. 110 ifa$=""thena=0:return
  11. 120 a=asc(a$):return
  12. 130 :
  13. 131 :
  14. 190 rem **********************
  15. 191 rem * directory anzeigen *
  16. 192 rem **********************
  17. 193 :
  18. 200 print"[147]";:open1,8,0,"$"
  19. 210 fori=1to4:get#1,a$:next
  20. 215 :
  21. 220 gosub100:bl=a
  22. 230 gosub100:bl=bl+256*a
  23. 240 print bl;
  24. 250 get#1,a$:printa$;
  25. 260 ifa$<>""then250
  26. 270 print
  27. 280 fori=1to2:get#1,a$:next
  28. 290 ifst=0then220
  29. 300 close1
  30. 310 return
  31.