home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-10_1992_-_de_Side_B.d64 / kopfjustage (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  983b  |  30 lines
  1. 10 rem"(c) by rainbow arts
  2. 11 [143] ""[204]
  3. 12 [143] ""[204]
  4. 13 [151]53280,11:[151]53281,0:[153][199](142)[199](8)
  5. 14 [159]15,8,15,"m-w"[170][199](7)[170][199](28)[170][199](1)[170][199](15):[160]15
  6. 15 [129] ww[178]1 [164] 3
  7. 17 [143] ""[204]
  8. 20 [153]"loadpoke  disk-kopfjustage    by rainbow arts   wait
  9. 25 print"[154] disk-status waehrend justage :"
  10. 27 print" lesezeit ( muss <4.5 sein ) :"
  11. 28 print" durchlauf :"ww
  12. 30 aa$=" ":bb$="        [157][157][157][157][157][157][157][157]"
  13. 31 rem ""(NULL)
  14. 35 a1$=a1$+"                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  15. 40 open15,8,15:open4,8,3,"#"
  16. 50 ti$="000000":print#15,"b-r";3;0;1;3:print#15,"b-p"3;1:get#4,a$
  17. 70 print#15,"b-r";3;0;35;3:print#15,"b-p"3;1:get#4,a$
  18. 80 input#15,a$,b$,c$,d$:printaa$;b$:rr=ti
  19. 85 rem ""(NULL)
  20. 90 printbb$;rr/2:ifrr<9thenforw=1to1100:nextw:goto160
  21. 100 goto50
  22. 160 close4:close15
  23. 165 rem ""(NULL)
  24. 170 open15,8,15
  25. 180 printbb$;"[145][154] diskette wird initialisiert ! "
  26. 190 forw=1to12:print#15,"i":input#15,a$,b$,c$,d$:printaa$;b$:nextw:close15
  27. 205 next ww
  28. 210 print"[147][151]         disk-drive justiert !!         "
  29. 220 print"load"chr$(34)":*"chr$(34)",8,1[145][145][145]":new
  30.