home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh72a.d64
/
eps.rahmen_moni
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
44 lines
10 REM PROGRAMM EPSON-GRAFIK
12 REM DRUCKERKURS 64'ER (AW)
14 PRINT CHR$(147)
16 REM*********************************
18 REM KANAL ZUM DRUCKER OEFFNEN
20 REM*********************************
22 OPEN 1,4
24 A=8192:GOSUB 78
26 PRINT#1,CHR$(27);CHR$(51);CHR$(24)
28 REM*********************************
30 REM ZEILENABSTAND AUF 24/216
32 REM*********************************
34 FOR M=1 TO 3:REM DREI ZEILEN
36 REM*********************************
38 REM GRAFIMODUS ESC "*" M=1 (960)
40 REM*********************************
42 PRINT#1,CHR$(27);CHR$(42);CHR$(1);CHR$(195);CHR$(3);
44 REM*********************************
46 REM EINE ZEILE DRUCKEN (960) PUNKTE
48 REM*********************************
50 FOR Z=0 TO 960
52 B=PEEK(A+Z)
54 PRINT#1,CHR$(B);
56 NEXT Z
58 A=A+960
60 REM*********************************
62 REM EINEN ZEILENVORSCHUB
64 REM*********************************
66 PRINT#1,CHR$(13)
68 NEXT M
70 END
72 REM*********************************
74 REM ZUFALLSMUSTER AB 8192
76 REM*********************************
78 POKE 8192,255
80 FOR X=8193 TO 9150:POKE X,128:NEXT X
82 POKE 9151,255
84 POKE 9152,255
86 FOR X=9153 TO 10110:POKE X,0:NEXT X
88 POKE 10111,255
90 POKE 10112,255
92 FOR X=10113 TO 11070:POKE X,1:NEXT X
96 RETURN