' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < 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^6L65`  \* ?*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`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`<>`ؠL,! 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:30LR::12:13:"ERROR: ";II:13:"LINE: ";JI\(7);:II12000::440`65535 ================== BEAGLE MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS ==================S<=<>@>?>@A@=?9)256:II(222):II255K155:540P@II8(888)Ĺ888,1:43624,1:47082,1:CII8(888)Ċ0:24:::(7)"DISK OR DRIVE ERROR":420HII11II6ĢVP2:1:"TRACE OVER FILE NAME TO EXECUTE:":MII1ĢVP2:1:"LANGUAGE NOT AVAILABLE":860,,32:1036,2:1037,5:1038,1:1039,7:1040,12:1041,5:1043,13:1044,5:1045,14:1046,21:15:"TO CONTINUE."; (Q)160Ė9:" ";:II1444::(Q)160Ė9:"SPACE";:II1444::(Q)160800*CL,0:4404:X140:"-";::#>J(218)(21%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:15:"LOAD INTEGER PROGRAM":15:"BLOAD BINARY FILE":11:"[1] NEW MENU/DRIVE 1":11:"[2] NEW MENU/DRIVE 2":11:"[C] NORMAL CATALOG": 4:"[F] OR [S] FREE SECTORS":4:"[?] OR [H] HELP (THIS PAGE)":4:"ESC OR [Q] QUIT"l820::39):2039"BEAGLE MENU":820::11:"--> CURSOR DOWN":11:"<-- CURSOR UP":" SPACE OR [P] PAGE ADVANCE":"RETURN OR [R] RUN APPLESOFT PROGRAM":15:"RUN INTEGER PROGRAM":15:"BRUN BINARY PROGRAM"715:"EXEC TEXT FILE"::11:"[L] LOAD APPLESOFT PROGRAM"C2GO$"BRUN":K204GO$"BLOAD"LSC1SC9GO$"RUN":K204GO$"LOAD"XVP:146:VP:1:" "GO$6(GO$)):II124:II(IIVP):1:868:NAME$"":XSC7SC36:NAME$NAME$((X)):22::958:DD$GO$NAME$:440:a40):1:13:40*bVP3PGPG1NPG(PG1):VP22:440TlVP23PGPG1NPG(PGNPG):VP3:440]v470vK149K160K1361,2VP2)0ĝ:VP:4:"--->";:VPVP(K149K160)(K136):VP2VP24Ė3:868:645SC1,2VP2):SC4GO$"EXEC"!S(PGNPG):VP3:440-0K200K191K175740f:K198K211Ğ:1:24:"FREE SECTORS:";496SS::470DK195ĺ::DD$"CATALOG":820:"ANY KEY:";:756:440IK170900NK177K178KK176:43624,K:47082,K:S470XVPVP(KRA)(KLA):68:3,52VP1::CL,05FLAGĞ:24:2:"ARROWS";:PK(Q):FLAG1:KF490kCL,0:P12:X(BZ):VP:7:1):3,2VP1)8:3,52VP1KRAKLAR600K141K204K210670K155K209Ģ22::958:&K160K208PGPG1PGʮPG1:VP3:K149:888,0:F7ė:(7)"NO FILES SELECTED; CHANGE LINE 100:":100110:3:" 100 S ="::" 110":2:49385,0:49384,0:OSMV(PG):OEOS1023:NS1024:145:FLAG0:1:17:"OF ";NPG640:VP3VP22610VP:7::">":3,2VP1)I12:P(BZ)::24:1::" STAND BY.";29);:2039,32::3:1:FLAG410V|FINF250FLAG1:35,23:958:35,24:NPG0FVIS0310NPGĢ24::300888,0NPGNPG(NPG0):44596,206:44597,157:44598,179:44578,32::DD$"PR#0":(888)Āq):1:2:"CATALOG PAGE ";NPGcJ:23:1:40)":SELECT :RUN :HEL";:2039,208TII12:P(BZ):::2:"ARROWS";::19:"RETURN";:34:"H";:^SĢ3:P322:4:" ":hOS1024:OE2047:NSMV(NPG):NEMV(NPG)1023:145GrI(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>7255NNF1390)44581::FIFI1:FVISFVIS1HL$;:1:VP(37):SC2VP2SC1,2VP2):SCBSCASCISC(T)0,2VP2)UĢVP:868:FVISFVIS1FLAGFLAG0:250"FVIS20380,NPGĢ24:1:958:6F7FV:FVIS0:NPGNPG1@:1:1:40E1511:47085,SE:800:X245872479735:SC(X):SC255SC0NFNF1:SSSS(X33):21:16:NF:16:SSu SCĂ: PG17:MV(PG)163841024PG: 44596,234:44597,234:44598,234 44578,96 FLAG1:1:DD$"CATALOG"::FI1:FVIS1:260II768795:N:II,N::54,0:55,3:1002:201,141,240,21,234,234,234,234,201,128,144,13,201,160,176,9,72,132,53,56,233,128,76,249,253,76,240,253 II800805:J:II,J::32,227,3,76,217,3 47083,0:47084,17:47088,0:47089,96:47091,0:47092,1i S26):"DRIVE: "(43624):A$:"FILES: 0":"SECTORS:0":A$::0160 60,OS(OSTF)TF:61,(OSTF):62,OE(OETF)TF:63,(OETF):64,NE(NETF)TF:65,(NETF):66,NS(NSTF)TF:67,(NSTF):UM49(OSNS): SCFX1(984((X1)8))895: 49:Q16384:CL16368:BZ16336:TF256:Q$(34):DD$(4):UM(175)(176)TF56:B2(B0):A(A0):I9(I0):T4(T0):A$"---------------":L$" : ::: ":830A II130:L$L$":":II:::(4);"NOMONICO"::16:8:32,7:"BEAGLE MENU":A$:"SLOT: "(436^AND/OR^BINARY,APPLESOFT,INTEGER,TEXT^OR^UNLOCKED^FILES^(1=YES,0=NO) p44483,32:44484,47:44485,174:44486,32:44487,47:44488,174:(978)157ĺ"NOT 48K";(7): s49385,0:SC(24):F128:X124:146:SC(X)SC::II2457624831:II,0: xLA136:RA1 (10:8-+2"TIP DISK #1"965535 REM ================== BEAGLE MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS SAN DIEGO ================== <dS0:B1:A1:I1:T0:U0D nABOVE^LINE^DETERMINES^DISPLAY^OF^SECTORS PRINTER" :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 (7);:II12000::440065535 ================== BEAGLE MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS ==================S<=<>@>?>@A@=?<>`ؠL,S(888)Ĺ888,1:43624,1:47082,1:\CII8(888)Ċ0:24:::(7)"DISK OR DRIVE ERROR":420HII11II6ĢVP2:1:"TRACE OVER FILE NAME TO EXECUTE:":MII1ĢVP2:1:"LANGUAGE NOT AVAILABLE":860R::12:13:"ERROR: ";II:13:"LINE: ";J\41,5:1043,13:1044,5:1045,14:1046,21:15:"TO CONTINUE."; (Q)160Ė9:" ";:II1444::(Q)160Ė9:"SPACE";:II1444::(Q)160800*CL,0:4404:X140:"-";::>J(218)(219)256:II(222):II255K155:540 @II8FILE":_11:"[1] NEW MENU/DRIVE 1":11:"[2] NEW MENU/DRIVE 2":11:"[C] NORMAL CATALOG": 4:"[F] OR [S] FREE SECTORS":4:"[?] OR [H] HELP (THIS PAGE)":4:"ESC OR [Q] QUIT"<820::39):2039,32:1036,2:1037,5:1038,1:1039,7:1040,12:10:"<-- CURSOR UP":" SPACE OR [P] PAGE ADVANCE":"RETURN OR [R] RUN APPLESOFT PROGRAM":15:"RUN INTEGER PROGRAM":15:"BRUN BINARY PROGRAM"15:"EXEC TEXT FILE"::11:"[L] LOAD APPLESOFT PROGRAM":15:"LOAD INTEGER PROGRAM":15:"BLOAD BINARY 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):IGO$"RUN":K204GO$"LOAD"cXVP:146:VP:1:" "GO$6(GO$)):II124:II(IIVP):1:868:NAME$"":XSC7SC36:NAME$NAME$((X)):22::958:DD$GO$NAME$:440:140):1:13:"BEAGLE MENU":820::11:"--> CURSOR DOWN":11VP23PGPG1NPG(PGNPG):VP3:440-v470FK149K160K1361,2VP2)0ĝ:VP:4:"--->";:VPVP(K149K160)(K136):VP2VP24Ė3:868:645SC1,2VP2):SC4GO$"EXEC"SC2GO$"BRUN":K204GO$"BLOAD"SC1SC9:K198K211Ğ:1:24:"FREE SECTORS:";496SS::470pDK195ĺ::DD$"CATALOG":820:"ANY KEY:";:756:440IK170900NK177K178KK176:43624,K:47082,K:S470XVPVP(KRA)(KLA):640bVP3PGPG1NPG(PG1):VP22:440$lS";: K(Q):FLAG1:KF490;CL,0:P12:X(BZ):eVP:7:1):3,2VP1)8:3,52VP1yKRAKLAR600K141K204K210670K155K209Ģ22::958:&K160K208PGPG1PG(PGNPG):VP3:4400K200K191K1757406ELECTED; CHANGE LINE 100:":100110:3:" 100 S ="::" 110":2:49385,0:49384,0:OSMV(PG):OEOS1023:NS1024:145:FLAG0:1:17:"OF ";NPG640:VP3VP22610VP:7::">":3,2VP1)8:3,52VP1::CL,0FLAGĞ:24:2:"ARROW39,32::3:1:FLAG410&|FINF250WFLAG1:35,23:958:35,24:NPG0FVIS0310lNPGĢ24::300w888,0NPGNPG(NPG0):44596,206:44597,157:44598,179:44578,32::DD$"PR#0":(888)ĀAPG1:VP3:K149:888,0:F7ė:(7)"NO FILES S2 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  :SELECT :RUN :HEL";:2039,208vTII12:P(BZ):::2:"ARROWS";::19:"RETURN";:34:"H";:^SĢ3:P322:4:" ":hOS1024:OE2047:NSMV(NPG):NEMV(NPG)1023:145rII12:P(BZ)::24:1::" STAND BY.";29);:20$;:1:VP(37):SC2VP2dSC1,2VP2):SCBSCASCISC(T)0,2VP2)UĢVP:868:FVISFVIS1zFLAGFLAG0:250"FVIS20380,NPGĢ24:1:958:6F7FV:FVIS0:NPGNPG1@:1:1:40):1:2:"CATALOG PAGE ";NPG3J:23:1:40)"X):SC255SC0NFNF1:SSSS(X33):21:16:NF:16:SSE SCĂ:h PG17:MV(PG)163841024PG: 44596,234:44597,234:44598,234 44578,96 FLAG1:1:DD$"CATALOG"::FI1:FVIS1:260 NF1390 44581::FIFI1:FVISFVIS1L,240,21,234,234,234,234,201,128,144,13,201,160,176,9,72,132,53,56,233,128,76,249,253,76,240,253 II800805:J:II,J::32,227,3,76,217,3 47083,0:47084,17:47088,0:47089,96:47091,0:47092,19 SE1511:47085,SE:800:X245872479735:SC(RS:0":A$::0160 60,OS(OSTF)TF:61,(OSTF):62,OE(OETF)TF:63,(OETF):64,NE(NETF)TF:65,(NETF):66,NS(NSTF)TF:67,(NSTF):UM49(OSNS): SCFX1(984((X1)8))895:_ II768795:N:II,N::54,0:55,3:1002:201,141DD$(4):UM(175)(176)TF56:B2(B0):A(A0):I9(I0):T4(T0):A$"---------------":L$" : ::: ":830 II130:L$L$":":II:::(4);"NOMONICO"::16:8:32,7:"BEAGLE MENU":A$:"SLOT: "(43626):"DRIVE: "(43624):A$:"FILES: 0":"SECTOD^FILES^(1=YES,0=NO)u p44483,32:44484,47:44485,174:44486,32:44487,47:44488,174:(978)157ĺ"NOT 48K";(7): s49385,0:SC(24):F128:X124:146:SC(X)SC::II2457624831:II,0:m xLA136:RA149:Q16384:CL16368:BZ16336:TF256:Q$(34):965535 REM ================== BEAGLE MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS SAN DIEGO ================== dS0:B1:A1:I1:T0:U0 nABOVE^LINE^DETERMINES^DISPLAY^OF^SECTORS^AND/OR^BINARY,APPLESOFT,INTEGER,TEXT^OR^UNLOCKE        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 CIALOG"A/I!XN  !"#$%&'()*+,-./0123456789:;<=>?  !"#$%&'()*+,-./0123456789:;<=>?F:h ,LOC24576:X034:LOCX,(LOC(1)X):LOC(1)X,(LOC(2)X):LOC(2)X,(LOCX)::SWAP^FILENAMES 1::"HERE GOES...":I1999: 6RW2:47092,RW:F12:47085,SEC(F):47089,((8192SEC(F)256)256):768::WRITE^SECTORS^TO^DISK@(4);"CATXLOC14LOC22435:((X))(FI$(F),1)260:LOOK^AT^1ST^CHARACTER YX1X29:((Y))(FI$(F),YX1,1)Ă:280:FILE^FOUND X SEC::"FILE #";F;" NOT FOUND";(7)::190 :"FILE #";F;" FOUND IN SECTOR ";SEC:SEC(F)SEC:LOC(F)Y33 ";F;:":";FI$(F)D I130:FI$(F)FI$(F)" "::ADD^TRAILING^SPACES A$"":X130:A$A$(((FI$(F),X,1))128)::FI$(F)A$:F:ADD^128^TO^EACH^CHARACTER'S^ASCII^VALUE F12::"SEARCHING SECTOR:"; SEC1511:SEC;",";:LOC8192256SECE 17:773,34 47084,TRK:47083,0:47091,0:47092,RWy "THIS PROGRAM WILL SWAP ANY TWO":"FILE NAMES IN YOUR CATALOG." SEC115:LOCLOC256:47085,SEC:47088,LOC(LOC256)256:47089,(LOC256):768::READ^SECTORS^1-15 F12::"FILE NAME #" ": }:"THIS PROGRAM WILL EXCHANGE THE POSITIONSOF ANY TWO FILE NAMES IN YOUR CATALOG."::"INSERT DISK AND PRESS ";:A$:A$:A$(13)Ā ::(4);"CATALOG": TRK17:RW1:LOC8192:$2000 768,32:769,227:770,3:771,76:772,2-d ============================ CATALOG FILE SWAPPER EXCHANGES ANY TWO FILENAMES IN A CATALOG I HOPE IT WORKS... ============================ nBY BERT KERSEY BEAGLE BROS x:::" ":" FILENAME SWAP ":"        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 ,LTR(X$SP$)):A$(A$,(A$)LTR):510F ::(7);"WORD TOO LONG":OO LONG":07 ,"======================================= ]RUNN";l 6H139:V6184:V(V14)5(V18):H:"-"::{ 23:255:  FORMATTER -======== SP$(32):HY$"-" (A$)COLĖHT:A$:& LTRCOL11:X$(A$,LTR,1):X$SP$X$HY$ĖHT:(A$00:V(37)1:I::5:"ONE WAY TO SELECT PROGRAMS" :V:A$"A DISK CATALOG WILL APPEAR. PRESSING ALMOST ANY KEY SCROLLS THE CATALOG UPWARD. ALLOWS YOU TO TYPE A SINGLE LETTER TO RUN ANY VISIBLE BASIC PROGRAM. YOU MAY EXIT BY PRESSING .":50RINTS 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  ====C62,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:::J 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,1C10N32>BSC11N48>pX015:H,V)XT$T$(XN):F:a: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):UNSR6):H,V1!|BSC10TSC0SP0;BSC10TSC0SPSP1JSP21850PMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::(4);T$vBSCH,V1):TSCH,V)N64:BSC13N80  BSCOLĭ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$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) ";: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`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  SELF. NOTICE HOW LINES 500-520 FORMAT THE STRING A$ (THESE WORDS) SO THAT TEXT LINES BREAK BETWEEN WORDS.":5002 xI(37)2:A$"======================================= ONE WAY TO SELECT PROGRAMS IS TO TYPE "Q$"RUNN"Q$" (WITH TWO N'S, PLEASE).":5ROS INC.":255 dA$"======================================= HELLO. THE PROGRAMS ON THIS DISK ARE MEANT TO TEACH. PLEASE RUN THEM, LIST THEM, CHANGE THEM AND LEARN.":500o nA$"======================================= THIS PROGRAM IS A TIP IN ITGV$"5/26/83"4(64435)6E21:IF.APPLE.2ER :::I1999::Q$(34)3:::21:13:" ":13:" TIP DISK #1 ":13:" ":<I120:J125::: ZCOL40:HT1:199:1:33:V$:5:"(C) 1981, BERT KERSEY, BEAGLE B     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_ ====62,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:::J 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,1C10N32>BSC11N48>pX015:H,V)XT$T$(XN):F:a: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):UNSR6):H,V1!|BSC10TSC0SP0;BSC10TSC0SPSP1JSP21850PMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::(4);T$vBSCH,V1):TSCH,V)N64:BSC13N80  BSCOLĭ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""