home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_B.d64 / format 1-41 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.5 KB  |  76 lines
  1. 10002 rem ***************************
  2. 10003 rem * formatieren spuren 1-41 *
  3. 10004 rem  ***************************
  4. 10008 rem *** resevieren puffer 2
  5. 10009 :
  6. 10110 open15,8,15,"i":close15:open3,8,3,"#2"
  7. 10120 get#3,a$:ifasc(a$+chr$(0))<>2thenprint"bitte floppyrest":end
  8. 10200 rem
  9. 10210 rem *** lesen maschinenprogramme
  10. 10220 rem     fuer floppy in zwischensp.
  11. 10230 :
  12. 10240 dimtf%(256)
  13. 10250 open1,8,0,"fp.formater.obj"
  14. 10260 get#1,lb$
  15. 10270 get#1,hb$
  16. 10280 fori=0to256
  17. 10290 get#1,y$:ify$=""theny$=chr$(0)
  18. 10300 y=asc(y$)
  19. 10310 tf%(i)=y
  20. 10320 ifst=64theni=256
  21. 10330 nexti
  22. 10340 close1
  23. 10500 :
  24. 10510 rem *** erzeugen diskette
  25. 10520 :
  26. 10530 :
  27. 10540 input"[147]bitte diskette wechseln. <return>";x$
  28. 10550 print"[147]diskette wird formatiert.         "
  29. 10560 input"diskettenname ";n$
  30. 10570 iflen(n$)>16then10560
  31. 10580 dn$=n$
  32. 10590 input"disketten id";n$
  33. 10600 iflen(n$)>2then10590
  34. 10610 di$=n$:ifdn$="*"then10640
  35. 10611 :
  36. 10612 :
  37. 10613 rem *** formatieren 1-35
  38. 10614 :
  39. 10620 open15,8,15,"n:"+dn$+","+di$
  40. 10630 close15
  41. 10640 open15,8,15
  42. 10670 :
  43. 10671 :
  44. 10672 rem *** laden formatierungsroutine
  45. 10673 rem     in floppypuffer
  46. 10674 :
  47. 10680 mw$="m"+"-"+"w"
  48. 10690 fori=1536to1681
  49. 10700 x=tf%(i-1536)
  50. 10710 hb=int(i/256):lb=i-(hb*256)
  51. 10720 print#15,mw$+chr$(lb)chr$(hb)chr$(1)chr$(x)
  52. 10730 nexti
  53. 10733 :
  54. 10734 :
  55. 10735 rem *** laden sprungadresse in
  56. 10736 rem     floppypuffer
  57. 10737 fori=36to41:print"spur";i;"formatieren..."
  58. 10740 print#15,mw$+chr$(0)chr$(5)chr$(3)chr$(76)chr$(41)chr$(6)
  59. 10743 :
  60. 10744 :
  61. 10745 rem *** uebergeben disk-id in
  62. 10746 rem     floppypuffer
  63. 10747 :
  64. 10750 i1$=mid$(di$,1,1):i2$=mid$(di$,2,1):i1=asc(i1$):i2=asc(i2$)
  65. 10760 print#15,mw$+chr$(3)+chr$(5)+chr$(1)+chr$(i1)
  66. 10770 print#15,mw$+chr$(4)+chr$(5)+chr$(1)+chr$(i2)
  67. 10773 :
  68. 10774 :
  69. 10775 rem *** formatieren von spur 36
  70. 10776 rem     bis spur 41
  71. 10777 :
  72. 10780 u3$="u"+"3"+" 3 0"+str$(i)+" 00"
  73. 10790 print#15,u3$:input#15,f,ft$,t,s:iffthenprintu3$;f;ft$;t;s
  74. 10792 next
  75. 11000 close15:close3
  76.