home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 41 / Tiger_Disk_041_1997-08_Tiger-Crew-Disk_de_Side_B.d64 / 1541-exerciser (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 10 poke53280,11:poke53281,12
  2. 20 print"[147][151] disk-exerciser  by hg-software systems [146]
  3. 25 [153]"stopdisk-status waehrend training:"
  4. 27 [153]"stoplesezeit (mindestens    < 10):"
  5. 28 [141]110
  6. 30 a1$[178]"":a2$[178]"        cmdcmdcmdcmdcmdcmdcmdcmd"
  7. 35 a1$[178]a1$[170]"                    cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
  8. 40 [159]5,8,15:[159]4,8,3,"#":[159]1,8,15
  9. 50 ti$[178]"000000":[152]5,"b-r";3;0;1;1:[152]5,"b-p"3;1:[161]#4,a$
  10. 60 [143]
  11. 70 [152]5,"b-r";3;0;35;2:[152]5,"b-p"3;1:[161]#4,a$
  12. 80 [132]1,x1,x2$,x3,x4:[153]a1$;x1;x2$;x3;x4:zw[178]ti
  13. 90 [153]a2$;zw:[139]zw[179]10[167][129]w[178]1[164]1000:[130]w:[137]160
  14. 100 [137]50
  15. 110 [153]"verifydieses proggi positioniert den tonkopf  der";
  16. 120 [153]" floppy."
  17. 130 [153]"ist die richtige zeit erreicht,";
  18. 140 [153]" geht es mit der naechsten uebung weiter.";
  19. 150 [153]"stop":[142]
  20. 160 [160]4:[160]5:[160]1
  21. 170 [159]1,8,15
  22. 180 [153]a2$;"onstopintialisiere !                   "
  23. 190 [129]w[178]1[164]10:[152]1,"i":[132]1,x1,x2$,x3,x4:[153]a1$;x1;x2$;x3;x4:[130]w
  24. 200 [160]1
  25. 210 [153]"loadpoke   floppy und disk haben die uebung     ";
  26. 220 [153]"                durchlaufen.            "
  27. 230 [153]"stopdurch diese uebung......."
  28. 240 [153]"...wurde der tonkopf optimal               eingestellt."
  29. 260 [153]"...hast du reparaturkosten gespart und";
  30. 270 [153]"     wartezeit fuer raparaturen."
  31. 280 [153]"...wurde der schrittmotor trainiert        und du sparst zeit."
  32. 300 [146] 198,1:[158]64738
  33.