' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmxŠӠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#. 4 0-4ȊȱҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|  @!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ OR L> m CANNOT RESTORE FILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  + s RETURN  ɍ`` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERR   ɛ=ɍ ee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS  (&Hɠ)?(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGETL| $ v SLOT= DRIVE $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                ȺϠҠҽϠΨӽˠӽˠ̽ΨӭҬөҽ̭Ơ̾Πҽ̭ԠӭҬӍԠҺΠ͠ҠȠō٠Ԡٍ͠Ƚ̠½Ġ½Ġ  ԠŠǺ º ºԠ º ºԠ     32,1:33,39:TAB2:135 $"USE THE -> KEY & THE REPT KEY TO TRACE OVER COMMANDS. '";:QUOTE:"RETURN'";:QUOTE:" AFTER EACH." )50,63:2:TAB9:"->";:TAB22:"REPT":50,255:4 .135::;:QUOTE:N i:"32767 TEXT:CALL-936: PRINT: PRINT'";:QUOTE:" FP'";:QUOTE n":PRINT: PRINT'";:QUOTE:" EXEC ";FILE$;"'";:QUOTE s":VTAB 1:END" x:"GOTO 32766" }:5: (36),2(37): "--------------------------------------";:"XXX"6 UFILE$FILE$(1,4):FILE$((FILE$)1)"FILE.AS" Z:"32766 PRINT D$;'";:QUOTE:"OPEN ";FILE$(1,4);"FILE.AS'";:QUOTE _":PRINTD$;'";:QUOTE:"WRITE ";FILE$;"'";:QUOTE d": CALL -936: POKE33,127: LIST 0,32765: PRINT D$;'";:QUOTE:"CLOSE'" QUOTE130:2% D$"": (CTRL-D); D$;"NOMON C,I,O"G :936[ #D$;"CATALOG": (135::"INT->FP CONVERTER":135:: -"NAME OF INT PROGRAM: ",FILE$:936 2FILE$""35 71055 K:"LOAD ";FILE$ P(FILE$)4FILE$((FILE$)1)X ============================ INTEGER->APPLESOFT CONVERTER BY BERT KERSEY CREATES A TEXT FILE FOR EXEC-ING I.B. INTO A.S.! ============================ YOU MUST CORRECT SYNTAX WHEN THROUGH. FILE$(40) Χ źԠҠȮŠ  Ԡ ԠԢŠ  ԠΠĠԠˠˠΠԠΠŠŠ  ԠŠŠ٠ŠԠ٠ϠŠҠӮ źԠԱԠԠԺ̭Ժԧ źԠЧ ōԠԺԧ źԠàŤ ōԠ ĢԠԠϠԠ źԠΠŤŮӧ ōԠĤ źԠŠŤ ōԠ̠ųԠԠĤ źԠŧ źԠͺŤ̠ƠŤΠ ԠԠĠŤƠΨŤΠŤΨŤآŤŤŤΨŤŮӢԠԠԠĤ͠ŤŽҽĤ̭͠ĩԠĤΠìɬϢԠ̠ԠĤǢԠ ԠԠԭРҢ ԠԠԠŠƠԠҠ͠ҭԠҠ٠Ԡٍ͠ӠԠŠҠíǠɮ®ϠӮ͠ՠԠԠؠΠȮ  (WITH 'NORMAL' COPYING METHODS).";:"D. IF YOU PROGRAM, YOU'LL LOVE FASTDOS!";|"10:8:Q$;:15:Q$:23:15:Q$;:22:Q$;,16:36:A$@12QK128300@23QWITH PLE, FID, MUFFIN, ETC, ETC, BUT YOU CANNOT COPY THEM OR FASTDOS IT- SELF (WITH 'NORMAL' COPYING METHODS).";:"D. IF YOU PROGRAM, YOU'LL LOVE FASTDOS!";"10:8:Q$;:15:Q$:23:15:Q$;:22:Q$;,16:36:A$@12QSTDOS IT- SELF "LOAD 62 SECTOR PROGRAM . .16 SEC 4 SECSAVE 62 SECTOR PROGRAM . .24 SEC 9 SECBLOAD HI-RES PICTURE . . .10 SEC 3 SECBSAVE HI-RES PICTURE . . .16 SEC 7 SECBLOAD INTBASIC . . . . . .13 SEC 4 SEC""C. UPDATED DISKS ARE FULLY-COMPATIBLE S ABOUT FASTDOS ------------------------------" "A. IT'S FROM AUSTRALIA, SO YOU PROBABLY WON'T FIND IT ELSEWHERE." "B. YOU 'UPDATE' YOUR DISKS WITH FASTDOS. THEN YOU BOOT YOUR DISK. COMPARE...":::27:"NORMAL";:34:"FASTDOS";:AL TIME! (NOT BY BEAGLE BROS, BUT WE SELL IT.)";B Z3:1: x" GAME PACKS 1-4 ":::" DOS BOSS ":::" UTILITY CITY ":::" ALPHA PLOT ":::" APPLE MECHANIC ":::" TIP DISK #1 ":::" FASTDOS " :24:40:A$::8 "A FEW MORE WORDAPPER WITH TIP BOOK #5 & PEEKS/POKES CHART." K"TIP DISK #1. . . . . . . . . . . $20.00 100 PROGRAMS FROM TIP BOOKS 1-4. WITH PEEKS CHART & APPLE COMMAND CHART";6 PD$"$29.50 SAVE, LOAD, BSAVE & BLOAD IN APROXI- MATELY ONE-THIRD THE NORMS BOOK & CHART";o 2D$"$29.50 21 USEFUL UTILITIES ON ONE DISK. WITH TIP BOOK #3 & PEEKS/POKES CHART." <D$"$39.50 HI-RES GRAPHICS/TEXT PLOTTING UTILITY. WITH TIP BOOK #4 & PEEKS/POKES CHART."- FD$"$29.50 ANIMATION/CHARACTER EDITOR/DISK Z) :::Q$(34):I117:D$D$" .":P:10:" BEAGLE BROS CATALOG "::D$"$24.00 EACH INCLUDES AT LEAST 3 GAMES ON DISK WITH TIP BOOK #2 & PEEKS/POKES CHART." (D$"$24.00 ALTER DOS TO PROTECT PROGRAMS, ETC. WITH TIP BOOK 2, DOS BOS   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           :"<";::J11::(C$,I,1);"";:::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 ":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: F(4);"RUN HELLO" ( '255:X:40:I(C$)11: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 ` `  RETURN FOR MORE OR TO QUIT.";:1:" FOR MORE OR Q ";:K(16384)gK141K209500016368,0:240:K141ė:I3711:175:24:I:"]";::" ";::868::255:23SUAL"]" AND INSERT THE NECESSARY CONTROL OR ESCAPE CHARACTERS IN THE LISTING.":4000:" XLISTER ";::" O.K.":23:I140:"-";::5010J1SP::(37)21ĺ::5000:J1SP::" O.K.":4000O222:23:1:I140:"-";::"EM'S NAME. ALSO SEE LINE 130."::@4" TEST PATTERNS ";:4040:" TEXT DUMP ";::" NOTE--":" DEPENDING ON YOUR PRINTER'S CAPABILI- TIES, YOU MAY BE ABLE TO MAKE FLASH AND/OR INVERSE PRINT AS EMPHASIZED TYPE. CONSULT YOUR PRINTER'S MANO USE CTRL-A AND CTRL-Z FOR CURSOR MOVES. ---- ----"q:" SORTFILE ";::" ";::"CORRECTION";:":"--":" THE LIMITATION ON PAGE 37 HAS BEEN ELIMINATED. YOU MAY ENTER AN ITEM'S NUMBER OR THE FIRST FEW CHARACTERS OF THE ITIND ";:40406:" RUN COUNTER & RUN DATER ";:4040l:" SCREENWRITER ";::" NOTE--":" TO COPY SCREENWRITER, YOU NEED TO COPY THE 4 "Q$"SCR."Q$" FILES AS WELL. USE FID, AND ENTER "Q$"SCR="Q$" TO COPY ALL 5 FILES."Av" PAGE 34 SHOULD SAY T ARE NOT MEANT TO BE BRUN, AND MANY TEXT FILES CANNOT BE EXEC'D. KEY-CAT WILL CRASH IF YOU TRY.": x" KILL-CAT ";::" NOTE--":" WON'T WORK IN 3.2 OR WITH FASTDOS":: " LINE SEARCH ";:4040 @" MULTI-CAT ";:4040 " REM ZAP & REM FAND TO BINARY.":40005 :" DOUBLE LOADER ";:4040V ::" FILENAME ZAP ";:4040 " INT CONVERTER ";::" NOTE--":" YOU NEED INTEGER BASIC LANGUAGE IN YOUR APPLE TO USE INT CONVERT."::h " KEY-CAT ";::" NOTE--":" MANY BINARY FILESCONNECT ";:4040z " CTRL-FIND ";::" NOTE--":" SAME AS REM FIND, BUT RUN, DON'T EXEC. ---": " DEC, HEX & DEX ";::" NOTE--":" DEC CONVERTS HEX TO DECIMAL.":" HEX CONVERTS DECIMAL TO HEX.":" DEX CONVERTS BOTH WAYS AND XLISTER.A."p F18:I1999::"FOLLOWING ARE UP-TO-DATE COMMENTS ON EACH UTILITY CITY PROGRAM...":5000 d:" ADDRESS CHECKER ";:4040 " BFIND ";:4040 ," BIGLINER ";:4040 " CHR$ POKER ";:4040 " COMMAND ZAP ";:4040 X" ":I1123:S(16336):P ="132 ($84) IS THE CORRECT VALUE.":255:"--- --" A::"FIVE UTILITY CITY PROGRAMS UTILIZE A PRINTER. IF YOU ARE NOT GETTING PROPER RESULTS, READ THE EARLY REM STATEMENTS IN MULTI-CAT, SCR.4000, SORTFILE, TEXT DUMP SP10:Q$(34):G$(7)o2::"UTILITY CITY BUGLIST 5/20/82--------------------":I1999: <::"ERROR!";G$::222:I1800:::"PAGE 2 OF THE U-CITY TIP BOOK SAYS THAT 134 ($86) IS DOS'S CTRL-D. ";:I1555:::"WRONG";::"...   ==================== NXT:1230220' END r'CR0:::(4);"PR#0":"ANOTHER LISTING ON THIS PROGRAM?";A$:(A$,1)"Y"1005.:"DONE."::103,(N):104,(N1):175,(N2):176,(N3): ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS 4);"PR#";S::::PRINTCHR$(9);SW;"N":REM(REMOVE.1ST.REM.IN.THIS.LINE.IF.YOUR.PRINTER.WON'T.PRINT.WIDER.THAN.40.COLUMNS.):(T$)0ĺT$:425ST(N)(N1)TFS:EN(N2)(N3)TFS NXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:LISLINXT0ST:"USE PRINTER? (DEFAULT=YES)";:15:" ";PO$:T6:16:PO$""P$"YES":1160w~P$"NO":(PO$,1)"Y"P$"YES"P$;:958:T8:"TITLE: ";T$T10:"ALL CORRECT? (DEFAULT=YES)";:15:" ";A$:(A$,1)"N"1005yP$"YES"ĺ( (DEFAULT=START)";:15:" ";SLI$:SLI(SLI$):SLI$""SLI0:T2:16:"START"LT4:"END LIST AT: (DEFAULT=END)";:15:" ";ELI$:ELI(ELI$):ELI$""ELI65535VELISLIELISLI`ELI$""ĢT4:16:"END":1140jT4:16:ELITtT6STER ";::" BY BEAGLE BROS"z:LOOP0:I031:A$(I)(I)"(c"(I64)")"::I32127:A$(I)(I)::I128234:A$(I):.T:"COLUMN WIDTH: (DEFAULT=80)";:15:" ";SW$:SW(SW$):SW$""SW80:T:16:SW8SWSW1PBT2:"START LIST AT: NOT,STEP,+,-,*,/,^,AND,OR,>J=,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POSxSQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LENSTR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$ PARAMETERS A$(255):Q$(34):N768:T5:TFS256:10000::"PR#0":::" XLIOAD,TRACE,NOTRACE,NORMALaINVERSE,FLASH,COLOR=,POP,VTAB,"HIMEM:","LOMEM:",ONERR,RESUME,RECALLSTORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURNREM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONTLIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,AT::CTRLJĺ(10);:(SEE.LINE.56.), :CR0< PP13SP0f CTRLJĺ(10);: (SEE.LINE.56.) l  END,FOR,NEXT,DATA,INPUT,DEL,DIM,READ,GR,TEXT PR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOTDRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLPP10PP13İ425: TKFLAG(PP127):A$"THEN"THFLAG1@ P STNXT:200[ :425t THFLAG0ĺ" * : "; THFLAG0ĺ" : "; LOOPĺLOOP2((P1)130)); SP7LOOP:LFLAG0: CRCR1:P$"YES"MG1CRPGMG2429! I1MG2P0)' A$Q$A$"REM"QFLAGQFLAG1_ ,A$":"QFLAG0TKFLAG0:420:400: COLON,NEW.LINE hPP127ĺTKFLAG0);:SPSP(TKFLAG0):LEADING.SPACE |SP(A$)SW1ĺ:9LOOP):SP10LOOP:425 :A$;PP127);:SPSP(A$)(PP127):A$"REM"Ğ -----------":425:LI;:LI10000);LI1000);LI100);LI10);" ";:SP6LOOPo LOOPĺLOOP2((ST4)130)); PST4NXT2:PP(P):A$A$(PP) A$"FOR"LOOPLOOP2 A$"NEXT"LFLAG1:LOOPLOOP2(LOOP0) (LFLAG1A$",")LOOPLOOP2(LOOINE.FEEDS.IN.LINES.426.&.430)W <PG66:MG3:(LINES.PER.PAGE.&.MARGIN.FOR.PAGE.BREAKS)a d1000 NXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:NXT0LIELIĺ:(4);"PR#0":10000:START.LISTL LFLAG0:TKFLAG0:QFLAG1:THFLAG1::425::"---------- f ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== 2S1: (PRINTER.SLOT) 7(SEE.LINE.1190.IF.YOUR.PRINTER.WON'T.PRINT.WIDER.THAN.40.COLUMNS.) 8CTRLJ0:(LET.CTRLJ=1.IF.YOUR.PRINTER.REQUIRES.L    ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍  8,1616,1744,1872,2000S ============== TEXT DUMP BY BEAGLE BROS ==============32,1360,1488,1616,1744,1872,2000 ============== TEXT DUMP BY BEAGLE BROS ==============D P < 96 THEN ...: REM FLASHING "@" THROUGH "_" 1:(P);:I:: PRINT CHR$(10);:REM REMOVE 1ST "REM" IF YOUR PRINTER REQUIRES LINE FEEDS. Y:0::1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1481::::Y124:A:IAA39:P(I)a P32PP64:CONVERTS INVERSE "@" THROUGH "_" TO NORMAL. P95P128PP64: CONVERTS FLASHING SPACE THROUGH "?" TO NORMAL IF P > 95 AND P < 64 THEN ...: REM INVERSE SPACE THROUGH "?"0 IF P > 63 ANT> ============== TEXT DUMP BY BEAGLE BROS ==============TO MAKE INVERSE AND/OR FLASH PRINT AS EMPHASIZED, CONSULT YOUR PRINTER MANUAL, AND ENTER APPROPRIATE CTRL OR ESC-CHARACTERS IN THIS LISTING. ALSO SEE LINE 63998.1:PRINTER SLOT#   :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:16336: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.  # OR 1ST CHARACTERS:";X$:X(X$):X0ı8"RFX$"F"ıK"(X$)0X0:q"7I1IT:(NA$(I),(X$))X$XI:"P:X0::" NOT FOUND "::"'4500" ============== SORTFILE BY BERT KERSEY BEAGLE BROS ============== S" CATALOG "::":::::::::":34007!=WHICH$" "Ģ(37)C!V:4500p!o PROGRAM IN MEMORY? ------------------!ITEMS1ĺ"NO FILE IN MEMORY.":3650::4450!! GET SEARCH STRING -----------------!"( TO CANCEL)"'""ENTER ITEM ADD ITEMS "::":::::::::::":950\ WHICH$"D"ĺ" DELETE ITEM "::":::::::::::::":2050 WHICH$"L"ĺ" LIST "::"::::::":2425 WHICH$"R"ĺ" RENAME ITEM "::":::::::::::::":3675 WHICH$"Q"ĺ" QUIT "::"::::::":3125 !$WHICH$"C"ĺ(37):1:958*<CWHICH$"_"WHICH$((WHICH$)32)o\WHICH$"N"ĺ" NEW FILE "::"::::::::::":325uWHICH$"S"ĺ" SAVE FILE "::":::::::::::":1100WHICH$"G"ĺ" GET FILE FROM DISK "::"::::::::::::::::::::":1550" WHICH$"A"ĺ"RENAME ITEM QUIT"I"::::::::::::::::::::::::::::::::::::::::";1:"ITEMS IN MEMORY:";IT;:25:X(0):"BYTES FREE:";X;:(36)0ĺ"::::::::::::::::::::::::::::::::::::::::";3550:"COMMAND:< > = KEY";:10:WHICH$:WHICH$z# 1,X٠ٍ à2"ϠȠ ٠Ϡ ӠӠϠ ΠϠŠӠǠ  ԠŮӠԠϠР ŮӠ ԠР Ҡ Ү Ԡ ޠ ŠӠ ٠ՠ  Ү ҮĠ"ҮРҮϠ Ҡ Š ԠӠ    ɭԠ͠Ġ͠Į͠Р͠Ю ΠҠΠҠ  ؠ خŠ ԠҠ٭Ԡ̭ԠŠȠŠȮ  ̭ĠàîŠ ؠ خŠҠ ŠР !Ҡ!Ү ҤҠ ĠР ĠЮԠ ԮŠ"ӠӠ٠ٮ"CŠӠ"ޠ"ӠҠ"Ġ! Į!ĮŠE$"NEW FILE NAME: ";FILE$)4450D COMMANDS: ---------P0D$(4)WI0gbADD0:4575{1:"::::::::::::::::::::::::::::::::::::::::";"NEW FILE ADD ITEMS LIST GET FILE DELETE ITEM CATALOGSAVE FILE JXITEMS1:NAME$(J)NAME$(J1):JPJ1ITEMS:NAME$(TEST)NAME$(J)4200W6JzONAME$(ITEMS)NAME$(TEST):4250hKITEMSJ11:NAME$(K)NAME$(K1):KNAME$(J)NAME$(TEST) RENAME FILE: ------------"OLD FILE NAME: ";FILST$NAME$(X)!U"OLD:";NAME$(X)n"NEW:";NAME$(X):NAME$(X)"0"(NAME$(X))0NAME$(X)TEST$:(37):"NEW:";NAME$(X):4450C1ıNAME$(X)NAME$(X1)NAME$(X)NAME$(X1)44504050:4450 RE-SORT: --------NAME$(TEST)NAME$(X)&G$;G$;:)[ RENAME ITEM: ------------3t4975g"(=CANCEL, ";Q$;"F";Q$;"=RENAME FILE)"{RF1:5100:RF0X$"F"4275X04450XITEMSĺ"ONLY ";ITEMS;" ITEMS IN FILE.":3650:4450 TEST$NAME$(X)#NIM$NAME$(X) <TE255:H CATALOG: --------+a (37)1=z D$;"CATALOG"G 4575p FORMAT FILE #'S: ---------------- NUM100);NUM10);NUM;".";: NOISE: ------ I110:SOUND(16336):II110:I)I110:SOUND(16336):I:BG$;ONTINUE: < >";B X$:X$:X$"Q"X$"q"Ģ(37)2:958:4450} (37)4::958::"SAVE FILE";::" IF NECESSARY.": "GOTO 9999 TO CONTINUE.":"---------" X$"OTHERWISE, GOOD BYE.":200:40(X$):I(X$)11:(X$,I,1);"";:/ :: NAME$(X)E P$"P"CTRLJĺ(10);:ADD A LINE-FEED (SEE LINE 130)X X:P0ĺ::d RT1ın 43755 END: ----N 180g  "SAVE FILE";::" IF NECESSARY. " 255 :"HIT ";Q$;"Q";Q$;" AGAIN TO QUIT":" OR ";Q$;"C";Q$;" TO CPHINAL0PHINALITEMSB (37):1:" END:";PHINAL;:868:W" (FILE$)02975; ":::::::::::::::::::::::::::::::::::::::"T SL(P$"P"):P$"P"ĺ::m " ";FILE$ " ";:X1(FILE$):"-";:X: XSTARTPHINAL NUMX:3500 ONLY ";ITEMS;" ITEMS IN FILE.":3650:2625U (37):1:" START:";START;:868: " TO ITEM IF END";:10:":";PHINAL$:(PHINAL$)0PHINALITEMS:2825 PHINAL(PHINAL$) PHINAL0PHINALSTARTPHINALSTART PHINALITEMS58:1:P$"L"P$"P"Ģ(37):1:2475H " PRINTER:";:P$"L"ĺ"OFF"[ P$"P"ĺ"ON "u P$"L"P$"P"2500A "FROM ITEM IF #1";:10:":";START$:(START$)0START1:2700Z START(START$):START0START1*s STARTITEMSĺ":X$:X$:X$"Y"4450*XOMITITEMS1BNAME$(X)NAME$(X1)I X[. ITEMSITEMS1~G (37):958:"(ITEM DELETED)"` 4450y LIST FILE: ---------- 4975 :"PRINTER";::"->

