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