home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 4 / Killer-Drive_64_04_1998_-_de_Side_B.d64 / floppy-adjust! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  76 lines
  1. 100 rem ******  floppy - adjust ******  :
  2. 120 print"[147]":poke 53280,12:poke 53281,0:poke 198,0
  3. 140 g=1:mg=3:r1=10:r0=3:rv=0:a$="          "
  4. 150 cu=214:rem cursorzeile
  5. 160 print""a$"[198][204][207][208][208][217]-[197][201][206][211][212][197][204][204][200][201][204][198][197]"
  6. 170 print""
  7. 180 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  8. 190 if c/r1=int(c/r1)then rv=not rv
  9. 192 if rv then print"";
  10. 195 print"[154]        [194]itte mit '[195][210][211][210]' waehlen        ";
  11. 196 print"        dann  '[210][197][212][213][210][206]'  druecken        ";:poke 199,0
  12. 197 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  13. 200 x=1:w$="[199]robeinstellung":gosub 400
  14. 220 w$="[198]eineinstellung":gosub 400
  15. 240 w$="   [197][206][196][197]       ":gosub 400
  16. 280 get g$:if g$=chr$(13)then 360
  17. 300 if g$=""then g=g+1:if g>mg then g=1
  18. 320 if g$="[145]"then g=g-1:if g<1 then g=mg
  19. 330 poke 198,peek(198)and 1
  20. 340 goto 160
  21. 360 on g gosub 445,445:on g goto 460,500,450
  22. 380 goto 280
  23. 400 print:print a$;:if x=g then print"";
  24. 420 print w$"[146]  ";
  25. 430 if x=g then c=c+1 and 15:if c/r0=int(c/r0)then print"[157]_";
  26. 440 print:x=x+1:return
  27. 445 poke cu,24:print:for f=1 to 11:print:next:poke cu,10:print
  28. 446 poke 768,174:poke 769,167:poke 144,0:open 1,8,15:close 1
  29. 447 poke 768,139:poke 769,227
  30. 448 if st=0 then return
  31. 449 e$="[198]loppy nicht eingeschaltet":goto 1340
  32. 450 close 2:close 1:print"[147] [194]ye.":end
  33. 460 rem grob
  34. 480 t1=18:t2=18:goto 560
  35. 500 rem fein
  36. 520 print"[204]esen von [211]pur ";:input" 1[157][157][157]";t1
  37. 540 print"[204]esen bis [211]pur ";:input" 35[157][157][157][157]";t2
  38. 560 input "[205]ax. [218]eit fuer 1 [194]lock   0.5 sec[157][157][157][157][157][157][157][157][157]";g$:mt=val(g$)
  39. 570 fb=0:input"[210]andfarbwechsel gewuenscht<j/n>  n[157][157][157]";g$:if g$="j"then fb=1
  40. 580 print"[147][194]itte korrekt formatierte [196]iskette"
  41. 600 print"einlegen.([196]aten werden nicht[146] zerstoert)"
  42. 610 print:print"[206]ach dieser [196]iskette kann die [198]loppy":print"eingestellt werden"
  43. 620 print:print"[198]ertig ? [196]ann [212]aste druecken"
  44. 640 poke 198,0:wait 198,1:get g$
  45. 680 zl=10:sp=12:rem pos. f.balken
  46. 700 dl=59903:rem adr.delete line
  47. 720 xr=781:rem x-reg.sys
  48. 740 lb=20:b$="":for f=1 to lb:b$=b$+" ":next
  49. 780 def fn t(x)=int(peek(x)/16)*10+peek(x)-int(peek(x)/16)*16
  50. 800 z=56328:s=z+1:poke s,0:poke z,0
  51. 820 print"[147]  ****  [198]loppy-[193]djust  ****  [214]25.2.85"
  52. 840 :
  53. 860 poke cu,5:print:print" [196]isk wird initialisiert"
  54. 880 open 1,8,15,"i":open 2,8,2,"#"
  55. 900 poke cu,zl:print
  56. 920 print tab(sp)" ^ max."spc(lb-13)"min.^"
  57. 940 t=t1:rem track
  58. 960 poke s,0:poke z,0
  59. 980 print#1,"u1:"2;0;t;1
  60. 1000 input#1,e,e$,et,es:if e then 1340
  61. 1040 tm=fn t(s)+fn t(z)/10-d
  62. 1060 fl=not fl:if fl and fb then poke 53280,(peek(53280)+1)and 1
  63. 1080 tb=lb-lb*(tm/mt):if tb<0 then tb=0
  64. 1100 poke xr,zl:sys dl
  65. 1120 print"[218]eit :"tm"s"tab(sp)left$(b$,tb+1)
  66. 1140 poke cu,5:print:print"[154][197]instellung  o.k     [146]";
  67. 1160 print"[211]pur : "t"[157]  "
  68. 1180 if tm>mt then print"[145]falsche [197]instellung ![146]"
  69. 1200 tx=t:t=t+1:if t>t2 then t=t1
  70. 1220 d=abs(t-tx)/100:rem fuer tracktransport zeit zugeben
  71. 1240 get g$:if g$<>""then 1380
  72. 1260 goto 960
  73. 1340 print"[147][198]loppy - [198]ehler[146] !":print e;""e$"[146]";et;es
  74. 1360 print:print"[194]itte [212]aste druecken.":poke 198,0:wait 198,1
  75. 1380 close 2:close 1:run
  76.