' +JJJJ ?\>m0M='+l> /+L  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL`l렮 귭෍ᷩ췩緈JJJJx i L`֭Ƀ,JJJJ l9`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,&" ʎ L/  !"#$%&'()*+,-./0123456789:;<=>?`  *鷽DžHI))g Db- RD7.$HNOLM*Ѝ"LONNO OЅO뭁lJJJJ I췩LEB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`, HH`9`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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`9 ߼V8U897T6S67`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- (   Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d֠֠z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$ gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ (L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLLH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHI= l(SLOTADDR)32ĭ(SL2)0ĭ(SL4)3ĭ(SL6)60NSIC nX p:(4);"PR#";NSu*36,17*37,17*38,17(*37,180*12;*37,19F*37,20Q*37,21W*0u104,64:103,1:16384,0: RELOCATE PROGRAMS TO $4000:u:(4);"RUN HELLO"@ REBOOT IF ERRORhNS0:I711: NS=NUMBER OF SLOT  jSLOTADDR4915325612 r*27,19t*27,21#v*27,20.x*28,219z*30,21D|*29,21O~*30,21Z*30,20e*30,19p*29,19{*32,20*32,21*32,20*32,19*33,19*34,19*34,20*34,21*13*34,18*34,17*32,17*32,1813B*23,17D*23,18!F*12,H*22,197J*21,19BL*20,20MN*20,19XP*20,20cR*20,21nT*23,21yV*23,20X*22,20Z*25,19\*25,20^*25,21`*13b*25,18d*25,17f*27,17h*28,17j*29,17l*30,17n*27,18p*15,20)15,21)13$)15,18/)15,17:)14,17E)16,17K)0* ************************************************************2* SUBROUTINE FOR PICTUREFILE RIGHTPIC.X4*136*20,178*20,18:*20,17<*21,17>*22,17@*)3,21|)4,21~)6,21$)7,21.)8,218)7,21B)6,21L)6,20V)6,19`)7,19h)13r)6,18|)6,17)7,17)8,17)10,17)10,18)11,17)12,17)12)11,19)10,19)10,20)10,21)15,19)28,34)28,33)28,32' )29,32.")29$)29,31D&)29,30J()h) ************************************************************j) SUBROUTINE FOR PICTUREFILE LEFTPIC.Xl)13n)2,17p)2,18r)12t)2,19v)2,20x)2,21z18,34(19,34(21,34'(22,342(23,34=(23,33H(23,32S(21,32^(21,33e(2p(21,31{)21,30)22,30)23,30)23,31)25,31 )25,30 )3)25,32)26,32)26,33)26,34)27,33)28,33)(10,34(9,34(9,33'(9,322(10,32=(11,32H(13,32S(14,32^(13,32i(13,33t(13,34(14,34(15,34(2(13,31(13,30(14,30(15,30(17,30(17,31(3(17,32(17,33(17,34(26,9\(27,9^(28,9`(c( ************************************************************( SUBROUTINE FOR PICTUREFILE BELOWPIC.X(2(9,30(9,31(9,30(10,30(11,30(11,31(3(11,32(11,33(11,34 ,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0# p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c .șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ180L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ ^`e0,iL`-# *-*w`]`c"x8z*#Fonxo c!(b*#qbbkaxc!m bnx2*t!,.LX,/LX, L(X,!L)`x!8! /.8nFj -!m) !- m( -/m /-.m ..b!XF $nb* Ě\- - - (- )Ħ` (9vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0L LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $Wࠤ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠe^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ"e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ i8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ELHUE9:3250: FILLSC #P4V6400: BODYX[K50:K60: K5=LEFT#, K6=RIGHT#^L1RB(3):R1RB(3):L2RB(2):R2RB(2):L3RB(1):R3RB(1):L4RB(0):R4RB(0): INITIALIZE COLORS _RR3:LL3: COLOR INDEX`:24:14:"PRESS ONE KEY"; j330600: ERRMSG(7530: REPEAT QUESTIONB6100: VISUAL PROMPTW970: GETANSWERtK1K3İ6300: ERASEBAR8400: MESSAGE$6200: BAR&TUNE&150: DELAY)K3K1.G3J *********************************K BUTTERFLY SEQUENC100: VISUAL PROMPT'3300: GETKEY-<K101100LK1K21050bG4G41: #ERRORSrG4210407600: ERRMSG5650: ERASEFRAME6300: ERASE LAST BARVPK3K2:6300: ERASE VISUAL PROMPT 740: PLAY MODE 7 . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵@b@?4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `E <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠbZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`Yi H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#4S<}:1S&38G00v6:6^6~;v91;1&6>v^\?1~?i222t$ }=&&&v\6Q0>\\\\?v,-66^,\|ߴ?\t6o:=;=^^^4ܜt4\.44^;܄|89928> W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je` ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&iuv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP)12:24,2711#)13:28,31115)12:32,3311C)23,2510R)13:28,10])30,10k)1:29,10y)2:31,10)12:32,3410)12:23,249)1:28,9)13:29,319)12:32,349) 23,248)1:30,8) 30,7:12:23,247 **2:31,3318(2 (20,29172(12:30,3317C(2:21,2916U(12:30,3216f(&2:22,2915x(012:30,3115(:2:26,3014(D2:26,2913(N13:30,3113(X12:32,13(b12:24,2712(l2:28,12(v13:29,3112(12:32,33121:24,2625'@2:25,2724+'J25,2723<'T1:19,2122M'^2:25,2722^'h2:20,2221l'r25,2721z'|3:33,21'2'20,2220'25,2720'12:32,3320'2'20,2219'25,2819'12:32,3319'2'20,2918 (1:36,3816:37,17m& 12:18,2020:21,2218:22,19:19,2023:18,2025:18,2027:28,2920:18,2030:29,18& 18,2032:18,2034:33,18:18,2037& I11000:I& 0:I1620:20,38I:I: ERASE WORD&9&I43261&"23,30I&,I '6,1129%5,1028%6,927+%7,8268%1:3,24B%9,20M%16,23X%16,29b%2,38h%% STANDING JUGGLER%768,64:769,120:770: G% WORD 'RIGHT'&13:20,2316:20,17:23,17:16,1725:27,3016:27,17:16,1732:16,1734$8:6,832$13:9,32*$1:10,329$13:11,32J$ 9:16,1732Y$2:4,531h$8:6,831y$(13:9,1131$212:12,1331$<9:16,1731$F2:4,530$P8:6,830$Z13:9,30$d2:10,30$n13:11,30$x3:16,10;8-:2<#89:6,836#B12:8,1136,#L1:18,36;#V9:6,735L#`12:8,1135]#j9:12,1535k#t1:18,35u#~4,34#8:6,734#12:8,1134#9:12,1634#2:4,33#8:6,833#13:9,1033#1:11,33#9:15,1733#2:4,321641" 9:5,640"" 1:17,413" 12:8,1640A" 1:17,40P" 9:5,639a" 12:8,1139r" 4:12,1639" 1:17,39" 9:5,638" 12:8,1138" 4:12,1738"1:18,38"9:5,737"12:8,1137"$4:15,1737".1:18,37 10,17:14,1616:15,17h!N 12:18,202:3,420:18,206:6,820:6,19:18,2010:11,18:18,2015:7,18y!O I11000:I!P 0:I1620:2,16I:I!R 12:9,1643!\ 1:17,43!f 12:8,1642!p 1:17,42!z 3:3,41:4,41! 9:5,641" 12:8,16368,0 Z1603345/ K10:: SPACEBARA  Z191ī10000Q  K11: LEFT\ W1Vj * ZQ(W)ıq 4 W > K12:: RIGHT C K11: H SITTING JUGGLER J 768,76:769,120:770: E L WORD 'LEFT'!M 13:16,172:6,816:6,17:10,1216::" ";:: FLASHING PROMPT) 16368,0; BYTE03330K Z(16384)[ Z1283310i 16368,0z Z1603345 3340 Z(16384) SOLID(16286):OPEN(16287) SOLID1273390: RT OPEN1273395: LEFT Z1283330  TRANSITION FRAME TO START*>HUE12:32503R300S FILL UP SCREEN COLOR=COL\ HUEs I039:0,39I:I 16302,0:I4047:0,39I: 8500: MUSIC 16301,0:: CLEAR BOTTOM OF SCREEN  LEFT, RIGHT OR SPACE ? 24:36:6600 6750: OUTSIDE 28600: MUSIC<1130SLLLL1:LL5LL0xL4L3:L3L2:L2L1: CYCLE COLORSL1RB(LL):7000: INSIDE 7100: TO 72007350: OUTSIDE 8650: MUSIC11304 350: MUSIC ,1130527200: NEXTTOOUTSIDE I48350: MUSIC S61130l<7350:6442:OUTSIDE>8350: MUSIC @1130xRRRR1:RR5RR0}R4R3:R3R2:R2R1: CYCLE COLORSR1RB(RR):6450: INSIDE 6500: TODE 8300: MUSIC 1130:6750:6444: OUTSIDEL8300: MUSICV1130q ** LEFT WING DRAW **K5K51:K541500K51310,1320,1330,13407000: INSIDE  8350: MUSIC "1130(7100: NEXTTOINSIDE *80:: GETKEYtK102100*~K111300F ** RIGHT WING DRAW **]K6K61:K641400yK61210,1220,1230,12406450: INSIDE 8300: MUSIC11306500: NEXTTOINSIDE 8300: MUSIC11306600: NEXTTOOUTSIOWN LEFT9bL1F9l14,1514:14,1613:13,1612:12,1611:12,1510{9v11,139:26,2715:27,2914:29,3013:30,3112931,321199 BUTTER YELLOW LEFT9L2913,1616:24,2816:13,1715:24,2515:28,3015:12,1314:16,1714:0,2232:22,2331=827,3023:25,2722:23,2521:22,2320i824,2529:25,2630:26,2831:28,3032830,3333:33,3634:36,3733:37,3932829,3139:28,2938:26,2837:25,2636:24,2535823,2434:22,2333889X BUTTER BR5,731:16,2131:29,3831:5,632M7614,1932:31,3632:4,1733:33,3533Z7@5,1534`7Jz7^ BUTTER BLACK RIGHT7hR47|22,2310:23,249:24,268:26,277:27,296:29,305730,324:34,354:32,343:5,1635816,1834:18,2033:29,1125:18,2025:23,2425:32,3425P69,1126:19,2126:23,2526:33,3526{68,1027:20,2127:24,2627:34,362767,1028:21,2228:24,2728:35,362867,829:20,2229:26,2929:35,37296"6,830:18,2230:27,3130:35,3830"7,8,3028:33,3428;59,1129:16,1929:30,3429:9,1030e514,1730:32,3430:8,1531:7,1332k55 BUTTER ORANGE RIGHT5R3511,1922:21,3222:11,1223:17,1923522,2323:29,3223:10,1224:18,2024:22,2324:31,3324%63228 4Z&4d BUTTER YELLOW RIGHT.4nR2d4x13,1623:24,2823:13,1724:24,2524:28,3024412,1325:16,1725:25,2625:30,3125412,1326:17,1826:26,2826:31,3226411,1227:17,1927:27,2927:32,3327528,11:17,2028:2:18,7:17,6:16,5:2,415:2,314::LEFT ANTENNA o3,6:21,7:22,6:23,5:2,424:2,325::RIGHT ANTENNA 32 BUTTER BR. RIGHT3<R13F14,1525:14,1626:13,1627:12,1628:12,1529:11,13304P26,2724:27,2925:29,3026:30,3127:31,28150:: MUSIC(28100:: MUSICB2 CLEAR VERTICAL BARK2X12Z2K32X25a20n2IXX1{215,32I2I21:20,2713:20,272522 BUTTER BODY2 6:I18212 9,37I:I219,8:20,8:19,38:20,382(33*6İ6300: ERASE LAST BAR(11: MAGENTA<1X12:K22X25K1I15322[1X,X1I:Ia1u18 VERTICAL BAR1BAAAA1:AA5AA01LHUERC(AA):HUE16210:NO RED1VHUE1`X121jK12X251tIXX11~15,32I1I2X1262852,2317G014,1618:22,2418:14,1519:23,2419:13,1520:23,2520i0I2126:13,14I:24,25I:I013,1527:23,2527:14,1528:23,2428:14,1629:22,2429015,1630:22,2330:15,2331:16,223200 **** BAR PROMPT ****1G31 /HUE"/YAA2:X,X9Y:Y5/X8İ8000: EI/X22İ8010: GO/g/  *** BARPROMPT ***x/1: MAGENTA/ A10(G31)6/*X8:K22X22/4IXX92/6A,A2I/8I/>/p CIRCLE/z1016,2215:15,2316:15,1617:2:4,3539.'. ERASE BLUE FRAME..0T.&4,354:4,3935:4,394:4,3539Z.0j.D BLUE BARq.N6~.XI1821.b7,37I.lI.v. *** COLORED BAR ***.AAAA1:AA6AA0.HUERC(AA).X8.K12X22/A10(G31)6-d0:34,3-n1:26,3%-x0:28,27-8210: MUSICE-1:36,12S-0:36,15`-1:35,5m-0:36,7z-1:30,2-0:32,2-1:24,4-0:26,3-1:35,19-8210: MUSIC-I:- BLUE FRAME-6 .4,354:4,3935:4,3948200: MUSIC,I:, $, /,I16=,1:36,17K,0:35,19Y,1:36,10g,0:36,12t,1:34,3,0:35,5, 1:28,2,0:30,2,0:24,4,(8210: MUSIC,21:36,15,<0:36,17,F1:36,7,P0:36,10,Z1:32,2 USIC+1:2,29+0:2,34++1:6,218+0:4,22F+1:14,21T+0:12,20b+$1:16,28p+.0:16,26+88200: MUSIC+B1:3,24+L0:2,29+V1:9,20+`0:6,21+j1:16,23+t0:14,21+~1:16,29+0:16,28+1:2,38 ,3:24,6*41:24,4:30,24*>35,5:36,12:35,19:*HQ*\ MOVE BALLS LEFTX*f n*p BELOW JUGGLER y*zI16*1:2,34*0:2,38*1:4,22*0:3,24*1:12,20*0:9,20*1:16,26*0:16,23*0:16,29+8200: MQ%K%: USE KEYPRESS HERE<10400: 'THAT MAKES BLAH'V10800:10800: DELAYyQ%LQ%(QC): GET GOOD Q AGAINERER1:BUMP ERROR COUNT ER1912: REPEAT QUESTION AND GIVE PROMPT2000: ERASE LETTER0:1510: ERASE FRAME ";L+Hb:"PRESS TO RUN MENU. ";DHdIN$:(IN$)140036ZHf(IN$)1340036sHh::(4);"RUN MENU"Hr34,20::"PLEASE BE SURE THE DISKETTE IS IN THE DISK DRIVE, AND THE DISK DRIVE DOOR IS CLOSED. THEN PRESS ."Ht40036I MENU";&GB'1::791,2:D$;"RUN MENU"DG? ** ERROR SUBROUTINE **_G@Y(222): ERROR FLAGGJY20Y255ė::: RESET OR CTRL-CGTY0Y1640050: DOS ERRORG^L(218)256(219): LINE NUMBER OF ERRORH`34,20::"ERROR # ";Y;" IN LINE #:769,160:770:: LCLLCLC LEFTNF(# ****************************************eF2# COLOR RANDOMIZER{F<#I05:RC(I)0:IFF#I05FP#C((1)6):RC(C)09040FZ#RC(C)RB(I)Fd#IFn#F' EXIT TO MENUF'::10::"LOADING:";G':" PICTURE0: CAGGSE\!768,57:769,80:770:768,64:769,80:770:768,96:769,160:770: AGLCYEf!tE! CYCLETUNE BFLY WINGSE!768,96:769,80:770:768,48:769,80:770:768,96:769,160:770:: LCCLC RIGHTF!768,96:769,80:770:768,192:769,80:770:768,96:770:768,48:769,80:770:768,48:769,80:770: GACCDH!768,64:769,80:770:768,57:769,80:770:768,48:769,160:770: GACDJ!JU1JU0:: STOP FOR LEFT JUGGLERER!768,48:769,80:770:768,57:769,80:770:768,64:769,80:770:768,64:769,80:77ANC 768,57:769,80:770:768,64:769,160:770:768,76:769,160:770:: AGEaC MESSAGE L/R pC K118450wC C ::14:"ON THE RIGHT"C C! C !::14:"ON THE LEFT"C!C4! TRANSITION TUNE6D>!768,64:769,80:770:768,57:769,80 WING ONE COLOR MUSIC^Bl 768,64:769,80:770:768,64:769,80:770:768,57:769,80:770: GGAB 768,57:769,80:770:768,64:769,160:770:768,76:769,160:770:: AGEB RIGHT WING ONE COLOR MUSICC 768,64:769,160:770:768,57:769,80:770: GGE LEFTBAR ON CIRCLEuA768,64:769,80:770:768,64:769,80:770:768,57:769,160:770::GGA RIGHT BAR ON CIRCLE A JUGGLER BALLS MUSICA 768,76:769,20:770:: E LEFT JUGGLER BALLSA 768,64:769,20:770:: G RIGHT JUGGLER BALLSBk LEFT4:769,80:770:: G RIGHT BAR >@q END OF PLAY MODE MUSICq@r768,64:769,80:770:768,64:769,80:770: GG@|I12:768,128:769,80:770:I:768,96:769,255:770:: LGLGLCA768,64:769,80:770:768,64:769,80:770:768,76:769,160:770:: G0$?::9:"THAT WAS ON THE LEFT"??150:150:150: DELAYE?i?::9:"THAT WAS ON THE RIGHT"?150:150:150: DELAY??> *********************************?? MUSIC SUBROUTINES?@768,76:769,80:770:: E LEFT BAR !@J768,638:11,1337:13,1436:14,15359>15,1634:16,1733?>$^>L RANDOM L/R ; TEST MODEp>VA((1)2)1y>`K2A>jK217560>t:24:9:"NOW PRESS ON THE RIGHT";>~>:24:9:"NOW PRESS ON THE LEFT";>> MESSAGE?K21765169:13,158:12,137@=10,126:9,105:7,94:5,73:4,54p=5,164:16,185:18,206:20,227:22,238=9,1223:12,1422:14,1621:16,1720=24,2510:25,269:26,288:28,307:30,326=32,365:36,376:37,397:8,1039!>10,111011:21,2211:24,2711:35,3611M10,1215:18,2015:22,2315:31,3315;H9,1114:18,2014:23,2414:32,3414;R9,1113:19,2113:23,2513:33,3513;\8,1012:20,2112:24,2612:34,3612#TM%80:PHI%1281950 16368,0* I%I%128G K%KL%(I%): LOOK UP KEYw K%0ı: -1 MEANS A '?'.. RETURN TO MENU ::10::"LOADING:";::" PICTURE MENU"; 1::791,2:(4);"RUN MENU" K%3: K%4:  ERASE LETTER (Q) 0!SET KEY FLAG0v16384,128: WAIT FOR KEY DOWN>16368,0OI%(16384)eI%128I%I%128o1960}16368,0I%(16384)SOLID(16286):OPEN(16287): CHECK APPLE KEYSSOLID1271992OPEN1271994I%(16384) : WINDMILL STATE 2A<QD15İ7500:QD16: DRAW WINDMILLK=Q%K%e?8000: ROTATE COLORSDI0112:SG%I:7000:I2500: 'STATE 2' MUSICNl KEYPRESSn24:36::" ";:: FLASHING PROMPToBYTE01948 q16368,0: RE27:16,2228, WINDMILL STATE 1 6 Q%K%K QZ%(Q%)121855m RX%QZ%(Q%):RX%6RX%RX%6 IQZ%(Q%)QZ%(Q%)32SG%I:7000:QZ%(Q%)QZ%(Q%)4QZ%(Q%)12İ2050: MARK THIS QUADRANT DONE.2400: 'STATE 1' MUSIC16,2211:15,2312+O15,1613:22,2313CT14,1614:22,2414[Y14,1515:23,2415s^13,1516:23,2516cI1722:13,14I:24,25I:h13,1523:23,2523m14,1524:23,2424r14,1625:22,2425w15,1626:22,2326 |15,23OMIZE QLIST!I47:LQ%(I)0:*I%08J%(1)4OLQ%(J%4)01465LQ%(J%4)1:LQ%(I%)J%1:I%I%1:I%41465 BLUE FRAME...6: MED. BLUE0,390:0,390:0,3939:0,3939@ DRAW CIRCLEG1: MAGENTAJ REM COLOR MUST BE PRESET!!!!!HI%QL%(Q%):J%QT%(Q%):L%I%8:M%J%8tI%,L%J%:I%,L%M%:J%,M%I%:J%,M%L%z DRAWSQUARE(Q):REM COLOR MUST BE PRESET!!!!!L%QL%(Q%):M%L%8IQT%(Q%)QT%(Q%)8:L%,M%I:  RNDQS.. RANDRE.  ERASESQUARE(Q)/$0: BLACK..G.1250: DRAW SQUAREM8\L QNOTE(Q)xVPH%QP%(Q%): SET PITCH`TM%200j2300: DO MUSICt~ BLUE CROSS BAR6: MEDIUM BLUEI1821:2,37I:2,37I: QBOX (Q) :975: ER=2 IF GOT TO HERE510700: 1/2 SECOND Q2000: ERASE LETTERS sQCQC1: BUMP QUADRANT COUNTQC4ı: ALL DONE.910: DO IT AGAINPL1:: BACK TO PLAY MODE. QSQUARE(Q)2200: NEW COLOR.1250: DRAW SQUA3,21 7O27O20,2220'7O25,272097O12:32,3320@7O2N7O20,2219\7O25,2819n7O12:32,33197O2:20,2918:12:31,33187O27O20,29177O12:30,33177O2:21,29167O12:30,32167O2:22,29157O12:30,3115 8O0286^O6,9276`O7,826)6bO1:3,2436dO9,20>6fO16,23I6hO16,29S6jO2,38Y6lOo6O STANDING FIGUREv6O96OI43261:23,30I:6O1:24,2625:2:25,2724:25,27236O1:19,2122:2:25,27226O2:20,22216O25,27217O3:3 5O1:10,32*5@O13:11,32;5BO9:16,1732J5DO2:4,531Y5FO8:6,831j5HO13:9,1131|5JO12:12,13315LO9:16,17315NO2:4,5305PO8:6,8305RO13:9,305TO2:10,305VO13:11,305XO3:16,18305ZO2:4,11296\O5,14O12:8,11364O1:18,36,4O9:6,735=4 O12:8,1135N4"O9:12,1535\4$O1:18,35f4&O4,34u4(O8:6,7344*O12:8,11344,O9:12,16344.O2:4,3340O8:6,83342O13:9,103344O1:11,3346O9:15,173348O2:4,324:O8:6,832,6403N1:17,41$3N12:8,164023N1:17,40A3O9:5,639R3O12:8,1139c3O4:12,1639q3O1:17,393O9:5,6383 O12:8,11383 O4:12,17383O1:18,383O9:5,7373O12:8,11373O4:15,17373O1:18,373O9:6,836G MUSIC2^N70;2fN20600: STANDING JUGGLE C2hN70S2kNI11500:j2pN1998:16301,0:p2zN2N SITTING FIGURE2N12:9,16432N1:17,432N12:8,16422N1:17,422N3:3,41:4,412N9:5,6412N12:8,16413N9:570: SKIP TITLE?,14N20200: SITTING FIGURE416N70m1>NI17:TM%MT%(I):PH%MP%(I):2300:: SITTING MUSICu1@N701HN20800: SITTING JUGGLE 1JN701RN20400: STANDING FIGURE1TN702\NI814:TM%MT%(I):PH%MP%(I):2300:: STANDIN0*I1250::!00* FULL SECOND30:*I11000::J0* TRANSITION MUSICt0*I114:PH%MP%(I):TM%MT%(I):2300:z0*0\+ ERASE WHEEL DOTS0a+0:I14:DX%(I),DY%(I)::0 N TITLE PAGE... 0%N21000: TITLE PAGE0*N1998: CLEAR SCREEN1,N) THAT WAS... /):10:221/")"THAT WAS ";S/,)Q%10610,10620,10630,10640:t/h) THAT WAS ONE OF THESE .../r)"ABOVE/LEFT":/|)"ABOVE/RIGHT":/)"BELOW/RIGHT":/)"BELOW/LEFT":/) HALF SECOND/)I1500::/) QUARTER SECONDT";:.'"BELOW/LEFT";:(.' THATWASE.':10:22:"THAT WAS ";:g.'K%10062,10064,10066,10068:x.<( NOW PRESS.F(:24:10:"NOW PRESS ";:Q%10162,10164,10166,10168:.( THATMAKES.(:10:22:"THAT WAS ";:Q%10610,10620,10630,10640:/10064,10066,10068:(-N'"ABOVE/LEFT";:=-P'"ABOVE/RIGHT":S-R'"BELOW/RIGHT";:g-T'"BELOW/LEFT":-t' NOWTOUCH => 'NOW TOUCH'-~':24:10:"NOW PRESS ";-'Q%10162,10164,10166,10168:-'"ABOVE/LEFT";:-'"ABOVE/RIGHT";:.'"BELOW/RIGHANSITION,-#2200: NEW COLOR4,2#I039:0,39I:U,7#16302,0:I4047:0,39I:s,<#10900: TRANSITION MUSIC,A#16301,0:: CLEAR BOTTOM AGAIN.,F#,' TOUCHONE => 'TOUCH ONE KEY',':24:14:"PRESS ONE KEY";:,B':15:22-L'Q%10062,224:18,2225:+d17,2326:17,2327:16,2428:16,2429R+fI3036:15,25I:j+hI3739:14,26I:+j0:35,3919:20,35:35,3921++@ ROTATE COLOR (Q)+JLC%(Q%)LC%(Q%)1+TLC%(Q%)6LC%(Q%)LC%(Q%)6+^RX%LC%(Q%)+h,(# TR18:H0%18:74204*SG%6SG%7V0%17:H0%19:7420Y*SG%8SG%9V0%16:H0%20:7420*SG%10SG%11V0%15:H0%21:7420*V%,V0%H%:H0%,H%V%:*L DRAW WINDMILL*V8: BROWN*`20,14:22,16:18,16+b18,2120:19,2122:19,2123:18,2G%47320.)SG%4SG%5V0%22:H0%18:7320S)SG%6SG%7V0%23:H0%19:7320x)SG%8SG%9V0%24:H0%20:7320)SG%10SG%11V0%25:H0%21:7320)V0%,V%H%:H0%,H%V%:)H%32H%)V0%19:H0%17)SG%47420*SG%4SG%5V0%"V0%21:H0%15($SG%47220D(&SG%4SG%5V0%22:H0%14:7220i((SG%6SG%7V0%23:H0%13:7220(*SG%8SG%9V0%24:H0%12:7220(,SG%10SG%11V0%25:H0%11:7220(4V0%,V%H%:H%,H0%V%:(H%32H%:V%40V%(V0%21:H0%17 )ST RESULTSGíBYTE050100^GKL%(9)1:KL%(10)3:KL%(11)3: FOR TAB, LEFT AND RIGHT ARROWSGKL%(34)3:KL%(39)3:KL%(58)3:KL%(13)3:KL%(43)2: " ' : + AND RETURNGKL%(64)1:KL%(94)1:KL%(93)2: @ ^ ]HÁI120:WP%(I),WT%(I):: WHEEL MUSIWP%(20),WT%(20)7FxÁI04:QG%(I)0:WC%(I)0:LQ%(I)0:MFÁI57:LQ%(I)0:FÁI14:QL%(I),QT%(I),DX%(I),DY%(I),LT%(I),LB%(I),LH%(I),QP%(I):FÁI114:MP%(I),MT%(I):FÁI05:RC%(I):FÁI0127:KL%(I): GBYTE(760): CHECK A//E ID TESSK DRIVE, AND THE DISK DRIVE DOOR IS CLOSED. THEN PRESS ."OEt40036mEPò INITIALIZE SYMBOL TABLEEZÆQL%(4),QT%(4),DX%(4),DY%(4),LT%(4),LB%(4),LH%(4)EdÆRC%(5),LC%(4),MP%(14),MT%(14),QP%(4),QZ%(4)FnÆQG%(4),WC%(4),LQ%(7),KL%(128),MK%(22),L(218)256(219): LINE NUMBER OF ERRORWD`34,20::"ERROR # ";Y;" IN LINE # ";L~Db:"PRESS TO RUN MENU. ";DdIN$:(IN$)140036Df(IN$)1340036Dh::(4);"RUN MENU"DEr34,20::"PLEASE BE SURE THE DISKETTE IS IN THE DI20:21,2218:22,19:19,2023:18,2025:18,2027:28,2920:18,2030:29,18uCvu18,2032:18,2034:33,18:18,2037{CuC? ** ERROR SUBROUTINE **C@Y(222): ERROR FLAGCJY20Y255ė:::RESET OR CTRL-CCTY0Y1640050: DOS ERROR,D^BDu16,172:6,816:6,17:10,1216:10,17:14,1616:15,17CBNu12BXu18,202:3,420:18,206:6,820:6,19:18,2010:11,18:18,2015:7,18Bbu13:20,2316:20,17:23,17:16,1725:27,3016:27,17:16,1732:16,1734:36,3816:37,17LClu12:18,20:22,2320:19,2125AS13;AS17,1825:27,3017:27,18CAS12AS19,2127:28,3021:19,2130:29,19:19,2132:33,19:19,2134AS13AT17,1834:17,1832:36,3817:37,18AT12AT19,2137AT10800:10800A$TA0u TITLE....A:u13;19,216:7,19@fS13;@pS17,186:7,817:10,18:10,1217C@zS12b@S11,19:19,2110:19,2115j@S13@S15,18:14,1617@S10800@S RIGHT@S13@SQ%1:1100: NOTE@S17,1820:21,2217:17,1823@S12AS21,2219:19,2120:20,21234:21,2334:32,3323:32,3321&?R2O?S30,3121:22,2330:23,31:30,3125V? S3?S25,32:32,3426:27,33:34,3228:29,32? S2?*S30,3129?/S10800?4S LEFT?>S13?CSQ%3:1100: NOTE?HS17,182?RS12 @\S19,212:2,421:6,821:>R9#>R26,277:26,8:26,289.>R10800:>R BELOWA>R2W>RQ%4:1100: NOTEu>R30,319:30,3111:10,30|>R3>R32,3411:10,34:32,349:10,32:13,1432:13,33:13,1534>R2>R13,31:13,1530:30,3117>R3?R32,3417:18,1936=0R9I=:R7,910:11,127:14,167:10,8:12,8:8,914:12,9:14,167f=DR8,916:14,159:7,814m=NR1=XR5,614:15,165:16,6:18,205:20,6:18,6=bR9=lR7,918:7,920:19,9:7,822:7,824:23,9=vR1>R5,624:5,622:5,626:27,285VQ2300 to go back to table of Contents.";N J16368,0X O8030 T23:"Press to continue "; Y16368,0 ^IN$:(IN$)18030 cIN$"?"ī10000: RUN PICTURE PAGE h(IN$)138030 m!(# ** MENU FOR APPLEe picture clues and music from"J"inside program, type '?' (Shift and"v"'/') to get to the Pictue Menu; then""press '4' (next to the colored ques-""tion mark) to reach the 'Choice Page'."80009000 @ PAUSE ROUTINE FOR //Ehildren who can't read yet need pic-"P"ture clues, or they need someone to"p"read the words for them.":"Choose number 3 on the 'Choice Page' to""switch between music and quiet in the""programs.8020:7"To changR //E **]::72b12::"SPECIAL CHOICES":8ggl:"Picture clues and music can be turned"q"off in ";::" JUGGLE'S ";::" programs. On the"v"'Choice Page', choose number 2 to "{"switch between picture and word clues."%"C return to the Picture Menu."#T:"Use to cycle from lesson to""lesson within a program. The lessons ""cycle from 'Bar' to 'Shape' to 'Object'""and back to 'Bar' again."80009000X ** SPECIAL OPTION FO6"For the ";::" WINDMILL ";::" program,"N"use both strips."X8000q9000: BACK TO MENUp *SPECIAL KEYS FOR //Eu::7z14:"SPECIAL KEYS"::"Type '?' (Shift and /) to end a program.";"You willtrip above the top row of keys,"M"and insert the folded part by the '6'"{"key. Place the other end of the strip""below the bottom row of keys, inserted""by the 'B' key. This will create left""and right zones on the keyboard."020 :77"To prepare the keyboard for running"q"the ";::" BUTTERFLY ";::" program, use a short""blue strip of tagboard or paper with""the ends folded to fit across the""keyboard vertically. Place one end" "of the s second and";"third rows of keys. This creates zones"g"above and below the blue line on the"x"keyboard.":"If you are using tagboard, fold the""ends and tuck them in next to the"" key and the key."8re used to"8"match blue bars on the monitor screen"d"in the first lesson of each program."jt8020}:7"For the ";::" RAINBOW ";::" program, place a""long blue strip across the keyboard" "horizontally, between the DB 8L< 85,120,102,120,85,120,102,120: Q=4 DBDB NI,1,4,1,2,4,1,4, 1,4,2,2,2,4,2VK20 EACH OF WP,WT (WINDMILL CYCLE MUSIC)K 64,120,76,120,64,120,76,120:Q=1 GEGEK( 64,60,64,30,76,60,57,30,64,120,76,120 : Q=2 GGEAGE L2 85,60,85,30,102,60,76,30,85,120,102,120: Q=3 DDBE0!J 0,1,1,1,1,1,1,2,2,2,2,3BJ 3,2,3,3,2,1,1,1,1,1,1,2 cJ 2,2,2,3,3,2,3,-1,2,4,4,4J 4,1,4,4,3,2,3,3,3,3,3,2J 2,1,1,4,1,2,4,1,4,1,4J 2,2,3,3,2,4,4,4,4, 4 ,1,4,4,3,2,3,3, 3,3,3(K 2,2,1 64,80, 57,80, 48,80, 48,80, 64,80, 57,80, 48,160hI 48,80, 57,80, 64,80, 64,80, 57,80, 64,80, 96,160I 6 OF RC (FROM 0)I 1,9,13,12,2,3 I 59 OF KL (FROM 0) I 0,4,4,4,4,1,4,4,3,2,3,3,3,2,3,2,2,1J 1,4,1,3,4,1,4,1,4,1,0,0,0,C Hñ"H` DATA STATEMENTS....[Hj FOUR OF THE FOLLOWING.. QL,QT,DX,DY,LT,LB,LH,QP{Ht 6,6,2,2,2,28,12,64 H~ 25,6,37,2,2,28,25,57 H 25,25,37,37,11,37,25,76 H 6 ,25,2,37,11,37,12,96 H 14 OF MP,MT1ION !qCLASS(129)BELOW: CTRL-A>!rCLASS(147)BELOW: CTRL-S\!sCLASS(154)BELOW: CTRL-Zz!tCLASS(152)BELOW: CTRL-X!! *=***********************************************************! SUBROUTINE GETKEYINPUT!24:36::" ";: "BW: K fCLASS(236)BELOW: L7 gCLASS(250)BELOW: ZP hCLASS(248)BELOW: Xi iCLASS(227)BELOW: C jCLASS(246)BELOW: V kCLASS(226)BELOW: B lCLASS(238)BELOW: N mCLASS(237)BELOW: M!o CONTROL CHARACTERS CLOSE TO THE CONTROL BUTT\CLASS(149)BELOW: RIGHT-ARROW=] LOWERCASE CHARACTERSV^CLASS(225)BELOW: Ao_CLASS(243)BELOW: S`CLASS(228)BELOW: DaCLASS(230)BELOW: FbCLASS(231)BELOW: GcCLASS(232)BELOW: HdCLASS(234)BELOW: J eCLASS(235)BELOSS(("<")128)BELOW0TCLASS((".")128)BELOWLUCLASS((">")128)BELOWhVCLASS(("/")128)BELOWWCLASS(138)BELOW:CLASS(139)BELOW: UP/DOWN ARROWSXCLASS(254)BELOW: APPROXIMATIONYCLASS(224)BELOWZCLASS(136)BELOW: LEFT-ARROW"LASS(141)BELOW: RETURN4DCLASS(("Z")128)BELOWPFCLASS(("X")128)BELOWlHCLASS(("C")128)BELOWJCLASS(("V")128)BELOWLCLASS(("B")128)BELOWNCLASS(("N")128)BELOWPCLASS(("M")128)BELOWRCLASS((",")128)BELOWSCLA"G")128)BELOW+4CLASS(("H")128)BELOWG6CLASS(("J")128)BELOWc8CLASS(("K")128)BELOW:CLASS(("L")128)BELOW<CLASS((";")128)BELOW>CLASS((":")128)BELOW@CLASS(("'")128)BELOWBCLASS(162)BELOW: QUOTATION MARKSCC32,21:24,40:26,3,1:35,19721000>IDb$ *********************' INIT A//E CLASS SUB-ROUT*CLASS(("A")128)BELOW,CLASS(("S")128)BELOW.CLASS(("D")128)BELOW0CLASS(("F")128)BELOW2CLASS(( 0:35,51:28,2&0:30,230:24,4>21000L1:36,15Z0:36,17g1:36,7u0:36,101:32,20:34,31:26,30:28,2210001:36,120:36,151:35,50:36,71:30,20:220001:3,24!0:2,29.1:9,20;0:6,21I1:16,23W0:14,21e1:16,29s0:16,281:2,3822000I MOVE BALLS ABOVEI161:36,170:35,191:36,100:36,121:34,3W fI16g1:2,34&h0:2,383i1:4,22@j0:3,24Nk1:12,20[l0:9,20im1:16,26wn0:16,23o0:16,29p22000z1:2,29{0:2,34|1:6,21}0:4,22~1:14,210:12,201:16,280:16,26,101:29,102:31,10112:32,3410B12:23,249O1:28,9`13:29,319q12:32,349~ 23,2481:30,8 30,7:12:23,247*3:24,641:24,4:30,2>35,5:36,12:35,19H\ SUBROUTINE MOVEBALLSBELODRIVE, AND THE DISK DRIVE DOOR IS CLOSED. THEN PRESS ."L%t40036D8)256(219): LINE NUMBER OF ERRORP$`34,20::"ERROR # ";Y;" IN LINE # ";L{$b:"PRESS FOR PICTURE PAGE ";$dIN$:(IN$)140036$f(IN$)1340036$h::(4);"RUN MENU"A%r34,20::"PLEASE BE SURE THE DISKETTE IS IN THE DISK #5%"#' ** BACK TO MAIN MENU **0#'::10:Y#'10:"LOADING:";::" PICTURE MENU";_#'t#$':D$;"RUN MENU"#? ** ERROR SUBROUTINE **#@Y(222): ERROR FLAG#JY20Y255ė:: RESET OR CTRL-C #TY0Y1640050: DOS ERROR%$^L(21"6#IN$"1"IN$"3"1032:"8#IN(IN$):IN5000,6000,7000B"%:"!%2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:"&%32,5:33,30:34,4:35,20: WINDOW"+%48,30: ^"0%4,430:4,4339: FRAME //E!)#9500,!*#:7:"Table of Contents"[!,#:::"Setting up the Keyboard";:RM:"1"{!.#:"Special Keys";:RM:"2"!0#:"Special Choices";:RM:"3"!2#:::"Choose a number, or"::"Type 'P' for Picture Menu";!4#IN$:IN$"P"IN$"p"10000*****#1b SUBROUTINE BOXSEQUENCEA1l10700: RANDOMIZE COLORSc1vERRS0:EP0: EP=ERROR PROMPT}11994: CLEAR SCREEN16: MED. BLUE1MODETESTİ10200: FRAME110400: DRAW BOXES1ST041MODEPLAYMODEERRī7200%2MODEв WRITES THE CURRENT COLOR TO THE ENTIRETY OF THE 40 BY 40 LO RES SCREEN`0L039:0,39L:L016302,0:L4047:0,39L:020200: MUSIC016301,0:: CLEAR SCREEN AGAIN01X *********************************************************6220/2MODEERR0/<0:10200: ERASE FRAMEM/F0:10362: ERASE PROMPTY/HSTST1y/J:24:14:"PRESS ONE KEY";/dST/n/MODECH// *************************************************************/ SUBROUTINE FILLSCREENI0 .AINBELOWė::18:"BELOW"7.10300: VERTBARR.20100: VBARTUNE c.160: DELAYm.6500}.ERRSERRS1. ::13:"THAT WAS ";.KEYCLASSABOVEĺ"ABOVE".KEYCLASSBELOWĺ"BELOW".150:150:150: DELAY.#ERR26450/(5:" ";:(-~VPİ10350: VISUAL PROMPTu-VPERR1EP0İ10350:EP1: VISUAL PROMPT GIVEN ONLY ON FIRST ERROR -5000: GETKEYINPUT-936-KEYCLASSSPACEBARī6600-KEYCLASSACOMī6400-AINKEYCLASS.AINABOVEė::18:"ABOVE"::18:"BELOW"&,10300: VERTBAR=,20100: VBARTUNEL,I1300:V,$6500l,8MODETESTī6500|,BR((1)2),L:24:13:"NOW PRESS ";,VR0ACOMABOVE,`R1ACOMBELOW,jACOMABOVEĺ"ABOVE";,tACOMBELOWĺ"BELOW"; -v24:3 FRAME#+10700: CHOOSE COLORS/+ST04O+MODEPLAYMODEERRī6200+MODEPLAYST0ė:24:14:"PRESS ONE KEY";+5000: GETKEYINPUT+936+KEYCLASSSPACEBARī6600+AINKEYCLASS+AINABOVEė::18:"ABOVE", AINBELOWR *250*4700*2506*23100: BELOW TUNE<**p **************************************************************z SUBROUTINE BARSEQUENCE*ERRS0:EP0: EP=ERROR PROMPT*1994*10100: BLUEBAR*6+MODETESTİ10200:JUGGLER SEQUENCE))0:I039:0,39I:J)16302,0:I4047:0,39I:f)250: SKIP TITLE PAGE?)4100: STANDING JUGGLER)250)4800)150: DELAY)250)23000: ABOVE TUNE)150: DELAY)250*3400: SITTING JUGGLE">")128)BELOW+(CLASS(("/")128)BELOWI(CLASS(129)BELOW: CTRL-Ag(CLASS(147)BELOW: CTRL-S(CLASS(154)BELOW: CTRL-Z(CLASS(152)BELOW: CTRL-X((| ************************************************************) SUBROUTINE S(("V")128)BELOW/'CLASS(("B")128)BELOWK'CLASS(("N")128)BELOWg'CLASS(("^")128)BELOW'CLASS(("M")128)BELOW'CLASS(("]")128)BELOW'CLASS((",")128)BELOW'CLASS(("<")128)BELOW'CLASS((".")128)BELOW( CLASS((ELOW &CLASS(("L")128)BELOW<&CLASS((";")128)BELOWX&CLASS(("+")128)BELOW{&CLASS(136)BELOW: LEFT-ARROW&CLASS(149)BELOW: RIGHT-ARROW &CLASS(("Z")128)BELOW&CLASS(("X")128)BELOW&CLASS(("C")128)BELOW'CLAS6BYTE04900: INIT A//E SUB-ROUT@%<CLASS(("A")128)BELOW\%FCLASS(("S")128)BELOWx%PCLASS(("D")128)BELOW%ZCLASS(("F")128)BELOW%dCLASS(("G")128)BELOW%nCLASS(("H")128)BELOW%xCLASS(("J")128)BELOW&CLASS(("K")128)B****************************8$ SUBROUTINE INITCLASS$ INITIALIZES ARRAY CLASS TO PERFORM THE CLASSIFICATION DESCRIBED ABOVE$ CLASS(255)$K0255$CLASS(K)ABOVE$(K$2CLASS(160)SPACEBAR$4BYTE(760): CHECK A//E TEST RESULTS$%PEN(16287):SOLID(16286): CHECK APPLEKEYSL#OPEN127SOLID1275085f#K(16384): KB DATAv#K1285058#K19112000#KEYCLASSCLASS(K)#16368,0##KEYCLASSBELOW#16368,0#$ ********************************YTE05055,"16368,0: CLEAR KB STROBEF"K(16384): KB DATAV"K1285020g"K19112000}"KEYCLASSCLASS(K)"16368,0"" A//E GETKEYINPUT SUB-ROUT"16368,0: CLEAR KB STROBE"K(16384): K B DATA /#O****************************************************IA+ RAINBOWSTRIPEsA + ARG N = 0,1,2,3,4 OR 5; 0 = INSIDEA+X1162NA +X239X1A*+Y122NA4+X1,X2YA>+X1,X2Y1AH+Y,15X1AI+Y,15X11AM+Y,15X2AN+Y,15X21AR+8B\+ ***)0:L2631:19,24L:L)@)1: MAGENTAA@)21,2228:21,2229G@)v@) ****************************************@) RANDOM COLOR GENERATOR@)I05:RC(I)0:I@)I05@)C((1)6):RC(C)010730@)RC(C)RB(I)@)I@*4A* ********1?:)RC(DC)?<)10580*?J)NC((1)6)A?L)NCDCNCUC10570S?N)DCNC:RC(DC)l?T)L2532:18,25L:Lr?Y)?h) *** BOXPROMPT ********?r)ACOMBELOW10650?|)0:L1621:15,20L:L: EMPTY BOX?~)1: MAGENTA?)17,1818:17,1819?)@ ) USES OLD COLOR IF BOX IS EMPTY; NEW RANDOM COLOR IF BOX IS FULL.`>)KEYCLASSBELOW10550p>)UF110530y>)UF1>)RC(UC)>)10540>")NC((1)6)>$)NCUCNCDC10530>&)UCNC:RC(UC)>,)L1522:14,21L:L>1)>6)DF110570?8)DF =(18,2525=(18,2532)=(25,32187=(25,3225Z=(UF0:DF0: UPFULL & DOWN FULL`=(=) ***********************************************************=) SUBROUTINE FILLBOX=) FILLS EITHER UPPER OR LOWER BOX ACCORDING TO KEYCLASS.F>*************************************2<( BOXES|<( DRAWS THE TWO UNFILLED-IN BOXES, SELECTING THEIR COLORS AT RANDOM.<(UC((1)6)<(DC((1)6)<(UCDC10425<(RC(UC)<(14,2115<(14,2122<(15,2214<(15,2221<(RC(DC)#;Z(AINABOVEď8,19XP:8,19XP1H;\(AINBELOWď24,35XP:24,35XP1N;d(k;n( **** VBAR PROMPT *****~;x(1: MAGENTA ;z(XP9ST5;(ACOMABOVEāI8192:XP,XP1I:I;(ACOMBELOWāI24352:XP,XP1I:I;(%<( ***********************:' SUBROUTINE FRAME4:' NO COLOR SPECIFIED@:'4,354M:(4,3539Y: (4,394f:(4,3935l:(:<( ***********************************************************:>( SUBROUTINE VERTBAR :F(CST:RC(C):RANDOM RAINBOW COLOR;P(XP9ST5***********'9' GRAPHICS SUBROUTINESi9' **********************************************************9t' SUBROUTINE BLUEBAR9~'6: MEDIUM BLUE9'L20239'7,32L9'L9':' *********************************************************!DOWNNUM6ī8600&8>!11300: RAINING?8H!20800: RAININGTUNEI8R!8100W8!NDOWNNUMe8!HUERB(N)s8!DYME(N)8!11100: RAINCOLUMN8!20600: RAINTUNE8!DOWNNUMDOWNNUM18!81008" 9' ***********************************************: GET KEY INPUT-7KEYCLASSSPACEBARī8900G7KEYCLASSBELOWī8500Z7UPNUM6ī8200t711200: RAINBOWCYCLE720700: CYCLETUNE781007 NUPNUM7 RB(N):11000: RAINBOW STRIPE7 20500: RAINBOW TUNE7! UPNUMUPNUM17& 810084 6BSTST1+6G:24:14:"PRESS ONE KEY";36LST96VE6MODECHK66@ **************************************************************6J SUBROUTINE RAINBOW SEQUENCE6hUPNUM0:DOWNNUM0:C10:C206r:24:14:"PRESS ONE KEY";75000: "; 5KEYCLASSABOVEĺ"ABOVE"=5KEYCLASSBELOWĺ"BELOW"X5150:150:150: DELAYi5ERRS27460s572205$MODEERR5.0:10200: ERASE FRAME 58ACOMBELOWĠ20,27):10654: ERASE PROMPT5:ACOMABOVEĠ16,17):10624: ERASE PROMPTa936$4fKEYCLASSSPACEBARī7600>4pKEYCLASSACOMī7400W4rAINKEYCLASS:::18o4tAINABOVEĺ"ABOVE"4vAINBELOWĺ"BELOW"4z10500: FILLBOX420300: CORRECTBOXTUNE4160: DELAY 475004ERRSERRS15::13:"THAT WAS(1)2)3*R0ACOMABOVE.3/R1ACOMBELOWK34:24:13:"NOW PRESS ";e3>ACOMABOVEĺ"ABOVE";3HACOMBELOWĺ"BELOW";3RVPİ10600:VISUAL PROMPT3WVPERR1EP0İ10600:EP1: GIVE VISUAL PROMPT FOR 1 ERROR ONLY3\5000: GETKEYINPUT4PLAYST0ė:24:14:"PRESS ONE KEY";>25000: GETKEYINPUTH2936e2KEYCLASSSPACEBARī7600q2::182KEYCLASSABOVEĺ"ABOVE"2KEYCLASSBELOWĺ"BELOW"210500: FILLBOX220300: BOXTUNE2 75002 MODETESTī75003%R(36Qh::(4);"RUN MENU"Qr34,20::"PLEASE BE SURE THE DISKETTE IS IN THE DISK DRIVE, AND THE DISK DRIVE DOOR IS CLOSED. THEN PRESS ."Qt40036SRROR FLAG0PJY20Y255ė:::RESET OR CTRL-CQPTY0Y1640050: DOS ERRORP^L(218)256(219): LINE NUMBER OF ERRORP`34,20::"ERROR # ";Y;" IN LINE # ";LPb:"PRESS TO RUN MENU. ";PdIN$:(IN$)140036Qf(IN$)13400770OPZ768,96:769,160:770$ORZ:O] MODE=TEST MUSICmO]768,64:769,80:770:768,64:769,80:770: GGO]768,128:769,80:770:768,128:769,80:770: LG LGO]768,96:769,255:770: MIDDLE CO]O? ** ERROR SUBROUTINE ** P@Y(222): E9,80:770"NY768,57:769,80:770(1@(24,6B(24,5D(22,5F(22,6H(26,6J(26,5L(27,5N(28,5P(9R(26,7T(27,7V(26,7X(26,8Z( '12,7'12,8'12,9''14,91'14,8;'14,7E'15,7O(16,7Y(16,8c(16,9m(15,9w(14,9 (14,8 (14,7(1(14,6(14,5(15,5(16,5(16,6(18,5(19,5(20,5 (20,6"(18,6$(933,3429::33,3433:34,32: G&Z'j' ************************************************************' SUBROUTINE FOR PICTUREFILE ABOVEPIC.X'1'10,5'10,6'11,5'12,5'12,6'9'10,7'10,9'10,8'11,73,35:23,37:35,3924: LEFT E,A 3N'2: BLUEP'25,23:25,27:29,3325:35,3926:27,36:28,37:35,3929: RIGHTE,I,NR'29,3327:28,30:29,31: LEFT NT'3: PURPLEV'29,3330:35,3631:37,3932:35,3633: RIGHT N,Y X'29,3332:5,36:17,1829:17,31:18,30:32,3318: T,R, RIGHT M iF'23,2719:35,3918:19,35:19,37: LEFT H,PzH'12: GREENJ'20,25:23,2721:29,3320:21,30:22,31:29,3323:35,3720: RIGHT H,N,RIGHT P $L'23,2723:24,23:24,25:24,27:35,3922:2:35,398:9,29:9,31:9,33:9,35:9,39: E,O LEFTE<'9: ORANGEr>'10,29:10,33:35,3910: E,O, RIGHT @'29,3312:35,3912:13,29:13,31:13,36:29,3314:14,37: A, LEFT M B'13: YELLOW6D'15,1723:24,2716:29,3316:35,3916:1:10,21L:L'('L1951:10,12L:L6*'2: BLUEN,'L5291:7,9L:Li.'L25291:10,21L:Lz0'3: PURPLE2'L34301:4,21L:L4'L2951:4,6L:L6'1: RED 8'29,334:35,394:5,633:5,635:5,639: L,C4:'29,338**********+' THE LEARNING COMPANY LOGO9'1: REDR'L591:19,21L:Lc'9: ORANGE~'L10141:16,21L:L'L951:16,18L:L'13: YELLOW 'L5191:13,15L:L"'L15191:16,21L:L$'12: GREEN &'L24201G"; 160$4D2500:9000: DELAYR:::10:"LOADING:";::" PICTURE MENU"j1:(4);"RUN MENU"(# ****************************************************************2# SUBROUTINE DELAY3# ARG D<#DD0D:DDF# ' ***********: E 60# 10800: RIGHTPICA '768,64:769,250:770: GI (60 *"DESIGN:"::5:"A. PIESTRUP";:20:"B. JASINSKI" +60 ,I12000:I -60/:"PROGRAMMERS:"::5:"L. GRIMM";:20:"P. FIORENTINI":5:"W. ROBINETT";:20:"A. CHIANRESERVED VER 1.1E"; 60. 100: SONG G D1500:9000: DELAYO :W 60n 10200: ABOVEPIC 768,57:769,250:770: A 60 10400: BELOWPIC 768,96:769,250:770: C 60 10600: LEFTPIC 768,76:769,250:7700:768,64:769,160:770:768,85:769,80:770r f768,102:769,160:770:768,85:769,80:770:768,64:769,255:770x h  TLC HELLO PROGRAM : 60 10000: TLC LOGO 22:2:"COPYRIGHT 1982, THE LEARNING COMPANY" :5:"ALL RIGHTS 21): TURN ON 80 COLUMN CARD IF ONE IS PRESENT AND TURN IT OFFx (4);"BLOAD PLEASE CHOOSE.LPIC,A$800": MENU PICTURE (844,1: FLAG SETS VISUAL PROMPTS AS DEFAULT 21000 <(16384)160ġ:2200:SPACE BAR TO MENU >, d768,85:769,80:77ANY, ALL RIGHTS RESERVEDF :::(4);"BLOAD MUSICRESETMOVE400<800"m 1010,23:1011,3:(3)250Č1169 (4);"BLOAD A//E ID @ $8000.S.OBJ0":32768:BYTE(975):760,BYTE: RUN APPLE ID CHECK AND SAVE RESULTS> BYTE64BYTE128ĺ(4);"PR#3":(Y40040: REBOOTW(104)64(103)1(16384)030000: RELOCATE PROGRAM HELLO FOR ABOVE/BELOW/LEFT/RIGHT (JUGGLE'S RAINBOW) RAINBOW OF LOGO BY MICHAEL MC.CORMICK; REMAINDER BY LESLIE GRIMM COPYRIGHT 1982, THE LEARNING COMP           $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  `$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \Igh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* $v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?` \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $ )^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșhhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^_CTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H h0ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIREHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALPLOϠҍŠɠ͠ŠՍΠŠӠŮǭΠϠЬӶı¸̱Ġo1 X D <=>?BC ,IL<=>??BЅC ,89L ٠ ԠԠŮՠԠĠ͠čҠŠĠ               : ERASE BAR# 8400: MESSAGE ;%6200: BAR&TUNE E*K3K1M4G3b>G11İ6300:730u CIRCLE TESTI1400:I8050: MUSICG40:G1119945600: FRAME6000: CIRCLEG3157500: RND R/LVPİ6CLE PRACTICE"I1150:I;HUE1:3250: FILLSCAT6000: CIRCLEbG10:G51~ FROM TEST QUESTION:24:14:"PRESS ONE KEY";G11G5G3G3G55 3300: GETKEYK101100:BUTTERFLY K1K3İ6300 q0:5930: ERASE LAST PROMPT0v350: PLAYC7600: ERRMSG_7530: REPEAT QUESTIONy5900: VISUAL PROMPT570: GET ANSWER8400: MESSAGE5800: BAR&TUNE150:160: DELAYG3 ***********************  CIR0: BLUEBAR&G315+07500: RND L/RJ2VPİ5900: VISUAL PROMPTj5 K2=1 (LEFT) K2=2 (RIGHT)}:3300: GETKEY<?K10700DK1K2650: GOTITRIGHTNG4G41: G4=#ERRORSXG42640b7600: ERRMSGl5650: ERASEFRAME PRACTICE8400: MESSAGE35800: BAR&TUNECI1300:IKG3cG11ė:1994:320x BLUE BAR TESTI1400:I8050: MUSIC G40:G11:AA09000: RANDOMIZE COLORS1994: CLEARSC5600: BLUEFRAME 570*********************., BLUE BAR PRACTICE4;H@5700: BLUEBAR[JG10:G51:AA0xT9000: RANDOMIZE COLORS^ ENTRY FROM TEST MODEc:24:14:"PRESS ONE KEY";hG11G5G3rG3G553300: GETKEY K10700: CIRCLE00:MUSIC170!I1500:*170G4100: STANDING JUGGLERWI1150:I`170z5050: JUGGLER BALLS I1200: 1708530: MUSIC 170I11000:16301,0:: CLEAR BOTTOM OF SCREEN"+ ********* MAIN PROGRAM00:I039:0,39I:IQ16302,0:I4047:0,39I:(16384)160Ĺ16368,0:280: SKIP TITLE PAGE3400: JUGGLERSI1150:I170: SKIP TITLE?4700: JUGGLER BALLSI1200:170 JU1:853)194UzQ(25)161:Q(26)162:Q(27)163:Q(28)164:Q(29)165:Q(30)166: ! " # $ % &|Q(31)129:Q(32)145:Q(33)154:Q(34)147:Q(35)151:Q(36)152: CTRL- A Q Z S W X 200I1600:I:I1200:I:(16384)160Ĺ16368,0::280ASE Q Z200 cV36:Q(V)| dQ(1)177:Q(2)178:Q(3)179:Q(4)180:Q(5)181:Q(6)182:Q(7)155:Q(8)209:Q(9)215:Q(10)197 nQ(11)210:Q(12)212:Q(13)217:Q(14)193:Q(15)211:Q(16)196:Q(17)198:Q(18)199xQ(19)218:Q(20)216:Q(21)195:Q(22)214:Q(29)214:Q(40)194: Z X C V Bj DQ(41)250:Q(42)248:Q(43)227:Q(44)246:Q(45)226: LOWERCASE Z X C V B EQ(46)129:Q(47)145:Q(48)154:Q(49)147:Q(50)151:Q(51)152: CTRL-A Q Z S W X FQ(52)137:Q(53)254:Q(54)224: MISC. GQ(55)241: LOWERCQ(21)247:Q(22)229:Q(23)242:Q(24)244:Q(25)249: LOWERCASE Q W E R T Y AQ(26)193:Q(27)211:Q(28)196:Q(29)198:Q(30)199: A S D F G BQ(31)225:Q(32)243:Q(33)228:Q(34)230:Q(35)231: LOWERCASE A S D F G CQ(36)218:Q(37)216:Q(38)195:Q(355:Q(V)X =Q(1)177:Q(2)178:Q(3)179:Q(4)180:Q(5)181:Q(6)182:Q(7)155: 1-6 & ESC >Q(8)161:Q(9)192:Q(10)163:Q(11)164:Q(12)165:Q(13)222: !@#$%^ ?Q(14)209:Q(15)215:Q(16)197:Q(17)210:Q(18)212:Q(19)217: Q W E R T YJ @Q(20)240:1:RB(1)9:RB(2)13:RB(3)12:RB(4)2:RB(5)3: REDOR.YEL.GR.BLUE.PURP 2VP(844): VISUAL PROMPT FLAG, POKED IN BY HELLO, 0 = OFF, 1 = ON 7BYTE(760): CHECK A//E ID TEST RESULTS 9BYTE099: IF NOT A//E THEN INITIALIZE FOR //+ KEYBOARD ;V@ 40000.791,32: ENABLE RESET TRAP? LEFT/RIGHTiCOPYRIGHT 1982, THE LEARNING COMPANY ORIGINAL PROGRAMMING BY PIERRE FIORENTINI & ALICE CHIANG REVISIONS BY LESLIE GRIMMD$(4)RB(6),RC(6): RAINBOW COLORSG (RB(0)                    <VPER1EP0İ5000:EP1: VISUAL PROMPT ON FIRST ERROR[1900: KEYPRESS INTO 'K%'a|K%0ı: SPACE = EXITK%Q%935: CORRECT KEYPRESS HERE 10050: MESSAGE3000: DO LETTER.1100: MUSIC 963: ELSE.... AST LETTER p9********************************L CIRCLE TESTk1450: RANDOMIZE QLIST ~QC0:ER0:EP01600:1500: CIRCLE & FRAMEQ%LQ%(QC): GET RANDOM QUADRANT10300: 'NOW MAKE 'VPİ5000: VISUAL PROMPT K%0840: SPACE=EXIT"CSK1:FHQ%K%: USE KEY'S QUADRANT HERE[J10050: MESSAGEzM3000: LETTER IN MAGENTA.O1100: SOUND NOTE W2050: MARK QUADRANT GOTTEN.fhI1400:j2100: END OF PLAY MUSIC l2000: ERASE L*****  CIRCLE PRACTICE3%1600: DRAW CIRCLEX'Q%0: START WITH NO LETTERS UP.a*QD0,PL0: DON'T LOOP FOREVER IN PLAY MODE.-10000: PRESS ANY KEY /X1541900: GET KEYPRESS IN 'K%'9;Q%İ2000: ERASE LETTER>713: VISUAL PROMPT AND NEW KEYPRESS2ER2755\10750:1050: DELAY AND ERASE SQUAREQCQC1: BUMP QUADRANT COUNT.QC4ıER2710PL1:0:1510:1050:: ERASE SQUARE & FRAME, BACK TO PLAY MODE***************************10050:1000: MESSAGE & BOX01100: MUSICB10750: WAITY745: ELSE....q10200: 'THAT WAS'QCQC1: DO THIS ONE AGAIN. ERER1: BUMP ERROR COUNT. 10800:10800: DELAYQCQC1: BUMP QUADRANT COUNT.$ER1ANDOMIZE QUADRANT SEQUENCEBQ%LQ%(QC): SELECT RANDOM QUADRANThVPİ2200:1200: SQUARE PROMPT VPER1EP0İ2200:1200:EP1: SQUARE PROMPT10100:1900: WORD PROMPT AND GETKEY K%0ı: SPACE => EXITK%Q%730: ERROR200: NEW COLOR.$1000: BOX.. 71100: NOTE..=LI1400:l2100:END OF PLAY MUSIC 1050:ERASE LAST SQUARE  ******************************* BOX TEST...QC0:ER0:EP01500: BLUE FRAME1450: RUE CROSSBAR._Q%0: START WITH EMPTY SCREENL`10000: PRESS ANY KEY WbX15sl1900: GET KEY IN 'K%'}v936xQ%İ1050: ERASE SQUARE.{K%0645: SPACE=EXITSK1:Q%K%: Q IS INPUT FOR BELOW.10050: MESSAGE2H ONE KEY' 1900: KEYPRESS% A K%0460: SPACE=EXITR QD14İ1850c QD15İ1800l 420 9000: TRANSITION  W******************************** X BOX PRACTICE... \PL0: DON'T LOOP FOREVER IN PLAY MODE. ]1150: BLRCLE PRACTICE* JSK0İ900: CIRCLE TEST6 OPL310M T9000: TRANSITIONS ^n  WINDMILL ROUTINE... : CLEAR GRAPHICS SCREEN 13:20,16:6:19,2115:19,2117:19,16:21,16 I14:LC%(I)0:QZ%(I)0: QD0:QC0 10000: 'TOUCSK0:PL0: SK=> SKIP TEST; PL=> RETURN TO PLAY MODEN 600: BOX PRACTICEh SK0İ700: BOX TEST PL210: BACK TO PLAY MODE, IF NECESSARY 9000: TRANSITION : CLEAR SCREEN , CIRCLE ROUTINE..... 6PL0:SK0 @800: CIDSB i(16384)160Ĺ16368,0:115: SKIP TITLE PAGE IF SPACEBARh n20000: JUGGLERS AND TITLE PAGEx s16301,0: 200: BOXES 300: CIRCLES 400: WINDMILL 130: ... GO FOREVER.. EXIT WITH A '?'. BOXES ROUTINE... 6 IN INTEGER BASIC, CLOWNS AND TITLE-PAGE ADDED LATER.f * ******* REVISIONS BY LESLIE GRIMM ********n 2: 4VP(844): VP=VISUAL PROMPT FLAG, POKED BY HELLO. 0=OFF, 1=ON <100 F(16384)160Ĺ16368,0::115 H d50000: DIM'S AND REA`E 40000.791,32: ENABLE RESET TRAPXCOPYRIGHT 1982, THE LEARNING COMPANY ******* ABOVE BELOW LEFT RIGHT ******** ******* ERIC WEAVER ******** ******* VERSION 3 - 2 SEPT 81 ********5 ( ORIGINAL VERSION                                       THEN PRESS ." t40036 .";t40036(hNS0:I711: NS=NUMBER OF SLOT AjSLOTADDR49153256I|l(SLOTADDR)32ĭ(SL2)0ĭ(SL4)3ĭ(SL6)60NSInp:(4);"PR#";NSr34,20::"PLEASE BE SURE THE DISKETTE IS IN THE DISK DRIVE, AND THE DISK DRIVE DOOR IS CLOSED. R FLAG0JY20Y255ĉ::: RESET OR CTRL-C QTY0Y1640050: DOS ERROR^L(218)256(219): LINE NUMBER OF ERROR`34,20::"ERROR # ";Y;" IN LINE # ";Lb:"PRESS TO REBOOT.";dIN$:(IN$)140036f(IN$)1340036ETTE AND PRESS ."%:::U"TO GO BACK TO PICTURE MENU, PRESS ."g22:38:" ";IN$:(IN$)11512(IN$)271000(IN$)13151240040: FIND SLOT AND BOOT DISK? ** ERROR SUBROUTINE **@Y(222): ERRO /"3. ";:MUSIC48Ğ:"MUSIC";::"/QUIET"UMUSIC00ĺ"MUSIC/";::"QUIET":g19:15:" ";q117210:1:MUSIC(771): 48=MUSIC, 00= QUIET ** FINISH WITH DISK **:::8"IF YOU ARE FINISHED, PUT IN ANOTHER"::"DISKES, 0=WORDS ; "2. ";:VPĞ:"PICTURE";::"/WORD CLUES"h"VPĺ"PICTURE/";::"WORD";::" CLUES"z(19:15:" ";*1172w ** TOGGLE SOUND **x771,48:MUSIC48Ĺ771,00: TOGGLE SOUND 12:1:MUSIC(771): 48=MUSIC, 00= QUIET OP"( 19::"PLEASE CHOOSE:";::" ";1 IN$K IN$"1"IN$"5"1172v IN(IN$):IN1200,1300,1400,1190,1500 ::1000  ** RUN INSTRUCTIONS ** ::815:IN4:1030  ** TOGGLE CLUES ** 844,VP 10:1:VP(844): 1=PICTUR";:VPĞ:"PICTURE";::"/WORD CLUES"R nVPĺ"PICTURE/";::"WORD";::" CLUES" t12:MUSIC(771): 48=MUSIC, 00= QUIET v"3. ";:MUSIC48Ğ:"MUSIC";::"/QUIET" xMUSIC00ĺ"MUSIC/";::"QUIET": ~14:"4. PICTURE MENU" 16:"5. STL:: SECOND MENU" V48,37: %R X32,10:33,25:34,5:35,20: SET WINDOW Z0,392:0,393:0,3942:0,3943:4,430:4,4339:FRAME \5:6:"CHOICE PAGE" `:: b"1. INSTRUCTIONS" j10:VP(844): 1=PICTURES, 0=WORDS % l"2. IN$ IN$"1"IN$"4"1012C IN$"4"1100: SECONDARY MENUQ IN(IN$)y :::"LOADING:";::" ";NAME$(IN) :"USE '?' TO RETURN TO PICTURE MENU "; 1: 791,2: DISABLE RESET TRAP D$;"RUN";TI$(IN) K ** CHOICE PAGE ** = *NAME$(1)"RAINBOW":NAME$(2)"BUTTERFLY":NA$(3)"WINDMILL"Y +NAME$(4)"INSTRUCTIONS" ,TITLE$(1)"A/B":TI$(2)"L/R":TI$(3)"ABLR":TI$(4)"INSTRUCTIONS"  ** MAIN PROGRAM ** :815: MOVE MENU PIC IN :23::"PLEASE CHOOSE:";::" "; " 40000/791,32: ENABLE RESET TRAPU MENU FOR ABOVE/BELOW/LEFT/RIGHTCOPYRIGHT 1982, THE LEARNING COMPANY PROGRAMMING BY LESLIE M GRIMM PICTURES BY CORINNE GRIMM, AGE 1116368,0D$(4):(NAME$(5),TITLE$(5)     {{P{kk{ llfUfll`ى`{{k{{{{{ lf3cfUfc3flfllllfff{{{{kݙ f33fUf33f  ݙ `{kkkkk ffUff Аղkkk{k{ٙffllUllff``````&{k{{{{{ ݙf336fUf633fff`{{PP  cc U cc {kkkk&klPl  33kkk     KEYBOARD SET UP FOR //E*::7J:12:"KEYBOARD SETUP"::R:"To set up the keyboard, use blue strips""(Ribbon, Tagboard, Yarn, etc) about 1/2""inch wide. (see samples provided with" "the program) Blue strips a50 :7;"TO CHANGE PICTURE CLUES AND MUSIC FROM"i"INSIDE A PROGRAM, TYPE '?' (SHIFT AND ""/) TO GET TO THE PICTURE MENU; THEN""PRESS '4' (NEXT TO THE COLORED QUES-""TION MARK) TO REACH THE 'CHOICE PAGE'."401000TURE AND WORD CLUES."B"CHILDREN WHO CAN'T READ YET NEED PIC-"m"TURE CLUES, OR THEY NEED SOMEONE TO""READ THE WORDS FOR THEM.":"CHOOSE NUMBER 3 ON THE 'CHOICE PAGE' TO""SWITCH BETWEEN MUSIC AND QUIET IN THE""PROGRAMS."  1000% ** SPECIAL OPTIONS **0::7O12::" SPECIAL CHOICES "W::"PICTURE CLUES AND MUSIC CAN BE TURNED""OFF IN ";::" JUGGLE'S ";::" PROGRAMS. ON THE""'CHOICE PAGE', CHOOSE NUMBER 2 TO""SWITCH BETWEEN PICD /) TO END A PROGRAM.";D "YOU WILL RETURN TO THE PICTURE MENU."J { :"USE TO CYCLE FROM LESSON TO" "LESSON WITHIN A PROGRAM. THE LESSONS " "CYCLE FROM 'BAR' TO 'SHAPE' TO 'OBJECT'" "AND BACK TO 'BAR' AGAIN." 40IGHT ZONES ON THE KEYBOARD.""S"FOR THE ";::" WINDMILL ";::" PROGRAM,"p"USE BOTH BLUE STRIPS."x401000: BACK TO MENU ** SPECIAL KEYS/OPTIONS ** ::7 14 :" SPECIAL KEYS ":  :"TYPE '?' (SHIFT ANPLACE ONE END"="OF THE STRIP ABOVE THE TOP ROW OF KEYS,"j"AND INSERT THE FOLDED PART BY THE '6'""KEY. PLACE THE OTHER END OF THE STRIP""BELOW THE BOTTOM ROW OF KEYS, INSERTED""BY THE 'B' KEY. THIS WILL CREATE LEFT""AND RP"(RIGHT ARROW) KEY." R50):7T"TO PREPARE THE KEYBOARD FOR RUNNING""THE ";::" BUTTERFLY ";::" PROGRAM, USE A SHORT""BLUE STRIP OF TAGBOARD OR PAPER WITH""THE ENDS FOLDED TO FIT ACROSS THE""KEYBOARD VERTICALLY. THE SECOND AND"?D"THIRD ROWS OF KEYS. THIS CREATES ZONES"kF"ABOVE AND BELOW THE BLUE LINE ON THE"|H"KEYBOARD."J:"IF YOU ARE USING TAGBOARD, FOLD THE"L"ENDS AND TUCK THEM IN NEXT TO THE"N" (CONTROL) KEY AND THE < --> >"RIPS ARE USED TO"> "MATCH BLUE BARS ON THE MONITOR SCREEN"j "IN THE FIRST LESSON OF EACH PROGRAM."p x 50 4:7 >"FOR THE ";::" RAINBOW ";::" PROGRAM, PLACE A" @"LONG BLUE STRIP ACROSS THE KEYBOARD"B"HORIZONTALLY, BETWEEN0,4000"  ** KEYBOARD SET-UP **- ::7O :12:" KEYBOARD SETUP "::W : "TO SET UP THE KEYBOARD, USE BLUE STRIPS" "(RIBBON, TAGBOARD, YARN, ETC) ABOUT 1/2" "INCH WIDE. (SEE SAMPLES PROVIDED WITH " "THE PROGRAM.) BLUE ST. :::"SETTING UP THE KEYBOARD";:RM:"1"N :"SPECIAL KEYS";:RM:"2"q :"SPECIAL CHOICES";:RM:"3" :::"CHOOSE A NUMBER, OR"::"TYPE 'P' FOR PICTURE MENU "; IN$:IN$"P"10000 IN$"1"IN$"3"1032 IN(IN$):IN2000,3002::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: 32,5:33,30:34,4:35,20: WINDOW 48,30: ^ 4,430:4,4339: FRAME RM29: BYTE(760):BYTE09000 :7:"TABLE OF CONTENTS"RESS TO GO BACK TO TABLE OF CONTENTS. ";A )16368,0I *52q 223:"PRESS TO CONTINUE "; 316368,0 4IN$:(IN$)152 6IN$"?"ī10000: RUN PICTURE PAGE 8(IN$)1352 :  ** INSTRUCTIONS MENU ** :d M 40000/791,32: ENABLE RESET TRAPDD$(4): CTRL-DT:16368,0s INSTRUCTIONS FOR A/B/L/RCOPYRIGHT 1982, THE LEARNING COMPANY PROGRAMMING BY LESLIE GRIMM, MT. VIEW, CALIF 1000' ** PAUSE ROUTINE **3 (22:"P                K@0 L` LʝLԩB<C=> ? ,`xЍԍ؍I0<0'0"*΀΀L*΀hLu@Lu Lu8L̀L̀L̀(`   8LI2:22,2915012:30,3115/:2:26,3014@D2:26,2913RN13:30,3113aX12:32,13sb12:24,2712l2:28,12v13:29,311212:32,331212:24,271113:28,311112:32,331123,251013:28,1030221r25,2721 |3:33,21'2520,2220C25,2720U12:32,3320\2j20,2219x25,281912:32,3319220,291812:31,3318220,291712:30,33172:21,291612:30,3216 &6,829:28,8> 6,731:6,733:32,8:6,835:36,6:36,378O I11000:Iv 0:I48:19,37I:I: ERASE WORD}9I43261"23,30I,I61:24,2625@2:25,2724J25,2723T1:19,2122^2:25,2722h2:20,2,29 2,38, STANDING JUGGLERHAINABOVE:20100: NOTEY WORD ABOVE1:19,214:19,5:21,5:23,254:23,5:25,5:27,294:27,5:29,5:4,531:4,533:35,374:35,5  9:6,819:6,821:20,6:6,823:6,825:24,6:24,8:6,827:5318:6,831$(13:9,11316212:12,1331G<9:16,1731VF2:4,530eP8:6,830sZ13:9,30d2:10,30n13:11,30x3:16,18302:4,11295,10286,9277,8261:3,249,2016,231612,1535t1:18,35 ~4,34/8:6,734@12:8,1134Q9:12,1634^2:4,33m8:6,833~13:9,10331:11,339:15,17332:4,328:6,83213:9,321:10,3213:11,32 9:16,17322:4,12:8,1139 4:12,1639+ 1:17,39: 9:5,638K 12:8,1138\ 4:12,1738j1:18,38y9:5,73712:8,1137$4:15,1737.1:18,3789:6,836B12:8,1136L1:18,36V9:6,735`12:8,1135j9:21,41O I11000:I?P 0:I3943:1,21I:I: ERASE WORDPR 12:9,1643^\ 1:17,43of 12:8,1642}p 1:17,42z 3:3,41:4,41 9:5,641 12:8,1641 9:5,640 1:17,41 12:8,1640 1:17,40 9:5,639  K BELOW WORDoL 2:1,339:1,40:3,40:5,739:5,40:39,409:13,1539:13,40:15,40:39,4017:39,4021M 3:41,431:41,433:2,41:2,43:41,435:6,41:6,743:41,439:10,1143N 41,4313:41,4315:14,43:41,4318:41,4320:17,41:19,42:000: BOXSEQUENCE % $ MODECHī24009 . MODEERRī2300L ` 2: DARK BLUEd j 6800: FILLSCREENj ~ 8000: RAINBOW SEQUENCE 12: LIGHT GREEN 6800: FILLSCREEN T 2100 H SITTING JUGGLERJ AINBELOW:20100: BELOW NOTEE >MODECHī2200H HMODETEST:24000:6000: MUSIC AND BAR SEQUENCE[ RMODECHī2200o \MODEERRī2100 9: ORANGE 6800: FILLSCREEN   BOX SEQUENCE  MODEPLAY:7000: BOXSEQUENCE  MODECHī2400  MODETEST:24000:72: DARK BLUE ) )RB(0)3: PURPLE A *RB(4)9: ORANGE  ********* MAIN LOOP ****************************************** 200 5500: JUGGLER SEQUENCE 1998:16301,0: 34,20: SET WINDOW 4MODEPLAY:6000: BAR SEQUENC* VARIABLES **- ABOVE1:BELOW2:SPACEBAR3V PLAY1:TEST2:ERR3:CHANGE4: MODESx RC(5): RANDOM COLOR VECTOR 5100: INITCLASS $RB(5): RAINBOW COLORS %RB(5)1: RED &RB(3)13: YELLOW 'RB(2)12: LIGHT GREEN (RB(1) D$(4)# MD(A)A6((A6)): ME(A)A3(A3)D 21000X dWA1200:WA:l WA1400:WA: WA1600:WA: (16384)160Ĺ16368,0::2030: SKIP TITLE PAGE IF SPACE BAR (16384)160Ĺ16368,0:::2030   *I 40000.791,32: ENABLE RESET TRAP@ ABOVE/BELOWjCOPYRIGHT 1982, THE LEARNING COMPANY ORIGINAL PROGRAMMING BY WARREN ROBINETT REVISIONS BY LESLIE GRIMMVP(844):VISUAL PROMPT FLAG, SET IN HELLO & MENU. 0=OFF, 1=ON                              ՀЪՀժժՂժժժU**U*U*U*UZժժժ ԀժժՀժժժժU*U*0@}0 բѨĨŨԪՂ{cxP*UjU*Ђ*U*U"D)ժժժժժժժժըъ`ЂժU*U*U*U*UZժժժՊЪB@\;\@ UԀ*U*UժЪժժժժՊЪՂ UT**U*U( U*"">>""ժժЪժT*(U*U*u:u:U:U:U:U:U*W*U:u:u*Wzu:u:u:u*U*"""" "" ЪժЪP*U*e?e?e?e?y?y?e?U*U*Y2Y2e/Y2y?e?Y2U*U ժՂЪբժժՂժժժU**U*U*U*UZժժժԀժժՀժժժժU*U*0@9`բѨԪՂ9 cCP*UjU*Ђ*U*U"D",ժժժՀРЊpNgnЂժU*U*U*U*UZժժժԊ< UԀ*U*UժЪժժժժժՊ  UT**U*U( U*""""""ժժժЂժժժժ*U*ժժպպպպժתպ׺""" ""Ђ*ЪժЪT*P*U*u2u2y2y2Y*Y*u2U*U*Y,Y2+Y2Y2u2y2U*U ժՊЪժժժժժ*U*U*U*UZժժժЪժժժժU*U0@բՠЂЪՊ U*U*Ђ*U*U"D)ժժժ0@AբѨԨłԪBcs P*UjU**U*U*U*UZժժժЊ(Ԁժ*U*ЪՀժՊբժժժ@ UU**U*UՂ(Ъ"""""ժժժЂժժժժ*U*ժժպպתպݪ׺<<" <"Ђ*ЪժЪT*(U*U:u:u:u:u:U:U:u*U*U:]:u*W:u:u:uz}*U*ժժԪժժժժժꪅ*U*U*U*UZժժժЪժժժժU*UU*U*U*UZժժժ 0@Ԣժժժժժժժ Ђ U*U**U*U",ժժժ0@AբѨԨŢժ Cc0c P*UjU**U*U"DRժժժ@(Ԁժ*U*ЪՀՊԀժժժ<`];0H2pLEe@HV UU**U*UՂ(Ъ          ЪժժժժU*UU*U*U*UZժժժ""ժժժЂժժժժ*U*ժժתߺ0@AբѨԨłժCc0 &P*UjU**U*U"DXժժժժժժժժՂՀp@ժժꪅ*U*U*U*UZժժժՂՊԪժժB@PP H&EU U+U UU**U*UՂ(Ъ@0HԢժժժժժժժЂ U*U**U*U D)ժժժ  Ђ*ЪժЪT*(U*U*u:u:}:}:U:U*u*U*U:Wz*W:}:u:u:w*U*(Ԁժ*U*ЪP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U ЪЪЪժժժժU*UU*U*U*UZժժժ ժժժЂժժժժ*U*ժժߺߪתߪߺߺ0@AyբѨԨŀԪCc0| P*UjU**U*U"DRժժժժժժժժՂԀ`@ժժꪅ*U*U*U*UZժժժՂժЪժժZ@PP H*JUU T+V UU**U*UՂ(Ъ@oТժժժժժժ`Ђ U*U**U*U",ժժժժժЪժT*(U*U*u:u:U:U:Uz_j_*U*Uz_:u*W:wz_:u:w*U*ЪժЪP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U ЪЀԪՂժժժU*U*U*U*UZժժժ ԀժժՀժժժժU*U*ժժժժժժժժժժժժժժժժժՂᦕ0@AբԨŨԪCc0` CP*UjU**U*U"DXժժժժժժժժըт`ЂժUꪅ*U*U*U*UZժժժՊժժԪJ@\;0 H1lLc H3 UԀ*U*Uժ(ЪРժժժժՂժЂ UT**U*U D) U* "<ժժЪժT*(U*U*u:u:U:U:Uz_j_*U*Uz_:u*W:wz_:u:w*U*<"<<""ЪժЪP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U ЪԂժՂժժժU**U*U*U*UZժժժ ԀժժՀժժժժU*U*ժժժժժժժժժժժժժժժժժ⧤0@cբըԨŨԪՀCc`P*UjU*Ђ*U*U"D",ժժժժժժժժըт`ЂժU*U*U*U*UZժժժՊԪЊZ`T"H  UԀ*U*UժЪժժժժՊԪՀ UT**U*U( U*"<" ""ժժЪժT*(U*U*u:u:U:U:U:U:U*W*U:u:u*Wzu:u:u:u*U*"""""" " ЪժЪP*U*U/U?U/U/y?y?U/U*U*Y2Y2e/Y2y/U/Y2U*U L " Ђ*ЪժЪT*(U*U*u:u:}:}:U:U*u*U*U:Wz*W:}:u:u:w*U*(Ԁժ*U*ЪP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U :(4);"PR#";NS(4);"RUN MENU"G 0u104,64:103,1:16384,0: RELOCATE PROGRAMS TO $4000_ :u:(4);"RUN HELLO"u @ REBOOT IF ERROR hNS0:I711: NS=NUMBER OF SLOT jSLOTADDR49153256I l(SLOTADDR)32ĭ(SL2)0ĭ(SL4)3ĭ(SL6)60NSI n p769,160:770:768,85:769,80:770:768,64:769,255:770> hV  TLC HELLO PROGRAM\  (4);"BLOAD PIC.JUGGLES RAINBOW,A$2000" 16300,0:16302,0:16297,0:16304,0 I15000:I ::::10:"LOADING:";::" PICTURE MENU" 1:ON 80 COLUMN CARD IF ONE IS PRESENT AND TURN IT OFFm (4);"BLOAD PLEASE CHOOSE.LPIC,A$800": MENU PICTURE (844,1: FLAG SETS VISUAL PROMPTS AS DEFAULT 21000 > d768,85:769,80:770:768,64:769,160:770:768,85:769,80:7708 f768,102:GHTS RESERVED; :::(4);"BLOAD MUSICRESETMOVE400<800"b 1010,23:1011,3:(3)250Č1169 (4);"BLOAD A//E ID @ $8000.S.OBJ0":32768:BYTE(975):760,BYTE: RUN APPLE ID CHECK AND SAVE RESULTS3 BYTE64BYTE128ĺ(4);"PR#3":(21): TURN  40000L(104)64(103)1(16384)030000: RELOCATE PROGRAM HELLO FOR ABOVE/BELOW/LEFT/RIGHT (JUGGLE'S RAINBOW) RAINBOW OF LOGO BY MICHAEL MC.CORMICK; REMAINDER BY LESLIE GRIMM COPYRIGHT 1982, THE LEARNING COMPANY, ALL RI