home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 86
/
64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64
/
basis-datei
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
250 lines
100 rem*******************************
110 rem basis datei fuer girokonto
120 rem*******************************
130 (NULL)0:poke53281,0:poke53280,0
140 print"[147]"
150 gosub 5000:rem init variable
160 close15: open15,8,15
170 open2,8,2,"vorgabe,s,r"
180 gosub10000:rem fehler?
190 if a1= 0 then 500
200 :
210 rem einrichten datei
220 close2:open2,8,2,"vorgabe,s,w"
230 gosub10000
240 ifa<>0 then 220
250 da$(0)="1"
260 da$(1)="[206]r. [212]itel [197]mpfaenger [194]etrag"
300 ei$(0)="1"
310 ei$(1)="[212]yp [193]uftraggeber [194]etrag"
400 tr$(0)="1"
410 tr$(1)="[201]nstitut [203]onto-[206]r. [212]yp/[193]rt"
425 print#2,da$(0)
430 fori=1to2:print#2,da$(i):next
435 print#2,ei$(0)
440 fori=1to2:print#2,ei$(i):next
445 print#2,tr$(0)
450 fori=1to2:print#2,tr$(i):next
460 close2
480 goto1000
500 rem------------------------------
510 rem laden der datei
520 rem------------------------------
530 :
540 close2: open2,8,2,"vorgabe,s,r"
550 gosub10000:ifa1<>0then540
560 input#2,da$(0)
570 fori=1to val(da$(0)):input#2,da$(i):next
600 input#2,ei$(0)
610 fori=1to val(ei$(0)):input#2,ei$(i):next
640 input#2,tr$(0)
650 fori=1to val(tr$(0)):input#2,tr$(i):next
680 close2
1000 rem--------------------------
1010 rem menue
1020 rem--------------------------
1230 :
1240 print"[147]"
1242 (NULL)12,3, "[199] i r o k o n o"
1244 (NULL) 5,5,"[194]asis-[196]atei : [193]endern [197]ingabe"
1250 (NULL)5,8,"1 = [196]auerauftraege
1260 [206]5,10,"2 = valinkuenfte"
1270 [206]5,12,"3 = eigene (NULL)onten"
1275 [206]5,14,"0 = (NULL)uit "
1280 [206] 5,20,"(NULL)ahl: ";
1290 [213]1,"1230",w$
1300 [139]w$[178]"1"[167] [141] 2000
1310 [139]w$[178]"2"[167] [141] 3000
1320 [139]w$[178]"3"[167] [141] 4000
1340 [139]w$[178]"0"[167] [141] 7000:[128]
1350 [137]1240
1360 :
2000 [143]----------------------------
2010 [143] aendern,anzeigen dauer.
2020 [143]----------------------------
2030 :
2050 [153]"loadopen"
2060 [206]12,3,"chr$ i r o k o n t o"
2074 [206]12,5,"str$auerauftraege"
2080 [206]1,8, da$(1)
2090 da[178][197](da$(0))
2092 [139]da[177] 9 [167] da[178] 9
2100 [129]i[178]2[164] da:[206]0,8[170]i,"open"da$(i):[130]
2110 kz$[178]" valingabe atnendern (NULL)uit": [141]6000:[143] kontrollzeile
2120 [213]0,"eaq",r$
2125 [141]6200:[143] loeschen kontrolle
2130 [139]r$[178]"q"[167] [142]
2140 [139]r$[178]"a"[167] [141]2500
2150 [139]r$[178]"e"[175]da[179]14 [167] da[178]da[170]1:[141]2170:[141]2200 :da$(0)[178][196](da)
2160 [137]2092
2170 da$(da)[178]"..... ...... ............ ":[142]
2200 :
2210 [143] eingabe
2220 :
2230 [206]0,8[170]da,"waitopen";
2240 [204][200](da$(da),5)," ",5,d1$
2242 d1$[178][200](d1$[170]".....",5)
2250 [206]6,8[170]da,"";
2260 [204][202](da$(da),7,6)," ", 6,d2$
2262 d2$[178][200](d2$[170]"......",6)
2270 [206]14,8[170]da,"";
2280 [204][202](da$(da),15,11)," ",11,d3$
2282 d3$[178][200](d3$[170]"...........",11)
2290 [206]27,8[170]da,"";
2300 [204][202](da$(da),28,9) ,". ", 9,d4$
2302 d4$[178][201](" "[170]d4$,9)
2310 da$(da)[178]d1$[170]" "[170]d2$[170]" "[170]d3$[170]" "[170]d4$
2330 [142]
2340 :
2500 [143]---- aendern ---------
2510 :
2515 kz$[178]" atnendern len(NULL)(NULL)(NULL)down len(NULL)(NULL)(NULL)up (NULL)uit ":[141]6000
2520 da[178]2
2530 [208]0,8[170]da,5,160,5,""da$(da)"wait";
2540 [213]0,"onaq",r$
2550 [139]r$[178]""[175] da[179] [197](da$(0))[167] [141]2600:da[178]da[170]1
2560 [139]r$[178]"on"[175] da[177] 2 [167] [141]2600:da[178]da[171]1
2570 [139]r$[178]"q"[167] da[178][197](da$(0)): [142]
2575 [139]r$[178]"a"[167] [141]2600:[141] 2230
2580 [137]2530
2600 [208]0,8[170]da,5,32 ,3,da$(da)
2610 [142]
3000 [143]----------------------------
3010 [143] aendern,anzeigen einkunft
3020 [143]----------------------------
3030 :
3050 [153]"loadopen"
3060 [206]12,3,"chr$ i r o k o n o"
3074 [206]12,5," valinkuenfte "
3080 [206]1,8, ei$(1)
3090 da[178][197](ei$(0))
3092 [139]da[177] 9 [167] da[178] 9
3100 [129]i[178]2[164] da:[206]0,8[170]i,"open"ei$(i):[130]
3110 kz$[178]" valingabe atnendern (NULL)uit": [141]6000:[143] kontrollzeile
3120 [213]0,"eaq",r$
3125 [141]6200:[143] loeschen kontrolle
3130 [139]r$[178]"q"[167] [142]
3140 [139]r$[178]"a"[167] [141]3500
3150 [139]r$[178]"e"[175]da[179]14 [167] da[178]da[170]1: [141]3170:[141]3200 :ei$(0)[178][196](da)
3160 [137]3092
3170 ei$(da)[178]".......... .............. "
3180 [142]
3200 :
3210 [143] eingabe einkuenfte
3220 :
3230 [206]0,8[170]da,"waitopen";
3240 [204][200](ei$(da),10)," ",10,d1$
3242 d1$[178][200](d1$[170]"..........",10)
3250 [206]11,8[170]da,"";
3260 [204][202](ei$(da),12,14)," ",14,d2$
3262 d2$[178][200](d2$[170]"..............",14)
3270 [206]27,8[170]da,"";
3280 [204][202](ei$(da),28, 9),". ",9,d3$
3282 d3$[178][201](" "[170]d3$,9)
3310 ei$(da)[178]d1$[170]" "[170]d2$[170]" "[170]d3$
3330 [142]
3340 :
3500 [143]---- aendern ---------
3510 :
3515 kz$[178]" atnendern len(NULL)(NULL)(NULL)down len(NULL)(NULL)(NULL)up (NULL)uit ":[141]6000
3520 da[178]2
3530 [208]0,8[170]da,5,160,5,""ei$(da)"wait";
3540 [213]0,"onaq",r$
3550 [139]r$[178]""[175] da[179] [197](ei$(0))[167] [141]3600:da[178]da[170]1
3560 [139]r$[178]"on"[175] da[177] 2 [167] [141]3600:da[178]da[171]1
3570 [139]r$[178]"q"[167] da[178][197](ei$(0)): [142]
3575 [139]r$[178]"a"[167] [141]3600:[141] 3230
3580 [137]3530
3590 [143] zeile revers on
3600 [208]0,8[170]da,5,32 ,3,ei$(da)
3610 [142]
4000 [143]----------------------------
4010 [143] aendern,anzeigen transfer
4020 [143]----------------------------
4030 :
4050 [153]"loadopen"
4060 [206]12,3,"chr$ i r o k o n t o"
4074 [206]12,5," eigene (NULL)onten"
4080 [206]1,8, tr$(1)
4090 da[178][197](tr$(0))
4092 [139]da[177] 9 [167] da[178] 9
4100 [129]i[178]2[164] da:[206]0,8[170]i,"open"tr$(i):[130]
4110 kz$[178]" valingabe atnendern (NULL)uit": [141]6000:[143] kontrollzeile
4120 [213]0,"eaq",r$
4125 [141]6200:[143] loeschen kontrolle
4130 [139]r$[178]"q"[167] [142]
4140 [139]r$[178]"a"[167] [141]4500
4150 [139]r$[178]"e"[175]da[179]14 [167] da[178]da[170]1: [141]4170:[141]4200 :tr$(0)[178][196](da)
4160 [137]4092
4170 tr$(da)[178]"............. .......... ............" :[142]
4200 :
4210 [143] eingabe transfer
4220 :
4230 [206]0,8[170]da,"waitopen";
4240 [204][200](tr$(da),13)," ",13,d1$
4242 d1$[178][200](d1$[170]".............",13)
4250 [206]14,8[170]da,"";
4260 [204][202](tr$(da),15,10)," ",10,d2$
4262 d2$[178][200](d2$[170]"..........",10)
4270 [206]26,8[170]da,"";
4280 [204][202](tr$(da),27,11)," ",11,d3$
4282 d3$[178][200](d3$[170]"...........",11)
4310 tr$(da)[178]d1$[170]" "[170]d2$[170]" "[170]d3$
4330 [142]
4340 :
4500 [143]---- aendern ---------
4510 :
4515 kz$[178]" atnendern len(NULL)(NULL)(NULL)down len(NULL)(NULL)(NULL)up (NULL)uit ":[141]6000
4520 da[178]2
4530 [208]0,8[170]da,5,160,5,""tr$(da)"wait";
4540 [213]0,"onaq",r$
4550 [139]r$[178]""[175] da[179] [197](tr$(0))[167] [141]4600:da[178]da[170]1
4560 [139]r$[178]"on"[175] da[177] 2 [167] [141]4600:da[178]da[171]1
4570 [139]r$[178]"q"[167] da[178][197](tr$(0)): [142]
4575 [139]r$[178]"a"[167] [141]4600:[141] 4230
4580 [137]4530
4590 [143] zeile revers on
4600 [208]0,8[170]da,5,32 ,3,tr$(da)
4610 [142]
5000 [143]-----------------------------
5010 [143] init variable
5020 [143]-----------------------------
5030 :
5040 [134] da$(20),ei$(20),tr$(20)
5050 :
5060 :
5070 [142]
5080 :
6000 [143]----------------------------
6010 [143] kontrollzeile
6020 [143]----------------------------
6030 :
6040 [208]0,24,40,160,5,kz$;:[153]"open";
6100 [142]
6200 [143]----------------------------
6230 :
6240 [208]0,24,40,32 ,0," ";
6245 [153]"openwait";
6250 [142]
7000 [143]---------------------------
7010 [143] speichern
7020 [143]---------------------------
7030 :
7040 [160]2:[159]2,8,2,"@:vorgabe,s,w"
7050 [129]i[178]0[164] [197](da$(0)):[152]2,da$(i):[130]
7060 [129]i[178]0[164] [197](ei$(0)):[152]2,ei$(i):[130]
7070 [129]i[178]0[164] [197](tr$(0)):[152]2,tr$(i):[130]
7080 [160]2
7090 [142]
10000 [143]---------------------------
10010 [143] floppy fehler
10020 [143]---------------------------
10030 :
10040 [132]15,a1,a2$
10050 [139] a1[178]0 [167] [142]
10060 [139] a1[178]62 [167] [142]
10070 [153]"fehler"a1,a2$
10075 [153]:[153] "str$ruecke (NULL)aste";
10080 [213]1,"",r$
10090 [142]