home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 July
/
1989-07.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
519b
|
21 lines
1000 ifa=0thena=1:print"[147]please wait":load"chr graphics",8,1
1010 sys31744
1020 poke198,0:poke53281,0
1030 print"[147]"
1050 print"graphics borrowed from"
1080 print"gazette's"
1110 print"crossroads and q-bird"
1120 (NULL)"demo.file1
1130 [129]x[178][171]2[164]63
1140 [129]m[178]0[164]1:[129]c[178]0[164]20[169]10
1150 [129]f[178]0[164]8[169]2:[209]f[170]m,x[171]c[171]f,c[170]f
1160 [130]:[130]:[130]:[130]
1170 [204]"demo.file2":[151]53281,15
1180 [153]"load"
1200 [153]">>> press any key <<<"
1210 [129]q[178]0[164]6[169]2:[129]x[178][171]1[164]34[169]7
1220 [209](x[175]1)[170]q,x,3[172]q:[130]:[130]
1230 [129]q[178]0[164]6[169]2:[129]x[178][171]1[164]34[169]7
1240 [209]([168]x[175]1)[170]q,x,3[172]q:[130]:[130]
1250 [161]k$:[139]k$[178]""[167]1210