Loadstar 155/155.d81/ft.fireworks

Commodore BASIC | 1997-01-01 | 1.1 KB | 35 lines

4 dv=peek(186):ifdv<8thendv=8
5 poke53280,0:poke53281,0:poke53272,31
10 print"[147][158]          [198] [201] [210] [197] [215] [207] [210] [203] [211]":poke2040,13:dimm(39),n(39)
12 poke214,22:print"[159]   [208]ress [211][208][193][195][197]/[198][201][210][197] to go to the [205]enu
15 p[178]832:q[178]1:r[178]255:s[178]54296:v[178]53248
20 [129]j[178]0[164]38:[135]k,l:m(j)[178]k:n(j)[178]l:[130]:[129]j[178]0[164]4:[135]k,l:[151]v[170]k,l:[130]
25 [151]v,r[171]255[172][187](0):z[178]100[172][187](0)[170]50
30 [151]v[170]39,q:[151]p[170]18,16:[129]y[178]230[164]z[169][171]1:[151]v[170]1,y:[130]:[151]s,15:[151]s,0
35 [151]53281,1:[129]j[178]1[164]3:[130]:[151]53281,0:[129]j[178]0[164]38:[151]p[170]m(j),n(j):[130]
40 [129]k[178]0[164]300:[130]:q[178]q[170]1:[139]q[178]8[167]q[178]1
45 [129]j[178]0[164]38:[151]p[170]m(j),0:[151]v[170]1,[194](v[170]1)[170]1:[129]k[178]0[164]50:[130]:[130]
46 j[178][194](56320):[161]a$
47 [139]a$[178]" "[176]j[179]112[167]100
48 [129]t[178]0[164][181]([187](0)[172]1000)[170]200:[130]
50 [151]s,5:[151]s,0:[137]25
55 [131]19,40,16,17,22,16,13,130
56 [131]25,131,10,41,28,40,15,7
57 [131]17,192,7,108,6,30,8,240
58 [131]4,68,9,97,11,12,12,128
59 [131]14,2,1,131,0,3,2,128
60 [131]18,56,20,56,21,64,23,4
61 [131]24,129,26,2,27,6,29,192
62 [131]31,68,34,68,30,8,32,32
63 [131]37,198,33,16,35,16,40,130
64 [131]36,16,38,16,43,130,33,0
65 [131]21,1,32,0,23,1,29,1
100 :
105 [151]53269,0
110 [153]"loadstop"
115 [153]"new"
120 [153]"load"[199](34)"ft.menu"[199](34)","dv
125 [153]"run"
130 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
10000 d[178][194](186):n$[178]"ft.fireworks":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]