home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 June
/
1993-06.d64
/
star printer.pp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
420b
|
13 lines
0 clr
10 rem star printer
15 poke53280,6:poke53281,6:print"[147]"
20 for l=54272 to 54295:poke l,0:next:poke 54296,15
30 poke 54277,8:poke 54278,255:poke 54276,23
40 for z=1 to 3:f1=15
50 for y=1 to 9:f2=15:poke 54273,f1
60 for x=1 to 5:poke 54287,f2:f2=f2*1.5 :next x:f1=f1*0.8
70 for w=1 to 12:f2=20:poke 54273,f1
80 for v=1 to 6:poke 54287,f2:f2=f2*0.8
90 next v:f1=f1/1.2:next w,z
100 poke 54278,15