home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 91
/
64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64
/
list-designer4.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
11KB
|
319 lines
10 rem -------------------------------
20 rem ----- list-designer two -----
30 rem ----- -----
40 rem ----- (w) 1992 genies -----
50 rem -------------------------------
60 print"[154][147] [196]as [208]rogramm springt automatisch in":poke53280,14:poke53281,15
70 print" das [205]enue zurueck, wenn [198]loppy oder"chr$(14)chr$(8)
80 print" der serielle [196]rucker aus ist."
90 print" (w) 1992 [199]enies":clr:gosub4000:f=1
93 print" [201]nitialisiere [198]loppy!":print" [211]tatus: ";
95 open1,8,15,"i":input#1,e1$,e2$,e3$,e4$:printe1$","e2$","e3$","e4$:close1
96 print" [212]aste!":poke198,.:wait198,1
100 deffnt(x)=(40-len(x$))/2:dimta$(7,50),eg$(7,51):x=1
110 f$(2)="[196]iskettenverwaltung":f$(1)="[195][196]-[214]erwaltung":f$(3)="[193]dressenverwaltung"
111 f$(4)="[214]ideoverwaltung":f$(5)=""
150 print"[147]":x$="[204]ist-[196]esigner [212]wo v4.0":print""tab(fnt(1))x$:poke198,.
160 print"----------------------------------------":cp$="[205]arkt&[212]echnik"
161 poke214,11:poke211,20:sys58732:print"[215]ritten by [199]enies
163 [151]214,13:[151]211,20:[158]58732:[153]"(c)";cp$
164 [151]214,17:[158]58732:[153]"----------------------------------------
165 poke214,18:poke211,4:sys58732:print"'_' [215]echselt die [196]ateiverwaltung"
166 poke214,19:sys58732:print"----------------------------------------
167 [151]214,5:[151]211,.:[158]58732
170 [153]"str$esigner-(NULL)enue:":m$(1)[178]"- atnnlegen ":m$(2)[178]"- (NULL)isten "
180 m$(3)[178]"- str$rucken ":m$(4)[178]"- (NULL)aven ":m$(5)[178]"- (NULL)aden "
190 m$(6)[178]"- str$iskette ":m$(7)[178]"- (NULL)oeschen ":m$(8)[178]"- peekeenden "
200 [129]t[178]1[164]8:t$(t)[178]""[170]m$(t)[170]"wait":[130]
210 [153]"":[129]t[178]1[164]8:[153][163]7)m$(t):[130]
220 [129]r[178]1[164]x:[153]"";:[130]
230 [153]"ononononononononon"[163]7)t$(x)
240 [161]a$
241 [139]a$[178]"b"[167]x[178]8:a$[178][199](13)
245 [139]a$[178]"_"[175]y[178].[167]f[178]f[170]1:[139]f[178]5[167]f[178]1
246 [139]a$[178]"_"[175]y[178].[167][151]781,23:[158]59903:[145]f[141]4040,4060,4080,4100,4120
250 [139]a$[178]"on"[175]x[179] 0[167]240
260 [139]a$[178]""[175]x[177] 9[167]240
265 ze[178][194](214):sp[178][194](211):[151]214,23:[151]211,7:[158]58732:[153]"*atnrt: "f$(f)
266 [151]214,ze:[151]211,sp:[158]58732
270 [139]a$[178]""[167]x[178]x[170]1:[153]"on"[163]7)m$(x[171]1)[199](13)[163]7)t$(x)
280 [139]a$[178]"on"[175]x[177]0[167]x[178]x[171]1:[153]"on"[163]7)m$(x[170]1)[199](13)"onon"[163]7)t$(x)
290 [139]a$[178][199](13)[167]330
300 [139]x[178]0[175]a$[178]"on"[167]x[178]8:[153][163]7)m$(1)[199](13)""[163]7)t$(x)
310 [139]x[178]9[175]a$[178]""[167]x[178]1:[153]"onon"[163]7)m$(8)[199](13)"onononononononon"[163]7)t$(x)
320 [137]240
330 ya[178]5:ye[178]23:[141]60100
340 x$[178][201](m$(x),9):[129]t[178]1[164]9:[139][202](x$,t,1)[178]" "[167]r[178]t:t[178]9
350 [130]:x$[178][200](x$,r):r[178][165]t(x):[153]""[166]r)x$
360 [145]x[137]361,500,1760,770,950,1220,1150,1720
361 [139]y[178]50[167][153]"(NULL)ein (NULL)latz gefunden!":[151]198,.:[146]198,1:[137]150
365 y[178]y[170]1
370 [151]214,20:[151]211,.:[158]58732
371 [153]"----------------------------------------";
372 [153]" asc1 wait atnendern asc3 wait peekestaetigung"
373 [153]" asc5 wait (NULL)enue asc7 wait (NULL)eset"
374 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(NULL)eite: cmdcmdcmdcmdcmd"y"wait"
375 ya[178]6:ye[178]18:[141]60100
376 [129]z[178]6[164]18[169]2:[151]214,z:[151]211,37:[158]58732:[153]"<":[130]:[151]214,4
377 [151]214,5:[158]58732
380 [129]t[178]1[164]7
390 [153]""da$(t)
400 [130]
410 [151]214,5:[158]58732:[129]t[178]1[164]7:[153]"";
420 le[178]20:bs[178]1:[141]60000:ta$(t,y)[178]i$:[130]
445 [139]y[178]50[167][151]214,21:[151]211,15:[158]58732:[153]" "
450 [151]198,.:[146]198,1:[161]x$:[139]x$[178][199](133)[167]375
460 [139]x$[178][199](134)[175]y[179]50[167]y[178]y[170]1:[137]374
465 [139][197](x$)[177].[175][197](x$)[179]8[167][141]61400
470 [139]x$[178][199](135)[167]150
480 [139]x$[178][199](136)[167]y[178]0:f[178]1:[137]150
490 [137]450
500 [139]y[178]0[167][153]"vals ist keine (NULL)abelle vorhanden!":[151]198,.:[146]198,1:[137]150
505 d[178]1:[151]214,20:[151]211,.:[158]58732
510 [153]"----------------------------------------"
512 [153]" asc5 wait atnendern asc7 wait (NULL)enue"
515 ya[178]6:ye[178]18:[141]60100
520 [153]""da$(1);ta$(1,d)
530 [153]""da$(2);ta$(2,d)
540 [153]""da$(3);ta$(3,d)
550 [153]""da$(4);ta$(4,d)
560 [153]""da$(5);ta$(5,d)
570 [153]""da$(6);ta$(6,d)
580 [153]""da$(7);ta$(7,d)
590 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(NULL)eite: cmdcmdcmdcmdcmd"d"wait"
600 [139]d[178]y[167][151]214,21:[151]211,.:[158]58732:[153]" "
605 [139]d[179]y[167][151]214,21:[151]211,.:[158]58732:[153]" asc1 wait (NULL)or"
610 [139]d[179]2[167][151]214,21:[151]211,21:[158]58732:[153]" "
615 [139]d[177]1[167][151]214,21:[151]211,21:[158]58732:[153]" asc3 wait (NULL)urueck"
620 [151]198,.:[146]198,1:[161]x$
625 [139][197](x$)[177].[175][197](x$)[179]8[167][141]60400
630 [139]x$[178][199](133)[175]d[179]y[167]d[178]d[170]1:[137]515
640 [139]x$[178][199](134)[175]d[177]1[167]d[178]d[171]1:[137]515
650 [139]x$[178][199](135)[167]680
660 [139]x$[178][199](136)[167]150
670 [137]620
680 ya[178]6:ye[178]18:[141]60100
690 [153]:[129]t[178]1[164]7
700 [153]""da$(t):[151]214,4[170]t[172]2:[151]211,38:[158]58732:[153]"<"
710 [130]
720 [129]t[178]1[164]7:[151]214,4[170]t[172]2:[151]211,16:[158]58732
730 le[178]20:bs[178]1:[141]60000:ta$(t,d)[178]i$:[151]214,4[170]t[172]2:[151]211,38:[158]58732:[153]" "
760 [130]:[137]620
770 [141]60200:[139]er[167]2000
771 [139]y[178]0[167][153]"(NULL)eine (NULL)abelle vorhanden!":[151]198,.:[146]198,1:[137]150
775 [159]1,8,15,"ui+":[159]2,8,2,"0:ld 2 reldat"
780 [132]1,e:[139]e[178]62[167][153]"right$st es die str$atendisk?":[160]1:[160]2
781 [139]e[178]62[167][151]198,.:[146]198,1:[137]150
785 [153]"atnb welchem peeklock ablegen (1-20): ";:le[178]2:bs[178]1:[141]60000
786 ad[178][197](i$):[139]ad[177]20[167][153]"onon":[137]785
787 [139]ad[178]0[167][160]1:[160]2:[137]150
790 r[178](ad[171]1)[172]50:h[178][181](r[173]256):l[178]r[171]h[172]256
792 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):[141]60300:[139]e1$[179][177]"00"[167][128]
793 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):[129]d[178].[164]y[171]1
794 w$[178][201]([196](f),1)
800 [129]t[178]1[164]7
810 [139][195](ta$(t,d[170]1))[179]20[167]ta$(t,d[170]1)[178]ta$(t,d[170]1)[170]" ":[137]810
820 w$[178]w$[170]ta$(t,d[170]1):[130]:[151]211,.:[151]214,10:[158]58732
830 [139][195](w$)[179][177]141[167][153]"str$atensatzerror!":[160]2:[160]1:[128]
835 [151]781,2:[158]65481
840 [152]2,w$;:w$[178]"":[141]60300:[139]e1$[179][177]"00"[167][153]"ascehler!":[128]
850 [130]:[152]2,[199](255)::[151]211,.:[151]214,8:[158]58732
855 [153]"str$aten sind geschrieben.":[158]65484
860 [160]2:[160]1:[137]150
950 [141]60200:[139]er[167]2000
951 [159]1,8,15,"i":[159]2,8,2,"0:ld 2 reldat"
955 [132]1,e:[139]e[178]62[167][153]"(NULL)hne str$atei kann ich nichts laden!":[146]203,64,64
960 [139]e[178]62 [167][160]2:[160]1:[137]150
970 [153]"atnb welchem peeklock lesen (1-20): ";:le[178]2:bs[178]1:[141]60000
980 ad[178][197](i$):[139]ad[177]20[167][153]"onon":[137]970
985 [139]ad[178].[167][160]2:[160]1:[137]150
990 r[178](ad[171]1)[172]50:h[178][181](r[173]256):l[178]r[171]h[172]256
1000 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):[141]60300:[139]e1$[179][177]"00"[167][128]
1010 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):y[178]1
1015 [141]60300:[139]e1$[178]"50"[167][160]2:[160]1:[137]150
1016 [151]781,2:[158]65478
1020 [161]#2,a$:[139]a$[178][199](255)[167][151]214,8:[151]211,.:[158]58732:[137]1100
1030 f[178][197](a$): [151]211,.:[151]214,10:[158]58732
1040 [129]i[178]1[164]7:[129]t[178]1[164]20:[161]#2,a$:ta$(i,y)[178]ta$(i,y)[170]a$
1060 [130]:ta$(i,y)[178][201](ta$(i,y),20):[130]:y[178]y[170]1:[139]y[178]51[167]1130
1065 [137]1020
1100 [139]y[178]1[167][153]"valin leerer peeklock wurde gelesen.":[137]1140
1130 [153]"atnlle str$aten sind eingelesen.":[158]65484
1140 y[178]y[171]1:[160]2:[160]1:[146]203,64,64:[137]150
1150 [153]"atnlle str$aten str$aten im (NULL)peicher werden ge-
1160 print"loescht!"
1170 print"o.[203].? (j[146]/n[146])"
1180 poke198,.:wait198,1:getx$:ifx$="n"then150
1190 ifx$<>"j"then1180
1200 fora=1to7:ford=1to50:ta$(a,d)="":next:poke53280,a:next:y=0
1210 print"[196]aten sind geloescht!":poke198,.:wait198,1:poke53280,14:goto150
1220 gosub60200:iferthen2000
1225 poke214,6:poke211,.:sys58732
1226 print"[196]isk-[207]ptions 1541/1571":poke214,7:sys58732
1230 print" [198][146]ormatieren [174]"chr$(13)" [204][146]oeschen [189][145][157][171] einer [196]isk"
1245 print" [193][146]nlegen einer [196]atei"
1246 print" [211][146]cratchen einer [196]atei"
1247 print" [201][146]nitialisieren der [198]loppy
1255 [153]" str$waitirectory"
1260 [153]"(NULL)um (NULL)waitenue zurueckkehren"
1270 a[178]0:[151]198,.:[146]198,1:[161]x$:[139]x$[178]"m"[167]150
1280 [139]x$[178]"f"[167]a[178]1
1285 [139]x$[178]"a"[167]a[178]4
1286 [139]x$[178]"s"[167]a[178]5
1290 [139]x$[178]"l"[167]a[178]2
1295 [139]x$[178]"d"[167]a[178]3
1296 [139]x$[178]"i"[167]a[178]6
1320 [139]a[178]0[167]1270
1330 [159]1,8,15:[145]a[137]1340,1430,1680,1510,1540,6000,6010
1335 ya[178]6:ye[178]23:[141]60100:[153]"":[160]1:[137]1220
1340 ya[178]6:ye[178]21:[141]60100:[153]"(NULL)ame der str$iskette: ";:le[178]16:bs[178]1:[141]60000
1350 n$[178]i$:[153]"right$str$ der str$iskette: ";:le[178]2:bs[178]1:[141]60000
1360 [139]n$[178]""[176]i$[178]""[167][160]1:[137]1335
1370 [153]"o.(NULL).? (jwait/nwait)":[151]198,.:[146]198,1:[161]x$
1380 [139]x$[178]"n"[167]1335
1390 [139]x$[179][177]"j"[167][153]"onon";:[137]1370
1400 [152]1,"n:"[170]n$[170]","[170]i$:[132]1,e1$,e2$,e3$,e4$
1401 [141]60300
1402 [159]2,8,2,"0:ld 2 reldat,l,"[170][199](141)
1403 [141]60300:[139]e1$[178]"63"[167][160]1:[160]2:[137]1335
1404 [152]1,"p"[170][199](98)[170][199](224)[170][199](3)[170][199](1)
1405 [141]60300
1406 [152]2,[199](255)
1407 [141]60300
1408 [160]2
1429 [160]1:[151]198,.:[146]198,1:[137]1335
1430 ya[178]6:ye[178]21:[141]60100:[153]"(NULL)ame der str$iskette: ";:le[178]16:bs[178]1:[141]60000
1440 n$[178]i$:[139]n$[178]""[167][160]1:[137]1335
1450 [153]"o.(NULL).? (jwait/nwait)":[151]198,.:[146]198,1:[161]x$
1460 [139]x$[178]"n"[167]1335
1470 [139]x$[179][177]"j"[167][153]"onon";:[137]1450
1480 [152]1,"n:"[170]n$:[132]1,e1$,e2$,e3$,e4$
1500 [137]1401
1510 ya[178]6:ye[178]21:[141]60100:[153]"peekitte str$isk fuer die neue str$atei einlegen."
1520 [146]203,64,64:[161]x$:[139]x$[178]"."[167][160]1:[137]1335
1530 [153]"onon(NULL)ege jetzt die neue str$atei an. ":[137]1402
1540 ya[178]6:ye[178]21:[141]60100:[153]"(NULL)egen sie die str$isk mit der zu scratch-"
1550 [153]"enden str$atei ein."
1551 [146]203,64,64:[161]x$:[139]x$[178]"."[167][160]1:[137]1335
1552 [153]"on ":[153]"onon(NULL)cratche str$atei! "
1553 [152]1,"s:ld 2 reldat":[141]60300:[146]203,64,64:[137]1335 "
1680 print#1,"i":input#1,er
1690 iferthenprint"[196]isk ist nicht lesbar!":wait203,64,64:goto1335
1700 fort=1to1000:next:print"[147]"chr$(142):restore:form=828to902
1710 read p:poke m,p:next:sys828:poke198,.:wait198,1
1711 print"[147]"chr$(14):x$="[204]ist-[196]esigner [212]wo v4.0":print""tab(fnt(1))x$
1712 print"----------------------------------------":goto1335
1720 print"[211]ind [211]ie sicher? (j[146]/n[146])"
1730 poke198,.:wait198,1:getx$:ifx$="n"then150
1740 ifx$="j"thenprint"[147][212]schuess...":end
1750 goto1730
1760 ify>.then1780
1770 poke214,12:sys58732:print" [215]as soll ich denn drucken, du ...?"
1775 poke198,.:wait198,1:goto150
1780 poke214,6:poke211,.:sys58732:print"[196]rucker: [211]tar [204][195] 20"
1781 poke214,8:poke211,.:sys58732:print"[213]eberschrift:";:le=40:bs=1:gosub60000
1785 poke214,11:poke211,.:sys58732:print"[196]rucke!"
1790 open1,4,7:ifi$=""then1800
1791 print#1," "
1795 print#1,i$:print#1,"----------------------------------------";
1796 print#1,"----------------------------------------"
1800 print#1," "
1805 print#1,"[214]erzeichnis ";
1806 print#1,"[194]ermerkungen ";
1809 print#1," "
1810 d=1
1820 fort=1to7:print#1,da$(t);": ";ta$(t,d):next:print#1,""
1830 d=d+1
1831 ifint(d/7)=d/7andd<ythengosub61500
1832 ifd=<ythen1820
1870 poke214,11:poke211,.:sys58732:print" "
1871 poke781,8:sys59903:poke781,9:sys59903:poke214,8:poke211,.:sys58732
1875 print"[193]nzahl der [196]aten ausgeben? ";
1876 geta$:ifa$<>"j"anda$<>"n"then1876
1877 printa$:ifa$="n"then1900
1880 print#1,chr$(13)"[193]nzahl:";y
1900 close1:poke214,11:poke211,.:sys58732:print"[198]ertig!":wait203,64,64:goto150
2000 ya=6:ye=23:gosub60100
2010 print"[198][204][207][208][208][217] ist aus! [194]itte einschalten!"
2020 poke198,.:wait198,1:goto150
2040 ya=6:ye=23:gosub60100
2050 print"[196][145][210][145][213][145][195][145][203][145][197][145][210] ist aus! [194]itte einschalten!"
2060 poke198,.:wait198,1:goto150
4000 rem "16 [218]eichen!"
4040 da$(1)="[212]itel: "
4041 da$(2)="[205]usiker/[199]ruppe: "
4042 da$(3)="[212]itelanzahl: "
4043 da$(4)="[204]aufzeit: "
4044 da$(5)="[205]onat/[202]ahr: "
4045 da$(6)="[211]parte: "
4046 da$(7)="[194]emerkung: "
4050 return
4060 da$(1)="[206]ame: "
4061 da$(2)="[201][196]: "
4062 da$(3)="[193]nzahl d. [198]iles:"
4063 da$(4)="[203]urzbeschreib.: "
4064 da$(5)="[196]rive + [211]puren: "
4065 da$(6)="[199]eos [196]isk: "
4066 da$(7)="[194]emerkung: "
4070 return
4080 da$(1)="[214]orname: "
4081 da$(2)="[206]ame: "
4082 da$(3)="[211]tr. / [200]ausnr.: "
4083 da$(4)="[208]ostleitzahl: "
4084 da$(5)="[215]ohnort: "
4085 da$(6)="[212]elefon: "
4086 da$(7)="[199]eburtstag: "
4090 return
4100 da$(1)="[198]ilmtitel: "
4101 da$(2)="[212]hema: "
4102 da$(3)="[210]egie: "
4103 da$(4)="[202]ahr: "
4104 da$(5)="[204]aenge: "
4105 da$(6)="[206]r. der [203]ass.: "
4106 da$(7)="[194]emerkung: "
4110 return
4111 da$(2)="[206]ame: "
4120 da$(1)=" "
4121 da$(2)=" "
4122 da$(3)=" "
4123 da$(4)=" "
4124 da$(5)=" "
4125 da$(6)=" "
4126 da$(7)=" "
4130 return
6000 print#1,"i":gosub60300:close1:wait203,64,64:goto1335
59999 print"ende":end
60000 p=0:i$=""
60001 poke204,.:poke198,.:wait198,1:getx$
60002 poke207,.:poke204,1:print" [157]";
60003 ifp=.then60005
60004 ifasc(x$)=20theni$=left$(i$,len(i$)-1):print"[157] [157]";:p=p-1:goto60001
60005 ifasc(x$)=13thenprint:return
60006 ifp=le then60001
60007 ifbs=.and(x$<"0"orx$>"9")then60001
60008 ifbs=1and(x$<" "or(x$>chr$(127)andx$<chr$(160)))then60001
60009 printx$;:i$=i$+x$:p=p+1:goto60001
60100 fort=yatoye:poke781,t:sys59903:next
60110 poke214,ya-2:poke211,.:sys58732:return
60200 poke144,.:poke780,8:sys65457:sys65454:er=peek(144):return
60210 poke144,.:poke780,4:sys65457:sys65454:er=peek(144):return
60300 input#1,e1$,e2$,e3$,e4$:poke781,22:sys59903:poke211,.:poke214,22
60310 sys58732:printe1$","e2$","e3$","e4$:return
60400 x1=val(x$):y1=4+x1*2:poke780,y1:sys59903
60410 poke214,y1:poke211,.:sys58732:printda$(x1)
60420 poke214,y1:poke211,38:sys58732:print"<"
60430 poke214,y1:poke211,16:sys58732:le=20:bs=1:gosub60000
60440 ta$(x1,d)=i$:poke214,y1:poke211,38:sys58732:print" ":return
61400 x1=val(x$):y1=4+x1*2:poke214,y1:poke211,16:sys58732:print" "
61410 poke214,y1:poke211,.:sys58732:printda$(x1)
61430 poke214,y1:poke211,16:sys58732:le=20:bs=1:gosub60000
61440 ta$(x1,d)=i$:return
61500 poke781,8:sys59903:poke781,9:sys59903:poke214,8:poke211,.:sys58732
61510 print"[206]aechste [211]eite einlegen!":wait203,64,64
61520 poke781,8:sys59903:poke214,8:poke211,.:sys58732
61530 return
63000 data169,147,32,210,255,162,134,160,3,169,1,32,189,255,169,8,162,96,133
63001 data186,134,185,32,213,243,32,25,242,160,4,32,19,238,136,208,250,165,198
63002 data5,144,208,25,32,19,238,170,32,19,238,32,205,189,32,19,238,32,210,255
63003 data208,248,32,215,170,160,2,208,219,32,66,246,32,243,246,96,36