home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / floppyfehler (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.