' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  aՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`9,39,37,103,37& 37,53,37,21,46,46> 46,46,46,46,46,62U 46,30,55,55,39,4] 0cx -- SHAPE 16 -- 1,192,60,62,188,62 62,62,32,39,37,39 37,103,37,53,37,53 37,21,46,44,46,32 37,37,21,46,62,46  62,46,3 -- SHAPE 14 --( 1,192,28,28,28,28@ 28,28,28,45,45,45X 45,45,45,45,30,30q 30,30,30,30,231,28 28,28,28,45,45,45 45,45,30,30,30,30 7,0 -- SHAPE 15 -- 60,60,60,12,37,37 39,39,55,55,55,7 32,30 46,44,21,55,53,550 55,55,55,55,55,68 0>S -- SHAPE 13 --k 62,60,62,60,62,60 62,188,39,37,39,37 39,37,39,37,39,37 39,45,46,44,46,44 46,44,46,44,46,46 46,46,46,62,62,62 62,62,54,06,46,46,44,44,100) 46,44,21,55,53,55A 55,55,55,53,53,53Y 53,119,55,39,55,7l 32,39,39,4,0r -- SHAPE 12 -- 1,192,48,55,55,30 60,62,60,44,60,12 37,37,37,39,39,39 39,37,103,53,37,21 46,46,46,44,44,109,39,39,103,37& 37,21,46,46,46,44? 44,44,172,46,46,30W 55,55,55,53,53,53o 245,55,55,7,32,39| 39,7,0 -- SHAPE 11 -- 1,192,48,55,55,30 60,62,60,44,60,12 37,37,37,39,39,39 39,37,103,53,37,21 400,12,12  45,21,21,21,21,218 21,21,21,21,54,30Q 30,30,63,228,28,28i 28,28,28,28,28,36 12,12,45,14,14,14 14,14,14,14,14,54 30,30,63,0 -- SHAPE 10 -- 1,192,48,55,55,55 7,32,39,103,37,37 37,314,14,14,246,30 30,6,0"6 -- SHAPE 8 --P 219,219,32,39,39,37h 39,37,39,37,39,37 39,45,46,44,46,44 46,44,46,172,21,55 55,55,55,55,55,55 55,7,0 -- SHAPE 9 -- 7,56,56,56,56,56 56,56,32,1 45,45,45,12,12,12* 21,14,14,45,45,45B 30,30,30,21,14,14Y 63,63,63,30,30,6a 0g{ -- SHAPE 7 -- 7,56,56,56,56,32 12,12,12,12,12,173 14,14,14,14,246,30 30,30,30,60,28,28 28,28,100,12,12,12 117, 21,54,54,30,63,63- 32,36,36,63,63,55E 54,54,63,63,36,36] 12,12,12,12,12,12v 117,14,14,14,14,14 54,54,63,39,36,36 216,63,255,18,54,54 0 -- SHAPE 6 -- 28,28,28,63,63,63 12,12,12,7,224,2845,45,173,21,21( 21,54,54,246,30,30@ 30,63,39,63,63,28Y 28,28,36,36,100,12r 12,45,45,45,117,14 14,54,54,246,30,30 63,7,0 -- SHAPE 5 -- 219,63,63,32,36,100 12,12,12,12,12,12 173,21,21,21,21,21,28,28,28! w 12,12,12,12,12,45: x 45,173,14,14,14,14R y 30,30,30,30,30,63j z 60,63,28,28,28,28 { 12,12,12,12,45,45 | 117,14,14,14,30,30 } 30,30,63,0 ~  -- SHAPE 4 -- 63,63,56,56,56,32 36,36,12,12,12,12 45,,63,36 j 36,36,36,44,45,457 k 45,45,54,246,30,30G l 30,30,6,0M ma n -- SHAPE 2 --y o 39,39,39,39,63,40 p 44,44,44,44,44,44 q 172,46,46,46,46,46 r 14,175,59,62,62,62 s 63,119,45,5,0 t u -- SHAPE 3 -- v 63,7,224,159,2" 8 196,2,236,2,20,3,71,3@ 9 125,3,158,3,203,3,254,3\ : 35,4,85,4,138,4,192,4w ; 220,4,12,5,42,5,77,5} < d --TABLE DATA-- e -- SHAPE 1 -- f 63,63,36,36,36,36 g 36,44,45,45,45,45 h 45,54,54,30,30,30 i 30,30,30,63T6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 MATCH-TBL 4 31,0,64,0,104,0,133,0 5 179,0,230,0,35,1,72,1 6 111,1,144,1,196,1,241,1 7 38,2,81,2,121,2 ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C       -?$$$---666??'@-$$$---666??g ,----------%$$$$$$$$$??????????766666666>$$$$$$$$$t----------: nIIII! --xi| ?i!----------%$$$$$$$$$??????????7666666666I 8?(--8???(----8????'----- -- SHAPE 40 --G? 9,45,5,56,12,37`@ 63,183,59,60,44,60xA 44,60,12,37,45,46B 46,150,18,62,0CD -- SHAPE 41 --E 36,36,36,36,53,54F 46,45,37,36,44,54G 54,62,46,62,14,255H 27,36,3653/ 53,53,55,53,55,245)0 55,63,0/1D2 -- SHAPE 38 --\3 45,60,44,60,44,60t4 44,60,28,45,45,455 23,53,222,23,53,786 23,53,63,63,078 -- SHAPE 39 --9 45,60,44,60,44,60: 44,60,28,45,45,45; 23,53,222,23,6,44,60 " 60,103,41,60,44,289# 63,63,119,53,55,53M$ 55,53,55,53,0S%h& -- SHAPE 36 --' 9,45,44,44,220,155( 58,60,44,60,44,60) 12,37,45,46,46,5* 0+, -- SHAPE 37 --- 45,60,44,60,44,60. 44,60,7,40,45,36,36 36,36,45,45,53,545 54,54,63,63,36,36M 36,45,53,54,54,63c 36,36,53,54,6,0i~ -- SHAPE 34 -- 37,39,37,39,37,103 37,12,46,46,21,55 53,63,63,78,41,62 46,6,0  -- SHAPE 35 --! 45,45,45,5 193,8,24,32,53,371  37,172,54,46,32,150A  27,36,4,0G \  -- SHAPE 32 --s  9,37,39,40,60,12 37,37,39,37,28,62 60,62,188,46,5,0 -- SHAPE 33 -- 35,36,36,36,36,45 45,45,53,54,54,54 54,63,63,63,40,37 63,4,40,37,63,44' 45,0-B -- SHAPE 29 --Z 193,8,24,32,12,54t 118,36,36,172,50,37 53,5,0 -- SHAPE 30 -- 1,192,45,45,45,60 63,63,231,64,45,45 45,60,63,63,63,0 -- SHAPE 31 -- -- SHAPE 26 --& 41,45,5,56,63,63? 44,77,37,103,63,63V 7,40,45,45,60,44q 228,63,191,45,45,222 59,46,5,0 -- SHAPE 27 -- 193,45,60,39,45,196 8,63,44,37,63,7 0 -- SHAPE 28 -- 5,40,56,7, 62,46,5,0* -- SHAPE 24 --B 41,60,44,44,44,44Z 60,44,60,12,63,63n 55,46,44,45,0t -- SHAPE 25 -- 41,45,5,56,63,63 44,60,12,45,37,63 63,40,60,44,44,46 44,46,62,46,150,55 45,0 -- SHAPE 22 --/ 41,45,5,56,63,63G 44,77,37,39,37,63_ 63,7,40,45,229,27w 39,45,45,37,63,63 63,0 -- SHAPE 23 -- 41,45,5,56,63,63 44,60,44,60,44,60 12,103,45,173,63,63 78,41,214,63,46,45,0 -- SHAPE 20 --4 41,45,5,56,63,63L 44,77,37,39,63,44d 45,56,44,60,63,55x 39,12,45,45,0~ -- SHAPE 21 -- 73,41,60,44,5,56 63,63,39,45,45,45 28,39,37,39,37,63 23,23,23,46,44,40 40,06 36,63,55,54,54,54! 0'< -- SHAPE 18 --U 45,37,63,103,37,39m 37,39,37,39,39,45x 54,0~ -- SHAPE 19 -- 45,45,37,63,63,39 109,1,56,63,103,45 45,36,36,28,63,191 45,45,54,254,3,56 44,5,45 45,60,63,63,63,0 5 -- SHAPE 15 --L 41,5,56,63,44,45Z 28,63,0`u -- SHAPE 16 -- 1,192,37,37,37,37 37,37,37,0 -- SHAPE 17 -- 41,45,5,32,36,36 36,28,63,191,54,54 54,46,45,37,36,31 30,30,30,30,4,400 45,181,7,56,56,56; 56,0AV -- SHAPE 12 --n 65,37,39,37,45,60 191,63,44,37,37,39 37,0 -- SHAPE 13 -- 5,40,56,7,40,37 63,4,0 -- SHAPE 14 -- 1,192,1,192,45- 1,192,64,24,5,40. 56,7,40,37,63,76 0<P -- SHAPE 9 --h 73,57,60,60,60,44 60,44,44,44,44,4 0 -- SHAPE 10 -- 37,37,37,37,39,37 39,39,39,39,0 -- SHAPE 11 -- 9,64,36,36,36,1463,103 | 49,0 }+ ~ -- SHAPE 6 --D  73,41,60,223,43,44] 44,44,44,44,44,220n 27,55,53,0t -- SHAPE 7 -- 41,109,229,255,59,44 13,45,5,248,255,39 109,229,63,60,44,44 53,53,63,0  -- SHAPE 8 -110,33,36,44 o 54,54,6,0" p6 q -- SHAPE 4 --N r 1,192,8,109,45,56f s 63,63,39,45,45,45 t 28,255,63,40,45,45 u 37,63,63,63,12,109 v 45,0 w x -- SHAPE 5 -- y 73,5,56,63,7,40 z 13,45,28,39,60,62 { 224,109,45,28,5,4 A 78,4,95,4,113,4,137,4= B 156,4,181,4,199,4,218,4C CX d --TABLE DATA--l e -- SHAPE 1 --| f 73,73,1,0 g h -- SHAPE 2 -- i 37,39,40,60,44,60 j 44,60,44,4,0 k l -- SHAPE 3 -- m 1,192,64,24,36,36 n 53,54,71,1 8 80,1,90,1,115,1,129,1> 9 156,1,179,1,205,1,231,1W : 3,2,20,2,46,2,74,2t ; 87,2,101,2,116,2,134,2 < 150,2,168,2,210,2,231,2 = 254,2,17,3,38,3,61,3 > 83,3,106,3,128,3,142,3 ? 163,3,185,3,204,3,227,3 @ 249,3,13,4,32,4,5T6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 ALPHA-TBL 4 59,0,120,0,124,0,135,0 5 151,0,177,0,197,0,213,0 6 235,0,248,0,5,1,16,1 7 36,1,50,1,59,1, ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA25000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C          xiI "1@,6?$?gI -ۛ6$$$$36666----:????I@h< UND PROGRAM SAVED" }1:14J "START ADRESS = ";SA;" LENGTH = ";CTP i == DATA == 169,10,133,1,173,48 192,136,208,4,198,1 240,8,202,208,246 166,0,76,4,3,96 999 ================== C =================1 = SOUND PROGRAM =I =================O(U-e2CT0:SA768w7D$(13)(4)~<IFI999ī100PSACT,IUCTCT1Z60cdD$;"BSAVE SOUND";",A";SA;",L";CTn1:10 x"MACHINE LANGUAGE SO xi'(-%?? -%- $66??$$66V)-?-8-- ??? --? I-<(--%???,--;'-xi$ 1ASq ---8???L,--666I-e 7'mI-8?'--.(->><>+,,,,,,,.,.,.,;>>>C?$$--%$??6--566>??6--5??-??->?<><><><><&(<,<,< .,.,.,......>'7'????$$---$$$$66????$$???666(((((d '7'><> ''>.>.>--5??><><><>'%'%'%'%'%'-.,.,.,.,.,.,.,675757575???.---#$$$$$$-------666????666>??$$$$$$------66????666>?<<<<<<,,,,,,,......>'??766V$$$--#7'7' %%%%'''''-.,....---66???g--%<,< %%%''''%g5%...,,d.,75777777><><><>'%'%'%'%'%'-.,.,.,.,.....>>>>>6------------<<< %%''777 ''%g%%5%.......>.77'<>>>> '%'%g%5%5%.,. %%.>.>.??7--,.... %'%''7?? $$??766??$$ u66?'$$?66??? --- ---???8888 <d u ''%'%'%'%'-.,.,.,.777777778888888 d -6?$ -6?0777 'g%%%'''g%%...,,,..77755577 ''077<><,>>?w-? --?.>.--'%'%'%?(--.>.?I$?<,<,< --.>.>.'v2--'%'%'%?(--.>.?5575)-8gI''''%-5-)-'%'%'%?$--5> )--8??'%'%'%'m 57575/>I<<<,<,<,M)>.>.>>. $(<,<,<,M)>.>.>.$'$%g%%<<<,M)>>..>)-'%'? $56-%$56?%'%%%%+8,--55??5 -,,ܛ:<,<,< %-..-<,<,<,<(-5557577?-<,<,<,<---55N5??-<,<,<,<---55N -8 %?;<,<,< %-..>$$$$56.-%$,66>.>$$ -'%'%'%?(- ,6--$$$(-666??-<,<,<,<(m)>.55575-<,<,<,<(--%%'%'%'%'! d575757575%'%'%'%'...66%$$$<66 <.)<,,,,<,< ??7.,-)-8??,< -%??(<,,.,.>.7-)-8??,M%g??(--<,?--;.-<'-?,%?(8(%?(%?,- 6v$$2%5---<>.#$$$$---56666???$$$$--5666??$$$-566?$$56%'%'%g% ..75??N)>.---8,<m-?g1I)<+,,,,,,75)m;, -'m?<,,55?@(8(%?I9<<   0L` HAPE 4 --!  63,12,173,30,63,0' 1 999 57,191,4,192,8,12) s 14,14,13,36,60,63C t 159,18,54,22,182,73[ u 45,45,13,64,36,32p v 36,192,59,63,0v w x -- SHAPE 3 -- y 219,64,21,14,12,12 z 150,59,191,45,45,21 { 63,63,63,23,45,109 | 45,245,255,27,63,0 } ~ -- S2 g 12,21,150,226,63,225 h 14,14,30,223,32,252M i 30,30,14,4,64,192e j 57,191,4,192,8,12{ k 14,14,13,36,4,0 l m -- SHAPE 2 -- n 53,63,36,45,12,12 o 12,21,150,226,63,22 p 14,14,30,223,32,252 q 30,30,14,4,64,192 r T6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 SPIDER-TBL 4 4,0,10,0,46,0,99,0 5 123,0 6 d --TABLE DATA-- e -- SHAPE 1 -- f 53,63,36,45,12,13 ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C SV31LX,LYLXLX9:/232,120:233,1055IL ---- END ----RQ450VSCHSSCHSN1(SC256):N2SCN1256:805,N1:806,N2[599::EN1:10~(800)1Đ:::18:10:"ENDED":D$;"RUN MENU" ============== ERY(I):768:768e h3X,Y2jCO3:3:I1:Pk ----- DISPLAY ---- qpSG$WD$(3):LX50:LY70:1000uSG$WD$(4):LX65:LY130:1000z --- PRINT WORDS ---232,168:233,97CO:0II1(SG$)SV((SG$,II,1)) 20:NE100NE100-OWLLV10:WL150WL150LPI1WL:TI(I)((1)VV):~RI1NE:RX(I)((1)32)2:RY(I)((1)20)3TRX(I)15RX(I)19RY(I)19RY(I)23ī869WPVRX(I)T3XXRY(I)\PV,1^RX(I)RX(I)8:RY(I)RY(I)8a3:4RX(I),2140,100:1140,100/  -- START --=%CO3:875J*ZZ(P2)Z/ZZ141830l4ZZ155ī1150u9810>CO0:875CI13:3TX(I),4:768:F3:845:SG$(LV):LX125:LY10:1000H3TX(SN),4:MVV20LV5:VV0VV0NNELV)A#XA(8)XA(8)A:XA(9)XA(9)A)@ ----------------aSG$WD$(1):LX10:LY10:1000SG$WD$(5):LX115:LY10:1000SG$WD$(6):LX145:LY10:1000SG$WD$(2):LX200:LY10:1000EN1HS(805)256(806):SG$(HS):LX225:1000 ----------$ SETUP5 ----------FCO3:I1:A2QJ14bXA(I),YA(I)}I19:XA(I),YA(I):732:I1::750XA(1)XA(1)A:YA(2)YA(2)AYA(3)YA(3)A:XA(4)XA(4)AXA(5)XA(5)A:YA(6)YA(6)AYA(7)YA(7RN TO START"& "PRESS ESC TO END"4 "(",")"L -- READ ARRAYS --dI14:K:KI(K)I:~I14:XI(I),YI(I):I19:XA(I),YA(I):I14:RI(I):I14:J,K:IX(RI(I))J:IY(RI(I))K:I13:TX(I):I16:WD$(I):Y DATAZ ----------5g 193,149,136,218Ml 0,-8,8,0,-8,0,0,8in 3,20,11,12,269,12,277p 20,277,180,269,188r 11,188,3,180,3,20t 0,16,48,32v 0,-5,5,0,-5,0,0,5{ 158,173,188 "SCORE:","HI:"  "PRESS RETU0:RI(0)0&EN1ī5703+D$;"BLOAD ALPHA-TBL"N0D$;"BLOAD SPIDER-TBL"d5D$;"BLOAD SOUND"u:0,20:769,1?232,120:233,105D:1:0:3I(800)0R((78)(79)256)NEN1ıS599:WI01175:XXI,0::X ----------0:R0:ZH0:P1,0:3(2140,100:845.A ------------S INITIALIZEf ------------v234,0:255LV1:SN1XX28500:T28:T334P116368:P216384 D$(13)(4)P1,0XO136:YO168XXO:YYO:NM4:C11 !LJJ1EE:LL16:768::SCSC10LV:450:8II1NE[(RX(II)8T3XXRY(II)8),0:lLVLV1:EE00:II19181:11,II269,II: -- CHANGE LEVEL --CO0:SG$(LV1):LX125:LY10:1000:CO3:SG$(LV):LX125:1000XXO:YYO:0:RO -- SCORE --4 CO0:SG$(SR):LX65:LY10:1000> SRSCL SG$(SC)a CO3:LX65:1000g   -- LEVEL CHANGE -- JJ125:CO3CO:CO:768 II482 II,20II,180:268II,20268II,180:: 768:450:EG0 EE0ī480+Q2 XZ140LUX:YZ100LUY8 1XZ,YZ:1XZ,YZ:J 1XZ,YZ:768r 1XZ,YZ:3X,Y:WB1WB0:2WX,WY XXO:YYO:SNSN1:SN4ī1100 0:3TX(SN),4 0:II119:128,159II144,159II::3X,Y:RO0:P1,0:C11:R0:ZH0 769,1: ILV10I150İ470 r/  -- EGGS EATEN --B II14:768:P 0:4X,Y\ EEEE1l SCSC10LV EGEG1:EG10İ450:EG0 KK,0:234,0:  -- SNAGGED ? -- BX140:CY100:Q(BBCC) UXBQ:UYCQ 769,200:768 L1ME LOOP ---+ TI(I)TI(I)1:TI(I)0İ3001 I , --- DRAW WEB ---i .C1310,320,330,330,330,350r 0768x 2 6WXXIX(R):WYYIY(R):C1C11 ? @769,30:768:C1C11:769,1: J1WX,WY:1WX,WY:C1C11: ^2WX,WY:II1:C11 h f ------------ iZZ(P2)2 nKI(ZZ)0120I sZHZZ:RRI(KI(ZH))X xRO:3X,Yw }(234)4ĕ3X,Y:425:170 XNXXI(KI(ZH)):YNYYI(KI(ZH)) XXN:YYN R:3X,Y:ROR KKXT2T3XXYT2 (KK)1İ400 200:105 --- TI ==============& SPIDER: PAUL COLETTAO ==============d#RX(101),RY(101)q(TI(151)~-KI(220)2IX(50),IY(50)< ----------F MAINP ----------U500:600Z700:800d ------------ e READ KEY       A2 .D$;"BSAVE ";NA$;",A";HA;",L";LN4K -- SHAPE SHOW --V3:X01:21:"WOULD YOU LIKE TO SEE THE SHAPES (Y/N)";:GT$GT$"Y"Ė1:22:" PRESS SPACE BAR ";GT$"Y"ĉ:200 I2(HA256):I1HA$(I);" NOT FOUND--REENTER ";4 K30:22:NA$(I)N LNHN:N61:216,0:255i X --- CREATE INDEX --- ZLN(0)0:HASA:LNA1HA ]SA,N:SA1,0 `SASA2 bI0N1 lSSSSLN(I) vSH(SS256) {SLSS(SH256) SA,SL:SA1,SHSAS"518 SA(SA$)/ SA17000SA38000ī518G SS(N1)2:A1SASSQ 585\ I1Nf 1:1 !D$;"BLOAD ";NA$(I);",A";A1 &LN(I)(21920)(21919)256 0A1LN(I)A1 : ?600 D216,0 H I -- ERROR -- J1:22:"FILE ";N51,246,30,109,41 h 28,4,0# i7 j -- SHAPE 2 --L k 73,237,163,6,0R lf m -- SHAPE 3 --~ n 45,56,63,28,45,45 o 181,58,63,63,14,45 p 245,63,0 q r 999 T6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 LANDER-TBL 4 3,0,8,0,23,0,28,0 5 d --TABLE DATA-- e -- SHAPE 1 -- f 36,7,224,141,5,160 g 210, ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C   SCs - ANOTHER GAME ? -0t760:FX269:742JuCO0:NX60:1000:SC0YvN0ī1148dxI1Nz0:1LX(I),LY(I):768::N0|FS1:XI1:YI0:100~(800)1Đ:::18:10:"ENDED":D$;"RUN MENU" =================== X(SC$):SV((SC$,II,1))5SV31NX,NY:NXNX10:K232,120:233,105_SC5000ī1100euL -- END --|N0PI110:0,15I:768TV[SCHSī1139`SHSC:SCHS:CO0:NX240:NY191:1000jSCSH:CO3:NX240:1000oHSL(I1):XH,BL(I)X1,BL(I):XHX2%z= -- PRINT WORDS --VCO:232,168:233,97kII1(WD$(WD))SV((WD$(WD),II,1))SV31LX,LY:LXLX10:232,120:233,105 -- SCORE --CO:232,168:233,97SC$(SC)II1I)A(I)1:Y1YO(I):X2XO(I)A(I)(*COH/YSYO(I)B(I):YEYO(I)B(I)X4YYSYESPg9YYYYO(I)>XXA(I)(1(YYYY)(B(I)B(I)))CXSXO(I)XX:XEXO(I)XXHXXSXESPMX,Y::o -DRAW LOWER TERRAIN-pX1,Y1X1,BL(I):X2,Y1X2,B -- DRAW WORDS --.WD5:LX30:LY62:950JWD6:LX55:LY80:950:[ -- LOOP --hZZ(P2)zZZ155ī1150ZZ141ī770 CO0:765:3R2((0)PF):R2:2XA,YA0:1XA,YA  -COMPUTE&DRAW ELLIPSE- %X1XO(-SET UP FUEL/ETC-,WD2:LX10:LY180:950FWD1:LX5:LY191:950[WD3:LX215:95050,YF270,YF270,YF850,YF850,YF742:7486:I1452,YFI2267,YFI2:3:760:799 -- START --P1,0765:77016:SV(I):$ ----------2 SETUPC ----------LCO3jI177:J((1)(65I)5)wJ0J50,18IJ,18I279,18I279J,18I:I16:800JX13X23:JJ(J4)VL(JJ)Y1::XH,BL(I)279,BL(I) 230,140,18,5# 279,0,0,0; -- BOTTOM LINE --] 158,155,158,165,158,150,155s -- SCORE VAL -- 100,50,150,100,200,100 -- READ ARRAYS --I17:WD$(I):I17:XO(I),YO(I),A(I),B(I)I17:BL(I): I ----------] -- WORDS --Cb "SCORE","FUEL","HI","PERFECT"ag "PRESS RETURN TO START"zl "PRESS ESC TO END"q "BONUS FUEL"v -- LANDING PAD --{ 40,120,12,5 80,130,20,5 120,100,8,5 150,110,15,5 185,125,6,4P116368:P216384:P16287.D$(13)(4)FI070:VL(I)160:U!EN1ī565o&D$;"BLOAD ALPHA-TBL"+D$;"BLOAD SOUND"0D$;"BLOAD LANDER-TBL"50,100:769,15:232,120:233,105?:1:0:3WX ----------Y DATA ZXA:YBYAFS0ī1100A1XA,YA:R2((0)PF):R2:2XA,YAOXI1:YI0Uj --------------| INITIALIZE --------------XA10:YA10XBXA:YBYAYF171:PF8XI1:YI0:255 SP1:FS1:FU5:FX269:FYYF3:XH000BN0WD7:LX110:LY85:950:768:768:CO0:LX110:950:742:FX269:BN1:FS1U g  -- CRASH -- 1XA,YA:R1:2XA,YA 0:5 0,150 L110:3XA,YA:768: CO0:NX60:NY191:1000 SCSC100:CO3:NX60:1000 XA10:YA10:XB0 JFS0ī1100; O1XA,YA:R2((0)PF):R2:2XA,YAI TXI1:YI0O Ya ^ -- SCORE --} cCO0:NX60:NY191:1000 fYI0YI0 hL16 mXAXO(L1)A(L1)SRSV(L)(3(YI)):L6 r tSCSCSR wCO3:NX60:NY191:1000O |SC50,FYFX,FY4:FX52FS0 0 , -- LANDED --C .YAVL(IX)3ı\ /R1:2XA,YA:0:CO3 1L110:768:0,10L:1XA,YA: 6NN1:LX(N)XA:LY(N)YA ;YI1WD4:LX110:LY85:950:T140::CO0:LX110:950:3 @350:XA10:YA10:XBXA:YBYA ER1:2XA,YA 0:1XB,YB, 0:1XA,YAB XBXA:YBYA:R2R1Y -- LAND CHECK --h IX(XA4) YA6VL(IX)ĭYI3İ300:195 (234)1(234)14İ400 T150: 234,0:105 -- FUEL LOSS -- FUFU1:FU0FU3:FXFX1:0:FX-------- gT1400:# iPV(0)3 nR1(PVPF)x s(P)127FS1XIXI(PV128)256:YIYI(128(PV128))512:200 xXAXAXI:YIYI.07:YAYAYI }YA10YIYI:YA10 XA276XA1 XA1XA276 YA191Ĺ234,2:185 R2:2XB,YB  ===============) LANDER> PAUL COLETTAT( ===============`-VL(75)u2LX(100),LY(100){7< ---------------F MAINP ---------------Z500:600_700:100d ------------e READ PADDLE f ----     z#??? ̠ ҭ̠ҭ̠ ҭ̠ŠҠ"ŠҠ б ˠ Ġ ̠ ȭ̠ ϭ̠ӭ̠ȭ̠ ӭ̠ ϭŠ ӭŠ ȭŠ ӭŠ"ҭŠ  ҭŠ ҭŠ Š!̠ҠҠ ŠȭŠՠ ȠϠӠȠӠҠ"! 44,46,46,46,46,46/" 46,62,39,63,63,55G# 54,54,86,36,36,36U$ 45,45,0[%p& -- SHAPE 21 --' 219,35,55,39,55,39( 12,37,37,37,37,229) 39,39,39,39,39,45* 46,44,46,46,46,46+ 45,45,45,54,54,63, 63,63,103,45,4536,36,45,45,45& 45,45,45,45,54,54> 54,63,63,63,63,54V 54,54,62,63,63,36n 36,36,36,36,36,45 45,45,45,45,45,54 54,63,63,63,63,54 54,54,62,63,7,0 -- SHAPE 20 -- 60,60,60,60,60,60  44,44,44,44,44,442,60,62,60#  62,188,39,37,39,37;  39,37,39,37,39,37S  39,45,46,44,46,44k  46,44,46,44,46,44 46,44,46,44,54,55 53,55,53,55,53,55 53,63,63,63,46,45 45,45,0 -- SHAPE 19 -- 219,219,35,36,36,36 36,0,63,63,55 45,45,5,0 5 -- SHAPE 17 --N 1,192,44,46,172,46f 46,46,32,37,39,37 39,229,39,55,39,55 39,23,62,60,62,32 39,39,23,62,46,62 46,62,14,45,45,53 63,63,7,0 -- SHAPE 18 --   62,60,630:IC0:900:CO5f3 --------------G PRINT WORDS\ --------------jCO:LHLY~I1(WD$(WD))SV$(WD$(WD),I,1):SV(SV$)31SVLX,LYWD14āT130::768LXLX10LYLYIC:LYLH SO:J,K $  -- RUN PROGRAM --.%8157*825O/(222)6İ850:100l4:"ERROR.....";(222):w9800,1>D$;"RUN ";WD$(SN)R -- ERROR MESSAGE --WCO3:WD12:LX50:IC0:LY30:900:216,0\T150::P1,0aCO0:WD12:LX50:LY2FX,FYIFX30,FYI:*2:I18DFX,FYIFX15,FYI:ZFXFX1:3:I15v FXI,FY5FXI,FY70: (PT$)31X1,Y1:  -- FLAG CHANGE -- J((1)15)FX1K((1)9)FYTT1:T800CO7CO:T0CO:J,KC105,165105,165105,60?105,60170,60170,165240,191T105,165170,165wI1250:16300,0:16299,0: -- FLAG --FX135:FY100CO5:760:7903FX,FYFX30,FYFX30,FY20FX30,FY20FX,FY20FX,FYI119,40I165,40I::3/WD11:LX116:LY50:900?LY85:IC3QJ110:LX50ZWDJjJ5LX180~J6LY73:IC3900:LYLY20:IC0WD15:LX100:LY180:900WD16:LX79:LY191:900 --- FLIP PAGES ---339,191,32:0:630 t230,64:650) vI1101U {139I,20139I,191:140I,20140I,191[ a y  -- PAGE 2 DRAW -- 3 I15:39,30I241,30I: 5 I120:39,35I241,35I: 3 I15:39,55I241,55I:0:I112:1120 "RET/PLAY"# : "SPACE/SELECT"< D --- READ ARRAYS --R II116:WD$(I):X Wi X ----------w Y SETUP Z ---------- d::16302,0 fWD14:LX40:LY50:900 h28,180 j230,64:62454:0:630 l230,32:28,180:62454 p2305   ----------%  DATA6  ----------d  "MATCH","PIANO","PAIRS","CATCH","BOXES"  "POKER","EQUATE","SPIRAL","LANDER","SPIDER","GAMES"  "GAME*NOT*AVAILABLE"  "GRAPHIC GAMES MENU TERMINATED" & "APPLE GRAPHICS GAMES" SNSN1:  ------------/  INITIALIZEB  ------------X SN1:PT$"<":CO3h X198:Y170 P116368:P216384 D$(13)(4) P1,0 D$;"BLOAD SOUND" D$;"BLOAD ALPHA-TBL" 232,168:233,97 :1:3:0 0,70:769,Z160İ180:135 xZ141ī800L }Z155āI115::::8:12:WD$(13)::U 105d P1,0:105} --MOVE SELECTER -- 768 (PT$)31X1,Y1:Y1Y120 SN5Y170:X1173:PT$">" SN10X198:Y170:PT$"<":SN0 (PT$)31X1,Y1  ============ $ MENU7 PAUL COLETTAJ( ============P-]2WD$(16)q< -------------~F MAINP -------------UZ400:500_600:100d ----------e READ KEYf ----------iZ(P2)n790 s     : --------------, RANDOM SHUFFLEA --------------e1040:1060:1080:1040:1090:y -- SHUFFLE --I3021JRD(I)1:TSH(I)SH(I)SH(J):SH(J)T"#$ -- SELECT 20 --)I120:P(SH(I))I:.8I)I,172X(6)I,175:$P1,01ZZ(P2)RZZ141ĹP1,0:985:990:984dZZ155ī1285m979s ---- SET TIME ----II1I22:768X(3)I,172X(3)I,175:P1,0:I0I3018030X(3)I,171X(3)I,176:190:1100970:9780CO0:WD1:LX2:1100QCO3:WD2:LX50:LY190:1100gLX170:WD3:1100q1000w ---- BEGIN ----I110X(3),170IX(5),170I:X(6),170IX(4),170II15X(5)I,172X(5)I,175:X(6138kJ5C10:C2C225:J0,pJJ1:I2C ----------Q SETUPb ----------sYY(1)Y(7)YY(3)YY(8)ī920X(1),YX(2),YYY(5)YY(9)ēX(5),YX(6),YX(1),YX(3),Y:X(4),YX(2),Y CO3:WD1:LX2:LY3:WD$(I):*R --- INIT SHAPE POS ----6TI130RVOX(I)XOC1:OY(I)YOC2kXI7CY0:SI1:CX30ZI15CX0:CY20[I22CY0:CX30:SI1\C1C1SICX^C2C2SICY:`C10:C20:J1bI120dIX(I)XSC1:IY(I)YSC2fC1C  ---------! DATA," ---------D% -- COORDINATES --d* 31,31,249,31,40,40,240,40/ 45,45,235,45,31,149,40,1444 45,1399 -- WORDS --> "PUSH*RETURN*TO*START*ESC*TO*END"C "SCORE","HI"HI19:X(I),Y(I): MI11)RL)+(800)1R((78)(79)256)AI130:SH(I)I:J790PfD$;"BLOAD SOUND"D$;"BLOAD MATCH-TBL"D$;"BLOAD ALPHA-TBL" 232,168:233,97 0,1:769,1P1,01:3:0I130:SM(I)0:P(I)0: ---------&SN20:I110:I2190;R30:TI230:TC0HSF8:Z0WM1:SI1jSE1:J1:CY20zXS65:YS60XO22:YO145SXXO:SYYOA11:B11:S10:S20A1:B1:255P116368:P216384D$(13)(4)RD(RL)((X(I),OY(I):SW0:S10:S20# II1;31OX(I1),OY(I1)II31I1R580a!JP(SH(I))u&31OX(I),OY(I)0SXOX(I):SYOY(I):768?D --- OUTTER SKIP ----II31I1NSM(I)1II1:585S --------- INIT150 SCSC(TI30)1002 CO3:LX100:1150:8 O  -- TIME CHECK --h 768:TCTC1:TC0ı TI,172TI,175:TITI1 TI40ī1200 TC10:  -----------  OUTTER MOVE  ----------- P1,0SW1ĕSH(I)SX,SY:SH(I)O SXIX(J)ĭ(SYIY(J))(B)ĕSH(I)SX,SY:SYIY(J):SH(I)SX,SY:470L ^  -- MATCH --p P1,0:CTCT1 0,25:769,20:II110:0,25I:768::0,1:769,1:S10:S20:SM(I)1 485 CTSNī1200 SW0:500  CO0:LX100:LY190:11$ BNSXA:BN9BN271A1A11/ 450:K  -- BOUNDRY CHECK Y --T SW1v BNSYB:BN9BN165B1B11 460:  -- FIT CHECK -- SYIY(J)ĭ(SXIX(J))(A)ĕSH(I)SX,SY:SXIX(J):SH(I)SX,SY:470   -- FIT CHECK Y --F4,266  AA1:250:. ASFA1:250:B S10:A1A11:N SXSXAn SH(I)SXA,SY:SH(I)SX,SYt BB1:300: BSFB1:300: S20:B1B11: ,SYSYB 6SH(I)SX,SYB:SH(I)SX,SY ;  -- BOUNDRY CHECK X -- SW---- e INPUT" f ---------/ }ZZ(P2)8 490I ZZ160İ500h ZZ141S1S11:S20:P1,0 ZZ155S2S21:S10:P1,0 200:125 ---------- PLOT DIR ---------- S10İ400:S1240,242,244 S20İ425:S2262,26 ===============& MATCH: PAUL COLETTAP( ===============i2SH(31),P(31),SM(31)|7IX(21),IY(21)<OX(31),OY(31)FX(10),Y(10)P -------------U MAIN ROUTINEZ -------------_700:800:900:100 d -----         (lP1,0$(s -- LOOP FOR INPUT -->(t(P2)141Ľ:EN1:10S(y(P2)155ī1150](|1140r(} -- END/LINK --(~(800)1Đ:::(D$;"RUN MENU"( ================== Exi+$3m)I-8?--:??-??,54" 54,62,63,63,54,45/" 45,53,63,63,05"J" -- SHAPE 31 --b" 30,45,21,63,63,14s" 45,62,63,0y"" 999 -- SHAPE 29 --'!w 3,64,192,62,188,62@!x 62,60,62,156,43,44X!y 44,44,44,44,44,44p!z 46,44,46,44,46,44!{ 214,59,62,62,62,0!|!} -- SHAPE 30 --!~ 67,63,36,36,45,45! 37,36,60,63,63,36! 36,45,45,45,62,63" 63,54,45,45,53,63,63 j 54,54,54,0 k2 l -- SHAPE 28 --J m 219,27,5,40,40,40b n 40,40,21,21,21,21z o 21,5,224,28,28,28 p 28,100,12,12,12,12 q 28,23,23,23,23,23 r 231,28,28,28,28,23 s 14,14,14,14,14,246 t 30,30,30,30,6,0 u!v ^ 40,48,54,54,54,54._ 54,54,63,63,39,63F` 63,63,36,36,36,36^a 36,21,21,21,45,45ub 5,40,40,48,54,54c 54,54,62,63,7,0de -- SHAPE 27 --f 36,36,60,63,63,63g 44,45,45,45,36,36h 36,53,54,54,46,45 i 45,45,62,6345,45,45,45,245'S 30,30,30,30,63,63?T 54,54,30,30,30,30WU 36,36,36,36,36,36pV 45,45,45,45,45,245W 30,30,63,63,55,54X 54,30,30,6,0YZ -- SHAPE 26 --[ 63,63,63,36,36,36\ 36,36,36,172,21,21] 21,45,45,5,40,405,45,36,36,36&G 36,172,21,14,14,54>H 54,14,14,14,14,14VI 63,63,63,60,63,63nJ 63,39,44,45,45,37K 36,36,36,172,21,54L 54,14,14,14,14,63M 63,0NO -- SHAPE 25 --P 219,219,3,32,36,36Q 36,36,36,36,44,45R 45,,549 54,6,0:+; -- SHAPE 23 --C< 1,192,60,62,60,62[= 60,62,60,62,60,38s> 40,60,44,60,44,60? 13,46,44,46,44,46@ 44,46,46,46,46,46A 46,62,39,55,39,4B 0CD -- SHAPE 24 --E 63,63,63,63,36,36 F 45,4,37- 60,63,63,150,26,55). 55,7,0//D0 -- SHAPE 22 --\1 63,36,36,36,28,28t2 28,28,28,45,45,213 21,21,5,96,12,454 45,30,30,30,30,305 54,54,54,39,63,366 36,228,28,28,28,457 14,14,14,5,96,128 45,30,30,30,3031OX(I),OY(I) 05 I130:SH(I)OX(I),OY(I)KP(SH(I))0ī1296s3:JP(SH(I)):SH(I)IX(J),IY(J):0:0,1:769,10:I111:I2189:985:790:TI230CO0:LX100:LY190:1150:3:1000:SC0SXXO:SYYO:S10:S20:CT0:100  --- PLAY AGAIN ---gSCHSSHSC:SCHS:CO0:LX190:LY190:1150:SCSH:CO3:LX190:1150:HSSCqP1,0~ZZ(P2)ZZ141ī1290ZZ155ī12851274(800)1Đ:::18:10:"ENDED":D$;"RUN MENU"  --- RESET --- ---- >SNCTĹ0,240:769,200:768:SH(I)SX,SY:1270R -- PERFECT --aKI:769,1mI120RA((SE)20)10,10RA:768SH(RA)IX(RA),IY(RA)T150:SH(RA)IX(RA),IY(RA):T110:485:769,15:768:IKX,LYjLXLX9o,t232,120:233,1052yD~ -- SCORE --Y232,168:233,97aCOoSC$(SC)II1(SC$)SV((SC$,II,1))SV31LX,LYLXLX8:232,120:233,105 ----------- ENDING -------120:SH(I)IX(I),IY(I):A7B -- DRAW OUTTER -->D3_FI130:SH(I)OX(I),OY(I):wHI1:31OX(I),OY(I)JJP(SH(I))KL --- PRINT WORDS ----Q232,168:233,97VCO[II1(WD$(WD))`SV((WD$(WD),II,1))eSV31L -- PIANO --/LNY(3)Y(1):BLX(1)20;I1LNZX(1),Y(1)IX(2),Y(1)I:a0mI110BL,Y(1)BL,Y(3):BLBL20:I18III3J130X(II),Y(1)JX(II)10,Y(1)J: -- PIANO BORDER --2:I2510:CO3I111!I6ī73404,Y276,Y<YY6:GI12o2I,102I,70:275I,10275I,70:J78:I14J,10J,34:J,46J,70JJ48:310,30:410,61SG$WD$(5):LX10:LY85:1200:SG$WD$(6):LX230:1200:220:23033,105P1,0:769,20$:1:39 --TEXT PAGE --H:"HELLO"Z7:5:WD$(7)l7:6:WD$(8)15:10::WD$(9)15:14::WD$(10):5:20:WD$(11) ----------- SET UP ----------- -- STAFF --Yj255lMO0:JX0:JY1756mS(0)0:J1:DF0:TF0OnDU25:I1:AX36:AY9bpX30:Y50:RL1|qNT0:AN0:AP1:NL159vD$(13)(4){P116368:P216384D$;"BLOAD SOUND"D$;"BLOAD PIANO-TBL"D$;"BLOAD ALPHA-TBL"232,120:2WD$(I): *I13:X(I),Y(I):4,I411:X(I):H.I128:K(I):c0I128:K:S(K(I))K:2I121:K:NY(K(I))K:4I121:K:NX(K(I))K:6I121:K:SV(K(I))K::I170:D(I)20WX ----------b INITg ----------6,36,33,33 30,30,27,27,249! --- PIANO-X-POS ---m" 40,50,60,70,80,90,100,0,120,130,140,150,160,0# 180,190,200,210,220,230,240$ -- SHAPE NUM ----% 1,7,1,7,1,7,1,2,1,7,1,7,1,7,1,7,1,7,1,7,1& -- READ TO ARRAYS --(I111: 73,57,79,48,80,47,58,45) 13,35,8,21C --- SCALE VALUE ---a 164,160,156,152,148,144~ 140,10,132,128,124,120 116,1,108,104,100,96 92,88,84,2,3,4,5,6,7,8 -- SCALE Y POS -- 54,54,51,51,48,48,45,42  42,42,39,39,3ITH P- )"  "SAVE:"," GET:"G "ENTER E TO EXIT SAVE/GET MODEb --- PIANO COORD --- 30,100,250,100,30,155  45,65,85,125,145,185,205,225 -- ASCII KEY --   27,49,81,50,87,51,69,52  82,53,84,54,89,55,85,56-- DATA SET UP* --------------Q "REST TEMPO DEL INS"p "PLAY HOLD SAVE/GET" "4 7 < >" "R / #" "TEMPO:","HOLD:" "ENTER TUNE TO GET OR SAVE"  " (MUST START W +  ----------'  PLAYBACK8  ----------H NI1:Y150S N0ı^ J1Nu P(J)10İ200:440 1PX(J),Y4SH(J) 0,P(J):769,D(J):768 1PX(J),Y4SH(J) T110TF:  P1,0:769,20  ------------LEFT -- I1ī270# 6AX,AY= AP1RL1:800:260X AXAX12:II1:APAP1e 6AX,AYk   -- MOVE ARROW RIGHT -- NT0ī299 I1ī284 INT1ī299 6AX,AY AP20İ800:288 AXAX12:II1:APAP1 6AX,AYSG$(TF):LX60:LY85:12002 TFTF1:TF9TF1W CO3:SG$(TF):LX60:LY85:1200] s -- DURATION -- CO0:SG$(DF):LX270:LY85:1200 DFDF1:DF4DF1 D(I)DUDF CO3:SG$(DF):LX270:LY85:1200  -- MOVE ARROW NTNT1:NSNS1P P(I)S(ZZ):PY(I)NY(ZZ):PX(I)NX(ZZ):D(I)DUDF:SH(I)SV(ZZ)Y 275h P1,0:115 -- OTHER MODES -- S(ZZ)220,230,250,275,400,1000,900,900 P1,0 --- REST --- T1100: -- TEMPO -- CO0:0:700:100 d --------------3 i PIANO INPUTH n --------------Y sZZ(P2)128j tZZ33ī1250y vZZ0ī115 zS(ZZ)0ī115 }S(ZZ)9İ180:115 NT1NL115 0,S(ZZ):768 SV(ZZ)AX,NY(ZZ) INTĕSH(I)AX,PY(I):145  ==============% PIANO9 PAUL COLETTAN ==============_ X(12),K(30)r"NY(90),NX(90)$SV(90),S(90)&P(160),D(160),PY(160)(PX(160),SH(160)0WD$(12)2 -----------7 MAIN< ----------- A500:60          55,23,150,26% t 191,45,53,63,119,5- u 03 vG w -- SHAPE 4 --_ x 45,96,12,12,12,12y y 36,36,228,28,63,191 z 30,23,45,21,63,119 { 109,73,73,18,37,39 | 64,39,45,0 } ~ -- SHAPE 5 --  45,45,45,45,45,37 36,36,36,3663,40,45,60,63,12* g 109,34,36,36,36,362 h 08 iL j -- SHAPE 2 --e k 45,44,60,12,229,39v l 229,63,7,0| m n -- SHAPE 3 -- o 45,96,36,36,36,36 p 36,36,36,12,173,54 q 30,23,159,30,30,30 r 54,14,14,109,5,40 s 32,28,2T6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 PIANO-TBL 4 7,0,16,0,29,0,39,0 5 76,0,104,0,127,0,136,0 6 d --TABLE DATA-- e -- SHAPE 1 -- f  ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C 1(SG$)!SV((SG$,II,1)):!SV31LX,LY:LXLX9:P!232,120:233,105V!f! -- END --!(800)1Đ:::18:10:"ENDED":!D$;"RUN MENU" TUNE -- D$;"OPEN ";NA$1 D$;"DELETE ";NA$E D$;"OPEN ";NA$Z D$;"WRITE ";NA$b NTo II1NT P(II);",";PY(II);",";PX(II);",";D(II);",";SH(II)  D$;"CLOSE ";NA$   --- PRINT WORDS -- CO:232,168:233,97 !II[D$;"READ ";NA$`TT:;a6AX,AY:AX36:AY9:6AX,AYZbIXSC41:XX36:NENS:850dcNTTTqdII1NTeP(II),PY(II),PX(II),D(II),SH(II)joD$;"CLOSE ";NA$yNDNT:ND20ND20|IX0:XX36:AP1:I1:SC0:875} ~ -- SAVE "ī10251050EVT10İ1150:12:18:"TUNE SAVED ":1020p1100:12:18:"TUNE RETRIEVED ":1020 -- ERROR --12:18:"ERROR ";(222):216,0:10621:ZZ35:125L -- GET TUNE --QD$;"VERIFY ";NA$VD$;"OPEN ";NA$ -----------------5 SAVE/GET MODEM -----------------WP1,0y16302,0:16300,0:16303,0HT20:VT10:216,0HT:VT:NA$NA$"E"Ĺ16304,0:16297,0:16299,0: (NA$)0VT24VT:1025 (NA$,1,2)"P-I)P(II1)P(II):PY(IX)NY(52):PX(52)NX(52)aD(IX)20:SH(IX)SV(52):P(IX)S(52)oNTNT1: -- DELETE NOTE --NTNT1IIIXNTPY(II)PY(II1):PX(II)PX(II1)D(II)D(II1):SH(II)SH(II1)P(II)P(II1):INS ROUTINES --%SW1NS20NDNE5SW925,930dIXI:850:IXI:950:IXI1:XXAX:875:990IXI:850:IXI:975:IXI1:XXAX:875:990 -- INSERT NOTE --IINTIX1PY(II1)PY(II):PX(II1)PX(II)D(II1)D(II):SH(II1)SH(IlND0ī882mII1NDAoSH(IXII)XX,PY(IIIX):XXXX12GpYrNSNS(NEND)_tx -- DEL/INS NOTE --INTıXXAX:SW9S(ZZ):NENSAP1SW1NT1NLıNTINENDNENTINENDNE1SW1NDNE1 -- DEL/840@RL1II1BRL1$CIHIXSC41:IZIX:XX36:850:IXIZ_JAP17:RL1AP5sLAX(AP1)1236MXX36:SCSCRL:IXSC4:875QR -- ERASE --WII1NE\SH(IX)XX,PY(IX)fIXIX1:XXXX12hjk -- DRAW --527JX,JY:JXJX63-I4JYJY15:JX03?636,9KJ1:I1Qg  ---------------x* SET SCROLL/ ---------------0X4(NTI):X0X04NENS:NDNE46INTNDNE4:8308(INT)(AP20)NDNEX9ND20ND20>255$I30I250ēI,95I,160:770@I,95I,99:I,156I,160Fb -- BOTTOM SCREEN --CO3:SG$WD$(1):LX40:LY175:1200 SG$WD$(2):LX40:LY190:1200 SG$WD$(3):LX29:LY175:1200 SG$WD$(4):LX29:LY190:12003:I1790:LY170:800*WD3:LX90:LY185:8000C  ------------U! PRINT WORDSh" ------------}%232,168:233,97*CR/II1(WD$(WD))4SV((WD$(WD),II,1))9SV31LX,LY>LXLX8:C232,120:233,105MR -- PRINT S -I15:K:S(K)I:.I15:WD$(I):4 F  -- BEGIN --f CR3:WD2:LX90:LY170:800WD3:LX90:LY185:800:P1,0ZZ(P2)ZZ141HS149:795ZZ155ī1000ZZ204HS299:795783EN1Ľ:10CR0:WD2:LX0(WD1:LX20:LY170:800:LX210:800B0:13X,Y:1210,185HX ---------e DATAu --------- --- KEYS --- 67,49,50,44,10 -- WORD STRINGS -- "SCORE","RETURN/PLAY","ESC/END","*20","*50" - READ ARRAY DATA(I)SH(I)SH(J):SH(J)T&:695@ -- PLACE DIAMOND --QRSRD(10)1bR1RD(13)1R2RD(13)1:R2R1ī686SH(R110RS)11:SH(R210RS)113:RS118,170:11118,182:CR3:WD4:LX128:LY170:800WD5:LY182:LX128:80hSYSY15:SXSX20'jSX270ī6260k610Hl --- HORZ LINE ---VmSY150ıanI02xp0,SYI279,SYI:~qr -- SET SHAPES(GRID) --vI1140:JJ1{SH(I)J:J10J0780680I14021JRD(I)1:TSH----Y SET UP GRID+Z -------------?[EN1EN0:626G\J0]]2:0,0:62454:0i^I140_0,151I279,151I:`3:I01a0I,0278I,0278I,1520I,1520I,0:b --- VERT LINE ---dI01fSXI,0SXI,152:g620$(13)(4)$!P116368:P216384<&RD(UL)((1)UL)K+EN1ī590e0D$;"BLOAD PAIRS-TBL"5D$;"BLOAD ALPHA-TBL":D$;"BLOAD SOUND"?(800)1R((78)(79)256)D:1:3I232,120:233,105NP1,0:0WX ----------ECK SCORE --(SR(1)HSSR(2)HSEN1.C --------------U INITIALIZEj --------------}X7:Y147:255PX(1)20:PX(2)210X120:Y115:IX16SX0:SY0:HS149 SN10:SQ1:IC10SE1:PS127:OP0FL(0)1:PL1 DATCH ----------SQ14SO(PS)1:SO(PH)1XII110:0,5II:769,20:768:fOSSR(PL)SH(PS)RSSR(PL)SR(PL)10:768:768SH(PS)11SR(PL)SR(PL)40:768:768:768SR(PL)SR(PL)IC:CSSR(PL):LXPX(PL):LY185:850  -- CH s3:SH(PS)X,Y tP1,0" v6 w --- CLOSE ---B x3:390N z2:390T |i  --- WINDOW --- 0,10:769,4:768 XXXZ4:YYYZ10 XX250IX15 II112 XX,YYIIXXIX,YYII :IX16:P1,0   ---------- M `T1200:* bSH(PH)SH(PS)İ400:359? cXZXH:YZYH:375W dXZX:YZY:375:SQ1 e12PX(PL)10,185:PL3PL:12PX(PL)10,185 fOP0:SO(PS)0:SO(PH)0 g h ------------ m --- OPEN --- n3:390 p0:390 q r --- SHOW ---W CROSS --  1SO(PS)1ı' 6OP1ı6 ;0:13X,Y< @N E -----------` F SHOW SHAPEr G ----------- JSO(PS)1ı LOP1 NSQ340,350 P TXZX:YZY:365:370 VXHX:YHY:PHPS:OP1 YSQ2:SO(PS)1: ^XZX:YZY:365:370 ------- SET UP MOVE- ------------> YY10ī299K PSPS14[ YYY1:299l XX17ī299x PSPS1 XXX1:299 XX1270ī299 PSPS1 XXX1:299 YY1150ī299 PSPS14 YYY1:299 +P1,0: , -- DRA------ nZZ(P2)150& pZZ0ī1108 rS(ZZ)0ī110A t150P vEN1ī900Y w110n --- BRANCH ---w 200 S(ZZ)250,260,270,280,325 300 -- ERASE CROSS -- OP1OP0: SO(PS)1ı 2:13X,Y  ----- =================) PAIRS= PAUL COLETTAU =================`#S(70)u(SH(141),SO(141){2< ---------------F MAINP ---------------U500:700Z600:100d ------------e READ KEY f ------      ================= xi .c{5?$- ? @9  $5?$- ? @9  $10621:NU3:BX10HY113:FT6:SW1:EB1#M735:1:LX25:LY190:850)WD2:LX180:850/A -- START --V(P2)155ī1000j(PB)128ī735xT120:(PB)128ı735 - PRINT "SCORE/HI" -CO0:730:CO3:WD3:LX20:LY190:850WD4:LX200:850 -DRAW 5:769,2T120:,BX250II3:719F768:1BX,BY:BXBX8N:l -- GENERATE 10 STARS --I111:X1(I)RD(255)15:I1300:SXRD(RL)10:SYRD(125)15:SX,SY769,1:768: -PRINT START MESSAGE -WD:PT(I):I16?XB(I),YB(I),XE(I),YE(I),LG(I),SP(I):RI13:Y(I):fI13:YL(I):{I15:WD$(I): -- SETUP --J16:750:CO3730:735:745J3:2X,Y(J)720:725:715:7993:II1NU:0,1,5,1l 9,10,9,13,261,24q 10,145,10,145,259,4Nv 10,160,10,160,259,4h{ 10,175,10,175,259,4z 143,158,173 132,150,164 -- WORDS -- "PDL/START","ESC/END","SCORE","HI" "*BONUS*" -- READ ARRAYS -- I13(4)+D$;"BLOAD CATCH-TBL"70D$;"BLOAD ALPHA-TBL"M5D$;"BLOAD SOUND"c:232,120:233,105m?P1,0D0,15:769,20I:1:3N(800)1R((78)(79)256)WX -- DATA --] 50,25,10b 5,10,5,190,5,1g 270,10,270,190--------------A1:25580:HR6:VR10:VA2:LP10XRL260:BX10:BY7:NU3:EB1tW125:WW12:TI0:PV127 X17:Y142:NY190X1100:Y113:YE179P116368:P216384:PB16287FT6:SW1:YL140!RD(RL)((1)RL)&D$(13)(SC$) SV((SC$,K,1))7 SV31NX,NY:NXNX10:M 232,120:233,105S x R1:CO3:WD5:LX130:LY190:850 BXBX8:715:BXBX8:720 CO0:WD5:LX130:850 FT9FT10 FTFT1:  ---------------  INITIALIZE -0SCSCPT(J):0:1BX,BY:BXBX85 CO3:NX80:475a SCEB250EBEB1:BXBX8:715:BXBX8| BX2ĕ1X1(I),Y1:800 SW0ĕ1X1(I),Y1 I10İ490:I0 Y113:II1:  -- SCORE PRINT -- 232,168:233,97 SC$(SC):CO K1HY1 E  -- NUTRALIZE --, SW1ı; TI0SW1U (PB)PVİ420:450:^ 449p  -- SOUND -- 0,5:769,10:1XH,YH T110:768:2XH,YH: SW1:   -- ADD SCORE -- NX80:CO0:475 SW1SCSCPT(J)! SWJJA:2X,Y(J): SW0ī299E 1X1(I),Y1:Y1Y1FT:1X1(I),Y1K +f , -- STAR CAUGHT ? --r 1TITI1 6Y1YESW0:TI0:450:SW1 ;SW0ı @(YL(J)Y1)VR(XX1(I))HRĕ1X1(I),Y1:Y1Y(J)VA:X1(I)X:1X1(I),Y1:SW0:TILP:XHX1(I):Y1:BX26:NU1. nQ(0):IC((WQ)WW)(QW)K x200:225:250:300:400T 110m -- DRAW CATCHER -- XIC270XIC10ı 2X,Y(J):XXIC:2X,Y(J) -- LEVEL -- SW0ı (PB)128ı J1J3AA1 2X,Y(J) . =================( CATCH< PAUL COLETTAT =================`#X1(15)f2|< ---------------F MAINP ---------------Z500:600_700:100d --------------e READ INKEY f -------------- iI     3:X1IC2:Y1X1%XXBX1:YYBY13XXX:YYYDIIXBXEICUJJYBYEICb1II,JJhnTXX3:TYY5:GHGN1:I01:J015TXGHICI,TYGHICJ:: -- PRINT WORDS --232,168:233,97:COII1(WD$(WODX(II)2,>YBYODY(II)2:YEYODY(II)2OHXB,YBXE,YBXE,YEXB,YEXB,YBURo ---- GRID PLOT ----zLL279T09:TTTT(10T):TT,0TT,160:LLLL(10T):LL,0LL,160769,10T:768:IIJH:CO0:800GNDX(II)IC:G2GNGNT INITIALS --CO0:715;WD2:LX57:LY170:CO3:950P232,168:233,97kJ01:IN$:PL$(J)IN$(IN$)31IX(J),170:768:WD2:CO0:LX57:950232,120:233,105769,5:  -- PLOT SQUARE -- *CO 4XBXODX(II)2:XEX:950 Q(0)&J(Q70)1/775D(P2)155ī1150[(PB(PN))127740d730y(P2)155ī1150(PB(PN))128749740900:780 -- DRAW SQUARE --CO0:IIJH:800 CO3:IIJ:800 JHJ:   -- SELECS --I14"DX(I),DY(I):<I16:XV(I),YV(I):PI16:QV(I):eI14:WD$(I):k| ---------- SETUP ----------0,0279,0279,1600,1600,0CO3:715:730WD1:LX70:LY170:950WD4:LX70:LY180X ----------- b DATA2l -----------Tq 70,70,84,84,112,112,140,140tt 0,0,-7,0,0,-7,7,0,0,7,0,0u 50,100,150,200,245,256v -- WORDS ---- "PDL>GRID*SIZE" "","PDL>REPLAY","ESC>END" -- READ ARRAY0)25:IX(1)250CT0:IC14P P116368:P216384:PB(0)16287:PB(1)16286bD$(13)(4)qEN1ī555D$;"BLOAD BOXES-TBL"!D$;"BLOAD ALPHA-TBL"&D$;"BLOAD SOUND"+232,120:233,1050P1,05:1:3:0:0,5:769,10W(PN):1000JCO3:NXIX(PN):AP1APGNAPG2GN1APG2SC(PN)SC(PN)5^SC(PN)SC(PN)1lSCSC(PN)v1000SC(0)SC(1)GNGN20ī1100 ------------ INITIALIZE ------------XO140:YO80:255PO1:PN0IX(TXTX3:TYTY5fAP1APGNAPG2GN1APG2ĭSQ(AP)4Ĺ232,120:233,105:5TX,TY:232,168:233,97SQ(AP)4ĕ(PL$(PN))31TX,TY:450:TR1232,120:233,105 -- ADD SCORE --T15:768:768:NXIX(PN):NY185 CO0:SCPS0 S T -- RIGHT --% VAPPO1D XAPGNGNPO(APGN)GNıj ZSQ(AP)SQ(AP)1:TXXIC:TYY:400p ] ^ -- BELOW -- `APPOGN bAPGNGNı dSQ(AP)SQ(AP)1:TXX:TYYIC:400 f   -- INIT BOX -- 232,168:233,970,340,350 3TR0PN1PN$ 4TR0- 5399@ 6 -- CENTER --F ;W @ -- LEFT --c BAPPO1 DAP0PO(APGN)GN1ı FSQ(AP)SQ(AP)1:TXXIC:TYY H400 I J -- ABOVE -- LAPPOGN NAP1ı PSQ(AP)SQ(AP)1:TXX:TYYIC:40Q(PO)SQ(PO)1:300 6 - POSITION CROSSHAIR -F I(Q50)1~ 2XX,YY:XXXXV(I):YYYYV(I):234,0:2XX,YY:CT1 I1XCIC:YC0:CT0 "I6YCIC:XC0:CT0 + , -- BOX CHECK -- 0768 1APPO:TXX:TYY:400 2I310,320,33XEXXBX1:YYIC:POPO1:1950 POPO1:199` YYEYYBY1:XXIC:POPOGN(GN1)1:195m POPOGN YYEXXEXXBX1:YYBY1:PO1 -- DRAW SIDE -- 3 CT0ı SN4:I2I4SN3 (PB(PN))127(234)10ĕSNXX,YY:S n3:2X,Y' sQ(PN):150:200:2500 x115H -- CENTER MOVE --T CT1ıs (PB(PN))127ĕ2X,Y:160 (PB(PN))127āT1100::154 XXX:YYY XXXC:YYYC 175:2X,Y -- BOUNDRY CHECK -- I6190 X? ==================+ BOXES@ PAUL COLETTAY( ==================_-l2SQ(100)r7< ----------F MAINP ----------U500:600Z700:100d ------------e READ KEYf ------------i234,0       0:285 A2ı SW0:H VS%(N)1:NN1:VS%(N)3:NN1:VS%(N)AN +h , --- VECTOR PLOT ---t 1A(A$) 4A1A8ı 6N1VLMS4:1500: 8NN1:VS%(N)A :250 @35:21:N; EA4ēX,Y JXXX(A):YYY(A) O ^ --- VEC-- GET KEY -- 20:24:A$0 (A$)13ī2059 A$;J A$"R"İ400[ A$"E"İ500l A$"S"İ600~ A$"G"İ1200 A$"#"ī10 A$"!"ĉ:: 300:205 -- UP VECTORS ? -- A2SWSW1 SW3SWSW2:285 SW2A4SW  ===============1 SHAPE MAKERG( PAUL COLETTA ^2 =============== d7<VV$(8),VS%(505),SR$(8)FDQ(8),RS%(10),BS$(8)Kd ------------e MAINf ------------i2100:2000n2050:200x       ,45,45,12! 63,63,63,12,45,454 28,63,12,5,0:O -- SHAPE 13 --h 73,45,60,255,40,45 45,37,63,63,63,44 45,45,229,59,39,45 5,0 999 , SHAPE 10 --$ 45,45,45,12,12,60< 63,63,63,63,55,14S 68,8,36,45,45,54f 12,45,45,5,0l -- SHAPE 11 -- 73,225,28,28,7,96 12,45,45,14,21,63 63,63,119,73,9,30 30,6,0 -- SHAPE 12 --  5,56,231,62,46,30 6,0 - -- SHAPE 8 --E 1,40,45,60,103,37_ 36,100,46,54,54,173x 63,46,45,222,59,63 0 -- SHAPE 9 -- 9,36,36,12,12,45 45,54,54,30,30,63 39,8,24,40,45,12 214,54,6,0  --40,100,12,12$ ~ 21,14,36,53,54,21<  55,54,63,36,63,54G 63,0M a -- SHAPE 6 --{ 73,225,28,28,28,100 12,173,5,40,21,21 246,30,30,6,0 -- SHAPE 7 -- 45,45,45,45,5,32 28,39,55,63,63,60 228,54,46 73,45,5,56,63,39* r 45,45,60,63,76,33B s 36,44,45,214,63,0H t\ u -- SHAPE 4 --u v 73,45,229,39,37,45 w 37,223,63,40,45,108 x 36,23,39,63,255,46 y 53,46,45,221,219,3 z 176,74,57,63,54,0 { | -- SHAPE 5 -- } 33,60,8 d --TABLE DATA--, e -- SHAPE 1 --C f 9,45,45,45,56,63[ g 63,63,76,44,45,45s h 28,28,28,28,28,54 i 54,54,0 j k -- SHAPE 2 -- l 73,45,101,12,196,32 m 55,223,39,109,146,191 n 26,28,4,0 o p -- SHAPE 3 -- qT6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 PAIRS-TBL 4 13,0,28,0,49,0,65,0 5 83,0,113,0,133,0,150,0 6 170,0,189,0,211,0,234,0 7 255,0,16,1  ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C   :18:10:"ENDED":&D$;"RUN MENU"= ================ 5,20I:768RJ15:768CSSC(0)SC(1)ĕ(PL$(0))31IX(0),170lTSC(1)SC(0)ĕ(PL$(1))31IX(1),170tU:VWD3:CO3:LX90:LY170:950`WD4:LX90:LY180:950j(PB(0))127Ľ:EN1:10t(P2)155ī1150y1130~(800)1Đ::D))SV((WD$(WD),II,1))9SV31LX,LY:LXLX10:O232,120:233,105Ug -- SCORE --232,168:233,97:COSC$(SC)II1(SC$):SV((SC$,II,1))SV31NX,NY:NXNX10:PS(PN)SCL -- END -- QI110:0,1)H(I):JJ1,R(I)1HC(PN,4IJ)H(I)4:I --------------TI12nR(I)3HC(PN,1)H(I)R(I)2HC(PN,2)H(I): --------------I12R(I)4HC(PN,1)H(I)R(I)1HC(PN,2)H(I): ------------- - HI CARD ORDERING -"I14BR(I)2HC(PN,1)H(I):JJ1`R(I)1HC(PN,5IJ)H(I)h:} --------------I13R(I)1HC(PN,3)H(I):JJ1R(I)2HC(PN,4IJ)H(I): --------------I13R(I)3HC(PN0)RK(1)WN0#RK(0)RK(1)WN1)YI15:SV(I)0:R(I)0::I114:CV(I)0::J0:RK(PN)450,425,430,435,450,450,440,445,450 -- TIE HAND --WN1:II1:I6TI1:HC(0,I)HC(1,I)420HC(0,I)HC(1,I)WN0K)BT"CO3:LX175:LY100:1000[CN(PN,1)0CN(PN,2)0CN(PN,3)0BR1:BPPN:B2B21az -- COMPUTE RANK --PN0:I192:455:465:475:416:415PN1:I2102:455:465:475:416:415RK(0)RK(1)I0:420 RK(WCN(PN,KK)7683 --- ERASE CHIP --QBTBV(KK)50CH$"CH"ıg0:CN(PN,KK)0ı6CX(PN,KK),CY(PN,KK)CWCN(PN,KK):CN(PN,KK)CN(PN,KK)1CH$"CH":768:395: -- BET HOLD --CO0:LX175:LY100:1000:BTBV(KoKK1 pr -- PASS ---tSW$"B"ıVuPAPA1:PA2PA0:SW$"P":PN1PN:dvPN1PN:zw -- FOLD HAND --xBT0ıySW$"F":WN1PN:G5z305{| --- DRAW CHIP ---}3:CN(PN,KK)CN(PN,KK)1 ~6CX(PN,KK),CY(PN,KK)CBHBT:BTPT:CO0:LX110:LY100:1000J[PTBHPT:BTPT:CO3:LX110:1000\\PS1PN1PNm]BTBH:305:~^ -- CALL --`PS0ıaRL0:PN1PNbSW$"C"cPS0:h -- RAISE --jPS0ılRL3ımSW$"R":PS0n250:RLRL1175:10006"@ -- CHANGE --/BCH$"CH"gDCN(PN,2)0CN(PN,3)0KK3:390:I15:KK2:380:JCN(PN,1)4CN(PN,2)0KK2:390:I12:KK1:380:RCH$"":T -- ADD TO POT --VPSPS1XBR1PNBPī346YPS1BHBTPS1:%ZK390,390,390,300,320,340,375,SW$"F"ı=PS1PS1:F258c" -- DRAW CURSOR BALL --$0:7MX(PN,KK),MY(PN,KK):7MX(PN,II),MY(PN,II)&KKII:, -- CLEAR BET --.BBPT:PTBT:577:PTBB 1CO0:LX175:LY100:1000:BT0:CO3:LXЫ249 SW$"P"ī249/ SW$"R"SW$"":240A SW$"C"ī249J 205W SW$"":h --- BET --w SW$"B"ı KK1:SW$"B":PA0 Q(PN) II(Q40)1:290 (PB(PN))128ī258 (PB(PN))127266 7MX(PN,KK),MY(PN,KK)K$(JJ))1HX,HY 768:1 -- CHOOSE PLAY --= BR1ıF KK1R Q(PN)c II(Q55)1 0:7PX,PY(KK):7PX,PY(II):KKII (PB(PN))128ī210 (PB(PN))127230 7PX,PY(KK) KK250,350,360,370,375 BR1ı SW$"F"I0:170+ BTPT:LX110:LY100:1000:PT04 BT0W I15:HC(0,I)0:HC(1,I)0::m -- SHOW CARD -- 232,168:233,97 3 HXSX(PN)KX2:HYSY(PN)KY4 CR(C$(JJ)) (CA$(CR))31HX,HY 232,120:233,105 HXHX8 (SB22ī1100! BR1BPWNī11006 BR0:SW$"":B20K (P2)155ī1150_ (P2)141134n 0:I121 48,51I192,51I:48,120I192,120I :150 94 -- RESET NEW HAND -- KX6:CO0:BH0:PS0:RL0 0,5:769,10 TI1T---- Z600:700 \750:875. ^900:400< `PN0:100T d --- DEAL HAND ---] hJJ0h lG15 nI12:JJJJ1:925:175:PN1PN: tG5124 x200:KXKX30 |PN0: } --- HAND OVER --- ~P1,0 TI1ī134 PNWN:575  ================( POKER< PAUL COLETTAS" ================o&CD$(53),CA$(15),C$(15)(SV(5),CV(15),MX(1,7),MY(1,7)2CX(1,7),CY(1,7)6R(5),H(5):PY(6),BV(4)< ---------------F MAIN P -----------          KSQ:1X,Y:XXBUXK:YYBUYK:1X,Y:A& -- PRINT WORDS --Z&232,168:233,97:COo&II1(WD$(WD))&SV((WD$(WD),II,1))&SV31LX,LY:LXLXXL:LYLYYL:&232,120:233,105&& -- PRINT BETS --&232,168:233,97:CO'B%130I,106I:768:'%I1012@%130I,106I:768:F%L%]% -- DEAL --k%XXB:YYB%ASX(PN)KXXB:BSY(PN)KYYB%SQ(AABB)%UXASQ:UYBSQ%1X,Y%K0SQ5%1X,Y%XXBUXK:YYBUYK%1X,Y:)&50:LY135:950$nZZ(P2)-$oZZ155ī1150>$pZZ141ī886G$r878f$vCO0:WD8:LX50:LY65:950$xWD9:LX50:LY135:950$y$ -- SHUFFLE --$I5221$JRD(I)1:T$CD$(I)$CD$(I)CD$(J):CD$(J)T$$$II12$I1102YODY(II)2/#HXB,YBXE,YBXE,YEXB,YEXB,YB5#QH#R -- BORDER --S#TI15\#U768#VXB,YBIXE,YBI:XBI,YBXBI,YE#W768#XXB,YEIXE,YEI:XEI,YBXEI,YE#\#f#k -- START PLAY --#lCO3:WD8:LX50:LY65:950$mWD9:LX:"XB30:YB105)" -- SET CHIPS --C" PN01:J13:I15a" 6CX(PN,J),CY(PN,J)CWIk"::~"PN01:J45"4JCX(PN,J),CY(PN,J)"::PN0:"  -- DRAW SQUARE --"*CO"4XBXODX(II)2:XEXODX(II)2 #>YBYODY(II)2:YEI2:800:SX(0)XB:SY(0)YEC!XO120:YO130:800:SX(1)XB:SY(1)YE^!II3:XO120:YO95:800y!II4:XO185:YO95:800!LX10:LY72:YL10:XL0:WD6:950!LX73:LY88:YL10:XL0:WD7:950!LX220:LY70:YL0:XL10"WD15:950:LX220:LYLY13J)5:CY(I,J)MY(I,J)5 :4 I214:CA$(I):H I15:PY(I):b I14:DX(I),DY(I):x I110:WD$(I):~   -------------  SET UP  ------------- II1:CO3 XO140:YO95:800:850 1030,105!XO120:YO60:I 70,83,96,109,122( 278,190,152,26: 65,30,35,15L -- WORDS -- "BET","CALL","RAISE","PASS","FOLD","DEALER","POT" "RETURN*TO*PLAY","ESC*TO*END","CHAMP" -- READ ARRAYS -- I01:J17:MX(I,J),MY(I,J):J6CX(I,J)MX(I, --- DATA ----0 60,45,80,45,100,45,120P 45,140,45,100,100,210,120 60,183,80,183,100,183,120,183,140,183,100,100,210,120 --- FACE VALUE --- "2","3","4","5","6","7" "8","9","T","J","Q","K","A" -- COORD DATA --BL"{D$;"BLOAD SOUND">(800)1R((78)(79)256)G:1Q0:3[P1,0l0,5:769,10232,120:233,105RD(RR)((1)RR)J14:K214CD$(I)(J)(K):II1:I01J13CN(I,J)5::------------!]BV(1)5:BV(2)103^BV(3)50:CW3H_CC(1)5:CC(2)10_`CC(3)50:BR0:BB0xbI1:KY2:KX6:PX210cP116368:P216384dPB(0)16287:PB(1)16286gD$(13)(4)lEN1ī645qD$;"BLOAD POKER-TBL"vD$;"BLOAD ALPHA-TT1(PTCC(L))"DPT0T10ī584+F5906H:599HNT2T1:J1T1iPCN(PN,L)9T2J1:JT1:596RCN(PN,L)CN(PN,L)1:768:6CX(PN,L),CY(PN,L)CWCN(PN,L)TVPTPT(CC(L)T2):WPTPH:X --------------Y INITIALIZE Z ---2-PAIR/3-KIND -RK(PN)3( I13A"R(I)3RK(PN)4:I3G$M%`& -- 4-KIND --o(RK(PN)8:0 -- FULL HOUSE --5RK(PN)7:? -- CONVERT TO CHIPS --@I110:0,10I:769,10I:768::0,5:769,10APHPT:3BL311:CNH(1):RK(PN)1&CN10İ515:510HI15:SCCV(CN)SC:CNCN1:Q515rSC5RK(PN)6RK(PN)9:510SC5RK(PN)5SC0: -- FLUSH --RK(PN)1I14:SV(I)5RK(PN)6: -- PAIR -- RK(PN)2 2#R(J)CV(I):H(J)I:CCCCCV(I)2CC5I14<JJ1BHd -- DETERMINE RANK --qRK(PN)1R(5)0İ500:485R(4)0İ520:485R(3)0İ540:485R(2)1R(2)4İ550:485560 --- STRAIGHT ---- I15:HC(PN,6I)H(I)::6 ---------------R - STORE CARD VALUES -jS$(I)(CD$(I),1,1)C$(I)(CD$(I),2,2)J(S$(I)):SV(J)SV(J)1J(C$(I)):CV(J)CV(J)1 -- STORE HAND --J1:CC0I214:CV(I)0ī4718UVV$(J)S$VS%(NN)J-ZJ:NNNN1:Jd28:22:" ";en28:22:VA1;" ";LN;kswMS3:1500:216,0:200 -- ERROR --1:23SR$(4MS);E$(E$)131530 HRV:JZ1:23:SR$(5);? -- I$(5) A$BS$(6)BS$(7)BS$(8)0S$A$:1360MB$"000"C$"000"ī1348](S$B$:1360q2C$"000"ī1348<S$C$:1360DDC128FIHJ -- PLOT VECTORS --KJ1NN1LAVS%(J):310N:1380O -- STORE VECTORS --PJ1901)256(LN(21920)(21919)256D28:22:"PLEASE WAIT";[ -CONVERT VECTOR-gVAVA1uI1LN1DV(VAI)J18BS$(J)(0)DVDCBS$(J)(1):DVDVDC DCDC2:J C$"0"BS$(1)BS$(2)B$BS$(3)BS$(4)BS1:"(IN$)48(IN$)90NF1(.D -- GET SHAPE --OC(0)\1:22:kSR$(1);:~HB6:CH4:850950:NF1ıX140:Y80:NN1:N0:NA$IN$1399CC$;"BLOAD ";NA$35:21:" "; VA(21902)(2(GT$)27NF1:IN$"":'m(GT$)13ı1pGT$;IuIN$IN$GT$:HBHB1Rz855Xp -- BSAVE SHAPE --}LNAVVACC$;"BSAVE ";NA$;",A";VA;",L";LN28:22:" "35:22:LN; -- NAME CHECK --NF0:IN$""NFQ18>DQ(IQ)((D$,IQ,1))&CIQpHADDQ(1)128DQ(2)64DQ(3)32DQ(4)16DQ(5)8DQ(6)4DQ(7)2DQ(8)JAV,AD:AVAV1MAA0:BB0:CC0PQ -- GET ROUTINE --RIN$"":CY0:NF0WCYCY1\CYCH1ıaHB:22fGT$kNE VECTORS-AA1ī7202A$VV$(J):AA1:799;PAJJBB1ī740SPBJkB$VV$(J):BB1:799C$(VV$(J),2,2)J2J4C$"00":II1PB2(J2J4)B$"000":II1 800  ---- BINARY CONV ----*D$C$B$A$4I(1);:gHB6:CH4:850*l950:NF1ı6qNA$IN$ItAV25000:VAAVev28:22:"PLEASE WAIT";x{AA0:BB0:CC0I1NJVS%(I):700AA0ī689BB0B$"000"C$"00"800AV,0:AVAV1900  -COMBI 1:22 :SR$(2);:/ HB8:CH3:850; NF1ıI EE(IN$)P 0_ 0EE0EE1k 5I1EE~ :N0IEE:590 I350 NI S35:21:" "; T35:21:N; W3: X --- SAVE SHAPE --- ZN0ı \C(0) ]1:22b:SR$$) I1Z& RS%(I)((IN$,I,1)), E  -- VALID VECTOR --P I1Zo RS%(I)0RS%(I)9ĂI:460 MS2:1500:IZ I:499  -- PLOT REPEAT -- H1RV J1Z A$(RS%(J)):300 J:H:Z0 A$AH$:  -- ERASE --TOR ERASE --- cAVS%(N)6 hXX(X(A)):YY(Y(A))? mX,YU NN1:35:21:N;[ l  --REPEAT--w AH$A$ 1:22 :SR$(3);: HB8:CH3:850 RV(IN$) HB20:CH10:850 950:NF1ı  -GET REPEAT VECTORS- Z(IN0 h i -- SHAPE 2 --3 j 37,45,8,32,36,188L k 54,54,63,223,63,36d l 36,28,54,54,86,41u m 45,30,63,0{ n o 999 T6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 CATCH-TBL 4 2,0,6,0,17,0 5 d --TABLE DATA-- e -- SHAPE 1 -- f 253,7,40,45,37,63 g 63,12,45,5, ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C   T$(BT)+'II1(BT$):SV((BT$,II,1))G'SV31LX,LY:LXLX10:]'232,120:233,105c's'L -- END --'QWN0LY55'VWN1LY140'`I110'e0,30:769,50:CO0:WD10:LX210:950:768'j0,200:769,50:CO3:WD10:LX210:950:768: ----x "SCORE"3z "PUSH PADDLE(0) TO START"K| "PUSH ESC TO END"^~ "A X B C"l "+","-" -15,0,15,0,-15,-13,15,13 0,-13,0,13,15,-13,-15,13 212,98,212,158 -- READ ARRAYS --I181:NM(I):I16XO(,2,3,4,5,6,7,8,9 Mh 1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9fj 1,2,3,4,5,6,7,8,9 ~k -- BOX CENTERS --l 120,8,20,8m 160,8,20,8n 140,23,80,20p 140,44,230,20q 230,120,68,130r 90,120,145,130v -- WORDSBL"+D$;"BLOAD SOUND">0(800)1R((78)(79)256)P50,100:769,2e:232,168:233,97tD:1:0:3zWX ----------Y DATAZ ----------d 1,2,3,4,5,6,0,0,0,1,2,3,4,5,6,3,4,5f 1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1---------- INITIALIZE/ ------------8255HPN0:SL100^PS(0)41:PS(1)41tPX(0)88:PX(1)88 PY(0)126:PY(1)126P116368:P216384:PB(0)16287:PB(1)16286P1,0D$(13)(4)!EN1ī565&D$;"BLOAD ALPHA-T490:CO0NX13:NY74:J02CO:K19:I19EJJ1:NXNX15VNM$(NM(J))k(NM$)31NX,NY:NX13:NYNY13: --DISPLAY EQUATION --WD4:LX100:LY50:950WD5:LX160:LY49:950:WD6:LY55:LX160:950  --128ī415T140:-(PB(0))1284306415UCO0:WD2:LX30:LY46:950tCO0:WD3:LX30:LY56:950z -- MIX NUMBERS --I8121J((1)I)1:TNM(I)NM(I)NM(J):NM(J)T: -- PLACE NUMBERS --CO3:00SC(PN)SLī11000TI0:T1100:350:A --START --PEN1ī406Y410n450:CO0:475: -- WAIT INPUT --CO0:490CO3:WD2:LX30:LY46:950WD3:LX30:LY56:950 -- LOOP --(P2)155ī1150 (PB(0))bTI0ı,hCO3:NX170:NY75:SCAN:1000@jAN((1)90)1\lCO0:SCAN:NX170:1000nTT110:0,5TT:768::TI600:w -- SCORE --|CO3:NXNX(PN):NYNY(PN):SCSC(PN):1000SC(PN)SC(PN)ANCO0:NXNX(PN):NYNY(PN):SCSC(PN):10NM(PS(PN)):CNM(PS(PN)(91)):345:@X -- COMPUTE ANSWER --hYA1ABC:A2ABC:A3BCA:A4BCAZANA1ANA2ANA3ANA4:TT15:0,TT20:769,50:768::769,2:375:349\0,250:769,100:768:769,2]^ -- SHOW ANS --`TITI1 X(PN),PY(PN)# !0,5200PN:768:= , -- GET 3-IN-ROW --s 6ANM(PS(PN)1):BNM(PS(PN)):CNM(PS(PN)1):345: @ANM(PS(PN)(91)):BNM(PS(PN)):CNM(PS(PN)(91)):345: JANM(PS(PN)9):BNM(PS(PN)):CNM(PS(PN)9):345:%TANM(PS(PN)(91)):B("@")31PX(PN),PY(PN)0 0,5200PN:768:F  -- VERT MOVE --c ("@")31PX(PN),PY(PN) PY(PN)PY(PN)13:PS(PN)PS(PN)9 PY(PN)180PX(PN)PX(PN)15:PY(PN)74:PS(PN)(80PS(PN)):PS(PN)10PX(PN)28:PY(PN)74:PS(PN)1 ("@")31P -- MOVE ROUTINE --$ DS(PN)0ıG K(PN)270,310,320,330,340,280M c  -- HORZ MOVE -- ("@")31PX(PN),PY(PN) PX(PN)PX(PN)15:PS(PN)PS(PN)1 PS(PN)81PX(PN)28:PY(PN)74:PS(PN)1 PX(PN)148PX(PN)28:PY(PN)PY(PN)13 (PX(PN)28PX(PN)148)K(PN)4DS(PN)0:[ (PY(PN)74PY(PN)178)K(PN)2DS(PN)0:h DS(PN)1t TT12 ("@")31PX(PN)X1(K(PN)),PY(PN)Y1(K(PN)) ("@")31PX(PN),PY(PN) ("@")31PX(PN)X2(K(PN)),PY(PN)Y2(K(PN)) : iPN01:Q(PN):120 n3507 s(PB(PN))127İ250B w:105] x -- COMPUTE PADDLE --v }K(PN)((Q44)50)1 K(PN)1K(PN)6:140: DS(PN)1: -- SHOW 3-IN-ROW -- (PX(PN)28PX(PN)148)(PY(PN)74PY(PN)178)DS(PN)0:+ j =================* EQUATE> PAUL COLETTAV =================c#NM(100)i2< ---------------F MAINP ---------------U500:600Z700:400_100d ------------e READ KEYf ------------         "5V "FILE NOT FOUND "eX "VECTOR LIMIT REACHED "\ "011","000","001","010"^ "111","100","101","110"d --- READ DATA ---fI18:X(I),Y(I):zI18:SR$(I):I18:VV$(I): "OH "NUMBER "L "NUMBER VECTORS "N "SAVE REPEAT #CLEAR"P "GET ERASE !END 1-8/PLOT"T "INVAID VECTOR NIT --AR17000:VL50023:NM1:UC0:LM500ECC$(13)(4)[X140:Y80:DC128f::1l~ -- SETUP --1:21:SR$(4); 1:23:SR$(5);4 --- DATA ---6 -1,0,0,-1,1,0,0,18 -1,0,0,-1,1,0,0,1> "NAME 8,63,63,63 u 63,7,0 v1 w -- SHAPE 5 --K x 73,192,64,24,104,22X y 31,6,0^ zh { 999 ,,0 g h -- SHAPE 2 --5 i 223,63,103,73,9,32P j 172,146,9,45,245,219a k 155,54,6,0g l{ m -- SHAPE 3 -- n 36,36,36,36,172,146 o 146,146,51,54,54,54 p 54,6,0 q r -- SHAPE 4 -- s 45,45,45,45,229,219 t 219,219,5T6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 BOXES-TBL 4 5,0,12,0,18,0,34,0 5 49,0,64,0 6 d --TABLE DATA-- e -- SHAPE 1 -- f 44,54,63,36,4j ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C    410e:EN1:10;~(800)1Đ:::18:10:"ENDED":ND$;"RUN MENU"h =================== "))SV31LX,LY:LXLX10:$6 -- SCORE -->COLSC$(SC)oII1(SC$):SV((SC$,II,1))SV31NX,NY:NXNX10:L -- END --N769,20QI110:0,15I:768VJ110:768[("*")31NX(PN),NY(PN)10::`----- HOLLOW BOX ----8\XB,YBXE,YBXE,YEXB,YEXB,YBLpXBXB1:XEXE1`rYBYB1:YEYE1fz ---- SOLID BOX ----COIIYBYEXB,IIXE,II -- PRINT WORDS --COII1(WD$(WD))SV((WD$(WD),II,1XV,YVXV,YV114,XVXV15:YHYH13:A 196,120260,120aCO0:WD1:LX207:LY78:950}WD1:LX207:LY138:950  -COMPUTE END POINTS-*CO4XBXO(I)DX(I)2:XEXO(I)DX(I)2>YBYO(I)DY(I)2:YEYO(I)DY(I)2HR XB,YBXBI,YB!XE,YBXEI,YB/YBYB1::I56I800:XHXE[J16:850:o:YBYB6:XEXHzJ16XE,YBXE35,YBXE,YB30XE35,YB30:YBYB1: -- GRID --XH25:YH76:XV37:YV63I18XH,YHXH130,YHI),YO(I),DX(I),DY(I)/I16:WD$(I):UI25:X1(I),Y1(I),X2(I),Y2(I):oI01:NX(I),NY(I):u ---------- SETUP ----------28,25562454CO0I14800:900HHYBI121 -- END POINTS --*CO54XBXOLX2:XEXOLX2O>YBYOLY2:YEYOLY2UHrR ----- HOLLOW BOX ----\XB,YBXE,YBXE,YEXB,YEXB,YBpXBXB1:XEXE1rYBYB1:YEYE1z --- PRINT WORDS ---COII1(WD$(WD))SWD2:LX15:LY190:10007WD3:LX140:LY190:1000TWD4:LX210:LY190:1000~WD5:WD$(5)(TR):LX185:LY191:1000 WD5:WD$(5)(RO):LX245:LY191:1000CU270,191:CO0WD5:WD$(5)(SZ):LX270:LY191:1000CO3:P1,0 213:K:KI(K)I:.I1013:XI(I),YI(I):CI14:WD$(I):IZ ----------h SETUPy ----------CO3XO140:YO84:LX278:LY168CDXO,YO800T16:850: -- WORD STRINGS --WD1:LX5:LY180:1000- ] DATA!b -------------pg 69,75,25,41,42,43,44,45,46,47,48,49,50,14,1,6,20,37,39,40,28,82,64,65,59l 0,-4,-4,0,4,0,0,4v -- WORDS ----{ "COMMANDS:","REPEAT :","TURN:","ROT:" -- READ ARRAYS --I113:K:KI(K)1:I:K321 CS1:255'CC1:R51:L45CXO140:Y084:X85:Y180[P116368:P216384m!D$(13)(4)&D$;"BLOAD ALPHA-TBL"+D$;"BLOAD SOUND"00,60:769,105232,168:233,97::1:0:3?I125:CM(I)1:WX ----------K321:I11:I2I32 - ERASE SCREEN -j0:I1157:7,5I273,5I::XO140:YO84:CDXO,YOuCS1: ------------ INITIALIZE ------------CD(".")31CU("@")31CO3:LN1:TR90:RO0:SZ1I11:I20:I30K1J!XOXOLNI1:YOYOLNI24XO276XO276CXO1XO1VYO165YO165eYO0YO0qXO,YOy:WD$(5)"@@":WD5:CO0:LX110:LY191:1000WD$(5)(I):WD5:CO3:LX110:1000XO,YOX85:Y180:XO140:YO84:CC1 3:XO,YO%RN(RN$(1)RN$(2))1I1RN=J1CN[S(I1)(I2):T1I1:T2I2CM(J)RTS1I1(T1T2)S:I2(T1T2)S:424CM(J)RTI2:I2I1:I1TCM(J)LTS1I1(T1T2)S:I2(T1T2)S:424CM(J)LTI1:I1I2:I2TI31I3:I2I3+ -- TURN DEGREE --ZCO0:WD$(5)(TR):LX185:LY191:WD5:1000c768vCO3:TR135TRWD$(5)(TR):LX185:LY191:1000TS1TS ------------ DRAW ROUTINE ------------CS1ĕCDXO,YO:CS05)(SZ):LX270:LY191:WD5:1000* s768F tCO0:SZSZ1:SZ5SZ1k uWD$(5)(SZ):LX270:LY191:1000w vLNSZ: w -- ROTATION -- |CO0:WD$(5)(RO):LX245:LY191:WD5:1000 }768 ~CO3:RO45RO WD$(5)(RO):LX245:LY191:1000 I1CN @0:CUX,Y* ECM(I)X,Y:XX9C JCM(CC)CM(I):CCCC1W O:CCCC1:CNCCw TICN121:0:CUX,Y:XX9 YCM(I)1: ]350: ^ - SET UP REPEAT READ - cX85:Y191 hP1,0:CC1 mK33 p q -- SIZE CHANGE --! rCO3:WD$( 220:" -- R ARROW MOVE --/ CCK3ı9 XX9E CCCC1K d -- L ARROW MOVE -- CC1X85:Y371Y:K324K3: XX9 CCCC1: , -- COMPRESS ENTRY -- .Y191İ400: 0X85:Y180 4CC1ī315 6CNCC1:CC1 ;270XA10YA160YA10ı, CS1ĕCDXO,YOK XOXA:YOYA:CDXO,YO:CS1Q i -- PRINT L/R ----v CCK3ı (Y191ZZ58)(Y180ZZ39ZZ51)ı SVZZ135159 0:CUX,Y 3:SVX,Y Y191RN$(CC)(SV31):218 CM(CC)SV NDS n ------------' sZZ(P2)135; xCUX,Y:CUX,YQ }ZZ0ZZ217ī115d KI(ZZ)0ī115 KI(ZZ)200,220,240,300,1100,390,380,370,475,150,150,150,150 P1,0:115 -- CHANGE START POS -- XAXOXI(KI(ZZ)):YAYOYI(KI(ZZ)) XAϠ =================+ SPIRALS? PAUL COLETTAW =================q#CM(30),KI(90),WD$(5)-XI(15),YI(15)2< ---------------F MAINP ---------------U500:600Z700d ------------- i READ COMMA!! ! ! ! ! !!!!!!!!!" "  "ENTER SHAPES" ;  -- READ TO ARRAYS --O I13:S$(I):U n  -- CREATE TABLE --w NNH 1:21:"TABLE NAME.."; 13:21:NA$ NA$""510 (NA$)6ī510 20:21:"START ADDR.."; 32:21:SA$ SA$"N1:500:700 NHN( N1N11:NN12 YY1M N115N10:XX10:Y6V 255o , --- INITIALIZE ---z 1::1 6D$(13)(4) @  --- DATA ---  "======================================="  " TABLE MAKER 22:" "@ 1:1:S$(1);R 1:2:S$(2);d 1:3:S$(1);w 13:4:S$(3); X1:Y6:N1 N61İ500:700 X:Y:N;".." X3:Y:NA$(N) NA$(N)""ī260 NA$(1)"END"ė: NA$(N)"END"NЕ ===============* TABLE-MAKER@ ===============F(Z2NA$(60),LN(60)`<qd ----------~e MAINf ----------n300:400x200 -- GET SHAPE NAMES --1:21:" ". 1:""""  ,36,116,14,196& 45,45,45,45,45,45> 45,45,45,45,14,14X 150,58,7,32,223,219v 219,219,219,246,183,146 146,146,18,173,110,73 73,73,73,33,12,45 0 999 63,103 32,44,22,7,04 -- SHAPE 10 --L 45,45,45,45,45,45d 45,45,45,45,37,36| 36,36,36,36,36,36 36,36,63,63,63,63 63,63,63,63,63,63 55,54,54,54,54,54 54,54,54,62,28,28 36,36,36,36,36,36 36,36 191,13,13,13,13,13$ 13,5,0*> -- SHAPE 7 --V 45,56,63,44,45,28a 63,0g{ -- SHAPE 8 -- 36,36,36,45,45,45 54,54,54,63,63,39 64,45,5,0 -- SHAPE 9 -- 36,36,36,45,45,45 54,54,54,63, -- 73,73,57,63,103,454 28,31,63,40,45,45L 53,37,45,56,63,63d 63,63,39,45,45,45| 45,45,28,63,63,63 63,12,45,45,45,28 63,63,12,45,28,7 0 -- SHAPE 6 -- 45,45,45,45,45,45 224,63,63,63,63,6328,63,63 } 63,12,45,45,28,63- ~ 12,5,03 G -- SHAPE 4 --` 73,73,57,63,103,45x 28,252,63,7,40,45 45,45,46,44,46,32 63,63,63,63,63,12 45,45,45,45,220,59 63,40,45,37,63,63 12,45,5,0  -- SHAPE 5 40,45,45,45,45,56, r 63,63,63,63,39,45D s 45,45,45,45,60,63^ t 63,63,63,103,45,109w u 45,229,255,27,63,0} v w -- SHAPE 3 -- x 73,9,5,56,63,40 y 45,45,56,63,63,63 z 40,45,45,45,45,56 { 63,63,63,63,103,45 | 45,45,45, -- SHAPE 1 --( f 45,45,45,45,45,45@ g 45,45,45,45,37,36X h 36,36,36,36,36,36p i 36,36,63,63,63,63 j 63,63,63,63,63,63 k 55,54,54,54,54,54 l 54,54,54,54,0 m n -- SHAPE 2 -- o 73,9,5,56,63,40 p 45,45,56,63,63,63 qT6 *1:10:"SHAPE TABLE - ";NA$;" HAS BEEN CREATED"i ,3:14:"START ADRESS = ";SA;" LENGTH = ";CTo 1 2 --INDEX DATA-- 3 POKER-TBL 4 10,0,22,0,63,0,105,0 5 144,0,184,0,227,0,248,0 6 0,1,16,1,33,1 7 d --TABLE DATA-- e ==============& BUILD: SHAPE TABLEO ==============x:6:2:"SHAPE TABLE BEING CREATED"SA27000:CT0D$(13)(4)NA$II999ī40SACT,ICTCT1 24 (D$;"BSAVE ";NA$;",A";SA;",L";C" " " " " """"V((WD$(WD),II,1))%SV31LX,LY3LXLX9:9$ML ---- END ----uV(800)1Đ:::18:10:"ENDED":`D$;"RUN MENU" =============== -