' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈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/  !"#$%&'()*+,-./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- (   Ϡ@跻~!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`   H` |  :50,I0127:228,I:I,I:3082R(49152)127ĽSCREEN: IT WORKS!](I:20{2::1184:198:49168,0 YUICHI HANDA--PASADENA,CAF:3:0,0279,0279,1910,1910,0R((1)255):228,R:T12784:T,00,191:278T,191278,0::S(16336):S(16336):2YUICHI HANDA1161 S.OAKLAND AVE.PASADENA, CA 91106USE150:4000:7090Y22:4:"":PAUSE150:4000:GAMES(0)GAMES(0)1:7090LO1,16:LO2,SE1:RW2:260::POINT.TO.NEXT.SECTORf :"THIS DISK CAN NOW HOLD 210 FILE NAMES.": 47084,TR:47085,SE:47092,RW:270:768::READ/WRITE.SECTOR RW1ĺ"READING "; RW2ĺ"WRITING "; ""TRACK-";TR;", SECTOR-";SE:1)255ĹLO120,0:LO121,0:RW2:260:230:FIX.VTOC ::(7);" DATA ON TRACK-16, CANNOT UPDATE ":::"(TRY AGAIN WITH NEWLY-INITIALIZED DISK)": TR17:SE1:RW1:260:LO1,16:LO2,15:RW2:260:POINT.TO.TRACK.164 TR16:SE1511:RW1:260:GE.LOCATION! 47083,0:47091,0 :::" TWO-TRACK CAT ":::"FREES TRACK 16 FOR CATALOG STORAGE.":"(FOR NEWLY-INITIALIZED DISKS ONLY)": " TO PROCEED, TO QUIT:";:A$:A$:A$(13)Ā3 TR17:SE0:RW1:260:(LO120)255(LO12$   BAD VTOC SECTOR hhL8 `  i8i8Z %`߿ ^ X % " $    WRITE PROTECT ERRORL  BAD VTOC SECTOR hhL8 ` ȩ I768808:V:I,V:#768 166,34,138,32,36,252,160,0,165,41,41,3,9,4,133,41,177,40,72,165,41,41,3,9,8,133,41,104,145,40,200,196,33,144,229,232,228,35,144,218,96  00: & H21((A$)2):H:A$:'V :A$"<----- CENTER ----->":500:A$"ALMOST ANYTHING":500:A$"IN A FLASH!":500fA$" ":500A$"SHORT LINES":500:A$"L-O-O-O-O-O-O-O-O-O-O-O-O-O-N-G LINES":500:A$"MEDIUM-LENGTH LINES":500: (X$"END OF DEMO":I1(X$):A$(X$,I,1):5 R,TR,B:TT3:BB3:LL3:RR3:J:1TO CONTINUE.":+b:A$(20)ĺ(4)"RUNT"Gg:A$(21)ĺ(4)"RUNU"wlA$"Z"(A$"A"A$"4")(A$"1")ĺ(7):500v(4)"MONICO":KK192:K1KK42::"TYPE "(34)"RUN M"(34)" TO RETURN TO MENU.":I1999:::(4)"RUN "P$(K)0:I471918:0,I279,I:  :J824:7:1:"_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ":J:1:"_";:3:"_";:21(J20)20:"_";:23(J20)22:"_";:24576:K(16384):K128Ă:500X16368,0:A$(K128):A$(27)ė::"TYPE "(34)"RUN"(34)" ^*@@@^@^^@^*@@@^^^^^^^^^^^^^^^";< h7::I120:"_ ";:: rI130:CH6442(I26):JI1:8J(J17)17:120((J17))::"_"(CHI)"_";::" "P$(I);: |22:21:"ctrl-U: UTILITIES":21:"ctrl-T: TWO-LINERS":21:"ESCape: QUIT"; ~24576 16300,0:16302,0:16304,0I TI140:Q$Q$"^":::I16:I:1:Q$;: _2:1:"^^^$@@@@@%^$@@@^@@@%^@^^@^^^^^^^^^^^^^^^^^^@/^@^\@^@<^^^@^\@^@^^@^@^^^^^^^^^^^^^^^^@^^@^^@^]@@@^@^^@^@^^@^^^^^^^^^^^^^^^^^^@^^@^^@^@<^^^@^^@^@(^@^@^^^^^^^^^^^^^^^^@^^@^^@FLASH FIX }HCOLOR COMBOS,HELP SCREEN,HI-RES FLIX,KEYPEEKER DEMO,METRONOME,NO-TRACE CAT,NO WORD-BREAK,PICTURE INVERSER,QUOTE MAKER,ROUTE 6502,SCREEN FILLER,SCREEN SHIFTER,SHUFFLER,SNAKE CARS,TOWERS OF HANOI,VERTI-CALC 230,32:3086 16297,0:AGLE BROS INC.":CUSTOM.FONT9 nP$(30):I130:P$(I): xBEAGLE BLACKJACK,BLACK+WHITE=COLOR,BOX EYES,CALL 64246,CENTERSTRING,CHARACTER CHART,CURSOR MADNESS,DEC-ROM CONVERTER,DECIMAL DISASSEMBLER,DIGIT DISSECTOR,DOUBLE HI-RES,ERROR TOKENS,FANCY FILER,4Z ============= MAIN MENU (M) ============= ^(12);(21)::::"#":A(1024):(12)::A163ĺ"PLEASE SWITCH TO NORMAL 40-COLUMN TEXT.":_(103)(104)2562049Ĺ103,1:104,8:2048,0:(4)"RUNM" d(4)"NOMONICO"::::(4)"BLOAD BE' DMP SOFTWARE--ST.LOUIS,MO:T0:B160:L0:R256:X111:C161:C:R,TL,T:C:R,BL,B:TT2:BB2:LL2:RR2:C:R,TL,T:R,BL,B:X% T0:B165:L0:R256:X140:3:R,BL,BL,TR,TR,B:TT3::BB3:LL3:RR3:X:J139:4:R,BL,BL,T LINE10 ZI: ST(43634)(43635)256@ENST(43616)(43617)2561VCNT0:LINE1010:("]1000 FOR I = ";ST;" TO ";EN;": READ V: POKE I,V: NEXT I"2ISTEN<CNT0ĺ:"]";LINE;" DATA ";(I);:80F",";(I); PCNTCNT1:CNT50ĺ:CNT0:LINE  64246|8Ppp@}p|}@Ox?|sp|?~q#8>@ ~qq!bx@~p@B @w>~G~?p|`@~~~Owg?f~?p|~cw?{c?~a~~@~`O|||~xGC t6pp~ f~_`~?~~p?`@[{n/W~?p~ @pc~xsp|~yx~~~xCyOw@~~?p|}@~D`@pp~?p|~1#<~qa bx@PRINT TEXT.":280:A$"SLOW, ISN'T IT?":2805 ::g VV2:V:L(A$):1::L)::0,100:1,8:771 1:868:I1L:A((A$,I,1)):I:(A(A64));:S(BU)::1 "I6590:J1L:A((A$,J,1)):AIĖJ:(I);:S(BU) ,:::::BUZ16336771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96+ V5:A$"HELLO!":280:A$"THIS DEMONSTRATES ONE":280:A$"MORE WAY TO 209,94209,96207,96207,94:T1150::0:67,9469,9469,9667,9667,94:207,94209,94209,96207,96207,94:T1150::S(16336):2! YUICHI HANDA--PASADENA,CA:A1140:228,A:A,00,191A:0,0AA,191:B140A:B,0140,191A:140,0AB,191:ZA139:Z,0139,191A:139,0AZ,191:Y279A:Y,0279,191A:279,0AY,191:S(16336): 3:67,9469,9469,9667,9667,94:207,94 J3:::"PICTURE INVERSER":"----------------"L I768794:V:I,V:dPG1:HI-RES PAGE 116304,0:16301,0:(16301PG),0:16297,0:769,PG32:791,(PG1)32"I12000::OPTIONAL DELAY#768$:22:I (169,32,133,28,169,0,13  ?-I?--???--?@$1<GTanvI66#$d- -.--)-5>N?I166.?d )-3-6?6v- ?  -)-56Rd-?v- $)e $?v- >6- $d-66?  I 66? -6$$166n  I?--???.--??N>  ->* 5???. - m???.--? x00>`p|p@`~OpO~3p|~pw?{c~a~|?@ r8|0@ t6pL@p@|?@wGpp xpgw~wsp:Y0191:50,Y::::2!DAN PROTHERO-OSTERVILLE,MAT768:232,0:233,3:LTT24:P:L,P:: 5,0,12,0,15,0,18,0,21,0,24,0,53,39,0,55,37,0,39,53,0,37,55,0,45,0::16302,0:0 J07:J:0,0:3082:R12:S1191:S:1S,S:2279S,S:3279S,191S:4S,191S::140AME$" WINS>":PAUSE150:40004GAMES(1)GAMES(1)124:4:"SCORE: DEALER ";GAMES(0)", ";NAME$;" ";GAMES(1);:PAUSE300:4000:COUNT(1)0:COUNT(0)0:PNTS(0)0:PNTS(1)0:N20:N10:ACE(1)0:ACE(0)0150PNTS(1)PNTS(0)Ģ22:4:"":PA31.05) 9XPNTS(0)21Ģ22:4::" BUST ";::7070_lPNTS(0)PNTS(1)PNTS(0)167120tvN11COUNT(0)0PNTS(1)PNTS(0)ĭPNTS(0)17N2N21:250PNTS(1)PNTS(0)PNTS(0)167070PNTS(0)17N2N21:250700022:" <";N051:DECK(I,0)0:I051?J((1)52):DECK(J,0)5020g:22:4I(I2)2:"";DECK(J,0)1:DECK(I,1)J::DPTR0::pDPTR51İ5000zCARDDECK(DPTR,1):DPTRDPTR1SUIT(CARD1314)CARD(((CARD13)(CARD13))1X1,Y92 32:CARDX39,Y49:SUITX39,Y41:Q 3:IXX40:I,YI,Y50: 0:X1,Y1X41,Y1X41,Y51X1,Y51X1,Y1: 0:IX1X403:I,YI,Y50:I1,YI1,Y50:: 16368,0:I1PAUSE:(16384)128Ă: IPAUSE::IX20:Y80:2000:3000:250@ |PNTS(1)21COUNT(0)0:250:7120y 16368,0:22:4:"ANOTHER CARD? (Y/N): ";:A$:A$: A$(27)A$(3)ė:21: A$"N"A$"n"A$(32)7000 A$"Y"A$"y"390 160:380 2000:0:CARDX1,Y1:SUITT(0)COUNT(0)13 "X(COUNT(0)1)5020:Y80:1000H ,CARD10CARD10n 6CARD1ACE(0)0CARD11:ACE(0)1 @PNTS(0)PNTS(0)CARD JPNTS(0)21ACE(0)1PNTS(0)PNTS(0)10:ACE(0)0 TCOUNT(0)5PNTS(0)217120 ^ hCOUNT(0)COUNT(0)1 rD11:ACE(1)1W PNTS(1)PNTS(1)CARD:PNTS(1)21ACE(1)1PNTS(1)PNTS(1)10:ACE(1)0 COUNT(1)5PNTS(1)21COUNT(0)0:250:7070 PNTS(1)21Ğ:22:4:" BUST "::PAUSE99:4000 6000 N1N11 N22COUNT(0)COUNT(0)1 COUN IS YOUR NAME? ";NAME$:( xNAME$""Ĭ\ (4);"BLOAD BLACKJACK CARDS":232,0:233,64:1f 5000 28,42:3082:3::160:160:360 6000 COUNT(1)COUNT(1)1 X(COUNT(1)1)5020:Y10:1000 CARD10CARD10 CARD1ACE(1)0CARZ ZDECK(51,1)::Yd:20)::" B E A G L E ":" B L A C K J A C K ":20)i:::"PLAYED WITH ONE DECK ":"SAN DIEGO RULES"::"USE AS AN ALTERNATE KEY,AND TO SPEED THROUGH SCORE PRINTOUTS." n::PAUSE99:4000:"WHAT     A~s|a~?0 p|O?pxc?cc?~~||G@Ow?pg}gp|~{q@?{c?~A?x@c| ~`a |v6~@@` pa ` ypxO0 @O xyOpD8`G~p|O}a!@<@qcAx@ ~oq8 p|O@~@~7D~xdL~?p|@@?c?~<|x@~OO|_ww}Os~?p|~A{qG?{c~ax@~y ~~p~?06! pp~pxo~?>x?2@qC~`r~?~ F?~`~`O{!@|sg?pp~~~_O7x~?p|}y#8@~@ qccx@~2&@|yx~?p|?@A,BX,Y:T,L +VERA & GEOFF WONG-VICTORIA,AUSTRALIA:1:I02753:I,191I1,191((1)15):I1,191((0)15)I2,191::I1500::2 P3.14:L115:A(1)21930:B(1)13130:3:Y191B1:A,Y::S(1)2010:T.5P2.5P2PS:XA(T)S:YB(T)S: 9,32P2V AD632,44:AD633,82T:AD634,192:AD635,76:AD636,248:AD637,32P2 AD760,44:AD761,83P:AD762,192:AD763,76:AD764,120:AD765,32P3 AD888,44:AD889,87:AD890,192:AD891,96 "SAVING..." (4)"BSAVE "PN$",A"A,169:AD249,P2:AD250,141:AD251,1:AD252,32P:AD253,76:AD254,120:AD255,32P1 AD376,169:AD377,P3:AD378,141:AD379,2:AD380,32P:AD381,76:AD382,248:AD383,32P1 AD504,44:AD505,80:AD506,192:AD507,76:AD508,120:AD50$"N"T0! P"LOADING "PN$"..."< Z(4)"BLOAD "PN$",A"ADO d"CHANGING..."r nP1(AD):P2(AD1):P3(AD2) xAD,76:AD1,120:AD2,32P AD120,169:AD121,P1:AD122,141:AD123,0:AD124,32P:AD125,76:AD126,248:AD127,32PX AD248 +:::"AUTO HI-RES":"-----------":J "NAME OF PICTURE? ";PN$:r"LOAD TO PAGE 1 OR 2? ";:P$:P$:P$"1"P$"2"20(P(P$):ADP81922"DISPLAY 4 LINES OF TEXT AT BOTTOM? (Y/N): ";:T$:T$:<T$"Y"T$"N"50 FT1:T    |op p|~p{wO?sC~~@FGp?~8>p|O?xyw?c~`@` @DO'`|p@`gH?p#`~| `p p p|} 1<@apq"bx@@0x,@m.w p@~|yOy`w>G@L~?p|?|yw?sc~?~?~@~?Nw?x_w|~|~?p||ywC?s?~A?p@~ ~O?`~p= `v6x~``xo@~~?p~q~@O|Gs~x~?~`O~?~!x p}`p~pa|t~?p|}A 1>> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>0,>>>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"a>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "    ) HT:"$";SUM$:d by...":XXT20:YYT6:2000-MD$"RUN "F$= BOXDRAW 49385,0:3:YYT1YB1:XT1,YXB1,Y::0:XT,YTXB,YTXB,YBXT,YBXT,YT:Y14:XBY,YTYXBY,YBYXTY,YBY::49384,0: PRINT WORDS (A$)31X,Y:99:(A$)1āK2(A$):MAXK206QQ,0:CO0EK206K238A$"No":2000:A$"N":700qK217K249A$"Yes":2000:A$"Y":7007000:670A$"N"Ĺ16299,0:0,0:1,96:230,32:7680:230,64:0:92CX,CY:QQ,0:430:I1NN:F$:H1000:A$"Loading / Stan~)_w?G?/~l~?p|~p{wO?{C~I~~@~x_w|~?p|`?pgw?~x`@~HO`~~@! ~`~~?p@~B|px~~?H`@|`@~~p#~s|~O|C0  @5p|~'` p?`~~?p|} @1|apq x@~~y~sp?xumax|~?p@S.)": STEVEN BLOCK--PASADENA,CAQ233,3:232,2:J114:D:769J,D:::40:3R164:R:1140,90::II10(I)(I254):776,I::2:1,0,4,0,2,4,2,4,2,4,2,4,0,6STEVEN BLOCKCAL.TECH.PASADENA, CA 91125 REAS OF THE SCREEN ARE NOT AFFECTED. POKE 34,### IS NOT NECESSARY IF YOU WANT TO IMPRINT THE ENTIRE SCREEN. ERASE/DRAW ---------- 24659,234:24660,234:SETS ERASE/DRAW MODE 34,4:A$"ERASE/DRAW":V6:250 DRAW ---- 24659,17:2466n(4);"BLOAD IMPRINT"9x(4);"BLOAD HI-RES FONT"A:q1:1:"LIST THIS HI-RES TEXT DEMO:":24576 XDRAW ----24659,81:24660,42:SETS XDRAW MODE34,2:A$"XDRAW":V3:250k POKE 34,### SETS THE TEXT WINDOW SO THAT OTHER A  1000)(SEV100)(SEV10));SEVV d12);"---- =";:23:".0%";:21:(1000SEVSUM)10 n"TOTAL ROLLS:";(SUM1000)(SUM100)(SUM10));SUM x20 :JUMPS HERE IF CTRL-C  :130-19:11:"(NORMAL = 16.7%)"7II1B12:1(SUMSUM1:A(6(1))1:B(6(1))1::AB7SEVSEV12" DICE ROLL:";A10);A;" +";B10);B;" = ";<AB7Ğ:" 7 ";:80F:AB;:868P:: Z5);"SEVENS:";(SEV  NER. ":"TYPE "(34)"RUN T"(34)" TO RETURN TO MENU.":I1999:::(4)"RUN TL:"P$(K)C%5)5(C%6)3(C%8)6(C%9C%12)(C%10)E:A%A%D%((A$,3,2)):B%A%7:C%B%7:B%A%C%:4:868:6B%1:(7);"^^^":10:"PRESS RETURN ";:676:16384):K128Ă:500d X16368,0:A$(K128):A$(27)ė::"TYPE "(34)"RUN"(34)" TO CONTINUE.": b:A$(13)ĺ(4)"RUNM" g:A$(21)ĺ(4)"RUNU" lA$"A"A$"Z"ĺ(7):500Vv(4)"MONICO":KK192::::" OR TO EXIT 2-LII):X |22:" ctrl-M: MAIN MENU":" ctrl-U: UTILITIES MENU":" ESCape: QUIT";c ~24576 0:I471558:0,I279,I:  :J820:7:1:"_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ":J:1:"_";:3:"_";:21:"_";:23:"_";:24576:K(1^^^@^@^\@^@<^^^@^>@^@<^^^@^^^^^$@@#^@@^@^^^@^@^^@^]@@@^@@@[^*@@%^^^^^^^@/^^^^^^@(^^@^@^^@^@<^^^@^\@^^^>@^@^^^^^@@@@^^^^*@@^@^@^^@^*@@@^@^^@^@@@#^^^^"; h7::I120:"_ ";:: rI126:JI1:8J(J13)13:120((J13))::"_"(64I)"_";::" "P$(RGON LXXXIV,TRIPLE WEB,UL APPROVED,VIDEO VISION,WAR!,XPLOTTER,YAWNER,ZOOM GRAPHICSe 230,32:3086 16297,0:16300,0:16302,0:16304,0 TI140:Q$Q$"^":::I16:I:1:Q$;: _2:1:"^^^@@@%^^^^@^^^@^@@@%^$@@@^@@@%^$@@@^^^^^^^^^>@^^^^@:(4)"BLOAD BEAGLE BROS INC.":CUSTOM.FONTH nP$(26):I126:P$(I): xAPPLE 3D,BOX BOUT,CHUGGACHUGGA,DAYTER,EYE SCAN,FLOP CAT,GROWIES,HPLOT MADNESS,I-CHART,JUNKTURE,KRASH,LISSAJOUS,MERCATORR NUMEROSITY,OP IMAGES,PULSE METER,QUEST,ROUND ROBIN,SAWCZ ================== TWO-LINER MENU (T) ================== ^(12);(21)::::"#":A(1024):(12)::A163ĺ"PLEASE SWITCH TO NORMAL 40-COLUMN TEXT.":_(103)(104)2562049Ĺ103,1:104,8:2048,0:(4)"RUNT"+ d(4)"NOMONICO":::       #PHIL BARTON--SAULT STE.MARIE::"DAYTER: INDICATES DAY FOR VALID DATE"::3:"SAT SUN MON TUE WED THU FRI"::6:"MMDDYY:";A$:A%((A$,2)):B%A%4:C%((A$,2)):E(B%4A%C%3A%0):A%A%B% D%(C%1)4(C%2C%3C%11)2( -X:::"BASIC DISASSEMBLER":"------------------":::"(ENTER DECIMAL NUMBERS)": "START ADDRESS: ";ST:"END ADDRESS: ";ENSH(ST256):SLST((ST256)256):EH(EN256):ELEN((EN256)256)59,SH:58,SL(415$ 2CH(59):CL D10ĺ" <-- 10 -->" P6 `HT20:"$" COLUMNH jWD10:#WIDTHj tSUMSUM.005:SUM.005SUM0 ~SUM$(SUM):L(SUM$):CHRL11:(SUM$,CHR,1)"."Ă:SUM$SUM$".":CHRL1 SUM$SUM$"00":SUM$(SUM$,CHR2):SUM$(" "SUM$,WDG::"PRINT-U$ING DEMO":"----------------":"]LIST 10-60":1060\ SUM1.234:60000rSUM12.345:60000SUM123.456:60000(SUM1234.567:600002SUM12345.678:60000<SUM123456.789:60000 F:"$ COLUMN = ";HT:"# WIDTH = "WD;:W  )12(NN8):XB218:YB14030(NN4)12(NN8):1000:XXT15:YYT6:A$"Run Demo Now? (Y/N):":20002613:A$"":X(224)(225)256:16368,0:CO0K(Q):KF0ĕ92CX,CY:2000:I1200::KF0İ2000:92CX,CY:I1200::COCO1:COMAX670 CO(CX63)70:Y(CY106)30:NN4(Y(Y3)3)X::I1NN211:A$::230,32:YTCY5:YBYT23:XTCX5:XBXT62:1000:KYT4YT13:XT3,KXT11,K::YCY1:XCX9:2000:YY8:A$:2000v3:92CX,CY:16300,0 GET FINAL OK bXT56:YT12230(NN40,70:1,4:771PCO0:CXCX70(K149)70(K136):CYCY30(K138)30(K139)jK141ĕ92CX,CY:620K149K136İ7000CX222CX7:CYCY30CY175CY1060CX7CX217:CYCY30DCY106CY166X462b CLEAR BLOCKS lX2000:A$"ARROW":2000* WHICH DISK? UFL0:X163:Y84:CO0:A$"RETURN":QQ,0q((1)9)İ2000:200092CX,CY:K(Q):KF0ĕ2961,84:3170,84:I199::KF0ĕ92CX,CY:I199::COCO1:COMAX460COMAX150QQ,0:0:92CX,CY:149K136K138K139ĹQQ,0:7000:180w K200:JBYBY6430:IBXBX21070:40:3:92I5,J5:92I5,J5::3:IYT3YT11:XT1,I250,I::0:155,YT155,YB:156,YT156,YB:A$"ARROW<>KEYS select. RETURN starts.":XXT6:2000:A$"ARROW<":4:YB94:1000# FLAGFLAG0:430| A$"Press SPACE BAR to begin.":XXT46:YYT4:2000:QQ,0:CO0:A$"SPACE BAR":XX40 ((1)3)İ2000:2000 K(Q):KF0āJBY5BY6930:IBX5BX21570:3(((1)2)):92I,J:::KF0180+ K160K,104:230,64:7680:16299,0:BX2:BY101:CXBX5:CYBY5:232,239:233,123:0:1 XT10:YT12:XB58:YB51:1000:A$"BEAGLE":XXT5:YYT4:2000:A$"BROS":YY8:2000:A$"DEMO":YY8:2000:A$"DISK":YY8:2000:60000 START XT20:YT80:XB250,5102K:1,4:771: d::8::14:": :":14:" DEMO DISK ":14:": :":::14:"BEAGLE BROS":11:"4315 SIERRA VISTA":10:"SAN DIEGO, CA 92103": nMAX50:Q49152:QQ49168:F0128:6000P xFLĺD$"BLOAD DEMO.PIC2,A31727":0,36:1):D$"NOMONICO":(103)(104)2562049Ĺ2048,0:103,1:104,8:D$"RUN DEMO.MENU" 771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:100 (CO0:^ =================== BEAGLE BROS DEMO DISK BY BERT KERSEY COPYRIGHT (C) 1983 BEAGLE BROS INC. 4315 SIERRA VISTA SAN DIEGO, CA 921O3 619/296-64OO ===================  OS(175)(176)256302:OEOS297:NS7680:NENS297:5000Q D$(4):(21"NOMONICO"::K2:GO$" "PR$(K)::"(SEE INSTRUCTIONS.)"SX:(4);GO$;" ";PR$(K)hAJIT JOSHI--CANTON,MIf:50,223:X150255:X:(49385)(49386);:"CHUGGA";:(49387);:: AJIT JOSHI 6826 BUNKER HILL CANTON, MI 48187 CI (4);"CATALOG"n:"(TRY TO CURSOR-TRACE OVER A FILE NAME. G'S, H'S & M'S ARE MOST INTERESTING.)";|I1472S7,I):S12S13ĠS4:7,I( UyyUyyUyyUU**   $9Og@*****UU?'ddy~|?~|}x|||`x@!~x`Uo;;;;+;UC;;CC;;CUC;{{C77CUU**ID@ x {s?HH?|p`*C;{UU2*swwc}a]]*;?*n{nwCwO**2Uq`aC]SUswwcU UU***| *qmm*q`a* **UU'?U~vU U UU** ??O?*(! *(! *(! **UUC@ @@c? @1U***( *1*`U`*`U`*`U`*`UG2UyyUyyUyyUU2*****2Uo;;;+;;UC;;CC;;CU{{{oooUU2*C;{G*G;'*swwcG**2UC;{G{GU;';?Uq`a;o;?0?y nr~? 1*UUw]w]` @0|}sC@rgga`@1U**n;n;n:h0@>103 #l8`h;n;n:n01*UU]w]w]w]w]w]w\qXt\w\w]w]w]w]w]w]w]w]p@1U**;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n8`1*UUw]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]wn;n;n;.NN[N[N[N  n;n;n;.30001*UU]w]w]wgqy|~~?ppe]71U**;n;.c|8xxz8|~?~pd|x`1*UUw]x qxwpwG_GP1U**n; `x~x@ ?N;@J1*UU]w |@xA@p`\@~~ 1U**;n:?          "EXEC"# /GO$(K)"B"GO$"BLOAD"> 0GO$(K)"U"GO$"BRUN" 4GO$(K)"E"ė:K2:PR$(K):"MUST BE ACCESSED":"WITH YOUR PROGRAM LOADED."::"(SEE INSTRUCTIONS.)"::"TYPE "(34)"RUN"(34)" TO RETURN TO MENU.":: 5K22K1ĺ(7);:5008D:(4)>>>O0,48:170,144:::2SCOTT BROS--FT.WORTH,TX| 1,0,4,0,18,63,39,36,44,45,45,53,54,62,63,0:I76767691:A:I,A:::232,252:233,29:0 C17:C:S21:R120:SS1:R:170,48:1210,144:S:1210,48:170,144::T21:U120:TT1:T:170,48:1210,144:U:121 ::15? I120:32,2I1:33,1::A$:A$:I::23:Q216,0::15WHAVE YOU EVER NEEDED,TO PRINT YOUR TEXT IN,VERTICAL COLUMS,INSTEAD OF,HORIZONTAL ONES?,NO?,ME NEITHER! 2,0:773,0% <I4W13:770I,234:I F770I,141:771I,85:772I,192d PJ1W2:IJ772,234: Z772JI,76:773JI,0:774JI,3 d16304,0:16302,0:16297,0 n768\ ::"FOR BEST EFFECT, BLOAD TWO DIFFERENT IMAGES ONTO HI-RES PAGES ONE & TWO."::v"PAUSE 1 (0-80):";W1"PAUSE 2 (0-80):";W2:W280W18010#::" TO QUIT...":I11234:(768,141:769,84:770,192 2771,62:77   <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >??`@~|pp|~?@px|~? *,@`~|xp@>>"2*&" " >>  ">> "8""> """"""< >>p`@@@@`p"`" $(*))+( iR``iR`ɀi@R`ɠ1)***H*) `P`h)O`aIQ**+i+R`!#`}`ɠ @00 0 @)0HH`#R8bLganaaaLbb0cDccc[dd>----(.=O[";(34);(34);(34):24576 34,(34)1 V1:1:"______________ '/ -- \\ << 7Z<>)^/*]^'":24576 "MIKE NUZZO--WESTFIELD,NJ:3:J0:CX140:CY80:A1260:A214:PI3.14159:X172:Y113:X246:Y269:I0PI2PIA1:X5(I)X1:Y5(I)Y1:2:X7((X5X6)2):Y7((Y5Y6)2):X7CX,Y7CY::JJPIA2:X6(J)X2:Y6(J)Y2: TP(T)::" "::TP(T)TP(T)1:411045 A141Ĺ16368,0# U TS0::I13:J422:13I12:J:" ":J,I: $T1:I1011:C(I)T2:TT1::T1:MN11:4000:: TP(T)TP(T)1:T(T,TP(T))M::13T12:242TP(T):M1): :13T12:242TP(T):12):13T12:242:X(TS)X:Y(TS)Y:Z(TS)Z:N(TS)NN(TS)1:XX(TS):YZ(TS):ZY(TS):1000:M1X(TS):M2Y(TS):1030:NN(TS)1:XZ(TS):YY(TS):ZX(TS):1000 1:2::TSTS1: TM1:MT(T,TP(T)):5000:TM2:4000:(16384)127ı 16368,0 A(16384):A160A1$N(20),X(20),Y(20),Z(20)::::::" TOWERS OF HANOI ":::"NUMBER OF DISKS (1-10):";N$:N(N$):N(N):N1N1030#:" TO PAUSE, TO CONTINUE":" TO STEP THROUGH"(X1:Y2:Z3:1050:1000: TSTS1:N(TS)N 34):"THANKS FOR PRESSING THE ";Q$;(K128);Q$;" KEY."7D :::6:17:"<- OLD FLASHY FLASH":::17:"<- BETTER FLASH"h6:1::"PRESS ANY KEY.":::r9:1"PRESS ."(X1250:29:1<"PRESS ANY KEY."FX1250:PK(16384):K12820Z16368,0::9:16 dQ$(  swwcU;;'UU2* *q`a*G{G**2U U U{a{gUU2*(! *(! *(! 5*zzz **zzz **zzz **3UUUU3*W;;+;*;C;;C;*{C{ooo*3U;C{;{*****UUTP*@Uo;;C;{{UC77CoooUC;{CUU2*swwcswwc*G;G;'*K{{} **2Upn~qnqU;;'{[s[UG;G_ ^>UU2*~pnn}p}s*{C;CcAC*?;~~**2UaniUU[UU**|  y|<{{@c{anoc``@*o olAwA* *}**UU|pp@ 303Ns|x`P{~|`U~}mU U UU** |zx~~~~x@*(! *(! *(! **UU&|p@UyyUyyUyyUU***C;{o*G;;GG;G*c[[G;G**UU8`~|pdT[U___[oUG{?GGCU_C]CK{{UU**x`@ |C? *{:;*GC*G**UU`?_???O>=`g~HxUxp@Uo;;C;;CUC77CC;;CUo;;;+;;UU**c  ~~wpppOwP`*>xCUq*;?{;[;*c[[**UU|p@C~Df|xpa`dF8'!`(58):(CHEH(CHEHCLEL))CHSHĀ, <40D",L8192"ECK(N)1 d:CARD$(N);$ i:5)+ nX, CARD$(52),CHECK(52)+SUIT$"CDHS"BN$"A23456789TJQK"(S03:C113:CARD$(CS13)(N$,C,1)(SUIT$,S1,1)::-::2X1527XXX1:1XX(XX13)13:110(XX13)<X10);X;":";FN((1)52)1PCHECK(N)70 ZCH  LABLE ";:958:% `:I1999::19& 1:1:&" FILER "::<!" FIND FILE"R(" FILL FILE"g/" FIX FILE"6" FACILITATE FILE"=" FOCUS FILE"D" FILE FILE":K" FINISH"R15:"SELECT FUNCTION:";:F$:F$ Y15::" NOT AVAI @@t\pAUooo55Un~UnnU**;n;n;n8`0l:l0h1l:n;n:n:n:l8l:n;n;n;l*}}w* * *UUw]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]wX UQ A@@@UQ A@@@UQ A@@@U**n;n;n;n;n;n;.NN[N[N[N  n;n;n;.3000?*__www*;{?*;;;G;*UU`@w|>1=??~A4adW UyZ[>>U;G[[U[[U**n8`1`lp{~ylpB 0|8`*[_77*www*{{{*UU]w]w\D'?UUUU**n;@80Hs|~~|}|x|x`?|p@*W;;;+*;C;;C;*;C{777*UU ps@~xp@U;C{;{U;{;U3{;;;U**&8@OpO b`  n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;*vv* * *UU]w]w]w]w ]w]w]w]w]w]w]w]w]w]7 UQ A@@@UQ A@@@UQ A@@@U**;n;n;@0 )  n;n;n;n;n;.  *zzz **zzz **zzz **UUw]w]@0 @0#w]@@@@|pxOg@g?`Ppx?w@~?~?^`~Kpp&x@FpO~pxOa@g?~pP||~`^~x@p'@p`~?|O?~|pxOg@g?x?|Pp|xyw~?`^~`~p)|xp|Opp}xx|@`p@FpO|x?|`O?`@@p~P?x@?p@|`^xxp@~?@FpOx|`Oa@@@@P|?~~||`^~xg@g?@`P@`w@}`~@``` @Fp+@C|<O`@pp~P?g@?@|?Q@?xp}`~@`@FpOp`|`O`@@p~P??`@?@U;{;Uwww;{U3*;C{{{*;;G*n~WW*3Uwww}]]U;GUuuwwwU3*n~]M*www* *UUu]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]uUmmUn~U U**n;n;n;n; ";::" ":' K(16384):K128520o 16368,0:K155ė::"TYPE "(34)"RUN"(34)" TO RETURN TO MENU.": K141ĺ(4)"RUNM" &K148ĺ(4)"RUNT" +KK192:K22K1500 ,GO$(K)"R"GO$"RUN" -GO$(K)"L"GO$"LOAD" .GO$(K)"E"GO$0,42:SETS DRAW MODE1 34,6:A$"DRAW":V9:250 17:34,16:"AFTER BLOADING 'IMPRINT' & 'HI-RES FONT'SIMPLY PRINT TEXT ON THE TEXT SCREEN, THEN CALL 24576 TO TRANSFER THE TEXT WINDOW ONTO THE HI-RES SCREEN.":24576 34,0:: # OVERPR; 768,216:769,160:770,0:771,76:772,44:773,254::a1:"<- ->:";:A$:ST1024:EN2046DEST1024(A$(21))(A$(8)):100:20dI(ST256):60,ST256I:61,InI(EN256):62,EN256I:63,I xI(DEST256):66,DEST256I:67,I:768:  q-X236252:2053,X:CHANGE LINE 5p998:998:5::2053,178: (CALL-998 MOVES CURSOR UP A LINE)NS:LOC66:5020D768,160:769,0:770,76:771,44:772,254:768:nLOC,N(N256)256:LOC1,(N256):25003:OS17335:NS16384:OE18247:NE17296:5000:I1666::2500316301,0:21:9:"(NO NOTES AS OF "DA$")":"BLOAD HI-RES FONT"23:8:" TO RETURN TO MENU:";:A$:A$:130:300NOS:LOC60:5020:NOE:LOC62:5020:NNE:LOC64:5020:N"TYPE "(34)"RUN"(34)" TO CONTINUE.":RC303:C:I7183:I,136I,174::jA$"M"ĺ(4)"RUNM"A$"U"ĺ(4)"RUNU"A$"T"ĺ(4)"RUNT"A$"N"1000(7):400 NOTES A:"BLOAD ^":"BLOAD COPYRIGHT (C) 1983"::13:"[Q] Quit"a|24576:3:0,0279,0279,1910,1910,0:57,134223,134223,17657,17657,134y24659,81:24660,42 GET CHOICE J1822:((1)2)ė:J:11:"|}":24576K(16384):K128Ă:400'16368,0:A$(K128):A$"Q"ė::76h15:1:"^^^^BY MARK SIMONSEN AND BERT KERSEY^^^^^^^^^^^ ` 1983, BEAGLE BROS INC.^^^^^^^^";:24659,234:24660,234:24576:I1822:I:9:24)::24576r18:13:"[M] Main Menu":13:"[U] Utilities Menu":13:"[T] Two-Liners Menu":13:"[N] Notes"$;T"^^^^^^^^$@@@^$@@%^@^^^$@@%^@@@%TM^^^^^^^^^^^^^^^@<^^^@/\@^@^^^@/\@^@^\@^^^^^^^^^^^^^^^^^*@@%^@^^@^@^^^@^^@^@^^@^^^^^^^^^^^^^^^^^^^>@^@@@@^@(^^@@@@^@^)@^^^^^^^^^^^^^^^^^@@@#^@^^@^*@@^@^^@^@@@#^^^^^^^^^";^I110:Q$;::(Q$,39);:2039,222:245": ; PRINT ON TEXT SCREEN . @:Q$;Q$;J"^^^^^^^$@@@^@^@^^^@^$@@^$@@%^@@@%^^^^^^^^^^^^^^@<^^^@^@^^^@^@/^^@/\@^@^\@^^^^^^^^^^^^^^*@@%^@^@^^^@^@^^^@^^@^@^^@^^^^^^^^^^^^^^^^>@^@^@(^^@^@(^^@()@^@^^@^^^^^^^^^^^^^^@@@#^@^*@@^@^*@@^*@@#^@^^@^^^^^^^";QA24912:290:127,127,127,126,124,120,112,64:"*"c A24856:290:127,127,127,63,31,15,7,1:"#" A25344:290:28,34,93,69,93,34,28,0:"`"  "IAA7:B:I,B::: ,:230,32:3086:16297,0:16302,0:16304,0 6Q$"":I140:Q$Q$"^%r PRINT ROUTINE -------------5HT1:COL40O(A$)COLĖHT:A$:LTRCOL11:X$(A$,LTR,1):X$" "ĖHT:(A$,LTR(X$" ")):A$(A$,(A$)LTR):510::(7);"WORD TOO LONG":,Y1135,Y1133,Y1:- , BIG T'S -------[ 6Y3019024:YY24(Y54):YY16(Y170) @0:0,Y65,Y6:3:4,Y4,Y87,Y87,Y90,Y90,Y83,Y83,Y: J WAIT FOR KEYPRESS ----------------- TK(16384):K128340 ^:22:1:958:h0,32:3086:24576:16302,0:16297,0:16304,0K  TITLE BOX --------- 3:76,3195,3195,1976,1976,3:196,5196,2079,2079,21197,21197,5  CENTER DIVIDERS --------------- "Y6719024:YY16(Y140):120,Y148,Y:133,Y1133,Y1135, and converted to Hi-Res with IMPRINT from this disk.":500Y 18:"----" "The BBROS LOGO comes from .";:1 IMPRINT TEXT ON HI-RES ---------------------- 1::(4)"BLOAD IMPRINT":(4)"BLOAD HI-RES FONT"0 23ype and routines from .":500= 18:"----" A$"The trick REM statements on this disk's programs were formatted with .":500 18:"----"I A$"This text is printed, without wrap- around, using one of the 100 programs from ح̠٠̠Ӡ Ҡ̠Š"Ҡ̠ŠϠΠԠҠԠԠǠԠŠ  Ϯñ ϮòؠŠҠɭӠ٠ɭӠҠŠz#ϠĠ͠٠ΠӠϠ"Ԩ٩ ϮՠϮӠ ̺̠Ġ̺ϠΠ̺ҡ̺Ԡ̺Ҡ"̺͠ӠΠƠ ̺٠ ̺РӠ ̺ŠҠ ̺Ԡ ̺ĠΠ ̺Π֠ ̺Š  ̺Ӡ̺ԠӠ ̺ɭԠ ̺Š ̺Ƞ ̺Ӡ̺ҠϭӠ ̺ŠĠ ̺ؠԠ ̺ ̺Ҡ ̺ŠΠ ̺РԠ! ӭҠ٭Ҡ͠ҠҠϭˠԠ" ŠĠҠ ŠҠ ͠Ҡ ԠŠҠ ԠנР ϭŠӠҠנӠ ˠҠ ɭàРԠ àҠ ɭӠԠԠɭӠԠ Ԡ ԠҠ Ϡĭˠ ŠҠ! Š" ΠҠ ΠҠ Ҡ ӠƠɠ  ҠŭҠ ǠȠ ԠΠҠРˠ ؠӠ РΠ Š ǠҠҠ ҠӠ àҠ ҠӠ ҠϠҠ٠Π ԭդǠ ŠӠРˠϠɭӠŠˠ ˠӠ̠ !ŠɭӠ"ҠҠҠӠ٠Ҡ Ƞؠ ɭӠؠ ϭŠԠ ԠРˠ˫ŽҠҠԠí͠Ҡ̠Ҡ ԠҠΠĠԠé ŠӠîވϠ ͠ՠ((A$,K,1))31:99:/ MEMORY MOVE {NOS:LOC60:5050:NOE:LOC62:5050:NNE:LOC64:5050:NNS:LOC66:5050768,160:769,0:770,76:771,44:772,254:768:771,173:772,48:LOC,N(N256)256:LOC1,(N256):o PICLOAD p7)::"YOU HAVE FAILED THIS TEST."1 P:""? Z(4)"FP"OW INSTRUCTIONS.":5:"USE YOUR RIGHT INDEX FINGER.":14:"-----":(A)A1:(7);(7);(7):40m 24:1:A$ <11:958:"GOOD. NOW PLACE":"YOUR NOSE ON":"THIS FLASHING SQUARE->";::" ";::(8);:A$" F24::"DON'T TOUCH THE KEYBOARD!!"(7)(7)(LICKER,RLIST CUSTOMIZER }RONERR TRY AGAIN,RPRINTER DE-BUGGER,RPRINT-U$ING,LPROGRAM PEEKER,EPROGRAM SPLITTER,RSUBSTRING SEARCH,ETEXT PAGE 2 TRANSFER,BTEXT SCREEN FORMATTER,ETEXT WINDOW DUMP,RTWO-TRACK CAT,UUNDELETE,RZERO-PAGE CHECKER 1:34:868:"OL-":(637)255A$"control-"z s17:40:32,29:33,11::A$"M:":" MAIN MENU"::A$"T:":" TWO-LINERS":"ESC: QUIT";: xRAUTO HI-RES,RBASIC DISASSEMBLER,RCURSOR KILLER,RDEC DUMPER,UDISK SCANNER,RDOS-KILLER,EERROR TRAPPER,RHI-RES TEXT IMPRINT,RKEY-CICON SALAD UTILITIES MENU ":234::I4011:1:I:(A$,I,1)::3):I324:I:1:" "(I62)" ";: n:255:GO$(22),PR$(22):I122:A$:GO$(I)(A$,1):PR$(I)(A$,(A$)1):I2:5:PR$(I);::PR$(22)"ZERO-PAGE ADDRESS CHECKER" pA$"CONTRTCZ ================== UTILITIES MENU (U) ================== ^(12);(21)::::"#":A(1024):(12)::A163ĺ"PLEASE SWITCH TO NORMAL 40-COLUMN TEXT.":_(103)(104)2562049Ĺ103,1:104,8:2048,0:(4)"RUNU"d::o iA$" SIL  @. "NOMONICO"::::" READING TEST "::B4::" ";:3:"<-COVER THE FLASHING SQUARE WITH":5:"YOUR LEFT INDEX FINGER."::5:"THEN PRESS THE KEY.":4:1:A$:A$(13)10#5:10:"RIGHT"_ (50,63192A:12:5:"PLEASE FOLLJIM ROTH--SAN ANTONIO,TXM:7:0,0279,0279,1910,1910,0:A0:C0X1134:Y192:X2130(A2)138:Y290(3A)95:X1,Y1X2,Y2:AA.1:2(7(1)1):20 JIM ROTH( 16627 FT. OSWEGO2 SAN ANTONIO, TX 78247 ,208,96 I768818:V:I,V:9D$(4):D$"PR#1":(9)"N"L768:D$"PR#0" ( 166,34,138,32,36,252,160,0,177,40,201,32,176,2,105,192,201,96,176,2,105,128,201,128,176,2,105,64,201,160,176,2,105,96,32,237,253,200,196,33,144,222,32,142,253,232,228,35,144  J RESTORES BLINKING CURSOR. RESTORES SOLID CURSOR.h I768806:V:I,V::768169,11,133,56,169,3,133,57,76,234,3,72,41,63,9,0,145,40,104,230,78,208,2,230,79,44,0,192,16,245,145,40,173,0,192,44,16,192,96:5 x#b0p>t p@,W`!op? p|O?~pwO?{~a~~@x"0~ x|@Q  p,RL"d@,TL Lx!xD`zm/7p@@ L!Ha~| fq@x,PL ~|p`p|`@L L |p'p||"B1|a~q @x     |IMAD DAGHER--ANAHEIM,CA4:7:H79.5:G159zA012.6.2:X22A:YGH((A)1):X,Y:A:GG7:HH7:H79.72 IMAD DAGHER 155 N. AVE CIENEGA ANAHEIM, CA 92807 CIENEGA ANAHEIM, CA 928073,36,165,59,166,58,32,36,237,169,31,133,36,165,59,164,58,32,242,226,32,46,237,32,142,253,76,30,3,0,0,0,129,89,77,145,133,145,133768 (162,0,32,140,248,164,47,192,1,208,19,177,58,205,101,3,208,12,162,4,189,102,3,197,46,240,29,202,16,246,165,47,56,101,58,133,58,165,59,105,0,133,59,165,58,205,99,3,165,59,237,100,3,144,201x 296,169,164,32,237,253,165,59,166,58,32,65,249,169,15,13yG:::"ZERO-PAGE ADDRESS CHECKER":"-------------------------":` I768874:V:I,V:"START ADDRESS: ";ST:"END ADDRESS: ";EN:"ZERO-PAGE ADDRESS: ";AD: 59,(ST256):58,ST(ST256)256:868,(EN256):867,EN(EN256)256:869,AD: 169,4,141,17,3,189,42,3,141,1,6,160,4,136,208,253,238,16,3,208,243,238,17,3,172,17,3,192,8,208,233,202,208,217,240,213,175,173,220,161  SLOW SPIN =========. :::T116MA$"-/!"(92): A$="-/!\"v7:X14:9:Y110:(A$,X,1);::(T10Ģ10::" WHEN FINISHED..."2T< QUICK SPIN ==========FI768814:V:I,V:I:768 P162,4,169,0,141,16,3,  Πύ*;{kk*;;__]*3U~nn}}}U{;;]}U?;;U3*nf*www*;*3U Un~U{{U3* *p*{{{*3UQ A@@@UQ A@@@UQ A@@@U@@;n;n;n;n8`*zzz **zzz **zzz **UUw]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]wUUUU***( **W;;;C{*777ooo*;C{{{{*3UwwwwwwU;;;U3{m}U3*np~nn* * *UUw]w]` @0|}sC@rgga`@Uoooo{U U U**n;n;n:h0@>103 #l8`h;n;n:n0*}}* * *UU]w]w]w]w]w]w\qXt\w\w]w]w]w]w]w]w]w]p@UQ A@@@UQ A@@@UQ A@@@U**;n;n;n;n;n;n;n;n;n;n;n;n;n;n;nwU;;;;;U[[;;U**n; `x~x@ ?N;@J*___w*;G;{?*_]]3{*UU]w |@xA@p`\@~~ UyZ[CU{?U;{U**;n:??0?y nr~? *[_o{*zzz **zzz **zzz **UU]w]w]wgqy|~~?ppe]7UUUU**;n;.c|8xxz8|~?~pd|x`*W;;;C;*777;C;*W;;+;*UUw]x qxwpwG_GPU;C{_* REQUIRES DOS IN NORMAL 48K LOCATIOND2N0:L146278:L246488g<FI$(210): DIM MAX# OF FILES~F45073N:READ CATPXL1L235:(X)NFNF1:A$"":I332:A$A$((XI)128)::FI$(NF)A$:"FI$("NF"):";:10:FI$(NF):X:N15:70 SCOTT BROS, FT WORTHt 1,0,4,0,18,63,32,100,45,21,54,30,7,0:I76767689:A:I,A:::232,252:233,29:0C17:C:R1140:R:1140,96::S14011:S:1140,96::23,27,168,177,27,73,255,145,27,200,208,247,230,28,165,28,201,64,208,239,9601,131,240,55 165,61,166,60,32,36,237,160,0,169,173,76,237,253,165,60,41,7,208,8,32,40,3,169,4,141,108,3,173,108,3,24,105,4,141,108,3,133,36,177,60,170,169,0,32,36,237,160,0,32 (186,252,144,216,96,104,104,967:::9:"DEC DUMPER LOADED (SEE INSTRUCTIONS.)"a I768875:V:I,V:I:1014,0:1015,3 160,0,32,183,0,32,12,218,165,80,133,60,165,81,133,61,32,183,0,201,44,208,14,32,177,0,32,12,218,165,80,133,62,165,81,133,63,76,70,3,32,142,253,173,0,192,2  @J8@`|?~Kp~"~||.x@ppxPg@g?@`P@`w@}`~@` ?Kpx?!@C|<.``@pp~P?g@?@|?Q@?xp}`~$py@``!!!       (0 ZNND (0 Zнй`)JJ & & f)`  (0 Z LS$(27)Ĺ16304,0:A$"N":700,20:958DMAHQ@QQ@F0OSOE?NSNLOBXBYJCX`CYTXT YT XB~YB<Y(A E XTKCOJDIPCOJ&I`FLle-","Take","Flex","Text","Pronto","DOS","And","More...","Product","List"`::9:"DEMO PROGRAMS ARE NOT ON THIS DISK."::"RUN DEMO.NOTES FOR MORE INFORMATION. --- ----------"(222)6Ģ22:" TO CONTINUE OR TO QUIT:";:A$:A$:ALCOME,APPLE MECHANIC/BZZ-ZZ,ALPHA PLOT,BEAGLE BAG,BEAGLE BASIC,DOS BOSS,DOUBLE-TAKE,FLEX TEXT,PRONTO-DOS,MORE...,PRODUCT LISTIh"Apple","Mechanic","Ap.Mech.","Welcome","Ap.Mech.","Bzz-zz","Alpha","Plot","Beagle","Bag","Beagle","Basic","DOS","Boss","Doub299,0zE230,64:BX2:BY101:YTBYBY6430:XTBXBX21070:XBXT62:YBYT23:1000:KYT4YT13:XT3,KXT11,K:::J:I112:A$::JBYBY6430:IBXBX21070:A$:XI14:YJ4:2000:A$:YY8:2000:::}^APPLE MECHANIC,APPLE MECHANIC/WE16384:OE24575:NS8192:5000%1202W HUH? YXK155ė:16300,0:16301,0:21:]XOX:YOY:L16:T$A$:A$"???":X155:Y20:2000:A$T$b0,((1)200)25:1,2:771l:XXO:YYO:? DRAW BOXES @16304,0:16297,0:16302,0:16r21:1:" (UPDATE THIS DISK WITH PRONTO-DOS, AND THIS MENU WILL LOAD 3 TIMES AS FAST!) ---------------"uD$"BLOAD DEMO.PIC1"z230,32:3086:I2411:I:1:868:J119::::16302,00,0:1,96:230,64:7680:OS MORTEN OLSEN, DENMARK::"(TRY 30, 60, 90, 120 AND 150 AS INPUT.)":::"DIFFERENCE IN DEGREES:";D:DD57.29578:::3:140,96:1R0200D:X140R(R):Y960.7(R(R)):X,Y: 3,5,6,BLACK (0),GREEN (1),VIOLET (2),WHITE (3),ORANGE (5),BLUE (6)C* ::::GR SETS WINDOW BELOW HI-RESMI16:C(I)::I16:C$(I):u(I16:J16:X46(J1):Y26(I1)2:A$C$(I)" + "C$(J):18(C$(I)):A$<YYYY232:C(I):X,YYX43,YYFC(J):X,YY1X43,YY1:YY,J,IP::B n0,1,2,  d=================/e2-TRACK CATALOG CfBY BERT KERSEYTgBEAGLE BROSkh=================qi768,32:769,227:770,3:771,76:772,217:773,3:JUMP-TO-RWTS.ROUTINE LOC10000:47088,LOC(LOC256)256:47089,(LOC256):MEM.STORA :::BUZZ16336DA$"HERE'S ANOTHER WAY TO PRINT TEXT..."ULTR1(A$)y(H(20(A$)2)LTR:CENTER TEXT2LTR$(A$,LTR,1)FV((1)15)111PV:HZLTR$d868nxJ12:S(BUZZ)::     XT YT XB~YB<Y(A E XTKCOJDIPCOJ&I`FLNND  EMO.MENU, OR TO QUIT:";:A$:A$;G \A$"R"ĺ:(4)"RUN DEMO.MENU"_ ]A$"Q"Ģ23:958:g ^90 _I1(A$):J((A$,I,1)):(JE2(J96));:::DMAHQ@QQ@F0OSOE?NSNLOBXBYJCX`CYT utilities and articles-on-disk, send $8.00 for a trial disk (specify July-83)":95 @998:A$"to: SOFTDISK":95:" 3811 ST.VINCENT, DEPT.B":" SHREVEPORT, LA 71108"::A$"(A one-year's subscription is $55.)":95$ Z24:1:958:" TO RUN D" Beagle Bros presented their official Dealer Demo Disk in the July-83 issue ofSoftDisk, a disk/magazine from Softalk.":95V >:A$" If you want to see our demo disk in its entirety, plus three more disks- worth of unprotected games, tutorials, ((637)223E232")E232H-:::13:" DEMO DISK MENU "::/A$"(Due to lack of disk space, the menu youare about to see is just that--a MENU.)":95:0" THE DEMO PROGRAMS REFERRED TO IN THE MENU DO NOT APPEAR ON THIS DISK.":~ 2A$35):P(S):::22:"THANK YOU. THAT WILL BE 25 CENTS.": = JOHN ROMERO--ROCKLIN,CA:22:"PLACE FINGER ON SPACE BAR TO READ PULSE.":20:S49200::3:Y016010:YY(Y160):0,Y279,Y::X028010:XX(X280):X,0X,190::1; 3:0,100:X02763:A$:(7(A$" "));:X,((1)8035)X3,((1)80  : "PRESS A KEY."<K(16384):READ KEYPRESSJK12820j16368,0: CANCEL KEYPRESSz#A$(K128)(I140-A$;:210 aa cŠa a c̤a a `LbحaaaaɀL>ca)̴aiimaiLScLSc8aa c `hhɦ LcHH`aLaLb ?@,حaaLaɀLa8aaӭaaaa L-bVQLL-baaa ʹaL2b aȑiimaiLbLb8aaLb8aa 1*UU`@w|>1=??~A4adW 1U**n8`1`lp{~ylpB 0|8`1*UU]w]w\D'?@@t\pA1U**;n;n;n8`0l:l0h1l:n;n:n:n:l8l:n;n;n;l1*UUw]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]w]wX 1U**n;n;n;"::I1999::"]RUN FILENAME";:V(37):::I1999::255:"FILE NOT FOUND"(7):V:1Y6:::"ONERR TRY AGAIN":"---------------":::Z 42751,76:42752,240:42753,164~I4222442235:BYTE:I,BYTE:I 165,37,233,4,32,91,251,108,94,157,0,0X (200:"NOW THE CURSOR WILL APPEAR ABOVE DOS ERROR MESSAGES, LIKE THIS EXAMPLE:w]w ]w]w]w]w]w]w]w]w]w]7 1U**;n;n;@0 )  n;n;n;n;n;.  1*UUw]w]@0 @0#w]@@@1U**n;@80Hs|~~|}|x|x`?|p@1*UU ps@~xp@1U**&8@OpO b`  ?@2*UU|pp@ 303Ns|x`P{~|`2U** |zx~~~~x@2*UU&|p@2U***2*UUTP*@2U`*`U`*`U`*`U*`U`*`U`*`U`*UUu]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u]u1U**n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;1*UU]w]w]*?Os{}|~`{_?@psO2*UUy~xx@?|N>xp@2U**c  ~~wpppOwP`2*UU8`~|pdT[2U**x`@ |C? 2*UU`?_???O>=`g~Hx2U**|  y|<{{@c{anoc``N_g?_H2 O??;82U**F?80=???~| Cn~<2*UU|p@C~Df|xpa`dF8'!`>xC2U**~p0?????<@x|p2*UU|xpx~~xppx~~~|}~~p2U**%~`2*UU ?? _?30002U*``U`*`U`*`U`*`U***| 2*UU'?2U** ??O?2*UUC@ @@c? @2U**   $9Og@2*UU?'ddy~|?~|}x|||`x@!~x`2U**ID@ x {s?HH?|p`2*UUC@      SCOTT BROS, FT WORTHy1,0,4,0,18,63,39,36,44,45,45,53,54,62,63,0:I76767691:A:I,A:::232,252:233,29:0C17:C:R1140:R:1140,96::S14011:S:1140,96::I11000:::2 B$(X)A$(P):PP(P):X"."B$(X):XX1:P02004 C{ :N%N16:N" WORDS SORTED & PRINTED IN "N%" SECONDS!"(7):::231N:J15((1)5):A$(I)A$(I)(((1)26)65)::I;".";A$(I):n 234,4:::" SORTED LIST "(7)::34,5 ALPHABETIZE ----------- T(26),P(N),B$(N1):AM64 C1N:A(A$(C))AM:P(C)T(A):T(A)C:C X1:C126:PT(C):P0ĂC:220- |N50:NUMBER OF WORDS:::" THIS IS THE WORLD'S FASTEST (AS FAR AS WE KNOW) APPLESOFT SORTER. PROGRAMMED BY ODED KREMER OF BEVERLY HILLS, CALIF.":" "N" RANDOM WORDS "::34,5 CREATE RANDOM WORDS -------------------A$(N)C (I  EOS256:NS24576:NE24576256:5000:MOVE IMBEDDED MACHINE CODE TO NSi (4)"BLOAD BBROS LOGO,A$4000" 230,32:3086:: CLEAR SCREEN WITHOUT FLASH 24784 X22: NOS:LOC60:5020:NOE:LOC62:5020:NNE:LOC64:5020:NNS:LOC66:50200 ctd POUR BY DON ROSE CRYSTAL LAKE, ILLINOIS NOTE: THERE IS MACHINE CODE IMBEDDED AT THE END OF THIS PROGRAM. (4)"MONICO"::::7:" POUR ":::"BY DON ROSE":"CRYSTAL LAKE, ILLINOIS"::"STAND BY...":F EOP(175)(176)256:OSEOP260:Ow- -3M?7nIR-53M1?w n5 76NI)R---u -1-3vu?M13M1smNM13MN 5M13  NMMq-M13M1?w ?M .----N)II>ߛm)7-?.MI 666n*N >iNI---5??7--5??7--5??7--u@@@C?.- ??N -5?*m ->??u5rVw-->.>.>*-u7I?--???N->7->oI I??MI vRR-53M1smN56-3M13-u mR-3v-NI1*-n -u?R-3---u 3?w6N R-53M1?w ?M >6-3M13Mq)66N 56o )6M.nq)566-N5-n n N -n1nq)R-3M1s-N-N Mn7 n N 666-uM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-.)3M1?w *uIR >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N ->7->*--??-M  M13--n N -3M?7M13-u J)36Ms-N -n1n1-u J--n?76--NJ--n?76NII)36M5s-uJM13M1??n n N -66-N I166s- ? ?wqImmw M:N)N-n mN-6R 6N56N 5 --NN n:?w1VIM7R?RINIVI 5)3M5.M-Nm1w6-N)sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-Nad )/9BS^ent0;OZn);LZl}+6<JXbs .8FSbo" 66N nR>i----nN> ? JIM ROTH--SAN ANTONIO,TXE:7:0,0279,0279,1910,1910,0X1(100(1)60):Y1(80(1)20):X2130(A)138:Y290(A)95:X1,Y1X2,Y2:AA.1:C(7(1)1):2 JIM ROTH( 16627 FT. OSWEGO2 SAN ANTONIO,TX 78247  2,27,253,72,152,72,169,64,32,168,252,160,32,169,12,32,168,252,173,48,192,136,208,245,104,168,104,96d+:::"KEY-CLICKER":"-----------":b "ENTER A NUMBER (1-40): ";A$:A(A$):A1A4010I768806:V:I,V::793,A:768::"KEY-CLICKER INSTALLED."::"TYPE "(34)"RUN"(34)" TO TRY ANOTHER VALUE."c 169,11,133,56,169,3,133,57,76,234,3,3 Ѧ ` \`L`Lp` ``L768,160:769,0:770,76:771,44:772,254:768:Z LOC,N(N256)256:LOC1,(N256):D) i )8jjjj)e jjjjjj)i'i'i'ee`'`'`` `i ` P`(C$)130? X0(C$)1:S(LI)X,((C$,X1,1))128::1300 LI$"S"ĺ(4);"BSAVE FID*,A2051,L4686":150M LI(LI$):LI1LI7150 LI6ĺ::(7);"(CAN'T ALTER COPYRIGHT MESSAGE)":X12000::150 12:1:958:"RE-TYPE LINE #";LI;" AND PRESS ." 2LI:1:"";C$:(C$)40C$(C$,40) 4):$ :::"CURRENT FID TITLE:"P 2::L17:X039:((S(L)X));:X,La 12:1:958 "<1-7> SELECT LINE# TO BE CHANGED":" SAVE CURRENT TITLE":" RE-LOAD OLD TITLE":" QUIT": :"SELECT:";LI$:LI$"Q"Ā LI$"R"Ĭ@Vd(103)(104)2568193Ĺ8192,0:103,1:104,32:(4);"RUN FIDFIX":THIS PROGRAM`i115{n(4);"BLOAD FID":120s(222)6ė:"FID AND FIDFIX MUST BE ON THE SAME DISK."(7):"(PROGRAM ERASED)"::(4)"FP" x216,0:L17:S(L)572940L(LFIND$,J,1)(S$,K,1)J(FIND$):FOUND05 KK1:JB FOUNDıO I:I0:P3 :::"SUBSTRING SEARCH":"----------------"lS$"THIS SENTENCE TESTS THIS PROGRAM FOR YOU":5:S$::"STRING TO FIND:";FIND$:100(FOUNDĞ:5:I:FIND$::2:"(NOT FOUND)":dI1(S$)nKI:FOUND1xJ1(FIND$)( ( AJIT JOSHI--CANTON,MIiA118:X:767A,X:::28,63:62454::28,64:62454:768:::16368,0173,84,192,173,0,192,201,127,16,7,234,173,85,192,76,0,3,96 ĠͺκϠŠԠԠԠŠԠԠŠΠԠΠŠԠΠԠҤĠҢ̠͠бв͠ŠɭӠӠӬϩ͠ˠˠ͠ˠˠԠбΠвƠ͠ԠΠƠΠ͠ΠԠҤԠƠ٠Ң . . . 29.5O BEAGLE BASIC . . . . . . . . 34.95" 9N" DISKQUIK . . . . . . . . . . 29.5O DOS BOSS . . . . . . . . . . 24.OO"Z >N" DOUBLE-TAKE . . . . . . . . 34.95 FLEX TEXT . . . . . . . . . 29.5O FRAME-UP . . . . . . . . . (#(4)"NOMONICO",'230,32:3086::h N::3:" BEAGLE BROS DISKS ";::" (DECEMBER 1983)":6 4N" ALPHA PLOT . . . . . . . . . $ 39.5O APPLE MECHANIC . . . . . . . 29.5O APPLE MECHANIC TYPEFACES . . 2O.OO BEAGLE BAG . . . . . . 0* REQUIRES DOS IN NORMAL 48K LOCATIOND2N0:L146278:L246488g<FI$(210): DIM MAX# OF FILESoA:F45073N:READ CATKXL1L235:(X)0ĀP(X)255FILESFILES1:9:"FILES: ";FILES:SECSEC(X33):"SECTORS:";SEC UX:N15:7av ba brbAcabaaa/bba b baaaa (1234....+....1....+....2....+....3....+....4$(@I iɀI i`)"'4$$!4 e4 d dL}d$$! e e 4%# eeiȑ`$(ɠ!``e eHeh 0Le$(@ɀe`e4e e e ee e48`"`;`:`Waa@cbba`e(H(he(eee`e Xbgh d de"% d4 8d%%#ȑeiijhh sLYaȭaamaaaia`$e " ee%%#hhLc$4e ȥ%i 'e$ 'ee4 Dee4 e4 eT De` 6c" [((!(%%#L+c 6c" [!(ȑ(ȩ(%%#L+c 6c pL+c 6c#8H $(*)+!h80" H $(*0ޠ e$eL[%e$e` e]eȌe! eee8ee!8eJee10emeeemeeeee(H(he(ea`LaLa X aLa ɠ ) eHeH` eeI%2$($$!`$!$$%0%"#%%L"$%%#"L[e`e e`e#e䅛e tb !!"#$"L[ !!"#e f tbۥ" [ b "(!(%%#(! BILL POMPEII--WINDSOR,NYg:3:LI63:RI0:V13:RTRI:LFLI:TP0:BT279:YTRI:YBLI:LP116TP,YT279,RTBT,YB0,LFTP,YT:TPTP17.4:BTBT17.4:RTRT4:LFLF4:LP:LILI64:RIRI64: : JJJJ) 0ȑ>:Cȑ>~~~>?>`I6gh@>A?@A@ȱ@}|ޥ@HAH>@?Ah?h>@ȱ@H@C~@Bh@ALȱ@B8eBeCBHBBhC@ȱ@@A@ ȱ@Bȱ@BLBȑB8eBeCjlnikm~>ȭ>ȱ>Bȱ>Cȩ>:;<B&C:e::;e;; to free unused Track-16 catalog Sectors $00-0C.":500n 18:"----" A$"The catalog -- HEADINGS -- were created with FILENAME ZAP from .":500 18:"----"- A$"The DEMO.MENU program uses t(d TECHNICAL NOTES --------------->n:(4)"NOMONICO"x::12:"-----------------":12:" TECHNICAL NOTES":12:"-----------------"^ A$"This disk was initialized with normal DOS, then updated with TWO-TRACK CAT . The VTOC waULSSR:2RULNRD:3'NUEDLED:45RULUR:5FUURSLSRU:6TNNRDD:7e UURDLSRU:8t!RULURD:9}"::#:;$EBC:<%RNLE:=&CBE:>'URULE:?(:@)CCFLEF:A*UURDLEDLE:B+UURSSLE:C,UUFGE:E # CORRESPONDS TO ASCII VALUE + 10003 E:SPACE< :!I NUED:"R :#d RULURGGEE:$m :%v :& NU:' EBC:( CB:) :* EUUWSRR:+ U:, NR:- R:. CC:/ UURDDLCC: 0 UU:1URL=LEFT PLOT $ N=NORTH NO-PLOT8 E=EAST NO-PLOTM S=SOUTH NO-PLOTb W=WEST NO-PLOT } C=CLIMB PLOT (N/EAST) F=FALL PLOT (S\EAST) G=GOBACK PLOT (S/WEST) B=BACKUP PLOT (N\WEST) % CHARACTERS WITHOUT DATA ARE UNDEFINED. LIN<I1(N$):V((N$,I,1)):0:8X,Y:3:VX,Y:XX1.6SC:: F20,0,24,0,27,0,31,0,35,0,39,0,44,0,49,0,52,0,57,0,53,62,36,0,49,38,0,53,55,61,0,53,23,37,0,46,38,52,0,61,46,62,5,0,61,54,37,7,0,53,38,0,54,37,60,46,0,53,39,53,62,5,0,256 SC5:SC:SIZE<232,0:233,96:0:LOC24576:::22_J:J256ĹLOC,J:LOCLOC1:30(X99:Y99:3:X16,Y9:X16,Y42SECSEC1:SEC59SEC0:MINMIN1:MIN99MIN07X99:N$("0"(MIN),2):60:XX3:N$("0"(SEC),2):60:50> ,A:C,B0,BA:::I101:I3:A0BS:0,AX,YC,A:0,BAX,BYC,BA:::1QKEVIN OSTROM--POWAY,CAB191:C278:PCB:S(1)93::I101:I3:A0BS:O,AAP,BC,BACAP,00,A:::X(1)C:Y(1)B:I101:I3:A0BS:0,AX,YC,BA:AP,BX,YCAP,0P ::I101:I3:A0BS:0,0C,A:0,BC,BA:C,00 :* I0192:768I,(54949I):>867,40: WIDTHr933,135:934,3:945,135:946,3:1014,0:1015,3 (Q$(34):9:"LIST CUSTOMIZER INSTALLED."::"TO LIST IN A DIFFERENT WIDTH,":"USE "Q$"&"Q$" INSTEAD OF "Q$"LIST"Q$".":"(SEE INSTRUCTION 0 N(40)::::V212:V23:1(V10):V:fD1((1)6)1:D2((1)6)1:DD1D2:N(D)N(D)1D23:3::N(D)):(36)20(:V212:V23:3:":";N(V);N(V)10)::(7) ,5,6 ----> <-HCOLOR 3->"< P"(MADE FROM HCOLORS 0 AND 3)";F Z23:G ::3: OR HCOLOR=7KY12515510:0,Y279,Y::PLOT WHITE LINESZX01862(0:X,125:X1,135:ADD #0-BLACK TO MAKE #1-GREEN & #2-VIOLET24:X,145:X1,155:ADD #4-BLACK TO MAKE #5-ORANGE & #6-BLUE<X:21 F"<---- HCOLORS 1,2 UEDDLE:U>NUSFCU:V)?NNDDCFUU:W9@CCWWFFF:XHANNFDNC:YYBNNRRGGRR:ZD-UURSLESLE:E".UURSLE:F2/UURSDLE:GB0UUEDLED:HM1UU:I[2USRUU:Jj3UUEGFF:Kz4UUESSLE:L5UUFCDD:M6UUFFUU:N7UURDDLE:O8UURDLE:P9UURDDLEFNW:Q:UURDLFF:R;RULUR:S<NNRRWDDE:T =U) WORKS SOMETHING LIKE "SCRIBBLE" M:232,120:233,64:16504,4:33aA115:A,50AyR:RĘ16R:R4:6::6,6,5,1,5,4,4,7,6,6,1,1,4,4,2,2,5,4,4,1,6,6,1,5,3,4,5,3,4,5,00:T:0:X,29:12:X:::19:15:"B O O M !"/JOHN WOO--BRONX,NY::8:0,3938:11:14,2137:14,2133:34,3613:34,3622:20,35:16,35:17,2032:17,2031:19,2030:11,2029:19,28:28,3011:21,28:12:X12345:- X1001:X,29:T120:T:0:X,29:12:X:X39211:X,29:T1200,0:::68,216:769,160:770,0:771,76:772,44:773,254:60,0:61,4:62,255:63,7:66,0:67,8:768:MOVE PG.1 TO PG.2 P:"TYPE ON THIS PAGE ("X$" FOR INFO)": dA$:A$(9)İ2000:100 iA$(17)Ā: QUIT IF CONTROL-Q nA$;:100 16299,0:A$:163L(103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN HELP SCREEN"r X$"TAB":(637)255X$"CTRL-I"z:"HELP PAGE"::X$;" = HELP":"CONTROL-Q = QUIT":I39:"COMMAND #";I;" =":::" TO CONTINUE";:PRINT HELP PAGEm 27 50:N%NN%16:150:. (48N%7(N%9));::140:" ";X$;" ";N;(N100)(N10));" ";:N127ĺ"(";N128;") ";(N128100)(N12810)); d" ";:N::V1((V1)16)160130 x:TT1:T2ĺ3);"INVERSE";8);"FLASH";10);"NORMAL";15);"LOWER CASE":L$ V:I16:::0: "$";:N%N16:1;8);"FLASH";10);"CONTROL";14);"NORMAL":L$G (V063:NVV19264d 2N159N255X$(N):90 <N255X$" ":90:MAKES CHR$(255) PRINT AS A SPACE. DEPENDS ON YOUR PRINTER. FXN:XX192(N32)128(N31N96)64(N95) PX$(X)Z Z" ";/SLOT1:PRINTER SLOT2 I169:L$L$"-":j:::" PRINTER NOT CONNECTED "::(4)"PR#"SL::yI16::A$"===================":25:A$:25:"APPLE SCREEN VALUES":25:A$:34:"---Applesoft ASCII in parentheses---"- 3);"INVERSE"   -RES FONT":24659,234:24660,234y N230,32:24576:3:0,0279,0279,1590,1590,0:4,4:275,4:275,155:4,155:16304,0 N23:5:16304,0 N23:h? ::::"WAIT"::ZZ(175)(176)256363072:ZZ,216:gXX12:16299,0:16300,0:XXX1:!:232,120:233,64:16504,4JS03(GO)64:S:91:9:90GO:9:nM:9:GOMM164(M63):M:9C12:S(49200)::GO1:3 1140,95:] ڦ@ Z ^ :L3 :L3`H \hP :۩X :ۥۦ $L?qH \hL:"DIVAN ROUS--COUNTRYSIDE,IL :P3.14:Q6.28:T13:LP40:((1)6)1:R(1)60:S90R:B(1)QP:A0QL:X((A)S1.55)140:Y((A)S)95:H((AB)R):XH,YHXH,YH:XH,YHXH,YH:::`u" $(*))+( iR``iR`ɀi@R`ɠ1)***H*) `P`h)O``IQ**+i+R`!#` ` TIME300:LOWER=FASTER,J1TIME::10:80)S(I15:A(49200):I_2::20 "0"500:0,1,11,111,12,2,21,211,2111,13O xI1N(I)4āX1N(I):"M";::500 X1(A$):(X$,3(I1)((A$,X,1)),1);: I1N(I)3L(A$):998:(36)1L:X1L:(95);::922  X::I140:"-";::50/::"ARABIC TO ROMAN CONVERTER (1-9999)"J(X$"IVXCDMXLCIVX":600e2:"ARABIC NUMBER:";N$<N(N$):L(N$):N1N9999ĀAL4āI14L:N$"0"N$:FI14:N(I)((N$,I,1)):P:"ROMAN NUMERAL:";( cI14::J1N(I)1:A$::A$ A24912:290:127,127,127,126,124,120,112,64:"*"c A24856:290:127,127,127,63,31,15,7,1:"#" A25344:290:28,34,93,69,93,34,28,0:"`"  "IAA7:B:I,B::: ,:230,32:3086:16297,0:16302,0:16304,0 6Q$"":I140:Q$Q$"^0,0,0,0,0,0:"\"7 A24896:290:0,0,0,0,0,0,1,3:"("` A24904:290:0,0,0,0,0,0,64,96:")" A24864:290:64,112,120,124,126,127,127,127:"$" A24872:290:1,7,15,31,63,127,127,127:"%" A25088:290:127,127,127,127,127,127,127,127:"@"3 0,0:"^"5 A25576:290:8,24,63,127,63,24,8,0:"}"f A25568:290:30,60,120,112,120,60,30,0:"|" A25056:290:31,7,3,3,3,3,7,31:"<" A25072:290:112,96,64,64,64,64,96,112:">" A24952:290:3,1,0,0,0,0,0,0:"/" A25312:290:96,64,A(1024):(12)::A163ĺ"PLEASE SWITCH TO NORMAL 40-COLUMN TEXT.":Y dDA$"12/1/83" n(4)"NOMONICO":(4)"BLOAD HI-RES FONT":(4)"BLOAD IMPRINT" x24659,17:24660,42 } RE-DEFINE CHARACTERS 130:300 :A25328:290:0,0,8,28,8,0, Z" +---------------------+ ! SILICON SALAD ! ! BY BERT KERSEY ! ! AND MARK SIMONSEN ! ! COPYRIGHT (C) 1983 ! ! BEAGLE BROS INC. ! ! 4315 SIERRA VISTA ! ! SAN DIEGO, CA 92103 ! +---------------------+ G _(12);(21)::::"#":      #THOMAS GILLEY--ELLSWORTH, ME):I115:X:24575I,X::232,0:233,96:00:S1255:S:1139,95::2: 1,0,4,0,0,40,53,54,62,63,39,36,44,5,0! E2ĺ(A$,LTR(X$SP$)):1040R I1LTR:J((A$,I,1)):(J32(J95));::o A$(A$,(A$)LTR):1000 ::(7);"WORD TOO LONG";:te answer to a question. Instead, a program should be polite; a slight rap on the user's knuckles will suffice..."| 1000  HT:(A$)COLāI1(A$):J((A$,I,1)):(J32(J95E2));:: LTRCOL11:X$(A$,LTR,1):X$SP$X$"-"1050(dE2(637)223:E2=1 IF APPLE IIEBnCOL30:WIDTH-MINUS-1XxHT5:LEFT-MARGINmSP$(32):SPACE:"+---+----+----+----+----+----+----+----+"r A$"User-friendly software never tells the user that he is a klutz for typing an inappropria   TO CONTINUE OR TO QUIT.";^ x23:1:"ENTER NEW START LOCATION:";ST$:ST$""60w ST$"Q"Ģ22:958: ST(ST$):50 P1(SC(V)H):P2(SC(V)H1):X16(P11767(P1185))P21767(P2185)::(CONVERTS HEX ON SCREEN TO DECIMAL)-------HEX------";:21:"------DECIMAL-----";:M F1:65121:(DISASSEMBLER) PV221:H0:150:XHI256X:H2:150:V:21:XHIX;"- ";:868:(PRINT DEC.LOCATIONS) Z28:H8143:150:X0ĺ(X100)(X10));X;" ";:(DEC.PEEKS) d:' n:24:"ORi ==================== DECIMAL DISASSEMBLER BY BERT KERSEY BEAGLE BROS ====================s::SC(24):I124:SC(I)128I1(984((I1)8))895:(120258,ST(ST256)256:59,(ST256):(STORE START LOCATIONS)/ <::"  B C D E F% "$  $   ũ$   TRACK: SECTOR: .=OK ?=BA` 8 X % "  UPDATE VTOC ?  b % "$  PRESS TO CONTINUE L5 X$ TRAC   00000000000000001111111111111111222  0123456789ABCDEF0123456789ABCDEF012  0 1 2 3 4 S 5 E 6 C 7 T 8 O 9 R A 25003:OS17335:NS16384:OE18247:NE17296:5000:I1666::25003:16301,0:21:"NOTE: THE PROGRAMS AT THE END OF THE CATALOG AREN'T IN ANY MENU.":"BLOAD HI-RES FONT":"PRESS TO CONTINUE:";:A$:A$:130:300BNOS:"TYPE "(34)"RUN"(34)" TO CONTINUE.":RC303:C:I7183:I,136I,174::jA$"M"ĺ(4)"RUNM"A$"U"ĺ(4)"RUNU"A$"T"ĺ(4)"RUNT"A$"N"1000(7):400 NOTES A:"BLOAD ^":"BLOAD COPYRIGHT (C) 1983"::13:"[Q] Quit"a|24576:3:0,0279,0279,1910,1910,0:57,134223,134223,17657,17657,134y24659,81:24660,42 GET CHOICE J1822:((1)2)ė:J:11:"|}":24576K(16384):K128Ă:400'16368,0:A$(K128):A$"Q"ė::76h15:1:"^^^^BY MARK SIMONSEN AND BERT KERSEY^^^^^^^^^^^ ` 1983, BEAGLE BROS INC.^^^^^^^^";:24659,234:24660,234:24576:I1822:I:9:24)::24576r18:13:"[M] Main Menu":13:"[U] Utilities Menu":13:"[T] Two-Liners Menu":13:"[N] Notes"$;T"^^^^^^^^$@@@^$@@%^@^^^$@@%^@@@%TM^^^^^^^^^^^^^^^@<^^^@/\@^@^^^@/\@^@^\@^^^^^^^^^^^^^^^^^*@@%^@^^@^@^^^@^^@^@^^@^^^^^^^^^^^^^^^^^^^>@^@@@@^@(^^@@@@^@^)@^^^^^^^^^^^^^^^^^@@@#^@^^@^*@@^@^^@^@@@#^^^^^^^^^";^I110:Q$;::(Q$,39);:2039,222:245": ; PRINT ON TEXT SCREEN . @:Q$;Q$;J"^^^^^^^$@@@^@^@^^^@^$@@^$@@%^@@@%^^^^^^^^^^^^^^@<^^^@^@^^^@^@/^^@/\@^@^\@^^^^^^^^^^^^^^*@@%^@^@^^^@^@^^^@^^@^@^^@^^^^^^^^^^^^^^^^>@^@^@(^^@^@(^^@()@^@^^@^^^^^^^^^^^^^^@@@#^@^*@@^@^*@@^*@@#^@^^@^^^^^^^";QA VISTA SAN DIEGO, CA 92103   INSERT DISK AND PRESS (OR PRESS TO EXIT) ɍɛ XHL b  % " $ $ % "$   - #, 5% "$L5hhH hHHL,,` / X  $ : : $  DISK SCANNER $ : :   (C) 1983 MARK SIMONSEN   BEAGLE BROS INC. 4315 SIERR     ::5 "PUT THIS IN ^QUOTES^ FOR ME.":1000f "AND ^THIS^ AND ^THIS^ AND ^THIS^...":1000l d (37):L(40)(41)256:ILL39:(I)222ĹI,162 :: MOD:D(X)(MOD(10(E1))):@ X1L:"DIGIT #";X;": ";D(X):I (:5l c DIGIT DISSECTION (STRINGS) d"ANY WHOLE NUMBER:";N:N(N):N$(N):L(N$):L9100 nX1L:D(X)((N$,X,1)): xX1L:"DIGIT #";X;": ";D(X): :5 ::p"DIGIT DISSECTOR"::" STRING METHOD (FASTER)":" MATH METHOD (SLOWER)"::A$:A$"S"100A$"M"Ā DIGIT DISSECTION (MATH)  "ANY WHOLE NUMBER:";N:N(N):L((N)):L910 X1L:EL1X:MOD(N10E)10E:MODN  211,203,0,166,43,189,136,192,169,22,133,37,76,0,224A/I!XN  !"#$%&'()*+,-./0123456789:;<=>?  !"#$%&'()*+,-./0123456789:;<=>?7,254,76,39,8,104,133,64,104,133,65,160,0,230,64,177,64,240,6,32,237,253,76,18,8,165,65,72,165,64,72,76,132,254,32,88,252,169,11,133,37,169,103 6133,36,32,34,252,32,128,254,32,10,8,213,206,194,207,207,212,193,194,204,197,160,196,193,212,193,160,196,201,YTES$ 47092,2:768:WRITE SECTORT 47084,0:47085,0:SELECT TRACK-0, SECTOR-0p ILOCLOC91:V:I,V: 768:WRITE NEW BOOT SECTOR 3::958 :"DONE."::"UPDATE ANOTHER DISK? (Y/N):";:A$:A$"Y"Ĭ "20: ,1,32,137,254,32,14C10000:47088,LOC(LOC256)256:47089,(LOC256):STORE DATA AT LOCATION 10000 768,32:769,227:770,3:771,76:772,217:773,3:ROUTINE FOR JUMP TO RWTS 47092,1:768:READ SECTOR LOC60,255:LOC61,255:LOC64,255:LOC65,255:RE-WRITE 4 BCONTINUE UNLESS YOU WANT TO DESTROY DOS ON THIS DISK!":s "INSERT DISK AND PRESS :";:A$:A$(13)290 1:"ERASE DOS ON THIS DISK NOW? (Y/N): ";A$:A$"Y"290 47084,17:47085,0:SELECT TRACK-17, SECTOR-0 47083,0:47091,0Q LOxOg@g?x?|Pp|xyw~?y~``upp@"xp|.x@|pxOg@g?`Ppx?w@~?~y`~p<8@`xZp*x~||O@ppxP`| x|`/?a@@@@P|?~~||y~xpvp@ |Jpp ~pxOa@g?~pP||~y~x|?xvppp#`~?|-@?~|p x?Kp`` p`|`.`?`@@p~P??`@?@pp}xx"|x@`x? Jp` |x?|`.`??`@@p~P?x@?p@|yxx `w@~ |Jp[dDOS-KILLER%eBY BERT KERSEY1f ANDGg MARK SIMONSENXhBEAGLE BROS_i gn:x"DOS-KILLER":"----------"::"FREES 32 SECTORS FOR AN ADDITIONAL 6%":"OF STORAGE, MAKING THE DISK UNBOOTABLE."8 ::" WARNING:";::" DO NOT !!!!!! U):C:SX,XRX:SX,XX:RX,XSX:BKGRDP 2U:MMA:24:M;:27,41:MILEAGEn <X:E,F23:E,F27:TIRES FV:D,RL:Z:JBX(XU)URU:L,J:WHITE.LINE P:::30K :::A1:B21:D22:L20:R39:S40:U3:V15:A1:M10000:Z0:E36:F372:Y2834:23,27Y::V:D,2835:5:25,33:DRAW.CARCZVU:CZC6ĠV(CZ):I2326:L,IIA:I:24,2630:24,2629:B,D28:D,29:HEADLIGHTS.ON/OFF+ (XLRA(C! ! INE[ ::21:12:"! !":12:"! !DOUBLE (560-PLOT) HI-RES":12:"!":12:"!NORMAL HI-RES";lDX80:DY160x(Y0DY2X272(DXYDY)<ODD(X)(X2)2F34ODDPXX2ZX,Y:OR HPLOT X,Y TO X+1,Yd:23 n3:0,0DX,DY:NORMAL L!! 288:"AS YOU CAN SEE, THE PROGRAM CONTINUES, EVEN AFTER DOS ERRORS. (LINE 120)"Z 150i A$(54321) 768:3288:"(THIS IS LINE 150.)" 180 768:3288:"(THIS IS LINE 180.)"IST THE PROGRAM TO SEE HOW IT WORKS."Y <:"PRESS FOR A DEMO:";:A$::8:958b F90n PGARBAGE Z768:3288:"THIS LINE (#90) IS EXECUTED EVEN THOUGH THERE IS AN ERROR ON THE PREVIOUS LINE." d120 n(4)"EXEC CATFOOD"P x768:3 ONERR TELL ME DEMO ;(4)"BLOAD ONERR TELL ME"E::("THIS PROGRAM USES AN ERROR HANDLER THAT--WITH THE HELP OF ONERR GOTO-- AUTOMATICALLY PRINTS THE APPROPRIATE ERROR MESSAGE, AND THEN LETS YOUR PROGRAM CONTINUE EXECUTING."% 2:"L"""+CHRIS KOERITZ-FAYETTEVILLE, NY 13066L:HC3:Y191:16302,0:X279HC:X,YX,191Y279X,191Y279X,YX,Y:YY5190(Y2):XX5275(X5):HCHC3(HC3(1).94)3(HC0(1).9):2" hhL ` i8i82  % `߿ ^ X % " $    WRITE PROTECT ERRORL  BAD VTOC SECTOR hhL ` ȩ   H`  WRITE PROTECT ERRORL4  BAD CATALOG SECTOR L  4 #(H h L= ` X % " $   BAD TSLIST SECTOR hhhL  8 X % " $   BAD VTOC SECTOR     H = hi# Њ #   L   L    <  :  DONE  PRESS TO CONTINUE L5 X % " $   TA SAN DIEGO, CA 92103   INSERT DISK AND PRESS (OR PRESS TO EXIT) ɍɛ XHL X READING CATALOG...      L  L ` UNDELETE: ȹɠ)L5hhH hHHL,,` / X  $ : : $  UNDELETE $ : :   (C) 1983 MARK SIMONSEN   BEAGLE BROS INC. 4315 SIERRA VIS" " """7768,216:769,160:770,0:771,76:772,44:773,254Z X112:1:(":-+*@*+-:",X,1)60,0:61,4:62,254:63,7:66,1:67,4:768::" ϶čԽŽ˨Ԫ˨Žū˨ũֽ˨ũṲ̆ԤҤ˨Ԫ˨̽˨Ԫ˨ɽϵ̫ɬèĤ̤ɬԺԱŬֺŲō"