home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / floppyfehler (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  112 lines
  1. 1000 rem *** teil a
  2. 1001 :
  3. 1010 af=6
  4. 1020 dim en(af)
  5. 1100 data 26
  6. 1110 data 72
  7. 1120 data 74
  8. 1130 data 64
  9. 1140 data 62
  10. 1150 data 63
  11. 1500 for i=1 to af
  12. 1510 read en(i)
  13. 1520 next i
  14. 1530 open 14,8,15
  15. 1540 :
  16. 1600 rem *** teil b
  17. 1601 :
  18. 1610 dim n$(300),s$(300),o$(100),t$(100)
  19. 2000 aa=0
  20. 2100 print chr$(147)
  21. 2110 input "dateiname: ";dn$
  22. 2120 print
  23. 2130 open 1,8,8,dn$+",s,r"
  24. 2140 gosub 9000
  25. 2150 if a=62 then 2300
  26. 2160 if a=0 then 2200
  27. 2170 close 1
  28. 2180 goto 2100
  29. 2190 :
  30. 2200 rem *** teil 3
  31. 2210 input#1,aa
  32. 2220 for i=1 to aa
  33. 2230 input#1,n$(i),s$(i),o$(i),t$(i)
  34. 2240 print n$(i) : print s$(i)
  35. 2250 print o$(i) : print t$(i)
  36. 2260 print
  37. 2270 next i
  38. 2300 close 1
  39. 2310 aa=aa+1
  40. 2320 input "name: ";n$(aa)
  41. 2330 input "strasse: ";s$(aa)
  42. 2340 input "ort: ";o$(aa)
  43. 2350 input "telefon: ";t$(aa)
  44. 2360 print
  45. 2370 input "weiter machen (j/n)";e$
  46. 2380 if e$="j" then goto 2310
  47. 2390 :
  48. 2400 rem *** teil d
  49. 2401 :
  50. 2410 open 1,8,8,dn$+",s,w"
  51. 2420 gosub 9000
  52. 2430 if a=0 then 2600
  53. 2440 close 1
  54. 2450 if a<>63 goto 2400
  55. 2500 print#14,"s:"+dn$+".bak"
  56. 2510 print#14,"r:"+dn$+".bak="+dn$
  57. 2520 goto 2400
  58. 2600 print#1,aa
  59. 2610 for i=1 to aa
  60. 2620 print#1,n$(i):print#1,s$(i)
  61. 2630 print#1,o$(i):print#1,t$(i)
  62. 2640 next i
  63. 2650 close 1 : close 14
  64. 2660 print "programm beendet"
  65. 3000 end
  66. 3010 :
  67. 9000 rem *** teil e
  68. 9001 :
  69. 9010 input#14,a,b$,c,d
  70. 9020 if a=0 then return
  71. 9030 print
  72. 9040 i9=1
  73. 9050 if en(i9)=a then 9100
  74. 9060 i9=i9+1
  75. 9070 if i9<=af then 9050
  76. 9080 print a;" ";b$;"  ";"spur:";c;" sektor:";d
  77. 9090 stop : rem programmabbruch
  78. 9100 on i9 goto 9200,9300,9400,9500
  79. 9110 return
  80. 9120 :
  81. 9200 rem *** fehlermeldung 1
  82. 9210 print "die diskette ist schreibgeschuetzt" : print
  83. 9220 print "wenn sie mit der diskette arbeiten wollen"
  84. 9230 print "  dann entfernen sie den schutz"
  85. 9240 gosub 9900
  86. 9250 return
  87. 9260 :
  88. 9300 rem *** fehlermeldung 2
  89. 9310 print "die diskette oder das inhaltsverzeichnis sind voll"
  90. 9320 print "  legen sie eine andere diskette ein"
  91. 9330 gosub 9900
  92. 9340 return
  93. 9350 :
  94. 9400 rem *** fehlermeldung 3
  95. 9410 print "es befindet sich keine formattierte"
  96. 9420 print "  diskette im laufwerk"
  97. 9430 gosub 9900
  98. 9440 return
  99. 9450 :
  100. 9500 rem *** fehlermeldung 4
  101. 9510 print "diese datei existiert bereits als programmdatei"
  102. 9520 print "  auf der diskette"
  103. 9530 print "waehlen sie einen anderen namen"
  104. 9540 gosub 9900
  105. 9550 return
  106. 9560 :
  107. 9900 rem *** taste abwarten
  108. 9910 print : print "wenn fertig - taste druecken"
  109. 9920 get e$ : if e$="" then 9920
  110. 9930 return
  111. 9940 :
  112.