home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 March
/
64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64
/
listing
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
498b
|
24 lines
1 rem einstellen des zeilenabstandes
2 rem mit n/216 zoll
5 printchr$(147)
10 input"wieviel n/216 zoll";zo
20 open1,4
25 rem definition eines kastens
30 print#1,chr$(27);":";chr$(0);chr$(0);chr$(0);
40 print#1,chr$(27);"%";chr$(1);chr$(0);
50 print#1,chr$(27);"&";chr$(0);"aa";
60 print#1,chr$(139);
70 for n=1to11
80 reada
90 print#1,chr$(a);
95 data 255,0,255,0,255,0,255,0,255,255,0
100 nextn
105 rem festlegen des zeilenabstandes
110 print#1,chr$(27);chr$(51);chr$(zo)
115 for a=1to3
118 rem ausdruck einer zeile des neuen
119 rem zeichens
120 print#1,"aaaaaaaaaaaaaaaaaaaaaaaa"
130 next
200 run