home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh6x / sh65b.d64 / esf (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  3.3 KB  |  183 lines
  1. 99 IFPEEK(166)=0THENPOKE166,99:LOAD"DIR",8,1
  2. 100 FORI=1TO37:LN$=LN$+CHR$(192):NEXT
  3. 101 FORI=1TO40:LY$=LY$+CHR$(192):NEXT
  4. 110 REM EDIT SEQ-FILE
  5. 160 POKE53280,1:POKE53281,1:POKE646,0
  6. 170 PRINTCHR$(14)CHR$(8)
  7. 180 DIMTE$(900):REM MAX ANZAHL DATENSATZ
  8. 190 OPEN15,8,15
  9. 200 PRINT"[147]"
  10. 210 PRINT"[176]"+LN$+"[174]"
  11. 220 PRINT"[221]        [197][196][201][212] [211][197][209] [198][201][204][197][211] ([197][211][198])         [221]"
  12. 230 PRINT"[221][211]EQUENTIELLE [196]ATEIEN LESEN/EDITIEREN [221]"
  13. 232 PRINT"[173]"+LN$+"[189]"
  14. 233 PRINTTAB(10)"VON [199]. [203]LUGE/[200].[194]EILER"
  15. 234 PRINTTAB(11)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][187]"
  16. 240 PRINTTAB(11)"[221][205]...[215]ORKMENUE   [182]"
  17. 242 PRINTTAB(11)"[221][196]...[196][201][210][197][195][212][207][210][217]   [182]"
  18. 250 PRINTTAB(11)"[221][216]...[208]ROGRAMMENDE[182]"
  19. 260 PRINTTAB(11)"[173][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]"
  20. 280 GETR$
  21. 285 IFR$="D"THENPRINT"[147]":SYS49152:POKE198,0:WAIT198,1:GOTO200
  22. 290 IFR$="X"THENCLOSE2:CLOSE15:END
  23. 300 IFR$="M"THEN350
  24. 310 GOTO280
  25. 320 REM SEQ-FILE LESEN
  26. 350 I=1
  27. 360 PRINT" [206]AME DER [211][197][209]-[196]ATEI:";:POKE19,64
  28. 370 INPUTN$:POKE19,0:PRINT
  29. 380 FI$=N$+",S,R"
  30. 470 REM GET# FROM DISK
  31. 480 GB=1:II=1:OPEN2,8,2,FI$
  32. 490 INPUT#15,A1,A2$,A3,A4
  33. 500 IFA1<>0THENGOSUB2320:GOTO350
  34. 510 PRINT"[147]"
  35. 540 PRINT""I"[146]";
  36. 560 GET#2,A$:IFPEEK(203)=60THENPOKE198,0:WAIT198,1
  37. 561 IFPEEK(203)=1THENPOKE198,1
  38. 570 IFA$=CHR$(13)THENPRINT:I=I+1:GOTO540
  39. 580 TE$(I)=TE$(I)+A$
  40. 590 PRINTA$;
  41. 610 IFST=>64THEN620
  42. 611 GOTO560
  43. 620 CLOSE2
  44. 630 I=I-1
  45. 800 REM EDIT
  46. 820 FLAG=0
  47. 830 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  48. 840 PRINT"[221]       [197] = [196]ATENFELD EINFUEGEN       [221]"
  49. 850 PRINT"[221]       [195] = [196]ATENFELD AENDERN         [221]"
  50. 860 PRINT"[221]       [204] = [196]ATENFELD LOESCHEN        [221]"
  51. 870 PRINT"[221]       [196] = [211][197][209]-[196]ATEI DRUCKEN         [221]"
  52. 880 PRINT"[221]       [215] = WEITER                    [221]"
  53. 890 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  54. 910 GETR$:IFR$=""THEN910
  55. 920 IFR$="E"THENGOSUB1470
  56. 930 IFR$="C"THENGOSUB1030
  57. 940 IFR$="L"THENGOSUB1620
  58. 950 IFR$="D"THENGOSUB1730
  59. 960 IFR$="W"THEN1960
  60. 970 GOTO800
  61. 980 :
  62. 990 :
  63. 1000 REM DATENFELD AENDERN
  64. 1010 PRINT"[147]"LY$
  65. 1030 PRINT" [196]ATENFELD AENDERN "
  66. 1050 PRINT" [211] = [211]TART"
  67. 1060 PRINT" [215] = WEITER"
  68. 1070 PRINTLY$
  69. 1090 GETR$:IFR$=""THEN1090
  70. 1100 IFR$="W"THENRETURN
  71. 1110 IFR$="S"THEN1300
  72. 1130 GOTO1030
  73. 1280 REM MIT GET
  74. 1290 PRINTLY$
  75. 1300 IFFLAG=1THEN1330
  76. 1310 PRINT"[215]ELCHE [196]ATENSATZ-[206]R.";
  77. 1320 INPUTN
  78. 1330 PRINT" [193]KTUELLER [201]NHALT: ":PRINTTE$(N):TE$(N)=""
  79. 1340 PRINTLY$
  80. 1350 PRINT" [206]EUER [201]NHALT:":PRINT
  81. 1360 POKE204,0:GETA$
  82. 1370 IFA$=CHR$(13)THENPOKE204,1:GOTO1420
  83. 1380 POKE207,0:POKE204,1:PRINTA$;
  84. 1390 TE$(N)=TE$(N)+A$
  85. 1400 GOTO1360
  86. 1410 :
  87. 1420 :
  88. 1430 PRINT""TE$(N)
  89. 1440 FLAG=0
  90. 1450 RETURN
  91. 1460 :
  92. 1470 REM DATENSATZ EINFUEGEN
  93. 1480 :
  94. 1490 PRINTLY$
  95. 1500 PRINT"[200]INTER WELCHER [196]ATENSATZNR.";
  96. 1510 INPUTN
  97. 1520 N=N+1
  98. 1530 FORL=ITONSTEP-1
  99. 1540 TE$(L+1)=TE$(L)
  100. 1550 NEXTL
  101. 1560 I=I+1
  102. 1570 FLAG=1
  103. 1580 PRINT" [206]EUES [196]ATENFELD EINGEBEN! "
  104. 1590 GOTO1010
  105. 1600 :
  106. 1610 :
  107. 1620 REM LOESCHEN
  108. 1630 :
  109. 1640 PRINT:PRINT
  110. 1650 PRINTLY$
  111. 1660 INPUT" [196]ATENFELDNR.";N
  112. 1670 IFN>ITHENPRINT"MAX= "I:GOTO1710
  113. 1680 FORL=NTOI:TE$(L)=TE$(L+1):NEXT
  114. 1690 I=I-1
  115. 1700 PRINT"[198]ELD"N" IST GELOESCHT":FORT=1TO200:NEXT
  116. 1710 RETURN
  117. 1720 :
  118. 1730 REM DRUCKEN
  119. 1740 PRINT:PRINTLY$:PRINT
  120. 1760 PRINT"[196]ATEI DRUCKEN"
  121. 1770 PRINT" 1= [196]RUCKEN"
  122. 1780 PRINT" 2= WEITER"
  123. 1800 GETR$
  124. 1810 IFR$="1"THEN1840
  125. 1820 IFR$="2"THEN1910
  126. 1821 GOTO1800
  127. 1840 OPEN1,4,7:CMD1
  128. 1850 PRINT"[196]ATEI: "N$
  129. 1860 FORJ=1TOI
  130. 1870 :PRINTJ;TE$(J)
  131. 1880 NEXTJ
  132. 1890 PRINT:PRINT:PRINT:PRINT
  133. 1900 PRINT#1:CLOSE1
  134. 1910 RETURN
  135. 1920 :
  136. 1930 :
  137. 1940 REM DATEI SPEICHERN
  138. 1950 PRINTLY$
  139. 1960 PRINT"[196]ATEI ERNEUT SPEICHERN (J/N)"
  140. 1990 PRINTLY$
  141. 2010 GETR$:IFR$="J"THEN2040
  142. 2020 IFR$="N"THENRUN
  143. 2030 GOTO2010
  144. 2040 PRINT
  145. 2050 PRINT"[196]ATEINAME";
  146. 2060 INPUTN$
  147. 2070 FI$=N$+",S,W"
  148. 2080 PRINT"[147]"
  149. 2090 CLOSE2:OPEN2,8,2,FI$
  150. 2100 INPUT#15,A1,A2$,A3,A4
  151. 2110 IFA1=0THEN2200
  152. 2120 IFA1<>63THENGOSUB2320:GOTO1960
  153. 2130 PRINT:PRINT" [198]ILENAME "N$" EXISTIERT SCHON!"
  154. 2140 PRINT:PRINT" [196]ATEI UEBERSCHREIBEN? (J/N)"
  155. 2160 GETR$:IFR$=""THEN2160
  156. 2170 IFR$="J"THENN$="@0:"+N$:GOTO2070
  157. 2180 IFR$<>"N"THEN2160
  158. 2190 PRINT:PRINT"[212]RY AGAIN!":GOTO1960
  159. 2200 FORJ=1TOI
  160. 2210 :PRINT#2,TE$(J):PRINT""J,I
  161. 2211 PRINT"[193]KTUELLES [196]ATENFELD   :";J
  162. 2212 PRINT"[199]ESAMTZAHL [196]ATENFELDER:";I
  163. 2220 NEXTJ
  164. 2230 :
  165. 2240 PRINTTAB(1)" 00,OK,00,00 "
  166. 2250 CLOSE2
  167. 2260 FORT=1TO500:NEXT
  168. 2270 RUN
  169. 2280 :
  170. 2290 :
  171. 2300 PRINT"[147]"
  172. 2310 PRINTLY$""
  173. 2320 PRINTLY$""
  174. 2330 PRINT"             [196]ISKETTENFEHLER!"
  175. 2340 PRINT"  [196]ATEI : "N$
  176. 2350 PRINT"[146]"
  177. 2360 PRINTA1,A2$,A3;A4
  178. 2370 CLOSE2
  179. 2390 PRINT" [212]ASTE <[198]> DRUECKEN!"
  180. 2400 GETR$:IFR$<>"F"THEN2400
  181. 2410 PRINT"[147]"
  182. 2420 RETURN
  183.