Loadstar 10/010.d81/efig

Commodore BASIC | 2022-08-26 | 4KB | 88 lines

6 a$( 0 )="66372577538"
11 a$( 1 )="5061883722756255"
16 a$( 2 )="55668882253275556"
21 a$( 3 )="556633877522056"
26 a$( 4 )="51688775223355506"
31 a$( 5 )="5011883775533725506"
36 a$( 6 )="5066888222706"
41 a$( 7 )="50636828252825506"
46 a$( 8 )="55618828253225506"
51 a$( 9 )="5550555118331177753818222555073838205"
56 a$( 10 )="551138777733165"
61 a$( 11 )="3556887755"
66 a$( 12 )="33355555"
71 a$( 13 )="5"
76 a$( 14 )="223806060606"
81 a$( 15 )="06518883777575506638"
86 a$( 16 )="55555"
91 a$( 17 )="5555555555"
96 a$( 18 )="57565756575657565756"
101 a$( 19 )="575657565756575657565756575657565756575657565756575"
102 a$( 19 )=a$( 19 )+"657565756"
106 a$( 20 )="500500500500500500500500500500500500500500500500500"
107 a$( 20 )=a$( 20 )+"500500500"
111 a$( 21 )="500500500500500500500500500500500500500500500500500"
112 a$( 21 )=a$( 21 )+"500500500500500500500500500500500500500500500500500"
113 a$( 21 )=a$( 21 )+"500500500500500500500500500500500500500500500500500"
114 a$( 21 )=a$( 21 )+"500500500500500500500500500500500500500500500500500"
115 a$( 21 )=a$( 21 )+"500500500500500500500500500500500500"
116 a$( 22 )="56570000565700005657000056570000"
121 a$( 23 )="565700005657000056570000565700005657000056570000565"
122 a$( 23 )=a$( 23 )+"700005657000056570000565700005657000056570000"
131 a$( 25 )="2223333555555568888886555555688888865555556888888"
141 a$( 27 )="22552828"
146 a$( 28 )="3655527888"
151 a$( 29 )="55566660707070737373737666"
156 a$( 30 )="7786"
166 a$( 32 )="111355666655555552552552525257252872828288288828888"
167 a$( 32 )=a$( 32 )+"88866668066666"
171 a$( 33 )="355666665255255255255252882882882882886666"
176 a$( 34 )="55555555566600057777773338661000055555555"
181 a$( 35 )="555555556666070707073737373766610000566662222777711"
182 a$( 35 )=a$( 35 )+"1155555555"
186 a$( 36 )="111335555518618360055555552552552525257252872828288"
187 a$( 36 )=a$( 36 )+"288288888881515615615661861861822228257728788882005"
188 a$( 36 )=a$( 36 )+"72828"
191 a$( 37 )="555556666660227555222227888222866666"
196 a$( 38 )="77755555222388888882220555111111388888"
206 a$( 40 )="555020707737883660606060655070207077378836606060606"
207 a$( 40 )=a$( 40 )+"5507020707737883660606065555"
236 a$( 46 )="111335555518618365555555255255252525725287282828828"
237 a$( 46 )=a$( 46 )+"88288888881515633331555556156618"
251 a$( 49 )="550606070707060606070707060606070707065"
256 a$( 50 )="555555555555555555557777777777777777777788888888888"
257 a$( 50 )=a$( 50 )+"888888886666666666666666666"
261 a$( 51 )="55555666666000272828222725252233866666"
276 a$( 54 )="6155507772888186"
291 a$( 57 )="552552552552552552552552552552552552552552552528828"
292 a$( 57 )=a$( 57 )+"828828828828828828828828828828828828828866666666800"
293 a$( 57 )=a$( 57 )+"055555113872773333311666666666666668000555553333333"
294 a$( 57 )=a$( 57 )+"6666666"
311 a$( 61 )="116070707282828"
316 a$( 62 )="506368377537700566"
321 a$( 63 )="50636887753775556"
326 a$( 64 )="00168837770755"
331 a$( 65 )="056368877775556"
336 a$( 66 )="501688877553377555"
341 a$( 67 )="501688877553377"
346 a$( 68 )="551688377725556"
351 a$( 69 )="55663387753770056"
356 a$( 70 )="66538222755366"
361 a$( 71 )="056622728836"
366 a$( 72 )="060633877537700518"
371 a$( 73 )="8662277555"
376 a$( 74 )="0056682837731618877770000056"
381 a$( 75 )="056633387525252563332866"
386 a$( 76 )="056368377707506"
391 a$( 77 )="5563688775377"
396 a$( 78 )="05636837772555251188"
401 a$( 79 )="5063688775377000518"
406 a$( 80 )="516837252052888"
411 a$( 81 )="66553388220577"
416 a$( 82 )="05663387772550625"
421 a$( 83 )="5066333872572506"
426 a$( 84 )="0056633377331187777506050756"
431 a$( 85 )="0606333807070707333806"
436 a$( 86 )="06063338070777"
441 a$( 87 )="5066888222756255"