home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 October / 64er_Magazin_85-10_1985_Markt__Technik_de.d64 / floppy-adjust (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  76 lines
  1. 100 rem ******  floppy - adjust ******  :
  2. 120 print"[147]":poke53280,12:poke53281,0:poke198,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:printa$"<c> by [205].[193]ustermeier"
  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 ifc/r1=int(c/r1)thenrv=notrv
  9. 192 ifrvthenprint"";
  10. 195 print"[154]        [194]itte mit '[195][210][211][210]' waehlen        ";
  11. 196 print"        dann  '[210][197][212][213][210][206]'  druecken        ";:poke199,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":gosub400
  14. 220 w$="[198]eineinstellung":gosub400
  15. 240 w$="    [197][206][196][197]       ":gosub400
  16. 280 getg$:ifg$=chr$(13)then360
  17. 300 ifg$=""theng=g+1:ifg>mgtheng=1
  18. 320 ifg$="[145]"theng=g-1:ifg<1theng=mg
  19. 330 poke198,peek(198)and1
  20. 340 goto160
  21. 360 onggosub445,445:onggoto460,500,450
  22. 380 goto280
  23. 400 print:printa$;:ifx=gthenprint"";
  24. 420 printw$"[146]  ";
  25. 430 ifx=gthenc=c+1and15:ifc/r0=int(c/r0)thenprint"[157]_";
  26. 440 print:x=x+1:return
  27. 445 pokecu,24:print:forf=1to11:print:next:pokecu,10:print
  28. 446 poke768,174:poke769,167:poke144,0:open1,8,15:close1:rem test device present
  29. 447 poke768,139:poke769,227
  30. 448 ifst=0thenreturn
  31. 449 e$="[198]loppy nicht eingeschaltet":goto1340
  32. 450 close2:close1:print"[147] [194]ye.":end
  33. 460 rem grob
  34. 480 t1=18:t2=18:goto560
  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$:ifg$="j"thenfb=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 poke198,0:wait198,1:getg$
  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$="":forf=1tolb:b$=b$+" ":next
  49. 780 deffnt(x)=int(peek(x)/16)*10+peek(x)-int(peek(x)/16)*16
  50. 800 z=56328:s=z+1:pokes,0:pokez,0
  51. 820 print"[147]  ****  [198]loppy-[193]djust  ****  [214]25.2.85"
  52. 840 print "  *** <c> [205].[193]ustermeier ***"
  53. 860 pokecu,5:print:print" [196]isk wird initialisiert"
  54. 880 open1,8,15,"i":open2,8,2,"#"
  55. 900 pokecu,zl:print
  56. 920 printtab(sp)" ^ max."spc(lb-13)"min. ^"
  57. 940 t=t1:rem track
  58. 960 pokes,0:pokez,0
  59. 980 print#1,"u1:"2;0;t;1
  60. 1000 input#1,e,e$,et,es:ifethen1340
  61. 1040 tm=fnt(s)+fnt(z)/10-d
  62. 1060 fl=notfl:ifflandfbthenpoke53280,(peek(53280)+1)and1:rem alle farben-and15
  63. 1080 tb=lb-lb*(tm/mt):iftb<0thentb=0
  64. 1100 pokexr,zl:sysdl
  65. 1120 print"[218]eit :"tm"s"tab(sp)left$(b$,tb+1)
  66. 1140 pokecu,5:print:print"[154][197]instellung  o.k     [146]";
  67. 1160 print"[211]pur : "t"[157]  "
  68. 1180 iftm>mtthenprint"[145]falsche [197]instellung ![146]"
  69. 1200 tx=t:t=t+1:ift>t2thent=t1
  70. 1220 d=abs(t-tx)/100:rem fuer tracktransport zeit zugeben
  71. 1240 getg$:ifg$<>""then1380
  72. 1260 goto960
  73. 1340 print"[147][198]loppy - [198]ehler[146] !":printe;""e$"[146]";et;es
  74. 1360 print:print"[194]itte [212]aste druecken.":poke198,0:wait198,1
  75. 1380 close2:close1:run
  76.