home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_89-01_1989_-_de_Side_A.d64
/
druckeranpassung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
137 lines
100 poke53281,0:poke53280,0:printchr$(14);"":gosub50030:iflz>0then1000
110 print"[194]itte warten, ich lade...":lz=2
120 load"zeichen",8,1
1000 poke53272,31
1006 print"[193][195][200][212][213][206][199]>
1010 [153]"(NULL)enn (NULL)ie den str$rucker (NULL)(NULL)(NULL)801 oder (NULL)(NULL)(NULL)803"
1020 [153]"besitzen, m@ssen (NULL)ie die str$ruckeranpas-
1030 print"sung [206][201][195][200][212] verwenden. [196]as entsprechende
1040 [153]"(NULL)arameterfile befindet sich bereits auf
1050 print"der [205]agic [196]isk. [211]ie m@ssen es nur im
1060 [153]"(NULL)ptionmen@ laden.
1070 print"[170][196][167] - [196]ruckeranpassung vornehmen
1080 [153]"+(NULL)then - (NULL)agic str$isk starten
1090 print"[194]itte [170][196][167] oder [170][205][167] dr@cken.
1100 [161]a$:[139]a$[178]"d"[167]50100
1110 [139]a$[179][177]"m"[167]1100
1120 [151]53272,23:[153]"load":[137]51320
50030 [153]"load str$(NULL)(NULL)len(NULL)val(NULL)-atn(NULL)(NULL)atn(NULL)(NULL)(NULL)(NULL)chr$(NULL)(NULL)(NULL)(NULL)chr$(NULL)atn(NULL)(NULL)"
50035 [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("
50040 [153]" (c) 1988 by (NULL)agic str$isk 64"
50050 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
50070 [142]
50100 [151]53272,31:[141]50030
50110 [160]1:[159]1,0:s[178]5[172]4096[170]9[172]256[170]3:t[178]850:[129]i[178]t[164]t[170]28:[151]i,0:[130]
50120 [153]"peekitte beantworten (NULL)ie zur str$ruckeranpas-";
50130 [153]"sung die folgenden ascragen. str$ie atnntworten";
50140 [153]"entnehmen (NULL)ie bitte right$hrem str$ruckerhand-";
50150 [153]"buch."
50160 [153]"(NULL)ann right$hr str$rucker bei chr$rafikdruckwait nur 7";
50170 [153]"(NULL)adeln ansprechen oder 8 bzw. mehr als";
50180 [153]"8 (wenn vorhanden) ?"
50190 [151]198,0:[153]"(NULL)ippen (NULL)ie +7then oder +8then."
50200 [161]b$:[139]b$[179][177]"7"[175]b$[179][177]"8"[167]50200
50210 [151]t,[197](b$)
50220 [141]50030:[153]"(NULL)u(NULL) bei chr$rafikdruck das achte peekit eines";
50230 [153]"zum str$rucker gesendeten chr$rafikbytes immer";
50240 [153]"gesetzt sein (bei (NULL)(NULL)(NULL) notwendig) ?"
50250 [153]"(NULL)ippen (NULL)ie +mid$then f@r 'mid$a' oder +(NULL)then f@r'(NULL)ein'.":[151]198,0
50260 [161]b$:[139]b$[179][177]"j"[175]b$[179][177]"n"[167]50260
50270 [139]b$[178]"j"[167][151]t[170]1,1
50280 [141]50030:[153]"(NULL)elche (NULL)ekund;radresse m@ssen (NULL)ie ange-";
50290 [153]"ben, damit right$hr str$ruckerinterface die vom";
50300 [153]"lenomputer gesendeten str$aten unver;ndertwait an";
50310 [153]"den str$rucker @bertr;gt?"
50320 [151]198,0:[153]"(NULL)ekund;radresse (0 bis 255) > ";:[132]1,b$:[153]
50330 a[178][197](b$):a[178][181](a):[139]a[179]0[176]a[177]255[167]50280
50340 [151]t[170]2,a:[141]50030
50350 [153]"(NULL)egen (NULL)ie jetzt die (NULL)enderichtung fest,";
50360 [153]"mit der ein peekyte im chr$rafikdruck zum";
50370 [153]"str$rucker gesendet werden mu(NULL). (NULL)ippen (NULL)ie";
50380 [153]"die (NULL)aste +0then, wenn das h:chstwertigste";
50390 [153]"peekit (=128 oder 2^7) eines chr$rafikbytes in";
50400 [153]"einer str$ruckzeile obenwait erscheint oder";
50410 [153]"+1then, wenn es untenwait erscheint."
50420 [153]"(NULL)ippen (NULL)ie +0then oder +1then.":[151]198,0
50430 [161]b$:[139]b$[179][177]"0"[175]b$[179][177]"1"[167]50430
50440 [139]b$[178]"1"[167][151]t[170]19,1
50450 [141]50030:[153]"peekei den nun folgenden valingaben kann es";
50460 [153]"sein, da(NULL) (NULL)ie pro ascrage mehr als nur ei-";
50470 [153]"nen (NULL)ert eingeben m@ssen. str$iese (NULL)erte";
50480 [153]"werden als (NULL)ahlen von 0 bis 255 verlangt";
50490 [153]"und m@ssen jeweils mit der (NULL)aste (NULL)val(NULL)(NULL)(NULL)(NULL)";
50500 [153]"abgeschlossen werden. (NULL)@ssen weniger als";
50510 [153]"die abgefragten (NULL)erte eingegeben werden,";
50520 [153]"so @bernehmen (NULL)ie den (jeweils darge-";
50530 [153]"stellten) (NULL)ert (0) durch einfaches str$r@k-";
50540 [153]"ken der (NULL)val(NULL)(NULL)(NULL)(NULL)-(NULL)aste, ohne diese 0 durch";
50550 [153]"eine andere (NULL)ahl zu @berschreiben."
50560 [153]"str$r@cken (NULL)ie jetzt bitte irgendeine(NULL)aste.
50570 poke198,0:wait198,1:gosub50030
50580 print"[215]elche [215]erte m@ssen [211]ie zum [196]rucker sen-";
50590 print"den, um diesen auf die [193]usgabe von 320";
50600 print"[199]rafikbytes umzustellen? ([194]ei [205][208][211]-kompa-";
50610 print"tiblen [196]ruckern ist das meistens nur ein";
50620 print"[215]ert, n;mlich die [218]ahl 8. [194]ei [197]psondruk-";
50630 print"kern ist es die [218]ahlenfolge 27, 42, 0,";
50640 print"64, 1.)":poke198,0
50650 a$="":fori=1to8
50660 printi;"[157]. [215]ert> 0[157]";:input#1,b$:print
50670 a=int(val(b$)):ifa>=0anda<=255then50690
50680 print"[145] ":print"[145]";:goto50660
50690 a$=a$+chr$(a):nexti
50700 fori=1to8:ifasc(mid$(a$,i,1))>0then50750
50710 next:gosub50030:print"[196]ie [197]ingaben waren unsinnig. [194]itte wie-";
50720 print"derholen [211]ie diese [197]ingaben!":print"[194]itte [170][210][197][212][213][210][206][167] dr@cken.":poke198,0
50730 geta$:ifa$<>chr$(13)then50730
50740 gosub50030:goto50580
50750 ifasc(right$(a$,1))=0thena$=chr$(0)+left$(a$,7):goto50750
50760 fori=1to8:poket+19+i,asc(mid$(a$,i,1)):next
50770 gosub50030:print"[215]elche [215]erte m@ssen [211]ie zum [196]rucker sen-";
50780 print"den, damit dieser seinen [218]eilenabstand";
50790 print"so einstellt, da[219] zwischen zwei gedruck-";
50800 print"ten [218]eilen kein leerer [210]aum entsteht?"
50810 print:print:poke198,0
50820 a$="":fori=1to8
50830 printi;"[157]. [215]ert> 0[157]";:input#1,b$:print
50840 a=int(val(b$)):ifa>=0anda<=255then50860
50850 print"[145] ":print"[145]";:goto50830
50860 a$=a$+chr$(a):nexti
50870 fori=1to8:poket+10+i,asc(mid$(a$,i,1)):next
50880 gosub50030:print"[215]elche [215]erte m@ssen [211]ie senden, damit";
50890 print"der [196]rucker nach [199]rafikdruck wieder in";
50900 print"den normalen [212]extdruckmodus zur@ckge-";
50910 print"setzt wird? ([194]ei [205][208][211]-kompatiblen [196]ruk-";
50920 print"kern ist der [215]ert 15, bei [197]psondruckern";
50930 print"ist keine [197]ingabe notwendig.)"
50940 a$="":fori=1to6
50950 printi;"[157]. [215]ert> 0[157]";:input#1,b$:print
50960 a=int(val(b$)):ifa>=0anda<=255then50980
50970 print"[145] ":print"[145]";:goto50950
50980 a$=a$+chr$(a):nexti
50990 fori=1to6:poket+2+i,asc(mid$(a$,i,1)):next
51000 poket+9,13:gosub50030:print"[205]u[219] bei einem [195]arriage [210]eturn (=[215]agen-";
51010 print"r@cklauf, =chr$(13)) noch ein [204]inefeed";
51020 print"(=[208]apiervorschub, =chr$(10)) angeh;ngt";
51030 print"werden, damit das [208]apier weitertranspor-";
51040 print"tiert wird?"
51050 print"[212]ippen [211]ie [170][202][167] f@r '[202]a' oder [170][206][167] f@r";
51060 print"'[206]ein'.":poke198,0
51070 geta$:ifa$<>"j"anda$<>"n"then51070
51080 ifa$="j"thenpoket+10,10
51200 gosub50030
51210 print"[201]hre [197]ingaben werden gespeichert. [194]itte";
51220 print"warten [211]ie einen [205]oment.":close2
51230 open2,8,2,"par,s,r":fori=0to6:get#2,a$(i):ifa$(i)=""thena$(i)=chr$(0)
51235 next:close2:close1:open1,8,15:print#1,"s:par"
51240 open2,8,2,"par,s,w"
51250 fori=0to6:print#2,a$(i);:next
51260 fori=ttot+28:print#2,chr$(peek(i));:next
51270 close2:print"[196]ie [208]arameter wurden gespeichert."
51280 print"[205]agic [196]isk jetzt laden ([202]/[206])?
51290 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]51290
51300 [151]53272,23:[153]"load"
51310 [139]a$[178]"n"[167][128]
51320 [153]"loadstopload"[170][199](34)[170]"boot"[170][199](34)[170]",8,1"
51330 [153]"";:[151]198,1:[151]631,13