' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(N Рˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d ֠z# u`! MARK BACHMAN-- AUSTIN, TX::13);"KEYBOARD ORGAN":X2457624591:Y:X,Y:X: 172,0,192,173,48,192,234,234,234,234,136,208,249,76,0,9624576 ========= APPLESOFT TOKENIZER ===================)A=74:B=2:GOSUB9:A=66:GOSUB9" "5A=63:GOSUB9:A=56:GOSUB9:A=49:GOSUB9:A=74:B=6:GOSUB9:FORJ=1TO60:NEXTJ:A=66:B=4:GOSUB9:A=59:B=3:GOSUB9:B=1:GOSUB9":"7A=56:B=6:GOSUB9:A=49:B=2:GOSUB9:A=43:GOSUB9:GOSUB9:A=56:B=6:GOSUB9:END":"RUN":"CLOSEX":"EXECX"d-MARC RINGUETTE-- TERRACE, B.C., CANADA "OPENX":"WRITEX":"CALL-151":"2:AD 30 C0 88 D0 04 C6 01 F0 08 CA D0 F6 A6 00 4C 02 00 60 40 00":"INT":"9POKE0,A:POKE1,B*42:CALL2:RETURN":"3A=66:B=4:GOSUB9:A=56:B=3:GOSUB9:B=1:GOSUB9:A=83:B=6:GOSUB9:  tLO1:HI24:SLO:,(ILOHIS52:IA<40):PFI:868:dPXLO:LOHI:HIXsZSS1:30L%DAVID GERSHON-- SEAL BEACH, CA:C17:RT15:C:R515010:0,RRT,155270,155R270RT,00,R:RTRT15:R::9:" FUN."R106010:140,10R140R,75140,150R140R,75140,10R:R:C::  ]ŠέŬ? M6P a(ǠծƮϮ)P a(٠Š):dedeUVWX6deM6(Y_VWX6deM6(Y_ x:90:"OH, ARTHUR, TELL ME YOU LOVE ME.":X14:Y14:S(16336)::Y1123::Y14:S(16336)::Y1345::5:"YES, JANET... AS SOON AS YOU":"GET OFF OF MY ";:255:A$"FOOT!":X1(A$)::(A$,X,1);(7);:::20X(GD)12:XXG:YYD:NX,Y):SS200(NC1):Z(16336):X,Y::SS100:0:A,B::23:12:S;" YOU WIN!":I19:1052:2{ DAVID LINKER-- SEATTLE,WA::15:T39:I01:0,TIT:0,TIT::X5:Y5:S0:T38:1:X,Y:C114:A(1)T1:B(1)T1:C1:A,B:C:23:"YOUR SCORE=";S:I150:(N15)(NCN0)Āy N(16368):N(16384):G(N21)(N8):D(N90)(N65):  ' JERRY KRAMER-- PHILADELPHIA, PA::3:A201707:B1.15((6400(A95)2)):C06.4.2:XB(C)139:YAB(C)5:C0ēX,Y:X,Y:: ? 200 N01.001.("N = ";N52N>7255NPRINTER" :I,X:22 + =========== SLOT SEARCH ===========9 :X120ZI17:N49152256I:PN(N)42I:1:"SLOT ";I;": PEEK(";N;")=";PN;2)(42I:262B(I)A(I):A(I)PN:A(I)B(I)Č868:"(EMPTY)":500<dPN162ĺ"DISK DRIVE" nPN24ĺ" ! MARK BACHMAN-- AUSTIN, TXw :Z010.2:X010.2:3:Y10(3((X5)2(Z5)2))250:X2020Z3,YZ100:X2020Z3,YZ101X2020Z3,180:::  TR1(ANS$)& nASKY((ANS$,LTR,1))@ xASKY64ASKYASKY32Q (ASKY32);\ LTR:A]  :22A"TO REVEAL THE ANSWER, MOVE THE CURSOR->."b(5:"QUESTION:":"---------"2"HOW DO YOU GET DOWN OFF OF AN ELEPHANT?"<9:"ANSWER:":"------"FANS$" YOU DON'T; YOU GET DOWN OFF OF A DUCK!"P90:10:Z11:2 dL 95);L xB1(P1):B2(P11):B3(P12):A1B1A2B2A3B3Ğ:"<";::150V 1);f (37)22Ă 22:1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000 A(23):I023:A:A(I)A:,START0K(START0STARTSTART65536d21:1:XSTART65535F"*";(8);(X10000)(X1000)(X100)(X10));X;:P(X):":";PP1A((37))(36):A1(P1):A2(P11):A3(P12)dP;:P10ĺ(95); nP100ĺ(  PAGE ONE. ";::C1(H$):511C,((H$,C,1))128::144 CHRISTOPHER VOLPE 30 CROCUS LANE TRUMBULL, CT 06611 SEPTEMBER 16, 1981E( CHRISTOPHER VOLPE-- TRUMBULL, CTH$"303: AD 52 C0 AD 51 C0 A9 22 EA EA EA EA 20 A8 FC AD 50 C0 A9 47 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 20 A8 FC 4C 06 03 N 303G": I140:"THIS IS TEXT  II1(I111/2I1:"INPUT:";I$^<II$"INPUT:"I$:I1(II$):I1$(II$,I,1)FI1:II:I1$:I11:II:(32);:I1$(73)ĢI11:II:(46);:I11PII(36)1:I1I12(II1I1):I2 I1N:WWW(I):HHH(I)::WAVGWN:HAVGHN] 180:"AVERAGE GUESS:",WAVG;:29:HAVG "ACTUAL SIZE:",W(0);:29:H(0) 180: 1:I120:"- ";::;ITEM$;:": ";W(I)= F"GUESS HEIGHT OF ";ITEM$;:": ";H(I)I PI:180t Z"ACTUAL WIDTH OF ";ITEM$;:": ";W(0) d"ACTUAL HEIGHT OF ";ITEM$;:": ";H(0) n180 x:"NAME","WIDTH";:29:"HEIGHT":180 I1N:2I:1:NAME$(I),W(I);:29:H(I):. ============ SIZE GUESSER ============L::" SIZE GUESSER "::|"GUESS DIMENSIONS":"OF WHAT ITEM? ";ITEM$("NUMBER OF GUESSERS: ";N:NAME$(N),W(N),H(N):1802I1N::"NAME OF GUESSER #";I;:": ";NAME$(I) <"GUESS WIDTH OF "%DAVID GERSHON-- SEAL BEACH, CA232,255:233,255:X((1)120)1:R((1)40)::R:X90,90:H((1)8):H0H4H1H:X90,90:1:TRY THIS EVERY NOW AND THEN JUST TO SEE WHAT'S GOING ON.  = 1:34,2< "ALPHABETICAL LIST":"-----------------"G X2IX "X11);X1;j ,". ";A$(X):} 6:(4);"PR#0" @J1999: J:24:" (TO PRINT, TURN ON PRINTER & GOTO 999";:2039,169 T:23: ^::::280 ::260D0 x70 === SORT ===4 A$(I)"----------":@ NI::S XN:N22X22_ F0:I1 2:J1X:5:A$(J);9):: A$(I)A$(I1)230 T$A$(I1) A$(I1)A$(I) A$(I)T$:F1 II1:IN190 F1170 === PRINT LIST ==& ========= VISI-SORT =========;A$(255):D$(4)E::p(" VISI-SORT ";::" TYPE '*' TO QUIT"|2:34,2< === GET WORDS ===FII1P"WORD #";I;"-> ";Z13:"....................";d12:" ";A$(I) n(A$(I),1)"*"13  EFLAGW$"LIST"ļ <20Y FL(A$):A$"A"A$"E"A$"I"A$"O"A$"U"ĺA$;:30 PN((1)5):X65N4(N3)2(N4)4:(X);:XLEFLAG1 Z308 =============== VOWEL SCRAMBLER ===============kERR$(7)"?SYNTAX ERROR":YES$(7)"!CORRECT"W$"":EFLAG0:1:"]";A$:W$W$A$:A$(13)70#(W$)220(::EFLAGĺERR$:552YES$:EFLAG0 7I199::W$(W$,(W$)1): 2731:A.01:B131:2SB:B,"$";A:AA2:::" ANSWER: HOLD OUT FOR MORE.";:23 CHRIS JOHNSON 17 BROOKVIEW LITTLE ROCK, AR 72209 SEPTEMBER 26, 1981 L& CHRIS JOHNSON- LITTLE ROCK, AR::"YOU ARE OFFERED ONE CENT ON THE FIRST DAY OF YOUR NEW JOB, TO BE DOUBLED EVERYDAY THEREAFTER FOR A MONTH."::"] QUESTION: SHOULD YOU ACCEPT?";::2:" ":R :"DAY","PAY":"---","-----------":34,8:S1 S ANY KEY: )":120:(8);(8);:(2 BACK-SPACES)T ZC$:C$: (NEW FRAME CHARACTER)d dC$" "30v nI126::: x20(A$)2:A$;:: (CENTERS TITLE)6* ========== VISI-FRAME ==========7:C$" "ZI123:I:1:C$;:40:C$;:I2I12423:I:1:J139:C$;:J,I<2039,(C$)128: (PUTS C$ AT VTAB24,HTAB40)F:10:A$"VISI-FRAME":120:::A$"BY WILL MUFFIN":120/ P20:A$"(PRES " DAVE POLIDORI-- EYNON,PA Y(1)191::7:16302,0:I1750:XXY2279(X279):XX279(X279):YYX4191(Y0):YY191(Y0):X,Y:X,191Y:279X,191Y:279X,Y:I:1 G$(7)502$h:"]";A$<"?SYNTAX ERROR";G$PAA1:A3ī360A0:"I SAID SYNTAX ERROR!":"NOW CUT IT OUT!";G$;"!";G$;"!";G$;"!";G$:360 4)0Ă x40 5 ============== COLLISION TEST ==============o:::0:1:N100:232,0:233,96:(4);"BLOAD SHAPES"6:250,0250,191:30,030,191(XN227923X,100<3X,100F(234)0ĂXPNX101Z2N,100d2N,100 n(23 [;2٠ŠӠŮɠŠҠŠϮϠŠտZ:L20552105:((L));: ~#" ANY REAL NUMBER->";X?("HOW MANY PLACES?->";NW2T(X10N.5)10Ns<" ROUNDED->";T}F:30X * ========== SCALE TEST ==========[:::0:232,0:233,96:(4);"BLOAD SHAPES"g(S110nPSR:21:10:"SCALE:";S;:958U170,30:DRAWS BOX ZS1āI1500:I_170,30:ERASES BOX dS:40SOX dS:40S HCOLOR= 0: HPLOT XOLD,YOLD TO XNU,YNU:REM (OMIT 1ST "REM" TO CHANGE)L x22a "X:";(XNU);" "v "Y:";(YNU);" "~ 60P> ============== PADDLE PLOTTER (HI-RES) ==============XPX279255:PY191255`:p(XNU(0)PX2YNU(1)PY<XOLDXNU:YOLDYNUFXNU(0)PXPYNU(1)PYZ3dXOLD,YOLDXNU,YNUD nIF XOLD < > XNU OR YOLD < > YNU THEN D IMPRESS YOUR FRIENDS! BY UNCLE LOUIE ---------------------N936[A1100qAMOUNT((1)99)~AMOUNT;#X100ĺ" + ";'SUMSUMAMOUNT+A/" = ";SUM;"."3 RINTS X POSITION- UR:5X,140:DRAWS ARROW< ZI199:IW _5X,140:ERASES ARROW^ dX:ES ARROWq dX=_# ======== ROT TEST ========U::1:3:232,0:233,96:(4);"BLOAD SHAPES"h#0,150279,150x(X502501PRR16:R48R0:INCREASES ROTATION 90 DEGREESR21:X74:1);"ROT:";R;:868:PRINTS ROT VALUE S22:X72:1);"X:";X:P  15C0L 21:1:"PADDLES CHANGE POSITION-> X:";(XNU);" Y:";(YNU);:868 23:1:" ANY KEY CHANGES COLOR-> ";C;":";C$(C);:868 60 $(9)"ORANGE":C$(10)"GREY":C$(11)"PINK":C$(12)"LIGHT GREEN":C$(13)"YELLOW":C$(14)"AQUA":C$(15)"WHITE"s : (XNU(0)PX 2YNU(1)PY <XOLDXNU:YOLDYNU FXNU(0)PX PYNU(1)PY dC:XNU,YNU n(16384)127Ĺ16368,0:CC1:Cϑ> ============== PADDLE PLOTTER (LO-RES) ==============JC$(15)bPX39255:PYPX:C1C$(0)"BLACK":C$(1)"MAGENTA":C$(2)"DARK BLUE":C$(3)"VIOLET":C$(4)"DARK GREEN":C$(5)"GREY":C$(6)"MEDIUM BLUE":C$(7)"LIGHT BLUE"k C$(8)"BROWN":C TX48:3065 :3070:? T;" ";(T);" ";T128;" ";:U X140:"=";::XV3 ASCII SCREEN PRINTER --------------------C :3070:12[ "* ASCII VALUES *"e 3070 "FP...INT FP...INT FP...INT FP...INT" "-------- -------- -------- --------" X3247 TX:3065 TX16:3065 TX32:3065  1 ============= SHAPE DISPLAY =============c::0:1:232,0:233,96:(4);"BLOAD SHAPES"p0:1:3|SH15SHSH21,150(SH2:21<4:"1 2 3 4 5"S"1 2 3 4 5"  ======= RUN PUN =======?A$"PPS.!ZPV!TQFMMFE!SVO!X"QA$A$"SPOH/"]L(A$)h1036s(1036}2998<1008F(A$,1)P211ZI2LdX((A$,I,1))n(X28L);xIA 1) |yXYCH32XYCHXYCH1929 yXYCH96XYCHXYCH128T yXYCH128XYCHXYCH64b y(XYCH);l yXPSNx y(13); yYPSN 1x JACK'S TEXT PRINTER (DUMPS TEXT SCREEN)gyFIRSTLN1:LASTLN22:SET VTAB TOP & BOTTOM LIMITSy1:OR YOUR PRINTER SLOT # "y50,255:,yYPSNFIRSTLNLASTLN@yXPSN140TyYPSN:XPSN hyXYCHXPSN1,2(YPSN1))16XPSN1,2(YPSN1) `p0@PX--->??7--->??7--->??7--->??? ֪c? d-6?7-57M,??L:  DEMO-- MAKES RUN+1000D40286,35:40287,216NXX1d(X;" ";:X40030240286,35:40287,216::"START COUNTING...";:X0:30 ----------------- (Q)136240H Q16,0:RR1:R5R0i R1250,260,270,250,260,270r 190 X1373:15(R3):0,39X2:X:240 X1373:0,39X:X:240";:7:0,47 J012:X3Jq CLASSIFY BY B/W SHADE: ---------------------- J5Ġ2J6(J4) J4Ġ3(J4) J8Ġ152(12J) IX1X3:0,39I:I:J SEPARATE COLORS: 11 13 14 MAGDRKDRKBRN&10LAVMEDORGBRTLITPNKYELAQU BLUGRN GRY BLU GRNBLU " V2123:I1373:T40(V21)I:IMODI(I6)6:IMOD4IMOD0Ğ V:I1:(A$,T,3((VI)61));::I,V 1:">PRESS ANY KEY.";:21:"(0=BLACK; 15=WHITE)Ud====================== LO-RES TEST PATTERN/AS ======================fx::Q16384 NAMES & NUMBERS: ---------------- IN LINE 150, PERIODS = SPACES.Z A$" 1 2 4 8 5 3 6 9 12 7         z"#????ΠҠԠǿ Ҡ" ŠӠ ɭӠӠŭԠ̠ԠҠҠԠҠӠҠΠҠ ԠȠ ǮҠ ǮҠ ǮҠ ǮҠǮҠ ŠԠ ԠԠ ŠԠ ΠԠ ɭŠ ̠Ҡ Π ҠҠ ΠҠΠҠҠ ͠Ҡ" РˠӠ Š٠  ҠҠҠ ҠҠ Š ŠҠ ĠԠ ŠԠŠ٠ ЮҠ ЮҠ ЮҠˠ ԠŠǠԠ ԠԠ ̠Ҡ ̠ԠɭӠ ϭŠΠˠ ЮҠ ЮҠ ЮҠ ЮҠ ЮҠ ͠ԠҠ ؠĠ! ٭ԠĠ" Рˠ ԠҠ ΠΠ ̠ԠϭӠ  ЮҠ ЮҠ ЮҠ ЮҠ ЮҠ ЮҠ ΠŠ  ٭Š̭ؠҠ ԯРҠЮҠ ЮҠ ЮҠ ЮҠ Ġ٠ РˠɭԠҠƠӠԠŭҠĠ٠ӿϭҠΠ !ԠΠҠ"ˠ٠ؠϭӠԠΠ˧ӠԠҠ ɠΠҠ ӠҠӠ ҠҠ ЮҠЮҠЮҠ٠ӠӠϠӿĠӿš Ԡ̠ӠРˠРˠԠϠРԠРϠԠԠ٠ҠҠΠd7 :1:1:"WHAT'S YOUR NAME? ";N$:234:SP$"":10bSP$SP$"."::" ";N$;" ";::SP$;:20 ,(N(N5)5) d(36)0ĺ nX53854ERR1::I1500::::" APPLESOFT ERROR MESSAGES: "::"---------------------------" xX=. ========= APPLESOFT CRUISE =========HSTART53456:FIN54116:::" APPLESOFT COMMANDS: "::"---------------------"(XSTARTFIN:P(X)2P7Ğ:"G";:<(P);:P128110FNN1PERRĖ122((N(N2)2)0) ZERRĖ18  (X100)(X10)3 X;"=$";(A%);(B%);(C%);(D%);9 N:N16:SN2:CN3':X0655352(A%XCD2B%(XA%C)S[<C%(XA%CB%S)NmFD%X(XN)NPA%A%1767(A%9)ZB%B%1767(B%9)dC%C%1767(C%9)nD%D%1767(D%9)xTT13:T13T27ĺ:T1 T(X10000)(X1000) ]ŠέŬ?M6P a(ծƮϮƠ)P a(٠Š)PdedeUVWUVWKUVWX6deM6(YZZ_#]ӠҧӠĠ(8):G$(7):T0:C0G Q16384:QQ16368:BKSP136:N1:HBIT128:CR141 1:I111:1:MODI(I2)2:(4210(MOD0));:160:::1:G$;" START ";G$;:160::1:868 QQ,0:1:C$;: W1100::ICONDS = ";(60WS);" WPM":I139:"-";:r d24:1:" ANY KEY = TRY AGAIN, Q = QUIT.";:1:A$:A$"Q"ĺA$:40 i23:958: n:::22:7:"TYPE WHEN YOU HEAR THE BELL.":I139:"-";::24:10:"TO STOP, HIT ."; xC$(95)(32)(8)> ================= SPEED TYPING TEST =================eADJ97: (LOWER TO SPEED UP CLOCK)n(1102TTN:K(Q):KHBIT50FQQ,0:KCRĺ(K);C$;:CC(KBKSP):50P958:W((C2)5):S(TADJ)* Z22:1:958:W;" WORDS / ";S;" SEd!e'P\i$a(ŠŠ٠ŠԠ٠ϠŠҠӮ)G\a(Χ)G\a(ҠȮ)8)d2e?oP a()GPa()d2eo .\c[cCica(Ժ̭Ժԧ)G\a(Ч)G\9na(Ժԧ)G\a(à)E@E()G\sa( )xca(Ϡ) }KoQg.?$rh.?%r[0a()G[d ep@*#r@B;@rrp(Ů)LZca(ԠĤ)G\a(Π)E@*#rE(Ůӧ)G\5_a(Ĥ)G\a(Š)E@E()G\Tda(̠ųԠԠĤ)G\a(ŧ)G\qf@p()]̭ĩa@E(Πìɬ) KM6#a@E()c((\ca(ԭР)\cc(-S(ŠƠԠͺ)&@M62`@9()$#7\Kca(Ġ)E@)P`;@r%@B;@rrp()5U@U]ҭԠҠ٠Ԡa]ӠԠŠҠíǠɮ®ϠӮ2]ՠԠԠؠΠȮ N@"(r  ATTER ---------% SP$(32):HY$"-"> (A$)COLĖHT:A$: LTRCOL11:X$(A$,LTR,1):X$SP$X$HY$ĖHT:(A$,LTR(X$SP$)):A$(A$,(A$)LTR):510 ::(7);"WORD TOO LONG":SE RUN THEM, LIST THEM, CHANGE THEM AND LEARN.":500: nA$" THIS GREETING PROGRAM IS A TIP IN ITSELF. NOTICE HOW THE SUBROUTINE (LINES 500-520) FORMATS THE STRING A$ (THESE WORDS) SO THAT TEXT LINES BREAK BETWEEN WORDS.":500 255:  FORM#(64435)6E21:IF.APPLE.2E8 :::I1999:3:::21:13:" ":13:" TIP DISK #1 ":13:" ":<I119:J125:::Z6:COL40:HT1:1996 dA$" HELLO. THE PROGRAMS ON THIS DISK ARE MEANT TO TEACH. PLEA  CHARACTERSK 255:0:1024(X140),Y:191:16:1X,0:ERASE BOTH LINESv (16384)127160:CHECK FOR KEYPRESS 80:GO BACK 16368,0:PREVENT KEYPRESS FROM PRINTING ON SCREEN :22:"SO LONG!"RDDLES; Z255:0:1024(X140),Y: DRAW HORIZONTAL LINEd d191:16:1X,0: DRAW VERTICAL LINE n(XXXX2XXXX2)(YYYY2YYYY2)Ģ22:13::" YOU FOUND IT! ":I1500:::22:13:15) x24:1:"X=";(X);" Y=";(Y);3):SPC(3) CLEARS EXTRAR IN VIEW <"CAN YOU FIND THE HIDDEN TREASURE?":24:16:"(HINT: USE THE PADDLES.)";: SEMI-COLON PREVENTS VTAB 24 SCROLL-UP FXXX100:YYY50:3:XXX10,YYY10XXX10,YYY10:XXX10,YYY10XXX10,YYY10:DRAW AN X  PXPX(0):YPY(1):READ PAR 24576,1:24577,0:24578,4:24579,0:24580,5:24581,0: SHAPE TABLE FOR LINE232,0:233,96: POINTERS TO START OF SHAPE TABLEPX279255:PY191255:PADDLE LIMITS (:CLEAR & SET HI-RES SCREEN 2:21:4: CLEAR TEXT & PUT CURSO2DA ================== TEXT SCREEN FORMAT ================== 2::I139:A$A$(95)::I124:I:1:A$;:::X223:Y5405:X:Y:(A$,1);::<Y12423:I5355(Y1)5:Y:I(I9):I;::::I124:I:1:I;::2038,52:2039,48::60  L::3:X(21),Y(21):T221:X(T)78(.314T)140:Y(T)78(.314T)80:T221:QT21:X(T),Y(T)X(Q),Y(Q):::24 JERRY KRAMER, PHILADELPHIA 100 PFLAGēX,Y:FLAG1% ZX,Y/ d:30:05 ============== CIRCLE PLOTTER ==============D:3:ST.116301,0::22:1:"X CENTER, Y CENTER, RADIUS: ";XCTR,YCTR,RAD:FLAG0:ST.1:16302,0(I06.3ST2XRAD(I)XCTR<Y(RAD4)(I).3YCTR FX279X0Y191Y0FLAG0: :BUTTUN16287"X01:9(XBUTTUN)127ĞI(10:120Xa2"PADDLE ";X;":";:s<" ";(X);2)~FX:20B L::3:X(21),Y(21):T221:X(T)78(.314T)140:Y(T)78(.314T)80:T221:QT21:X(T),Y(T)X(Q),Y(Q):::24JERRY KRAMER, PHILADELPHIA @p()]̭ĩJa@E(Πìɬ)a@E(Π)a@E(Š)M6 d!eotua@E()KQ]ĠϠԠ͠ΠРàŠԠ5,11" P"POKE 33,37") Z"POKE 50,63"8 d"CATALOG"l n"TEXT:VTAB22:NORMAL:POKE44452,24:POKE44605,23"~ x(4);"CLOSE"% --------- STRIPECAT ---------k (A DIFFERENT WAY TO CATA-LOG. NOT BETTER MAYBE, BUT DIFFERENT) (RUN THIS TO CREATE A T-FILE, "C". TYPE "EXECC" TO USE.) ((4);"OPEN C"2(4);"WRITE C"<"POKE 44452,12" F"POKE 4460T.": 90"THIS IS SHUFFLE.":I :0 =========== GOSUB POKER ===========NJ  302213,48G(G10)10:2212,48((G(G100)100)10):2211,48((G(G1000)1000)100):2210,48((G(G10000)10000)1000):2209,48(G10000):00678:SHUFFLE12345:COUNT678(GSHUFFLE:20-GCOUNT:202 "THIS IS COUN TION (1 TO 255) ";D:768,F:769,D:770::"ANOTHER TONE (Y/N)?":X$:X$"Y"2N"BRUCE JOHNSON-- REARDAN, WAA,B:A,B: 770,173,771,48,772,192,773,136,774,208,775,5,776,206,777,1,778,3,779,240,780,9,781,202,782,208,783,245,784,174,785,0,786,3,787,76,788,2,789,3,790,96:NN1:N211M 81:"FREQUENCY (1 TO 255) ";F:"DURA  D$(4)XD$;"NOMON C,I,O":D$;"OPEN CONVERTFILE":D$;"WRITE CONVERTFILE":936:D$;"CLOSE":::1.CORRECT SYNTAX 2.APPEND TO FP PROGRAM 3.RUN 32764 4.INT 5.EXEC CONVERTFILEN) ========== DOWNSCROLL ==========30:NABC:INDE:JIIF:J,(JE):::INGNH:I,(IK):::1:1:868:20A2000:B1920:C40:D1132:E128:F39:G896:H857:K856:CZ50? dEMAN$"":X(NAME$)11:EMAN$EMAN$(NAME$,X,1):X n:::Q$;NAME$;Q$" SPELLED BACKWARDS":"IS ";:Q$;EMAN$;".";Q$: x"TYPE ANOTHER NAME: "; 40 1 ============= RETTEG RETTEB =============U:BKSP$(8):CR$(13):Q$(34)p"WHAT'S YOUR NAME? ";(NAME$"":502LTR$:LTR$BKSP$NAME$(NAME$,(NAME$)1)::LTR$;" ";<LTR$CR$100FLTR$" "NAME$NAME$LTR$P:LTR$;  G.BELL-- SAN DIEGOg::16304,0:16302,0:16297,0:X2:Y2:XRX2:XLX2:YTY2:YBY2:3FF1:XLXLF9:XR,YTXL,YT:YBYB2:XL,YTXL,YB:XRXR2:XL,YBXR,YB:YTYTF20:XR,YBXR,YT:2X ------ ---------------":4 === TYPING NOISE ===O T1(T$):(T$,T,1);h U14:S(16336):z U133:::R HEIGHT DENSITY"? "------- -------- ------ ---------------"Q I1X1:I2g 1:T$A$(I):1000 9:T$(W(I))" LBS.":1000 18:T$(H(I))" IN.":1000 25:T$((100(W(I)H(I)).5)100)" LBS./IN.":1000 : "------- -------- <-" d4:20:A$(X)( iA$(X)""135; j(A$(X))780E l958^ n8:" (IN POUNDS)" s6:" HIS OR HER WEIGHT->";W(X) x12:" (IN INCHES)" }10:" HIS OR HER HEIGHT->";H(X) :75 === PRINT DATA === :"NAME WEIGHT {7A$(20)::IF"LET'S FIND OUT HOW DENSE YOU ARE...":20:"-----"_J=== GET DATA ===sKXX1:X20135N7:"TYPE NAME AND HIT 'RETURN' KEY."::"IF FINISHED, HIT 'RETURN' ONLY."P5:21:"-------" _4:"NAME OF PERSON #";X;"->    1:BBIT(I) Z:B1Ğ* dB;::2);:2 n:O3. ============ BIT SPLITTER ============::8:9]"128 64 32 16 8 4 2 1":9}("--- -- -- -- - - - -"2J0255<I18:BIT(I)(J2(I1)):BIT(I)BIT(I)2(BIT(I)2):F10:4:J100);J10);::J;::": "; PI81A COMMA.":30$ FLAST$(NAME$,X1)< PFIRST$(NAME$,LX)y ZL(FIRST$):(FIRST$,1)(160)FIRST$(FIRST$,L1):90 d:"HELLO, ";FIRST$;" ";LAST$;".":"MY NAME IS COMPUTER, APPLE!":5 ============== COMMA INPUTTER ==============;e"TYPE YOUR NAME ":"(LAST,FIRST): ";o(6572NAME$"":X512767:C$((X)):C$(141)NAME$NAME$C$: <L(NAME$):X1L:(NAME$,X,1)(172)Ă:"PLEASE SEPARATE YOUR NAMES WITH  % DENNIS MARTINEZ-- ALBUQUERQUEm:E(191(1)):D(279(1)):C(3(1))2:B0191C:(6(1))1A0270C:D,EA,B:::62454:T1100:Z(16336)::1E q=>r f` %f$gh .Y[[. ]ҠȠō٠ԠN@"(rq M6-q/? rq/?roP&a(ŠǺ)oPR@(oPa@\_UVW;@rq.?$rq.?%r T===M PH120H:L120L:ML(HL)2:RR20:5:X,HX,M1:1:X,M1X,L:XX2j RRĒ6:X1,190RX1,190r UDA ZI140:"-";:: d===DATA=== e f"EXEC WEATHER DATES" TO CREATE DATA LINES.Y20((Y20)50)500Ē3W =0,Y279,Y::0:X1427960:X1,0X1,191:X,0X,191: AX15:DA1365:H$,L$,R$:H$"00"L$"00"ľA$:A$:5 FH$"@"XX2:85 KH(H$):L(L$):R(R$):H0L0R085 MH120H120 NL70L70 O===PLOTER WEATHER DATA BELOW, RUN AND SAVE.":180:A$;::1:255:A$] 8M(LINE100):M12MM12 9:"] ";LINE;" DATA 00, 00, 0.00: REM ";M;"/";LINE(LINE100)100::"] SAVE WEATHER CHART"::"] RUN":(37)5:G$;: ;===CHART=== <:Y019010:2:Q :" ENTER WEATHER DATA AS FOLLOWS: ":::"1103 DATA 77, 58, 0.36: REM 11/3 %::" OR, TO SKIP A DAY, ENTER: "::9:"----":"1103 DATA S, S, S: REM 11/3":90 (I1365:H$,L$,R$:H$"00"L$"00"LINE(123)(124)256:55 -> 7::A$"ENSELECT: ";:A$:A$:A$"D"60_ A$"Q"ĺ:"]SAVE WEATHER CHART":" IF NECESSARY.":(37)2:n A$"A"5 ===GET DATA=== :"EXAMPLE:":"--------------------":" DATE: NOVEMBER 3":" HIGH TEMP: 77":" LOW TEMP: 58":" RAINFALL: .36";Q$:J ===================== 4-MONTH WEATHER CHART =====================Z===MENU===:::G$(7):Q$(34):7:"WEATHER FOR CITYVILLE":90:"JANUARY 1, 1985 - APRIL 30, 1985":90" = ADD DATA":" = DISPLAY DATA":" = QUIT" :";:I1999::1:8685 PL40āIL140:A$A$" ":I ZPP1:P40P1q d12:1:(A$,41P);:P1ĺ(A$,P1) nK(16384):K128130 x16368,0:K175K186SP30(K176) I1SP::900 ======= MARQUEE =======+:SP50M1:"TYPE YOUR COPY BELOW.":("";A$:(A$)40Ģ3:958:20:"40 CHARACTERS OR SHORTER, PLEASE.";(7):302:3:A$:L(A$)<I312:I1:868:I:A$:J199:: F1:"(KEYS 0-9 CONTROL SPEED.)" ! R.F.MODULATOR-- SAN DIEGOi16304,0:16302,0:16297,0:X140:Y95:XRX:XLX:YTY:YBY:3:1CC1:C(C6)6:XLXL3:XR,YTXL,YT:YBYB2:XL,YTXL,YB:XRXR3:XL,YBXR,YB:YTYT2:XR,YBXR,YT:2X 958' :22:8:"'";A$;"' LOADING.": :D$;"RUN";A$D;  SAVE PROGRAM NAME "DOWN",D$(4)4(:F2D$;"CATALOG"_FX15:X:1:868:xZX124:X:1:6):n4:8:"PROGRAMS:"x8:"-----------------"24:" & PRESS 'RETURN'.";23:1:868:" TYPE PROGRAM NAME ->";A$ 22: ;"WRITE WEATHER DATES"% 2MSTST3> <MOM:MO12MOMO12N FL:DAY1L~ P100MDAY;" DATA00,00,0.00:REM";MO;"/";DAY Z: dD$;"CLOSE" n31,28,31,30,31,30,31,31,30,31,30,31,31,28,31 F ==================== WEATHER DATES WRITER ====================_D$(4):D$;"MONICO":"STARTING MONTH (1-12): ";ST:ST12ST120ST1āI1ST1:A: (D$;"OPEN WEATHER DATES":D$;"DELETE WEATHER DATES":D$;"OPEN WEATHER DATES":D$18)256(219);".": P+ =========== LINE TRACER ===========6 5000l"THIS IS LINE ";(117)256(118);".":I1500:"THIS IS LINE ";(117)256(118);".":I1500:"THIS IS LINE ";(117)256(118);".":I1500::14 "PROGRAM STOPPED AT LINE ";(2  ]Ӡŭ̬`M6M60qq6,qUVWqqqq/?rq/?rqqMZqqMqqqMqqMd6?e.?6?rd6?e.?6?rY ]ӠҧӠĠ tN@"Pr@p()d6?ed6?eIq`#%qqUVW a()GYa@*# rG_;((KEY));Q$;" KEY.":9:255T/ ============ BATON GETTER ============]CURS$"!/-\":C1:Q$(34):L(CURS$):177:10:"! PRESS ANY KEY WHEN READY."(10:(CURS$,C,1)2KEY(16384):KEY128CC1L(CL):40 <16368,0:10:3:"THANK YOU FOR PRESSING THE ";Q$A28,160X(A)15A28,160X(A)$ x3000 <A((1)10)$ FX(A)X(A)1X PX(A)(X(A)50)500Ğ:BUZZ19:S(16336): ZX(A)160AVG(I10):24:14::(7);" AVERAGE: ";AVG;" ";:1:3:0,161AVG279,161AVG:0,159AVG279,159AVG:: d23:1A4(X(A)100):X(A): nC(A):3%& ========= RND CHART =========Q :N09:21:24N:N:14N:"---":q X(65536(78)256(79))z:3C(0)3:C(1)1:C(2)2:C(3)5:C(4)6:I59:C(I)C(I5):6:Y915910:0,Y279,Y::3:Y915950:0,Y279,Y: 2I11000   ]Ӡŭ̬nUVWq.?Lr8.?Mr8.?Mrrrdea(Ԡ٠٠ϠŠŠ)GM6tYQclmnq/?(rq/?(rq/?(rq/?(rq`%q_ J16304,0:16302,0I(16384)192;:2:HIT ANY KEY TO OPERATE 1) FM1CC14(C1):HH1:H2M11 K40{ P16368,0::11:"THANK YOU FOR PRESSING THE ";Q$;((KEY));Q$;" KEY."|3 ============= ROLLING BATON =============ZCURSR$"!/-\":H1:CH:MH:Q$(34):11:" ::::::: HIT ANY KEY WHEN READY.:::::::"(10:H:" ";(CURSR$,C,1);" ";:I133:2KEY(16384):KEY12780 <M1CC14(C4):HH1:H39MH "E"H ============== THE GREAT TRACE MYSTERY! ==============kH$"HHHHHHHHH":I$"IIIIIIIIII":10:I$:I1019:I:10:"J"::20:"G";H$(8:0,939:I19392:9,I:25:"TRACE WITH THE RIGHT ARROW & KEY.":9:H9:  !]Šέάad6?eLqq'fij'kf/?rghghq'`$_Sf/?rijklmnq/?(rq/?(rq/?(rq/?(rq`%q_ ( 936':LAST YEAR'S LOSER...5 ============== HEX DICTIONARY ==============_"HEX DICTIONARY:":"---------------"qA$"ABCDEF10"(A18:B18:C18:D18:(A$,A,1);(A$,B,1);(A$,C,1);(A$,D,1);" ";2:::::A  256^:2054,0:I0255:2051,I:2053,I:(37)1:255::2051,10:2053,171:2054,50, ============ TOKEN WRITER ============: :3F'REED RIGHTHEAD-- SAN DIEGO 3::2F0:CC1:16304,0:16302,0:16297,0:X0:Y0:XRX:XLX:YTY:YBY:3:C6C4C1 FF1:C:XLXLF11.52:XR,YTXL,YT:YBYB4:XL,YTXL,YB:XRXRF7.52:XL,YBXR,YB:YTYTF11.53:XR,YBXR,YT  {/ ]٠ӠӠϠӠҠҠҩ M6Lf/?r (q/?r 2q  <q FghP_{2 <-LOOK AT THIS......*:Q16384FSTART(103)(104)256c(10:"THIS IS LINE 10--"215:"HIT ANY KEY TO END."<X234321FSTART4,XP11Z868:10dI140n(Q)127130xI,X16368,0:1 ========== B5173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96IBUZZ)(BUZZ)(BUZZ)(BUZZ)(BUZZ)::A=== SCOREBOARD ===`24:4:SAUCER;:14:SHOT;v24:HIT;:HITı34:((100HIT)SAUCER);"%"; YFALLY1:Y1((1)25)3:0,(100(3N)):1,5771}I771789:A:I,A::20:640:HRZ,YFALL:60F:I039:0,39I:J19:::J1222:PD:88_NI1500:rX=== NOISE ===b9:23,2535:22,2334:25,2634lJ110:S(BUZZ)(BUZZ)(BUZZ):v0:23,2535:22,2634:J12)S(BUZZ)(BUZZ)(11:11,3812:10,3813:10,3814:10,371510,3716:10,3717:11,1418:16,3618:12,1319:16,3419:16,3420:17,342131,3322I122!I(I2)20ĠSCRCLR"I(I2)21ĠGUNCLR&J12I:0HRZ((1)40):YFALL((1)20)RZ2,39:38,39HRZ3:36,37HRZ4:HRZ5,37K:BEEP$;BEEP$;BEEP$;BEEP$;WSCRCLRfI3962u19,29I119,29I:64029,332:20,233:28,343:18,244:27,354:17,355:16,356:15,357+16,368:13,379:12,3810:11,38LLYY:HRZ35340$ @YFALL38İ390* JJ T36,39YFALL1:37,38YFALLz h800:SCRCLR((1)14)1:SCRCLRGUNCLR360 rSAUCERSAUCER1:670 |HRZ0: === EXPLOSION === 21:HRZ:SWEAR$:KILL0 15+HRZ,37:HRZ1,38:35,37HRZ2:HHRZ1,HRZ4YFALL1 08 "HRZ1,YFALL:HRZ,YFALL1u ,KILLčHRZ4,YFALL:HRZ,HRZ5YFALL1:HRZ,HRZ5YFALL2 1YY0310 2N41YFALL:900 3XFALLXFALL((1)3)1:HRZXFALL19XFALL1 4HRZXFALL25XFALL1 6HRZHRZXFALL:YFALLYFA27:SLUGHT3,SLUGHTI:* HITHIT1:670; YY1:XFALL0L Q16,0:240k 24,SLUGHT1:0:24,SLUGHT SLUGHTSLUGHT1:SLUGHTYFALL3220 0:0,3524:SLUGHT35:Q16,0 240 120 === SAUCER === SCRCLR HRZ2,HRZ3YFALL: SHOTSHOT1:610 670$ 15= 24,SLUGHT1)0200O === HIT! ===n 24,SLUGHT1:0:24,SLUGHTu 9 22,SLUGHT3:23,SLUGHT2:23,SLUGHT:24,SLUGHT1:25,SLUGHT:27,SLUGHT2:SLUGHT3,SLUGHT225 I19:620::KILL1 0:I22FALL1:YY0:HRZ0:SCRCLR((1)14)1:8005 Z21:1d _" SPACE TO FIRE, ANY KEY TO STOP BULLET "m a800~ d=== GUN === nGUNCLR((1)14)1:GUNCLRSCRCLR110 sGUNCLR:22,2639:23,2538:36,3724 xK(Q):K160220 SLUGHT35140C 32000::&(SWEAR$" @#&! "H2Q16384:BUZZQ48:BEEP$(7)NFP23:1:":SAUCERS:";:11:"::SHOTS::";:21:"::HITS:::";:31:":PERCENT:"U24:1:":::::::::";:11:":::::::::";:21:":::::::::";:31:":::00%:::";* X370:SLUGHT35:X    a WHY DOES THIS DO THIS?*X1255Y((X),:BOMBS WITH COMMA, BUT NOT WITHOUT!`FXS:WW1:10:1(W(W2)20):1);"WORKING";1)Y(WORKING SUBROUTINE HERE)hI1250:wW15100010:1:"DONE";:958:20W 4"THE PROBLEM WITH THIS PROGRAM IS THAT"b"AFTER YOU RUN IT, IT WILL NEVER BE THE"u("SAME AGAIN."22051,50:2057,40:2148,20:2167,10:d%a()G]̭ǩ;d2eUVWq.?6?rYoPa(Ӻ)G`@$ oQ bGd2e`=>r$Kd2e?oPa()GfghUVW!Yf gh4qd2ePa(Ӻ)F_f ghoPd2e?a()GEd2eqPbGP%`o?d]͠Ԡҍ7i]ԠӠϠԠ̠ŠĠӡnLM6f xoUVWxa()GY0oPM6da(Ӻ)GPa(Ӻ)G5q/?(rq/?(rqoP $TQa()G]̭ǠЩ ToPWa(ĺ)FE()GZd2e?8r]P`a(ź)FE()Gc`%QY_`$%q$`%q -f gh 0fgh 3`$96qq_<9qq <`$B?flmnB`$$HEflm$nHq#q#Kd2e?8r(N`ϠӮŠҠӡ q|LM6oPa(κ)FE()GUVW'fl&m'n'f`$$f7UVW!q.?6?rY$lm'n,'q/?r`$%q$`%q,*q/?r3]št]ӠӠŠΠĠԠĠŠԬȠĠ٠ŠŠ͠ҠҮy ]ӠŠĠ٠Š̠ŠŠƠȠԮԠŠ   :I140:A$A$"-"::70:ATHER. A DEAF POLICEMAN HEARD THE NOISE, AND CAME AND KILLED THOSE TWO DEAD BOYS.":70p <:100:255:22: FI1(A$)::CURSR$;::M$(A$,I,1):M$;:M$" "M$"."āJ125150(M$"."): PM$" "āJ12:S(16336): Z:868:: dA$""% ========= TELETYPER =========:CURSR$"+>":210bI1(CURSR$):CURSR$CURSR$(8):p(:7:100Z 2A$"ONE DAY, IN THE MIDDLE OF THE NIGHT, TWODEAD BOYS GOT UP TO FIGHT. BACK TO BACK,THEY FACED EACH OTHER; DREW THEIR SWORDSAND SHOT EACH O   I20542287:NN1:N251N235. (I,N:::E d GOTO 100 TO FIX.f nI20542287:I,("A")::: ============ REM EXPANDER ============; AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN234  :dF0:CC1:16304,0:16302,0:16297,0:X140:Y20:XRX:XLX:YTY:YBY:3:3:C6C1FF1:C:XLXL2:XR,YTXL,YT:YBYB2:XL,YTXL,YB:XRXR2:XL,YBXR,YB:YTYTF11.53:XR,YBXR,YT:4Y M6.a(Š٠خ)GPT(o.?%rP&2a(٠خ)GPT<q8 r Fo.?%r-PbE(Ġ٠)FE()F E()F ZcUVWY_ ==,8,10,144,8,238,149,3,208,3,238,150,3,202,208,242,200,192,196,144,232,96=========================== "KEY-CAT" CATALOG MENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================3:35:32,37:33,3::"---------------------------"{:5:" SECUSE":" SECFRE":5:" ";U:9:" ";R:::H 1,96,1,0,17,0,145,3,0,149,0,0,1,0,0,96,1,0,1,239,216,0,0,169,3,160,128,32,217,3,162,0,142,149,3,142,150,3,160,56,185,0,149,16210N32>BSC11N48<pX015:H,V)XT$T$(XN):D:_:I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(917)256(918):UNSR4):H,V1!|BSC10TSC0SP0;BSC10TSC0SPSP1JSP21850PMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$vBSCH,V1):TSCH,V)N64:BSC13N80 BSCЭCOLĭSCT10T$BR$+COLĭSCT2T$BR$CCOLĭSCT2T$EX$ZCOLĭSCT4T$EX$JX21VSEL1:J:1:" ";::VSEL:1:958I21:1::" ";:2:T$;:JVI:H737:1960:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC115000:1060#A$MAX$A$"A"1060kCOLāI0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)1360COLāI0462:(COL1,I)TSCCOL1,I1)BSC)1360PCOLSCT3,I):SCT13SCT14T$RU$QCOLSCT1,I):SCT1SCT9T$RU$ ";:TSC14,2VSEL2):BSC14,2VSEL1):] WCOLĢVSEL:1:37):COL::8COL);"SELECT:"; `COLĹ16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)13360 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253: A$"#"İ" "N$" "VSELV21:1060o COLĺ" ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." COLĖCOL::N$;::N$" "Ė38:"." : $VSEL0VSEL24* VCOLĢVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;"1:VX442::V21:19 0LOCK$" ":0,V)10LOCK$":"P b1,V)1FILE$"]"g 1,V)2FILE$"*"~ 1,V)9FILE$">" 1,V)4FILE$(34) *LTRLTR1:TEST$N$:N$(LTR) \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$v 768,32:769,12:770,253:771,201:772,141:773,208:774,3:775,76:776,44:777,AE:778,76:779,60:780,AE:781,0 6MEM1463,0:MEM1464,3 hMAX$"W":D$(4):D$;NO$"C,I,O" 255::::1::D$;CA$ X1452:(5,X)11)ĂX LTR64:XXENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================== nMEM((978)((978)127)256)2562947:AE174(157(978)) xNS40393((MEM2925)16) 360 MEM1313,24:MEM1466,23 ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"ICOL0(COL=LETTER-COLUMN. CAN BE 1, 3, 4, OR 7. LET COL=0 IF NO FILE CODES WANTED)COL1COL3COL4COL7COL0z <=========================== "KEY-CAT" CATALOG M! ! ! ! !!!!!!!!!\ ]ĠҠ͠Q0q.?Lr8.?Mr8.?MrrrM6oP  qa(ӠӠΠ)FE()d>e[!1::(A$,N);::(A$,(A$)N);:958:S(BZ)::n'VV1:V:I0N1(N69):H:I;:J12:S(16336)::: MAIL GREAT MAIL! ":49384,0:I2039:24:I:(A$,I,1);:40I:(A$,40I,1);:J15::n NB123:160:23: TX49237:K1NB:TX,0::J11::S(16336)::22:16368,0: TX49237:K1NB:TX,0:::22:16368,0:1160:VV2:I23V1:I:E MECHANIC":N11:999r ZA$" UTILITY CITY .................... 29.50 USEFUL UTILITIES ON ONE DISK":N14:999 dN12:V9:H3:9999:N70:V13:H3:9999:N4:V19:H33:9999:N26:V21:H3:9999:N21:V23:H3:9999X n49385,0:A$" GET ON OUR LIST. WE:999` FA$" PRONTO-DOS ...................... 29.50 TRIPLE-SPEED LOADING & SAVING":N12:999 PA$" TIP DISK #1 ..................... 20.00 100 PROGRAMS FROM TIP BOOKS 1-":N13:999 UA$" TYPEFACES ....................... 20.00 FONTS FOR APPLBOSS ........................ 24.00 DISK COMMAND EDITOR":N10:999 2A$" FLEX TEXT ....................... 29.50 -COLUMN TEXT UTILITY":N11:999 <A$" FRAME-UP ........................ 29.50 HI-RES "(34)"SLIDE PROJECTOR"(34)" UTILITY":N10.............$39.50 HI-RES GRAPHICS/TEXT UTILITY":N12:999:160 A$" APPLE MECHANIC .................. 29.50 SHAPE TABLE/BYTE ZAP UTILITY":N16:999 #A$" BEAGLE BAG ...................... 29.50 -GAMES-PLUS ON ONE DISK":N12:999C (A$" DOS o;  BUY DOS BOSS & PREVENT LISTING! FPt:V1:NB51:BZ16336:160:NB1:I124:160:::::" BEAGLE BROS DISKLIST ";::" (DECEMBER 1982)----------------------":I151:170::NB19:160:NB9A A$" ALPHA PLOT ........." """"""3((LTR14)):T(LTR)2:(LTR64)@ <T(LTR)T(LTR)1:SUMSUM1p AX:50,255:23:"TOTAL:";SUM;" LETTERS":20q *** PACK MY BOX ***':T(26)JX113:T(X)1:T(X13)21::1^"TYPE->";COPY$qSUM0:9:958#X126:8X13((X14)):T(X):(X64):(X1(COPY$)-:1:6X:" ":2LTR((COPY$,X,1))64:LTR1LTR2665" 78LTR1""