' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `PP`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-(Q pP ŠӠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` d£֠ԠPˣ٠Ơ͠z# Pu`ӂ@ @!(P""CԂ@!d@@" p@p"@c      X*U ت +aΟd""PRBpP AD88|ƒ@ " " "!`G    @.Պրd$@@""P2BԊ    !$D"  2A` @    @"МH ""0B@   @! x*  @*@a@CP*`P  d"br @   A<<<*   &֪Ղ !*D8 Ђ ЪԪ  `ÿ    DD.`6 ` "@! d U@`g`          @@C"Ґ#% $$@@@8pA pApp`A`r""&„"ddd"駠""#$`T׫׫ݮծ׺!%%eÉ""`GC"add鿄@ $׮ъ2ŪԢѢъժъՀԢъ$&ŪԢѢъըيՀ  dddêԢѢњըъȡB2$$ԢѢъըъՀ"@'% ЪԢѢъըъԨŪԢѢъըъըł" BCĪԢբъը ъըъըŪԨŪԢѢъըъըł!&&@CCԢѢъ ԨŪԢѢъըѪը">ԢѢՊ !%׊ԨŪԢѢъըъլł@`dd $$@#%ؐ࿂BR*`GC8`@ @Cpx@Cxq>>" $&@CC"  ȤĤɤĤɤ@!$$     $$É>"!&ݏ!%@CC" $&BCАpBrq& @@" ! !" $$ $$" Ʌ ‹ȤĤɤĤɤACC" ddd"""@!$""&@CC " $$"$牤 @ @ @B"@x" a >!"@CC"ddd䠂ɋ""Ё@ ȤĤɤĤɤ"`#%"""AC"$$ъ< $$ŪԢѢъըъՀԢъ>ŪԢѢъըъՀ @CC>`gddêԢѢъը @ @ @B" ԢѢъըъ H@! `A`( $%ԢѢъъԨŪԢѢъըъըŊ"ȪԢժѢъըŪԨŪԢѢъըъըł &Ԣъ`GCԨŪԢѢъըъը"@CCCԢѢӊԨŪԢѢъըъըł`GCddd΄ "%@ @ @ @prrqP@! !I  `#&@CC࣠`ACЁ饠   @ $ґ $ґ!$$>"#%΄<@"& @ @ @"@CC> `@@!0 @! "" "" $!$௠"$Ё饠 GCҐ>@`ddadd"Ё           68,0:::300^IN$h :"SPECIFIED. PLEASE RE-DEFINE PARAMETERS.":(20):"PRESS 'RETURN' TO CONTINUE. "uD$"DELETE";F$"."R1"-"R2",D";DRIN$::300 @ INPUT SUBROUTINEE868: CLEAR LINEJKEY(16384):KEY138010O36,(36)2 TKEY155Ĺ163 CNTR0!ICOL(COLNO1)7R20ĺ0:0:7200MCNTRCNTR1:CNTRqJ(I1)WIDTH1:(I2$,J,WIDTH)J(I2$)7300 I*D$"CLOSE"4 TOO FEW COLUMNS ERROR:D$"CLOSE":(5)Q"YOUR FILE HAD FEWER COLUMNS THAN" 105,96: .X WRITE OUT FILESC]F$F$"."(COL)dbD$"OPEN"F$"."R1"-"R2",D";DRlD$"WRITE"F$"."R1"-"R2vNO:NOCNTR0ICOL(COLNO1)CNTRCNTR1:CNTRJ(I1)WIDTH1:(I1$,J,WIDTH)J(I1$)7300I ";2(20):(15):"WHICH";:IN$]<IN(IN$):(IN1)(IN3)5100cFkO P COMMA CATCHER INPUTUZJ768788dI:J,I:Jn 162,0,32,117,253,160,2x 138,145,105,200,169,0 145,105,200,169,2,145 ETURN' TO CONTINUE.":IN$$z216,0-5008 C MENUI|(1):(5):" APPLE PLOT FILE CONVERSION MENU " (5):(8):"1. INPUT A VISICALC FILE "(8):"2. RUN APPLE PLOT "((8):"3. QUIT 768:IN$(IN$,1)I:I2$IN$,: C\ FILE INPUT ERRORf:(5):"DOS ERROR NUMBER ";(222);".":"PROBLEM MAY BE A MISMATCH BETWEEN THE":"FILE VISICALC WROTE AND THE NUMBER OF":"ROWS OR COLUMNS OF INPUT YOU SPECIFIED."p(20):"PRESS 'R DRIVE."6(20):"PRESS 'RETURN' TO CONTINUE.":IN$k216,0:560: FILE NOT THERE, RETURN TO CATALOG LOAD VISICALC FILED$"OPEN"F$",D"DRD$"READ"F$I1R1768:IN$(IN$,1)I:I1$IN$R2R14600IR11R2: 0 VERIFY FILE EXISTENCEP :4450: SET UP FOR NON-EXISTING FILE ERRORh DD$"VERIFY"F$",D"DR N4700: SET UP FOR OTHER ERRORS X4500 b:(5):"THE FILE YOU SPECIFIED, CALLED" lF$;", DRIVE ";DRv"IS NOT PRESENT ON THE SPECIFIED(14):(5):"PLOT HOW MANY COLUMNS? ";:8000R NO(IN$):(NO0)(NOCOL63)4090 (16):(5):"FILE IN WHICH DRIVE (1 OR 2)? ";:8000 DR(IN$):(DR1)(DR2)4110 "(18):(5):"IS EVERYTHING CORRECT (Y/N)? ";:8000: ,IN$"Y"4000 YRST? ";:80001 R1(IN$):(R11)(R1254)4030s (10):(5):"WHAT ROW SECOND? ";:8000:R2(IN$):R22544050 (R21)R2R1 R2R1TEMPR1:R1R2:R2TEMP (12):(5):"START IN COL. (1-63)? ";:8000 COL(IN$):(COL1)COL634070+  :   USER QUERY!  (3):(5):"VISICALC COLUMN WIDTH":(5):"(1-37, DEFAULT=9)? ";:8000:WIDTH(IN$):(WIDTH37)4020 WIDTH0WIDTH9 (7):(5):"YOU MAY CONVERT 1 OR 2 ROWS":(5):"AT A TIME. WHAT ROW WILL ":(5):"YOU PLOT FILOG,D"DR# D::(2):868:868:I N(22):(5):"WHICH FILE? ";:8000[ X(IN$)0590f bF$IN$n l: v(10):6);"NOW CONVERTING PARTS OF THE" :18(F$)2);F$;" FILE" 4400: INPUT VISICALC DATA 7000: WRITE OUT FILES 300 ! APPLE PLOT FILE CONVERTER= REVISION 4/2/80 QdIN$" ":D$(4)fnD$"NOMON C,I,O"s255::,5100: MENU6IN2ĺD$"RUN HELLO,D1"@IN3ė:5200: GET COMMA CATCHER4000: GET INPUT DATA034,1: :D$"CATA   ȍӠˤԠӠԍٍ΍ٍ΍ ̠ŠԯӠύԠƠŠΠԍ΍΍ӍԠ̍΍΍    '  ΍΍ŭ؍ٍō==C,8,10,144,8,238,149,3,208,3,238,150,3,202,208,242,200,192,196,144,232,96=========================== "KEY-CAT" CATALOG MENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================3:35:32,37:33,3::"---------------------------"{:5:" SECUSE":" SECFRE":5:" ";U:9:" ";R:::H 1,96,1,0,17,0,145,3,0,149,0,0,1,0,0,96,1,0,1,239,216,0,0,169,3,160,128,32,217,3,162,0,142,149,3,142,150,3,160,56,185,0,149,16210N32>BSC11N48<pX015:H,V)XT$T$(XN):D:_:I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(917)256(918):UNSR4):H,V1!|BSC10TSC0SP0;BSC10TSC0SPSP1JSP21850PMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$vBSCH,V1):TSCH,V)N64:BSC13N80 BSCЭCOLĭSCT10T$BR$+COLĭSCT2T$BR$CCOLĭSCT2T$EX$ZCOLĭSCT4T$EX$JX21VSEL1:J:1:" ";::VSEL:1:958I21:1::" ";:2:T$;:JVI:H737:1960:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC115000:1060#A$MAX$A$"A"1060kCOLāI0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)1360COLāI0462:(COL1,I)TSCCOL1,I1)BSC)1360PCOLSCT3,I):SCT13SCT14T$RU$QCOLSCT1,I):SCT1SCT9T$RU$ ";:TSC14,2VSEL2):BSC14,2VSEL1):] WCOLĢVSEL:1:37):COL::8COL);"SELECT:"; `COLĹ16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)13360 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253: A$"#"İ" "N$" "VSELV21:1060o COLĺ" ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." COLĖCOL::N$;::N$" "Ė38:"." : $VSEL0VSEL24* VCOLĢVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;"1:VX442::V21:19 0LOCK$" ":0,V)10LOCK$":"P b1,V)1FILE$"]"g 1,V)2FILE$"*"~ 1,V)9FILE$">" 1,V)4FILE$(34) *LTRLTR1:TEST$N$:N$(LTR) \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$v 768,32:769,12:770,253:771,201:772,141:773,208:774,3:775,76:776,44:777,AE:778,76:779,60:780,AE:781,0 6MEM1463,0:MEM1464,3 hMAX$"W":D$(4):D$;NO$"C,I,O" 255::::1::D$;CA$ X1452:(5,X)11)ĂX LTR64:XXENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================== nMEM((978)((978)127)256)2562947:AE174(157(978)) xNS40393((MEM2925)16) 360 MEM1313,24:MEM1466,23 ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"ICOL1(COL=LETTER-COLUMN. CAN BE 1, 3, 4, OR 7. LET COL=0 IF NO FILE CODES WANTED)COL1COL3COL4COL7COL0z <=========================== "KEY-CAT" CATALOG M       AJS4WX/WARBMR`MS1S2S3S4S5FFSTSB Y@CKPGTH PH@80( L00THH (    i0( i0(ȩ:(ȥi0(ȥi0(h``~}]H  (ɠe ީh`rVI`XA@QZQ/DIM-------------+";:37:"/ /":"::\ \";B$;"/ /";:36:"/ /":":::\ +-----+ +-";C$;"+ /":"::::\ // NAB";:"+*";::9);"/":":::::+-+---+-";C$;"+-+":"::::::\ \";:32:"/ /":8:"\ +-";C$;"+ /":9:"\ RFASG";12);"/":10:"+-";C$;"+":3::::::/ /";:38:"! !";"! !::CONTROLLED.::/ /";:38:"! !";:"! !";B$;":::::::/ /";:38:"! !";:"! !";B$;"::::::/ /";:38:"! !";:"! !";B$;":::::/ +---------------+";:38:"! !";r"+ +";B$;"::::/ // ANEQXXO +:::+ +";:":\ \";B$;"::/ +----;20);"// \":4:"/ +";C$;"+ +------+ \":3:"/ /";:25:"/ /";B$;":\ \":2:"/ /";:24:"/ /";B$;":::\ \""+ +::DEMONSTRATION::::/ /";:38:"+ +";:"! !::--------------::/ /";:38:"! !";:"! !::ACTUAL GAME IS:/ /";:38:"! !";:"! !::KEYBOARDZ20:::(36)M$;::bV:T:1250:MZN:V:T:T$:1234:1234:V:T:(T$)):1234::F:XZK2:V(X):T(X):(A$,X,1):1234::PF0:G284:A$B$B$B$B$B$":::::":I1324:I:A$;:25I:A$;:qnZ:6:"+--";C$;"+------+":5:"/"3:F0X(X12)120ČC0:J(A$):KJZ::AIZ150::I0J:V(I)U:T(I)HD(ID):I2IJĞ:V(I):T(I):(A$,I,Z):MZ5:S(R):M:150:1202:IZ(T$):M$(T$,I,Z):M$" "1257:M$;:M$" "YāWZ5:S(R):W17:13::"@";:15:"@":14:"/":13:"@";:15:"@"pIZ7:JZ8:S(R)::JZ40:::JZ99:S(R)(R):V20:T11:T$"DERAIL!":N8:1300:V:T:B$:1202:1202:1360LI0J:U(I)V(JI):H(I)T(JI)::I0J:V(I)U(I):T(I)H(I)::XZ300BA$"NANAB+* ":1202:17:13:"-":13:" ":12:"-":1202\1100:X24:200:1350A$"*+BANAN ":1100:A$"*+BANANAS ":1202:I79:V(I)18:T(I)I18:U18:H17:DZ:1240:F017:13:" ":13:"//":12:"+":1202X3:200300:1202:18:33:" ":34:"-+":1202sZX13:200:1350:A$"*+BAN ":1100:1202:U18:H33:DZ:1240:X45:200bA$"NAB+* ":1202:13:16:"+-":17:" ":1202:I0J:T(I)12I::X12:2001350:A$"*+BANAN ":1202:U14:H17:DZ:1240:X23:2 0:00 ":31:": :":1300:V:T:B$:IZ60:C:MZ3:S(R)::NY0:32,5:6:T$"THE OBJECT IS TO COUPLE TOGETHER A WORD SUCH AS BANANAS":1250:1::"BANANAS";:T$" IN THE FASTEST: POSSIBLE: TIME.:::::":1250::Y1(XX21:200:A$"ASGNAB+* ":11:" /":10:6:"S"::9:6:"R"{ cX21:200:9:6:"R"::11:6:"C":22:1350:V20:T18:N3:T$"COUPLE":1300:V:T:T$ A$"*+BANGSA ":1202:U22:H24:DZ:1240:V:T:B$:1202:11:6:"C"CFZ:V10:T24:T$"CLOCK->":9:31::": :":31:" F=FORWARD::::: R=REVERSE S=SWITCH,1-5 C=COUPLE, UNCOUPLE":1250:| QY1::8:6:"F":18:22:"NAB+*":1202:X20:200 ^A$"NAB+* ":1100:8:6::"F" _T$"SWITCH":18:32:1250:18:32::T$:10:6:"S"::M11750: `18:32:" // /:":34:V(I)18:T(I)26I::24:1:T$" TEXTTRAIN DEMO (C) 1981, BEAGLE BROS.":1250:1202 1N7:V18:T15:T$"TRAIN->":1300:T27:T$"<-ENGINE":1300:N2:T$"CARS>":T17:1300:V14:T19:1300:T$"!!--]]>":J12:I1322:222::50,63(J1)192:I:2:(A$,I12,1):8600:::9999:9ANK'S DISK #21";G$9999:SP:7:868:"INVERSE OR FLASHING IF YOU WANT!":255:9999::11:1:868:"****************";:1:I150::G$;" WORK DISK A ";:868::9999255:9999:11:A$"V=254":I16:15:" ";:15:J150::A$;:J150::dPPERY DIGITS":"*I 040 NUMBERS GAME"0FLAGı:99998500:3:SP:"DOS BOSS CAN TITLE YOUR CATALOGS BY REPLACING APPLE'S USUALLY UNNECESSARY":Q$"DISK VOLUME"Q$" HEADING...":9999255::11:1:"DISK VOLUME 254";::I1555::1:G$;"FR.":99996V9:9200:"DISK VOLUME 254"::I1500:222:"*A 010 HELLO":" A 051 OLD RECIPES":" I 044 STAR TREK":" T 055 ADDRESS FILE":"*T 003 NAMES FILE"$"*B 008 SHAPE TABLE":" B 006 HEX CONVERTER":"*A 013 MISC.INSTRUCTIONS":"*A 080 SLIOK HAS MANYEXAMPLES OF CREATIVE POSSIBILITIES.":9999:9999l9100:SP::12:" CATALOG FORMATS "::9999:"APPLE'S CATALOG BECOMES MUCH MORE USEFULAND FLEXIBLE WITH DOS BOSS!"::"LET'S MAKE SOME IMPROVEMENTS WITH DOS BOSS'S MENU FEATURES..IATE ERROR MESSAGES TO HELP PROTECT YOUR PROGRAM!"J:"BOOTING YOUR DISK OR RUNNING YOUR PROGRAM IS ALL THAT IS REQUIRED TO INSTALL ";:A$"YOUR":9000:" NEW DOS IN ";:A$"ANYONE'S":9000:" APPLE!";T:SP:"THE DOS BOSS DOCUMENTATION BO99Z." IF SOMEONE TYPES:"::"]";:I1200::"SAVE (PROGRAM NAME)"::" HE WILL GET A"6255:16:"------------";:(37):16:A$"NOT COPYABLE!":10000:(37):29:" MESSAGE."3@SP::"BECAUSE YOU HAVE ALTERED THE "Q$"SAVE"Q$:"COMMAND AND APPROPR" *** BURP!":G$;:10000:"SP:"DOS BOSS LETS YOU RENAME ANY DOS COMMANDOR ERROR MESSAGE ANYTHING YOU WANT!":9999:9999:I2411:I:868:J155:::1,SP:"WITH DOS BOSS, YOU CAN "Q$"SAVE-PROTECT"Q$" A PROGRAM THAT HAS BEEN RUN..."::99AVING A LITTLE FUN TOO...":39999:I119::T 6:"WHY NOT CHANGE...":255:A$" FILE NOT FOUND":10000:SP::" TO"::A$" TRY AGAIN!":10000:9999:"OR...":9999::A$" DISK FULL":10000::SP:" TO":9999::A$:A$" SYNTAX ERROR":10000:9999::SP:"WITH DOS BOSS, CHANGE IT TO"::A$" DOS ERROR":10000SP::"(TO DISTINGUISH IT FROM A ";:A$"BASIC":9000:" ERROR.)":9999::"DOS BOSS GIVES YOU ENDLESS POSSIBILITIESFOR NOT ONLY IMPROVING DOS, BUT HL":9000:".":} 9:A$"EXEC":9000:" CAN BE RENAMED ";:A$"E":9000:".":::"ANYTHING YOU WANT; USE YOUR IMAGINATION!" 9999:34,6:::8:" ERROR MESSAGE CHANGES ":I115::::10fSP:"APPLE'S NORMAL DOS ERROR MESSAGE IS...":9999:255:CATALOG":9000:" TO ";:A$"CAT":9000:" OR ";:A$"MENU":9000:"."::"THIS WILL SAVE KEYSTROKES EVERY TIME YOUCATALOG AND HELP PREVENT TYPING ERRORS." 9999:::"ONE-CHARACTER COMMANDS ARE POSSIBLE TOO:":A$"LOAD":9:9000:" CAN BE RENAMED ";:A$"LITIES.":9999:9999o I1324:1:I:868:25I:868:J150:::255::1:9:" DOS COMMAND CHANGES ":SP ::"DOS BOSS WILL PERMIT YOU TO CHANGE ANY OF APPLE'S 28 DOS COMMANDS."::9999::"FOR EXAMPLE..."::9999: "YOU CAN CHANGE ";:A$"RE:"::10:"- DOS COMMANDS" 10:"- ERROR MESSAGES":10:" AND":10:"- CATALOG DISPLAYS"::"...ACCORDING TO YOUR PREFERENCES AND YOUR PARTICULAR APPLICATIONS." :"THIS DEMONSTRATION WILL ILLUSTRATE JUST A ";:A$"FEW":9000:" OF THE POSSIBI::SP :1:15:": :":15:" DOS BOSS ":15:": :":::10::"DOS EDITOR & FORMATTER":14:A$"BY BEAGLE BROS":9000:".": 9999::SP:"DOS BOSS GIVES YOU CONTROL OVER APPLE'S DISK OPERATING SYSTEM, ALLOWING YOU TO RESTRUCTU!=============================== DOS BOSS (DEMO) BY BERT KERSEY AND JACK CASSIDY COPYRIGHT (C) 1981 BEAGLE BROS. MICRO SOFTWARE =============================== FP2SP111:PAUSE999:111,9994 FP7G$(7):Q$(34) d16300,0::                e e e e    @ж`B4!F~?!fx4&6~|c~|F#p >`|`?U*U: K4A A d{ g- -}37 Ps c( ('' x# 00 -- 2dQQZZU-Z2Z6---$?6>'$?6 ->'3)p?G?/~ a|~~p{wG?{C~I~~@3xp|a|~a?pgw?~|`@  ` p?a|}D`1|qpq  p@  pp?a@3ة@ *ȱ >""@0x,@<"">""a@"""""8,, Bp ~?H`C|`  @p#pP|C0 @5p7HO 4@! `a@ "a|~~p{wG?{C~~@">>.FGp?~8>a|xxw?c~`@", """>"0 p ">""<a|}@1<@qpq"bp@">>">">""> ">"">>"""> ~|0 `p>>"",@`>>"<>>""">> @DO'`|,">a@">><>""""""><">|op |""""""a|}@@1<|qqbc@"""""" """""6<DL0|C""""""a@"""6" " b dgH?>"""p#`"~I~~@@H@" (xp| @pa|~a?pgw?~|`@ y + ` p?ps<"@pa|}D`1|qpq  p@@@HdQB( pp?pa@d`DD""("""""""""pap ~?H`C|` `p @p#pP|C0 @5p7HO |Op@Gc @ @! `pqq1`AHI"pa@ qq x<< @p8()p?G?/~ Op  @pa|xxw?c~`@q +0 p pa|}@1<@qpq"bp@@OD@(@0x,@pa@aG@88x<(B" xxpa@3b dgH?`F0"OpIG$p p#` ~|0 `p x(@`@  @DO'`|PO"" pa@ @@ @ (|op |88x (|yOyp>G@ @pa|~|yw?sq?~?~?~@GD  $( Nw?xp|~pa|?|ywC?s?~A?p@ piqpq,pa | @@pa|}@@1<|qqbc@@@@@HH(<DL0|C@p( @~@ """ pa|O@30q1 @@Oxs~ I"@E@@ Hp `@@@~!pp}`p`x( ~O p= `v60 ```"""pay  pqsb">pa D H` p @A~s|a~?0 pa|xxc?ca?~~|~G@@@84 $<(Ow?pg}gpa|~{p@?{q~a?x@ / D8`G~`A'`BAH@@xpa|~}`A<@qcAp@@aq! "@HGGpa|~}pC@~@ qcc p@32&|y@ """ ||pa|?@3a "` ypxI"@OHO  G!pA`A|<8O0 @@O  xyOp~(c| ~ `a |v6~8@@`@06! p8p` qqi8xx P@ Kp@G'3F `@~7~xd pa|?`@?q?~<~|@@ )\O|pw}O`KpDXpa|~A{pG?{a~a~|@q@.~_o0|8Pp'p@}a'p"@OHH|pa|~}@x+Ox?|s@ <""pDDpa|?~xG>@ qq#bp@KD0@GOca( 2@!prI"@HHH!I@"pA@@@D""" F~ `O{!@|sg?pp(y ~p( r8| 0@p t6p8L@ Q`BLHb" $ 3F 0x0 0>`psbK">pa|x@G $)p~OpO~3ILDdpa|~pw?{a~a~~?@3?~cw?{q?~a~~@3xCyp@O'd2"@HHHDpa|~}@q0 Aqq+D`@p@ D""" h88pa|~8G<qa!bp@@HLD0H(,x@|?@wH<GG&p O$paA@x@D">"" xpgw0~wsp` @`xsp ~yxp(`O|xGC` t6p8 f@!@x>BHH" d'@  p@B `p>~GBLH""pa|p@3~~pg?IHDDpa|!op? IHDD pa|~~pwG?{~a~~@Gx!(~|p``A#cQqAHGG8pa|~`@ I  p + | p'@ D""" pa||FB1|qqA @@@HD1(,|? @[@ paAHx0x<<""@,~D`z9@ @ pa@BP@D""@Ha~c| f@q@x@p(0~ x|@Q  p8d@ BHI<" $$@ b0Dp>t PBHH"  pa @@3               TIP BOOK #4 COMES ONLY WITH ALPHA PLOT";:2039,(".")O :(16384)1272500l( 16368,0:16304,0:100r'#(#FORI=21626TO21722STEP3:PRINTI;":";PEEK(I),PEEK(I+1),PEEK(I+2):NEXTXT("* POSITION TYPE ANYWHERE ON THE SCREEN." ::" BONUS GRAPHICS UTILITIES:"::"* COMPRESS HI-RES TO 1/3 DISK SPACE.":"* SUPERIMPOSE HI-RES IMAGES.":"* MOVE ANY IMAGE SECTION TO EITHER PAGE.";:"* CONVERT HI-RES TO LO-RES & BACK!"524:1::" LINES BEFORE YOU DRAW!":"* DRAW IN ANY COLOR, MIX OR REVERSE."::" HI-RES TEXT:"::"* UPPER OR LOWER CASE IN ANY COLOR OR REVERSE (OPPOSITE OF BACKGROUND).""* PROFESSIONAL-LOOKING PROPORTIONAL SPACING AND ADJUSTABLE TYPE SIZE.",<:::" ALPHA PLOT ";::" GRAPHICS UTILITY ($39.50)"::" HI-RES DRAWING:"::"* CREATE HI-RES PICTURES & CHARTS; APPENDABLE TO YOUR PROGRAMS.":"* KEYBOARD OR PADDLE CURSOR CONTROL.":"* OPTIONAL RUBBER BAND (XDRAW) CURSOR."@" SEEATE INVISIBLE OR TRICK FILE NAMES."::" MORE TOO! "::"21 UTILITIES TOTAL-- HEX/DEC CONVERTERS,PROGRAM DATER, LINE SEARCH,MULTI-COLUMN CATALOG PRINTER, 65535 NUMBERER..."$:24:" GET TIP BOOK #3 ONLY WITH UTILITY CITY";:2039,(".")2500ED OUT, PRINTER PAGE BREAKS TOO!::" COMMAND ZAP "::"HIDE FUNCTIONING APPLESOFT COMMANDS OR SECRET REMS IN YOUR PROGRAMS."::" DOUBLE LOADER "::"RUN ANY APPLESOFT FILE WHILE ANOTHER STAYS IN MEMORY."#::" FILENAME ZAP "::"CRE932000)K212ĺ"RUN TEXTTRAIN DEMO"9K2131000QK198Č24579::12:::" UTILITY CITY ";::" 21 PROGRAMS ($29.50)":!:" APPLESOFT LIST FORMATTER "::"A BETTER LISTER! EACH STATEMENT ON A NEWLINE, LOOPS INDENTED, IF-THEN'S CALL:6:I1200::130:110UK(16384):K196K193K212K213K198K209ık:16368,0::2116301,0:24:5:"COPYRIGHT (C) 1981, BERT KERSEY"::23:16::"C":1::I11500:K209Ģ10:K196ĺ"RUN DOS BOSS DEMO"K1DEMO Q= QUIT A= ALPHA PLOT DESCRIPTION":" U= UTILITY CITY DESCRIPTION";iV21:H1::21:3:"D";:23:"F":3:"T";:23:"Q":3:"A":3:"U";:nVOV:HOH:VV1:V24H1V21:H21sV22H1V21:H1xV:H:"->";:VO:HO:" ";,10127,10128,11151,11152,11153,12175,12176,12177,13070,13198,13199,13200,14094,14095,14096,15116,15117,15118,15119,15120,16141,16142,16143,16144,16384 Z0:Y143159:0,Y279,Y::""Wd:21:" D= DOS BOSS DEMO F= REPEAT FLY SHOW T= TEXTTRAIN ((1)55):::Q11234: (8711,8712,8714,8715,9607,9608,9610,9611,9736,9738,9739,10631,10632,10634,10635,10759,10760,10762,10763,11658,11783,11784,11786,11787,12810,12811,13703,13704,13706,13707,13834,14727,14728,14729,14731,15751,15752,15754,16384 X,Y::O J1M(I):XXXI:YYYI:2X,Y:6:2X,Y:1X,Y:X(I)90Y(I)5424q 6:1X,Y:6:2X,Y:6:2X,Yy : Q40N:A(Q),C(Q)::Q150:S(B)(B)(B)::Q1150::1X,Y:Q4064:A(Q),B(Q): J17:Q1((1)55):S(B)::Q1(B)(B)(B)(B)::J150:::Q139:A(Q),B(Q)::X80:Y37: :16301,0:X75:Y52:I136:6:XI(X(I)X)M(I):YI(Y(I)Y)M(I):6:X(I)31Y(I)39İ10: Y(I)150Ĺ16302,0 X(I)0āJ13:6:1X,Y:Q1200::1X,Y:2X,Y:Q1500::2:21691,21 Q1N:A:A(Q)A:B(Q)(A)::Q1N:C(Q)(Q21561)::I1:Q21626217223:M(I)(Q):X(I)(Q1):Y(I)(Q2):II1::12 Q11:S(B):: Q1200::B Q110:J11:S(B)(B)(B)::Q139:A(Q),C(Q)::Q135:J11:S(B)ȻE(103)(104)2562049Ĺ103,1:104,8:2048,0:"RUN FLY MENU"N64:A(N),B(N),C(N),X(36),Y(36),M(48):B16336:1:0:D$" """:232,224:233,84::::16304,0:16297,0:16300,0::D$;"BLOAD FLY LOGO,A$4000":D$;"BLOAD ^^,A$6000":24579      (C$,I,1);"";::A ":X19:9999e 2220:I1(A$):18:1:(A$,I,1):20:1:(B$,I,1)::FLAG(16384)12850q 4FLAGı 716368,0:FLAG1:J14:A$"****":50: <255:18:"*":20:"*"::J1500:  '255:X:40:I(C$)11::"<";::J11::GLIST"Q$" PROGRAM FOR THE LATEST UPDATES AND CHANGES. ":X21:9999 C$" IMPORTANT: ---------- * DO NOT RUN THE "Q$".A"Q$" FILES (SEE PG.27). --- "A$"/-\!":B$"/!\-":Q$(34)z 240:::3:3:32,2:33,38::": :":" UTILITY CITY ":": :"::"BY BERT KERSEY"::"BEAGLE BROS":"4315 SIERRA VISTA":"SAN DIEGO, CA 92103"::"714-296-6400":T C$"* RUN THE "Q$"BU  `` aŠ߬ ` ` a̤` ` `L=aح`` ` `ɀLa `) `iim `iLaLa8` ` aȠĮ `hhɦ LaHH`@L`L=a ?@ح``L4`ɀL4`8` `ӭ ` ``` L`VQLL` ` ` ` `L`  `ȑiim `iL`L`8` `L[`8 ` `  " ";::868::255:23:Q2:23:1:I140:"-";::" RETURN FOR MORE OR TO QUIT.";:1:" FOR MORE OR Q ";:K(16384)K141K209500016368,0:240:K141ė:I3711:175:24:I:"]";::" ";::868::255:23SI3711:175:24:I:"]";::   );A-65536;CHR$(41);CHR$(32);CHR$(61):PRINTSPC(5);CHR$(36):CALL-958"S D$;"CLOSE"LU8 D$(4):D$;"OPEN HEX":D$;"WRITE HEX":"NOMONICO"a"VTABPEEK(37)-1:IFA<0THENA=A+65536"C "POKE768,INT(A/256):POKE769,A-INT(A/256)*256:VTABPEEK(37)-4:PRINTSPC(5):PRINT:PRINT:CALL-151":"300.301":"3D0G":"VTABPEEK(37)-4:PRINTA;CHR$(32);CHR$(40ύ˨ŷԨŷԨ˨èԺԺ̭İǍ˨ҤҤҤҤҤèҤ̭ZPnFi<f2d(2*( -'T0:X12901303:TT(X)::T2737ė:3' ================== FILENAME ZAP BY BERT KERSEY BEAGLE BROS ================== SFDALJAFDSSA'@pxndZPnFi<f2d(2*( nd):"FILE RENAMED. TO ACCESS, RUN THIS..."::"10 A$=";Q$;X$;Q$;": REM CODE LETTER":"20 H$=CHR$(8)":BS1ĺ"25 H$=H$+H$+H$+H$+H$+H$+H$+H$"."30 A$=A$+H$"8"40 PRINT CHR$(4);";Q$;"LOAD ";Q$;";A$":"50 REM OR ANY APPROPRIATE DOS COMMAND"'255::C$:C$:(C$)64(C$)951010)X$C$11:1:958::"OLD NAME: ..............................":12:10:" ";F$:(F$)01020I1BS:C$C$BS$::"O.K.? (Y/N):";:A$:A$:A$"Y"1000:"RENAME ";F$;",";C$$14:1:958:Q$(34LE NAME ":::"DO YOU WANT FILE CODES":"VISIBLE OR INVISIBLE? (V/I):";:A$:A$:A$"V"A$"I"1000BS$(8):BS1:A$"I"BS810:1:958:"SELECT CODE CHARACTER:":" MUST BE ALPHABETICAL CHARACTER OR ASCII VALUE 64-95":(37)2:23:0B:I,B(B):BB1:B(B)160āK13:S(U):2T13:1:"USING THE RIGHT-ARROW AND KEYS, TRACE OVER THE ABOVE DOS COMMAND. TYPE ";Q$;"RUN";Q$;" TO MAKE A CHANGE.":5:255: INVISIBLE fQ$(34):4:1:958:::" INVISIBLE FI3:B(I1073)(I):_46:1:958:" RENAME ";:I130:1671I,A(I):A(I)160āK13:S(U):e6>I170316711:(I)160ĂHJI1:J,172:B0:IJ11703:I,B(IJ):BB1:B(IJ)160āK13:S(U):JMB29900,RBB1:I179217923 XV:H:(K128):HH(H40)0 ]666:M127ğ= bM255ĝI lM63ĞZ qV1:H:"^"` v :V1:11:"..............................": 13:11:958::"ALL CORRECT (Y/N)? ";:A$:A$"Y"ĝ:52*I16741703:A(I1673)(I)::I1074110K137Ğ:"INVERSE";:868:M63:605L K142ĝ:"NORMAL";:868:M255:605g K136HH(H11):605 K141İ666:VV36(V9):H11:605 &K155İ666:800 0K172K174 DH12K149K192M255ĺG$;:V1:H:"ILLEGAL":I1222::666:605 = FLASH"y U11:"---------------------":12:" = CHANGE LINES":12:" = FINISH":11:"---------------------" ZK(Q):K12890 d16368,0:V:H:I12:S(U)::500:90 K159560 13:22:K134ğ:"FLASH";:868:M127:605# 0LOOP:425@ :A$;PP127);:SPSP(A$)(PP127):A$"REM"ĞV PP10PP13İ425~ TKFLAG(PP127):A$"THEN"THFLAG1  STNXT:200 :425 THFLAG0ĺ" * : "; THFLAG0ĺ" : "; LOOPĺLOOP2((P1)130)); SP7LOO"LFLAG1:LOOPLOOP2(LOOP0)I (LFLAG1A$",")LOOPLOOP2(LOOP0)l A$Q$A$"REM"QFLAGQFLAG1 ,A$":"QFLAG0TKFLAG0:420:400:COLON,NEW.LINE hPP127ĺTKFLAG0);:SPSP(TKFLAG0):LEADING.SPACE |SP(A$)SW1ĺ:9LOOP):SP1000:START.LIST TKFLAG0:QFLAG1:THFLAG1::425::"---------------------":425:LI;:LI10000);LI1000);LI100);LI10);" ";:SP6LOOP LOOPĺLOOP2((ST4)130)); PST4NXT2:PP(P):A$A$(PP) A$"FOR"LOOPLOOP2 A$"NEXT f ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== |2S1:PRINTER.SLOT<PG66:MG3:LINES.PER.PAGE.&.MARGINd1000 NXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:NXT0LIELIĺ:(4);"PR#0":10     ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍MASHING "@" THROUGH "_" 1:(P);::::0:: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000 ============== TEXT DUMP BY BEAGLE BROS ============== 1::PRINTER SLOT39:P(I)F P32PP64:CONVERTS INVERSE "@" THROUGH "_" TO NORMAL P95P128PP64:CONVERTS FLASH- ING SPACE THROUGH "?" TO NORMAL IF P > 95 AND P < 64 THEN ...: REM INVERSE SPACE THROUGH "?" IF P > 63 AND P < 96 THEN ...: REM FL> ============== TEXT DUMP BY BEAGLE BROS ==============I63992 TO MAKE INVERSE AND/OR FLASH PRINT AS EMPHASIZED, CONSULT YOUR PRINTER MANUAL, AND ENTER APPROPRIATE CTRL OR ESC-CHARACTERS IN THIS LISTING. 1::::Y124:A:IAA  :RR1:R6R0R0520AR1580,690,700,680,690,700,580J580uX1373:15(R3):0,39X2:X:650X1373:0,39X:X:650A 9 12 ";::" 7 11 13 14 ";::2:" DARK... ";::"&10";::" MEDIUM... ";|R6ĝ:" LIGHT... ";:14:"SOLID":2::" APPLE GREY SCALE "; SEPARATE COLORS: ----------------(Q)136650Q16,00,47DJ012:X3JkN CLASSIFY BY B/W SHADE: ----------------------XJ5Ġ2J6(J4)bJ4Ġ3(J4)lJ8Ġ152(12J)vIX1X3:0,39I:I:JO{R6ė:21:2::" 1 2 4 8 ";::"5 ";::" 3 6BRN&10LAVMEDORGBRTLITPNKYELAQU BLUGRN GRY BLU GRNBLU " &V2123:I1373:T40(V21)I:IMODI(I6)6:IMOD4IMOD0Ğ 0V:I1:(A$,T,3((VI)61));::I,V:1:">PRESS ANY KEY. (0=BLACK; 15=WHITE";:2039,(")")128:7:Pˣ٠Ơ͠z#? ţŠ! Ԯà! ţ!ţ! ţ" ţ"ţĠŠ Ԡ  Ԡ ˠ Ԡ ԠԮà   ٠Ϡ ӠӠϠ ΠϠ ΠԮ͠ŠҠȠҠ ԠРҠҮ Ԡ  ޠ ŠӠ٠ՠ  ҮҮĠ" ҮР ҮϠ Ҡ Š"ԠӠ  ɭԠ͠Ġ ͠Į ͠Р͠ЮΠҠΠҠ ؠخŠԠҠ ٭Ԡ ̭ԠŠȠŠȮ  ̭Ġ àîŠؠخŠҠŠР  Ҡ ҮҤҠ ĠР ĠЮԠԮŠ     CŠӠ ޠ ӠҠĠĮĮŠDEF":TFS256~ 5uNLOX(XTFS)TFS:NHI(XTFS):XNLO:30010:H1$A$:H2$B$:XNHI:30010:H3$A$:H4$B$:"$";H3$;H4$;H1$;H2$;: :uLLX(X16)16:HI(X16):A$(HEX$,HI1,1):B$(HEX$,LL1,1): =============== BFIND BY BEAGLE BROS ==============":"BEEN BLOADED, THEN THIS ---- INFORMATION IS CORRECT." <:"OTHERWISE, BLOAD THE PROGRAM, AND EXEC BFIND AGAIN. ----------" d103,(LOC):104,(LOC1):175,(LOC2):176,(LOC3): 0uHEX$"0123456789ABC:XA:30000:")":::" LENGTH:";::" ";L;:20:"(";:XL:30000:")" (:"TO BSAVE THE FILE, TYPE:":::"BSAVE FILENAME,A";A;",L";L:::"OR...":: -:"BSAVE FILENAME,A";:XA:30000:",L";:XL:30000::D 216:"IF THE FILE IN QUESTION HAS JUST> =============== BFIND BY BEAGLE BROS ===============H100 LOC768:A(LOC6)(LOC7)256:L(LOC4)(LOC5)256:"MOST RECENTLY BLOADED BINARY FILE: ---------------------------------"E ::" START: ";::" ";A;:20:"(";ĮýŠì˨Šë˨Šë˨Šë˨Šë˨Šë˨Šë˨Šë˨Š˨˨Š˨Š˨23:1:958:"] ";C$;":GOTO 40":" ^ TRACE WITH CURSOR & HIT .";:22:RF1:C$"": =============== ADDRESS CHECKER BY BEAGLE BROS =============== "ė::23: sA$"A"130 x23:1:958::"ENTER NEW START ADDRESS (0-65446):";S$:N(S$):23:1:958:RF(NS):NSĉ: zSN:40 A$"R"40 A$"C"100 23:1:958::"ENTER COMMAND:"; A$:A$;:A$(13)C$C$A$:160Y ::";:RF1B(A)A(A)ğR FB(A);::(B(A)10)(B(A)100));" ";:(36)32Č868:b P(37)22Ă Z958:A0120:A(A)B(A)::RF1 d23:1:958:34,22:"? R=RUN AT ";S;:27:"C=COMMAND TEST A=ADDRESS CHANGE Q=QUIT";:23:1:A$ nA$"QI =============== ADDRESS CHECKER BY BEAGLE BROS ===============wA(120),B(120):A0120:A(A)(A)::100:100(23:1:958:S0SS655362S65448S65448 <:1:1:A0120:ADSA:B(A)(AD):" ";(AD100)(AD10));AD;"   C$"[" fC$" "80) hC$:I1700:L i7:1:958:"PRINT ";Q$;C$;Q$ x9:958:"OR, PRINT CHR$(";(C$);"), OR...":255:"----------------------------------------";:SP }11::C$;" = POKE ";P;",";(1320);:19:"(NORMAL)"0 C$"`"Ģ12::CH1H4050) 45:958:"VTAB ";V;":";< 7"HTAB ";H;":"T <PV(V)H1:7:958 F255:10:" CTRL-L = _":" CTRL-Z = \":" CTRL-B = [":SP P8:1:868:"CHARACTER TO POKE ONTO SCREEN: ";:C$:C$(12)C$"_" ZC$(26)C$"\" dC$(2)B ============== CHR$ POKER BY BEAGLE BROS ==============uV(24):SP175:SP:I124:A:V(I)A::Q$(34):"----------":"CHR$ POKER":"---------- (5:958:"ENTER VTAB (1-24): ";V:V1V2440 26:958:"ENTER HTAB (1-40): ";H: 1982 BEAGLE BROS ======== X0 d LOWER TO 63000... F nL1LINE(LINETFS)TFS:L2(LINETFS)x xNXT(N)(N1)TFS:(NXT)(NXT1)TFS030 (NXT2)(NXT3)TFS63999ĹNXT2,L1:NXT3,L2:LINELINE1:NNXT:".";:110 NNXT:".";:120 ======== BIGLINER (C) 0. <:5:"WORKING";:A$"L"LINE63000:110E F RAISE TO 65535 KBIG255:CHANGE.TO.BIG=0.IF.YOU.WANT.BIG.LINES.CHANGED.TO.LINE.#0! PNXT(N)(N1)TFS:(NXT)(NXT1)TFS0(NXT2)(NXT3)TFS65535ĹN2,255:N3,255:30 ZNNXT:".";:8LE LINE NUMBER TO 65535"::" LOWER ALL INACCESSIBLE LINE NUMBERS TO 63000, 63001, ETC."t #:" QUIT" (::"SELECT: ";:A$:A$:N(ST)(ST1)TFS:A$"Q"50 -103,(ST):104,(ST1):175,(ST2):176,(ST3): 2A$"L"A$"R"3< ======== BIGLINER (C) 1982 BEAGLE BROS ======== E45\TFS256:ST768:::800,(103):801,(104):103,(768):104,(769):63000::103,(800):104,(801)b ::" BIGLINER ";::" BY BEAGLE BROS "::" RAISE HIGHEST ACCESSIBύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍ PEEK(175)+PEEK(176)*256-1,0:POKE 103,PEEK(175):POKE 104,PEEK(176)"V 2"RUN BFIND.A"f <D$;"CLOSE" g  D$(4)"D$;"OPEN BFIND"8D$;"WRITE BFIND"("LOC=768:POKE LOC,PEEK(103):POKE LOC+1,PEEK(104):POKE LOC+2,PEEK(175):POKE LOC+3,PEEK(176):POKE LOC+4,PEEK(43616):POKE LOC+5,PEEK(43617):POKE LOC+6,PEEK(43634):POKE LOC+7,PEEK(43635)"C -"POKE  ==Q$"."::::" INSERT DISK IF READY. ":::" = WRITE "Q$"CONNECT"Q$" ONTO DISK":" = QUIT" :"SELECT:";:A$:A$"Q"Ģ23:958: :A$"C"10 D$(4):G$(7):Q$(34) :D$;"OPEN CONNECT" (:D$;"WRITE CONNECT") <"LOC=PEEK(1LY-NUMBERED APPLESOFT PROGRAMS TOGETHER. TO USE IT:"::" 1. SAVE YOUR LARGE# PROGRAM ON THE SAME DISK WITH "Q$"CONNECT"Q$"."::" 2. LOAD YOUR SMALL# PROGRAM.":c " 3. TYPE "Q$"A$=(NAME OF LARGE# PROGRAM)"Q$".":" 4. TYPE "Q$"EXEC CONNECT"E ============== CONNECT.WRITE BY BEAGLE BROS ==============RQ$(34):::" CONNECT.WRITE ";::" BY BEAGLE BROS"::"THIS PROGRAM WILL WRITE A TEXT FILE CALLED "Q$"CONNECT"Q$" ONTO A DISK." :Q$"CONNECT"Q$" WILL APPEND PROPER ҮĮ͍Š˨Š˨źԢĠŠ̍ύý˨˨ɽϹԽ˨é˨ë԰ԾýԺԍԍνúϽέԨίɽԨίŠ˨Š˨ŠϺűɍԢĢĮ =============== COMMAND ZAP BY BEAGLE BROS =================E(LS)(LS1)256:LQ(LS2)(LS3)256:LSENLQLIĞ:" LINE NOT FOUND "::70i (LQLILSLE:30 2ILSLE:(I)("^")ĹI,8 <::" DONE ": F:"ANOTHER LINE (Y/N)?";A$:A$"Y"80 K103,S1:104,S2:175,E1:176,E2: P(37):20@ AD =============== COMMAND ZAP BY BEAGLE BROS ===============uS1(768):S2(769):E1(770):E2(771):75 ::" COMMAND ZAP ":::" BY BERT KERSEY":" BEAGLE BROS"::"REPLACE ^'S ON LINE NUMBER: ";LI:LSS1S2256:ENE1E2256S L ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨ĠЮ΍ =$"q"āI3911:17:I:"]";::" ";::958::255::16:D 30 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000 ============== CHR$ POKER BY BEAGLE BROS ==============$;::" = POKE ";P;",";(1448);:19:"(INVERSE)"s C$"`"Ģ13::C$;::" = POKE ";P;",";(1576);:19:"(FLASH)" 255:"----------------------------------------":SP< 16368,0:17:1:958:"HIT ANY KEY TO CONTINUE, OR Q TO QUIT.";:A$:A$"Q"A     ýì˨ë˨ë˨ë˨ű˨ű˨˨˨خ΍R$(32);"Q "IFV>32767THENVTABPEEK(37)-1:HTAB13:PRINTCHR$(40);V-65536;CHR$(41)"a D$;"CLOSE"LEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$" "W=ASC(LEFT$(A$,1)):X=ASC(MID$(A$,2,1)):Y=ASC(MID$(A$,3,1)):Z=ASC(RIGHT$(A$,1)):A=W-48-7*(W>57):B=X-48-7*(X>57):C=Y-48-7*(Y>57):D=Z-48-7*(Z>57):V=A*4096+B*256+C*16+D:VTABPEEK(37)-1:PRINTCHR$(36);A$;CHR$(61);V;CHcA Q$(34):D$(4):D$;"OPEN DEC":D$;"WRITE DEC":"NOMONICO"W "VTABPEEK(37)-2""VTABPEEK(37)-2:IFLEN(A$)<4THENA$=CHR$(48)+A$""VTABPEEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$""VTABPEEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$"' "VTABPEڽèԤ׭׾½حؾý٭پĽڭھֽªêĺ˨ҤҤֻҤ־˨±Ҥ֭Ҥύ˨˨ΨҤ˨ΨҤ˨ΨҤ˨ΨҤ׽èԤؽèĤٽèĤERSE. THIS EFFECT WILL BE CANCELLED BY OR PR#0.":"----------------------------------------";Ig201,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:I768795:N:I,N::54,0:55,3:1002f "----------------------------------------ALL CTRL-CHARACTERS EXCEPT CTRL-M'S HAVEBEEN CONVERTED TO INV  E.OLD.START.LOCATION.BACK.INU "INVERSE:PRINT";Q$;" APPEND COMPLETE ";Q$;":NORMAL"e D$;"CLOSE" ============== CONNECT.WRITE BY BEAGLE BROS ==============Q ==============O.TWO.BYTESO d"POKE 768, PEEK(103):POKE 769, PEEK(104)":STORE.START.POINTER n"POKE 103,ELO:POKE104,EHI":POKE.IN.NEW.START.LOCATION "PRINT";Q$;D$;"LOAD";Q$;";A$:REMLOAD.HIGHER.NUMBERED.PROGRAM "POKE 103,PEEK(768):POKE 104, PEEK(769)":POK03)+256*PEEK(104)":FIND.START.OF.PROGRAM F"FORI=1TO9999:TEST=PEEK(LOC)+256*PEEK(LOC+1):PRINT0;:IFTEST>0THENLOC=TEST:NEXT":FIND.END.OF.LAST.PROGRAM.LINE P"PRINT" Z"EN=LOC:ELO=EN-INT(EN/256)*256:EHI=INT(EN/256)":SPLIT.END.OF.PROGRAM.NUMBER.INT58::6:11:" ":9:11:" ":M 46:1:"OLD NAME: ":9:"NEW NAME: ":9999e >V9:H11:M255:666| FV6:H11:666:605 P:12:1:958::11:"TYPE MODE: NORMAL":11:"---------------------":12:"CTL-N = NORMAL":12:"CTL-I = INVERSE":12:"CTL-FCT TYPE OF FILE NAME TO CREATE:"::" VISIBLE (FLASH & INVERSE OPTIONAL)":" INVISIBLE (FILE CODES OPTIONAL)": *" SELECT V OR I: (OR Q TO QUIT)";:21:A$:A$:A$"Q"A$"V"A$"I"40 +A$"Q"ĩ255: -A$"I"1000 24:1:9 X ================== FILENAME ZAP BY BERT KERSEY BEAGLE BROS ================== iA(31),B(31)"NOMONICO":::V6:H11:M255:Q16384:Q$(34):UQ48:G$(7)234::11:" FILENAME ZAP ":::11:"BY BEAGLE BROS"y (6:1:958:"SELE     AD";P$:"RUN" D$;"CLOSE", :"DONE."q ============== DOUBLE LOADER BY BEAGLE BROS ============== 4):Q$(34):D$;"OPEN ";X$:D$;"DELETE ";X$:D$;"OPEN ";X$:D$;"WRITE ";X$Z "NOMONICO" #"LOC=768:POKELOC,PEEK(103):POKELOC+1,PEEK(104):POKELOC+2,PEEK(175):POKELOC+3,PEEK(176):POKE103,PEEK(175):POKE104,PEEK(176):POKEPEEK(103)+PEEK(104)*256-1,0":"LO" NOTE: YOU WILL NEED TO ADD POINTER- CHANGE POKES TO THE END OF PROGRAM P. SEE THE INSTRUCTION MANUAL, PAGE 43." :::"NAME OF PROGRAM P:":(37)2:"NAME OF PROGRAM X:";X$ 13:"NAME OF PROGRAM P:";P$:958 P$X$ĺ(7):10J D$(rE ============== DOUBLE LOADER BY BEAGLE BROS ============== z ::" DOUBLE LOADER ";::" BY BEAGLE BROS.":"DOUBLE LOADER WILL CREATE PROGRAM X, WHICH, WHEN EXEC'D, WILL RUN PROGRAM P, WHILE ANY OTHER PROGRAM STAYS IN MEMORY."x TFS:NHI(XTFS):XNLO:340:H1$A$:H2$B$:XNHI:340:H3$A$:H4$B$:HEX$"$"H3$H4$H1$H2$:TLOX(X16)16:HI(X16):A$(HEX$,HI1,1):B$(HEX$,LO1,1):$:280:L4X:X$L3$:280:L3X:X$L2$:280:L2X:X$L1$:280:L1Xn DECL1L216L3256L44096:HEX$"$"HEX$: X$"0"(X$)0X(X$): "X(X$)55: , DEC TO HEX 6X0XX65536:DECX @HEX$"0123456789ABCDEF":TFS256^JNLOX(XTFS)M$)32767NFLAG0 d :(37):T1:958:" ILLEGAL NUMBER ";G$;G$;::I1222::(37)::50j } HEX TO DEC HEX$(HEX$,(HEX$)1) (HEX$)4HEX$"0"HEX$:250> L4$(HEX$,1):L3$(HEX$,2,1):L2$(HEX$,3,1):L1$(HEX$,1):X$L4,(ST2):176,(ST3):( L$"$"170; (NUM$)5210 I2(NUM$):M$(NUM$,I,1):(M$"0")(M$"9"(M$"A"M$"F"))210 : I1(NUM$):M$(NUM$,I,1):(M$"0"M$"9")M$"-"210 :(NUM$)65535(NUM$)65535210 NFLAG(NUEC10);DEC;:T3:NFLAGNEG32769ĺNEG10000);NEG1000);NEG100);NEG10);NEG; _T4:I1611:BIT(I)(DEC2(I1)):BIT(I)2(BIT(I)2);:::50 d LEGAL? nL$"-"NFLAG1 xNUM$"0"Ĺ34,0:(37)1:958:103,(ST):104,(ST1):175";Q$;"0";Q$;" TO QUIT."::34,5Y 2NFLAG0:1:958::"NUMBER: ";NUM$:L$(NUM$,1):100x <L$"$"HEX$NUM$:230:80 F(L$)0L$"-"L$"0"DEC(NUM$):XDEC:300U PNEGDEC65536:(37)1:T1:958:HEX$;:T2:DEC10000);DEC1000);DEC100);DP ================= DEX DEC-HEX CONVERTER BY BEAGLE BROS =================dST768:BIT(16)T11:T28:T315:T424:G$(7):Q$(34):::" DEC/HEX CONVERTER ";::" BY BEAGLE BROS": ("START HEX NUMBERS WITH A ";Q$;"$";Q$;".":"ENTER    );A-65536;CHR$(41);CHR$(32);CHR$(61):PRINTSPC(5);CHR$(36):CALL-958"S D$;"CLOSE"LU8 D$(4):D$;"OPEN HEX":D$;"WRITE HEX":"NOMONICO"a"VTABPEEK(37)-1:IFA<0THENA=A+65536"C "POKE768,INT(A/256):POKE769,A-INT(A/256)*256:VTABPEEK(37)-4:PRINTSPC(5):PRINT:PRINT:CALL-151":"300.301":"3D0G":"VTABPEEK(37)-4:PRINTA;CHR$(32);CHR$(40ύ˨ŷԨŷԨ˨èԺԺ̭İǍ˨ҤҤҤҤҤèҤ̭ZPnFi<f2d(2*( -'T0:X12901303:TT(X)::T2737ė:3' ================== FILENAME ZAP BY BERT KERSEY BEAGLE BROS ================== SFDALJAFDSSA'@pxndZPnFi<f2d(2*( nd):"FILE RENAMED. TO ACCESS, RUN THIS..."::"10 A$=";Q$;X$;Q$;": REM CODE LETTER":"20 H$=CHR$(8)":BS1ĺ"25 H$=H$+H$+H$+H$+H$+H$+H$+H$"."30 A$=A$+H$"8"40 PRINT CHR$(4);";Q$;"LOAD ";Q$;";A$":"50 REM OR ANY APPROPRIATE DOS COMMAND"'255::C$:C$:(C$)64(C$)951010)X$C$11:1:958::"OLD NAME: ..............................":12:10:" ";F$:(F$)01020I1BS:C$C$BS$::"O.K.? (Y/N):";:A$:A$:A$"Y"1000:"RENAME ";F$;",";C$$14:1:958:Q$(34LE NAME ":::"DO YOU WANT FILE CODES":"VISIBLE OR INVISIBLE? (V/I):";:A$:A$:A$"V"A$"I"1000BS$(8):BS1:A$"I"BS810:1:958:"SELECT CODE CHARACTER:":" MUST BE ALPHABETICAL CHARACTER OR ASCII VALUE 64-95":(37)2:23:0B:I,B(B):BB1:B(B)160āK13:S(U):2T13:1:"USING THE RIGHT-ARROW AND KEYS, TRACE OVER THE ABOVE DOS COMMAND. TYPE ";Q$;"RUN";Q$;" TO MAKE A CHANGE.":5:255: INVISIBLE fQ$(34):4:1:958:::" INVISIBLE FI3:B(I1073)(I):_46:1:958:" RENAME ";:I130:1671I,A(I):A(I)160āK13:S(U):e6>I170316711:(I)160ĂHJI1:J,172:B0:IJ11703:I,B(IJ):BB1:B(IJ)160āK13:S(U):JMB29900,RBB1:I179217923 XV:H:(K128):HH(H40)0 ]666:M127ğ= bM255ĝI lM63ĞZ qV1:H:"^"` v :V1:11:"..............................": 13:11:958::"ALL CORRECT (Y/N)? ";:A$:A$"Y"ĝ:52*I16741703:A(I1673)(I)::I1074110K137Ğ:"INVERSE";:868:M63:605L K142ĝ:"NORMAL";:868:M255:605g K136HH(H11):605 K141İ666:VV36(V9):H11:605 &K155İ666:800 0K172K174 DH12K149K192M255ĺG$;:V1:H:"ILLEGAL":I1222::666:605 = FLASH"y U11:"---------------------":12:" = CHANGE LINES":12:" = FINISH":11:"---------------------" ZK(Q):K12890 d16368,0:V:H:I12:S(U)::500:90 K159560 13:22:K134ğ:"FLASH";:868:M127:605# 10N32>BSC11N48<pX015:H,V)XT$T$(XN):D:_:I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(917)256(918):UNSR4):H,V1!|BSC10TSC0SP0;BSC10TSC0SPSP1JSP21850PMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$vBSCH,V1):TSCH,V)N64:BSC13N80 BSCЭCOLĭSCT10T$BR$+COLĭSCT2T$BR$CCOLĭSCT2T$EX$ZCOLĭSCT4T$EX$JX21VSEL1:J:1:" ";::VSEL:1:958I21:1::" ";:2:T$;:JVI:H737:1960:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC115000:1060#A$MAX$A$"A"1060kCOLāI0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)1360COLāI0462:(COL1,I)TSCCOL1,I1)BSC)1360PCOLSCT3,I):SCT13SCT14T$RU$QCOLSCT1,I):SCT1SCT9T$RU$ ";:TSC14,2VSEL2):BSC14,2VSEL1):] WCOLĢVSEL:1:37):COL::8COL);"SELECT:"; `COLĹ16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)13360 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253: A$"#"İ" "N$" "VSELV21:1060o COLĺ" ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." COLĖCOL::N$;::N$" "Ė38:"." : $VSEL0VSEL24* VCOLĢVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;"1:VX442::V21:19 0LOCK$" ":0,V)10LOCK$":"P b1,V)1FILE$"]"g 1,V)2FILE$"*"~ 1,V)9FILE$">" 1,V)4FILE$(34) *LTRLTR1:TEST$N$:N$(LTR) \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$v 768,32:769,12:770,253:771,201:772,141:773,208:774,3:775,76:776,44:777,AE:778,76:779,60:780,AE:781,0 6MEM1463,0:MEM1464,3 hMAX$"W":D$(4):D$;NO$"C,I,O" 255::::1::D$;CA$ X1452:(5,X)11)ĂX LTR64:XXENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================== nMEM((978)((978)127)256)2562947:AE174(157(978)) xNS40393((MEM2925)16) 360 MEM1313,24:MEM1466,23 ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"ICOL0(COL=LETTER-COLUMN. CAN BE 1, 3, 4, OR 7. LET COL=0 IF NO FILE CODES WANTED)COL1COL3COL4COL7COL0z <=========================== "KEY-CAT" CATALOG M  d!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     8:103,(ST):104,(ST1):175,(ST2):176,(ST3):v ============== LINE SEARCH BY BEAGLE BROS ========================CH BY BEAGLE BROS ============== ======= ------------":868 :1403 (37):868:50 NLOX(XTFS)TFS:NHI(XTFS):XNLO:160:H1$A$:H2$B$:XNHI:160:H3$A$:H4$B$:HT:"$";H3$;H4$;H1$;H2$: LOX(X16)16:HI(X16):A$(HEX$,HI1,1):B$(HEX$,LO1,1):5 34,0:216,0:ST761)TFS:X2(LS2)(LS3)TFS:HT7:X2;c ZX10LSPNDX2LFINDĖ1:" (NOT FOUND)";:CL::120 dX2LFINDĖ1:868:" START: ";LS;:XLS:150:" END: ";:EN(LS)(LS1)TFS1:EN;:XEN:150:120 nLSX1:80 x:"---------------------------150:HT17? ("---------------------------------------":34,5J 2LSPST <24:"(0 = QUIT)";:1:" LINE TO FIND: ";LFIND:(37):868:" LINE: ";LFIND;:LFIND65535Ė1:868:G$;:60 ALFIND0170 FXLFIND:150:" SEARCH:";) PX1(LS)(LSw 170} TFS256:CL958:HEX$"0123456789ABCDEF"::::" APPLESOFT LINE SEARCH ";::" BY BEAGLE BROS.":HT23:G$(7)ST768:PST(ST)(ST1)TFS:PND(103)(104)TFS1 :"PROGRAM START: ";PST;:XPST:150:"PROGRAM END: ";PND;:XPND:ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨ŠȮ΍S 20-30 TO YOUR BOOT PROGRAMS TO INCORPORATE THIS FEATURE INTO YOUR SYSTEM."e 2I140:"-";:K2,AE:L13,0 " NOTES: 2 #I140:"-";:X $KEY$" "ĺ"CTRL-";((KEY$)64);{ %KEY$(31)ĺ(34);KEY$;(34);Q (" WILL NOW MAKE A CLEAN BREAK IN":"A LONG CATALOG. ANY OTHER KEYPRESS WILL CONTINUE AS USUAL."::" NOTE: YOU CAN APPEND LINEf# ======== KILL-CAT ======== 1KEY$(3)T256:DOS(978)T4410:AE174(157(978)):LDOS3119:DOS,L(LT)T:DOS1,(LT) L0,32:L1,12:L2,253:L3,201:L4,(KEY$)128:L5,208:L6,3:L7,76:L8,44:L9,AE:L10,76:L11,60:L1   ==?,8,10,144,8,238,149,3,208,3,238,150,3,202,208,242,200,192,196,144,232,96=========================== "KEY-CAT" CATALOG MENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================3:35:32,37:33,3::"---------------------------"{:5:" SECUSE":" SECFRE":5:" ";U:9:" ";R:::H 1,96,1,0,17,0,145,3,0,149,0,0,1,0,0,96,1,0,1,239,216,0,0,169,3,160,128,32,217,3,162,0,142,149,3,142,150,3,160,56,185,0,149,162=================S------":EDITĺ" DEFAULTS TO PRINTED VALUES.";:958s14:1:"(FILE NAME LENGTH: ";:868:6300:LL4ğLL;::")": ============================ MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BERT KERSEY BEAGLE BROS ===========10:1:"CATALOG COLUMNS: ";COL;:868FX$"YES":FI$"N"X$"NO"r11:1:"PRINT FILE CODES? ";X$;:86812:1:"VERTICAL SPACING: ";SD;:868LL(PWCOL):LLLL97(FI$"N"):LL30LL30<15:1:"----------------------------------A$)0ĺG$;F6:1:"DISK TITLE: ";T$;:T$""FLAGĺ"(NONE)";P8687:1:"----------------------------------------";SS$"YES":SS0SS$"NO"8:1:"PRINTER ON? ";SS$;:8689:1:"PRINTER WIDTH: ";PW;:868(S.":6300:" = QUIT.":6300::6300:6290:6300:" <-SELECT";:6:" ";A$nV(A$)A$(A$,1)`A$""A$"Q"A$"C"6210t958:A$"Q"49~A$"C"EDIT1:6020100I1333::I15:S(16336):: (A$)(6310:6060:LL=LENGTH.OF.FILE+CODES4LL30LL30>6310m12:19:" ";A$:(A$)0(A$)10SD(A$)w.630986290B17:1:958::" INSERT DISK AND SELECT: ":XL:6300:" = PRINT CATALOG.":6300:" = CHANGE PARAMETERSS$,1)"Y"SSSLOT6310K9:19:" ";A$:(A$)641(A$)0PW(A$)U630910:19:" ";A$:(A$)0(A$)100COL(A$)630911:19:" ";A$:(A$)A$(A$,1):A$"Y"A$"N"FI$A$#LL(PWCOL):LLLL97(FI$"N"):LL1ĺG$;G$::6290:6310:255TTEMP$T$:6:1:"ENTER DISK TITLE: ";T$:T$""T$TEMP$jT$"Q"T$"QUIT"T$"QUIT"Ģ23:6310:FLAGEDIT6210FLAG1:TEMP$SS$:8:19:" ";A$:(A$,1)"Y"(A$,1)"N"SS$A$A$""SS$TEMP$SS0:(INSTALL.PRINT.CR'SP LOC,32:LOC1,237:LOC2,253::INSTALL.PRINT.CHARACTERS^o INPUT p:234:EDIT0:FLAG.SET.AT.63151:1:"MULTI-COLUMN CATALOG PRINTER ":"----------------------------------------";:"COPYRIGHT (C), 1981, BEAGLE BROS":560:5110::SPACE.BEFORE.FILE.NAME: PRINT/NO PRINT sPRTĹLOC,234:LOC1,234:LOC2,234::CANCEL.PRINTLOC44555ĹLOC,32:LOC1,66:LOC2,174::INSTALL.PRINT.SECTOR.#'SLOC44578LOC44456LOC44459ĹLOC,32:LOC1,47:LOC2,174:: 96:LOC,234:LOC1,234:LOC2,234:PRTĹLOC,206:LOC1,157:LOC2,179:CAT.STOPU h  FILE CODES LOC44517:5110:LOCK.CODE LOC44537:5110:FILE.CODE LOC44542:5110:SPACE.AFTER.FILE.CODE LOC44555:5110:SECTOR.NUMBERS#LOC44ATALOG"A (FILEFILE1:FILE(FILECOL)COL0āI1SD:::1360L <" ";f PFILENFČ44581:1320 :I1PW:"-";:::SSĺ::: 40 44567,LF1::LENGTH.OF.FILENAME LOC44578:5110:LOC44456:5110:LOC44459:5110::CR'SO LOC44560NFNF1:LOC% I::NF;" FILES"4 , SET-UP e @PRT0:LFLL:5000:5010:5020:FI$"Y"PRT1q B5050: J44578,96:RTS.AFTER.FILE.NAME M:(4);"PR#";SS:::  PRINT CATALOG (T$)0ĺT$ I1PW:"-";:: FILE0:(4);"CRUN";Q$;" TO CATALOG AGAIN.";:(37):6 2A$""6000G F(37)3:42d c FIND NUMBER OF FILES dPRT0:5010:5020:5050:LF1:5000 n::(4);"CATALOG" xPRT1:5010:5020:5050:LF30:5000 NF0:I14081664128 LOCII39:(LOC)1(7):BS$(8)(8):DEFAULT.VALUESf (:(4);"PR#0":PRT1:LF30:5000:5010:5020:5050:FLAG6000 *" = CATALOG ANOTHER DISK" +" = QUIT"::" <-SELECT"; /6:" ";A$:(A$)A$(A$,1)& 1A$"Q"Ģ(37):" TYPE ";Q$;" ============================ MULTI-CAT MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BERT KERSEY BEAGLE BROS ============================ "PR#0":40#SLOT1:PRINTER.SLOT.NUMBER# &SS0:PW40:COL3:FI$"N":SD1:LL17:Q$(34):G$ ND PROGRAM HERE...P:IF^NECESSARY,^RESET^NUMBER^(MUST^BE^4^DIGITS).^DO^NOT^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10. P$"RUN COUNTER": TYPE^ACTUAL^PROGRAM^NAME^IN^QUOTES. L(103)(104)25616:N(L3)10(L2)100(L1)1000(L)1:NN53328:N9999N0t L3,48N(N10)10:L2,48((N(N100)100)10):L1,48((N(N1000)1000)100):L,48(N1000) :22:P$:I1(P$):"-";:::"RUN NUMBER:";N::"(STAND BY...)" (4);"UNLOCK ";P$:(4);"SAVE ";P$:(4);"LOCK ";P$  APPEt 11:NUMBER0004:IF^NECESSARY,^RESET^NUMBER^(MUST^BE^4^DIGITS).^DO^NOT^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10. P$"RUN COUNTER": TYPE^ACTUAL^PROGRAM^NAME^IN^QUOTES. L(103)(104)25616:N(L3)10(L2)100(L1)1000(L)1:NN53328::A$"Y"100 P(37):20j d216,0:"EXEC REM FIND TO EXPOSE REMS.":103,S1:104,S2:175,E1:176,E2: ============== REM ZAP BY BEAGLE BROS ==============56:ENE1E2256h LE(LS)(LS1)256:LQ(LS2)(LS3)256:LSENLQLIĞ:" LINE NOT FOUND "::70~ (LQLILSLE:30 2ILSLE:(I)178Ă 7JILE1:N(J):N64N96N77ĹJ,(N64) : <:" DONE ": F:"ANOTHER LINE (Y/N)?";A$= ============== REM ZAP BY BEAGLE BROS ==============G100LOC768:S1(LOC):S2(LOC1):E1(LOC2):E2(LOC3)(4);"PR#0" ::" REM ZAP ":::" BY BERT KERSEY":" BEAGLE BROS":: "ZAP REM ON LINE NUMBER: ";LI:LSS1S22ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨͠Ю΍ :A pST800:103,(ST):104,(ST1):175,(ST2):176,(ST3): B201,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:I768795:N:I,N::54,0:55,3:1002 I140:"-";::"CTRL-REMS EXPOSED AS INVERSE. ":"EFFECT CANCELLED BY PR#0 OR .":I140:"-";  ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨͠Į΍Vj1760:"O.K.? (Y/N):";:A$:1:1730:A$"Y"āI023:V(I)LN,SC(V(I)LN)::169w~I023:SC(V(I)LN)U::169 (X) CLEAR SCREEN 1760:"CLEAR ENTIRE SCREEN? (Y/N):";:A$:1:1730:A$"Y"169:20:169 (S)AVE SCREEN A169.IV(LN)V(LN)39:I,U:SC(I)U::169E (C)OLUMN CLEAR WA$"C"1190x.:I140:1:I:(48I)::B1760:"CLEAR WHICH COLUMN? (1-X):";:A$:1:1730:IV(0)V(0)39:I,SC(I)::A$"1"A$"X"169VLN(A$)49:I023:V(I)LN,U:124:I:1:(I64);::P24:2:868:" CLEAR WHICH LINE? (A-X):";:A$:11730:I023:V(I),SC(V(I))::(A$"A"A$"X")İ1730:169LN(A$)65:IV(LN)V(LN)39:I,U::1760:"O.K.? (Y/N):";:A$:1730:A$"Y"āIV(LN)V(LN)39:I,SC(I):::I11::16304,0:(16384)127790>*QQ,0::1730:169[> (C)LEAR LINE, SCREEN mRA$"C"1250f1760:"CLEAR LINE, COLUMN OR SCREEN? (L,C,S):";:A$:A$"L"A$"C"A$"S"İ1730:169z (L)INE CLEAR 1730:A$"L"1050:I$:A$;:1:A$"C"A$"H"A$"G"A$"L"A$"M"A$"Q"A$"T"A$"S"A$"P"650d16368,0s (T)YPE A$"T"İ1730:169 (G)RID A$"G"85016302,0:16297,0:1730:24:9::" PRESS ANY KEY TO STOP. ";:I1750::'P,S:EF0H39H0:VV18H0H39:V23VV1F&V0V23T:V23V0]N170b24:1:M$;:I1300::I20002008:I,SC(I)::190v (^C)OMMANDS VP,SC(P):1760:"COMMAND? (C/G/H/L/M/P/Q/S/T): (H=HELP";:2039,(")")128:30:A6KCLK223:2109 JKCIF128:M$" INVERSE "::610_ ^KCFF64:M$" FLASH "::610 rKCNF0:M$" NORMAL "::610 KCMH0:VV1 KFSHH18(EF0) KBSHH18(EF0) K(CA)VV14(EF0) KCZVV14(EF0) "A")128KCA$ K("Z")128KCZL KESKBSKFSKCAKCZEF0U 420 K159ĹP,K32(UC0K191K224)F64(K191F0):SC(P)(P):HH1:EF0:510 KESEF1:170 KCSUCUC1:170 KCBK219:210 "KCXK220:210 (7);0 PV(V)H:SSC(P):P,94MF(UC0) K(Q):KSP(KBSKFSKCAKCZKESKCIKCFKCNKCMKCBKCLKCSKCXKCT)190 QQ,0:MF210 KESEF1:170 K212K244KCTġ:1730:MF0:169 KCMı K(C(I)160: UC1:SPU:BS136:FS149:CA129:CZ154:ES155:CX152:CI137:CF134:CN142:CM141:CB157:CL140:CS147:CT148:Q16384:QQ16368:V0:H0:1550 ST169 ST1::20 POKE216,0:REM**************************************** CURSOR JV(I)V(I)39:SC(J)(J)::24:22I;" ";:::1730:W V(23),SC(2039):"NOMONICO"s 2::16300,0:16302,0 <"BLOAD SCR.LOGO,A$400" F"BLOAD SCR.HELP,A$800" nSC(0)0:J0:U160::I023:V(I): x24:11:"(STAND BY.)";:I20002039:Sco ================== SCREENWRITER COPYRIGHT (C) 1982 BEAGLE BROS 714-296-6400 ================== (103)(104)25616385::"RUN SCREENWRITER"1810306 ST1:I20002039:SC(I)(I)::24:14::" STAND BY: ";:I022:        ;P$:(4);"LOCK ";P$3  APPEND PROGRAM HERE...P/__";:13:":";NUDAY$:(NUDAY$)813 I18:A$(I)(NUDAY$,I,1)::MO(A$(1))10(A$(2)):DA(A$(4))10(A$(5)):(MO1MO12)(DA1DA31)A$(3)"/"A$(6)"/"13 I18:LI1,(A$(I)): :"(STAND BY...)":(4);"UNLOCK ";P$:(4);"SAVE "4B 11:"01/01/82":DON'T^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10.u P$"PROGRAM NAME":TYPE^ACTUAL^NAME^IN^QUOTES. L(103)(104)2569:ILL7:DAY$DAY$((I)):& :22:P$:I1(P$):"-";:::"LAST RUN ON: ";DAY$;"."::"TODAY'S DATE:__/__ I%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%I          ================== SCREENWRITER COPYRIGHT (C) 1982 BEAGLE BROS 714-296-6400 ================== -7):";:A$:1730:LN(A$):LN0LN73020C 1::"PR#";LN:::q I023:J039:KSC(V(I)J):K32KK64 K95K128KK64 K159KK128  1:(K);:::::::"PR#0":N1024:1750:169 '1810 'N1872:1750:169b!`2):I1S3:JKI1,SC(JS1I):<4IJJ39:SC(I)(I):M6Q$"O"20109Q$"A"ĹJ,SC(J):J39,SC(J39):LN:1730:MF0:169 (P)RINTER DUMP  1760:"PRINTER TURNED ON? (Y/N):";:A$:A$"Y"İ1730:169) 1760:"PRINTER SLOT NUMBER? (1039:SC(JI)UĂ:2102:S1I1:I3911:SC(JI)UĂaS2I1:S3S2S11:S340S302102LN1:1:39);:V(LN)39,UA$"L"āI0S31:JI,SC(JS11I)::2100 A$"R"āI1S3:J39S3I,SC(JS1I)::2100!A$"C"K((S1239S2):"ALL LINES OR ONE AT A TIME? (A/O):";:Q$:1730:Q$"A"Q$"O"İ1730:MF0:169Q$"O"İ1760:"PUT CURSOR ON LINE & (T=TYPE";:2039,(")")128::30:" ";::170Q$"O"JV(V):LNVQ$"A"āLN023:JV(LN):J,62:J39,60Iq1::"PR#0":(222)255İ1760::4:(7);" SOMETHING IS WRONG. TRY AGAIN. ";(7);:I1999:::1730:145&MF0:650 FORMAT MOVE 1760:"FLUSH LEFT, RIGHT OR CENTERED? (L/R/C):";:A$:A$"L"A$"R"A$"C"İ1730:MF0:169R1760S N2000)INN39:I,SC(I)::l:24:1:868:I12:J12:S(16336)::J199:::QQ,0:1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000  ERROR MESSAGE 11:H2H11)::V223Ģ24:H11:H2H1):2039,UI0V4V3:J0H4H3:V(V3I)H3J,SC(V(V1I)H1J):::A$"Y"Ģ24:14::" STAND BY...";::I0V4V3:J0H4H3:KV(V3I)H3J:SC(K)(K):::1730A$"Y"İ20MF0:1730:169 GOSUB3V423q1760:"O.K.? (Y/N):";:A$:1:1730:A$"Y"ĹL3,S3:SC(L3)S3:L2,S2:SC(L2)S2:L1,S1:SC(L1)S1:16501760:"ERASE OLD BLOCK? (Y/N):";:A$:1:1730L3,S3:SC(L3)S3:L2,S2:SC(L2)S2:L1,S1:SC(L1)S12A$"Y"āIV1V2(V223):I1:HSC(P):SC(P)93:V2V:H2H:L2P8H1H2IH1:H1H2:H2ISV1V2IV1:V1V2:V2I1760:"MARK NEW ";::"UPPER-LEFT";::" CORNER & :";::" ";::170:P,106:S3SC(P):SC(P)93:V3V:H3H:V4V3(V2V1):H4H3(H2H1):L3P:H439H439V42 FORMAT (B/F):";:A$:1:1730:A$"B"A$"F"MF0:169I|A$"F"20001760:"MARK CORNER OF BLOCK, & HIT :";::" ";::170:P,91:S1SC(P):SC(P)91:V1V:H1H:L1P1760:"MARK DIAGONAL CORNER, & HIT :";::" ";::170:P,93:S2";:A$:1:A$"Y"İ1730:145J"1760:34,23:"LOAD FILE NAME:";F$:34,0s$F$"CATALOG"Ģ1::"CATALOG":1570,(F$)01550-1::"BLOAD ";F$;",A$400":H0:V0J20:169^ (M)OVE rA$"M"30008wUC1:MF33:1760:"BLOCK-MOVE ORA$:1:1730:A$"Y"169Fn23:1:" GOTO 9999 TO CONTINUE.";:22:U (H)ELP gA$"H"1530{16299,0:1730K(Q):K1281470QQ,0:16300,0:170 (L)OAD FILE A$"L"16301760:"DO YOU WANT TO LOAD A FILE? (Y/N):$"S"1350O1760:"SAVE SCREEN TO DISK? (Y/N):";:A$:1:1730:A$"Y"169 1760:34,23:"NAME OF FILE? ";F$:34,0:1:1730:"NOMONICO":"BSAVE ";F$;",A$400,L$400":1692 (Q)UIT FA$"Q"1430Z1760:"READY TO QUIT? (Y/N):";:AAAAAA@@@@@@@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAAAAAAAA@@@@@@@@@@@@@@@@@@@@@@@@I%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%II%I%I%I%I%I%I%I%I%I%I%I%I%IL@@@@@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAAAAAAAA@@@@@@@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAA_Kd ============== SORTFILE BY BERT KERSEY BEAGLE BROS ============== c}SL1:PRINTER SLOT#n1950::D$(4):G$(7):Q$(34) 222:"----------":A$" SORTFILE BY BEAGLE BROS":26:I(A$)11:50,63192(I10):(A$,I,1);"";::3 !!! ! ! ! ! !!!!!!!!!""" " " " " """ 36864  ST16385:$4001X:16302,0:"BLOAD SCR.GRID"::22:"STAND BY..."103,ST(ST256)256:104,(ST256):ST1,0"RUN SCR.4000"    : :ΠϠ`: :Ԡ٠/ŠӠ`"<ԠC      ̭àǺĠ٠̭κ̠̭ںЯΠ̭̺Šߩ٠Ϡ̭à̺ĠԠ͠ˠ̭ɺŠӺԯԠ̭غȠܩṷ̃àúҠάŠҠ    :  : ̭ӠӯҠŠ`̭àͺŠԠ̭ݠԠԠ۩Ӡ  -  : ̭àѺԠ   : 0`   ٠ŠӠ̭àӺŠԠϠˠ̭ƺȠíگӺ ̭àȺРӠũ  O 9999 TO CONTINUE.":"---------"o X$"OTHERWISE, GOOD BYE.":200:40(X$):I(X$)11:(X$,I,1);"";:~/ ::255:H CATALOG: --------a (37)1z D$;"CATALOG" 4575 FORMAT FILE #'S: ----------------  NUM100);NUM100g . "SAVE FILE";::" IF NECESSARY. "7 255 :"HIT ";Q$;"Q";Q$;" AGAIN TO QUIT":" OR ";Q$;"C";Q$;" TO CONTINUE: < >"; X$:X$:X$"Q"X$"q"Ģ(37)2:958:4450 (37)4::958::"SAVE FILE";::" IF NECESSARY.":! "GOT" (FILE$)02975E; ":::::::::::::::::::::::::::::::::::::::"XT P:P0ĺ::hm " ";FILE$ " ";:X1(FILE$):"-";:X: XSTARTPHINAL NUMX:3500 NAME$(X) X:P0ĺ:: RT1ı 43755 END: ----N 18ART:";START;:868:n " TO ITEM IF END";:10:":";PHINAL$:(PHINAL$)0PHINALITEMS:2825 PHINAL(PHINAL$) PHINAL0PHINALSTARTPHINALSTART PHINALITEMSPHINAL0PHINALITEMS (37):1:" END:";PHINAL;:868:P"ĺ"ON "# P$"L"P$"P"25004( P0(P$"P")A "FROM ITEM IF #1";:10:":";START$:(START$)0START1:2700Z START(START$):START0START1s STARTITEMSĺ"ONLY ";ITEMS;" ITEMS IN FILE.":3650:2625 (37):1:" STSITEMS1,G (37):958:"(ITEM DELETED)"6` 4450Sy LIST FILE: ----------] 4975 :"PRINTER";::"->

