home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_B.d64 / trackread (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  916b  |  46 lines
  1. 10 t=37     :rem track
  2. 20 s=12     :rem sector
  3. 30 w=144    :rem schreiben eines blocks
  4. 40 r=128    :rem lesen eines blocks
  5. 70 v=1      :rem verzoegerung bei compilierten programmen (>=10)
  6. 72 poke53280,1:poke53281,1:poke646,0
  7. 80 print"[147]    [211][197][203][212][207][210][160][204][197][211][197][206] [201][206] [211][208][213][210] 36 [194][201][211] 41   "
  8. 90 print"[210]ichtige [196]iskette einlegen und <[210][197][212][213][210][206]>"
  9. 92 gett$:ift$<>chr$(13)then92
  10. 100 open1,8,15,"i"
  11. 110 fori=0to250:tx$=tx$+chr$(254):nexti
  12. 210 :
  13. 220 rem lesen des blocks
  14. 230 :
  15. 240 b=r:gosub1000
  16. 300 :
  17. 310 :
  18. 330 p=0:print"[147] [196]atenausgabe:"
  19. 340 fori=1tolen(tx$)
  20. 350 print#1,"m-r"+chr$(i+2)+chr$(3)+chr$(1)
  21. 360 get#1,x$:printx$;
  22. 370 nexti
  23. 380 close1
  24. 390 end
  25. 400 :
  26. 1000 :
  27. 1010 rem parameter an diskcontroller
  28. 1020 :
  29. 1030 rem track und sector fuer puffer 0
  30. 1040 :
  31. 1050 print#1,"m-w"+chr$(6)+chr$(0)+chr$(2)+chr$(t)+chr$(s)
  32. 1060 :
  33. 1070 rem befehlscode lesen oder schreiben fuer puffer 0
  34. 1080 :
  35. 1090 print#1,"m-w"+chr$(0)+chr$(0)+chr$(1)+chr$(b)
  36. 1100 :
  37. 1110 rem warten
  38. 1120 :
  39. 1130 fori=1to5000*v:nexti
  40. 1140 :
  41. 1150 rem returncode
  42. 1160 :
  43. 1170 print#1,"m-r"+chr$(0)+chr$(0)+chr$(1)
  44. 1180 get#1,x$:x=asc(x$+chr$(0))
  45. 1190 return
  46.