home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 39
/
64er_Magazin_Sonderheft_39_19xx_Markt__Technik_de_Side_A.d64
/
drucker.gen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
137 lines
10 dimz(8,4),an(4):sa=0:ga=4
100 poke53272,23
110 gosub10000
120 print" [196]rucker-[193]npassung"
130 print
140 print
150 print" a) [211]teuerzeichen eingeben"
160 print
170 print" b) [211]teuerzeichen ausgeben"
180 print
190 print" c) [211]ekundaeradresse:";sa
200 print
210 print" d) [199]eraeteadresse: ";ga
220 print
230 print" e) [208]arameter speichern"
240 print
250 print" x) [197]xit"
300 poke198,0:wait198,1
310 geta$
320 ifa$="a"goto1000
330 ifa$="b"goto2000
340 ifa$="c"goto4000
350 ifa$="d"goto5000
360 ifa$="e"goto3000
370 ifa$="x"thenend
380 goto300
1000 gosub10000
1010 print" [211]teuerzeichen eingeben"
1020 print
1030 print
1040 print
1050 print" [197]inschalten des [199]rafik-[205]odus:"
1060 x=0:gosub20000
1070 print" [218]eilenvorschub n/216tel [218]oll:"
1080 x=1:gosub20000
1090 print" [196]ruckerreset: "
1100 x=2:gosub20000
1110 print" [208]apiervorschub (form feed): "
1120 x=3:gosub20000
1130 print" [218]eilenvorschub (cr/lf): "
1140 x=4:gosub20000
1999 goto100
2000 gosub10000
2010 print" [211]teuerzeichen ausgeben"
2020 print
2030 print
2040 print
2050 print:print" [199]rafik ein: ";
2060 x=0:gosub40000
2070 print:print" [218]-vorschub: ";
2080 x=1:gosub40000
2090 print:print" [210]eset : ";
2100 x=2:gosub40000
2110 print:print" form feed : ";
2120 x=3:gosub40000
2130 print:print" line feed : ";
2140 x=4:gosub40000
2150 poke198,0:wait198,1:poke198,0
2160 goto100
3000 open15,8,15,"s:gp[201]"
3010 open1,8,1,"gp[201]"
3020 print#1,chr$(15)chr$(112);
3030 forx=0to4
3040 i=1:ifan(x)=0goto3080
3050 fori=1toan(x)
3060 print#1,chr$(z(i,x));
3070 next
3080 ifi>8goto3110
3090 print#1,chr$(255);
3100 i=i+1:goto3080
3110 next
3120 print#1,chr$(ga);chr$(sa);:close1
3130 input#15,a$,b$,t$,s$
3140 print"";
3150 printa$","b$","t$","s$;
3160 poke198,0:wait198,1:poke198,0
3170 close15:goto100
4000 gosub10000
4010 print" [211]ekundaeradresse eingeben"
4020 print
4030 print
4040 print
4050 print" [211]ekundaeradresse: ";
4060 open1,0:input#1,a$:close1
4070 sa=val(a$)
4080 ifsa<0orsa>255goto4000
4090 goto100
5000 gosub10000
5010 print" [199]eraeteadresse eingeben"
5020 print
5030 print
5040 print
5050 print" [199]eraeteadresse: ";
5060 open1,0:input#1,a$:close1
5070 ga=val(a$)
5080 ifga<4orga>7goto5000
5090 goto100
10000 printchr$(147);
10010 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]"
10020 print
10030 print
10040 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]"
10050 printchr$(19):return
20000 print
20010 print" [215]ieviele [211]teuerzeichen: ";
20020 open1,0:input#1,a$:close1
20030 if(a$<"0"ora$>"8")orlen(a$)>1thenprint:print"[145]";:goto20010
20040 an=val(a$):ifan=0thenprint:print:goto20120
20050 print:print
20060 fori=1toan
20070 print" ";i;"[157]. [211]teuerzeichen: ";
20080 open1,0:input#1,a$:close1
20090 z(i,x)=val(a$)
20100 print
20110 next
20120 print
20130 print" [211]ind die [197]ingaben richtig ?"
20140 poke198,0:wait198,1
20150 geta$
20160 ifa$<>"n"goto20200
20170 gosub30000
20180 print"":goto20000
20200 gosub30000
20210 print""
20220 an(x)=an:return
30000 print""
30010 fori=1to12
30020 print" "
30030 next:return
40000 ifan(x)=0thenprint:return
40010 i=1
40020 a$=mid$(str$(z(i,x)),2)
40030 a$=left$(" ",3-len(a$))+a$
40040 printa$;
40050 i=i+1:ifi<=an(x)thenprint",";:goto40020
40060 print:return