home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 48
/
048side1.d81
/
m3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
644b
|
25 lines
5 poke53281,0:poke53280,0
10 ifx=0thenx=1:load"mf",8,1
15 c=54272:z=40
20 poke53272,19:printchr$(14)"[147] [159][204][207][193][196][211][212][193][210] presents"chr$(8)
25 l(0)=10:l(1)=8:l(2)=2:l(3)=9
30 fori=0to1
40 forj=0to31
50 poke1188+j+i*z,128+k
55 poke1339-j-i*z,255-k:k=k+1
60 next:next:print"[159] "
80 forj=0to3
82 fori=0to15
84 poke1204+c+i+j*z,l(j)
86 poke1203+c-i+j*z,l(j)
88 next:next
162 print"[152] [193][206] [201][206][211][208][197][195][212][207][210] [204][193] [205][207][210][212] [205][217][211]-[193][196][214][197][206][212][213][210][197]"
165 print"[159] [212]his program is not in the"
167 print" public domain. [208]lease respect"
168 print" the author's rights."
170 print" [195]opyright 1988 by [154][198][197][206][196][197][210] [212][213][195][203][197][210]"
300 print"[144]load"chr$(34)"mo"chr$(34)",8"
310 print"[145][145][145][145]"
320 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13
330 new