' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>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_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(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ޢ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢ`xJ W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'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&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # 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:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄʄHIHHHHhHH݌hHh݌H6 EjNWbՑ]mAp񩠅aL92DWbr:# LINE# > .STRING. .OLDSTR.NEWSTR. SOURCE FILE<#> # p 8e  Lȱ7 ) LhhLB  H>ȥ')>JJJ >`+*xS&x'8*3Ixix&& 8 l {' o {& {x)*++`FG8`0($ p,&"USEDBY (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>aI꽌ɪ򠚽ɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)Ƣ2>&JJJȱ>'JJJ3ȱ>*JJJfȱ>J&*J&'J&&ȱ>J&*J&'J&*)')3*)f>)JJJ`80|'x&Hh &    Y'&Yxꪽ'    `Hh` ĠzŠՇƠҠΠàԴȠҸҰϠ ՠŠŠΠɠҠŠӠϠӀà̠€ՁࠠƠγƠҠӠӻƠ̠ŀՠȠϠŠԠٿŠōȠĠՠſĠĠԠӍԍŠDӝ"$ΠՠŠՠŰՠŰŠĠԠԠՠ ȠԠҠ̠ƠŠҠϠՠŠ+RRĠՇؠƠԠՠNàҠƠҠԠՠΠzӠŠՠ͠ȠŠŠƠ͠ƠԠDzՠŠŠՠԠҠǠҠ ԠՠӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҬƠŠǠӍӠ٠٠ϠŠčӠōeʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx  $(,048<@DHLPTX\`dhlptx|  $(,048<@DHLPTX\`dhlptx|  $(,048<@DHLPTX\`dhlptx|  $(,048<@DHLPTX\`dhlptx|  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~x  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     / A K /EAEKHJJ݌h F HhHh݌FG$Ki K ,KLHhG02HhHhHh e- GLAA# GȄGL@L9L7HJJ݌h Hhꝍ݌`  7H/LHH/Hh/ ۠-HЕ( ( $8 H` jH"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((() h"X=";X;" Y=";Y;" AD=";AD7 rADX(XS7),(SD)C |SDSD1J XQ YX:300451 quA$"Z"EE1:E15E15:LL1:30045i ruA$(13)ĢE:"";L$(LE1):(L$(LE1))40ī30066| suA$"S"İ20000 tuA$"Q"ı vuL1L1 wuA$"A"A$"Z"ĝ:OE:L$(OL);: xuA$"A"A$"Z"Ğ:E:L$(LE1);:30046 yuA$"A"A$"Z"Ğ:E:LEN LEVEL1A"% *N(4);"WRITE LEVEL1A"1 4NI150< >NL$(I)C pNIU zN(4);"CLOSE"[ Ng 0uL1:E5o :u:} DuILL20 NuL$(I); XuI ]u:E:L$(LE1); ^uOEE:OLLE1 bu23:"A-UP Z-DOWN CHANGE":A$ luA$"A"EE1:E1E1:LL1L$(200) '(4);"OPEN LEVEL1A"9 '(4);"READ LEVEL1A"L 'I150:L$(I)S 'Ie '(4);"CLOSE"q 'I124 'I:1:""; 'I:39:""; 'I * .LL1:L201LVLV1:13000:L1 .23:1:L$(L); .912 . 8J N %N(4);"OPJ0G160J1:JC5:XC1, A$"E"İ30000= A$"A"YC0S PXPXXC:PYPYYCb PX1PX1q PY1PY1 PY12PY12:12000: SCROLL J1JCJC1:JC0J0:XC1 ,PY:PX:"O"; 610 ' t'PX10:PY5 ~'PY:PX:"O"; ' 'S :4 "EDITOR FOR SHAPES FOR DEC 1984 BYTE"K"RICHARD JACKSON"\2XS100:YS50ddA$jnwSL20864ROWS(SL)DOTS(SL1)BYTES(SL2)SDSL3,Y1ROWS16X1BYTES ^AD(20480YYS)((20480192YYS)256   ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP h1 "BILL BUDGE PRESHIFT TABLE GRAPHICS"7"I'VE PROOFREAD THIS COUNTLESS TIMES, AND FINALLY GOT IT TO WORK!"(2"HAVE CAPSLOCK ON AND USE I,J,K,L TO MOVE THE ARROW AROUND, AND SPACE BAR TO STOP MOVEMENT"<1 P:"I GOT THE !  _/D49T>tTx? H?Hm q[,{G@T}7>}?@8|?`Q ? Tk#  ro~wp dn~w_m] zoo_{UR @6jU! 5}w? nk{}w'@ ~S`~we@@@q0&#&3c}D@~?#|[^-Z c{W/ Iq?>w %zwsw 4 @A}w{5 yw<}f:~_ bgvwN!Tz_x"p[W?U = @h?2  t@\"@ KZ=[s h @@hVs{s)W6/l?uJ|_pX  z??   @x bx@*!"`@${v@pq^>Hhg}_o$P a.?o/Oo"`~"!v0  @@8O25c=0x{_ _aCDS?|}{}} V@|}?~?}'@\w@ D0jm}gnUs/{;c |  ut{~?D_8LZw{r?3^xO w_Z @1~;}{Gv|gm;>1@ T^OgOgggkHm 4+:_{NqD~n}k @t)lz#e_c~f_k" @|_AP)"@d?k{??@p !p/J` t? @@zgz@`o?6v 0zQVm}@;|O!M H @@@@~~/ @6Gz9$}kwW)F@*y_(w}?{~X?>A@|o&8 [?!@/?]_l C PG rMz}H{'{ys5"_@3hF0X>? K?/8@xx{ H@`g.2@D+06[^ +^p @TnxLE1)vuA$"V"L$(LE1)C$*u300107vL1L1ZvA$"A"A$"Z"ĝ:OE:L$(OL);:vA$"A"A$"Z"Ğ:E:L$(LE1);:30046vA$"A"A$"Z"Ğ:E:L$(LE1);:30046 P(I) XuI]u:E:L$(LE1);1^uOEE:OLLE1Ybu23:"A-UP Z-DOWN CHANGE":A$luA$"A"EE1:E1E1:LL1:30045quA$"Z"EE1:E15E15:LL1:30010:ruA$(13)ĢE:"";L$(LE1):suA$"S"İ20000tuA$"Q"ıuuA$"C"C$L$(I *, .LL1:L201LVLV1:13000:L1? .23:1:L$(L);I .912O .U 8J[ Nr #N"LEVEL NAME ";LQ$ )N(4);"OPEN ";LQ$ *N(4);"WRITE ";LQ$ 4NI1200 >NL$(I) pNI zN(4);"CLOSE" N 0uL1:E5 :u: DuILL20NuL$(LQ$,1,5):DQ$:DQ$"WORLD"ĺ"MARIO BROS":33,17H '(4);"OPEN ";LQ$^ '(4);"READ ";LQ$r 'I1200:L$(I)y 'I '(4);"CLOSE" 'I110:I:" ":I '1:1:"!!!!!!!!!!!!!!!!!!" 'I124 'I:1:""; 'I:39:""; '00 5OXPXOYPYī90) :OY:OX:" ";1 D10X GX1,(Y1)2)16X1,(Y1)21)^ d 'j ' t'PX10:PY5: PLAYERX,Y y'XG1:YG0: X AND Y VECTOR FOR GRAVITY ~'PY:PX:"O"; ' 'L$(200) '"NAME OF LEVEL TO LOAD ";LQ$2 'DQ$C:700: CHECK NEXT SPOTJ JG160PXPXXC:PYPYYC:220: NEXT SPOT OKU TXC1:o 220: DONE JUMP (16384)127ľA$ (16286)127J0G160J1:JC7:XC1 YC0 A$"Q"YC1 A$"Z"YC1 &A$"A"YC0 0A$"E"İ300C:700 G160ī500J PXPXXC:PYPYYC: GRAVITY ADDED, NOT JUMPINGY PY1PY1 PY12PY12:OY:OX:" ";:12000:OY:OX:"O";: SCROLL 500: SKIP JUMP CODE, GOTO INPUT * + JUMPCODE ,JCJC1:JC0J0:XCXG @XPXXC:YPYY $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? ~cjo]]Qt4h_??5 1`ps^~o7{+2~OA`  9<}ob+x |~?(@H\wz~6#$@~~ U,oo~_O_ea P} G xz~}{ @>HG~f  ~_vHBv_! u@Dg^8b^reX@SA/_?@p'~?K$@x ~> 8 HskdBGz]@@ {>@BVAb~cv`  @8?B`@{ "!^/h/owW[7BHdElVs^q+Ov8~Y+@^}~?@Jp?Q|Cj}P|@@ _}@ N\?X N~y?+@ PcE{}o|9q d~z_}nO!H,;)V_?oU7)\oo?? @ @@Mh0k~n=?{u t'  0PLnyw`}~#|?.~  %h no?~ ^m{o}~;0x~m# P$ig};R_?.yQ; %jS=ywsK}$ "@w_Pa5~9U._/3* }wi @`|is>/~^}@q}A d]dAxowwww?`4@@~zwMq~fA~_& ,A@w `NfY ! z?ez(Xz_xU=t|?!0{}q#,D^j}?bh4d 0@H@t{SW{$.]+n0H}O ! DHb~_` ,>?BD@hy(p~Yw7@T"l70 1>~/"R_!@ P}AP_(@{D0~{ 4a: |=1jk~ 8|w~0046 bu23:"A-UP Z-DOWN CHANGE":A$MluA$"A"EE1:E1E1:LL1:30045xquA$"Z"EE1:E15E15:LL1:30010:ruA$(13)ĢE:"";L$(LE1):suA$"S"İ20000tuA$"Q"ıuuA$"C"C$L$(LE1)vuA$"V"L$(LE1)C$u300103);:3 8J N- $N"name of LEVEL to save ";LQ$C %N(4);"OPEN ";LQ$Z *N(4);"WRITE ";LQ$g 4NI1200r >NL$(I)y pNI zN(4);"CLOSE" N 0u edit level 5uL1:E5 :u: DuILL20 NuL$(I) XuI ]u:E:L$(LE1); ^uOEE:OLLE1% X AND Y VECTOR FOR GRAVITY% z'XC17 ~'PY:PX:"O";= 'J 'L$(200)l '"NAME OF LEVEL TO LOAD ";LQ$ '(4);"OPEN ";LQ$ '(4);"READ ";LQ$ 'I1200:L$(I) 'I '(4);"CLOSE" 'I124 'I:1:""; 'I:39:""; 'I *C0 0A$"E"İ30000+ 5OXPXOYPYī90= :OY:OX:" ";E D10l GX1,(Y1)2)16X1,(Y1)21)r  (# scroll level 2#LL1:L201LVLV1:13000:L1 <#23:1:L$(L); F#912 P# ' t'PX10:PY5: PLAYERX,Y y'XG1:YG0: 1: DONE JUMP! PY1PY1\ PY12PY12:OY:OX:" ";:9000:OY:OX:"O";:SCROLLb k  w  input}   (16384)127ľA$ (16286)127J0G160J1:JC7:XC1 YC0 A$"Q"YC1 A$"Z"YC1 &A$"A"YC0: STOP FALLINGH PXPXXC:PYPYYC: GRAVITY ADDED, NOT JUMPINGa 400: SKIP JUMPCODEh * } + JUMPCODE, j=1 ,JCJC1:JC0J0:XCXG @XPXXC:YPYYC:700: CHECK NEXT SPOT JG160PXPXXC:PYPYYC:220: NEXT SPOT OK TXC! (4);"BLOAD YLOOKUP,A8192"A(4);"BSAVE LO,A8192,L192"QA18192192s(4);"BSAVE HI,A";A1;",L192"d(4);"BLOAD HI,A8192"n(4);"BLOAD LO,A";A1x(4);"BSAVE HIRES1 TABLE,A8192,L384"X ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP DRIVE IS "DR140,10,3,96 Z768 d8 n NOW GET THE IOB ADDRESSS x & CONVERT TO DECIMALY s IOB(778)(779)256z "LAST" SLOT # AT IOB+15 "LAST" DRIVE# AT IOB+16 SL(IOB15)16 DR(IOB16) "CURRENT SLOT IS "SL" AND  :- THIS PROGRAM DETERMINESK( THE ADDRESS OF THE DISKj2 INPUT/OUTPUT BLOCK (IOB)< AND THEN USES THE > ADDRESS TO DETERMINE @ THE CURRENT SLOT ANDB DRIVE IN USE.FX09:A:768X,A: P 32,227,3,141,11,3,  @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? TABLPAK,A$4000"-  D$;"BLOAD TRY,A";IMAGTBL4 & : 0 PX D$;"BLOAD LISTING3"w D$;"BLOAD TABLPAK,A$4000"  D$;"BLOAD TRY,A";IMAGTBL & 0 ,C8IPHI :16302,03 --SWITCH TO HIRES PG19 ? V | q LOAD FILESg SUBROUTINEm  IMAGTBL20864 --ADDRESS OF TABLE --CONTAINING IMAGE --TO BE MOVED D$(4) D$;"BLOAD LISTING3" D$;"BLOAD Y1IROWS6%  --ADDRESSEMF DATA<  --NEEDED BY ASSYU  --LANGUAGE ROUTINE[ q t IROWS,(IMAGTBL) ~ IDOTS,(IMAGTBL1) IWIDTH,(IMAGTBL2) IPIMAGTBL3 C8IPLO(IP256) C7IPHIIP256C8IPLO IBITS,C7IPLO IBITS15 HC5YMIN5:C6YMAX1755 R --BOUNDARIES OF IMAGEP \ --MOVEMENT ON SCREENV fi pCODEADDR21008 z --ADDRESS OF MACHINE  --LANGUAGE SUBROUME  IROWS20992 IDOTSIROWS1 IWIDTHIROWS2 IBITSIROWS3 X1IROWS5 YMIN(YPSNYINCR)C6YMAXYPSNYPSNYINCR6 X1,XPSNC Y1,YPSNQ CODEADDR_ A$"Q"ijh 530n *} DOTSMOVE2 XPSN100:YPSN100 C1THRLO100:C2THRHI150  --THRESHOLD VALUES * --FOR JOYSTICK INPUT 4 >C3XMIN5:C4XMAX23< 300020008 IF PEEK(-16287)>127 THEN 820O:(16384)127ľA$e?A$" "XI0:YI0wDA$"J"XI2NA$"L"XI2XA$"I"YI2bA$"K"YI2(XPSNXINCR)C3XMIN(XPSNXINCR)C4XMAXXPSNXPSNXINCR) (YPSNYINCR)C5 aI꽌ɪ򠚽ɭ&Y &&Y &  꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`*x'8*xx  ')  x) `0L>` x Nx e.x-  ,`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')>JJJ >`> ?  ? JJJ ?`l (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<  XM  3 jɍ!ɱɸ) 2 C  `L ҠԠٍԠŠҬîԠϠԠ͠Խ     D$;"BLOAD LISTING3"2 D$;"BLOAD TABLPAK,A$4000"P  D$;"BLOAD TRY,A";IMAGTBLW & ] 0 IPLO IBITS,C7IPLO* IBITS1,C8IPHI: :16302,0V --SWITCH TO HIRES PG1\ b y | q LOAD FILES SUBROUTINE IMAGTBL20864 --ADDRESS OF TABLE --CONTAINING IMAGE --TO BE MOVED D$(4) IBITSIROWS3 X1IROWS5. Y1IROWS6H  --ADDRESSEMF DATA_  --NEEDED BY ASSYx  --LANGUAGE ROUTINE~  t IROWS,(IMAGTBL) ~ IDOTS,(IMAGTBL1) IWIDTH,(IMAGTBL2) IPIMAGTBL3 C8IPLO(IP256) C7IPHIIP256C8 INPUT 4$ >C3XMIN5:C4XMAX235< HC5YMIN5:C6YMAX175X R --BOUNDARIES OF IMAGEs \ --MOVEMENT ON SCREENy f pCODEADDR21008 z --ADDRESS OF MACHINE  --LANGUAGE SUBROUME  IROWS20992 IDOTSIROWS1 IWIDTHIROWS2MAXXPSNXPSNXINCRR (YPSNYINCR)C5YMIN(YPSNYINCR)C6YMAXYPSNYPSNYINCR_ X1,XPSNl Y1,YPSNz CODEADDR : 530 * DOTSMOVE2 XPSN100:YPSN100 C1THRLO100:C2THRHI150  --THRESHOLD VALUES * --FOR JOYSTICK_ 300020008 IF PEEK(-16287)>127 THEN 820G:XVLUE(0)VDYVLUE(1)lXINCR1DOTSMOVE(XVLUEC1THRLO)DOTSMOVE(XVLUEC2THRHI)vYINCR1DOTSMOVE(YVLUEC1THRLO)DOTSMOVE(YVLUEC2THRHI) (XPSNXINCR)C3XMIN(XPSNXINCR)C4X    REQUIRES THAT THE FILE"N :QUOTE$"BOOT13"QUOTE$" BE PRESENT ON THIS DISK"Z BEL$: "PLEASE CONSULT THE DOS 3.3 PROGRAMMING" :"MANUAL FOR ERROR #"(222) BEL$:  2000:*D$(4): CTRL-D C!QUOTE$(34): QUOTEe$BEL$(7): CAUSES BELL SOUND(10::A$"EXECUTING BOOT13":1000:2D$"BRUN BOOT13" CENTER STRING A$(20((A$)2)):A$:10:(222)6ī2040 "THIS PROGRAM z#????? ŮҲԠ"ǶIJ ӱŠǶĠР Ҡ Ϡ ɠ ŮҠ dzǵĠ ϲ ˠ ǶЮŠ Р  ԠŠ Dz Ǵ ַŠԠ ǵ٠ !Ա"ΠԱԱԣ ǶĠDZ ٠ ٮʰ ΠҠ͠ ĠϠԠҮʰà*à*ҠҠŠ A$"Q"ı vuL1L18 wuA$"A"A$"Z"ĝ:OE:L$(OL);:c xuA$"A"A$"Z"Ğ:E:L$(LE1);:30046 yuA$"A"A$"Z"Ğ:E:L$(LE1);:30046 u30010 @10000: LOAD JI049 TCH140 ^8192(I50)CH,((L$(I),CH,1) hCH rI P IuH XuI# ]u:E:L$(LE1);5 ^uOEE:OLLE1] bu23:"A-UP Z-DOWN CHANGE":A$ luA$"A"EE1:E1E1:LL1:30045 quA$"Z"EE1:E15E15:LL1:30045 ruA$(13)ĢE:"";L$(LE1):(L$(LE1))40ī30066 suA$"S"İ20000 tu2000LV,CT .LV .912# .) 8J/ NH %N(4);"OPEN LEVEL1A"b *N(4);"WRITE LEVEL1A"n 4NI150y >NL$(I) pNI zN(4);"CLOSE" N 0uL1:E5 :u: DuILL20 EuH039 FuCC8912((I1)40)H GuCD(CC):CC$(CD) HuCC$; RUNNING LISTING6 MOD......"; Z"PRESS RETURN ";A$X d(4);"RUN LISTING6 MOD">>??  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==>>??  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==   ||rCpspBp yy!|{zz;w^^~__WWWW]7 pr {zAl I //?//?;///?o;?  RRRmRRRNRORRi@RiRmRNRORRRRRRRRRRPmR@PARRGR@RRR@YR-RQ@LRR@@YR-RQ@@RRmRRRR`?~|xp`@3SCALEOUT)C4SCALNW ' BYTEBSVE>  restore originalR  value of byteX (m < end subroutines Py dBTE128SIGNBIT1:BYTEBYTE128:1140@ 8 (else if byte < 128)N LSIGNBIT0i V (and byte unchanged)o ` tSOUT(BYTEC3SCALEOUT)  find shiftout bits  by cutting off right  most (7-shf) bits  SSTAY128SIGNBIT(BYTESOUTCf program l  subroutine to split an arbitrary 8-bit value into its components; see text for details SHF0SOUT0:SSTAYBYTE:1380  the following code  done if shf > 0 C3SCALEOUT2(7SHF) C4SCALNW2SHF BSVEBYTE% $BY::CURRTBLBYTE,SSTAY8 ::CURRTBLBYTEBIGINCR,SOUTU  store values in tablesa ::":";l :BYTEu SHF{  4 save tables as one large disk file p(4);"BSAVE PRESHIFT TABLE,A";BGNTBL;",L3584" z:"table saved to disk"  end oBYTEVL255  main loop d :"creating preshift table (this will take several minutes) ";x SHF0C1MAXSHF :CURRTBLBGNTBLSHFTBLWDTH :BYTE0C2MAXBYTEVL ::1000  calculate shiftout and shiftstay values from shf and byte {BGNTBL30720S address of start of table; must be evenly divisible by 256eBININCR7256 distance from beginning of shiftout(sout) to shiftstay(sstay) tables,TBLWDTH2561 distance between any two tables@C1ZMAXSHF6 TC2MAX   1980,1982":1000O ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:f n(4);"RUN HELLO2"}  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$: B:A$:  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASIC P10:958:A$"COPYRIGHT APPLE COMPUTER,INC.  @w>{z^Ckc{{z_m}~}==}==?)/W{}l }wg=ww}======o}=kCv]  |{{z;w^^___WWWW]7Q*D$$"%wsz{^^^^^^^w~^H] ] ) 1)J$% |rsssprsyxyy@w>{zz^{zz{ U|{{zz_]}======?&/W~t~C=CACCA@=wu-{ AC;w^^a_PDqnEn"8s{z~a^a`aa@@`(`A{zz^{zz{{w{{zz=}C=ACCA?o0???xuuzI0255 6:QVL(I7)( @:RVLIQVL7; JQUOTBGNI,QVLN TRMDRBGNI,RVLU ^I (4);"BSAVE DIV7 TABLE,A";QUOTBGN;",L512" :"table saved to disk" d"n divide by 7 quotient<x and remaindertablesBZ by gregg williamsn 24 april 1984tQUOTBGN16384 points to memory area used to store tableRMDRBGNQUOTBGN256:"creating div7 table..." ,  ?6Mr`%_dc9_d2e@p(ŠŠӠˠӠ)\d2e da@E()]ҠǠ!q8;@rr`%q Pa@[?[ KM6N@"(r@p()]̭o@p(Š)\1(o@p(ӠΠ͠)\"2o@p(٠)\<a@E(ĠҮʰ)FM@Po M6@p(ԠŠҬî)\Zq.  @0{{nAaaa?XWWW7x4*($X!%A[BO_~@@`@~wp`I E):W'Jd /////?;///?o;? TB@@PB  @w>{zz^{zz{U|{{zz_q}}=AC=A?//z2zn}okK }?xwW=ww}}====}o}=@ pr@{{zWw^^^_WWWWWw]7qfDd$"%w|kz7_~^^^^~w~^I E) Q)J$% 0pp0`?`pp0?`   C@@0B  $$$$@  !!!!!!!"""""""#######ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ    ٹHH ޥ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 $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`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Іșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE(oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL               ٹHH ޥ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 $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00            ~c=CC=CC=?opzzzn}ook }ww=ww}======o}=z}?xwwuz@A~ @ w{z{^^^^^^^w~^I A CHANGE":A$ luA$"A"EE1:E1E1:LL1:30045 quA$"Z"EE1:E15E15:LL1:30010:ruA$(13)ĢE:"";L$(LCLOSE" 'I124" 'I:1:"";3 'I:39:"";: 'I@ *d .LL1:L201LVLV1:13000:L1w .23:1:L$(L); .912 . 8J N $N"LEVEL NAME ";LQ$ %N(4);"OPEN ";LQ$ *N(4);"WRITE ";LQ$ 4NI1200 >NL$(I) pNI zN(4)zzzn}okk t=t}C====Co=ED TO DISK" l' QQ$QQ$" ND9C6G"U "QQ1(QQ$):511QQ,128((QQ$,QQ,1)):f '"63015";DF$v ,72,0:144 1"63025";DF$ 6d$:"creating tablpak...."-TBLSIZ329D$(4)_D$;"BLOAD PRESHIFT TABLE,A$4000"D$;"BLOAD DIV7 TABLE,A$4E00"D$;"BLOAD HIRES1 TABLE,A$5000"&(4);"BLOAD TRY,A$5180"bD$;"BSAVE TABLPAK,A$4000,L";4480TBLSIZ g:"FILE SAVӠ)GR@ M6[)GR@ M6[1R@ M6[`R@ M6[ [ź)Gqq\[Fq.?6@r`$d6?e`$q`$q"PbE()["d2e?Pa(Ԡ)G[ `%[ `%[M6`@*#r9()%c1a(Ԡ)E@E(ˠĠ)hod2ed6?ecS(ϠՠȠϠŠҠٿ)&@`;@r$`@*#r9()$`@*#r:()$KM6M ZQHcPa@E(Ժ)Gqq\bGd2e\de[@\bGd2ePa(@p()\]ԠР5ToPd2e?a()Gd2ea()G^M]ŠhoPa()r`.?r$9|od2e?a(ŠϠŠ)_3od2e?a(ŠϠĠM]Ġ`.?r$]ҡoPa()`.?r$"`$J]ԠԠ&,@p()\]ԠР/6oPd2e?a()d2e5@a(Ԡج)FE()FE()F.?rq_T&Ja()oPa()0Mdedededeod"e M62a(ӠΧ٠ϠΠ٠)GR@ M6'@p()\]ԠǠ*oPd2e?a()d2eŠˠΠ)ccxMq.?rde.?r]de.?r]@@p()qq\qq.?r\qq4@p()q\qq\q q2oP  K]]ˠ٠(]Ԡ٠2]ŠҬî<]F]Za(Ġٮʰ)]ð dN@"r=nN@"(rM6a(       @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` @` 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx  $(,048<@DHLPTX\`dhlptx|  $(,048<@DHLPTX\`dhlptx|  $(,048<@DHLPTX\`dhlptx|  $(,048<@DHLPTX\`dhlptx|  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~@  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~    `LH =<``+=h<<ȭJJJJ<`LLL <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? ||||||\ ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/$$$$>>??  !!!!!!!"""""""#######  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==>>??  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==  D PRESS RETURN";:" ";DK$#936)C$8936>C";DK$Y936_ADK$t936z):K128330:16368,0:K141340:KK176:KLKH330:NKSO16368,0:K141340lPKK176:KLKH330tQNKT20:N;" ":^:22:"DEFAULT = ";:hMSSSırMDSDıw:(DK$,1)"D"ĺ|"INSERT ";DK$;" DISK AN19::16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300Z '(I$,1)"Y"160p ,(I$,1)"N"290 1::672:70,70: 6:1:I$;" SLOT: ";:L1:H7:350:N;::30:330: @350:N;::4:" DRIVE: ";:L1:H2:330::JK(16384DK$"DUPLICATE":360: GET DUP DISKH 8:24::"WRITING";::" "a 710: WRITE A HUNKw 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"E " ERROR!, 5:24:" ":(713)1290G FT255: NOT FIRST RDo DK$"DUPLICATE":360: GET DUP DISKy 275 8:24::"INITIALIZING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256% "3 704:717,SS16:718,MS16:719,SD:720,MDH 17:34,16:936U :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280: PROGRAM"::# Z704:CS(718)16? d715,(110)1:BUFSTARTY n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" *% ************************C* DISK COPY *a* COPYRIGHT BY *(* APPLE COMPUTER,INC. *2* 1980 *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISK DUPLICATION     D LISTING3"* D$;"BLOAD TABLPAK,A$4000"H  D$;"BLOAD TRY,A";IMAGTBLO & U 0 ,C8IPHI :16302,02 (4);"BLOAD SCRNSHOT"N --SWITCH TO HIRES PG1T Z q | q LOAD FILES SUBROUTINE IMAGTBL20864 --ADDRESS OF TABLE --CONTAINING IMAGE --TO BE MOVED D$(4) D$;"BLOAY1IROWS6%  --ADDRESSEMF DATA<  --NEEDED BY ASSYU  --LANGUAGE ROUTINE[ q t IROWS,(IMAGTBL) ~ IDOTS,(IMAGTBL1) IWIDTH,(IMAGTBL2) IPIMAGTBL3 C8IPLO(IP256) C7IPHIIP256C8IPLO IBITS,C7IPLO IBITS15 HC5YMIN5:C6YMAX1755 R --BOUNDARIES OF IMAGEP \ --MOVEMENT ON SCREENV fi pCODEADDR21008 z --ADDRESS OF MACHINE  --LANGUAGE SUBROUME  IROWS20992 IDOTSIROWS1 IWIDTHIROWS2 IBITSIROWS3 X1IROWS5 YMIN(YPSNYINCR)C6YMAXYPSNYPSNYINCR6 X1,XPSNC Y1,YPSNQ CODEADDR_ A$"Q"ijh 530n *} DOTSMOVE2 XPSN100:YPSN100 C1THRLO100:C2THRHI150  --THRESHOLD VALUES * --FOR JOYSTICK INPUT 4 >C3XMIN5:C4XMAX23W 300020008 IF PEEK(-16287)>127 THEN 820O:(16384)127ľA$e?A$" "XI0:YI0wDA$"J"XI2NA$"L"XI2XA$"I"YI2bA$"K"YI2(XPSNXINCR)C3XMIN(XPSNXINCR)C4XMAXXPSNXPSNXINCR) (YPSNYINCR)C5D LISTING3"* D$;"BLOAD TABLPAK,A$4000"H  D$;"BLOAD TRY,A";IMAGTBLO & U 0 I IBITS,C7IPLO" IBITS1,C8IPHI2 :16302,0N --SWITCH TO HIRES PG1T Z q | q LOAD FILES SUBROUTINE IMAGTBL20864 --ADDRESS OF TABLE --CONTAINING IMAGE --TO BE MOVED D$(4) D$;"BLOAIROWS3 X1IROWS5& Y1IROWS6@  --ADDRESSEMF DATAW  --NEEDED BY ASSYp  --LANGUAGE ROUTINEv  t IROWS,(IMAGTBL) ~ IDOTS,(IMAGTBL1) IWIDTH,(IMAGTBL2) IPIMAGTBL3 C8IPLO(IP256) C7IPHIIP256C8IPLO 4 >C3XMIN5:C4XMAX2354 HC5YMIN5:C6YMAX175P R --BOUNDARIES OF IMAGEk \ --MOVEMENT ON SCREENq f pCODEADDR21008 z --ADDRESS OF MACHINE  --LANGUAGE SUBROUME  IROWS20992 IDOTSIROWS1 IWIDTHIROWS2 IBITSMAXXPSNXPSNXINCRR (YPSNYINCR)C5YMIN(YPSNYINCR)C6YMAXYPSNYPSNYINCR_ X1,XPSNl Y1,YPSNz CODEADDR 530 * DOTSMOVE2 XPSN100:YPSN100 C1THRLO100:C2THRHI150  --THRESHOLD VALUES * --FOR JOYSTICK INPUTW 300020008 IF PEEK(-16287)>127 THEN 820G:XVLUE(0)VDYVLUE(1)lXINCR1DOTSMOVE(XVLUEC1THRLO)DOTSMOVE(XVLUEC2THRHI)vYINCR1DOTSMOVE(YVLUEC1THRLO)DOTSMOVE(YVLUEC2THRHI) (XPSNXINCR)C3XMIN(XPSNXINCR)C4X   iq imo 膢 ȱ " [67 l67  8ij  o> 63999LINE TOO LONGINCREMENT = 0ɧi `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶giihijg` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eѥȥ񥰶L & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ML#gL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lyi<>zi=i??><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKA$ (A$)3Ā( (A$)131150T :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" (4)"MAXFILES 3" ' DO NOT CHANGE 10010 '(121)(122)256316A:S$: B1:S$;:40:S$:E L::"RENUMBER (DEFAULT VALUES)"w V:"& [FIRST 10] [,INC 10] [,S 0] [,E 63999]" `:"MERGE" j:"&H PUT PROGRAM ON HOLD" t"&M MERGE TO PROGRAM ON HOLD" ~23: "PRESS 'RETURN' TO CONTINUE..."; -=============>RENUMBER<===============<:::255VS$"&":1080:2:10903:"&";:12:"APPLESOFT RENUMBER";:40:"&":4:1090$5:"&";:4:"COPYRIGHT APPLE COMPUTER,INC. 1978";:40:"&".6:1090:7:1080::1100 8A139:S$;:     37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  ABLE, A";T2BLBGN;",L384"dRES THAT THE FILE"E :QUOTE$"FID"QUOTE$" BE PRESENT ON THIS DISK"Q BEL$: "PLEASE CONSULT THE DOS 3.3 PROGRAMMING" :"MANUAL FOR ERROR #"(222) BEL$:  2000:*D$(4): CTRL-D C!QUOTE$(34): QUOTEe$BEL$(7): CAUSES BELL SOUND(10::A$"EXECUTING FID":1000:2D$"BRUN FID" CENTER STRING A$(20((A$)2)):A$:10:(222)6ī2040 "THIS PROGRAM REQUI ōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ%;HSd+2EOTkxŠԿſΠԿſſԠ˨өӠþϠ΍ϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LŠ àՠźҠӻ՗ࠠԠҠոƠƠՠӠe h RRRRR=JWdv&dsK/М LHHH@!>?ABI JL>L?Mhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  STRzmWWX` `EF^_ 0^/_ F̞`EF `HHH0/0+>1jj/9hhh`( 12 1㎓0%` f`ST`LȱM`LȭM`EFST ` ` I,`EF^ȹ^Ȍ  F`,0 0S/TEF$-0 ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭS T   ` /H h/ ` % fɽR ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̆ $U+  # o? : L  hh` %)`ʽR08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈR`  UɽR 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` SSTT`S T8`STEF  `iiiRLk SLk H m hLk T%SRsU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L O D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,              CODE TO WORK. RUNNING LISTING6 MOD......"I Z"PRESS RETURN ";A$f d(4);"RUN LISTING6 MOD"OTINE. YOU NEED TO ASSEMBLE IT USING MERLIN. LISTING5 PUTSALL OF THE FILES CREATED IN LISTING1,2, 4 INTO ONE FILE."# P:"I GOT THE CODE TO WORK. REQUIRES THAT THE FILE"N :QUOTE$"MUFFIN"QUOTE$" BE PRESENT ON THIS DISK"Z BEL$: "PLEASE CONSULT THE DOS 3.3 PROGRAMMING" :"MANUAL FOR ERROR #"(222) BEL$:  2000:*D$(4): CTRL-D C!QUOTE$(34): QUOTEe$BEL$(7): CAUSES BELL SOUND(10::A$"EXECUTING MUFFIN":1000:2D$"BRUN MUFFIN" CENTER STRING A$(20((A$)2)):A$:10:(222)6ī2040 "THIS PROGRAM!! ΠĠԠŠҬƠŠǠӍӠ٠٠ϠŠčӠōӠčϠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ӠϠҠΠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿōϠӠ'4?Pv1;@WdrrrrrŠԿſΠԿſſԠ˨өӠþϠ΍ϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠנŠŠҠŢɀ@ 4 L 5  LƠ̠ࠠŠźΠϠ΀ŠɠàԷԠРŠϠt h "#!$6CPbt~?P_d ㎬М 4LHHH:612 L] 34Lhhh`HHH J ( 4L <hhh` : :4  ,>  4,$ 12 """zm"""` 3` # # 1 "2 " ̷`12 `HHHμ0+>jj9hhh`( 68>` `1#2#34`ȱ`ȭ`#1#2 13` ` X,3` #1ȹ #2Ȍ 1 `,30 "" = ` ` : :   oOɃ  hhhhhh`DDTPɍɬCDL$,)  o : L  `   DLI,ɽ! ʎ`8`HH nɽ"̿̿88hh` ȹHH`hh" XL  < L < < B,30ޭ# #   ` H h ` $>=!D  # o? : L  hh` >)`ʽ!08`  `  ?,06 /,0&莽 ,0ȌP8``Ȉ!`  nɽ! 莼Ȍ`8`  n$'   hhh`, `Hh`h`< q  ` Y  < LK ` !!`! !8`!1!2  `iii!Lk !Lk H m hLk !>!2!1!!n o00Щ莻ɽదɬnɽ̻ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ) ; <7698  ; ` o ɱɸ" L; )9 o ɱɳ# L_ )7`  o ɱɸ" L )8 o ɱɳ# L )6789<<` L  D5   , b Y L> b @   Lvم38%0` X L8 :   < `" X    i(  ! o , и` X$i( " X , "" " " " " """""""""
Make your own free website on Tripod.com