home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 May
/
64er_Magazin_93-05_1993_Markt__Technik_de_Side_B.d64
/
hardcopy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
42 lines
5 rem v ist die anfangsadresse des videospeichers
6 rem hier auf $2000 gesetzt.
7 rem dies koennen sie an ihr programm anpassen
10 v=8192
15 rem oeffnet linaerkanal zum drucker
20 open1,4,1
25 rem damit initialisiert man den drucker
26 rem um einen definierten zustand zu erreichen
30 print#1,chr$(27);chr$(64)
35 rem jetzt mu+ der zeilenabstand auf
36 rem 8/72 zoll eingestellt werden
40 print#1,chr$(27);"a";chr$(8)
45 rem 40 spalten haben wir insgesamt
50 fora=0to39
60 rem der drucker wird auf grafaikdruck
61 rem 200 byte eingestellt
70 print#1,chr$(27);"*";chr$(0);chr$(200);chr$(0);
75 rem los gehts mit den spalten und zwar
76 rem rueckwaerts
80 forb=24to0step-1
85 rem jede zeichenposition enthaelt acht byte
90 forc=7to0step-1
95 rem wegen des gedrehten drucks ist
96 rem die adressberechnung einfach
100 x=peek(v+a*8+b*320+c)
105 rem hier lassen wir einen cursor blinken
106 rem damit wir wissen, wie weit der rechner ist
110 poke(v+a*8+b*320+c),255
120 poke(v+a*8+b*320+c),x
125 rem jetzt wird das byte zum drucker geschickt
130 print#1,chr$(x);
135 rem acht byte fertig?
140 nextc
145 rem ja, dann spalte fertig?
150 nextb
155 rem wenn ja, dann zeilenvorschub senden
160 print#1,chr$(10);chr$(13)
165 rem bild komplett?
170 nexta
175 rem ja, dann datei schliessen
180 close1