home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1994 November
/
64er_Magazin_94-11_1994_Markt__Technik_de_Side_A.d64
/
24finallight.set
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
38 lines
0 print"[147]":list999-
1 floppy=8:drucker=4:sec=1
10 print"[154]setup fuer pfox-treiber: 24final light.":print
20 print"soll der druckertreiber als":print"'p[146][154]rinter' oder 'pr-[146][154]24final light'"
30 input"gespeichert werden";n$:ifn$<>"-"andn$<>"p"thenrun
40 ifn$="p"then100
50 input"loesche alte version j/n";n$:ifn$="n"thenend
60 open15,floppy,15,"s:pr-24final light"
70 print"hoffentlich geloescht."
80 print#15,"c:pr-24final light=24final light":close15
90 open2,floppy,2,"pr-24final light,p,a":goto 120
100 open15,floppy,15,"c:printer=24final light":close15
110 open2,floppy,2,"printer,p,a"
120 print#2,chr$(drucker)chr$(sec);
130 dp$="":cn=4
140 read dc$:ifdc$="_"then170
150 dp$=dp$+chr$(val(dc$))
160 goto140
170 print#2,chr$(len(dp$))dp$;:cn=cn-1
180 dp$="":ifcnthen140
190 close2:print"fertig."
999 rem zeilenabstand!;druckrichtung,cr+lf ...
1000 data27,101,86,48,52,56,27,85,49,_
1199 rem grafikmodus 1/180 zoll;1280 spalten
1200 data27,42,39,0,5,_
1299 rem zeilenvorschub
1300 data13,_
1399 rem tabulieren oder beliebige spaces
1400 data27,36,100,0,_
2000 rem 24-nadeltreiber fuer printfox
2100 rem sourcecode erhaeltlich bei:
2200 rem olaf hering
2300 rem marienstr.2
2400 rem 72461 albstadt
2500 rem disk+10 dm inkl. porto+versand
2600 rem
2700 rem start mit: run 1