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 >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
183 lines
99 ifpeek(166)=0thenpoke166,99:load"dir",8,1
100 fori=1to37:ln$=ln$+chr$(192):next
101 fori=1to40:ly$=ly$+chr$(192):next
110 rem edit seq-file
160 poke53280,1:poke53281,1:poke646,0
170 printchr$(14)chr$(8)
180 dimte$(900):rem max anzahl datensatz
190 open15,8,15
200 print"[147]"
210 print"[176]"+ln$+"[174]"
220 print"[221] [197][196][201][212] [211][197][209] [198][201][204][197][211] ([197][211][198]) [221]"
230 print"[221][211]equentielle [196]ateien lesen/editieren [221]"
232 print"[173]"+ln$+"[189]"
233 printtab(10)"von [199]. [203]luge/[200].[194]eiler"
234 printtab(11)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][187]"
240 printtab(11)"[221][205]...[215]orkmenue [182]"
242 printtab(11)"[221][196]...[196][201][210][197][195][212][207][210][217] [182]"
250 printtab(11)"[221][216]...[208]rogrammende[182]"
260 printtab(11)"[173][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]"
280 getr$
285 ifr$="d"thenprint"[147]":sys49152:poke198,0:wait198,1:goto200
290 ifr$="x"thenclose2:close15:end
300 ifr$="m"then350
310 goto280
320 rem seq-file lesen
350 i=1
360 print" [206]ame der [211][197][209]-[196]atei:";:poke19,64
370 inputn$:poke19,0:print
380 fi$=n$+",s,r"
470 rem get# from disk
480 gb=1:ii=1:open2,8,2,fi$
490 input#15,a1,a2$,a3,a4
500 ifa1<>0thengosub2320:goto350
510 print"[147]"
540 print""i"[146]";
560 get#2,a$:ifpeek(203)=60thenpoke198,0:wait198,1
561 ifpeek(203)=1thenpoke198,1
570 ifa$=chr$(13)thenprint:i=i+1:goto540
580 te$(i)=te$(i)+a$
590 printa$;
610 ifst=>64then620
611 goto560
620 close2
630 i=i-1
800 rem edit
820 flag=0
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]"
840 print"[221] [197] = [196]atenfeld einfuegen [221]"
850 print"[221] [195] = [196]atenfeld aendern [221]"
860 print"[221] [204] = [196]atenfeld loeschen [221]"
870 print"[221] [196] = [211][197][209]-[196]atei drucken [221]"
880 print"[221] [215] = weiter [221]"
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]"
910 getr$:ifr$=""then910
920 ifr$="e"thengosub1470
930 ifr$="c"thengosub1030
940 ifr$="l"thengosub1620
950 ifr$="d"thengosub1730
960 ifr$="w"then1960
970 goto800
980 :
990 :
1000 rem datenfeld aendern
1010 print"[147]"ly$
1030 print" [196]atenfeld aendern "
1050 print" [211] = [211]tart"
1060 print" [215] = weiter"
1070 printly$
1090 getr$:ifr$=""then1090
1100 ifr$="w"thenreturn
1110 ifr$="s"then1300
1130 goto1030
1280 rem mit get
1290 printly$
1300 ifflag=1then1330
1310 print"[215]elche [196]atensatz-[206]r.";
1320 inputn
1330 print" [193]ktueller [201]nhalt: ":printte$(n):te$(n)=""
1340 printly$
1350 print" [206]euer [201]nhalt:":print
1360 poke204,0:geta$
1370 ifa$=chr$(13)thenpoke204,1:goto1420
1380 poke207,0:poke204,1:printa$;
1390 te$(n)=te$(n)+a$
1400 goto1360
1410 :
1420 :
1430 print""te$(n)
1440 flag=0
1450 return
1460 :
1470 rem datensatz einfuegen
1480 :
1490 printly$
1500 print"[200]inter welcher [196]atensatznr.";
1510 inputn
1520 n=n+1
1530 forl=itonstep-1
1540 te$(l+1)=te$(l)
1550 nextl
1560 i=i+1
1570 flag=1
1580 print" [206]eues [196]atenfeld eingeben! "
1590 goto1010
1600 :
1610 :
1620 rem loeschen
1630 :
1640 print:print
1650 printly$
1660 input" [196]atenfeldnr.";n
1670 ifn>ithenprint"max= "i:goto1710
1680 forl=ntoi:te$(l)=te$(l+1):next
1690 i=i-1
1700 print"[198]eld"n" ist geloescht":fort=1to200:next
1710 return
1720 :
1730 rem drucken
1740 print:printly$:print
1760 print"[196]atei drucken"
1770 print" 1= [196]rucken"
1780 print" 2= weiter"
1800 getr$
1810 ifr$="1"then1840
1820 ifr$="2"then1910
1821 goto1800
1840 open1,4,7:cmd1
1850 print"[196]atei: "n$
1860 forj=1toi
1870 :printj;te$(j)
1880 nextj
1890 print:print:print:print
1900 print#1:close1
1910 return
1920 :
1930 :
1940 rem datei speichern
1950 printly$
1960 print"[196]atei erneut speichern (j/n)"
1990 printly$
2010 getr$:ifr$="j"then2040
2020 ifr$="n"thenrun
2030 goto2010
2040 print
2050 print"[196]ateiname";
2060 inputn$
2070 fi$=n$+",s,w"
2080 print"[147]"
2090 close2:open2,8,2,fi$
2100 input#15,a1,a2$,a3,a4
2110 ifa1=0then2200
2120 ifa1<>63thengosub2320:goto1960
2130 print:print" [198]ilename "n$" existiert schon!"
2140 print:print" [196]atei ueberschreiben? (j/n)"
2160 getr$:ifr$=""then2160
2170 ifr$="j"thenn$="@0:"+n$:goto2070
2180 ifr$<>"n"then2160
2190 print:print"[212]ry again!":goto1960
2200 forj=1toi
2210 :print#2,te$(j):print""j,i
2211 print"[193]ktuelles [196]atenfeld :";j
2212 print"[199]esamtzahl [196]atenfelder:";i
2220 nextj
2230 :
2240 printtab(1)" 00,ok,00,00 "
2250 close2
2260 fort=1to500:next
2270 run
2280 :
2290 :
2300 print"[147]"
2310 printly$""
2320 printly$""
2330 print" [196]iskettenfehler!"
2340 print" [196]atei : "n$
2350 print"[146]"
2360 printa1,a2$,a3;a4
2370 close2
2390 print" [212]aste <[198]> druecken!"
2400 getr$:ifr$<>"f"then2400
2410 print"[147]"
2420 return