home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64 / esf (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  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.