home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 43 / Digital_Talk_43_2000-06-12_Digital_Talk_de_Side_A.d64 / 1541 justage (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  183 lines
  1. 10 poke650,128:goto 10000
  2. 130 print"[147]     [210]/[215] [203][207][208][198][160][202][213][211][212][193][199][197]  [214][195] 1541"
  3. 150 dn=08:t=17
  4. 160 close1
  5. 170 print" [204]egen [211]ie die [193]lignment[146]-[196]iskette ein!"
  6. 180 print"[196]ruecken [211]ie die [212]aste [211][208][193][195][197][146] !"
  7. 190 geth$:ifh$<>" "then190
  8. 200 print"[147]"
  9. 210 open1,dn,15
  10. 220 i$="i":print#1,i$
  11. 230 print"[147]"
  12. 240 print"":printtab(12)"   * [194][197][198][197][200][204][197] *"
  13. 250 printtab(12)"i[146] = eine [211]pur innen"
  14. 260 printtab(12)"a[146] = eine [211]pur aussen"
  15. 270 printtab(12)"b[146] = [194]ump [211]ound"
  16. 280 printtab(12)"h[146] = [200]ysterese"
  17. 290 printtab(12)"e[146] = [197]ndanschlag"
  18. 300 printtab(12)"t[146] = [210]/[215] [212]est"
  19. 305 printtab(12)"_[146] = [205]enue"
  20. 310 printtab(12)"[211]pur nr:   [157][157][157]";t
  21. 320 jb=176:getb$:ifb$=""then:gosub400:goto240
  22. 330 ifb$="i"then:t=t+1:gosub400:goto240
  23. 335 ifb$="_"thenclose1:close7:close15:goto10000
  24. 340 ifb$="a"then:t=t-1:gosub400:goto240
  25. 350 ifb$="b"thenjb=192:t=17:gosub400:goto240
  26. 360 ifb$="h"thenjb=176:goto470
  27. 370 ifb$="e"thent=1:goto500
  28. 380 ifb$="t"thengosub630:goto950
  29. 390 ifb$<>"t"thengoto240
  30. 400 ift<1thenprinttab(02)"min. 1":forx=1to500:next:print"[147]":t=1
  31. 410 ift>35thenprinttab(02)"max. 35":forx=1to500:next:print"[147]":t=35
  32. 420 print#1,"m-w"chr$(6)chr$(0)chr$(1)chr$(t)
  33. 430 print#1,"m-w"chr$(0)chr$(0)chr$(1)chr$(jb)
  34. 440 print#1,"m-r"chr$(0)chr$(0)
  35. 450 get#1,x$:y$=x$+chr$(0):ifasc(y$)>127then440
  36. 460 return
  37. 470 hy=hy+1
  38. 480 ifhyand1thent=t+4:gosub400:t=t-4:goto240
  39. 490 t=t-4:gosub400:t=t+4:goto240
  40. 500 print"[147]"spc(9)"[202][213][211][212][193][199][197] [196][197][210] [211][208][213][210] 1"
  41. 510 print"[197]instellung auf 0.25mm vom [197]ndanschlag                  entfernt."
  42. 520 printtab( 4)"[215]enn geschehen, bitte die [212]aste"spc(18)"[211][208][193][195][197][146] druecken !"
  43. 530 gosub400
  44. 540 getc$:ifc$<>" "thengoto530
  45. 550 jb=192:t=17:gosub400
  46. 560 jb=176
  47. 570 print"[147] sind cat eye's ok ?"
  48. 580 print" druecke j/n[146]"
  49. 590 geta$:ifa$=""thengosub400:goto590
  50. 600 ifa$="j"thengoto630
  51. 610 ifa$="n"thengoto230
  52. 620 ifa$<>"j"thengoto590
  53. 630 af=0:close7:close15:open15,dn,15
  54. 640 print"[147]":printtab(6)"[210]/[215] [212][197][211][212]"
  55. 650 print"[204]egen [211]ie eine formatierte [196]iskette ein."
  56. 660 printtab(4)"[196]ruecke [211][208][193][195][197][146]"
  57. 670 getd$:ifd$<>" "then670
  58. 680 n$="n"+str$(0)+":":fd$="test":af=0
  59. 690 print"[196]iskette formatieren"
  60. 700 ag=0:print#15,n$,fd$:gosub860:ifagthenaf=1
  61. 710 print"[196]iskette formatieren  ";:ifafthenprint"";
  62. 720 printb$:ifafthen890
  63. 730 fori=1to1000:next
  64. 740 open7,dn,7,"#"
  65. 750 print" lese/schreib [212]est":fortr=1to35step2
  66. 760 ag=0
  67. 770 print#15,"u2";7;0;tr;1
  68. 780 gosub860:ifag=0then810
  69. 790 ifag<3then770
  70. 800 af=1
  71. 810 print"lese/schreib [212]est     "tr;:ifagthenprint"";
  72. 820 printb$" "a$
  73. 830 next
  74. 840 close7
  75. 850 goto950
  76. 860 input#15,a$,b$,c$,d$
  77. 870 ifa$<>"00"thenag=ag+1
  78. 880 return
  79. 890 print"druecke space[146] fuer  weiter"
  80. 900 print" w[146] fuer [215]iederholung"
  81. 910 getk$:ifk$=" "thengoto740
  82. 920 ifk$<>"w"thengoto910
  83. 930 goto630
  84. 940 return
  85. 950 print"[147]"tab(4)"[212]est  beendet"
  86. 960 print"    druecke space[146]       fuer wiederholung"
  87. 970 print"  oder e[146]  fuer [197]nde "
  88. 980 geta$:ifa$=" "thengoto220
  89. 990 ifa$<>"e"thengoto980
  90. 1000 goto10000
  91. 2000 restore:print"[147][211]pur - [211]ektor"
  92. 2010 dimx$(300):ti$="000000"
  93. 2020 open15,8,15
  94. 2030 open2,8,2,"#"
  95. 2040 readt1,t2,s1:ift1=-1thenprint""ti$:close2:close15:end
  96. 2050 fort=t1tot2
  97. 2060 fors=0tos1:printchr$(13)"  "t"[146]    "s
  98. 2065 geta$:ifa$="_"thenclose2:close15:goto10000
  99. 2070 print#15,"u1:"2;0;t;s
  100. 2080 fory=0to255
  101. 2090 get#2,x$(y)
  102. 2100 ifx$(y)<"a"orx$(y)>"z"then2120
  103. 2110 printx$(y);
  104. 2120 nexty,s,t:goto2040
  105. 3000 print"[147][211]chrittweiten-[212]est:"
  106. 3030 open15,8,15
  107. 3040 open2,8,2,"#"
  108. 3050 print"lesen [211]pur:     1[146]"
  109. 3060 fora=0to20
  110. 3070 print#15,"u1:"2;0;1;a
  111. 3080 nexta
  112. 3085 getx$:ifx$="_"thenclose2:close15:goto10000
  113. 3090 print"lesen [211]pur:    35[146]"
  114. 3100 fora=0to17
  115. 3110 print#15,"u1:"2;0;35;a
  116. 3120 nexta
  117. 3125 getx$:ifx$="_"thenclose2:close15:goto10000
  118. 3130 fora=2to34
  119. 3140 print#15,"u1:"2;0;a;0
  120. 3150 print"lesen [211]pur:   "a"[146]"
  121. 3160 next
  122. 3165 getx$:ifx$="_"thenclose2:close15:goto10000
  123. 3170 print"lesen [211]pur:    18[146]"
  124. 3180 fora=0to17
  125. 3190 print#15,"u1:"2;0;18;a
  126. 3200 nexta
  127. 3210 close2:close15
  128. 3260 open1,8,15:input#1,a,b$
  129. 3265 ifa=0then3300
  130. 3270 print"[198]ehler:[146]";b$
  131. 3280 print"[198]ehlernummer :[146]";a
  132. 3300 close1:goto10000
  133. 5000 print"[147] [204]esekopf-[202]ustage [146]"
  134. 5020 print"[198]loppy-[211]tatus waehrend der [213]ebung:"
  135. 5030 print"[204]esezeit (muss < 9 sein):"
  136. 5040 gosub5140
  137. 5050 a1$="":a2$="        [157][157][157][157][157][157][157][157]"
  138. 5060 a1$=a1$+"                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  139. 5070 open5,8,15:open4,8,3,"#":open1,8,15
  140. 5080 ti$="000000":print#5,"b-r";3;0;1;1:print#5,"b-p"3;1:get#4,a$
  141. 5090 rem
  142. 5100 print#5,"b-r";3;0;35;2:print#5,"b-p"3;1:get#4,a$
  143. 5110 input#1,x1,x2$,x3,x4:printa1$;x1;x2$;x3;x4:zw=ti
  144. 5120 printa2$;zw:ifzw<9thenforw=1to1000:nextw:goto5190
  145. 5125 getx$:ifx$="_"thenclose4:close5:close1:goto10000
  146. 5130 goto5080
  147. 5140 print"[196]ieses [208]rogramm trainiert  das  [208]ositio-";
  148. 5150 print"ren des [212]onkopfes seitens des [196]isketten-";
  149. 5160 print"laufwerkes.  [215]enn eine ausreichende [218]eit";
  150. 5170 print"erreicht ist,  geht es mit der naechsten";
  151. 5180 print"[213]ebung weiter.":return
  152. 5190 close4:close5:close1
  153. 5200 open1,8,15
  154. 5210 printa2$;"[145][206]un wird initialisiert!                "
  155. 5220 forw=1to10:print#1,"i":input#1,x1,x2$,x3,x4:printa1$;x1;x2$;x3;x4:nextw
  156. 5230 close1
  157. 5240 print"[147]   [196]as [196]iskettenlaufwerk und die [196]isk  "
  158. 5250 print"   haben die [213]ebung bestanden !        "
  159. 5260 print"[196]urch diese [208]rozedur..."
  160. 5270 print"...hat sich der [212]onkopf optimal[146] positio-";
  161. 5280 print"   niert
  162. 5290 [153]"...haben (NULL)ie somit (NULL)eparaturgeld und (NULL)e-";
  163. 5300 [153]"   paraturwartezeit gespart"
  164. 5310 [153]"...hat der (NULL)chrittmotor wieder ein  bis-";
  165. 5320 [153]"   chen (NULL)ebung bekommen und  (NULL)ie  sparen";
  166. 5330 [153]"   (NULL)ositionierungszeit"
  167. 5350 [153]"(NULL)urueck ins (NULL)enue bei (NULL)astendruck!":[151]198,0:[146]198,1:[137]10000
  168. 9900 [131]1,17,20,18,24,18,25,30,17,31,35,16,-1,0,0
  169. 10000 [151]53280,6:[151]53281,6:[153][199](14)[199](8)"loadsysstr$iskettenkontrollprogramm"
  170. 10010 [153]"(NULL)ie koennen waehlen:":b$[178]"       "
  171. 10020 [153]b$"await = (NULL)opfjustage automatisch"
  172. 10030 [153]b$"mwait = (NULL)opfjustage manuell"
  173. 10040 [153]b$"bwait = peekloecke einzeln lesen"
  174. 10045 [153]b$"swait = (NULL)chrittweiten - (NULL)est"
  175. 10047 [153]b$"ewait = (NULL)rogrammende"
  176. 10050 [153]"right$hre valingabe ?  ";
  177. 10060 [151]198,0:[146]198,1:[161]a$:[153]a$"cmd";:[139]a$[178]"a"[167]5000
  178. 10070 [139]a$[178]"m"[167]130
  179. 10080 [139]a$[178]"b"[167]2000
  180. 10090 [139]a$[178]"e"[167][153]"load":[128]
  181. 10095 [139]a$[178]"s"[167]3000
  182. 10100 [137] 10060
  183.