home *** CD-ROM | disk | FTP | other *** search
- 100 ifpeek(50307)=120thenpoke50257,0
- 1000 rem*haushaltsbelege*gerhard mueller-greif*0561/44440*010485
- 1010 rem ************************menue**************************
- 1020 poke53280,1:poke53281,1
- 1030 restore:printchr$(142);chr$(8);"[154][147]";
- 1040 print"[176][192][192][192][195][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146] "
- 1050 print"[194] haushaltsbelege [194][146] "
- 1060 print"[173][192][192][192][192][195][192][192][192][192][192][192][192][192][192][192][192][192][189][146] "
- 1070 print
- 1080 print"[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][192][174][146]";
- 1090 print"[194][146] f1 [146] eingabe der belege [194][146]";
- 1100 print"[171][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][192][179][146]";
- 1110 print"[194][146] f3 [146] ausgabe nach kriterien [194][146]";
- 1120 print"[171][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][192][179][146]";
- 1130 print"[194][146] f5 [146] korrektur nach beleg-nr. [194][146]";
- 1140 print"[171][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][192][179][146]";
- 1150 print"[194][146] f7 [146] abspeichern / verifizieren [194][146]";
- 1164 print"[173][192][192][195][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][195][195][195][192][192][192][192][192][192][192][192][189][146]";
- 1170 print"":fr=fre(64):r=int(fr/38)
- 1180 print" [213][195][195][195][195][195][195][195][201]"
- 1190 print" [194] [194] _ bytes frei"
- 1200 print" [202][195][195][195][195][195][195][195][203]";"[145][157][157][157][157][157][157][157][157]";fr
- 1210 print" noch ";""r"[157] eingaben [146]";" moeglich ! "
- 1220 readdz:dz=dz+1:bn=dz-10000:bl=bn-1
- 1230 ifbl<10thenbl$=""+str$(bl)+"[157][157][157]00"
- 1240 ifbl>9andbl<100thenbl$=str$(bl)+"[157][157][157]0"
- 1250 ifbl>99thenbl$="[157]"+str$(bl)
- 1260 ifr=2thenprint" vorletzte dateneingabe [146]"
- 1270 ifr=1thenprint" letzte dateneingabe [146]"
- 1280 ifr<1thenprint" ende der dateneingabe [146]"
- 1290 getmw$:ifmw$="[133]"andr>1then1350
- 1300 ifmw$="[134]"then2240
- 1310 ifmw$="[135]"then4520
- 1320 ifmw$="[136]"then5070
- 1330 goto1290
- 1340 rem ******************** e i n g a b e *********************
- 1350 ifbn<10thenbn$=""+str$(bn)+"[157][157][157]00"
- 1360 ifbn>9andbn<100thenbn$=str$(bn)+"[157][157][157]0"
- 1370 ifbn>99thenbn$="[157]"+str$(bn)
- 1380 print"[147]datum :tt.mm.jj "
- 1390 print"[145]beleg-nr.:"bn$"[146]"
- 1400 print"betrag :******* "
- 1410 print"ber./art.:[187][187][187][187][187]......."
- 1420 print"einn./ausg.(+/-):*"
- 1430 ifpf$="n"then1470
- 1440 ifk<>1thenprint"****************************************[146]"
- 1450 ifk=1thenprintchr$(18);" ";d2$;" ";d3$;" ";d4$;" ";d5$
- 1460 goto1490
- 1470 printchr$(18);" ";left$(b$,8);" ";mid$(b$,9,7);
- 1480 print" ";mid$(b$,16,12);" ";right$(b$,1);" "
- 1490 print"<cr>[146] zeilensprung - loeschen[146]......"
- 1500 print"<del>[146] korrektur in der zeile"
- 1510 print"<c=><m>[146] abbruch der eingabe, menue"
- 1520 print" [187][187][187][187][187] b e l e g b e r e i c h e [187][187][187][187][187] [146]"
- 1530 print" auto- bank- bekl- beruf "
- 1540 print" comp- leben schec sonst "
- 1550 print" tabak vers- wohn- zeit-"
- 1560 cs$=""
- 1570 el=8:b$="":n$="tt.mm.jj"
- 1580 getez$:ifez$=chr$(167)thenrun
- 1590 ife$=""andez$=chr$(13)then1820
- 1600 ifez$=chr$(13)then1940
- 1610 ifez$=chr$(44)thenez$=chr$(46)
- 1620 ifez$=chr$(20)andlen(e$)<1then1580
- 1630 ifez$=chr$(20)thene$=left$(e$,len(e$)-1):goto1690
- 1640 ifez$>chr$(15)andez$<chr$(32)then1580
- 1650 ifez$>chr$(95)then1580
- 1660 e$=e$+ez$
- 1670 ifel=7orel=8theniflen(e$)=elthen1940
- 1680 iflen(e$)=elthen1830
- 1690 l=len(e$)
- 1700 printcs$;e$;mid$(n$,l+1,el-l);" "
- 1710 printcs$;"";:fori=0tol:print" ";:next:print"[157]^ "
- 1720 goto1580
- 1730 print"":printcs$+e$+" "
- 1740 ifel=8thenel=7:n$="*******":goto1790
- 1750 ifel=7thenel=12:n$="[187][187][187][187][187].......":goto1790
- 1760 ifel=12thenel=1:n$="*":goto1790
- 1770 ifel=1andk=1thenb$=b$+e$:dz=bn+10000
- 1780 ifel=1thenb$=b$+e$:goto5660
- 1790 b$=b$+e$:e$="":cs$=cs$+""
- 1800 ifel=1thencs$=cs$+""
- 1810 goto1690
- 1820 e$=left$("............",el)
- 1830 print"":printcs$;e$;" ok?<cr>[146]"
- 1840 ifel=8thenprint"[145] "
- 1850 ifel<>8thenprint" "
- 1860 si=54272:pokesi+7,109:pokesi+8,175:pokesi+11,33
- 1870 pokesi+12,0:pokesi+13,240:pokesi+24,15
- 1880 getef$:pokesi+11,0
- 1890 ifef$=chr$(167)thenrun
- 1900 ifef$=chr$(13)then1730
- 1910 ifef$=chr$(20)then1930
- 1920 goto1880
- 1930 e$=left$(e$,len(e$)-1):goto1690
- 1940 ifel<>7andel<>8thennl$="............"
- 1950 ifel<>7andel<>8thene$=left$(e$+nl$,el):goto1690
- 1960 zl=len(e$):fori=1tozl
- 1970 ifmid$(e$,i,1)="."andmid$(e$,i+1,1)="."then1990
- 1980 next:goto2000
- 1990 e$=left$(e$,i):goto1690
- 2000 fori=1tozl:mi$=mid$(e$,i,1)
- 2010 ifmi$<chr$(48)andmi$<>chr$(46)then2040
- 2020 ifmi$>chr$(57)then2040
- 2030 next:goto2050
- 2040 e$=left$(e$,i-1):goto1690
- 2050 ifel=8then2170
- 2060 vk=0:fori=1tozl:ifmid$(e$,i,1)="."then2080
- 2070 vk=vk+1:next
- 2080 nk=zl-vk-1:ifnk>2thene$=left$(e$,vk+1):goto1690
- 2090 vn$="0000.00"
- 2100 ifvk<=4thenvl=4-vk:nl=7-zl-vl
- 2110 ifvk<=4thene$=left$(vn$,vl)+e$+right$(vn$,nl)
- 2120 ifvk=5andzl=5thene$=e$+".0"
- 2130 ifvk=5andzl=6thene$=e$+"0"
- 2140 ifvk=6andzl=6thene$=e$+"."
- 2150 ifvk<=4andright$(e$,1)="."thene$=left$(e$,vk+1):goto1690
- 2160 goto1830
- 2170 iflen(e$)<8then1690
- 2180 ifleft$(e$,1)="."thene$="":goto1690
- 2190 ifmid$(e$,3,1)<>"."thene$="":goto1690
- 2200 ifmid$(e$,6,1)<>"."thene$=left$(e$,3):goto1690
- 2210 ifright$(e$,1)="."thene$=left$(e$,7):goto1690
- 2220 goto1830
- 2230 rem ************ a u s g a b e k r i t e r i e n ***********
- 2240 print"[147] ausgabekriterium ? [146]"
- 2250 print" 1 [146] einn./ausg."
- 2260 print" 2 [146] monat.jahr"
- 2270 print" 3 [146] jahr"
- 2280 print" 4 [146] tagesdatum"
- 2290 print" 5 [146] betrag"
- 2300 print" 6 [146] ber./artikel"
- 2310 print" 7 [146] beleg-nr."
- 2320 print" <c=><m>[146] menue"
- 2330 getkw$:ifkw$=chr$(167)thenrun
- 2340 ifval(kw$)<1orval(kw$)>7then2330
- 2350 ifkw$="6"thenk$="ber./artikel":n$="[187][187][187][187][187].......":goto2430
- 2360 ifkw$="7"thenkl=3:k$="beleg-nr.":n$="...":goto2920
- 2370 ifkw$="5"thenkl=7:k$="betrag":n$="*******"
- 2380 ifkw$="4"thenkl=8:k$="tagesdatum":n$="tt.mm.jj"
- 2390 ifkw$="3"thenkl=2:k$="jahr":n$="jj"
- 2400 ifkw$="2"thenkl=5:k$="monat.jahr":n$="mm.jj"
- 2410 ifkw$="1"thenkl=1:k$="einn./ausg.":n$="*"
- 2420 goto2520
- 2430 printchr$(18);"[147] ausgabekriterium ";k$;" ":print:print
- 2440 print" l [146] auswahl v. li. waehlbar"
- 2450 print" f [146] auswahl nach 5 stellen"
- 2460 print" z [146] auswahl nach 12 stellen"
- 2470 print" <c=><m>[146] menue"
- 2480 getzf$:ifzf$=chr$(167)thenrun
- 2490 ifzf$="z"orzf$="l"thenkl=12:goto2520
- 2500 ifzf$="f"thenkl=5:n$="[187][187][187][187][187]":goto2520
- 2510 goto2480
- 2520 printchr$(18);"[147] ausgabekriterium ";k$;" ";zf$;" "
- 2530 cs$="":ifkl=3thencs$=cs$+""
- 2540 printcs$;n$:ifkw$<>"7"thenprint"":goto2600
- 2550 print"[145][145][145]beleg-nr."
- 2560 print" letzte beleg-nr.: [146]";
- 2570 ifbl<10thenprintchr$(18);bl$;" "
- 2580 ifbl>9andbl<100thenprintchr$(18);bl$;" "
- 2590 ifbl>99thenprintchr$(18);"[157] ";bl$;" "
- 2600 print"<cr>[146] weiter "
- 2610 print"<del>[146] korrektur "
- 2620 print"<c=><m>[146] menue"
- 2630 getaz$:ifaz$=chr$(167)thenrun
- 2640 iffw$="f"andaz$=chr$(13)then3040
- 2641 iffw$="f"andaz$=chr$(20)then2690
- 2642 iffw$="f"and(az$<chr$(48)oraz$>chr$(90))then2770
- 2643 iffw$="f"and(az$>chr$(57)andaz$<chr$(65))then2770
- 2650 ifzf$="l"andaz$=chr$(13)then3040
- 2660 ifv$=""andaz$=chr$(13)then3050
- 2670 ifaz$=chr$(13)then3140
- 2680 ifaz$=chr$(44)thenaz$=chr$(46)
- 2690 ifaz$=chr$(20)andlen(v$)<1then2630
- 2700 ifaz$=chr$(20)thenv$=left$(v$,len(v$)-1):goto2770
- 2710 ifaz$>chr$(15)andaz$<chr$(32)then2630
- 2720 ifez$>chr$(95)then2630
- 2730 v$=v$+az$
- 2740 ifkl=3andv$="000"thenv$="00"
- 2750 ifkw$="1"orkw$="6"orfw$="f"theniflen(v$)=klthen3060
- 2760 iflen(v$)=klthen3160
- 2770 l=len(v$)
- 2780 printcs$;v$;mid$(n$,l+1,kl-l);" "
- 2790 printcs$;"";:fori=0tol:print" ";:next:print"[157]^ "
- 2800 goto2630
- 2810 printcs$+v$+nn$+" ":print
- 2820 ifbw$="a"thenprint""
- 2830 print" b [146] bildschirmausgabe "
- 2840 print" p [146] plotter- / drucker- "
- 2850 print" & bildschirmausgabe"
- 2860 print"<c=><m>[146] menue "
- 2870 ifbw$="a"thenprint"[145][145][145][145][145][145][145][145][145][145][145][145] "
- 2880 getaw$:ifaw$=chr$(167)thenrun
- 2890 ifaw$="p"then5910
- 2900 ifaw$="b"then3660
- 2910 goto2880
- 2920 print"[147] ausgabekriterium ";k$
- 2930 print" e [146] einzelbeleg"
- 2940 print" b [146] belegfolge"
- 2950 print" a [146] alle belege"
- 2960 print"<c=><m>[146] menue"
- 2970 getbw$:ifbw$=chr$(167)thenrun
- 2980 ifbw$="e"then2520
- 2990 ifbw$="b"then3520
- 3000 ifbw$="a"then3020
- 3010 goto2970
- 3020 k$="alle belege"
- 3030 print"";chr$(18);" ausgabekriterium ";k$;" ":goto2810
- 3040 ifv$=""then2630
- 3045 nn$=" ":goto3060
- 3050 v$=left$("............",kl)
- 3060 print"":printcs$;v$;left$(nn$,kl-len(v$));" ok?<cr>[146]"
- 3070 print" "
- 3080 getaf$:ifaf$=chr$(167)thenrun
- 3090 ifaf$=chr$(20)then3130
- 3100 iffw$="f"andaf$=chr$(13)thenfi$=v$:goto5210
- 3110 ifaf$=chr$(13)then2810
- 3120 goto3080
- 3130 v$=left$(v$,len(v$)-1):goto2630
- 3140 ifkw$="1"orkw$="6"thennl$="............"
- 3150 ifkw$="1"orkw$="6"thenv$=left$(v$+nl$,kl):goto2770
- 3160 zl=len(v$):fori=1tozl
- 3170 ifmid$(v$,i,1)="."andmid$(v$,i+1,1)="."then3190
- 3180 next:goto3200
- 3190 v$=left$(v$,i):goto2770
- 3200 fori=1tozl:mi$=mid$(v$,i,1)
- 3210 ifmi$="."andkl=3then3250
- 3220 ifmi$<chr$(48)andmi$<>"."then3250
- 3230 ifmi$>chr$(57)then3250
- 3240 next:goto3260
- 3250 v$=left$(v$,i-1):goto2770
- 3260 ifkl=8then3410
- 3270 ifkl=5then3420
- 3280 ifkl=2then3430
- 3290 ifkl=3then3470
- 3300 vk=0:fori=1tozl:ifmid$(v$,i,1)="."then3320
- 3310 vk=vk+1:next
- 3320 nk=zl-vk-1:ifnk>2thenv$=left$(v$,vk+1):goto2770
- 3330 vn$="0000.00"
- 3340 ifvk<=4thenvl=4-vk:nl=7-zl-vl
- 3350 ifvk<=4thenv$=left$(vn$,vl)+v$+right$(vn$,nl)
- 3360 ifvk=5andzl=5thenv$=v$+".0"
- 3370 ifvk=5andzl=6thenv$=v$+"0"
- 3380 ifvk=6andzl=6thenv$=v$+"."
- 3390 ifvk<=4andright$(v$,1)="."thenv$="":goto2770
- 3400 goto3060
- 3410 ifmid$(v$,6,1)<>"."thenv$=left$(v$,3):goto2770
- 3420 ifmid$(v$,3,1)<>"."thenv$="":goto2770
- 3430 ifleft$(v$,1)="."thenv$="":goto2770
- 3440 ifright$(v$,1)="."thenv$=left$(v$,kl-1):goto2770
- 3450 iflen(v$)<klthen2770
- 3460 goto3060
- 3470 vn$="000"
- 3480 v$=left$(vn$,3-zl)+v$
- 3490 ifv$="000"thenv$="00":goto2770
- 3500 ifval(v$)>blthenv$="":goto2770
- 3510 goto3060
- 3520 cs$="":k$="belegfolge"
- 3530 print"";chr$(18);" ausgabekriterium ";k$;" "
- 3540 print" von beleg-nr.:":goto4560
- 3550 ba$=sn$:sn$=""
- 3560 ifval(ba$)>blthenba$="":goto4730
- 3570 print"";chr$(18);" ausgabekriterium ";k$;" ";ba$;" - "
- 3580 print" bis[146] beleg-nr.:":goto4560
- 3590 be$=sn$:sn$=""
- 3600 ifval(be$)<val(ba$)thenbe$="":goto4730
- 3610 v$=ba$+" - "+be$
- 3620 print"";chr$(18);" ausgabekriterium ";k$;" ";v$;" "
- 3630 goto2810
- 3640 rem **** a u s g a b e d r u c k e r / m o n i t o r ****
- 3650 open10,ga,0
- 3660 ifzf$<>"z"andzf$<>"l"then3720
- 3670 printchr$(18);"[147] ausgabekriterium ";k$;" "
- 3680 printchr$(18);" ";v$;" "
- 3690 ifaw$="p"thenprint#10," ausgabekriterium ";k$
- 3700 ifaw$="p"thenprint#10," ";v$
- 3710 goto3740
- 3720 printchr$(18);"[147] ausgabekriterium ";k$;" ";v$;" "
- 3730 ifaw$="p"thenprint#10," ausgabekriterium ";k$;" ";v$
- 3740 ifbw$<>"b"thenprint
- 3750 ifaw$="p"thenprint#10,""
- 3760 print"bel. datum betrag ber./artikel *":print
- 3770 ifaw$="p"thenprint#10,"bel. datum betrag ";
- 3780 ifaw$="p"thenprint#10,"ber./artikel *":print#10,""
- 3790 fori=1to17
- 3800 readd$:ifd$="ende"then4080
- 3810 ifleft$(d$,2)="10"andmid$(d$,6,2)=""then3800
- 3820 ifi=1andba$=left$(d$,3)then3950
- 3830 ifi>1andbw$="b"then3950
- 3840 ifbw$="a"then3950
- 3850 ifkw$="1"andv$=mid$(d$,31,1)then3950
- 3860 ifkw$="2"andv$=mid$(d$,7,5)then3950
- 3870 ifkw$="3"andv$=mid$(d$,10,2)then3950
- 3880 ifkw$="4"andv$=mid$(d$,4,8)then3950
- 3890 ifkw$="5"andv$=mid$(d$,12,7)then3950
- 3900 ifkl=12andv$=mid$(d$,19,12)then3950
- 3910 ifkl=5andv$=mid$(d$,19,5)then3950
- 3920 ifzf$="l"andv$=mid$(d$,19,len(v$))then3950
- 3930 ifkw$="7"andv$=left$(d$,3)then3950
- 3940 goto3800
- 3950 d1$=left$(d$,3)+" "
- 3960 d2$=mid$(d$,4,8)+" "
- 3970 d3$=mid$(d$,12,7)+" "
- 3980 d4$=mid$(d$,19,12)+" "
- 3990 d5$=mid$(d$,31,1)+" "
- 4000 ifk=1thenreturn
- 4010 printd1$;d2$;d3$;d4$;d5$;
- 4020 ifaw$="p"thenprint#10,d1$;d2$;d3$;d4$;d5$
- 4030 ifd5$="- "thens=s-val(d3$):sa=sa+val(d3$)
- 4040 ifd5$="+ "thens=s+val(d3$):se=se+val(d3$)
- 4050 ifbe$=left$(d$,3)then4080
- 4060 ifi=17then4380
- 4070 next
- 4080 ifaw$="p"thenprint#10,""
- 4090 print
- 4100 print"kein (weiterer) beleg"
- 4110 print
- 4120 ifaw$="p"thenprint#10,"kein (weiterer) beleg"
- 4130 ifaw$="p"thenprint#10,""
- 4140 s=int(s*100+.5)/100:z$=str$(abs(s))
- 4150 ifs>0thenprintchr$(18);" haben: ";
- 4160 gosub4440:ifs>0thenprintspc(8-vk)z$;" "
- 4170 ifaw$="p"ands>0thenprint#10," haben dm: ";spc(8-vk)z$
- 4180 ifs<0thenprintchr$(18);" soll : ";spc(8-vk)z$;" "
- 4190 ifaw$="p"ands<0thenprint#10," soll dm: ";spc(8-vk)z$
- 4200 ifs=0thenprintchr$(18);" einn. / ausg. ausgeglichen "
- 4210 ifaw$="p"ands=0thenprint#10," einn. / ausg. ausgeglichen "
- 4220 print:z$=""
- 4230 ifaw$="p"thenprint#10,""
- 4240 sa=int(sa*100+.5)/100:z$=str$(sa):gosub4440
- 4250 print" ausg.: ";spc(8-vk)z$;" ";
- 4260 ifaw$="p"thenprint#10," ausg. dm: ";spc(8-vk)z$
- 4270 z$="":ifaw$="p"thenprint#10,""
- 4280 se=int(se*100+.5)/100:z$=str$(se):gosub4440
- 4290 print" einn.: ";spc(8-vk)z$
- 4300 ifaw$="p"thenprint#10," einn. dm: ";spc(8-vk)z$
- 4310 z$="":ifaw$="p"thenfori=1to6:print#10,"":next
- 4320 close10
- 4330 print" p [146] ausdrucken";
- 4340 print" <c=><m>[146] menue"
- 4350 getaw$:ifaw$=chr$(167)thenrun
- 4360 ifaw$="p"thenrestore:s=0:sa=0:se=0:goto5910
- 4370 goto4350
- 4380 print" ^ [146] weiter";
- 4390 print" <c=><m>[146] menue"
- 4400 print
- 4410 getff$:ifff$=chr$(167)thenrun
- 4420 ifff$="^"theni=2:goto3800
- 4430 goto4410
- 4440 zl=len(z$):vk=0:nk=0
- 4450 fori=1tozl:ifmid$(z$,i,1)="."then4470
- 4460 vk=vk+1:next
- 4470 ifvk<zlthennk=zl-vk-1
- 4480 ifvk=zlthennk=0:z$=z$+".00"
- 4490 ifnk=1thenz$=z$+"0"
- 4500 return
- 4510 rem ****************** k o r r e k t u r *******************
- 4520 k=1:n$="..."
- 4530 cs$=""
- 4540 printchr$(18);"[147] welcher beleg soll korrigiert werden? "
- 4550 print" beleg-nr."
- 4560 restore:l=0:printcs$;n$;" "
- 4570 print" ";chr$(18);" letzte beleg-nr.: ";
- 4580 ifbl<10thenprintchr$(18);bl$;" ";
- 4590 ifbl>9andbl<100thenprintchr$(18);bl$;" ";
- 4600 ifbl>99thenprintchr$(18);bl$;" ";
- 4610 printchr$(146);" "
- 4620 print" <cr>[146] weiter "
- 4630 print" <del>[146] korrektur "
- 4640 print" <c=><m>[146] menue "
- 4650 getsz$:ifsz$=chr$(167)thenrun
- 4660 ifsz$=chr$(20)andlen(sn$)<1then4650
- 4670 ifsz$=chr$(20)thensn$=left$(sn$,len(sn$)-1):goto4730
- 4680 ifsz$=chr$(13)then4920
- 4690 ifsz$<chr$(48)orsz$>chr$(57)then4740
- 4700 sn$=sn$+sz$
- 4710 ifsn$="000"thensn$="00"
- 4720 iflen(sn$)=3then4960
- 4730 l=len(sn$)
- 4740 printcs$;sn$;mid$(n$,l+1,3-l);" "
- 4750 printcs$;"";:fori=0tol:print" ";:next:print"[157]^ "
- 4760 goto4650
- 4770 readd$
- 4780 ifleft$(d$,2)="10"andmid$(d$,6,2)=""then4770
- 4790 ifsn$=left$(d$,3)then4830
- 4800 ifd$="ende"thenprint" beleg nicht vorhanden [146]"
- 4810 ifd$="ende"thenprint:print:goto4860
- 4820 goto4770
- 4830 gosub3950
- 4840 printchr$(18)" ";d1$;d2$;d3$;d4$;"[157]";d5$
- 4850 print" n [146] neueingabe"
- 4860 print" w [146] weitersuchen "
- 4870 ifd$="ende"thenprint"[145][145][145][145] "
- 4880 getkf$:ifkf$=chr$(167)thenrun
- 4890 ifkf$="n"thenbn=val(d1$):goto1350
- 4900 ifkf$="w"thensn$="":goto4560
- 4910 goto4880
- 4920 iflen(sn$)=2thensn$="0"+sn$
- 4930 iflen(sn$)=1thensn$="00"+sn$
- 4940 iflen(sn$)<1then4650
- 4950 ifsn$="000"thensn$="00":goto4730
- 4960 ifval(sn$)>blthensn$="":goto4730
- 4970 print"";cs$;sn$;" ok?<cr>[146]"
- 4980 print" "
- 4990 getsf$:ifsf$=chr$(167)thenrun
- 5000 ifsf$=chr$(20)then5060
- 5010 ifsf$=chr$(13)andk=1then5050
- 5020 ifsf$=chr$(13)andmw$="[134]"andba$=""then3550
- 5030 ifsf$=chr$(13)andmw$="[134]"andbe$=""then3590
- 5040 goto4990
- 5050 print"":printcs$+sn$+" ":print:goto4770
- 5060 sn$=left$(sn$,len(sn$)-1):goto4650
- 5070 ifpeek(50307)=120then8000
- 5075 print"[147] wahl des filenamens [146]"
- 5080 print" bitte waehlen:"
- 5090 print" h [146] * haushaltsbelege *"
- 5100 print" f [146] * f i l e n a m e * , waehlbar"
- 5110 print" <c=><m>[146] menue"
- 5120 getfw$:iffw$=chr$(167)thenrun
- 5130 iffw$="f"then5160
- 5140 iffw$="h"thenfi$="haushaltsbelege":goto5210
- 5150 goto5120
- 5160 print" eingabe des filenamens "
- 5170 print" "
- 5180 kl=16:n$="................"
- 5190 goto2530
- 5200 rem **************** a b s p e i c h e r n *****************
- 5210 print" wahl des speichermediums [146]"
- 5220 iffw$="f"thenprint"";spc(21);" "
- 5230 iffw$="h"thenprint" haushaltsbelege"
- 5240 print" b [146] band "
- 5250 print" d [146] diskette "
- 5260 getsw$:ifsw$=chr$(167)thenrun
- 5270 ifsw$="d"then6100
- 5280 ifsw$="b"then6230
- 5290 goto5260
- 5300 print"[147] arbeitscassette im recorder ? [146]"
- 5310 print" <c=><m>[146] menue"
- 5320 print" <s>[146] save'";fi$;"',";ra:print
- 5330 getsp$:ifsp$=chr$(167)thenrun
- 5340 ifsp$=chr$(83)then5360
- 5350 goto5330
- 5360 savefi$,ra,1:print
- 5370 print" verifizieren ? [146]"
- 5380 print" v [146] verify, wenn zurueckgespult!"
- 5390 print" <c=><m>[146] menue"
- 5400 getvf$:ifvf$=chr$(167)thenrun
- 5410 ifvf$="v"then5430
- 5420 goto5400
- 5430 iffw$="f"thenverifyfi$,ra
- 5440 fori=1to2000:next:run
- 5450 print"[147] arbeitsdiskette im laufwerk ? [146]"
- 5460 print" floppy ist empfangsbereit "
- 5470 print" <c=><m>[146] menue"
- 5480 iffw$="f"then5500
- 5490 print" <s>[146] save'@:haushaltsbelege',";fa:goto5510
- 5500 print" <s>[146] save'";fi$;"',";fa
- 5510 getsp$:ifsp$=chr$(167)thenrun
- 5520 ifsp$="s"then5540
- 5530 goto5510
- 5540 iffw$="h"thensave"@:haushaltsbelege",fa
- 5550 iffw$="f"thensavefi$,fa
- 5560 gosub6300
- 5600 getvf$:ifvf$=chr$(167)thenrun
- 5620 goto5600
- 5650 rem ******** e i n g a b e u e b e r p r u e f u n g *********
- 5660 p1$=mid$(b$,13,1)
- 5670 p2$=right$(b$,1)
- 5680 ifp1$="."andp2$="+"then6400
- 5690 ifp1$="."andp2$="-"then6400
- 5700 ifp1$<>"."orp2$<>"+"orp2$<>"-"thenprint"[147]"
- 5710 print"r i c h t i g e"
- 5720 print"e i n g a b e i n"
- 5730 print"b e l e g - n r .: ";bn$;"?"
- 5740 print"";chr$(18);" ";left$(b$,8);" ";mid$(b$,9,7);
- 5750 print" ";chr$(18);mid$(b$,16,12);" ";right$(b$,1);" "
- 5760 ifp1$<>"."andp2$<>"+"andp2$<>"-"thengoto5800
- 5770 ifp1$<>"."andp2$="+"thengoto5810
- 5780 ifp1$<>"."andp2$="-"thengoto5810
- 5790 ifp2$<>"+"andp2$<>"-"thengoto5820
- 5800 print" ^ ^":goto5830
- 5810 print" ^":goto5830
- 5820 print" ^"
- 5830 print" a [146] ablage"
- 5840 print" n [146] neueingabe"
- 5850 print"<c=><m>[146] menue"
- 5860 getpf$:ifpf$=chr$(167)thenrun
- 5870 ifpf$="n"thene$="":goto1350
- 5880 ifpf$="a"then6400
- 5890 goto5860
- 5900 rem **** w a h l d e r g e r a e t e a d r e s s e n ****
- 5910 print"[147] wahl der druckeradresse [146]"
- 5920 print" bitte waehlen:"
- 5930 print" 4 [146] drucker"
- 5940 print" 5 [146] drucker"
- 5950 print" 6 [146] plotter"
- 5960 print" <c=><m>[146] menue"
- 5970 getga$:ifga$=chr$(167)thenrun
- 5980 ga=val(ga$)
- 5990 ifga<>4andga<>5andga<>6then5970
- 6000 iflen(ga$)=1then6020
- 6010 goto5970
- 6020 openga,ga:poke768,61
- 6030 print#ga:closega:poke768,139
- 6040 ifst<>-128then3650
- 6045 print""
- 6050 print"";
- 6060 printchr$(18);" geraeteadresse ";"[157]"ga;"[157] "
- 6070 print"";
- 6080 printchr$(18);" ist nicht empfangsbereit "
- 6090 goto5970
- 6100 print" wahl der floppyadresse [146]"
- 6110 print" 8 [146] floppy "
- 6120 print" 9 [146] floppy "
- 6130 getfa$:iffa$=chr$(167)thenrun
- 6140 fa=val(fa$)
- 6150 iffa<>8andfa<>9then6130
- 6160 iflen(fa$)=1thenpoke768,61
- 6170 poke144,0:open1,fa,0:close1:poke768,139
- 6180 ifst<>-128then5450
- 6185 print"[145]";
- 6190 print"";
- 6200 printchr$(18);" floppy ";"[157]"fa"[157] ist nicht "
- 6210 print"";
- 6220 printchr$(18);" empfangsbereit! ":print"[145]";:goto6130
- 6230 ifpeek(50307)=120then8000
- 6232 print" wahl der recorderadresse [146]"
- 6240 print" 1 [146] normaltape"
- 6250 print" 7 [146] supertape"
- 6260 getra$:ifra$=chr$(167)thenrun
- 6270 ra=val(ra$)
- 6272 ifra=7andpeek(817)=244then6500
- 6280 ifra<>1andra<>7then6260
- 6290 iflen(ra$)=1then5300
- 6300 open15,fa,15:input#15,mn,m$,mt,ms:close15
- 6310 ifmn=0then6330
- 6320 print"[147] floppyfehlerkanal [146]"
- 6330 print"";mn; m$;mt;ms:ifmn=0thenreturn
- 6340 print" z [146] zurueck zum 'save'"
- 6350 print" <c=><m>[146] menue"
- 6360 getfk$:iffk$=chr$(167)thenrun
- 6370 iffk$="z"then6170
- 6380 goto6360
- 6390 rem *********** d a t a a u f b e r e i t u n g ************
- 6400 ifbn<10thend$=""+str$(bn)+"[157][157][157]00"+""+b$
- 6410 ifbn>9andbn<100thend$=""+str$(bn)+"[157][157][157]0"+""+b$
- 6420 ifbn=>100thend$=str$(bn)+b$
- 6425 print""
- 6430 print"[147][157]"dz"data"d$
- 6440 ifk=0thenprint"10000 data"dz
- 6450 print"run"
- 6460 poke631,19:poke632,13:poke633,13:poke634,13:poke198,4
- 6470 end
- 6500 print"":print"";
- 6502 printchr$(18);"supertape ist "
- 6510 print"";
- 6512 printchr$(18);"nicht aktiviert !!"
- 6520 goto6260
- 8000 print"[147]"
- 8010 print:print:print" [144] das [146]input 64[146][144] - betriebssystem [146][154]"
- 8020 print:print" befindet sich im rechner."
- 8030 print:print:print"zur zeit kann von diesem programm aus- "
- 8040 print"gehend nicht gespeichert werden."
- 8050 print
- 8060 print"dieses programm bitte erst mit ctrl s"
- 8070 print"auf ihren eigenen datentraeger "
- 8080 print"abspeichern."
- 8970 poke214,20:poke211,2:sys58640
- 8980 print"bitte taste druecken!"
- 8990 getx$:ifx$=""then8990
- 9000 run
- 9990 rem ***************** d a t a a b l a g e ******************
- 10000 data 10000
- 11000 data ende
-