=ON, =OFF WHICH? < >";:38& P$:P$;:1:9GE. DELETE FROM FILE: -----------------84975I45075:OMITXZMOMIT04450fOMITITEMSĺ"ONLY ";ITEMS;" ITEMS IN FILE.":3650:4450NUMOMIT:3500NIM$NAME$(OMIT)958:NAME$(OMIT)"DELETE ABOVE ITEM? < > ";:21$" "ERR$(I)" "G$::2000DG$" SOMETHING IS WRONG. TRY AGAIN. ":P:4475,,,,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 LARύýì˨ë˨ë˨ë˨ű˨ű˨˨˨ʍ΍D ";FILE$;",R0"1950%ITEMS4X1ITEMSQ!D$;"READ ";FILE$;",R";Xb:NAME$(X):XySD$;"CLOSE ";FILE$l0:(37):"(";FILE$;" LOADED)";:958::4375 ERROR MESSAGE: --------------:(37):958:I1(222):(ERR$(I))0ĺG GET FILE: ---------?':"( TO CANCEL)":(37)1`@"NAME OF FILE TO LOAD: ";F$YF$"0"(F$)0Ģ(37):4450rFILE$F$(37):958::" LOADING ";FILE$;" ";::" ":D$;"VERIFY ";FILE$:D$;"OPEN ";FILE$;",L40"D$;"READ$;"OPEN ";FILE$.D$;"DELETE ";FILE$KD$;"OPEN ";FILE$;",L40"h-D$;"WRITE ";FILE$;",R0"sFITEMS_X1ITEMSxD$;"WRITE ";FILE$;",R";XNAME$(X)XD$;"CLOSE ";FILE$(37):958:"(";FILE$;" SAVED)"4375ADD1 NUMITEMS:3500- NAME$(ITEMS)6 3425T L SAVE FILE: ----------^ e4975 ~:"( TO CANCEL)":(37)1:"NAME OF FILE: ";F$ F$"0"(F$)04450 FILE$F$:F$"T"4450:(37):" SAVING ";FILE$;" ";:958::" ":ED.)";:868: 750) XITEMS:40502 450D ITEMSITEMS1g WHICH$"N"(WHICH$)04450s F$"": 9958:"NAME OF FILE: ";F$ RFILE$F$ k(F$)0FILE$" " 4450 4950  ADD ITEMS: ---------- 4975 3500:5:"________________________________" 5::"^ ENTER ITEM ^";::" (/=STOP)":(37)1:4:3550:":";NAME$(ITEMS) NAME$(ITEMS)"/"700 &(37) ?ADD0750 X"(";ITEMSSTART;" ITEM"; qITEMSSTART1ĺ"S"; " ADDED & SORTOG DISK. QUIT." 4575D , START NEW FILE: ---------------U EITEMS0375 ^"ERASE FILE IN MEMORY? < > ";:24:X$:X$;:1:X$"Y"4450 wITEMS0:J1  INPUT ITEMS: ------------ STARTITEMS1 ITEMSITEMS1+ NUMITEMS:RTFILE BY BEAGLE BROS":26:I(A$)11:50,63192(I10):(A$,I,1);"";::3:1::"----------":255 NAME$(1000),ERR$(15):I115:ERR$(I): ":::::::::::::::::::::::::::::::::::::::: CREATE A NEW FILE. GET A FILE FROM DISK. CATALKd ============== SORTFILE BY BERT KERSEY BEAGLE BROS ============== c}SL1:PRINTER SLOT#CTRLJ0:SET CTRLJ=1 IF YOUR PRINTER REQUIRES LINE FEED INSERTED IN LINE 30301950::D$(4):G$(7):Q$(34)j 222:"----------":A$" SO        36864  ST16385:$4001X:16302,0:"BLOAD SCR.GRID"::22:"STAND BY..."103,ST(ST256)256:104,(ST256):ST1,0"RUN SCR.4000"    : :ΠϠ`: :Ԡ٠/ŠӠ`"<ԠC  ̭à̺ĠԠ͠ˠ̭κ̠̭ںЯΠ̭̺Šߩ٠Ϡ̭àӺŠԠϠˠ̭ɺŠӺԯԠ̭غȠܩṷ̃àͺŠԠ    :  : ̭ӠӯҠŠ`̭àǺĠ٠̭ݠԠԠ۩Ӡ̭àѺԠ   : 0̭àúҠάŠҠΠ`̭àȺРӠṷ̃ƺȠíگӺ:  -  : ̭àкҠРL@@@@@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAAAAAAAA@@@@@@@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAAAAAAAA@@@@@@@@@@@@@@@@@@@@@@@@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%I 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            LINE FEED.)3!! ::::"PR#0":N1024:1750:169>!'1810T!'N1872:1750:169!`================== SCREENWRITER COPYRIGHT (C) 1982 BEAGLE BROS 714-296-6400 ================== NTER SLOT NUMBER? (1-7):";:A$:1730:LN(A$):LN0LN73020W 1::"PR#";LN::: I023:J039:KSC(V(I)J):K32KK64 K95K128KK64 K159KK128 ! 1:(K);:::PRINT CHR$(10);:REM(REMOVE 1ST REM IF YOUR PRINTER REQUIRES A"C"K((S1239S2)2):I1S3:JKI1,SC(JS1I):P4IJJ39:SC(I)(I):a6Q$"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:"PRI,62:J39,60+I039:SC(JI)UĂ:2102NS1I1:I3911:SC(JI)UĂuS2I1:S3S2S11:S340S302102LN1:1:39);:V(LN)39,UA$"L"āI0S31:JI,SC(JS11I)::2100 A$"R"āI1S3:J39S3I,SC(JS1I)::21005A$:MF0:169f1760:"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):LNV Q$"A"āLN023:JV(LN):J ERROR MESSAGE :1::"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:169 GOSUBS N2000;INN39:I,SC(I)::~: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 V2(V223):I1:H11: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:173039H439V423V4231760:"O.K.? (Y/N):";:A$:1:1730:A$"Y"ĹL3,S3:SC(L3)S3:L2,S2:SC(L2)S2:L1,S1:SC(L1)S1:16551760:"ERASE OLD BLOCK? (Y/N):";:A$:1:1730L3,S3:SC(L3)S3:L2,S2:SC(L2)S2:L1,S1:SC(L1)S1DA$"Y"āIV1;::170:P,93:S2SC(P):SC(P)93:V2V:H2H:L2PJH1H2IH1:H1H2:H2IeV1V2IV1:V1V2:V2I1760:"MARK NEW ";::"UPPER-LEFT";::" CORNER & :";::" ";::170:P,106:S3SC(P):SC(P)93:V3V:H3H:V4V3(V2V1):H4H3(H2H1):L3P:H460:"BLOCK-MOVE OR FORMAT (B/F):";:A$:1:1730:A$"B"A$"F"MF0:169[|A$"F"20001760:"MARK CORNER OF BLOCK, & HIT :";::" ";::170:P,91:S1SC(P):SC(P)91:V1V:H1H:L1P/1760:"MARK DIAGONAL CORNER, & HIT :";::" "OAD A FILE? (Y/N):";:A$:1:A$"Y"İ1730:145\"1760:34,23:"LOAD FILE NAME:";F$:34,0$F$"CATALOG"Ģ1::"CATALOG":1570,(F$)01550-1::"BLOAD ";F$;",A$400":H0:V0J20:169^ (M)OVE rA$"M"3000JwUC1:MF33:17O QUIT? (Y/N):";:A$:1:1730:A$"Y"169Xn23:1:" GOTO 9999 TO CONTINUE.";:22:g (H)ELP yA$"H"153016299,0:1730K(Q):K1281470QQ,0:16300,0:170 (L)OAD FILE A$"L"1630/1760:"DO YOU WANT TO LAVE SCREEN A$"S"1350a1760:"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"1430*Z1760:"READY TI023:V(I)LN,U:hj1760:"O.K.? (Y/N):";:A$:1:1730:A$"Y"āI023:V(I)LN,SC(V(I)LN)::169~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)LN)39:I,SC(I)::169@IV(LN)V(LN)39:I,U:SC(I)U::169W (C)OLUMN CLEAR iA$"C"1190.: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:"L"1050+:I124:I:1:(I64);::b24: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(:I1750::9:I11::16304,0:(16384)127790P*QQ,0::1730:169m> (C)LEAR LINE, SCREEN RA$"C"1250f1760:"CLEAR LINE, COLUMN OR SCREEN? (L,C,S):";:A$:A$"L"A$"C"A$"S"İ1730:169z (L)INE CLEAR 1730:A$128:28:A$:A$"C"A$"H"A$"G"A$"L"A$"M"A$"Q"A$"T"A$"S"A$"P"İ1730:169vA$;:16368,0:1 (T)YPE A$"T"İ1730:169 (G)RID A$"G"850 16302,0:16297,0:1730:24:9::" PRESS ANY KEY TO STOP. ";(EF0)P,S:EF0)H39H0:VV1CH0H39:V23VV1Q&V0V23_:V23V0hN170b24:1:M$;:I1300::I20002008:I,SC(I)::190v (^C)OMMANDS `P,SC(P):1760:"COMMAND? (C/G/H/L/M/P/Q/S): (H=HELP";:2039,(")")220:210 6KCLK223:210D JKCIF128:M$" INVERSE "::610j ^KCFF64:M$" FLASH "::610 rKCNF0:M$" NORMAL "::610 KCMH0:VV1 KFSHH18(EF0) KBSHH18(EF0) K(CA)VV14(EF0)KCZVV14 K("A")128KCA/ K("Z")128KCZW KESKBSKFSKCAKCZEF0` 420 K159ĹP,K32(UC0K191K224)F64(K191F0):SC(P)(P):HH1:EF0:510 KESEF1:170 KCSUCUC1:170 KCBK219:210 "KCXK CURSOR  (7);; PV(V)H:SSC(P):P,94MF(UC0) K(Q):KSP(KBSKFSKCAKCZKESKCIKCFKCNKCMKCBKCLKCSKCXKCT)190 QQ,0:MF210 KESEF1:170 K212K244KCTġ:1730:MF0:169 KCM160::I023:V(I):J x24:11:"(STAND BY.)";:I20002039:SC(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 : :I20002039:SC(I)(I)::24:14::" STAND BY: ";:I022:JV(I)V(I)39:SC(J)(J)::24:22I;" ";:::1730: V(23),SC(2039):"NOMONICO" 2::16300,0:16302,0 <"BLOAD SCR.LOGO,A$400" F"BLOAD SCR.HELP,A$800" nSC(0)0:J0:Uo ================== SCREENWRITER COPYRIGHT (C) 1982 BEAGLE BROS 714-296-6400 ==================  (SEE LINE 3100 IF YOUR PRINTER REQUIRES EXTRA LINE FEEDS.)(103)(104)25616385::"RUN SCREENWRITER"181030v ST1         ;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:__/__ND PROGRAM HERE....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:NUMBER0000:IF^NECESSARY,^RESET^NUMBER^(MUST^BE^4^DIGITS).^DO^NOT^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10. P$"PROGRAM NAME":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:"-";ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨͠Į΍T KERSEY BEAGLE BROS ============================SLL;::")": ============================ MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BERT KERSEY BEAGLE BROS ============================G":1 ============================ MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BER+12:1:"VERTICAL SPACING: ";SD;:868]LL(PWCOL):LLLL97(FI$"N"):LL30LL3015:1:"----------------------------------------":EDITĺ" DEFAULTS TO PRINTED VALUES.";:95814:1:"(FILE NAME LENGTH: ";:868:6300:LL4ğ------------------";1SS$"YES":SS0SS$"NO"]8:1:"PRINTER ON? ";SS$;:8689:1:"PRINTER WIDTH: ";PW;:86810:1:"CATALOG COLUMNS: ";COL;:868X$"YES":FI$"N"X$"NO"11:1:"PRINT FILE CODES? ";X$;:868A$""A$"Q"A$"C"62101t958:A$"Q"49J~A$"C"EDIT1:6020S100dI1333::I15:S(16336)::(A$)(A$)0ĺG$;6:1:"DISK TITLE: ";T$;:T$""FLAGĺ"(NONE)";8687:1:"----------------------630986290@B17:1:958::" INSERT DISK AND SELECT: ":L:6300:" = PRINT CATALOG.":6300:" = CHANGE PARAMETERS.":6300:" = QUIT.":6300::6300:6290:6300:" <-SELECT";:6:" ";A$V(A$)A$(A$,1)`(A$)100COL(A$)6309Y11:19:" ";A$:(A$)A$(A$,1):A$"Y"A$"N"FI$A$LL(PWCOL):LLLL97(FI$"N"):LL1ĺG$;G$:6310:6060:LL=LENGTH.OF.FILE+CODESLL30LL30631012:19:" ";A$:(A$)0(A$)10SD(A$)."QUIT"Ģ23:'6310:FLAGEDIT6210kFLAG1:TEMP$SS$:8:19:" ";A$:(A$,1)"Y"(A$,1)"N"SS$A$A$""SS$TEMP$SS0:(SS$,1)"Y"SSSLOT63109:19:" ";A$:(A$)641(A$)0PW(A$)630910:19:" ";A$:(A$)0LAG.SET.AT.63151:1:"MULTI-COLUMN CATALOG PRINTER ":"----------------------------------------";:"COPYRIGHT (C), 1981, BEAGLE BROS"::6290:6310:255TEMP$T$:6:1:"ENTER DISK TITLE: ";T$:T$""T$TEMP$T$"Q"T$"QUIT" T$HLOC44555ĹLOC,32:LOC1,66:LOC2,174::INSTALL.PRINT.SECTOR.#'SLOC44578LOC44456LOC44459ĹLOC,32:LOC1,47:LOC2,174:: INSTALL.PRINT.CR'S LOC,32:LOC1,237:LOC2,253::INSTALL.PRINT.CHARACTERSo INPUT p:234:EDIT0:F517:5110:LOCK.CODE3LOC44537:5110:FILE.CODE^LOC44542:5110:SPACE.AFTER.FILE.CODELOC44555:5110:SECTOR.NUMBERSLOC44560:5110::SPACE.BEFORE.FILE.NAME PRINT/NO PRINT PRTĹLOC,234:LOC1,234:LOC2,234::CANCEL.PRINTW:"-";:::SSĺ::: 40E 44567,LF1::LENGTH.OF.FILENAME LOC44578:5110:LOC44456:5110:LOC44459:5110::CR'S LOC44596:LOC,234:LOC1,234:LOC2,234:PRTĹLOC,206:LOC1,157:LOC2,179:CAT.STOP   FILE CODES LOC44);"PR#";SS::::(9);PW;"N":(9);"I"=  PRINT CATALOG N (T$)0ĺT$d I1PW:"-";:: FILE0:(4);"CATALOG" (FILEFILE1:FILE(FILECOL)COL0āI1SD:CR$;::1360: (SEE.LINE.37.) <" "; PFILENFČ44581:1320 :I1PLOG", xPRT1:5010:5020:5050:LF30:5000F NF0:I14081664128p LOCII39:(LOC)160NFNF1:LOC I::NF;" FILES" , SET-UP @PRT0:LFLL:5000:5010:5020:FI$"Y"PRT1 B5050: J44578,96:RTS.AFTER.FILE.NAME' M:(4QUIT"::" <-SELECT";> /6:" ";A$:(A$)A$(A$,1) 1A$"Q"Ģ(37):" TYPE ";Q$;"RUN";Q$;" TO CATALOG AGAIN.";:(37): 2A$""6000 F(37)3:42 c FIND NUMBER OF FILES dPRT0:5010:5020:5050:LF1:5000 n::(4);"CATAR.REQUIRES.LINE.FEEDS.INSERTED.IN.LINE.1320.) &SS0:PW40:COL3:FI$"N":SD1:LL17:Q$(34):G$(7):BS$(8)(8):DEFAULT.VALUES (:(4);"PR#0":PRT1:LF30:5000:5010:5020:5050:FLAG6000 *" = CATALOG ANOTHER DISK" +" =  ============================ MULTI-CAT MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BERT KERSEY BEAGLE BROS ============================ "PR#0":40#SLOT1:(PRINTER.SLOT)- %CR$(13):(LET.CR$=CHR$(13)+CHR$(10).IF.YOUR.PRINTE      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,16210N32>BSC11N48<pX015:H,V)XT$T$(XN):D:_:I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(917)256(918):UNSR4):H,V1!|BSC10TSC0SP0;BSC10TSC0SPSP1JSP21850PMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$vBSCH,V1):TSCH,V)N64:BSC13N80 BSCЭCOLĭSCT10T$BR$+COLĭSCT2T$BR$CCOLĭSCT2T$EX$ZCOLĭSCT4T$EX$JX21VSEL1:J:1:" ";::VSEL:1:958I21:1::" ";:2:T$;:JVI:H737:1960:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC115000:1060#A$MAX$A$"A"1060kCOLāI0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)1360COLāI0462:(COL1,I)TSCCOL1,I1)BSC)1360PCOLSCT3,I):SCT13SCT14T$RU$QCOLSCT1,I):SCT1SCT9T$RU$ ";:TSC14,2VSEL2):BSC14,2VSEL1):] WCOLĢVSEL:1:37):COL::8COL);"SELECT:"; `COLĹ16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)13360 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253: A$"#"İ" "N$" "VSELV21:1060o COLĺ" ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." COLĖCOL::N$;::N$" "Ė38:"." : $VSEL0VSEL24* VCOLĢVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;"1:VX442::V21:19 0LOCK$" ":0,V)10LOCK$":"P b1,V)1FILE$"]"g 1,V)2FILE$"*"~ 1,V)9FILE$">" 1,V)4FILE$(34) *LTRLTR1:TEST$N$:N$(LTR) \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$v 768,32:769,12:770,253:771,201:772,141:773,208:774,3:775,76:776,44:777,AE:778,76:779,60:780,AE:781,0 6MEM1463,0:MEM1464,3 hMAX$"W":D$(4):D$;NO$"C,I,O" 255::::1::D$;CA$ X1452:(5,X)11)ĂX LTR64:XXENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================== nMEM((978)((978)127)256)2562947:AE174(157(978)) xNS40393((MEM2925)16) 360 MEM1313,24:MEM1466,23 ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"ICOL0(COL=LETTER-COLUMN. CAN BE 1, 3, 4, OR 7. LET COL=0 IF NO FILE CODES WANTED)COL1COL3COL4COL7COL0z <=========================== "KEY-CAT" CATALOG M     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 );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# 58::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  ýì˨ë˨ë˨ë˨ű˨ű˨˨˨خ΍  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 INVE.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.INTQ$"."::::" 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"AC$"[" 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!!!==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;"""""""""  L H8H   G  !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅl(h)JL G ! | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   ) L m ERROR hhL ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($Hi i ()?` RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ $(*)+!h"0 H $(*0 ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i i d2080aMICRO-WARE : HBhi T ii / X v DISK SELECT (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H"" " " " "