' +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Є$0DqdeNq_&<0px|gCB@@@< W X q.?rq.?rq.?rq.?r\Y[q q.?r&`.?r%[0q/?r":`.?r|p@@9`0``@@@```@@x|?~@gg`aG@agc7fld`pxxx>x<888  8`ppp``|@`?pyy`xa@ya{1~| x x||~_O@@@p@@`````08<<<p|~`>@>>>>@@?@8@@  880000000  0xxx00@p| |Cxxxxx~@px8`0`0`p``@`c@c@c@a@a@a@``@`@ ` @ `@@aacFN|xx?xwxcpp<p ppppxxx88881@1@1@1@1@1@1@ @ ``0@ 0<<< @`x~<||p||~~~wwggg`?ppx8__  ?C?0A? A?@?@;@;@;@ߟŠŮp]z]̠͠]Ϡӿ](]ԠŠҠî ]ҠŠӠҠϬ#*]̠ŠŠŠ!4]ԠҠԮƠŠϠ!>]ӠŠ̠٬"H]Š٠ԠŠנ#R]ĠΠϠ \]Ԡ͠ҠӬ f]ŠŠ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:&  END ROUTINE %&*MF0890U&4DISKĺ(4)"SAVE PHONE LIST":::22:976:&>:11:"INSERT A NEW TAPE INTO THE RECORDER, SET";:"ON RECORD, AND PRESS 'RETURN' ";:"";S$&HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEE)(1001)192DISK13%DISKĺ(4)"NOMON C,I,O":`% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458)%& SET FAST/SLOW SEARCH %0OP0%:25000% ACTIVATE PRINTER %SL:% DE-ACTIVATE PRINTER &0..0$[\.......................................^$\\.......................................$]\.......................................$^\.......................................$ SET PRINTER SLOT $SL1$ DISK SYSTEM?? %(994............................J#V\.......................................x#W\.......................................#X\.......................................#Y\.......................................$Z\.............................................6"P\.......................................d"Q\......................................."R\......................................."S\......................................."T\.......................................#U\.............................................P!K\.......................................~!L\.......................................!M\.......................................!N\......................................."O\.............................................< E\.......................................j F\....................................... G\....................................... H\....................................... I\......................................."!J\.....\.......................................V@\.......................................A\.......................................B\.......................................C\....................................... D\.............................................B:\.......................................p;\.......................................<\.......................................=\.......................................>\.......................................(?.4\.......................................\5\.......................................6\.......................................7\.......................................8\.......................................9\.............................................H/\.......................................v0\.......................................1\.......................................2\.......................................3\.............................................4)\.......................................b*\.......................................+\.......................................,\.......................................-\........................................\.............................................N$\.......................................|%\.......................................&\.......................................'\.......................................(\.............................................:\.......................................h\....................................... \.......................................!\......................................."\....................................... #\.............................................T\.......................................\.......................................\.......................................\....................................... \.............................................@\.......................................n\.......................................\.......................................\.......................................\.......................................&\.TROL CHARS. 6B$""%6(A$)ı46I1(A$)Y6((A$,I,1))26B$B$(A$,I,1)`6If6~6] PRINTER ON/OFF 6]PRPR:250506]6a MAIN MENU 6a:NR:NRNR10006a::1:"----------------------------------------";:X7a" EDIT AND PRESS":"'RETURN'.":5020i513:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""250005(S$,1)"Y"NN$NA$:60505(S$,1)"N"İ50705"":60205 GO EDIT THE LINE 5:8:NN$:4020:4360525000 6 REMOVE CON(S$,1)"N"ĺ"":5130 45081<4P OK THEN, KILL IT! M4ZUD1:4250k4dCU(START((LN201)46))|4nCU,((92))4x4450:250004p EDIT A DATA LINE 4z:3000#5|:10:"PLEASE ENTER THE NAME OF THE PARTY WHOSE";:"LISTING YOU WISH TO(NA$,(K$))K$510033(NA$,1)(92)UUNR5070?3UUUU1P3UUNR5070]3:25000t3 FOUND A MATCH 3LN(123)(124)256:UUUU13:11:NA$:S5ı3 13:868:"DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$:(S$,1)"Y"52004 DELETE DATA CONTENTS $2:30002:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'."214:"-> ";K$:K$""S5ġ:250002K$""250002 FIND AN EXACT MATCH 2:Z:UU13NA$:E 1T$:(T$,1)(92)4310:1LN(123)(124)256T1 CALCULATE OFFSET r1CU(START((LN201)46))10 POKE DATA LINE 1:ICU(CU39)1DI,((NN$,I1CU,1)):1b SET UPDATE FLAG 1lMFMF1:S4S5ı1v250001242000^UD1-0h PAD TO 40 CHARACTERS U0rI(NN$)(39(NP$)):NN$NN$".":m0|NN$NN$NP$:S5ı0 UPDATE DATA NUMBER 0:T:TTUD:CU(START11)0T$(T):I1(T$)0(CUI),((T$,I,1)):0S4ı1 FIND EMPTY DATA LIN";::"NAME";::" ENTRY:":10:14:NN$c/12:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$/,18:8:868:"ARE THEY CORRECT (Y/N) ";S$:(S$,1)"Y"4180/6(S$,1)"Y"S5ġ:6000/@(S$,1)"N"ĺ"":4100/J4000/OS542000TS54020].10:958:"ENTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX XXXX)".13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::25000.NP$""Ĺ32,0:25000.(NP$)12ĺ"":4050. IS ENTRY CORRECT? '/::8:"HERE IS THE :I12000::25000-32,3:10:958:"ENTER NEW NAME AND PRESS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIMUM.)"-14:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000-NN$""Ĺ32,0:25000.(NN$)25ĺ"":(NA$,1)(92)INR2540#, 1100=, VT22VT2:3:958D, IN, 1200k, IS DATA FILE EMPTY? , ::NR0Ģ12:9::"<< NO NAMES ON FILE >>"::I12000:I::25000, , ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!"++ GOT A FULL PAGE Z+22:958:"ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";:T$q+(T$(27)ġ:25000+2T$(13)Ģ3:1:958:VT3:+<(7):1300+ + LIST EVERYTHING + 3000+ 1012+ :Z+ VT2:FO0:I1NR, NA$:1500:I:25000*K'*L GOT ONE! H*NVTVT1:VT21PR1İ1300\*PFO1Ģ12:868i*QPRİ700y*VVT:1:NA$*`PRİ750*tINRı*PRİ700:" ":" ":" ":" ":750*22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000Z)FO0:I1NR1)NA$:(NA$,1)(92)1040W)SK0SK1ĭ(NA$,(S$))S$1075h)II1(NA$))$(NA$,II,(S$))S$FOFO1:1100:1075).II)3I:FO1200)812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750*B(7):I1PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000O(PRİ700:" ":" "(:1:" NAME PHONE NUMBER":"----------------------------------------"(PRİ750(S22510(12:868:12::"<< SEARCHING >>"::VT2):N SAVED!!":22:'z::22:/' SEARCH D'3000:OP11010':9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 CHARACTER (SLOW)"'14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":10078(:11:5:"#j " THE GAME BOARD AND"::" * SELECT THE SIZE OF THE RACQUET":" YOU WILL USE. (THE SMALLER"#o " THE RACQUET, THE MORE POINTS":" IT IS POSSIBLE TO SCORE.)"#t :"PRESSING THE ESC KEY WILL END THE GAME.",$u KYĺ:"PRESSING THE PADD936:2:" *** WELCOME TO BRICK-OUT ***":8:"BY BRUCE TOGNAZZINI":U". (A$)ĺ"8 "BEFORE WE START PLAYING ";:(A$)ĺ"B "THE GAME";"L (A$)ĺ", ";"V A$;",""` "YOU WILL BE GIVEN THE CHANCE TO:"::" * SELECT THE COLORS YOU WANT FOR"g;(!(40)(41)256(36),96: CURSORE!P(16384):P15511000b!KYĭ(16287)1272340y!P156P1412260!"";A$!(A$)02340! I1(A$):((A$,I,I))642330! I:II1! A$(A$,I,(A$)):(A$)ĭ(A$)15A$(A$,15)G"$ : "* YOU MAY ";(34);"PUT ENGLISH";(34);" ON THE BALL":"* (DEFLECT THE BALL) BY HITTING IT":"* WITH THE RACQUET HELD OFF-CENTER." : 16368,0!"* BEFORE WE BEGIN, PLEASE TYPE":"* YOUR FIRST NAME AND THEN PRESS":"* THE RETURN KEY. "STRUCK BY YOUR RACQUET."::J"* YOU CONTROL THE RACQUET ON THE BOARD"xKYĺ"* BY TURNING THE APPLE PADDLE (0)"KYĺ"* BY PRESSING THE RIGHT ARROW TO MOVE":"* UP, THE LEFT ARROW TO MOVE DOWN, AND":"* THE SPACEBAR TO STOP THE RACQUET." ****************";:1:1:"***************************************"p10:1,460:0,4739: "DRAW" ASTERICKS (*) ALONG EDGESz3:"* BRICK OUT IS A DYNAMIC BOARD GAME":"* IN WHICH YOU ATTEMPT TO KNOCK DOWN""* A WALL OF BRICKS WITH A BALL":"* PADDLE INPUTHfZ10:Z20:Z30:Z40:Z50:Z60:Z70:Z80:Z90:Q10:Q20ugE0:V0:D0:F0:N0:M0:H0:OD0:Z0:S0hQ%0:LL%0:P%0:A%0:B%0:C%0:D%0:E%0:F%0:LL%0:VARIABLES USED BY MACHINE LANGUAGEiKY1k24Co"***********************KYĹ890,255:2155'bKYĹ890,0:2149`d8700:KY2155:SKIP NEXT ACT IF NOT KEYBOARD ENTRY e:THE LINES BELOW AGAIN RESTRUCTURE THE VARIABLE TABLE, THIS TIME FOR REDUCED SPEED. THIS MAKES THE PROGRAM SLOWER FOR KEYBOARD WITHOUT SLOWING IT UP FORQ0:J0:X0:Y0:I0:K0:VV0:LL0:P0:OQ0:W0]E0:V0:D0:F0:N0:M0:H0:OD0:Z0:S0:SET UP VARIABLE TABLE FOR MAXIMUM SPEED^Q%0:LL%0:P%0:A%0:B%0:C%0:D%0:E%0:F%0:LL%0:VARIABLES USED BY MACHINE LANGUAGEa(32767)99KY(32766):POINT FROM "WOULD SOMEONE ELSE LIKE TO PLAY">6000: TITLEOY11000:Yi 6100: "ERASE" TITLEY1250:Y:16368,0 34,0:936:*R:PREPARE VARIABLE TABLE FOR A NEW SEQUENCE OF VARIABLES - DELETE TO SEE THE EFFECT ON GAME/\K110(1)20:KQ::AlH180:OD(16336):H:2910QvK17:K:p *** START OF PROGRAM ***|32768(21):TURN-OFF 80-COLUMN CARD7000: POKE SOUND ROUTINE:936:16298,0:32766,KY:32767,Z,:X%0:Y%0:ENTRY (1)50:7,10:768-,6,160Q10:7,12:768<6Q:50,255\@BANUSQ5:21:1:"TOTAL=";lJQ1500:QTQSSCOLE(SCOLE1)(CNT1)SSCOLE(SCALE1)(CNT1)BANUS5^8:Q;h6,150Q40:7,3:768r6,140:7,2:768|6,50:7,3:768GH SCORE= ";(789)(790)256;:1:/ BONUSn22:50,63:L1ĺ" BONUS POINTS: "L1ĺ"BONUS POINTS FOR ";L;" BALLS LEFT: "22:Q11800:QQ0LSCOLE50532:Q;6,180:7,10:768"6,200"6 PRINTER ON/OFF"79b"7 EXIT THIS PROGRAM":32,0:C9 b32,0:k9*b22:20:868:"WHICH: ";S$:S(S$)94bS1S7ĺ(7):251309>bS1000,2500,4000,5000,6000,24000,8009Hb9 9APPLE COMPUTER, INC.9 COPYRIGHT 4/1/1979* ":25070?8a" ";::" ON ":w8a10:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::8a"1 SEARCH FOR A LISTING":"2 LIST THE ENTIRE FILE"8b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"9 b"5 EDIT A LISTING": APPLE COMPUTER, INC. PHONE LIST ";::"----------------------------------------"7a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ"S";7a:"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"7a8:"THE PRINTER IS";:PRĺ" OFF";)8aPRĢ9:" 0:A:PQď0,Q10734QLLPPĭQLL39ďQLL1,390T3>PQ:PPQLL:G15547003H THE ABOVE ROUTINE IS ALMOST THE SAME AS THE REGULAR PADDLE ROUTINE BUT WILL DRAW EVEN IF PADDLE HAS NOT MOVED3R:110004\G141G160(G177G1823(KY256(36),96:: CURSOR92 *** SELECT PADDLE SIZE ***`216368,0:23:TB:BSPFLAGĺLL1;p2 868:45002G(16384):KYĭ(16287)127ı2 KYQ(0):Q(39Q6):Q0Q02"KYQ18LL2:888,1273LL2%QLL39Q39LL3*D:Q,QLL1"CP:420:1,DP:4240:-16FP:4250:K1D:15,15LL0:: PADDLEb1F:15,15:: BALLt1 DRAW LEGEND1I014:I(I9):I24,39:I::PRINT-OUT COLOR SQUARES FOR LEGEND10J2:A:0,39EDIT0:D:EDITď15,15LL01v2(40)(41):M1:N00 806,17:16368,0&0 80<0 *** OBJECTS ***[0B$"BACKGROUND":COLOURA:z0B$"EVEN BRICK":COLOURB:0B$"ODD BRICK":COLOURC:0B$"PADDLE":COLOURD:0B$"BALL":COLOURF:0AP:A:0,370:4240:A:360:0BP:420: (4(1))3H:H IS # OF PADDLE STRIKES BEFORE 1S T SPEED INCREASE; OD, 2ND SPEEDi/ (16384)15511000x/ L13010/ 50,63:"THIS IS THE LAST BALL";/ 50,255:23:/ A:0,390/ I12575(1):KYİ20/ KYQ1273LL:888,Q:210 IG PADDLE!.Z ERASEERASEERASE14.[ ERASE1İ4800o.] (KY(16287)128)(16384)155(16384)1602900}.^ 23:868.h A:X,Y3:Y120(1).r X19.| V1:W5(1)2:LL1:L1800. L1ĺ"THIS IS BALL ";6L;" OF 5."P/ H(3(1))2:OD PUSH PADDLE BUTTON TO BEGIN THE GAME ";:50,255x-J K120:K: ALLOW TIME FOR USER TO RELEASE BUTTON FROM LAST PUSH-O KYQ127LL4:888,Q:A:0,390:21-T KYİ20-X KYP1(1):((OOLDP1P1)3(16286)127)ERASEİ4810.Y OOLDP1P1:WRON5: FORCE PADDLE DRAW%, A:0,390J," BSPFLAG1:4600:BSPFLAG0:LL%LLT,, 1300,6 S0:PS:LS:X19:Y19:L6:CNT1:V2:A%A:B%B:C%C:D%D:E%E:F%F:LL%LL,; KYĢ23:50,63:" PRESS SPACEBAR TO BEGIN THE GAME ";:50,2552-@ KYĢ23:50,63:"TURN";&+ KYĺ"PUSH PADDLE BUTTON";W+ " FOR A LENGTH OF ";LL1;:TTB1(36):21:1+ "WHILE WATCHING THE RACQUET ON THE":"GAME BOARD, SELECT A RACQUET"+ I6:KYI9:888,127:Q127+ "SIZE OF 1 TO ";I;" BLOCKS IN LENGTH: ";:TB(36)1, OQ193(P202):QQ1:Q4110,4120,4130,4140,41507* 2590V* EA:AVOID IF AT HEN ERRORx* *** SELECT RACQUET SIZE *** * 936:480: DRAW IN LAST TWO LINES OF GRAPHICS* K120:K: ALLOW USER TO RELEASE BUTTON FROM LAST PUSH+ 24:KYĺ"PRESS RE";:(37)22ĺ".";&) (37)22Č868B) P(16384):P1362590\) KYĭP141P1602775j) 16368,0{) P15511000) P136QOQ50:Q50Q250) P149QOQ50:Q255Q50) P136P149OQQ) P223PP32) P193P2072590-* PP,4040,4050:QQ1:COLOUROLDCOLOURİ4310E(Z (16287)127KY2775_(d CNTCNT1:CNT22690(n FLSH1FLSH:COLOURFLSH:COLOUR0FLSH0Ġ15(x COLOUR242(COLOUR9),39:CNT0( 23:1:"TYPE A LETTER TO CHANGE ";:50,63:B$;) 50,255:" COLOROQ)):OQQ:Q(Q5290):Q4Q4:START OF LOOPh'( P1(1):((OOLDP1P1)3(16286)127)ERASEİ4810'2 OOLDP1P1:WRONG PADDLE'< ERASEERASEERASE1'F ERASE1İ4800: ERASE WRONG PADDLE ERROR MESSAGE)(P OLDCOLOURCOLOUR:QQ1:Q4010,4020,4030R OTHER FEATURES"::2570D& "ROTATE PADDLE FOR OTHER FEATURES:":& 4800:Q(0):OQQ:Q(OQ5290)1:Q4010,4020,4030,4040,4050& OOLDP1(1):2690:INIT "WRONG PADLE PRESSED" ROUTINE : START LOOP& KYQ(0):2597& QOQ/'% Q(Q(QOQ)(Q:B12:C9:D13:F15: ORIGINAL COLORS7% LL5:KYLL8% 34,20:936:0:0,3938:0,3939:400: RE-ENTRY POINT AFTER EACH ROUND% *** COLOR EDITOR ***% 4240:4250% 4300:21:5:"A B C D E F G H I J K L M N O"& KYĺ"PRESS <-- AND --> FOLE'S PUSHBUTTON":"WILL SKIP EACH QUESTION."R$ :"AND NOW ON TO THE COLORS...."$ 23:"PRESS THE RETURN KEY TO BEGIN....";:4500:16368,0$ P(16384):KYĭ(16287)1272480$ P141P1552460$ 16368,0:P15511000$ 936%% :A22:"WOULD YOU LIKE TO PLAY WITH":"THE KEYBOARD OR PADDLES (K/P)? ";::" "::16368,0C"P(16384):(16287)127P208:8735C"P155P208P203P240P2358725C"16368,0:P15511110C$"KY1:890,0:P208P240Ĺ890,255:KY0 D."KYė936:5:"========================================";::" B R I C K O U T ";::"========================================"B"12:"COPYRIGHT 1979, 1982 APPLE COMPUTER INC"B"19B ":"(PRESSING THE ESC KEY WILL END GAME)"WC"2C K O U T ";::"========================================";xA"COPYRIGHT 1979, 1982 APPLE COMPUTER INC";~AA! A!KEYBOARD OR PADDLE?A!((16287)127)ĭ(16286)127KY1:8740A!(0)255(1)255KY0:890,255::B"QQ-QQ-QQQQ-QQQQQQ-"7@"QQQQQQQ-QQQQ-QQ-QQQQ-QQQQQQ-"[@"QQQQQQQ-QQQQ-QQ-QQQQ-QQQQQQ-"@"QQQQQQQ-QQQQ-QQ-QQQQ-QQQQQQ-"@"QQQQQQQ------QQ------QQQQQQ-"@50,255:21HA936:"========================================";::" B R I -----QQ-----QQ-QQ-----QQ-QQQ-"H?^"QQQQQ-QQQ-QQ-QQQ-QQ-QQ-QQQ-QQ-QQ--"p?h"QQQQQ----QQQ-----QQ-QQ-QQQQQQ---"?r"QQQQQ-QQQ-QQ-Q--QQQ-QQ-QQQ-QQ-Q-"?|"QQQQQ-----QQ-QQ--QQ-QQ-----QQ-QQ--":::?"QQQQQQQ------QQ-QQQQ-QQ--------"@"QQQQQQQ-QQ28,56,233,1,133,45,169,0,168,32,40,248,173,150,128,205,164>\128,16,22,240,20,173,150,128,24,109,157,128,105,1,72,169,39,133,45,104,160,0,32,40>f248,173,150,128,141,164,128,96>J3686437199:A:J,A:>?>@ TITLES>J4:50,63?T"QQQQQ57,128,141,0,148,169,39,56,237,0,148,141=>1,148,205,150,128,16,8,240,6,173,1,148,141,150,128,173,192,128,32,100,248,173,150,128=H72,24,109,157,128,133,45,104,160,0,32,40,248,173,171,128,32,100,248,173,164,128,205,150:>R128,16,16,240,14,173,150,1100,248,172,3,128,173,10,128,72,24,105,1,133~< 45,104,32,40,248,173,3,128,42,42,133,6,169,180,56,229,6,133,6,169,3,133,7,32<*0,3,96,169,0,141,3,148,173,150,128,141,2,148,169,6,141,4,148,32,80,144,169,39(=456,237,5,148,16,2,169,0,141,150,128,173,1,148,32,80,144,96,162,8,173,2,148,141,5,148,173,3,148,14,5,148,42,205;4,148,144,6,237,4,148,238,5,148,202,208,238,141,6,148,96,169,0,141,3,128,172,3;128,192,34,240,61,173,10,128,32,113,248,201,1,208,9,172,<3,128,238,3,128,76,118,144,169,1,32,,144,76,62,144,76,80,144,156,12,27,69,72,152,72,138,72,160,31,162:4,24,62,11,144,202,208,250,44,12,144,16,8,173,15,144,73,9,141,15,144,136,208,231:173,12,144,41,127,141,12,144,104,170,104,168,104,96,32,16,144,173,14,144,141,2,148,169E;0,141,372, 201, 160, 208, 4, 104, 169, 0, 72, 24, 202, 208, 1, 56, 104, 96, 0, 255, 0, 32, 30, 251, 169, 0 }9q32, 242, 226, 96 9rJ800899:A:J,A:9s10,76:11,32:12,3: POKE IN USR FUNCTION JUMP9POKES FOR RACQUET DRAWINGA:76,113,144,76,187192, 255, 240, 1, 200, 201, 255 8n208, 5, 192, 0, 240, 1, 136, 32, 80, 3, 144, 233, 140, 120, 3, 141, 121, 3, 169, 0, 32, 242, 226, 96 8o72, 173, 0, 192, 16, 27, 141, 16, 192, 201, 149, 208, 4, 104, 169, 1, 72, 201, 136, 208, 4, 104, 169, 255 f9p SOUND ROUTINEf7b768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:7l778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96!8m44, 122, 3, 48, 86, 162, 21, 172, 120, 3, 173, 121, 3, 201, 1, 208, 5, UT TITLE+6 SHOOT OUT LETTERS: BRICK OUT76YA(11)C6Y010Y6YA(Y)Y33(Y4)`6Y6YA(RRAY) HOLDS Y-AXIS OF EACH LINE OF WORD, "BRICK OUT"6SIZE1168510: REST OF ROUTINE LOCATED ON LOWER LINE NUMBERS FOR MAXIMUM SPEED.7X COLORS.";:1:5KYıd524:1:868:50,63:" <<< PLEASE USE THE OTHER PADDLE. >>> ";:50,255y56,40:7,30:7685ERASE10:5p TITLING LOGIC5z51:X039:0,39X:X58000: PRINT OUT "BRICK-OUT"6: SET UP SCREEN AND PRINT O))G136G2554630#4f16368,094pG141G160KYıO4zG177G2554740i4LLG177:QLL38P04BSPFLAG0:G255G136BSPFLAG1424:TTB1:LL1;:4610424:1:868:KYĺ"PUSH PADDLE BUTTON";4KYĺ"PRESS RETURN";5" TO ACCEPT INCREMENT*S2$ PER EACH MOVE. AT THEKS4$ BEGINNING OF EACH ROUNDhS6$ V=1 COMMING OFF THES8$ PADDLE. IF IT HITSS:$ A FRONT-ROW BRICK, ITS<$ BECOMES A -1. WHENS>$ MEDIUM SPEED IS SELECTED,T@$ V BECOMES 2 AND -2 $ SCALE= THE MAGNITUDE OF9R"$ THE POINT SCALE,XR$$ BASED ON THE SIZEtR&$ OF THE PADDLE.R($ A PADDLE SIZE OFR*$ 6 IS A SCALE OF 1,R,$ SIZE OF 5 IS SCALER.$ OF 2, ETC. S0$ V= X-COORDINATEQ$ IN TABLE SO HIGHEST+Q$ SPEEDLQ$ S= SCORE. DURING THE GAMEmQ$ S WILL CLIMB TO 720 FORQ$ A PERFECT SCORE. ITQ$ WILL THEN BE CONVERTEDQ$ INTO THE REAL SCOREQ$ BY FIGURING IN THEQ$ "SCALE" FACTOR.R TO FULL SPEED-P# OQ= OLD PADDLE READINGKP$ P= LAST PADDLE POSITIONkP$ ALSO USED AS A GENERALP$ VARIABLE FOR READINGP$ THE KEYBOARDP$ Q= CURRENT PADDLE POSITIONP $ ALSO USED AS A GENERP $ VARIABLE - 1ST VARIABLEDID NOT JUST HIT THE )O# BACK WALL.FO# N= NUMBER OF TIMES THEeO# PADDLE HAS STRUCK THEO# CURRENT BALL. USED FORO# DECIDING WHEN TOO# INCREMENT THE SPEED.O# OD= NUMBER OF PADDLEO# STRIKES BEFORE GOINGP# ET TO 0 UPON HITTING3N# A BRICK. ALLOWS BALLSN# TO BOUNCE BACK AGAINSTuN# WALL IF STRIKING A BRICKN# BUT NOT RESONATE INSIDEN# THE BRICKS - BALL WILLN# GO TOWARD PADDLE AFTERN# STRIKING A BRICK IF ITO# M# K= THE TEMPORARY Y POSITIONAM# ALSO A GENERAL VARIABLEcM# L= THE NUMBER OF BALLS LEFTM# LL = THE SIZE OF THE PADDLEM# PADDLE IS 1 LARGERM# THAN LLM# M= FLAG SET TO 1 IF BALLM# BOUNCES OFF BACK WALL,N# SURPOSE VARIABLE/L# J= USUALLY THE Y-COORDIN-LL# ATE*3. *3 ALLOWS AgL# RESONABLE INTEGERL# INCREMENT TO BE MADE TOL# THE VERTICAL POSITIONL# BY ADDING 1 TO 3 TO JL# WITHOUT ENDING UP WITHL# SEVERE ANGLES. OUNT OF THE NUMBER0K# OF BRICKS STRUCK -QK# USED IN SCORE-KEEPINGgK# D= PADDLE COLOR{K# F= BALL COLORK# H= NUMBER OF HITS BEFOREK# MEDIUM BALL SPEEDK# I= OFTEN THE X-COORDINATEK# ALSO USED AS A GENERALL# P# ARRAY (SIZE) BY 1. IF IT9J# DOES FIND A PART OF THEYJ# LETTERS, IT ERASES IT ANDxJ# STORES IT'S Y COORDINATEJ# IN YA.J# J# PART 2: PLAYJ# J# A= BACKGROUND COLORJ# B= EVEN BRICK COLORJ# C= ODD BRICK COLORK# CNT= C A ROW ON THE SCREEN AND THEN>I# SCANS FORWARD, LOOKING FORaI# PART OF A LETTER. IF IT DOESI# NOT FIND A LETTER, IT MOVESI# THE NUMBER OF THE LAST ROWI# INTO XA AND THE LAST YI# COORDINATE INTO YA ANDI# REDUCES THE SIZE OF THEJ - NOT'Hn# NEEDED FOR OPERATION OFGHp# PROGRAM, THE Z LOOP ISgHr# USED INSTEAD OF A GOTO{Ht# FOR SPEED.Hv# P= VARIABLE TO HOLD KEYBOARDHx# INPUT.Hz# H|# THE UNDRAW-THE-WORDS-BRICK-H~# OUT ROUTINE RANDOMLY SELECTSI#REEN&G\# YA= YARRAY - HOLDS THE LASTGG^# Y-COORDINATE PLOTED IN_G`# THE XA'TH ROWGb# ROW= THE RANDOMLY SELECTEDGd# ROW THAT WILL BEGf# PLOTTED.Gh# SIZE= THE SIZE OF THE XAGj# AND YA ARRAYSHl# Z= LOOP VARIABLEOPENING SCREEN. THE0FH# VARIABLE TABLE IS THENPFJ# CLEARED AND RE-STRUCTUREDWFL# oFN# PART 1 VARIABLES:vFP# FR# X= SCREEN X POSITIONFT# Y= SCREEN Y POSITIONFV# XA= XARRAY - HOLDS NUMBERFX# REPRESENTING AN X ROWGZ# ON THE SC * COPYRIGHT 1979 *?E6# * APPLE COMPUTER INC *aE8# * *E:# ***************************E<# E># *** VARIABLES ***E@# EB# PROGRAM IS DIVIDED INTO 2ED# PARTS: THE FIRST PART DRAWSFF# THE :24:1:Dj"PS21Do"806,PS)Dy"936/D~"QD(# ***************************sD*# * *D,# * BRICK OUT *D.# * *D0# * BY BRUCE TOGNAZZINI *D2# * *E4# SUB-#c^% ROUTINES FOR RE-DRAWING% SEE VARIABLES, PART 1a@%8000: LETTERS,aB% "BRICK" AND "OUT"bD% STORED AS PRINT STATE- * *=`% **************************D` % c`"% IN ORDER TO ALLOW FUTURE`$% RENUMBERING, THE STARTING`&% ADDRESSES OF THE ROUTINES`(% WILL BE GOTO STATEMENTS`*%`,% `.%2000: START OF PROGRAMa0%7000: SOUND ROE THAT BACK-ARROW'_ % WAS PRESSED.I_ % G IS USED AS KEYBOARD INPUTj_% BECAUSE P IS BEING USED_% IN PADDLE-READ ROUTINE_% _% _% **************************_% * *_% * MAJOR ROUTINES *`%IME ^$ PADDLE IS TURNED TO=^$ A DIFFERENT FEATURED^$ ^^$ SELECT PADDLE SIZE:e^$ ^$ TB AND TB1 HOLD TAB^% POSITIONS OF PADDLE^% SIZE PRINTINGS^% BSPFLAG IS BACK-SPACE FLAG^% WHICH TELLS INPUT_% ROUTINA FLIP-FLOP*]$ THAT WILL CHANGE FROMI]$ A 0 TO A 1 EVERY TIMEk]$ ACCESSED AND THUS CHANGE]$ CURRENT COLOR TO BLACK]$ AND BLACK TO CURRENT]$ COLOR ON SUCCESSIVE]$ "COUNT"DOWNS. COLOR^$ IS RESTORED EACH TOUTINE IF COLOR IS.\$ CHANGED. THEY AREK\$ SPELLED "COLOUR" TOm\$ MAKE THEM DIFFERENT THAN\$ RESERVED WORD, COLOR=\$ COUNT IS USED IN BLINKING-\$ CURRENT-COLOR ROUTINE\$ TO DECIDE WHEN TO BLINK ]$ FLASH IS HERAPY IF CAUGHT EARLY)5[$ ERASE WILL TIME OUT ANDT[$ ERASE THE YOU-PUSHED-r[$ WRONG-PADDLE MESSAGE[$ COLOUR AND OLDCOLOUR DETECT[$ IF USER HAS CHANGED A[$ COLOR AND BRANCH PROGRAM[$ TO PROPER COLOR CHANGE\$ RABOVE) Z$ !Z$ COLOR EDITOR:AZ$ P1 AND OLDP1 ARE USED FOR`Z$ THE USER-GRABBED-THE-~Z$ WRONG-PADDLE ROUTINEZ$ WHICH DETECTES PADDLEZ$ MOVEMENT OR PUSHBUTTONZ$ DEPRESSION (CAN BEZ$ CURED WITH PSYCHO-[$ TTITLES, SUCH AS0Y$ "PADDLE", "BALL", ETC.PY$ Q AND I ARE USED AS HIGH-nY$ SPEED VARIABLESY$ P IS OFTEN USED AS THE Y$ KEYBOARD-READ VARIABLEY$ IN ROUTINES THAT ARE NOTY$ READING THE PADDLE INPUTZ$ WHICH USES P (SEE OSE#X$ VARIABLE PLACED TOWARDAX$ THE END OF THE TABLE\X$ SO ACCESS TIME ISqX$ FAIRLY SLOWxX$ X$ THE FOLLOWING VARIABLESX$ ARE USED DURING THE SET-X$ UP PORTION OF THE GAMEX$ X$ A$= THE PLAYER'S NAMEY$ B$= R -1Wv$ IS GENERATED.=Wx$ IF THE PADDLE IS SMALLER^Wz$ THAN 4, IF W IS A 1, IT}W|$ IS MULTIPLIED BY 2 TOW~$ AMPLIFY THE AMOUNT OFW$ ENGLISHW$ W$ X= THE X-COORDINATEW$ Y= THE Y-COORDINATEX$ Z= A GENERAL PURP SIZES (2-4-6) W IS = TO7Vf$ THE DISTANCE FROM THEVVh$ CENTER OF THE PADDLE:tVj$ 1,2, OR 3, DEPENDINGVl$ ON THE SIZE OF THEVn$ PADDLEVp$ ON ODD NUMBERED SIZES, Vr$ IF THE BALL STRIKES THEWt$ CENTER, A RANDOM 1 OV= FLAG TO SELECT FAST8UV$ SPEED. IF VV THEN SPEEDYUX$ IS SLOW. VV IS MADE 0xUZ$ BY EITHER N BECOMINGU\$ >0 OD OR THE BALLU^$ STRIKING THE BACK WALLU`$ W= PADDLE ENGLISH VARIABLEUb$ ON EVEN-NUMBERED PADDLEVd$ , AND&TB$ THUS EACH MOVE IS TWICEDTD$ AS FAST BECAUSE ONLYbTF$ EVERY-OTHER BRICK IStTH$ TOUCHED.TJ$ MEDIUM SPEED CUTS IN IFTL$ EITHER N BECOMES >H ORTN$ THE BALL STRIKES A BRICKTP$ IN A BACK COLUMNTR$ UT$ VTABLE s& 0s& *****************************Ts& * *xs& * BRICK OUT *s& * *s& * BY BRUCE TOGNAZZINI *s& * *t& * COPYRIGHT 1979 UNT OF <10: EXPT >100r& 6r&1120: FINAL SCORINGTr& THIS ROUTINE WORKS WITHmr&1370: TO POKE HIGHr& SCORES INTO MEMORY RIGHTr& AFTER SOUND ROUTINE.r& r&11000: ALL "ESC" READSr& BRANCH TO HEREr& s& END-OF-SUBROUTINE-ON LINEq|&800/q~& END-OF-GAME MESSAGES AREHq& BASED ON SCORE ANDcq& INTERPRETED ON THREEq& DIFFERENT SCALES: NOVICEq& (NVC), EXPERT (EXPT) ORq& SOMEWHERE INBETWEENq& NOVICE RATING IS EARNEDq& BY HAVEING A TOTAL POINTr& COCHES TO!ph&2910: REENTRY POINT;pj& WHERE BALL COUNT ISTpl& UPDATED, ETC. (SEEppn& ABOVE DISCUSSED UNDERpp& *** GAME ***)pr& IF ALL BALLS ARE USEDpt& THEN PROGRAM, ON LINEpv&2940: BRANCHESpx& TO END-OF-GAME ROUNTINESqz& STARTING OOP oP& $oR& SCORE=720, GAME WON5oT&340: CHECKKoV&1500: ADD BONUSdoX&760: PRINT-OUT WINkoZ& o\& IF GAME IS LOST:o^& WHEN A BALL IS MISSEDo`& INNER LOOP BRANCHES TOob&1900: WHERE MISSod& SOUND IS MADE. THENpf& PROGRAM BRANPADDLEn>& RESET M5n@& ERASE BRICK : UPDATE SCORETnB& PRINT OUT SCORE : UPDATErnD& COUNT : CHECK FOR SPEEDnF& INCREMENTING TIME : MAKEnH& SOUNDS : CHECK IF SCOREnJ& IS <720 AND REVERSE BALLnL& DIRECTION (V=-V) ANDoN& RETURN TO MAIN LPEED OF 1, IF V IS CHANGED39 THEN BALL HAS HITi% BACK WALLi% IF SCRN(I,K)<>A THEN EITHERj% A PADDLE OR A BRICK H AND RETURNh% +h%75: START OF INNERAh% LOOP OF PROGRAM]h% COLOR WILL EQUAL A ATyh% THIS POINT: ERASE OLDh% BALL AND PLOT NEW BALLh%80: INCREMENT Y-AXISh% POSITION BY W (SEE "W")h% h% AND SO ON:i% NEXT, IF V AND VV CONVERT PADDLE READING5g% TO A HORIZONTAL READINGRg% COMPENSATING FOR APPLEmg% PADDLES THAT MAY NOTg% READ HIGHER THAN 234g% (39*6=234) BECAUSE OFg% AGE OR HOME-BUILTNESSg% DRAW PADDLE AT NEW LOC-g% ATION : SET P = NEW Q h%%20: PADDLE ROUTINE3f% IF PADDLE HAS NOT MOVEDOf% BY AT LEAST 5 THEN DOhf% NOT RE-DRAW PADDLEf% "*SGN (Q)" IS SPECIALf% CASE FOR PADDLE SIZE OFf% 1 - IT IS HARD TO REACHf% BOTTOM OF BOARD WITHOUTf% IT.f%30: AND ON:g%RE-ENTRY POINT.e% AFTER EACH BALL IS MISSEDNe% BALL COUNT UPDATING, ETC.ke%2960: SELECT TIMES FORe% SPEED INCREMENTSe% e% *** GAME INNER LOOP ***e%80: ENTRY POINTe% THERE FOLLOWS LINE-BY-e% LINE INTERPRETATION:e% f dr% 10'S%dt%4300: DRAW LEGEND AT;dv% BOTTOM OF BOARDBdx% [dz% SELECT PADDLE SIZEbd|% {d~%2780: INIT ROUTINEd%4600: MAIN ROUTINEd% SELECTED, PRINT POINTd% SCALEd% d% *** GAME ***d% d%2870: INIT GAMEe%2910:  LOCKED.UP.2$ 868:VTB1:36,TB:868:"";H$FxR+(H$,1)"Y"(H$,1)"y"Z99:2020kx\+(H$,1)"N"(H$,1)"n"11080vxf+31111xy16368,0::936::B PRESS RETURN)";+(VTB):868:(VTB1):"WOULD SOMEONE ELSE LIKE TO PLAY? ";:VTB(37):TB(36)xH+23:C. *+v& * *Ov& *****************************ov*"ESC" KEY HAS BEEN PRESSEDzv*54915v+16368,0:936:(34)0Ģ10v+"WOULD YOU LIKE TO CONTINUE"v +"PLAYING? ";:VTB(37):TB(36)w+::"(TYPE YES OR NO ANDUSR (0) */u& * PADDLE SIMULATION *Su& * *wu& * BY MARK HOUDE *u& * *u& * COPYRIGHT 1982 *u& * *v& * APPLE COMPUTER IN *,t& * *Pt& * APPLE COMPUTER INC *tt& * *t& *****************************t& t& *****************************t& * * u& * BRICK OUT  LOCKED.UP.1Dz#??    ŮŮٮŠҠ ŠԠ ԠԠ !ˮˠ"ҠϠĮЮ ĮЮˮŮ ŮŮ ŮŮ ŠԠ3ˠԠrҠԠ àϠ ͠ŠӠ ӠϠԠҮʰà*à*ӠΠC. 1980,1982":1000R ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:a d(4);"FP"x  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:D LOCK.ME.1 DELETE.ME.1 C. 1980,1982":1000R ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:a d(4);"FP"x  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:N  :D$(4): CTRL-D92:A$"APPLE II":1000l(4:A$"DOS VERSION 3.3 SAMPLE PROGRAMS":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096:FAST LOAD IN INTEGER BASIC  P10:958:A$"COPYRIGHT APPLE COMPUTER,IN  DELETE.ME.2 q.?6Mr`%_dc9_d2e@p(ŠŠӠˠӠ)\d2e da@E()]ҠǠ!q8;@rr`%q Pa@[q[Z KM6N@"(r@p()]̭o@p(Š)\3(o@p(ӠΠŠ)\"2o@p(٠)\<a@E(ĠҮʰ)FM@Po M6@p(ԠŠҬî)\Z  DELETE.ME.3àà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             a@F a()_d"]]͠"]]]٬Ӡ]ӠŠŠƠ" ]٠ŠŮ#]ŠҠϠӠſ)XWa(ŠŧҠŠϠԠԠ)a(ŠĠРϠנҠƠϠŠ)4XS(ԠŠǠԺ)&@`@:()$d `a@F ja() ta@F*~a(ӠԠŠΠŠ)bb a@F a()٬Š٧)a(ΧŠӠԩ)WBa(ƠɠϠԠӠԠҠ̠Ӭ)a(ɠ̠ˠՠנӠϠ)6La(ԠŠɠ̠נԠҠ)a(Ӯ)cQVa(ϠՠԠŠϠԠǬ)a(ŠՠԠŠ$dg$ca(Ӻ)ca(ՠ̠ˠƠΠ̬Ġɠ)a(٠ϠӠԠ̠ՠ)U.a(ǠƮɠ̠ϠӠ٠)a(ՠӠƠӠԠ)r8a(̬ϠȠՠĠ)a(ӠҠϮԠƤŠԠŠҢӠҠ͠ӠϠӮ]a(LJҠŠ٠Ԡ)a(ŠĠΠҠϠ٠)a(š)moa(̠ǠŠ)ca(ŠՠҠĠſ)GR@`;@r%`@*#r9()Ŭ)@p(ŠŬ)@p()@p(ΠŬ̸)a@v]ŠŠӠŠԠϠԠŠ٠ĠϠԠǠҠΠŠŠŠήźq]ҠΠԠĤĠŬҢŠ] ] ]ĺ ]a(ΠɬϬ)^KM6N@"FrC@"FrC@"FrC@"FrC@"rC@"rC@" rC@"rC@"(rf@p(Ġ]͠ӠӠ ]ԠӠӠ ]͠ŠҮ ] ]͠Ӻ ]ˠ٬ˠɠ ] ]ҮΠ )FE(ӡ)_> ]ɠԠԠԡ*UVW cY4a(ɠԠԠԡ)>>cS(ԠϠ٠ο)&@`;@r%`@*#r9()%Q_d ] ] ]̺ 5qqbE()Fa@FR@TTa@F*a@`@9()$bb_bba@F$a@`@9()$bb_bb a@Fa@a@(a(ɠננ)E@*ra(Ġ)E@*rG-DS()&@`@*;@rr9()%@p@*#;@rrkNca(ԠĠŠԠҠҠ)a@*rE(ſ)GR@@p@*#r`@:()@:()$NXa@ ba@Fl]ŠҠĮvT'a@F6@p@*#r`@:()@:()$`@9()$ ,]ɠΧԠנԠ̠ԠӬˠF&cca(̠ԬɠŠЮԠ̠)a(ՠǠƿ)G0@p()R@Brd:ca(ŠŠΠԠ)a(Ƞ)$.`@9()%q`@9()%q_n7]ŠĠΠ̠ٮӠԠŠԠſHa@@p()a(ӠŠ̠էŠǠƠ)GUVWM`@*#r9@*#r%a()GYca@*rGS()&@`7;@r$na@ xa@F0R@`@*#r9()$TTh]נŠΠϠˮҠӠԠĠϠϠϠƠŠӠӬҠƠŠӠϮa@Jca@GS()&@q`7;@r$@p@*#r`@:()@:(m_]]]Ӻ]Ԡ٠]ŠҠî]],dq]ŠӠŠ͠         x! n$dn$i&d( } }   }s} U]Սߟ55555AM A=J :"J :":"J :"J :341(1(AAMMWb W MA:AM b W MWb(x!n$} x!d  s n$ s"d(  x!ss"      } d( xis"x!  }@M W b h b W b vb W MMM W b W MWWM W b h b W b vb W MAAM b W MWb(M AM AAM  HhHh0`ɛLb L^ Ruuu4u4R4R4R_chdKOKOKOOK!NCNCNCC!!!NKFFFJFJFOK4H 44HH4  ccO  cccMM!!__uuOu}u}u}}u""> """"""< >> "HPRWɍ;)?  i% HH Ge$ihhhLHH L 5hh`i V$ Gi     𼪩"""""""**6"""""""> >>>  >00000>">>>< (&20 *, **>> "2*&" " >>  ">> "8 hh`"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">"""""""[#yd6eбd7eвd8eгd9eд yd6?e yKM6KyQ]H &h`H &I1h`H &1h` G me@` @ )jjjj) j)jj)`  ff `HHŠŠϠld<e.?Lrd=e.?Mrd>e.?Lrd?e.?Mr]ͽ͠ΠƠŠũϠ$dBedCe]ŠϠ\M6]̠ŮӠӠԠϠŠҠĺͭݮ()[UV W X q.?rq.?rq.?rq.?r\Y[q q.?r&`.?r%[0q/?r":`.?r$0DqdeNq_&"]Š0?r6UVW@dedeJdeMTdeM^qqc`.?6@r$yhY[rd6ed7e |oPa()Pa()Pa()o Pa()oPa()oPa a()Pa()UVWY`.?6@r$yo P a()Pa()UVWY`.?6@r$yUVWY\_nQqq("q1?r`1?r1?r%q1?r!,qqq0?rqe`$y<] FM6&PMd6?ed6?ed6?e Z\\rdUVWYnUVW-s`.?6@r$y xo P a@*#rUVWKYYUVWYMM `.?6@r$yUVWYo P (M6%2o P a(ŭΠ)45o Pa(ԠŠҬî)7oJ8cca(ΠՠԠϠĠŠͬ)a(ŠӠŠàٮ))9ca(ŠӠΠϠή)G3:q.?6@r`$:d6?L7]ŭΠΠ٠ҮʮK4 dJedKedede]ͺ\q+бq.?6rвq.?7rгq.?8rдq.?9r N@"3r<@p( РӠŭΡ)       \.......................................Z\.......................................\.......................................\.......................................\.......................................\.............................................F\.......................................t \....................................... \....................................... \....................................... \.......................................,....2\.......................................`\.......................................\.......................................\.......................................\.......................................\.............................................L\.......................................z\.......................................\.......................................\.......................................\.............................................8\.......................................f\.......................................\.......................................\.......................................\.......................................\.............................................R\.......................................\.......................................\.......................................\....................................... \.............................................>\.......................................l\.......................................\.......................................\.......................................\.......................................$\...\.......................................X\.......................................\.......................................\.......................................\.......................................\.............................................D\.......................................r\.......................................\.......................................\.......................................\.......................................*..0 \.......................................^ \....................................... \....................................... \....................................... \.......................................\.............................................J \.......................................x \....................................... \....................................... \....................................... \.............................................6 \.......................................d \....................................... \....................................... \....................................... \....................................... \.............................................P \.......................................~ \....................................... \....................................... \....................................... \...............................SS *# m* THAN 400!! *@ n* *] o* PROGRAM WILL *z p* SELF-DESTRUCT! * q* * r*********************** s 1000 \......................................." \.....1d***********************;e* *Xf* W A R N I N G *ug* - - - - - - - *h* *i* DO NOT MODIFY *j* ANY LINE IN THIS *k* PROGRAM WITH A * l* LINE NUMBER LE                  ESCOLE1:FLP1FLP:21FLP(SCOLE1)9<Q;:Q10ĺ" ";BFI:]P24:958:"SCORE= 0";Z(787)37ĭ(788)381390: IF "VARIABLE" ALREADY INITIALIZED, SKIPd787,37:788,38:789,0:790,0: SET FLAGS AND INIT NON-CLEARING VARIABLE#n22:"HIKYİ20Z1551160  EZ155VTB21::16368,0:11070`OQ500:16368,0:2520z1300: AFTER SIZE IS PRINT POINT SCALESCOLE6LL:KYSCOLE9LL:SCOLE6SCOLE6(936:"POINTS PER BRICK -> 1 ";%2FLP0:I28:QISCOLE TO SCALED SCORE--DEPENDENT ON PADDLE SIZEjjS(789)(790)2561160: NEW SCORE LESS THAN HIGH SCOREt790,S256:789,S(790)256: POKE NEW HIGH SCORE INTO PLACE~21:15:"FORMER"Z(16384):KYĭ(16287)1271190Z1601190E":KYS$"PUSH BUTTON"dM50,63:24:S$" FOR NEW GAME, ESC KEY TO EN";:2039,4:50,255:16368,0V "POKE 2039,4" POKES AN INVERSE "D" INTO THE LAST SCREEN POSITION, AVOIDING SCROLLING.+`SSSCOLE(SCOLE1)(CNT1)BANUS:BANUS0:CONVERT RAW SCORTRY IT AGAIN!":1100"NVC10306"FAIR. ":1100X"GETTING REALLY GOOD.":1100o"NOT BAD. ":1100"GOOD.":1100$"VERY GOOD.":1100."VERY, VERY GOOD.":11008"EXCELLENT.":1100B"NEARLY PERFECT.":1100LS$"PRESS SPAC:NVC1:1100NVC1950Z"STILL NOT GREAT,":"BUT KEEP WORKING AT IT.":NVC11:1100"ALL RIGHT.":"JUST KEEP TRYING.":1100NVC990EXTP910"PRETTY BAD!":1100"MUCH BETTER THAN IT WAS.":"KEEP GOING!":1100"O.K.":". 24::::22:"YOUR SCORE IS ";:S10910?*S50EXTP1P4S100NVC0^>S20960mHS601010}RS1201040\S2001050fS3001060pS4201070zS65010801090NVC930 "NOT TOO GOOD, BUT":"KEEP ON TRYING!"END OF SEARCH!6,10:7,3:76866,120:7,2:768J6,50:7,1:768_: END OF TITLE23(LL0):"CONGRATULATIONS, ";:(A$)ĺA$;", ";"YOU WIN!";:868::LL0ĺ"YOU ARE A BRICK OUT WIZARD!" A$"CHAMP":LLLL1:LL0LL01100Z1590(ROWSIZE(1):Y%YA(ROW)23&36864h:X%34SIZESIZE1:YA(ROW)YA(SIZE):SIZEZ590}D(16384)141ıZ PUT LAST ROW NUMBER IN JUST USED-UP ARRAY ELEMENT AND REDUCE SIZE OF ARRAY BY 1  THIS PREVENTS SLOW-UP TOWARD 0,37I:C:W((I4(I4))4.05)(I4)374D W,W1I:W:460S A:0,37Iq I:A:I3539:0,37I:Iw  A:0,3938:0,3939:0,390:15,15 I20342:B:((I4(I4))4.05)(I4)ĠC 38,39I:I:  KNOCK-OUT BRICKS S720250" ^24::::1500:7609 hI119:0,37I:IJ rF:15,15:A |I21352:0,37I:I:I3639:0,37I:I:: BACKGROUND  DRAW FIELD A:0,370:D:15,15LL0 A:I119:0,37I:I:F:15,15 Q1:I2034:Q1Q:Q450/ B:BRICKb (K2)2,(K2)21I:SSI29:24:8:SSCOLE(SCOLE1)CNT;:CNTCNT1:23:1:VVNODp "I26H0 'V((NH)1)(V):6,180I3:7,3:Z(16336):768:(V)2Ĺ806,30 ,6,140I(1):7,2:768 66,50:7,3:768 J ^BRICK STRUCK T)(16336)(16336)(16336)(16336)(16336):: SIDE BOUNCE I16:M(16336):I:IX(V1):M0:V2:VV0:H0:OD0:806,30:HIT BACK WALL VV 75 MV(V) M1:M DECIDES WHETHER BALL WILL BOUNCE TOWARD BACK WALL AFTER STRIKING :W(KP)2LL:M1:LL3WW23 WW((1)4)1K LL0W((1)4)1b 6,150(W)4:7,3 PADDLE SOUND'S PITCH IS DEPENDENT ON WHERE STRUCK (W). Z(16336)(16336)(16336)(16336):768 75C WW:JY:Z(16336)(16336p  2000#Q(0):(QOQ)5ı@Z(16384):Z15511000`OQQ:Q%Q:36867:QQ%:PQ:{KX,Y3:F:I,K:XI:YJPJYW:J0J119İ230xIXV:I01900I6OQ50020:A:KJ3:I39240I,K)E75I270 NN1:V(V)                                                               VERIFY.ME935:2,350:2,3539:&I1(A$)=2I2:(A$,I,1);FI:P::((IP)29):P255P255"1500H21:"X IS ";X;" ":"Y IS ";Y;" "X(E)Z200f(G)ZĈz(H)ZU(U1)U16U0U:X,Y:9406,P:7,D:768:((40(A$))21):A$:: :I031:I2:0,39I3:I 5:0,392:0,3 CONTROLS AND BUTTONS.":2000P *A$"THE BUTTONS CLEAR THE TV AND CHANGE":2000 4A$"THE DISPLAYED COLOR. TRY ONE NOW.":2000 (G)Z(H)Z930 (E)Z200 900 : P(0):X(P6):X39X39 I(1):Y(I6):Y39Y39P142 l2I4:I; vI:* I11529 2I4:I;I I:::450{ ::W350:I119:J019:KIJ:(E)Z200 J3(I3)IW12 I,K:K,I:40I,40K:40K,40I K,40I:40I,K:I,40K:40K,I J,I,W:450 :A$"USE THE GAMEN(A$)48 N1N5ī200: N500,600,700,800,5000J (E)Z450S 200] 3000 A$"BMDPDGMLBOGPLYAW":4000: A$"LGBUGRBBRRRIGEQI":4000: A$"ATLRRELLWNENRLUT":4000: A$"KAUPNYUUNGYKNOAE":4000 &450 X3000 bI0STANDARD COLOR NAMES":2000& 6"2.";L @A$"STANDARD COLOR NUMBERS":2000W J"3.";s TA$"KALEIDOSCOPE":2000~ ^"4."; hA$"SKETCHING SCREEN":2000 m"5."; oA$"EXIT PROGRAM":2000 r |"WHICH WOULD YOU LIKE?";A$ (A$)0ī200 TRATION PROGRAMS":2000:F " TO OPERATE A DEMONSTRATION, TYPE"s "ITS NUMBER. THEN TYPE THE KEY MARKED" "'RETURN' AT THE RIGHT EDGE OF THE KEY-" "BOARD. TYPE THE 'RETURN' KEY TO STOP" "ANY DEMONSTRATION.":: ""1."; ,A$"Q7U9:D3:E16384:F16368:G16287:H16286:Z127~d768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7n776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96:::F,0 A$"APPLE DEMONS     :LINE; "LINELINE1B ,"POKE ";PLACE;" , ";(PLACE);" :";M 6PLACES @b JD$"CLOSE"h TdTO START AT? ";LINEr LINE0LINE63999ĺ:"BASIC LINE NUMBERS MUST BE IN THE RANGE":"OF 0 TO 63999";(7):170 D$"OPEN "N$ D$"CLOSE" D$"DELETE "N$ D$"OPEN "N$ D$"WRITE "N$ PLACESE CC1 C10C1 C1300 id PROGRAM POKER!nD$(4)'xG"FILE NAME TO CREATE? ";N$o:"STARTING ADDRESS (DECIMAL)? ";S:"ENDING ADDRESS (DECIMAL)? ";ESEĺ:"THE STARTING ADDRESS MUST BE LESS THAN":"THE ENDING ADDRESS";(7):140 :"BASIC LINE # SCREENq"NOMON I,O,C".vD$"CLOSE DO'ER"J:::"IT'S DONE!!!":P"YOUR APPLE'S READY TO DO'ER IT'S THING!""ALL YOU HAVE TO DO IS TYPE""EXEC DO'ER""PRESS THE RETURN KEY, AND SIT BACK."W LISTING"(N"FOR X=1 TO 1500:NEXT X"OX"SAVE EVEN MORE RECENT PROGRAM!!"kb"DELETE NEW PROGRAM!!"~c"HOME:VTAB23"d"PRINT"Q$"PRESS ANY KEY TO CONTINUE"Q$"e"POKE 35,20 : VTAB 1"l"CATALOG"m"TEXT": ALLOW MESSAGE TO SCROLL OFF %"POKE 35,20 : VTAB 1"*&"CATALOG"[("TEXT": ALLOW MESSAGE TO SCROLL OFF SCREENt0"RUN NEW PROGRAM!!"z5:"115 PRINT"Q$"WE CAN EVEN CHANGE IT"Q$"?D"LIST : REM EVEN MORE RECENT PROGRAM!!" I"REM PAUSE TO LOOK AT NE"MON C,I,O";"CALL -155 : REM JUMPS TO MONITOR"T"800.820 I 821.840"^"FP""PRINT"Q$"PAUSE TO LOOK AT MONITOR LISTING"Q$"FOR X=1 TO 1500:NEXT X"!"MON C,I,O"""HOME:VTAB23"$"PRINT"Q$"PRESS ANY KEY TO CONTINUE"Q$"AM!!" , "LIST : REM NEW PROGRAM!!"P "REM PAUSE TO LOOK AT LISTING"o "FOR X=1 TO 1500: NEXT X"z "INT" "MON C,I,O" "LOAD APPLESOFT" "LIST" "FP" "PRINT"Q$"PAUSE TO LOOK AT LISTING"Q$"FOR X=1 TO 1500:NEXT X" JD$(4):CTRL-D( TD$"MON C,I,O"< ^D$"OPEN DO'ER"Q hD$"WRITE DO'ER"[ r"FP"l |"MON C,I,O" "REM HERE IS A PROGRAM"  "100 TEXT:HOME:VTAB 5" "110 PRINT"Q$"HERE'S A NEW PROGRAM"Q$ "120 END"  "SAVE NEW PROGR END INSTRUCTIONS AND WAIT FOR KEY TO BE PRESSED. "A$:A$(27)Ā: ESC KEY PRESSED ,A$(32)320: SPACE BAR PRESSED 6(7);:290: BEEP AND TRY AGAIN @:: PROGRAM STARTS HERE, "DESCRIBES THE PROGRAM IN MORE DETAIL."6 :10Y :"<< HAPPY EXECUTING >>":: "PRESS THE SPACE BAR TO MAKE THIS" "PROGRAM CREATE THE FILE DO'ER."  "IF YOU WISH TO STOP THIS PROGRAM NOW," "YOU MAY PRESS THE ESC KEY."\ EACH A LEGAL APPLE II COMMAND."7 :"WHEN YOU TYPE"I "EXEC DO'ER"u "THEN THE COMMANDS IN FILE DO'ER TAKE" "CONTROL OF YOUR COMPUTER. EACH COMMAND" "WILL BE EXECUTED JUST AS IF IT HAD BEEN" "TYPED AT THE KEYBOARD. THE DOS MANUAL" "HOME : VTAB23"`dQ$(34): 34 IS THE ASCII CODE FOR A QUOTATION MARK (") on::2:12x:"<< EXEC DEMO >>":::"THIS PROGRAM CREATES A SEQUENTIAL TEXT""FILE NAMED "Q$"DO'ER"Q$" CONTAINING SEVERAL" "STRINGS,      THEN RETURN TO THE LINE NUMBER THAT CALLED THIS SUBROUTINEpA$(I)A$(I)C$: BUILD GET ENTRIES INTO A STRING1000: GO BACK FOR MORE KEYBOARD ENTRIES"CLOSE ";N$: CLOSE THE OPEN TEXT FILEh :: RESET SCREEN POINTERS FOR PROPER TEXT MODE AND THEN END  PROCESS KEYBOARD ENTRIES INTO STRINGS C$:C$;: GET ONE CHARACTER AT A TIME AND PRINT IT TO THE SCREEN;C$R$ı: IF RETURN WAS PRESSEDS VARIABLE N$A D$;"WRITE ";N$: PREPARE TO WRITE TO THAT FILE J1I1: THIS LOOP WILL OUTPUT THE NUMBER OF STRINGS ENTERED EARLIER :A$(J): PRINTS A STRING TO THE TEXT FILE J: RETURNS BACK TO FOR LOOP FOR THE NEXT STRING A$(J)& D$;NG (RETURN WAS NOT PRESSED) THEN GO TO LINE 110u "SAVE TO WHAT FILE? ";N$: ASK WHAT FILENAME TO SAVE THE TEXT IN (N$)0220: IF NO FILENAME WAS ENTERED THEN QUIT BY GOING TO LINE 220 D$;"OPEN ";N$: OPEN A TEXT FILE WITH THE NAME ENTERED AE LINE AND SET THE TOP OF SCREEN TO LINE 6 TO PROTECT MESSAGESy nII1:I;": ";: CALCULATE AND PRINT LINE ENTRY NUMBER x1000: GO TO THE SUBROUTINE AT LINE 1000 AND PROCESS KEYBOARD INPUT/ A$(I)""110: IF KEYBOARD ENTRY WAS NOT THE NULL STRIGE IN INVERSE MODEk F:" ENTER CHARACTERS, AND PRESS RETURN": DISPLAY MESSAGE IN NORMAL MODE P:"TO END:": DISPLAY MESSAGE IN INVERSE MODE Z:" PRESS RETURN ON AN EMPTY LINE": DISPLAY MESSAGE IN NORMAL MODE> d:34,6: SKIP ON MAKE TEXTA A$(100): DIMENSION ROOM FOR 100 VARIABLESXD$(4):CONTROL-DnR$(13): RETURN(:: SET SCREEN FOR TEXT MODE AND THEN CLEAR IT2" TEXT FILE CREATOR": SCREEN TITLE <:"TO ADD A STRING:": DISPLAY MESSAST"," 1" "CHANGE"," 2"/ "EXIT"," 3"Z :"CHOOSE NUMBER (1 - 3) ";Q$:Q(Q$)i Q0Q4ı (15):(7);:450 CL$;FL$ : DEMONSTRATION OF RANDOM ACCESS (#I768775:J:I,J: 2# #169,0,32,237,253,76,142,253 DQ$:Q(Q$):(Q1Q9)Q$"0"ĺ(7);:330H ^R1Q:R2Q:Q0R11:R29S h:(5) r"PART# NAME SIZE IN STOCK ----- ---- ---- -------- " | :12);FL$:(10) "COMMAND","NUMBER" "-------","------" "LI(T):(32):ST;:(31):Q$:(Q$)0ST(Q$)Y (T):" ";R;8);N$;24);BL;32);ST;" " "WR$;FL$;",R";R:N$;",";BL;",";BW","ST &768: ,D$:R 6(23):"PRESS THE RETURN KEY TO CONTINUE.";:Q$ @80 J:"PART NUMBER 1-9 (0=ALL) ";Q$* TST% " ";R;8);N$;24);BL;32);ST, R4 D$= 310F 330^ T7:RR1R2:TT1 RD$;FL$;",R";R:N$,BL,BW,ST:D$ (T):" ";R;8);N$;:(7):Q$ (Q$)15200 (Q$)0N$Q$ (T):(24):BL;:(23):Q$:(Q$)0BL(Q$), "NOMONI,O,C":$ :D$(4)8OP$D$"OPEN "MCL$D$"CLOSE "a(RD$D$"READ "v2WR$D$"WRITE "<FL$"APPLE PROMS"FOP$;FL$;",L40"J9000P390ZQ100,180,480d330nRR1R2xRD$;FL$;",R";R N$,BL,BW,    Es C$R$ı: STRING IS DONE WHEN A RETURN IS ENCOUNTERED, SO RETURN TO LINE NUMBER THAT CALLED THIS SUBROUTINE A$(I)A$(I)C$: BUILD INPUT CHARACTERS INTO A STRING 1000: GO TO LINE 1000 AND GET ANOTHER CHARACTER FROM THE TEXT FILE TO THE SCREENJ I: RETURNS BACK TO FOR LOOP FOR THE NEXT STRING A$(I)y D$;"CLOSE ";N$: CLOSE THE OPEN TEXT FILE :: RESET SCREEN POINTERS FOR PROPER TEXT MODE AND THEN END READ A LINE OF TEXT C$:C$;: INPUT ONE CHARACTER AT A TIMESTED TEXT FILEN nD$;"READ ";N$: PREPARE TO READ FROM THE OPENED TEXT FILE xI1100: SET UP LOOP TO READ UP TO 100 VARIABLES :1000: GO TO THE SUBROUTINE AT LINE 1000 AND PROCESS CHARACTERS READ FROM THE TEXT FILE :A$(I): PRINT A STRINGILE TO LISTI F:"TYPE: CONTROL-S TO STOP LISTING": DISPLAY MESSAGE P" ANY KEY TO CONTINUE": DISPLAY MESSAGE Z::34,6: SKIP TWO LINES AND THEN SET THE TOP OF THE SCREEN TO LINE 6 TO PROTECT MESSAGES dD$;"OPEN ";N$: OPEN REQU GET TEXT= 150: IF AN ERROR OCCURS GOTO LINE 150mA$(100): DIMENSION ROOM FOR 100 VARIABLESR$(13):RETURN(D$(4):CONTROL-D2:: SET SCREEN FOR TEXT MODE AND THEN CLEAR IT <"LIST WHAT TEXT FILE? ";N$: ASK WHAT TEXT F   ̠ұ̠ҲӬ̠Š͍ō΍̠ԬӬԠũԠũˠԬŠŬ R0" REC /  RETRIEVE TOTAL RECORDSN D$;"OPEN BLACK BOOK,L200"k D$;"READ BLACK BOOK,R0"t REC D$;"POSITION BLACK BOOK,R0" ION BLACK BOOK,R0"7 23:10:"RETURN TO CONTINUE";C$= b PRINT A NAME AND RECORD NUMBER D$;"READ BLACK BOOK,R";COUNT N$ COUNT,N$ D$;"POSITION BLACK BOOK,R0"  SAVE TOTAL NUMBER OF RECORDS D$;"WRITE BLACK BOOK,I >D$3 H"TYPE A NUMBER AND PRESS RETURN ";R$? RR(R$)S \R1RTRī2120Y fs pD$;"READ ";F$;",R";R zN$,A$,C$,S$,Z$,P$ N$:A$ C$,S$ Z$:P$ D$;"CLOSE ";F$ 23:10 "PRESS RETURN TO CONTINUE";T$  DPOSIT$ `S$:Z$:P$+ jD$;"WRITE ";F$;",R0"3 tTRG ~D$;"CLOSE ";F$M h D$;"OPEN ";F$;",L200" D$;"READ ";F$;",R0" TR TR0ī2210  "WHOSE ADDRESS DO YOU WANT? " I1TR D$;"READ ";F$;",R";I N$ *I,N$ 4C3Ā 30 ) "NAME: ";N$> "ADDRESS: ";A$S "CITY: ";C$h "STATE: ";S$} "ZIP CODE: ";Z$ $"PHONE: ";P$ .D$;"OPEN ";F$;",L200" 8D$;"READ ";F$;",R0" BTR:TRTR1 LD$;"WRITE";F$;",R";TR VN$:A$:C  D$(4)!F$"BLACK.BOOK"'J("WHAT WOULD YOU LIKE TO DO? "i2" 1 ENTER A NEW ADDRESS"<" 2 LOOK UP AN ADDRESS"F" 3 END"P"TYPE A NUMBER AND PRESS RETURN ";C$ZC(C$)dC1C3ī30nC1İ1000xC2İ2000  ŠҠîɠōύ!! NAME ";F$;",";N$# D$;"LOCK ";N$6 D$"NOMON C":X "ERROR #";(222);" DETECTED"z "AT LINE ";(218)(219)256 D| ONERR DEMO D$(4)-D$"MON C"7100R"FILE TO RENAME? ";F$g("NEW NAME? ";N$2D$;"RENAME ";F$;",";N$<d:(222)10200n"FILE IS LOCKED. RENAME ANYWAY? (Y/N)";Y$xY$"Y"160D$;"UNLOCK ";F$ D$;"RE""