home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 28
/
Commodore_Disc_28_19xx_-_de.d64
/
main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
18KB
|
646 lines
100 rem ******************************
110 rem * *
120 rem * bestandsliste *
130 rem * *
140 rem ******************************
150 poke53281,0:poke53280,0
160 print "[147]";
161 dimwa$(269),wa%(269),wu(269),li$(255),fe(5,71),e$(6)
170 close2:open2,8,2,"lieferanten,u,r"
171 fori=0to255
172 input#2,li$(i):ifli$(i)="_"thenli$(i)=""
173 next
174 close2
177 close2:open2,8,2,"waren,u,r"
178 fori=0to269
179 input#2,wa$(i):ifwa$(i)="_"thenwa$(i)=""
180 input#2,wa%(i)
181 next
182 close2
183 re$=""
184 do$=""
499 goto1030
500 print"";:return
501 gosub500:print"----------------------------------------";:goto508
502 gosub501:print"[205]onat:";mo$;ja%
503 print"[215]arenteil:"wa$;:return
504 gosub501:print"[194]itte waehlen":return
505 gosub501:print"[194]itte eingeben":return
506 gosub501:print"[194]itte [196]atendisk einlegen"
507 print"und eine [212]aste [196]ruecken!";:return
508 print" ";
509 print" ";:gosub500:print"";:return
600 rem --- einlesen ---
610 close1:open1,8,15,"i"
620 close2:open2,8,2,"[194]estandsliste,l,"+chr$(7)
630 pl%=(wa%*70-69)-256*int((wa%*70-69)/256):ph%=int((wa%*70-69)/256)
640 print#1,"p"+chr$(2)+chr$(pl%)+chr$(ph%)+chr$(1)
650 input#2,ub$
660 ei%=asc(left$(ub$,1))
665 ifei%>70thengosub501:print"[197]intrag nicht gueltig!!":ei%=255:goto790
670 fort=1toei%:p=t-1
680 pl%=(wa%*70-69+p)-256*int((wa%*70-69+p)/256):ph%=int((wa%*70-69+p)/256)
690 print#1,"p"+chr$(2)+chr$(pl%)+chr$(ph%)+chr$(1)
695 fory=1to6:get#2,e$(y):e$(y)=e$(y)+chr$(0):next
710 fe(0,t)=asc(e$(1))
720 fe(1,t)=asc(e$(2)):fe(2,t)=0:fe(3,t)=0
730 fe%=2:a=asc(e$(3)):if(a and128)=128thenfe%=3
740 fe(fe%,t)=asc(e$(4))+(a and127)*256
750 fe(4,t)=asc(e$(5))+asc(e$(6))/100
760 next:fe(5,1)=fe(2,1)
761 fort=2tofe(0,1)
770 fe(5,t)=fe(5,t-1)+fe(2,t)-fe(3,t)
780 next
790 close2:close1
820 return
1000 rem *****************************
1010 rem * hauptmenu *
1020 rem *****************************
1030 print"[147]"tab(14)"[200]auptmenue:"
1040 printtab(14)"[163][163][163][163][163][163][163][163][163][163][163]"
1050 print" (1) [215]arenliste"
1060 print" (2) [204]ieferantenliste"
1070 print" (3) [194]estandsliste"
1080 print" (4) [196]iskettenarbeiten"
1090 gosub504
1100 geta$:ifa$=""then1100
1110 ifa$="1"then1210
1120 ifa$="2"then1310
1130 ifa$="3"then1410
1140 ifa$="4"then1510
1170 goto1030
1200 rem --- warenliste ---
1210 print"[147]"tab(14)"[215]arenliste:"
1211 printtab(14)"[163][163][163][163][163][163][163][163][163][163][163]"
1212 print" (1) [215]arenliste erweitern"
1213 print" (2) [215]arenteil loeschen"
1214 print" (3) [215]arenliste ausdrucken"
1215 print" (_) [200]auptmenue"
1217 gosub504
1218 geta$:ifa$=""then1218
1219 ifa$="1"then11030
1220 ifa$="2"then12030
1221 ifa$="3"then13030
1224 ifa$="_"then1030
1225 goto1218
1300 rem --- lieferantenliste ---
1310 print"[147]"tab(11)"[204]ieferantenliste:"
1311 printtab(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1312 print" (1) [204]ieferantenliste erweitern"
1313 print" (2) [204]ieferant loeschen"
1314 print" (3) [204]ieferantenliste ausdrucken"
1315 print" (_) [200]auptmenue"
1317 gosub504
1318 geta$:ifa$=""then1318
1319 ifa$="1"then21030
1320 ifa$="2"then22030
1321 ifa$="3"then23030
1324 ifa$="_"then1030
1325 goto1318
1400 rem --- bestandsliste ---
1410 print"[147]"tab(12)"[194]estandsliste:"
1411 printtab(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1413 print" (1) [194]estandsliste aendern"
1414 print" (2) [194]estandsliste(n) ausdrucken"
1415 print" (_) [200]auptmenue"
1417 gosub504
1418 geta$:ifa$=""then1418
1419 ifa$="1"then31030
1420 ifa$="2"then32030
1424 ifa$="_"then1030
1425 goto1418
1500 rem --- diskettenarbeiten ---
1510 print"[147]"tab(10)"[196]iskettenarbeiten:"
1511 printtab(10)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1512 print" (1) [206]eue [196]atendisk initialisieren"
1513 print" (2) [196]iskettenbefehl ([211]iehe [196]os)"
1514 print" (3) [213]ebertrag herstellen"
1515 print" (_) [200]auptmenue"
1517 gosub504
1518 geta$:ifa$=""then1518
1519 ifa$="1"then41030
1520 ifa$="2"then42030
1521 ifa$="3"then43030
1524 ifa$="_"then1030
1525 goto1518
11000 rem *****************************
11010 rem * warenliste erweitern *
11020 rem *****************************
11030 print"[147]":gosub505:print"[215]arenliste erweitern"
11040 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
11050 print"[215]ie soll der [215]arenteil heissen ?"
11060 print"('_' + '[210][197][212][213][210][206]' = zurueck)"
11070 print">:";
11080 close1:open1,0
11090 input#1,wa$:ifwa$="_"thenclose1:goto11290
11100 print:print"[215]arengruppe(1-256):";
11110 input#1,wa%
11120 close1:print
11130 rem
11140 i%=0
11150 i%=i%+1:ifwa$(i%-1)=""then11220
11160 ifi%=271thenprint"kein [208]latz mehr frei!!":wait198,1:poke198,0:goto1210
11170 ifwa$<>wa$(i%-1)then11150
11180 print"[215]arenteil besteht bereits unter"
11190 print"[195]odenummer"i%"."
11200 print"[194]itte [212]aste druecken !"
11210 poke198,0:wait198,1:poke198,0:goto11030
11220 wa$(i%-1)=wa$
11230 wa%(i%-1)=wa%
11240 print
11250 print"[196]er neue [215]arenteil erhaelt"
11260 print"die [195]odenummer"i%"."
11270 print"[194]itte [212]aste druecken !":poke198,0:wait198,1:poke198,0
11280 goto11030
11290 gosub501:print"[194]itte [208]rogramm-[196]iskette einlegen "
11300 print"und eine [212]aste druecken !![145][145][145]"
11310 poke198,0:wait198,1:poke198,0
11320 close2:close15:open15,8,15:open2,8,2,"waren,u,r":input#15,en,er$,et,es
11330 close2:close15:ifen=62then11290
11340 close2:open2,8,2,"@:waren,u,w"
11350 fori=0to269
11360 au$=wa$(i):ifau$=""thenau$="_"
11370 print#2,au$
11380 print#2,wa%(i)
11390 next
11400 close2
11410 goto1210
12000 rem *****************************
12010 rem * warenteil loeschen *
12020 rem *****************************
12030 print"[147]":gosub504:print"[215]arenliste loeschen"
12040 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
12050 print"(_ = zurueck,l = loeschen)"
12060 print"(+ = abwaerts,- = aufwaerts,[211][200][201][198][212]=+- 10)"
12070 z=1:w=1
12080 print"";
12090 fort=1to12:print" ":next
12100 print"";
12110 fort=ztoz+11
12120 au$=wa$(t-1)
12130 ifau$=""thenau$="nicht belegt"
12140 print" "right$(" "+mid$(str$(t),2),3)" ";au$:next
12150 print"";
12160 fort=ztow:print"";:next
12170 print"*[157]";
12180 geta$:ifa$=""then12180
12190 ifa$="_"then12290
12200 ifa$="+"thenw=w+1:ifw>270thenw=270
12210 ifa$="[219]"thenw=w+10:ifw>270thenw=270
12220 ifw>z+11thenz=z+12:ifz>259thenz=259
12230 ifa$="-"thenw=w-1:ifw<1thenw=1
12240 ifa$="[221]"thenw=w-10:ifw<1thenw=1
12250 ifw<zthenz=z-12:ifz<1thenz=1
12260 ifa$<>"l"then12080
12270 wa$(w-1)="":wa%(w-1)=0
12280 goto12080
12290 gosub501:print"[194]itte [208]rogramm-[196]iskette einlegen "
12300 print"und eine [212]aste druecken !![145][145][145]"
12310 poke198,0:wait198,1:poke198,0
12320 close2:close15:open15,8,15:open2,8,2,"waren,u,r":input#15,en,er$,et,es
12330 close2:close15:ifen=62then12290
12340 close2:open2,8,2,"@:waren,u,w"
12350 fori=0to269
12360 au$=wa$(i):ifau$=""thenau$="_"
12370 print#2,au$
12380 print#2,wa%(i)
12390 next
12400 close2
12410 goto1210
13000 rem *****************************
13010 rem * warenliste ausdrucken *
13020 rem *****************************
13030 print"[147]":gosub501:print"[215]arenliste ausdrucken":w=0:de=4
13040 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
13050 print"[194]itte [196]rucker anschalten,"
13060 print"und [212]aste druecken!"
13070 poke198,0:wait198,1:poke198,0
13080 close4:open4,4,7
13090 close4
13100 if(stand-128)=-128andw=0thenw=1:print"[145][145][145][145]";:goto13050
13110 if(stand-128)=-128andw=1thende=3
13120 close4:open4,de,7
13130 print#4,"[195]odenummer / [215]are"
13140 print#4,"-----------/----------------------------":ii=0
13141 fori=0to259:ifii<wa%(i)thenii=wa%(i)
13142 next
13145 fori=1toii
13146 ja=0
13150 fort=1to270
13155 ifnot(i=wa%(t-1))then13200
13156 ifja=0thenprint#4
13157 ifja=0thenprint#4,"[215]arengruppe"i
13158 ifja=0thenprint#4
13160 print#4,right$(" "+mid$(str$(t),2),8)" / ";
13170 ifwa$(t-1)=""thenau$="nicht belegt"
13180 ifwa$(t-1)<>""thenau$=wa$(t-1)
13190 print#4,au$:ja=1
13200 next:next
13210 print#4,chr$(12);:close4:goto1210
21000 rem *****************************
21010 rem * lieferliste erweitern *
21020 rem *****************************
21030 print"[147]":gosub505:print"[204]ieferantenliste erweitern"
21040 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
21050 print"[215]ie soll der [204]ieferant heissen ?"
21060 print"('_' + '[210][197][212][213][210][206]' = zurueck)"
21070 print">:";
21080 close1:open1,0
21090 input#1,li$
21100 close1:print
21110 ifli$="_"then21260
21120 i%=0
21130 i%=i%+1:ifli$(i%-1)=""then21200
21140 ifi%=257thenprint"kein [208]latz mehr rei!!":wait198,1:poke198,0:goto1310
21150 ifli$<>li$(i%-1)then21130
21160 print"[204]ieferant besteht bereits unter"
21170 print"[195]odenummer"i%"."
21180 print"[194]itte [212]aste druecken !"
21190 poke198,0:wait198,1:poke198,0:goto21030
21200 li$(i%-1)=li$
21210 print
21220 print"[196]er neue [204]ieferant erhaelt"
21230 print"die [195]odenummer"i%"."
21240 print"[194]itte [212]aste druecken !":poke198,0:wait198,1:poke198,0
21250 goto21030
21260 gosub501:print"[194]itte [208]rogramm-[196]iskette einlegen "
21270 print"und eine [212]aste druecken !![145][145][145]"
21280 poke198,0:wait198,1:poke198,0
21290 close2:close15:open15,8,15:open2,8,2,"waren,u,r":input#15,en,er$,et,es
21300 close2:close15:ifen=62then21260
21310 close2:open2,8,2,"@:lieferanten,u,w"
21320 fori=0to255
21330 au$=li$(i):ifau$=""thenau$="_"
21340 print#2,au$
21350 next
21360 close2
21370 goto1310
22000 rem *****************************
22010 rem * lieferant loeschen *
22020 rem *****************************
22030 print"[147]":gosub504:print"[204]ieferant loeschen"
22040 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
22050 print"(_ = zurueck,l = loeschen)"
22060 print"(+ = abwaerts,- = aufwaerts,[211][200][201][198][212]=+- 10)"
22070 z=1:w=1
22080 print"";
22090 fort=1to12:print" ":next
22100 print"";
22110 fort=ztoz+11
22120 au$=li$(t-1)
22130 ifau$=""thenau$="nicht belegt"
22140 print" "right$(" "+mid$(str$(t),2),3)" ";au$:next
22150 print"";
22160 fort=ztow:print"";:next
22170 print"*[157]";
22180 geta$:ifa$=""then22180
22190 ifa$="_"then22290
22200 ifa$="+"thenw=w+1:ifw>256thenw=256
22210 ifa$="[219]"thenw=w+10:ifw>256thenw=256
22220 ifw>z+11thenz=z+12:ifz>245thenz=245
22230 ifa$="-"thenw=w-1:ifw<1thenw=1
22240 ifa$="[221]"thenw=w-10:ifw<1thenw=1
22250 ifw<zthenz=z-12:ifz<1thenz=1
22260 ifa$<>"l"then22080
22270 li$(w-1)=""
22280 goto22080
22290 gosub501:print"[194]itte [208]rogramm-[196]iskette einlegen "
22300 print"und eine [212]aste druecken !![145][145][145]"
22310 poke198,0:wait198,1:poke198,0
22320 close2:close15:open15,8,15:open2,8,2,"waren,u,r":input#15,en,er$,et,es
22330 close2:close15:ifen=62then22290
22340 close2:open2,8,2,"@:lieferanten,u,w"
22350 fori=0to255
22360 au$=li$(i):ifau$=""thenau$="_"
22370 print#2,au$
22390 next
22400 close2
22410 goto1310
23000 rem *****************************
23010 rem * lieferanten ausdrucken *
23020 rem *****************************
23030 print"[147]":gosub501:print"[204]ieferantenliste ausdrucken":w=0:de=4
23040 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
23050 gosub501:print"[194]itte [196]rucker einschalten"
23060 print"und [212]aste druecken!";
23070 poke198,0:wait198,1:poke198,0
23080 close4:open4,4,7
23090 close4
23100 if(st and-128)=-128andw=0thenw=1:goto23050
23110 if(st and-128)=-128andw=1thende=3
23120 close4:open4,de,7
23130 print#4,"[195]odenummer / [204]ieferant"
23140 print#4,"-----------/----------------------------"
23150 fort=1to256
23160 ifli$(t-1)=""then23200
23170 print#4,right$(" "+mid$(str$(t),2),8)" / ";
23180 ifli$(t-1)<>""thenau$=li$(t-1)
23190 print#4,au$
23200 next
23210 print#4,chr$(12);:close4:goto1310
31000 rem *****************************
31010 rem * bestand aendern *
31020 rem *****************************
31030 print"[147]":gosub505:print"[194]estandsliste aendern"
31040 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
31050 print"[194]itte [215]are oder [195]odenummer eingeben"
31055 print"_ = zurueck"
31060 print">:";
31070 close1:open1,0
31080 input#1,na$
31090 print:close1:ifna$="_"then1410
31091 wa%=val(na$):ifwa%>0andwa%<271then31098
31092 t=-1
31093 t=t+1:ifwa$(t)=na$thenwa%=t+1:goto31098
31094 ift<269then31093
31095 print"[198]alsche [195]odenummer oder [215]arenname!!":gosub501
31096 print"[194]itte [212]aste [196]ruecken!!";:poke198,0:wait198,1:poke198,0:goto31030
31098 gosub506:poke198,0:wait198,1:poke198,0
31099 close1:open1,8,15
31100 close2:open2,8,2,"datum,u,r"
31101 input#1,en,e$,et,es
31102 ifen<>0thenclose1:close2:goto31098
31103 input#2,mo$,ja%,mo%:close2:close1
31104 gosub610
31105 ifei%<255then31170
31110 fort=0to5
31111 forr=0to70:fe(t,r)=0:next:next:fe(0,1)=1:gosub31120:goto31160
31120 print"[147]da [204]ieferant zu/ab [197]preis [199]espreis [194]est.";
31130 print"----------------------------------------"
31140 gosub501:print"_=zurueck,crsr=auf,ab"
31150 print"e=eintragen,l=loeschen";:return
31160 rem
31170 z%=1:s%=3:ma%=fe(0,1):ifma%>70thenma%=1
31180 zz%=1:vo%=1
31200 ifvo%<1thenvo%=1
31201 ifvo%>70thenvo%=70
31203 bi%=vo%+15:ifbi%>ma%thenbi%=ma%
31205 fort=2toma%:fe(5,t)=fe(5,t-1)+fe(2,t)-fe(3,t):next
31210 gosub31120:print"";
31220 fort=vo%tobi%
31221 da$="**":za$="*****":ep$="******":gp$="********"
31230 iffe(0,t)<>0thenda$=right$(" "+mid$(str$(fe(0,t)),2),2):ift=1thenda$="**"
31240 li$=right$(" "+li$(abs(fe(1,t)-1)),9):ift=1thenli$="[213]ebertrag"
31250 iffe(2,t)<>0thenza$="+":fe%=2
31260 iffe(3,t)<>0thenza$="-":fe%=3
31265 ifli$=" "orza$="-"thenli$="*********"
31270 iffe(fe%,t)<>0thenza$=za$+right$(" "+mid$(str$(fe(fe%,t)),2),4)
31280 iffe(4,t)<>0thenep$=right$(" "+mid$(str$(fe(4,t)),2),6)
31290 iffe(4,t)<>0thengp$=right$(" "+mid$(str$(fe(2,t)*fe(4,t)),2),8)
31300 be$=right$(" "+str$(fe(5,t)),5)
31310 ift=1thenza$="*****":ep$="******":gp$="********"
31320 printda$" "li$" "za$" "ep$" "gp$" "be$;
31330 next
31340 print"";left$(do$,z%+1);left$(re$,14);"[157][157]>";
31350 geta$:ifa$=""then31350
31351 print"[157] ";
31360 ifa$<>""then31370
31361 z%=z%+1:zz%=zz%+1:ifzz%>ma%+1thenzz%=zz%-1:z%=z%-1
31362 ifz%>15thenz%=15:vo%=vo%+1:goto31200
31363 goto31340
31370 ifa$<>"[145]"then31400
31371 z%=z%-1:zz%=zz%-1:ifzz%<1thenzz%=zz%+1:z%=z%+1
31372 ifz%<1thenz%=1:vo%=vo%-1:goto31200
31373 goto31340
31400 ifa$<>"l"then31408
31401 gosub501:print"[211]icher(j/n)?":poke198,0
31402 geta$:ifa$<>"j"anda$<>"n"then31402
31403 ifa$<>"j"then31200
31404 ifzz%=1orzz%=ma%+1then31200
31405 ma%=ma%-1
31406 forl=zz%to70:fore=0to6:fe(e,l)=fe(e,l+1):next:next:goto31200
31408 ifa$<>"e"anda$<>"+"anda$<>"-"then31450
31409 ifa$="+"thenpoke631,asc("+"):poke198,1
31410 ifa$="-"thenpoke631,asc("-"):poke198,1
31411 ifzz%=1thena$="[194]estand:"
31412 ifzz%>1thena$="[218]u/[193]bgang(+/-):"
31413 gosub501:printa$;:close5:open5,0:input#5,ei$:close5
31414 za=val(ei$)
31415 ifzz%=1thenfe(5,1)=za:fe(2,1)=za:goto31200
31416 ifza<0thenfe(3,zz%)=abs(za)
31417 gosub501:print"[196]atum:";:close5:open5,0:input#5,ei$:close5
31418 fe(0,zz%)=val(ei$):ifza>0thenfe(2,zz%)=abs(za)
31419 ifza>0then31423
31420 ifzz%=ma%+1thenma%=ma%+1:ifma%>70thengosub501:print"[204]etzter [197]intrag!!"
31421 ifma%>70then:poke198,0:wait198,1:ma%=52:poke198,0
31422 goto31200
31423 gosub501:print"[197]preis:";:close5:open5,0:input#5,ei$:close5
31424 fe(4,zz%)=val(ei$)
31426 gosub501:print"[204]ieferant:";:close5:open5,0:input#5,ei$:close5
31427 li%=val(ei$):ifli%>0andli%<256then31432
31428 t=-1
31429 t=t+1:ifli$(t)=ei$thenli%=t+1:goto31432
31430 ift<255then31429
31431 li%=0
31432 fe(1,zz%)=li%
31433 ifzz%=ma%+1thenma%=ma%+1:ifma%>70thengosub501:print"[204]etzter [197]intrag!!"
31434 ifma%>70then:poke198,0:wait198,1:ma%=52:poke198,0
31435 goto31200
31450 ifa$<>"_"then31340
31500 close1:open1,8,15
31510 close2:open2,8,2,"datum,u,r"
31520 input#1,en,e$,et,es
31530 ifen<>0thenclose2:close1:gosub506:wait198,1:poke198,0:goto31500
31540 close1:close2:open1,8,15
31550 close2:open2,8,2,"[194]estandsliste,l,"+chr$(7)
31555 fe(0,1)=ma%
31560 fort=1toma%:p=t-1
31570 pl%=(wa%*70-69+p)-256*int((wa%*70-69+p)/256):ph%=int((wa%*70-69+p)/256)
31580 au$=chr$(fe(0,t))+chr$(fe(1,t))
31590 fe%=3
31600 iffe(2,t)<>0thenfe%=2
31610 a1%=int(fe(fe%,t)/256)
31620 a2%=fe(fe%,t)-256*int(fe(fe%,t)/256)
31630 iffe%=3thena1%=a1%or 128
31640 au$=au$+chr$(a1%)+chr$(a2%)
31650 a1%=int(fe(4,t))
31660 a2=fe(4,t)-int(fe(4,t))
31661 a2$=mid$(str$(a2)+"00",3,2)
31662 a2%=val(a2$)
31663 au$=au$+chr$(a1%)+chr$(a2%)
31690 print#1,"p"+chr$(2)+chr$(pl%)+chr$(ph%)+chr$(1)
31700 print#2,au$
31710 next
31720 close2:close1:goto1410
32000 rem *****************************
32010 rem * bestand(e) ausdrucken *
32020 rem *****************************
32030 print"[147]":gosub505:print"[194]estandsliste(n) ausdrucken
32040 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
32050 [153]"peekitte (NULL)are oder lenodenummer eingeben"
32055 [153]"_ = zurueck"
32060 [153]"von>:";
32070 [160]1:[159]1,0
32080 [132]1,na$
32090 [153]:[160]1:[139]na$[178]"_"[167]1410
32091 vo%[178][197](na$):[139]vo%[177]0[175]vo%[179]271[167]32100
32092 t[178][171]1
32093 t[178]t[170]1:[139]wa$(t)[178]na$[167]vo%[178]t[170]1:[137]32100
32094 [139]t[179]269[167]32093
32095 [153]"ascalsche lenodenummer oder (NULL)arenname!!":[141]501
32096 [153]"peekitte (NULL)aste str$ruecken!!";:[151]198,0:[146]198,1:[151]198,0:[137]32030
32100 [153]"bis>:";
32110 [160]1:[159]1,0
32120 [132]1,na$
32130 [153]:[160]1:[139]na$[178]"_"[167]1410
32140 bi%[178][197](na$):[139]bi%[177]0[175]bi%[179]271[167]32200
32150 t[178][171]1
32160 t[178]t[170]1:[139]wa$(t)[178]na$[167]bi%[178]t[170]1:[137]32200
32170 [139]t[179]269[167]32160
32180 [153]"ascalsche lenodenummer oder (NULL)arenname!!":[141]501
32190 [153]"peekitte (NULL)aste str$ruecken!!";:[151]198,0:[146]198,1:[151]198,0:[137]31030
32200 [141]501:[153]"peekitte str$rucker anschalten,"
32210 [153]"und (NULL)aste druecken!";
32220 [151]198,0:[146]198,1:[151]198,0
32230 [160]4:[159]4,4,7
32240 [160]4:de[178]4
32250 [139](st[175][171]128)[178][171]128[175]w[178]0[167]w[178]1:[137]32200
32260 [139](st[175][171]128)[178][171]128[175]w[178]1[167]de[178]3
32270 [160]4:[159]4,de,7
32271 [141]506:[151]198,0:[146]198,1:[151]198,0
32272 [160]1:[159]1,8,15
32273 [160]2:[159]2,8,2,"datum,u,r"
32274 [132]1,en,e$,et,es
32275 [139]en[179][177]0[167][160]1:[160]2:[137]32271
32276 [132]2,mo$,ja%,mo%:[160]2:[160]1
32280 [129]q[178]vo%[164]bi%::wa%[178]q:[141]610
32285 [139]ei%[178]255[167]32540
32290 [152]4,[199](27);[199](64);
32300 [152]4,"(NULL)arenteil : ";wa$(q[171]1)
32310 [152]4,"(NULL)arengruppe:";wa%(q[171]1)
32320 [152]4,[199](27);[199](77)
32330 [152]4,"str$atum (NULL)ieferant (NULL)ugang atnbgang ";
32340 [152]4,"valinzelpreis chr$esammtpreis peekestand"
32350 [152]4,"***** (NULL)ebertrag ****** ****** ";
32360 [152]4,"*********** ************ ";[202]([196](fe(5,1)),2)
32370 [139]fe(0,1)[179]2[167]32520
32380 [129]r[178]2[164]fe(0,1)
32390 da$[178][202]([196](fe(0,r)),2)[170]"."[170][202]([196](mo%),2)
32400 da$[178][200](da$[170]" ",8)
32410 li$[178][200](li$([182](fe(1,r)[171]1))[170]" ",21)
32411 [139]fe(2,r)[178]0[167]li$[178]" "
32420 zu$[178][200]([202]([196](fe(2,r)),2)[170]" ",9)
32430 [139]fe(2,r)[178]0[167]zu$[178]"****** "
32440 ab$[178][200]([202]([196](fe(3,r)),2)[170]" ",9)
32450 [139]fe(3,r)[178]0[167]ab$[178]"****** "
32460 ep$[178][200]([202]([196](fe(4,r)),2)[170]" ",12)
32470 [139]fe(4,r)[178]0[167]ep$[178]"*********** "
32480 gp$[178][200]([202]([196](fe(2,r)[172]fe(4,r)),2)[170]" ",13)
32490 [139]fe(2,r)[178]0[167]gp$[178]"************ "
32500 be$[178][202]([196](fe(5,r)),2)
32510 [152]4,da$;li$;zu$;ab$;ep$;gp$;be$
32520 [130]
32530 [152]4,[199](12);
32540 [130]:[160]4:[137]1410
41000 [143] *****************************
41010 [143] * neue datendisk *
41020 [143] *****************************
41030 [153]"load":[141]504
41040 [153]"(NULL)eue (NULL)onatsdiskette:":h1%[178]mo%:mo%[178]0
41050 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
41060 [153]"(a) mid$anuar"
41070 [153]"(b) ascebruar"
41080 [153]"(c) (NULL)aerz"
41090 [153]"(d) atnpril"
41100 [153]"(e) (NULL)ai"
41110 [153]"(f) mid$uni"
41120 [153]"(g) mid$uli"
41130 [153]"(h) atnugust"
41140 [153]"(i) (NULL)eptember"
41150 [153]"(j) (NULL)ktober"
41160 [153]"(k) (NULL)ovember"
41170 [153]"(l) str$ezember"
41180 [153]"(_) zurueck"
41190 [161]a$:[139]a$[178]""[167]41190
41200 [139]a$[178]"_"[167]mo%[178]h1%:[137]41500
41210 [139]a$[178]"a"[167]mo$[178]"mid$anuar":mo%[178]1
41220 [139]a$[178]"b"[167]mo$[178]"ascebruar":mo%[178]2
41230 [139]a$[178]"c"[167]mo$[178]"(NULL)aerz":mo%[178]3
41240 [139]a$[178]"d"[167]mo$[178]"atnpril":mo%[178]4
41250 [139]a$[178]"e"[167]mo$[178]"(NULL)ai":mo%[178]5
41260 [139]a$[178]"f"[167]mo$[178]"mid$uni":mo%[178]6
41270 [139]a$[178]"g"[167]mo$[178]"mid$uli":mo%[178]7
41280 [139]a$[178]"h"[167]mo$[178]"atnugust":mo%[178]8
41290 [139]a$[178]"i"[167]mo$[178]"(NULL)eptember":mo%[178]9
41300 [139]a$[178]"j"[167]mo$[178]"(NULL)ktober":mo%[178]10
41310 [139]a$[178]"l"[167]mo$[178]"str$ezember":mo%[178]12
41320 [139]mo%[178]0[167]41190
41330 [133]"mid$ahr (2 (NULL)iffern):";ja$
41340 ja%[178][197]([200](ja$,2))
41350 [141]501:[153]"peekitte eine leere formatierte str$iskette"
41360 [153]"einlegen und eine (NULL)aste druecken !!onon"
41370 [151]198,0:[146]198,1:[151]198,0
41380 [160]1:[159]1,8,15,"n:"[170]mo$[170][196](ja%):[160]1
41390 [160]2:[159]2,8,2,"@:datum,u,w"
41400 [152]2,mo$
41410 [152]2,ja%
41420 [152]2,mo%
41430 [160]2
41440 [160]1:[159]1,8,15,"i"
41450 [160]2:[159]2,8,2,"peekestandsliste,l,"[170][199](7)
41460 [152]1,"p"[170][199](2)[170][199](212)[170][199](73)[170][199](1)
41470 [152]2,[199](255)
41480 [132]1,en,er$,et,es
41490 [160]2:[160]1
41500 [137]1510
42000 [143] *****************************
42010 [143] * diskettenbefehl *
42020 [143] *****************************
42030 [153]"load":[141]505:[153]"str$iskettenbefehl "
42040 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
42050 [153]"(NULL)ie soll der str$iskettenbefehl lauten ?"
42060 [153]"('_' + '(NULL)val(NULL)(NULL)(NULL)(NULL)' = zurueck)"
42070 [153]">";:[151]631,34:[151]198,1
42080 [160]1:[159]1,0
42090 [132]1,be$
42100 [160]1:[153]
42110 [139]be$[178]"_"[167]42190
42120 [160]1:[159]1,8,15,be$
42130 [132]1,en,er$,et,es
42140 [153]"str$iskettenstatus:"
42150 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
42160 [153]en;er$;et;es
42170 [153]"(NULL)aste druecken!"
42180 [151]198,0:[146]198,1:[151]198,0
42190 [137]1510
43000 [143] *****************************
43010 [143] * uebertrag hestellen *
43020 [143] *****************************
43030 [153]"load":[141]505:[153]"(NULL)ebertrag herstellen"
43040 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
43050 [141]501:[153]"peekitte die str$iskette des (NULL)ormonats ein-"
43060 [153]"legen, und (NULL)aste druecken!";
43070 [151]198,0:[146]198,1:[151]198,0
43080 [160]2:[160]1:[159]1,8,15:[159]2,8,2,"datum,u,r"
43090 [132]1,en,er$,et,es
43100 [139]en[179][177]0[167][160]2:[160]1:[137]43050
43105 [132]2,mo$,ja%,mo%
43110 [160]2:[160]1
43120 [129]b[178]1[164]270:[139]wa$(b[171]1)[178]""[167]wu(b[171]1)[178][171][255]:[137]43170
43130 wa%[178]b:[141]610
43140 [153]"(NULL)arenteil:";wa$(b[171]1)" "
43150 [139]ei%[179][177]255[167]wu(b[171]1)[178]fe(5,fe(0,1))
43160 [139]ei%[178]255[167]wu(b[171]1)[178][171][255]
43170 [130]
43180 [143]
43190 [141]501:[153]"peekitte die str$iskette des (NULL)achmonats ein-"
43200 [153]"legen, und (NULL)aste druecken!";
43210 [151]198,0:[146]198,1:[151]198,0
43220 [160]2:[160]1:[159]1,8,15:[159]2,8,2,"datum,u,r"
43230 [132]1,en,er$,et,es
43240 [139]en[179][177]0[167][160]2:[160]1:[137]43190
43245 [132]2,mo$,j1%,m1%:[139]j1%[178]ja%[175]m1%[178]mo%[167][160]2:[160]1:[137]43190
43250 [160]2:[159]2,8,2,"peekestandsliste,l,"[170][199](7)
43270 [129]t[178]1[164]270
43280 [139]wu(t[171]1)[178][171][255][167]43370
43290 [153]"(NULL)arenteil:";wa$(t[171]1)" "
43300 pl%[178](t[172]70[171]69)[171]256[172][181]((t[172]70[171]69)[173]256):ph%[178][181]((t[172]70[171]69)[173]256)
43310 [152]1,"p"[170][199](2)[170][199](pl%)[170][199](ph%)[170][199](1)
43320 au$[178][199](1)[170][199](128)
43330 a1%[178]wu(t[171]1)[173]256
43340 a2%[178]wu(t[171]1)[171][181](wu(t[171]1)[173]256)[172]256
43350 au$[178]au$[170][199](a1%)[170][199](a2%)[170][199](0)[170][199](0)
43360 [152]2,au$
43370 [130]
43380 [160]2:[160]1:[137]1510