home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 97
/
097.d81
/
contprint
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
101 lines
5 dv=peek(186):ifdv<8thendv=8
10 poke53281,0:poke53280,0:print"[147]"
15 gosub1000
20 sys57812"input any ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
22 open15,dv,15,"r0:driver=driver":input#15,er,er$,a,a:close15
23 ifer<>63then30
24 open8,dv,8,"driver,p,r"
26 fori=0to5:input#8,e(i):e=e(i):forj=0toe
27 input#8,d(i,j)
28 next:next:close8
30 dimw$(300)
32 sp$=" "
34 h$="0123456789abcdef"
40 fori=0to2:readm$(i):next
42 data" [195]reate a printer driver "
43 data" [208]rint [195]ontents [211]heet "
44 data" [209]uit the program "
50 fori=0to4:readp$(i):next
52 data" [211]ubscript [205]ode "
53 data" [197]lite [208]itch "
55 data" [195]ondensed [205]ode "
56 data" [204]ine [211]pacing 7/72 "
58 data" [210]eset [208]rinter "
100 print"[147][129] [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [195][207][206][212][197][206][212][211] [208][210][201][206][212][197][210][154]"
105 m=0:t=8
110 fori=0to2:printtab(t)m$(i):print:next
120 poke214,5+m*2:print:printtab(t)""m$(m)"[145]"
130 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then130
140 ifa$=chr$(13)then180
145 printtab(t)"[154]"m$(m)
150 ifa$="[145]"thenm=m-1:ifm<0thenm=2
160 ifa$=""thenm=m+1:ifm>2thenm=0
170 goto120
180 onm+1goto200,300,400
200 print"[147][159] [217]ou will need your printer manual
202 [153]" in order to enter the following codes.
204 print" [201]f you put a $ before the very first
206 [153]" entry, the program will expect the
208 print" numbers in [200][197][216].
220 [153]"cont val(NULL)atn(NULL)(NULL)(NULL)val
225 print"[159]"p$(0)": 27 83 49 [154]or
227 [153]"open"p$(0)": $1b 53 49
230 print"[154] [197]nter your printer's code for:
240 k[178]0:bb[178]0
250 [151]214,16:[153]:[153]"open"p$(k)": ";:[141]50000:b$[178]q9$
252 [139][200](b$,1)[178]"$"[176]bb[178]1[167]bb[178]1:[137]280
255 j[178]0:[129]i[178]1[164][195](b$)
256 [139][202](b$,i,1)[178]" "[167]d(k,j)[178][197](c$):c$[178]"":j[178]j[170]1:[137]258
257 c$[178]c$[170][202](b$,i,1)
258 [130]:d(k,j)[178][197](c$):c$[178]"":e(k)[178]j
259 k[178]k[170]1:[139]k[179]5[167][151]781,17:[158]59903:[137]250
260 [141]1000:[159]8,dv,8,"@0:driver,p,w"
262 [129]i[178]0[164]5:e[178]e(i):[152]8,e:[129]j[178]0[164]e
264 [152]8,d(i,j)
266 [130]:[130]:[160]8
270 [137]100
280 [139][200](b$,1)[178]"$"[167]b$[178][201](b$,[195](b$)[171]1)
282 j[178]0:[129]i[178]1[164][195](b$)[169]3:bb$[178][202](b$,i,1)
283 [129]l[178]1[164]16:[139]bb$[178][202](h$,l,1)[167]u[178]l[171]1:l[178]16
284 [130]
286 d(k,j)[178]16[172]u:bb$[178][202](b$,i[170]1,1)
287 [129]l[178]1[164]16:[139]bb$[178][202](h$,l,1)[167]u[178]l[171]1:l[178]16
288 [130]
290 d(k,j)[178]d(k,j)[170]u:j[178]j[170]1
292 [130]:[137]259
300 [158]52736,"t.content*",dv:w$(0)[178][201](w$(0),[195](w$(0))[171]2)
305 h[178][194](252)[172]256[170][194](251):g[178][181](h[173]2):gg[178]h[171]g[172]2
310 [159]4,4,7
312 [129]i[178]0[164]3:e[178]e(i):[129]j[178]0[164]e
314 [152]4,[199](d(i,j));
316 [130]:[152]4
318 [130]
320 [129]i[178]0[164]g
322 [152]4,w$(i);
324 [152]4,[200](sp$,42[171][195](w$(i)))w$(i[170]g[170]1)
330 [130]
335 [139]gg[167][152]4,w$(h)
340 e[178]e(4):[129]i[178]0[164]e:[152]4,[199](d(4,i));:[130]:[152]4:[160]4
350 [137]100
400 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
410 [139]er[179][177]63[167][153]"load":[128]
420 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
430 [153]"run"
440 [151]631,13:[151]632,13:[151]198,2:[128]
1000 [159]15,dv,15,"i":[132]15,er,er$,a,a:[160]15
1010 [139]er[178]0[167][142]
1020 [153]" "er$" - lenheck your drive
1030 print" and press a key.
1040 [161]a$:[139]a$[178]""[167]1040
1050 [137]1000
10000 [159]15,8,15,"s0:contprint":[160]15:[148]"contprint",8:[128]
50000 q9$[178]"":u9[178]53280:[151]198,0
50010 [161]a$
50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
50030 [139]a$[178][199](13)[167][153]" ":[142]
50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50080
50050 [139][195](q9$)[177][178]20[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
50070 q9$[178]q9$[170]a$
50080 [153]""a$;:[137]50010