home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_89-11_1989_-_de_Side_A.d64
/
druckeranpassung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
9KB
|
209 lines
100 poke53281,0:poke53280,0:printchr$(14);""
110 gosub50030
120 print"[212]ippen [211]ie
130 [153]"<str$> um die str$ruckeranpassung vorzunehmen oder
140 print"<[204]> um fertige [196]aten aus einer [204]iste zu benutzen.
150 [161]a$:[139]a$[179][177]"d"[175]a$[179][177]"l"[167]150
160 [139]a$[178]"d"[167][141]50030:[137]50100
170 [153]"load";
180 [140]
190 [131]a,"(NULL)(NULL)(NULL) 1200",8,0,7,0,0,0,0,0,0,13,0,27,49,13,0,0,0,0,0,0
200 [131]0,0,0,0,27,203,64,1,0," "
210 [131]b,"(NULL)vallen (NULL)6/(NULL)7/(NULL)2200 + chr$oerlitz-right$nterf.",8,0,4,0,0,0,0,0,0,13,0
220 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
230 [131]c,"(NULL)vallen (NULL)6/(NULL)7/(NULL)2200 + (NULL)iesemann-right$nterf.",8,0,0,0,0,0,0,0,0,13,0
240 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
250 [131]d,"(NULL)vallen (NULL)6/(NULL)7/(NULL)2200 + str$ela-right$nterface",8,0,1,0,0,0,0,0,0,13,0
260 [131]27,65,8,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
265 [131]e,"(NULL)eikosha (NULL)(NULL)180(NULL)len",7,1,0,15,0,0,0,0,0,13,10,27,51,10,0,0,0,0,0
270 [131]1,0,0,0,0,0,0,0,8,0," "
280 [131]f,"(NULL)kimate 20",7,1,0,3,2,0,0,0,0,13,0,0,0,0,0,0,0,0,0,1
290 [131]0,0,0,0,0,0,0,8,0," "
300 [131]g,"(NULL)vallen (NULL)len-8023-peeklen",7,1,0,0,0,0,0,0,0,13,0,27,0,0,0,0,0,0,0,1
310 [131]0,0,0,0,0,0,0,8,0," "
320 [131]h,"(NULL)eckermann (NULL)rinter 6320",8,1,5,0,0,0,0,0,0,13,0,27,49,13,0,0,0,0,0
330 [131]0,0,0,0,27,42,0,64,1,0,"str$ip 7.1,9.1,9.2,11.2,13.2,14.2,15.2,18.2auf on"
340 [131]i,"(NULL)(NULL)(NULL) 1000 + (NULL)iesemann-right$nterf.",8,0,0,0,0,0,0,0,0,13,0,27,65,10
350 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
360 [131]j,"(NULL)(NULL)(NULL) 1000 + chr$oerlitz-right$nterf.",8,0,4,0,0,0,0,0,0,13,0,27,65,10
370 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
380 [131]k,"(NULL)(NULL)(NULL) 1000 + str$ela-right$nterface",8,0,1,0,0,0,0,0,0,13,0,27,65,10
390 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0," "
400 [131]l,"valpson asc(NULL) 85-105 + (NULL)iesemann-right$nt.",8,0,0,0,0,0,0,0,0,13,0
410 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
420 [131]m,"valpson asc(NULL) 85-105 + chr$oerlitz-right$nt.",8,0,4,0,0,0,0,0,0,13,0
430 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
440 [131]n,"valpson asc(NULL) 85-105 + str$ela-right$nterf.",8,0,1,0,0,0,0,0,0,13,0
450 [131]27,65,10,0,0,0,0,0,0,0,0,0,27,42,0,64,1,0," "
460 [131]o,"vallite oder (NULL)eikosha (NULL)(NULL)-120 (NULL)len",8,0,0,0,0,0,0,0,0,13,10,27,65,8
470 [131]0,0,0,0,0,0,0,0,0,0,27,75,64,1,0,"str$ipschalter 3 einschalten"
480 [131]p,"chr$eneral vallectric (NULL)(NULL)(NULL) 1000",8,0,1,0,0,0,0,0,0,13,0,0,0,0,0,0,27,51,24
490 [131]0,0,0,0,0,27,75,64,1,0,"str$ipschalter 1 und 3 an, 2 aus."
500 [131]q,"(NULL)raesident 6320",8,0,1,0,0,0,0,0,0,13,0,27,74,2,0,0,0,0,0
510 [131]0,0,0,0,27,42,0,64,1,0,"(NULL)eilenabstand auf 1/8 (NULL)oll einstellen"
520 [131]r,"(NULL)(NULL)(NULL) 802 mit chr$raphic-(NULL)(NULL)(NULL) right$right$",8,1,7,0,0,0,0,0,0,13,10,27,3,20
530 [131]0,0,0,0,0,0,0,0,0,27,42,4,64,1,0," "
540 [131]s,"(NULL)elchers len(NULL)80x",8,0,0,0,0,0,0,0,0,13,0,0,0,0,0,0,0,27,49,0
550 [131]0,0,0,0,27,75,64,1,0," "
560 [131]t,"(NULL)eikosha (NULL)(NULL) 1200 (NULL)len",8,0,0,0,0,0,0,0,0,13,0,27,51,25,0,0,0,0,0
570 [131]0,0,0,0,0,27,75,64,1,0,"str$ipschalter 3 einschalten"
580 [131]u,"(NULL)raesident 6313",8,1,5,0,0,0,0,0,0,13,0,27,49,13,0,0,0,0,0
590 [131]0,0,0,0,27,42,0,64,1,0,"str$ip 7.1,9.1,9.2,11.2,13.2,14.2,15.2,18.2on"
600 [131]v,"(NULL)anasonic (NULL)(NULL) (NULL)1081",8,1,0,0,0,0,0,0,0,13,0,27,0,0,0,0,0,0,0
610 [131]1,0,0,0,0,0,0,0,8,0,"str$ip 1, 3, 5 und 7 einschalten"
620 [131]w,"(NULL)tar (NULL)len-10",8,0,1,0,0,0,0,0,0,13,10,27,65,10,0,0,0,0,0,0
630 [131]0,0,0,27,42,0,64,1,0," "
640 [131]x,"(NULL)eikosha (NULL)(NULL) 80 (NULL)len",8,0,0,0,0,0,0,0,0,13,10,27,51,24,0,0,0,0,0
650 [131]0,0,0,0,27,42,0,64,1,0,"str$rucker im atn(NULL)lenright$right$-(NULL)odus"
1000 [129]i[178]1[164]24:[135]a$,b$:[129]j[178]0[164]28:[135]a:[130]:[135]c$
1010 [153]a$;": ";b$
1020 [139]i[179][177]19[167]1100
1030 [153]:[153]"peekitte entsprechenden peekuchstaben druecken";
1040 [153]"oder (NULL)val(NULL)(NULL)(NULL)(NULL) fuer weitere str$rucker.";
1050 [161]a$:[139]a$[178][199](13)[167][153]"load";:[137]1100
1055 [139]a$[178]""[167]1050
1060 [139]a$[179]"a"[176]a$[177]"x"[167]1050
1070 [140]:[153]:[153]"peekitte warten..."
1080 [135]b$:[139]a$[179][177]b$[167]1080
1090 [153]"load(NULL)ie haben folgenden str$ruckertyp ausge- waehlt:"
1091 [135]a$:[153]a$:[153]"right$st das richtig (mid$/(NULL))?"
1092 [161]x$:[139]x$[179][177]"j"[175]x$[179][177]"n" [167]1092
1093 [139]x$[178]"n"[167][138]
1094 [137]1200
1100 [130]i
1110 [153]:[153]"peekitte entsprechenden peekuchstaben druecken";
1120 [153]"oder (NULL)val(NULL)(NULL)(NULL)(NULL) fuer (NULL)eustart.";
1130 [161]a$:[139]a$[178][199](13)[167][138]
1135 [139]a$[178]""[167]1130
1140 [139]a$[179]"a"[176]a$[177]"x"[167]1130
1150 [153]:[137]1070
1160 :
1200 [143] parameter lesen
1210 [153]"peekitte str$iskette (NULL)eite 1 einlegen und
1220 print"<[210][197][212][213][210][206]> druecken."
1230 geta$:ifa$<>chr$(13)then1230
1240 print"[196]ie [208]arameter werden gespeichert..."
1250 close15:close10:open15,8,15,"i":open10,8,10,"#":print#15,"b-p 10 0"
1260 print#10,chr$(0);chr$(31);chr$(0);chr$(0);
1270 fori=0to28:reada:print#10,chr$(a);:next
1280 print#15,"u2:10 0 19 0"
1300 close10:print"[198]ehlerkanal: ";:input#15,a,a$,b,c:printa;a$;b;c
1310 close15:goto51300
50000 stop
50030 print"[147] [196][210][213][195][203][197][210]-[193][206][208][193][211][211][213][206][199][211][208][210][207][199][210][193][205][205]"
50035 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]"
50040 print" (c) 1988 by [195][208]-[214]erlag"
50050 print"[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][192][192]"
50070 return
50100 :
50110 close1:open1,0:s=5*4096+9*256+3:t=850:fori=ttot+28:pokei,0:next
50120 print"[194]itte beantworten [211]ie zur [196]ruckeranpas-";
50130 print"sung die folgenden [198]ragen. [196]ie [193]ntworten";
50140 print"entnehmen [211]ie bitte [201]hrem [196]ruckerhand-";
50150 print"buch."
50160 print"[203]ann [201]hr [196]rucker bei [199]rafikdruck[146] nur 7";
50170 print"[206]adeln ansprechen oder 8 bzw. mehr als";
50180 print"8 (wenn vorhanden) ?"
50190 poke198,0:print"[212]ippen [211]ie (7) oder (8)."
50200 getb$:ifb$<>"7"andb$<>"8"then50200
50210 poket,val(b$)
50220 gosub50030:print"[205]uss bei [199]rafikdruck das achte [194]it eines";
50230 print"zum [196]rucker gesendeten [199]rafikbytes immer";
50240 print"gesetzt sein (bei [205][208][211] notwendig) ?"
50250 print"[212]ippen [211]ie ([202]) oder ([206]) ":poke198,0
50260 getb$:ifb$<>"j"andb$<>"n"then50260
50270 ifb$="j"thenpoket+1,1
50280 gosub50030:print"[215]elche [211]ekundaradresse muessen [211]ie ange-";
50290 print"ben damit [201]hr [196]ruckerinterface die vom";
50300 print"[195]omputer gesendeten [196]aten unveraendert[146] ";
50310 print"an den [196]rucker uebertraegt?"
50320 poke198,0:print"[211]ekundaeradresse (0 bis 255) > ";:input#1,b$:print
50330 a=val(b$):a=int(a):ifa<0ora>255then50280
50340 poket+2,a:gosub50030
50350 print"[204]egen [211]ie jetzt die [211]enderichtung fest,";
50360 print"mit der ein [194]yte im [199]rafikdruck zum";
50370 print"[196]rucker gesendet werden muss.[212]ippen [211]ie";
50380 print"die [212]aste (0),wenn das hoechstwertigste";
50390 print"[194]it (=128 oder 2^7) eines [199]rafikbytes in";
50400 print"einer [196]ruckzeile oben[146] erscheint oder";
50410 print"(1), wenn es unten[146] erscheint."
50420 print"[212]ippen [211]ie (0) oder (1).":poke198,0
50430 getb$:ifb$<>"0"andb$<>"1"then50430
50440 ifb$="1"thenpoket+19,1
50450 gosub50030:print"[194]ei den nun folgenden [197]ingaben kann es";
50460 print"sein,dass [211]ie pro [198]rage mehr als nur ei-";
50470 print"nen [215]ert eingeben muessen. [196]iese [215]erte";
50480 print"werden als [218]ahlen von 0 bis 255 verlangt";
50490 print"und muessen jeweils mit der [212]aste [210][197][212][213][210][206]";
50500 print"abgeschlossen werden.[205]uessen weniger als";
50510 print"die abgefragten [215]erte eingegeben werden,";
50520 print"so uebernehmen [211]ie den (jeweils darge-";
50530 print"stellten)[215]ert(0) durch einfaches [196]rueck-";
50540 print"ken der [210][197][212][213][210][206]-[212]aste, ohne diese 0 durch";
50550 print"eine andere [218]ahl zu ueberschreiben."
50560 print"[196]ruecken [211]ie jetzt bitte irgendeine[212]aste.
50570 [151]198,0:[146]198,1:[141]50030
50580 [153]"(NULL)elche (NULL)erte muessen (NULL)ie zum str$rucker";
50590 [153]"senden,um diesen auf die atnusgabe von 320";
50600 [153]"chr$rafikbytes umzustellen? (peekei (NULL)(NULL)(NULL)-kompa-";
50610 [153]"tiblen str$ruckern ist das meistens nur ein";
50620 [153]"(NULL)ert, naemlich die (NULL)ahl 8.peekei valpsondruk-";
50630 [153]"kern ist es die (NULL)ahlenfolge: ";
50640 [153]"27,42, 0, 64, 1, 0, 0, 0. ":[151]198,0
50650 a$[178]"":[129]i[178]1[164]8
50660 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
50670 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50690
50680 [153]"on ":[153]"on";:[137]50660
50690 a$[178]a$[170][199](a):[130]i
50700 [129]i[178]1[164]8:[139][198]([202](a$,i,1))[177]0[167]50750
50710 [130]:[141]50030:[153]"str$ie valingaben waren unsinnig. peekitte wie-";
50720 [153]"derholen (NULL)ie diese valingaben!":[153]"peekitte ((NULL)val(NULL)(NULL)(NULL)(NULL)) druecken.":[151]198,0
50730 [161]a$:[139]a$[179][177][199](13)[167]50730
50740 [141]50030:[137]50580
50750 [139][198]([201](a$,1))[178]0[167]a$[178][199](0)[170][200](a$,7):[137]50750
50760 [129]i[178]1[164]8:[151]t[170]19[170]i,[198]([202](a$,i,1)):[130]
50770 [141]50030:[153]"(NULL)elche (NULL)erte muessen (NULL)ie zum str$rucker";
50780 [153]"senden,damit dieser seinen (NULL)eilenabstand";
50790 [153]"so einstellt,dass zwischen zwei gedruck-";
50800 [153]"ten (NULL)eilen kein leerer (NULL)aum entsteht?"
50810 [153]:[153]:[151]198,0
50820 a$[178]"":[129]i[178]1[164]8
50830 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
50840 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50860
50850 [153]"on ":[153]"on";:[137]50830
50860 a$[178]a$[170][199](a):[130]i
50870 [129]i[178]1[164]8:[151]t[170]10[170]i,[198]([202](a$,i,1)):[130]
50880 [141]50030:[153]"(NULL)elche (NULL)erte muessen (NULL)ie senden, damit";
50890 [153]"der str$rucker nach chr$rafikdruck wieder in";
50900 [153]"den normalen (NULL)extdruckmodus zurueckge-";
50910 [153]"setzt wird? (peekei (NULL)(NULL)(NULL)-kompatiblen str$ruk-";
50920 [153]"kern ist der (NULL)ert 15, bei valpsondruckern";
50930 [153]"ist keine valingabe notwendig.)"
50940 a$[178]"":[129]i[178]1[164]6
50950 [153]i;"cmd. (NULL)ert> 0cmd";:[132]1,b$:[153]
50960 a[178][181]([197](b$)):[139]a[177][178]0[175]a[179][178]255[167]50980
50970 [153]"on ":[153]"on";:[137]50950
50980 a$[178]a$[170][199](a):[130]i
50990 [129]i[178]1[164]6:[151]t[170]2[170]i,[198]([202](a$,i,1)):[130]
51000 [151]t[170]9,13:[141]50030:[153]"(NULL)uss bei einem lenarriage (NULL)eturn (=(NULL)agen-";
51010 [153]"ruecklauf, =chr$(13)) noch ein (NULL)inefeed";
51020 [153]"(=(NULL)apiervorschub, =chr$(10)) angehaengt";
51030 [153]"werden, damit das (NULL)apier weitertranspor-";
51040 [153]"tiert wird?"
51050 [153]"(NULL)ippen (NULL)ie (mid$) oder ((NULL)) ":[151]198,0
51070 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]51070
51080 [139]a$[178]"j"[167][151]t[170]10,10
51200 [141]50030
51210 [153]"peekitte str$iskette (NULL)eite 1 einlegen und
51212 print"<[210][197][212][213][210][206]> druecken."
51214 geta$:ifa$<>chr$(13)then51214
51216 print"[196]ie [208]arameter werden gespeichert..."
51218 close15:close10:open15,8,15,"i":open10,8,10,"#":print#15,"b-p 10 0"
51220 print#10,chr$(0);chr$(31);chr$(0);chr$(0);
51260 fori=ttot+29:print#10,chr$(peek(i));:next
51270 print#15,"u2:10 0 19 0"
51280 close10:print"[198]ehlerkanal: ";:input#15,a,a$,b,c:printa;a$;b;c
51290 close15
51300 print"[194]itte starten [211]ie die [218]eitschrift mit: [204][207][193][196]";chr$(34);
51310 print"[194][207][207][212]";chr$(34);",8,1