home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8612.d64
/
4.beispiel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
306b
|
18 lines
100 REM CHR$(16) .. DRUCKPOSITION SETZEN
110 OPEN4,4
120 FORQ=1TO4
130 PRINT#4,"0123456789";
140 NEXTQ
150 PRINT#4
160 PRINT#4,CHR$(16)"08";"COMMODORE";
170 PRINT#4,CHR$(16)"30";"PRINTER"
175 FORQ=1TO4:PRINT#4:NEXT
180 FORQ=1TO4
190 PRINT#4,"0123456789";
200 NEXTQ
210 PRINT#4
220 PRINT#4,CHR$(16)"04"CHR$(14)"COMMODORE"CHR$(15);
230 PRINT#4,CHR$(16)"26"CHR$(14)"PRINTER"CHR$(15)
240 PRINT#4
250 CLOSE4