=ON, =OFF WHICH? < >";:38 P$:P$;:1:958:1:P$"L"P$"P"Ģ(37):1:2475 " PRINTER:";:P$"L"ĺ"OFF"  P$"T04450EfOMITITEMSĺ"ONLY ";ITEMS;" ITEMS IN FILE.":3650:4450XNUMOMIT:3500mNIM$NAME$(OMIT)958:NAME$(OMIT)"DELETE ABOVE ITEM? < > ";:21:X$:X$:X$"Y"4450XOMITITEMS1NAME$(X)NAME$(X1) X . ITEM,,,,WRITE PROTECTED,OUT OF DATA,FILE NOT FOUND,VOLUME MISMATCH,I/O ERROR,DISK FULL,FILE LOCKED (USE ALTERNATE NAME),ILLEGAL FILE NAME?,,FILE TYPE MISMATCH,PROGRAM TOO LARGE DELETE FROM FILE: -----------------497545075:OMITXMOMI:NAME$(X):X'SD$;"CLOSE ";FILE$Zl0:(37):"(";FILE$;" LOADED)";:958::4375 ERROR MESSAGE: --------------:(37):958:I1(222):(ERR$(I))0ĺG$" "ERR$(I)" "G$::2000G$" SOMETHING IS WRONG. TRY AGAIN. "::4475 TO LOAD: ";F$/YF$"0"(F$)0Ģ(37):4450<rFILE$F$p(37):958::" LOADING ";FILE$;" ";::" ":D$;"VERIFY ";FILE$:D$;"OPEN ";FILE$;",L40"D$;"READ ";FILE$;",R0"1950ITEMSX1ITEMS!D$;"READ ";FILE$;",R";X$;"WRITE ";FILE$;",R0"!FITEMS0_X1ITEMSNxD$;"WRITE ";FILE$;",R";X\NAME$(X)cXzD$;"CLOSE ";FILE$(37):958:"(";FILE$;" SAVED)"4375 GET FILE: ---------':"( TO CANCEL)":(37)1@"NAME OF FILE-- e4975H ~:"( TO CANCEL)":(37)1:"NAME OF FILE: ";F$a F$"0"(F$)04450{ FILE$F$:F$"T"4450 :(37):" SAVING ";FILE$;" ";:958::" ": D$;"OPEN ";FILE$ D$;"DELETE ";FILE$ D$;"OPEN ";FILE$;",L40"-D"N"(WHICH$)04450! F$"":@ 9958:"NAME OF FILE: ";F$M RFILE$F$o k(F$)0FILE$" "y 4450 4950  ADD ITEMS: ---------- 4975 ADD1 NUMITEMS:3500 NAME$(ITEMS) 3425 L SAVE FILE: --------(/=STOP)":(37)1:4:3550:":";NAME$(ITEMS)H NAME$(ITEMS)"/"700S &(37)b ?ADD0750 X"(";ITEMSSTART;" ITEM"; qITEMSSTART1ĺ"S"; " ADDED & SORTED.)";:868: 750 XITEMS:4050 450 ITEMSITEMS1 WHICH$375I ^"ERASE FILE IN MEMORY? < > ";:24:X$:X$;:1:X$"Y"4450Y wITEMS0:J1z  INPUT ITEMS: ------------ STARTITEMS1 ITEMSITEMS1 NUMITEMS:3500:5:"________________________________"- 5::"^ ENTER ITEM ^";::" :1::"----------":255E NAME$(1000),ERR$(15):I115:ERR$(I): ":::::::::::::::::::::::::::::::::::::::: CREATE A NEW FILE. GET A FILE FROM DISK. CATALOG DISK. QUIT." 4575 , START NEW FILE: --------------- EITEMS016336:g  =================== LO-RES TEST PATTERN BY BERT KERSEY BEAGLE BROS. =================== x ::Q16384  NAMES & NUMBERS: ----------------G A$" 1 2 4 8 5 3 6 9 12 7 11 13 14 MAGDRKDRK'I'HAVE'TAKEN'CONTROL.YOU'WILL'DO'WHAT'I'SAY.''PUT'$1000'IN'ANENVELOPE'AND'GO'TO'THE'COMPUTER'STORE.''BUY'ME'A'LARGE'BAG'OF'MEMORY'CHIPS.'''''I'WILL'WAIT'HERE.''''P.S.'WHATEVER'YOU''DO,'DO'NOT'TURN'OFF'THE'POWER" X$X$".''''''''''''''''''''''''''":U59: ( 23:1:"]";::" ";::16 A$:A$:P N1:23:1:"]";:200| NN1:1:1:A$:A$:23:1N(N40)40 (X$,N,1);:23::" ";::" ";:(X$,N,1)"'"āI13:S(U): 190 16368,0:1:A$:A$:80 X$"THIS'IS'APPLE'][. =================== <220) F230C P16304,0:16297,0: Z:21:" 0 1 2 3 4 5 6 7 BLK GRN VLT WHT BLK RED BLU WHT" d:10:"APPLE ][ HI-RES COLORS";:1 nX024535 x(X35) IXX34 I,0I,1::10:11:32,10("APPLE ][ TEST PATTERNS":"----------------------"::"<1> HI-RES":"<2> LO-RES"::" SELECT:";:A$:A$:-A$"1"A$"2"ĉ:30.A$"2"500 2 =================== HI-RES TEST PATTERN BY BERT KERSEY BEAGLE BROS."""""  UND "::"'4500^" ============== SORTFILE BY BERT KERSEY BEAGLE BROS ============== S IN MEMORY.":3650::4450 !K! GET SEARCH STRING -----------------g!"( TO CANCEL)"!"ENTER ITEM # OR 1ST CHARACTERS:";X$:X(X$):X0ı!RFX$"F"ı!(X$)0X0:!7I1IT:(NA$(I),(X$))X$XI: "P:X0::" NOT FO5; WHICH$"R"ĺ" RENAME ITEM "::":::::::::::::":3675g WHICH$"Q"ĺ" QUIT "::"::::::":3125 $WHICH$"C"ĺ" CATALOG "::":::::::::":3400 =WHICH$" "Ģ(37) V:4500 o PROGRAM IN MEMORY? ------------------!ITEMS1ĺ"NO FILE FILE "::":::::::::::":1100fWHICH$"G"ĺ" GET FILE FROM DISK "::"::::::::::::::::::::":1550WHICH$"A"ĺ" ADD ITEMS "::":::::::::::":950WHICH$"D"ĺ" DELETE ITEM "::":::::::::::::":2050 WHICH$"L"ĺ" LIST "::"::::::":242(36)0ĺ:"::::::::::::::::::::::::::::::::::::::::";t3550:"COMMAND:< > = KEY";:10:WHICH$:WHICH$(37):1:958*CWHICH$"_"WHICH$((WHICH$)32)\WHICH$"N"ĺ" NEW FILE "::"::::::::::":325uWHICH$"S"ĺ" SAVE::::::::::::::::::";"NEW FILE ADD ITEMS LIST GET FILE DELETE ITEM CATALOGSAVE FILE RENAME ITEM QUIT""::::::::::::::::::::::::::::::::::::::::"; 1:"ITEMS IN MEMORY:";IT;:25:X(0):"BYTES FREE:";X;:J11:NAME$(K)NAME$(K1):K7NAME$(J)NAME$(TEST)=^ RENAME FILE: ------------{"OLD FILE NAME: ";FILE$"NEW FILE NAME: ";FILE$4450 COMMANDS: ---------0D$(4)I0bADD0:4575{1:"::::::::::::::::::::::1ı5NAME$(X)NAME$(X1)NAME$(X)NAME$(X1)4450E4050:4450^ RE-SORT: --------wNAME$(TEST)NAME$(X)JXITEMS1:NAME$(J)NAME$(J1):JJ1ITEMS:NAME$(TEST)NAME$(J)42006JONAME$(ITEMS)NAME$(TEST):4250hKITEMS4275X04450MXITEMSĺ"ONLY ";ITEMS;" ITEMS IN FILE.":3650:4450` TEST$NAME$(X)r#NIM$NAME$(X)<TEST$NAME$(X)U"OLD:";NAME$(X)n"NEW:";NAME$(X):NAME$(X)"0"(NAME$(X))0NAME$(X)TEST$:(37):"NEW:";NAME$(X):4450C);NUM;".";:! NOISE: ------@ I110:SOUND(16336):IOI110:Ip)I110:SOUND(16336):I:BG$;G$;G$;:[ RENAME ITEM: ------------t4975"(=CANCEL, ";Q$;"F";Q$;"=RENAME FILE)"RF1:5100:RF0X$"F"