8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LC! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ /SCRAMBLED.BASIC !'STARTUP. !TYPEM !P DELETED.TEST- 4FREE.CASH. 4 !'MEM.ZAP  !@ ,MEM.ZAP.1000  ! /MESSAGE.DECODER !%NOTES  !:%QSORT-  !@ *QSORT.DEMO !/(BZAP.BINZ !R(BZAP.VARj ![z *CALL.BASICq  ! CALL.BASIC.BINz !@ (CATA.LOG|8  ! (DATE.SET= ! LIST.LOCK  &PRODOS:2 ! 2 ,BASIC.SYSTEM&(2 ! 2 FREEBIES: ! HOME.MOVIES; ! ^  +BYTEZAP.PRO=6 !*(PRO.BYTER ' PRO-BYTER  COPYRIGHT 1985  BERT KERSEY AND  JACK CASSIDY  BEAGLE BROS,INC  ^ >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@ڍL3<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112`݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭ[ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ 'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i пJGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈ ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8`*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  ,0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭ )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H (  밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@LL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,L@   !"#$Ԡ͠ˠĠԠhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHх܅F݅G ` ͬ 밽܅F݅G ` * % L`FGL 4܍ݍ8`FHGH 4ܙhGhF`@Bɼ>K@yٙ٩`O dIpFqG :%&N  # 4܅F܅G `J HH hh` 0 @ L\L# [Tܝ ݝ0ȩFG  0` רם__)׍_pFqG 밍 hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>YL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬ%'()*+,-./0123456789JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)< &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| H06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭB 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aSL/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VW>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H Eо VV :$ZA@L8 `u-U -W b WW)JJ :T$K \0IDK : :5K 0.)K :쭼󬮼XK`L9L^ :K mY ܩ 8jK` J,, ( 5̪ ` J, ̪ ` J, `)a)_ͩ`0:8 `)H"H ת תh}I תhm8`0 :AG8 `) ת `..`SI-SRRX)sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_`:_`蹀:`V)8`MN; b;`;C b N8` G)̀#:蹀:`V)R ޾,N0MHhHh p' L,N HCNh`M`M N N `9V) ` V) ޾ p`  (8` 8`8`(W)`_V)Ij!؍Í`_ FjЭW)`_ Ͼ pH Lh8`jGMоM  G)p pY)ικ`lP *,N!ǾȾɾʾ pǾ~H h8`8`,C  8` ȾɾM$ mHݓǾ phϾ pH Lh8`Ͼо־ǾҾ_` 볩Ӿ pW) "LEC`C )莼 з l6 7= /& /8Hh /` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ ;τ<:: <`:8` e eվ'OV)Jj зf Ja l + ѱ:ji Ĥ Ƀ B ,  簰 ` l])Y 񩢍`Ⱦɾ0Ǿ p1׾ؾ  p p ٷ H rh(`׾ؾ` : ߭׾t8퍼mؾŰ펼t폼 L28` ˌھپLp k V)@W0!XY X6Y7` YX`X:Y) F з8` # `l׾ XYW0V)4W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSԩ p`S pLjÍ FN I 9 : ׾hؾ  p hgͺ칾`LٷV)jC mMjà Lp `VJJ°L9Lp з)< L з L緭W)8VJưϥ3 켼 `F`4W)ɐ/XYjV  kimljn` pg׾mȾXhؾmɾYtѮȾɾ aYX`8g@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt NB:VTC1AJ8: CH0:260:Z:PA:T0:TXTR:SXSE:BXBL:BL8:9000:BAA:BLB:9000:S:P((L)(LA)((LB)CRA)):PPZ44:840 *M$"A":7300:(L)(LA)(LB)6PA:CHA:A$"PASCAL DISK":S:280:3 4TR17:SE0:9000:(LC)CSE15:9000: "300:" "H$;:230:S: ,C1(A$)B:C221C1B:X$" ":KAC1B:X$X$"_"::X$X$" ":14:C2:X$:C2:C1)::C2:C1)::C2:X$:C2:C1):16:C2A:A$;: 6QQ,0:IA666:(Q)FĂ @ JI(X1024)F:C1(I):C2IFC1F:J(C240):HC2J40$D$(K196(P0)F)K132/ K130:1230? :"KEY";:e K(Q):KF220:QQ,0:A$(KF):m A$ A$" "((36)39(37)23)ĺA$; A$((A$)32(A$"_")): Z:22:23:Y::: 22::22)::22):22:: 300:860:310:S:<>?@ABCDEFGHIJKLMNOPQRSTUVWX20::Y::20:"D=READ DRIVE-1 DISK":E5((64435)6):20:"D=READ DRIVE-2 DISK":1890,222E 18:"ESC=QUIT";:EJ1890F((37)23):J,243:JA,227 21::5:"INSERT DISK":5:"AND SELECT: "H$;:230:21:Y:A$(27)Ā M$"A":K196(A$"D"):A,228301::255:(21):49166,0::9900f<8850:(4)"RESTOREBZAP.VAR":8900:D$"BLOADBZAP.BIN"rFPSLOT1HBMAX279JTMAX34LLFEED$""N24083,6Z(175)(176)TFTSĢ22:"BYTEZAP TOO BIG";:d24151:DR(48701):24084,DRA_ HOME.MOVIESuHUSTON!;'  '+APPLE.ALARM !;&WAGGER!;)ALARM.PIC !;*WAGGER.PIC !; \ ! :HELLO.FREDLONG.TIMENO.SEEFREEBIESuHUSTON!:'  '+ASCII.CHART ! :,ASCII.SWITCH ! :BAD.NEWS ! :+D.CODE.DEMO% ! :*MACHINE.ID ! :'OPCODESLLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TS:24081,51:D:14:A$" DOS 3.3 DISK ":PZ14:850 9CHA:M$"A":7300:PA:BL24:BA0:9000:S:I09:(LTFI)229Ă:BAA:9000:S:A$"CP/M DISK":280: >BL0:9000:S:A$"NON-STANDARD FORMAT":280:iH24081,80:S:A$" PRODOS DISK ":J(1281)176:JJ7(J9):JJ(J15)(J15):IAJ:K(1281I1):KK192(K191)F(K159K192):1281I1,K::A:20xR:A$;::\0,99:A,50:24154:f0,99:A,C:24154:pJ16:870:N158::: QQ,0::22::"BYTE VALUE ";:24:Pĺ"BLOCK P PRODOS COMMAND)";:9800:A$(27)ČZC:S:1005O(V$)V$"CAT,D"(DR)X$(V$,7):(X$"CATALOG"X$"catalog")I(49048)B:(I(IB)B)ĺD$"PR#3"206021::Y:D$V$:2070 (222)FF99009940:2150  SE15:LA,17:LB,11005$1810:1770:24094:1630;TĞ:23:31:"? "p:270:22::"SEARCHING ";:Tĺ"FILE FOR":1800"DISK FOR"Q$F$Q$;:W:M$"A"M$"S"M$"A":73002Z:P2080:TXTR:SXSE:NU0:260:23:"RETURN=CAT,D"DR" (OR ENTERA(F$):JPZIA:JFFJFFOS1AS%(J):C1(S1):S1,160:JA50::S1,C1:K(Q):KF1710:QQ,0:KKF32(K224):A$(K):A$"Y"1760:K32K160:RA:1220:R0:M$"A"M$"S"ĢVT:13::"<-"::24:20K78K13K271710:A:23):9000:S::SE(24120):TTC(24123):TR(TSBTC):SE(TSBTCA)]BXBL:TXTR:SXSE:S:Tİ3900XAS%(12(PZ12))12:330:I23VTA:I:13::"<-"::13:" ";::870:270:"MATCH #"SN:"SEARCH FURTHER? (Y/N):";::" "H$;:M$"A"M$"S"1730:I:9000:S:22::22):A:"CAN'T FIND";:SNĺ":";:1660Ir" MORE:";n|20:210:22::Y:9000:S:1005PZ(24121)(24122)TF:PBL(24117)(24118)TF:BA(PZTF):PZPZTF(PZFF):TTC(24123):BL(TSBTC)(TSBTCA)TF;PTR(24119)F:24118,(JTF):1580)(V$)1500C"PĹ24119,J:24120,0b,24121,0:24122,0:24123,0|6(F$)20F$(F$,20)@24128,(F$):IA(F$):24128I,((F$,I))::1810T1770:240916(J0)^(24124)84SNSNA:1670:hBLBX:TRTX:SESX:24125,682T:24081,5129P:270:"SEARCH ";:Tĺ"FILE FOR WHAT?":1530a"DISK FOR WHAT?"NU0:9800:F$V$:(F$)1005J0:I(F$)BA:(F$,I,A)","Ă:1590V$(F$,(F$)I):F$(F$,I1):MTM(BMTM)P:9520:JV:PĹ24117,J(JTF)TUIT NOW? (Y/N):":290:A$"Y"1005:260:23:TXTR:SXSE:K212K2046000:K2111500:K2103500:K172K1743000:K1987000:K2088500:K1952000:K2058000:K1945000:K1514000:K2177700:K2147500:870:1005KSN0:BXBL:TXTR:SXSE25ZK160I(MM):I6518(I65)B(I83)7(I67)C(I72):M$(I):7300:R1020:K132K196RA((24083)CE):DRA(K132RA):D$"VERIFYO,S"(24083)",D"DR:J6:9960K175K186PZ((K177).125FF):PZPZ(PZ0):10200K155ČS:A$"Q1020:OPZFF(PZFF):1020O`K172B(PZFF):PZPZTF(PZ):870:RA:3000wKK32(K223):EKK64((P0)F)K216O0:9000:S:880:1005K147İ260:"NEW SLOT:";:230:A$"0"A$"8"I(A$):A:C3(ICE):D$"VERIFYO,S"I",D"AC3:J6:99)FĂVK(Q):KF1105:S1,C1:S2,C2:S3,C3:QQ,0:K136K193K139K149K218K138K186K1731200:GAD((P0)F):EGA:K186K173G5:K13613(K173)[PZPZG(K136)GAZ(K193K139)G(K149)GAZ(K218K138):PZ0PZTFN(LPZTFBA):N;:M0,N:M08:D(N10));:2039,DR1762019,160(62E)(NFN160):2020,N:NNF(NF):1890,160:1891,160(62E)(N32):1892,NF(NF):JB$RıQI222:S1,I:S2,I:S3,I:IA40:(Q)FĂ:S1,C1:S2,C2:S3,C3:IA40:(Q73):S2S1:1045U (BA)S1CA%(PZ):S3S1((S1F)173)(PZ82PZ98):S2S1:1045S1CB%(PZ):S3S1((S1F)173):S2S1C1(S1):C2(S2):C3(S3):(Q)F1060<23::NPZTFPBA:N"($"(49PBA);:M0,PZ:M0A:")"A(N10)(N100)(NTF)):ART "%Pĺ"TRACK SECTOR "G:23:40:(24083);:Tİ3900:M$"A"M$"S"S2AS%(PZ):XS2:330:S1S212HBH(H5)(H9):S3S1A:1045M$"C"S2SC%(PZ):S1S2(M$"D"):S3S2(M$"D"M$"H"):1045PS1FI%(PZ):S3S1((S1F)15:::=*TR(LA):SE(LB):TRTRTMSE16İ9000:2110G42140>I06:F$(I)""::F$(0)((131)(132)TF):I(F$(0)):J06:ICJ,35:ICJA,35J11:ICJB,80::I06:A$F$(I):(A$)2140:(A$)FF2130:J((A$,C)):KJ(J16)16 CX((A$,B))RH(3210(JF))("TIA?B???S",KA,A)" "("00"(X),C)" "(A$,D,30)^R:2090t\TRTX:SESX:9000f210:(21)::ZC:S:1005 O0:T3100:P3050:QQ,0:K174TCTCA:TCTC(TCNS) K172TCTCA:TC0TCNS TR(TSBTC)J2" ":JJ2:(C1C2)6110:6130>,T0:TS,0:TSA,0:6140^,T0:JJB:NSJB:TC0:6020,A$"NOT A FILE?":(PTRFF)(P(LJ))A$"DELETED",TRTX:SESX:BLBX:9000:S:280:1005,XZ--nCHA:260:"FORMAT? A=ASC S=SCRN H=HEX D=DEC C=CA"J0:FI$FI$" ":AXĹTSB,0:TSC,0:JB:6130+PC1(KJB):C2(KTFJB):KJLFFĹTSJB,C1:TSJC,C2:16:27:AJB" ":JJB:(C1C2)6100:6130",PC1(KJ):C2(KJA):KJLFFC1TMC216ĹTSJB,C1:TSJC,C2:16:28:AOO LARGE":6150*PĭJC(LJ)BL(LJ17)(LJ18)TF:BL0BLBMA$A$" BLOCK 1 ":300:FI$"":K(LJ):KK(K16)16:IAK:FI$FI$((LJI))::9000:6080*6140*PKL12:TS,TR:TSA,SE:J0=+PKL:TS,BL(BLTF)TF:TSA,BLFF::PJ35((PZ11)35)11:J10TR(LJ):SE(LJA):TRTRTMSE16A$A$" SECTOR 1 ":300:FI$"":I029:FI$FI$((LJCI))::9000:6080*PC3PZTFBA:J39((C3D)39)D:X(LJ19)(LJ20)TF:S3((LJ)16):S3136140:S33A$"FILE T,V:S:PZPZ(PZFF):5040E(<880:24111:CS(24149)(24150)TF:(pTXTR:SXSE:BXBL:K2046040:(TS)(TSA)A$"TRACE-FILE NOT LOADED":280:1005(TT0:TM$"A":7300:CHA:3900:P3030:K174:3080(22:24:W:S:1005)A$"LOADING "A$"F"İ860:50507'JCĭA$"0"A$"9"İ860:5050]'A$H$ČS:PZPZ(PZ0XA):5040k' XXA:A$'JCVV(A$)(10(BX)):VFFV0:S:860:5040'JBVV((A$)487(A$"9"))(16(AX))'(AJV(A$)FX(2XAJ5050:LPZ(TFBA):[&""H$;:0,99:A,A:24154:N140:(Q)FĂ:S2X(JC),C1:N140:(Q)FĂ:5070&K(Q):QQ,0:A$(KF):A$(27)5095&870:ZC:S:RA:1005:R0:T1005:P3040:K174:3090&A$" "A$H$İ860:5050'JBĭA$"0"(A$"9"A$"A")230:ZC:FXF(A$"Y")J%A$(27)A$(13)1005:A$"Y"A$"N"5010%OA:RA:1020:R0:XS2:330:JC(S1S2)(S1S3):XA:V0:M$"A"M$"S"JA%:HA(J3):VT(A)ĢVTA:J)&VTAB(VT20):HA(JC):J):VT:H(JC)X:C1(S2X(JC)):"TYPE "Q$"YES"Q$" TO"::"WRITE";::"-";:NU0:9800Q$V$"YES"Č240736Ps$I(ER):IJ8D(I43):9910$O0:ZC:TĴP3030:3090$1005$5180%M$"H"M$"D"5040:260:23:"FOR ASCII BYTE-CHANGES,":"WANT HIGH-BIT SET? (Y/N):";:VVMV03680#SEV)#T0:90006#QQ,0:S@#1005u#<:22:24:"TRACE:"(FI$,11);:24:Pĺ"BLOCK ";#FPĺ"SECTOR ";#P31:10);:23:31:TCA" OF "NSA::#24114:880:CS(24149)(24150)TFA$"CANNOT WRITE":99308$Z:270M35000"A$(13)A$(27)ĴT1005:VTCAn"$TTCVA:TCTC(TC0):RA:1005:R0:P3030:K174:3080"8PBLV:BAA:3760"LTRV"`270:"READ TRACK "TR;:M0,TR:M08::"WHICH SECTOR? ";:M15:9500:A$(27)TRTX:1005"tA$(13)VSE#BLBL(K172)(K174):BA(K174):BLBMBL0>!l BL0BLBMK!v 9000:Ss! K(Q):KFR3160:R0:QQ,0:1005! A$"READ WHICH ":X$"TRACK? ":MTM:PX$"BLOCK? ":MBM! TA$"TRACE WHICH ":MNSA:PX$"SECTOR? "! 270:A$X$ " 9500:270:VFR3050:R0:1015!  P3160U & QQ,0:SESE(K174)(K172):SE15TRTRA:SE0m 0 SE0SE15:TRTRA} : TRTMTR0 D TR0TRTM N 9000:S:K(Q):KFR3110:R0:QQ,0:1005 X QQ,0:(BAAK174)(BA0K172)BA(K172):9000:S:3200.!b :SE(TSBTCA):9000:S= K(Q):KFR3000:R0:1015| QQ,0:(BAAK174)(BA0K172)BA(K172):9000:S:3090 K174TCTCA:TCTC(TCNS) K172TCTCA:TC0TCNS BL(TSBTC)(TSBTCA)TF:BA(K174):9000:S  K(Q):K;:2039,212:8:230:A$(13)A$(27)7200e-A$"H"A$"D"A$"A"A$"C"A$"S"7022:M$A$- 7300:22:23:Y:RA:1005:R0:S:TĴP3030:3090-*1005-M$"C"DF$M$-MM,(M$):AZ1223(M$"C")4(M$"C"P):S:.LZ:24:23:W:ILPZTFBA:PZ(FF)(BA)N(I)(IA)TF:" 2BYT:"N10000)N"($";:M0,(NTF):M0A:M0,N(NTF)TF:M0A:2039(N1000)(N100)(N10),169.`23:23:" BITS: -----";:W:N(I):JN:K8AA:30K(K5):J(JB)BA;:J(JB):M/t22:24:W:N234I))::V$(K)+<*&V(V$):VMV$"":8607<4&A$"":Q";>> BACK UP YOUR DISKS!":5:"ONE MISTAKE COULD RUIN YOUR DAY.":t:"IA36:"_";:::(#PĹU,BL(BLTF)TF:UA,(BLTF):UB,66BA:UC,80:24064:<#PĹUB,TR:UA,SE:UC,51:24070:F#(ER)39ġ:J8:9910;P#CHı?A$A$;::" "::2:5:32):1156,28:1187,47:1492,47:1523,289"5:13:":"14)":":13:" BYTEZAP.PRO ":13:":"14)":":::12:"COPYRIGHT (C) 1985":8:"BERT KERSEY & JACK CASSIDY":13:"BEAGLE BROS, INC.":^:"13:C:8910:1580,32:1611,32:124:I:J(40)(41)TF:I(I24):KJJ39:N(K):NN95(NFF):N159ĺ(N);:86408!NN64(N32)64(N95):(N95(N127NFF));8!:A:LF$:(Q)155Ă8!A:LF$:LF$:D$"PR#0":8180@9":20:5:32):A$"..........":I1931:I:5:" ";::A$MM,(M$):9000:MP0::S:1005\74!A$"PRINT SCREEN NOW? (Y/N):":290:A$"Y"A$"y"8580o7\!MP8030:10057!A$"FIX PRINTER":300:A::D$"PR#"PS:LF$:LF$:D$"PR#0":S:MPTITSB:8035:85907!MPĹ2039,DR1767!A:D$"PR#"PS:LF$S8!IA24(6@MPA::MM,77:S:(ER)39ė:8180H6^T8160:ITSB:8035:8160c6cIIB:(I)(IA)ı6hPJ(I)(IA)TF:D(J16):JJ(J16)16:18J(J7)6rPĢD(IA):C(I)6w:"*"::80356QQ,0:22::210:A$"P"Ė1:W:8500!7QQ,0:A:X$;:W:24:H:7730l5ZX7āS1A(F$)C:(X$,C,C)(F$,S1,C)Ă:XC:X$(X$,B):36,23X:860:7735{5]X1577356xXLPZTFBA:K(S1C):J((X$,6,B)):XA,JB(K7):X,32(K(K8)8)((X$,B)):XB,((X$,B)):XC,((X$,8,B)):A$"":77257354GK149KC1,4HK155A$"":7725~4KA$(KF):((X2X6)(A$"0"A$"9"))((XAX7)(A$"A"A$"Z"))İ860:77354P(K);:XAX5ĺ"-";4RX8ĺ" ";4SX11ĺ":";5UXXA(XA)(X5)(X8)(X11):X$X$A$:(X$,B)"31"İ860:H(36):A:005032OA:5180:ZC:24:23:" ";:X0:X$""R37C1(2023X):K(Q):KF77503<N140:(Q)FĂ:""H$;:0,99:A,A:24154::2023X,C1:N140:(Q)FĂ:77354FK(Q):QQ,0:K136XXXA(XC)(X7)(X10)(X13):36,23X:X07730:X$(X$,X):7ZC:S:1005I2(2023)188Ģ24:20:" DD-MMM-YY HH:MM";:Z:77302(C2I(I32)32:C3(J2):(48(C210))C2"-"(F$,3((I32)8(J(JB)B))A,C)"-"(48(C310))C3" "(48(K10))K":"(48(X10))X;:Z:20:210:X11ĺ":";3-A$"Y"ČZC:S:1((LD)16)1310101Z:24:23:W:23:W::24:"DATE TIME ";::F$"???JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC?????????":24:24:C1PZTFBA:I(LC1):J(LC1A):X(LC1B):K(LC1C)2J199X99K99Iĺ"";:W:20:210:A$"Y"XAS%(PZ):330:IAS%(PZ)12H2H(H5)(H9):J(I):I,JF64(J192):J(I1):I1,JF64(J192)022:38:210:ZC:S:TĴP3030:3090010050870:P1005:I2826239:(BAAPZIPZI9)(BA0PZI22PZI13)Ă:10101PZ37BAA7590:"TOKEN:";:NFĹ1774,NF:1773,16265(N32):1775,1622(N32):7590/NN127:C132((N32)(N64)(N96)):I53455139(N32)136(N64)82(N96)53854:(I)FC1C1A:C1NKIA:I55555:JKK9:((J));:(J)FĂJ/If0M$"A"M$"S"=f&A$(13)ı'=p&A$(27)V$"":>=z&A$H$İ860:9810{=&(36)((V$)0):" "H$;:(V$)1V$(V$,(V$)A):9810=&H$;:9800=&9940:1:J(222):A$"ERROR "((222))", LINE "((218)(219)TF):R0=&J17ĭ(ER$(J))A$ER$(J)>&3288:JFFK155:1250S>&(1492)47PSĢ22:(7)"BZAP.BIN OR BZAP.VAR MISSING";:}>&K147JCJ8Ĺ24083,I:K196:1230>&K132K1969960>&280::S:1005>&9900>&>&JCDRARA>&24084,DRA:48701,DR:24151:800:1005$($$(`Z T!$($$ (`Z T!$($$(`$($ T$($` %T$()?(()?( %T %T$()?(()?( T %T$()?(()?( %T`($($`$($`(R8ZZZReReZZ W W [L[ [L[ [L[ \L[ 2\L[ S\L[ x\L[ \L[ \L[ @V`$($ Z$($ %TνZ$($`$($ T$($`Z T!T쩠$($ %T$($ %T$($`$($`$($ %T$($ %T %T$($ %T %T %T$($` %T$($` .QtӠŠà %T T %T %T$($ %T$($ %T$($ %T$($ %T %T$($ %T %T8# TLY T %T %T$($ %T %T$($` %T$($ ɠ $($ %T$($ %T$($`$($ T$($` %T$($ ɠ T쩠$($ %T$($ %T %T$($ %T %T$($ %T %T %T$($` %TR RLW`+CRjy-^]^LfA^ bifbi@fbifbi@fffE %+Ș@^ A^Q% L;^ ^ȱ^^^LNe^c i@^ ^^cc вbbbb`c bbLoec bθbb`g`9^b:^bc?cm;^  ^ȱ ^ ^ ^L(f G_^^^^^P^ ^^S^A `P`Le`Q`ci@`FLGd^PLdLpe5^^6^^ _ Gf5^) bbbm9^bbm:^b`7^ ^ Gfg`8^bbbm9^bbm:^b``````Qcc@mccO8ccc`c` `c`c` `c`c` `ccз`g`9^b:^bc?cmcc]^ ^^<^Lc<^]^ EgL$c Ah<^]^bͳbbbLb<^]^X^P`b)i@`Loc`b)i@``P``` `b)A^LcB^ +R`ɛ ]^cLc^^c`5^)c6^c7^cc;^c^P =^FLd^3 =^Ʌ a.^a`[a-^aaa [(((eea.^a`V^@qV^U^`g` i` Ib`5^6^7^8^9^:^;^ b`bibbib]^b b`b]^ ^^bbLb c]^b fb]^@Rb +RRλbPR ^^.^.^.^.^.^.^^@^` ^^^^^^``^ ^ ^`[a -^aaa [(((ee __m__@m__````` `````` L?`` `g` ^` Ja ^^^.^.^.^.^.^.^^@^^h` ^^L`^^^^h`ݭ^"g`@L` ^g`` Ja ^`P`_`_``` ` ``AABABABABABABABB ^^^.^.^.^.^.^.^ ^'_m^^m^^ ^7_^`  ^ ^^jn ^jn ^jn ^^)_^A __ ^L___ ^` _^P ^) _L` ^íӳŴõԶϷҸáġšӴŵöԷϸҹıűñ X$ [:l T$ [ T$ [cl T$ [zl T$ [l T$ [ T $ [l T$ [l T9k$9ki [9k m Tm T%$9ki [9k m9k3m T3m T3m T9k9kL n9k$9k [()?('9k9kLgn`()*+,-./0123()*+,-./0123()*+,-./0123PQRSTUVWXYZ[PQRSTUVWXYZ[PQRSTnopqrstv            ()*+,-./0123/0123456789:;<=>?@ABCDEFGHIJKLN(*,./0123456789:;<=>?@ABCDEFGHIJKLNPRTVWXYZ[\]^_`abcdefghijklmnopqrstvPRTVWXYZ[\]^_`abcdefghijklm  #      !"#$&(*,./0123456789:;<=>?@ABCDEFGHIJKLN(*,./0123456789:;<=>?@ABCDEFGHIJKLN(*,.*-/258;=@BEGJL(+,-./0123456789;>@CEHJLPRUWZ]`cehjmortPSTUVWXYZ[\]^_`acfhkmprtf "$  "$      "$((*-/258;=@BEGJL(+,-./0123456789;>@CEHJLPRUWZ]`cehjmortPSTUVWXYZ[\]^_`ac       "$  "$(+,-./0123456789;>@CEHJLN-0369<?BEHKN-0369<?BEHKNUX[^adgjmpsvUX[^adgjmpsvUX[^adgjmpsviklmno #&  #&  #&  #&-0369<?BEHKN-0369<?BEHKK IJKC1C2S1S2S3ABC@DFFFTFP0@aM0$MM$ Q@QQ@TS|DDNDRER<$QHZ(A$)ĺ(L$,COL):8000 H(A$,18,3)"DIR"2200 \SUBSUB1:A$(A$,2,15)p(A$,1)":800,123PR:5008 ?A$"S"SRSR0:801,123SR:500e DA$"D"DRDR(DR1)(DR2):802,DR:500v XA$"B"500 SR5000 PRė:"PRESS ESC TO QUIT":" ---" RPRCOL79:(21):(4)"PR#"PSLOT  UNSORTED 2 (4)"PREFIX,D"DR:(4),255192(SR1):"YES";::"/";:50,255192(SR0):"NO ": &"[D] DRIVE NUMBER................";:50,255192(DR1):" 1 ";::"/";:50,255192(DR2):" 2 ": 0:"[B] BEGIN":"[Q] QUIT"::868:"SELECT:";:A$:A$:A$"Q"63000 :A$"P"PRPR0 THE FILE NAMES FROM ALL OF THE DIRECTORIES --- ON A PRODOS DISK." 11::"[P] USE PRINTER AND 80-COLUMNS?.";:50,255192(PR1):"YES";::"/";:50,255192(PR0):"NO ":= "[S] SORT/MERGE SUBDIRECTORIES?..";:50{}~--- --------------- ------- -------" 6T$" NAME TYPE BLOCKS MODIFIED CREATED ENDFILE SUBTYPE" :(21):(4)"PR#0":::::": :":" CATA.LOG ":": :":g :"THIS PROGRAM WILL DISPLAY 100663999:(4)"SAVE/PRO.BYTER/CATA.LOG":Ad9000Sn(4)"-QSORT"YePSLOT1SUBDIR$(25),FILE$(125):FI1:COL39:PR((800)123):SR((801)123):DR(802):DR1DR2DR(48701)( ,L$" ------------------- ------ ------------ 7LD:CONTFORI=1TOX:PRINTA$;:NEXT8ؾGiliȑUifiȑȑ8ȑ`yz轐A30A 7LD:CONTHPLOTX,YTOX+L,YTOX+L,Y+LTOX,Y+LTOX,Y׾ؾGiliȑUifiȑȑ8ȑ`yzl30f 7LD:CONTFORI=7TO0STEP-1:X=2^I:Y=B>=X:PRINTY;:B=B-(X*Y):NEXT8ؾGiliȑUifiȑȑ8ȑ`yz A30A)"A":A$(3)"L"' 'CS958:CL868:<' TITLE SCREEN ':X:":"12)":":X:" CALL.BASIC ":X:":"12)":":::X8:"BY BERT KERSEY & RANDY BRANDT":X1:"BEAGLE BROS, INC."::X:"(READ PAGE 38)":':24:37:"KEY";::KP,128:KR,0::24KEYKEY32(+%KEY1962000: DEMOD0%KEY1974000: ENTERc5%KEY1936000: ASSEMBLE:%KEY204Ģ21::"COME BACK SOON.":?%BP$;:& DEFINE VARIABLES  'ST16492:D$(4):Q$(34):BP$(7):KP49152:KR49168:A$(0)"D":A$(1)"E":A$(2"PREFIX":PFX$:VOL$PFX$E(4)"OPEN"PFX$",TDIR":(4)"READ"PFX$A$:(A$,28,1)"0"(A$,28,1)"9"FIFI1:FILE$(FI)A$:21::(A$,COL)(A$,18,3)"DIR"5160SUBSUB1:A$(A$,2,15)(A$,1)" "A$(A$,(A$)1):5120SUBDIR$(SUB)PFX$A$"/">((16384)1555250:(A$,3)"BLO"5060<(4)"CLOSE":NFSUBNFNF1:PFX$SUBDIR$(NF):20:"READING SUBDIRECTORY...":5020d953,1:950,FILE$(0):PRCOL79::(4)"PR#"PSLOT1x:VOL$:8000:(T$,COL):8000:(L$,COL):8000:I0 48647,00:48648,03:SENDS PRODOS TO $0300CLOC768:$0300SCMD$"LIST"lER10:PRODOS.ERROR#A:A0ĹLOC,A:LOCLOC1:30:8,160,0,185,0,2,217,26,3,208,11,200,192,4,208,243,40,169,10,76,9,190,40,76,158,190,-1' #781,(CMD$):I1(CMD$EN::958::"TYPE "(34)"RUN"(34)" TO MAKE A CHANGE." 1:N$; 110b DA((X$,2)):MO$(X$,3,3):YR((X$,6,2)):HR((X$,8,2)):MI((X$,10,2))u (X$)11100 YR99MO12MO1DA31DA1ĺ(7);:100 49041,YR2(MO7):49040,32(MO(MO8)8)DA:49043,HR:49042,MI:EN1:8:1:20;134THT2:170L HT6MO$(X$,2)A$:MO112:MO$(MX$,3MO2,3)Ă:110^ A$;:X$X$A$ (X$,2)"31"((X$)2X$"01")100:HTHT1(HT2)(HT6)(HT9)(HT12) HT8N29(MO2):N$(N):(MO2MO4MO6MO9MO11)(X$,2)N$X$N$(X$,3):HT4ĭMO$"F"MO$"S"MO$"O"MO$"N"MO$"D"X$(X$,2)(MX$,3MO2,3):(MX$,3MO2,3);:HTHT3:170 HT5MO$(X$,1)A$:MO112:MO$(MX$,3MO2,2)Ă:110 HT5ĭMO$"AP"MO$"AU"MO$"JA"X$(X$,2)(MX$,3MO2,3):(8);(MX$,3MO2,3);:H:X$""H n1403,HT1:HT:A$:A$(8)100:A$(13)200:A$(27)510 x(HT3HT7)(A$"0"A$"9")110:HT1A$"3"110:(HT11HT14)A$"5"110:(HT3HT7)A$"A"A$"Z"110:(X$)10110 HT4MO$A$:MO112:MO$(MX$,3MO2,1)Ă:110i 90d P(48(DA10));DA"-"(MX$,MO32,3)"-"(48(YR10))YR" "(48(HR10))HR":"(48(MIN10))MIN ZEN510::"NEW DATE AND TIME:" d11::958:"DD-MMM-YY HH:MM"::" WHEN FINISHED":" TO START OVER":" TO QUIT":12:1:HT1 :(21):::83"CURRENT DATE AND TIME:"k2MX$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC?????????"<A(49040):B(49041):MIN(49042):HR(49043)FYR(B2):MO(A32)8(BYR2):DAA(A32)32 KYR99MO12MO1DA31DA1ĺ""::958:"TYPE "(34)"RUN"(34)" TO CONTINUE.":7(16384)155Ĺ222,255:9000%h3'# ERROR e(#(12):(4)"PR#0":(4)"CLOSE":(222)255Ĭ2#(7);:(222)6ĺ"QSORT MISSING FROM DISK":"-----":F#(222)3DR1:802,DR:150K#(222)8ĺ"I/O ERROR":I1999::150P#216,0:120:0FI:(FILE$(I),COL):8000::(L$,COL):8000(A$,COL):16368,0:(12):(4)"CLOSE":(4)"PR#0":PRSRĺ"ANY KEY:";:A$:A$:150"[R] TO REPEAT, OR ANY KEY:";:X$:X$:X$"R"5240:150? PG.BREAK @PRLNLN1:LN55LN0:(12)T):793I,((CMD$,I,1))128::786,ERj (:CMD$".LOCK INSTALLED."::"RUN 999 TO REPAIR.":"-------": 48647,158:48648,190::I1(781):((793I));::" O.K.":L:@Ԡ׿ٯΩ`̠Ϡ A B CC &HLAɉ DLAɄ DLA OJLAɛLA HLA _OLA KLA xGwG@ GLACɈ ELAɕ ELAɺ ELAɭ ELAɊ ɾɮL@C ELAɋ ɼɬLAC ɺ 8鰍KL%Lǰ 8i KL%LKmKKKK;K`KEY ISLSL JSL SLSL=L JSL P`L$L [LLL((LLՠ$ [`κغ$ [()$ [%ԠӺ LJ KKJ\K qILKK qILKK @K @ @)@ @@KXK鿐KK X@@ B`JKKK JKJQ QP JKLK K`P8KKKKK.K.K.K.K.K.K.K.KKP$($`ǠƠźĠƠźŠΧԠŠðð L J KKJLJKMJKNJJ KKJLJMJ͆KNJK qILJMJNJKK/J TLLJMJ@NJ@K@K@@ @@ @ @)@ @@ B`ϠCC̍C B` I$I!I%I0I"II#I"I#I"I"I#I$I%I$I$I˭%I`mIInIIoI IpI!I &I` IIIII II!I &I` $)GG G 4LH0 B0`%H@ I`LDHLDH B`ΧԠԠΠŠĠð̢ҠŠҠKEYΧԠԠ٠H L TLLI @: @;:ɾ;鿐:; LHH TLLI X c LkH B @8頍 @ @@8頍@@ BL/G @8 @ @L3G@8 @ @8@@ B @8 @ @i@@ B L`@wGɰ ɺ @wGLG ǰ@wG` 8D7D@`C 8鰍GLG8i G @ xGwG@" @ @ $) G 4C ELH @ @Eaɀ bɀ@Ebɀ aɀ@ECɺ @ECCɭ @ECCɈ5 @ xGwG@$E@ @8 @ @LF @ @ @L3GCɕ$E@ @i @ @LF @ @L3GɊ;E@" @i @ @@i@@ BLF @i @ @L3Gɋ;E@"EEFE @GE @HE8@ @IE@ @JE ME@@ 40 B0`EEGEFEHELaELEEEmIEFEmJEGEmIEHEmJE JEKEKE D KELEIELE DLE`EEFEGEHE JEKEKE D KELEIE DLE`@@(C$C(ȭC(CCC8 C`@7D @@ @@ @7D ILD@ @@ @ @7D ILD @ @ @7D ILD` 8D7D@` @EE @FE @GE @HEGEHE8@ @IE@ @JE ME @ @ 40 B0` 8D7D@` @EE @FE@@@X@ @@ @8 @ @ @@ @@ @ @X @@ @@@i @@i @`HJJJJoC$($h)oC$($`8 @@C @@CCJJJCCC) CC)C mCiCC$C [$(C)? @(ȱ(C)? @@ @@`$($`$ [ BBB m@B@iB$B [B CB C BBBBB $ C$($BB婠 BBB $ ɠ $($LB$($BB٩ B BBBL*B L`@Y@鿐@@@ @@ @L!C@ELA qI @CLAC @Cɛ L@ B CC BL=AL@@ L"@ BL``````ة)00 @%HLA@%HSA$ 8SIEJEIEQT  XS@@T@@@ @)HJ$L JL7ML JL7ML J @ C @ C J @ @ENFN UNGNHNINJNLMGNL JHNL JINL JJNL JKNL J J J J @ @ $ENFNEN C J UNINJN LMINL JJNL JKNL J J$($ J J@ C@ C J@ C@ C$ [()`'d ENLNFNMNGNHNINJNKNLNNNMNONGN8LNNNLNMNONMNLrNLNPNMNQNHN8LNPNLNMNQNMNLNLNRNMNSNIN8LNRNLNMNSNMNLNLNTN JN8TNLNLNLNaɀ bɀbɀ aɀɺ ɭ Ɉ5  wv$ 8  L   L2ɕ$ i  L  L2Ɋ;" i  i L i  L2ɋ;" DE F G8 H I L 40 0`DFEGL`LDmHEmIFmHGmI IJJ D JLHK DK`DEFG IJJ D JLH DL`($(ȭ(8 `6   6 L   6 L   6 L` 76` D E F GFG8 H I L   40 0` 76` D EX  8      X  i i `HJJJJn$($h)n$($`8  JJJ) ) mi$ [$()? @(ȱ()? @ `$($`$ [  mi$ [ ~ ~  $ ~$($婠  $ ɠ $($L$($٩  L) `Y鿐  L L p L ɛ    L<L? " L``````ة)00 $L$R$ 8RHIHQT  X#$ )L9Ԡ׿ٯΩ`̠Ϡ    %Lɉ LɄ L OLɛL L _L L wv LɈ Lɕ Lɺ Lɭ LɊ ɾɮL Lɋ ɼɬL ͮР٠ˠ٠éŠӬýǡĠŠŠǠӠͮŠΠ&RQ JPPPPPPJQ`$QJQP` J$QQɠ  QLQɈLdQP] J$P$LQɘPQ$$($Q$LQɛPPJQLQɍPPJQLQQJL"Q J `QJQɰɺLQǰLQ qIL&RQJ P qILPJO LOJ2O TLL+PFO TLOJLO B`ǠϠȠҺ L:P JJQ QPOP)OO`PPPP8 P`JPPP $)OOJPPPLP0PP`KN`ȠҿٯΩ`ΧԠĠ٠ΧԠĠΠӠ PPOL6PJOO@P@P@8OP@PPP PPJ]JOP @P @ @)@ @@ B LO J CCPPPPPPLOJOL+8頍  8頍 L. 8  L28  8  8  i  `vɰ ɺ vL ǰv` 76` 8鰍L8i   wv"   $)  4 L   $)  4L0 0`$ `LCLC `ΧԠԠΠŠĠð̢ҠŠҠKEYΧԠԠ٠  TL : ;:ɾ;鿐:; G TL X c j 12::"*B___: ";:I1(W$):X$(W$,I,1):CO1:[ A$:A$X$A$"DONE"COCO1:160 A$"DONE"Ģ15::(7);"SORRY, NO "X$"'S ALLOWED":" -":"ANY KEY:";:A$: CO14N0:(HEX$,N1,1);:LELE1:800, NCO14(CO14):(HEX$,N1,1)b(HEX$"0123456789ABCDEF":::(21):::A$": :":A$:" MESSAGE.DECODER ":A$:):"(SEE PAGE 69)":8:W$"":"NEW MESSAGE: ";:657:I512767:(I)141W$W$((I)128):i(W$)Āk(W$)80W$(W$,80):8:14:W$;:9583 nͮР٠ˠ٠éŠӬýǡĠŠŠǠӠͮŠΠ&"!   !`$!! ` $!!ɠ  !L!ɈLd! ] $ $L!ɘ !$$($!$L!ɛ !L!ɍ !L!!L"!  `!!ɰɺL!ǰL! pL&"!  pL  2 TL+ F TL `ǠϠȠҺ :  ! !  )`   8 `   $)   L 0  `K`ȠҿٯΩ`ΧԠĠ٠ΧԠĠΠӠ P L6   8   ]   )       LL+($   ~ ~  ~ ~$ [()`'d ELFMGHIJKLNMOG8LNLMOMLrLPMQH8LPLMQMLLRMSI8LRLMSMLLT J8TLLL$ L7 L7   ~  ~   EF UGHIJLG H I J K       $EFE ~  UIJ LI J K  $ ɺ 8鰍L%ǰ 8i L%m;`KEY SS S SS= S `$ [L((ՠ$ [`κغ$ [()$ [$ԠӺ  \ pL pL   ) X鿐 X ` ! ! L ` 8........ $($`ǠƠźĠƠźŠΧԠŠðð   LMN LM͆N pLMN/ TLMN   )  `Ϡ̍ `# $0!"!"!!"#$##˭$`lmno  %`   %`;:LELE1:800::BYBY1:"F";:LE0ĺ"0";N ,::"("BY" BYTE"(83(I0)); 6")":1:"ENTER THE BYTES BELOW AT ONE OF THE":"ADDRESSES LISTED ON PAGE 69.":868::"DON'T EXCEED THE NUMBER OF BYTES":"ALLOTTED FOR THE MESSAGE BEING CHANGED.":11:"]CA....TO BEAGLE BROS. STATE....ZIP.......WE SHIP SAME DAY.":"NEW DISK INCLUDED.";I24151:I:20::"^";(8);::J19::"!";::1251,190:14:20:"+";:I2140:I::"=";(8);::J19::"-";:90 [ESC] LETS YOU QUIT":::" NOTICE:":::"IF YOU DON'T HAVE NAME...............A PRO-BYTER MANUAL, CLIP THIS COUPON---> ADDRESS............";"AND MAIL IT ALONG WITH $34.95 (+1.50) CITY...........231407128:JI1,160:J41I,160::::4:41(V$):V$;958:I1333:::" THIS PROGRAM IS AN UPDATE TO YOUR PRO-BYTER INSTRUCTION MANUAL.":" [ANY KEY] ADVANCES TO NEXT PAGE [LEFT-ARROW] GOES BACK A PAGE "A$:cMR.CHIPS,MR.ED,MR.GOODWRENCH,MR.MAGOO,MR.ROGERS,MR.T,MR.OCTOBER,MR.WIZARD,MR.WONDERFULo:90001063,160:1191,160:1319,160:1447,160::A$": :"<I215:2:30I:" PRO-BYTER "::30I:A$:1:I:A$::I:" NOTES ":J10" QSORT ";::" (PAGE 42)":8000"QSORT ALWAYS INCLUDES THE FIRST ARRAY ELEMENT (#0) AS PART OF ITS SORTING PROCEDURE. DON'T FORGET TO LOOK AT THE ZERO-TH (FIRST) ITEM AFTER SORTING."::"-->";:I08:A$:4:50,63192(I0):"A$("I") = " 90000 ::" PRODOS PROBLEMS ":8000 :"]RUN PROGRAM"::"PATH NOT FOUND":::"]CATALOG"::"PATH NOT FOUND":: "IF YOU'RE HAVING PROBLEMS, READ PAGES 4, 53 AND 54 IN YOUR PRO-BYTER MANUAL.":9000#::]-[D] TO 1F. -- - CHANGE BYTES [F],[G],[H] & [I] TO 00. WRITE CHANGES TO DISK. -- " :"- ADD $01 TO BYTES [S] BY THE DIRECTORY NAME. (EXAMPLE: 0900 BECOMES 0A00.) WRITE THE CHANGE TO DISK. DELETE A FILE FROM IT."::"- RUN BYTEZAP.PRO AND FIND THE DELETED FILE NAME (SEE PAGE 15)." :"- CHANGE THE DELETED NAME. IF LESS THAN 15 CHARACTERS, END IT WITH SPACES." :"- REFER TO PAGES 30-31 IN YOUR MANUAL, AND CHANGE BYTE [CF DATA":" ER=6: PATH NOT FOUND"::" ...ETC."H 9000 ::" BYTEZAP.PRO ";::" DUMMY FILE NAMES ":8000:"HERE'S HOW YOU MAKE ZERO-BLOCK CATALOG TITLES LIKE THOSE ON THE PRO-BYTER DISK:";:g "- MAKE A BACK-UP COPY OF A DISK, ANDROR MESSAGE MAY BE CHANGED BY ALTERING THE VALUE OF VARIABLE 'ER'. SEE YOUR PEEKS & POKES CHART: LOCATION 222, ERROR MESSAGE CODES 1-21:"> :" ER=2: RANGE ERROR":" ER=3: NO DEVICE CONNECTED":" ER=4: WRITE-PROTECTED":" ER=5: END O(2255:(21)::49166,0:PG1:9900_FPMAX8:PG5000,3000,5500,6037,6000,2000,4000,1000::" LIST.LOCK ";:::" (PAGE 37)":8000:"NOW YOU CAN INTERCEPT ANY SPECIFIC NON-PRODOS COMMAND BY CHANGING THE STRING 'CMD$'." " THE ERLL-151 <-(TRACE OVER)"# @10:@ LE2LE0:BYBY1:" ";f *: A,C,D,E,F,I,L,M,N,O,R,T,U," " 4B,G,H,K,P,S,V,W,X,Y,/,(,),.,":",DONE I014:J01616:I14J0N47657JI:J1:N","(N)((N)100)((N)10))" ["((N))"]"; ::00L|::5:" CONTROL-S ":1:" BYTEZAP.PRO ";::" (PAGES 5-35)":8000o"NEW COMMAND:":"-----------"13:"NOW LETS YOU SWITCH TO ANOTHER DISK DRIVE SLOT."*:"THIS FEATURE IS USELESS, UNLESS YOU HAVEDRIVES CONNECTED TO DIFFERENT SLOTS. (HARD DISK USERS: SEE NEXT PAGE.)":"IF YOU HAVE AN APPLE IIC OR 128K IIE, YOU CAN SELECT SLOT 3 AND LOOK AT PRODOS'S BUILT-IN RAM DISK, WHICH IS THESAME AS SLOT 3, DRIVE 2.":14:"- -" 9000p::" BYTEZAP.PRO ";::" MO*IH+I*ImH*I+ImH+I"Im*Im+I!I#IHȱȱ`H*IH+I*ImH*I+ImH+I"Im*Im+I !I#IHȱȱ`HHHH LFHHHHHH E GH&I`HHHH EHHHHHHH LF GH&IHHHHHH 'C`HHHH EHHHH LF GHHHHHH EHHHH LF GHHHHHH EHHHH LF GHHHHHHHHLEHHHHHHLEHHHH`HHHH EHHHH LFHH"I`H F FHHHHHHHHHHHH ELDHHHHHHHH E8HHHHHH8HHHHHHHHHHLHHHHHHHHHHH 'CHHHHHHHHHH 'CLEHHHHHHHHHH 'CHHHHH&IHHHHHHHH CLB G`H HHȭHHȭHHȭHHH`H &IHLCH'IHH HHȹHHȹHHȹHH`8HHHHHH0H(IH)I`HmHHHmHHNHnH EHHHHHHHH EHHHHHHHHHHLB'I Ƅ 愭&I`0ȱ#I!I"ILvB0ȱ0$I!I"ILvBȱ%I!I"ILvB愭&I`II愭I8II ILBI III III8II I B`HHHIH IH 'C LCHkAlA8mAHBnAmAmkAmAnAmlAnAoApAkAlAqpAmAnAoA`B,IfAmgAtL L&!Pɠ @oAʹ pA͵L@gA ȍiA8dAjALhAiAcAdA<=< /< @<Ș @Lx@ @< @< @L@cAdA<=eAfA>?hAiABC , @oApA`dA fAmjA`e<<=i=`"-";::4(#16368,0:2037,75:2038,69:2039,89*#K(16384):K1289002:16368,0:KK128:K27Ģ23::868:23:(4)"-/PRO.BYTER/STARTUP"2#K8K10PGPG1:PG1PGPMAX<#K8PGPG1:PGPMAXPG1F#70&(222)6Ā&216,0: ILL ONLY READ THE FIRST 279 BLOCKS ON YOUR HARD DISK. DOS 3.3 DIRECTORIES AND FILES MIGHT NOT BE READABLE AT ALL.":"SEE PAGE 77 IN YOUR MANUAL FOR PROGRAM CHANGES THAT CAN BE TRIED TO GET YOUR HARD DISK TO WORK."d9000 @:I140: BLOCK (PG.33) FOR NO APPARENT REASON."49000j::" BYTEZAP.PRO ";::" HARD DISK NOTES":8000"BYTEZAP.PRO WAS DESIGNED TO READ FLOPPY DISKS. IT MIGHT WORK WITH YOUR HARD DISKAND IT MIGHT NOT. DIFFERENT BRANDS VARY.";}:"THE DISK MAP WISK (NOT JUST THE ONE YOU HAVE READ FROM) BY REMOVING THE CHECKSUM STATEMENT (WITH VARIABLE 'CS') NEAR LINE 4000."*:"- YOU CAN'T EASILY UNDELETE A PRODOS FILE LARGER THAN 1 BLOCK, BECAUSE THE 'DELETE' COMMAND ZAPS A FILE'S INDEX RE...":8000z"- A MINOR CHANGE: IF YOU HAVE CHANGED ANY BYTES THAT HAVEN'T BEEN WRITTEN TO THE DISK, ATTEMPTING TO MOVE THE CURSOR OFF THE SCREEN WILL NOT SWITCH TO THE NEXT BLOCK-HALF OR SECTOR.":"- YOU CAN WRITE A TRACK TO ANY D`!I#IBH+H/HκHHHͽHHH 'IHLG&IHLG!I$I$  &IHLG'IHLG &IHLG'IHLG`HHHHHH EHHHHHμHλH LF GH&IL|HH"IHHHHHγHβHHHHH LFHH"I׊ב"IHγHβHH0HHHH LF GH&I𿭲HHHHHH LFH"IHHIͰH IHLG`Hˠ٠100: PRO-BYTER COPYRIGHT (C) 1985 BERT KERSEY AND JACK CASSIDY BEAGLE BROS, INC. 3990 OLD TOWN AVENUE SAN DIEGO, CALIFORNIA 92110 (4)"SAVE/PRO.BYTER/STARTUP":dV$"29-MAY-85"i255:49166,0:10000 n(21):::D$(4):D$"PREFIX/PER COMMANDS)": LIKE 'NEXT'a r100:THESE POKES HAVE NO EFFECT ON COMMANDS TYPED DIRECTLY FROM THE KEYBOARD.z  UNSCRAMBLE.BASIC 47190,189:47181,180:47170,169:47150,149:47177,176:47167,166 :X039:X:0,39X:0,39X:X:::"(SAME PATTERN WITH PROPMAKES 'CLEAR' WORK LIKE 'GR'J @47181,129:"MAKES 'ON' WORK LIKE 'FOR'} J47170,160:"MAKES 'SPEED=' WORK LIKE 'COLOR=' T47150,142:"MAKES 'XDRAW' WORK LIKE 'HLIN' ^47177,143:"MAKES 'GOSUB' WORK LIKE 'VLIN' h47167,130:"MAKES 'RESUME' WORKZ(21):3005d:X039:X:0,39X:0,39X:X21:1:958:" THIS PATTERN WAS CREATED BY LINE 100, USING SCRAMBLED COMMANDS (SEE PAGE 39). YOU CAN RUN 999 TO UNSCRAMBLE THEM. -------";:23:, SCRAMBLE.BASIC  647190,136:"MEWHERE,HEARTS,ARE,LIGHT,AND,SOMEWHERE,MEN,ARE,LAUGHING,AND,SOMEWHERE,CHILDREN,SHOUT,BUT,THERE,IS,NO,JOY,IN,MUDVILLE,MIGHTY,CASEY,HAS STRUCK,OUT "SORTING STARTS WHEN YOU PRESS A KEY:";:A$:A$;:5:1:958N 950,A$(0)u I0N1:(I1)10)I1". "A$(I): 23::"]RUN TO TRY AGAIN.";:23: OH,SOMEWHERE,IN,THIS,FAVORED,LAND,THE,SUN,IS,SHINING,BRIGHT,THE,BAND,IS,PLAYING,SOMEWHERE,AND,SO>d:(21):::::"SOME RANDOM WORDS..."::(4)"-QSORT"GN18Q1:1^A$(N1)kI0N1:J1((1)42)1:A$(I): I0āK0I1:A$(I)A$(K)Ă:A$(I)" ";(112((36)30));:868:270 I0260I:(36)ĺ(8)"!"? ,: RO.BYTER":PFX$"/PRO.BYTER/" :1:15:":"11)":":15:" PRO-BYTER ":15:":"11)":":::12:"COPYRIGHT (C) 1985":8:"BERT KERSEY & JACK CASSIDY":13:"BEAGLE BROS, INC."::I1999: I139(V$):9:I:" "V$::9 ,:" RUN A PROGRAM:"::@ ROW031:COL03:NROW32COL:COL0ĺ"c"(ROW64);:50U -N127ĺ" ";:50` /(N); 2" ";:140:" ";:NN128:140:COL3ĺ" "; xCOL::ROW15ĺ (16384)155135:ROW (12):(4)"PR#0":F LITE$;(N100COL3)(N10))N":$======":30[ BOLD$;A$:30:" APPLE II ":30:" ASCII VALUES ":30:A$: " Low High Low High Low High Low High":"------------------ ----------------- ----------------- ------------------"  500 BOLD$(27)"E"2 LITE$(27)"F" :REMOVE.LINE.13.AND.FIX.THE.2.VARIABLES.ABOVE.WITH.YOUR.PRINTER.CODES.(MIGHT.NOT.WORK.WITH.YOUR.PRINTER--CHECK.ITS.MANUAL) :" PRINTER NOT ACTIVATED "::(4)"PR#1":::I16:::A$"============׾پھؾ p  Lp ɛ۾TYPE X RP0) OPPBCQ? ,`Š䍊嬠㮊8Llm ٹNPQRTUS` B ξtϾ pL о־޾"Q"A$(27)9060 n#6000-'216,0:"HOME.MOVIES":D$"CAT"|<#18:"^^^":195:I3111:I:("(YOU CAN RUN ANY BAS PROGRAM.)",I,1);::255::18:"---":22Z#:" SELECT:";:V(37)1:H(36)2::" [M] MAIN MENU":13:"[Q] QUIT NOW";:V24V23d#V:H:" "(8);:A$:A$"M"100:A$-DATE.SET" D$"-MEM.ZAP". D$"-NOTES"u p20::958:(4)"PREFIX":PFX$:"THE CURRENT PREFIX IS:":PFX$;: z22::958: X9050 b:D$"CAT":9050 @9050 J:D$"PREFIX"PFX$"FREEBIES":D$"CAT":9020 (#90502#:D$"PREFIX"PFX$8000:A$"H"9000:A$"B"A$"C"A$"D"A$"Z"A$"N"500 X9:A$"N"ė:"TO RETURN TO THE MENU, TYPE "(34)"-STARTUP"(34)"." A$"B"1000:A$"C"2000:A$"D"3000:A$"Z"4000:A$"N"5000: D$"-BYTEZAP.PRO" D$"-CATA.LOG" D$"::" SEE A DIRECTORY:":::" [M] MAIN DIRECTORY . . . . . .PAGE 4 [F] FREEBIES SUBDIRECTORY . . . . .4 [H] HOME.MOVIES SUBDIRECTORY . . . 4":@ 24:1:" PRESS B,C,D,Z,N,Q,M,F OR H: "(8);:A$:A$;:A$"Q"A$(27)6010:A$"M"7000:A$"F"36::" [B] BYTEZAP.PRO . . . . . . .PAGE 5 [C] CATA.LOG . . . . . . . . . . .36 [D] DATE.SET. . . . . . . . . . . 37 [Z] MEM.ZAP. . . . . . . . . . . .44" ^" [N] NOTES (MANUAL UPDATE) . . . . .4 [Q] QUIT & RUN ANOTHER PROGRAM . . 4" ";:N%N16:(48N%7(N%9));:N%NN%16:(48N%7(N%9))BOLD$;: ::(21)::"TO PRINT AN ASCII CHART,":"READY YOUR PRINTER AND PRESS [P]:" :"OTHERWISE, PRESS [Q].";:(37)1:34:A$:A$:A$"P"11:A$"Q"500::: SWITCH768:7001( 2 POKES AND A CALL: X26,(" ")128:CHANGE SPACES TO...<7,("!")128:EXCLAMATION POINTS!FSWITCHH MORE... K:12:13:" PRESS A KEY. ";::9# PA$"<<<<<(!)>>>>>)!(<":MAKE THE LAST CHARACTER THE SAME AS:I120:S(C)::A:22:24:" CRASH ":868:I199::22:5:868::24:" STOMP":J15:S(C)::A:22:24 '"# *":24:" \STOMP/ ":B.7:22:24:" ":24:" STOMP ":A:B$"-- P R O G R A M P R O O F E R --":226 ("D COD1150:::246:J15:21:1:"BBUGG*";:I150::1:"BUGS ":I113:::21:1:868:23:1:"BUG*":J15:S(49200):u &246:A:A$(0)" BUG* ":A$(1)" BBBUGG*":I124:23:I:A$(I(I2)2):J155:::I1523:I:26:"STOMP":I1:26:" "::246:"D CODE'S "Q$"D.BUG"Q$" PROGRAM GIVES YOU THE POWER TO TRACK DOWN (AND STOMP ON) THOSEBUGS... ";:246:"F A S T !":246| %15:1::"BUGS";:1::246:"BUGS":"BUGS":J199::A:24:1::39)::I199::I1721:I:1:"BUGS":I1:" | ":J:24:1::39); 2039,32:23::35,23:J116:I15:S(C)::I133:::::B$"-- M A I N F E A T U R E S --":240:258 $"ONE OF THE MOST FRUSTRATING THINGS ABOUTAPPLESOFT PROGRAMMING IS TRYING TO FIND THOSE GOOD-FOR-NOTHING PROGRAM BUGS.":D B176:C49200:D1:(21):::B:Q$(34):G$(7):A255:230,64 :A$": :"::214:A$" D CODE "::214:A$": :"::214: A$"BY ALAN BIRD - BEAGLE BROS, INC.":214::I20002039:I,32:J11:S(C)::J11:::246:S... < :I768774:A:I,A:: 169,199,32,12,190,24,96 I118:A:769,A:768:(37)::28,32,35,36,51,56,63,69,44,77,79,93,198,141,151,152,199,129:2 PRODOS.ERROR.MESSAGES ]d:(21):768,169:769,0:770,32:771,12:772,190:773,96I221:769,I:768:998::LDA.WITH.2.TO.21.AND.CALL.$BE0C.(WHICH.JMPS.TO.$9F88),::"RUN999 FOR AN EVEN STRANGER LIST. ------";:  ERROR.MESCH" A:A256ĹL,A:LL1:720 169,0,162,4,133,254,134,255,160,0,177,254,197,6,208,4,165,7,145,254,200,192,120,240,6,192,248,240,6,208,235,160,128,208,231,160,0,166,255,232,134,255,224,8,208,220,96,999 :(21): THE FIRST, AND YOU'RE ON A ROLL!b ZI2(A$):6,((A$,I1))128:7,((A$,I))128:SWITCH: _(16384)12890:16368,0 nI2231601:6,I1:7,I:SWITCH: I1999:::12:13:" NICE JOB. "::11:  MACHINE LANGUAGE  LSWITE CONTAINS AN AUTOMATIC APPLESOFT ERROR CHECKER. IF YOU TYPE A PROGRAM LINE (OR ANYTHING) CONTAINING AN ERROR, YOU WILL IMMEDIATELY BE NOTIFIED.":246::"SUPPOSE YOU ENTERED A PROGRAM LINE..."::A$"500 GOSUP100: PRNNT"Q$"HOTDOG"Q$)N2:4:"]";:248:A::" 500 GOSUP";::""G$;::"100:PRNNT";::""G$;::" "Q$"HOTDOG"Q$:B:246:A::" ERRORS ARE REPORTED IMMEDIATELY, BEFORE YOUR PROGRAM IS RUN. ------":I18:18:13:"^^^ ^^^";:J199*:1:868:J1 D CODE'S ADJUSTABLE-SIZE TRACE WINDOW WORKS IN 40 & 80-COLUMNS, AND MAY SIMULTANEOUSLY DISPLAY PROGRAM STATEMENTS AND VARIABLE VALUES":21:1:"-";:22:"*":34,15:222"200 X=20: VTAB 16: X =20 HTAB 1: SPEE::X(37):A:21:1:958:"*---------------------------------------":X1:3"]";:G2:256:A$"RUN":248:J12::X126:A$:22:1:" X ="X" ";:21:"A$(X)="A$;:868::" X*50 ="X50:K1250XJ::::I920:I:1:868::12:1:B""D CODE ALSO LETS YOU TRACE A PROGRAM'S VARIABLE VALUES.":A:"-------- ------":BQ"WATCH WHAT HAPPENS TO THE VALUES OF VARIABLE X , EXPRESSION X*50, AND STRING ARRAY A$(X) AS THIS PROGRAM RUNS."::13:10:" X ";:26:"X*50":14:"A$(X)":N LAYOUTS LIKE APPLESOFT'S TRACE.":124:M:H:34,21]h" PRINT : PRINT : NOTRACE"::126|Q(37)1:O(36)1:22:34,21:M:H:"PRINT "Q$A$Q$";: ";:J1P::M(37)1:H(36)1:Q:O:A$;:J1P::V~B$"-- V A R I A B L E T R A C E R --":226:75:A$"IT ":124:A$"IS ":124:A$"EXECUTED ":124:A$"HERE ":124:A$"ON":1246g:A$"THE ":124:A$"SCREEN...":124:A$"UNDISTURBED BY THE TRACING!":124:P0:A::I140:A$"%":124::P500::A$"D CODE'S TRACE DOESN'T MESS UP YOUR":124::A$"SCREE68:X1:3:"]";:A$"RUN":248:11:1:120):22:1:958:12:1:M22:H1:P123:255RfA$"NOTICE ":124:A$"HOW ":124:A$"EACH ":124:A$"STATEMENT ":124:A$"APPEARS ":124:A$"IN ":124:A$"THE":124:A$"WINDOW ":124:A$"BELOW ":124:A$"AS ":124:PECUTION. ----":246:3:"]";:A$"TRACE":G1:256:248::A:X(37):21:1Ve"----------------------------------------";:958:B:24:15:"TRACE WINDOW";:B:I113:24:26I:"=";:15I:"=";::1:"<";:2039,190:246:22:1:868::8RACED! --- ------":98:18:25:"<---CRASHED HERE":98:23:1:868:100bA:I19:16:1:"-->";:J199::1:3);:J199:::[dB$"-- W I N D O W - T R A C E R --":226:"YOU MAY ALSO TRACE YOUR PROGRAM'S STATEMENTS "Q$"LIVE"Q$" DURING EXRN 100 PRINT "Q$"DOGFOOD"Q$" 110 VTAB Y: HTAB XX"::::::246::20:"A-HA!";::K(37):98:K1:1:BJ0"A-HA! WE NOW HAVE A BRIEF HISTORY OF OURPROGRAM, AND WE CAN LOCATE THE PROBLEM--ANY NUMBER OF STATEMENTS MAY BE TT PRETENDING.)":17:2:G6:256:17:1:120):18:B:"WE CAN LOOK AT THE LAST 10 STATEMENTS THAT WERE EXECUTED BY TYPING..."::4:"]";:A$"DUMP10"/N4:248::34,7:35,23:222:" 90 TEXT : HOME : NORMAL : GOSUB 5000 5000 XX = 887: PRINT: RETU AUTOMATICALLY KEEPS TRACK OF WHICH STATEMENTS HAVE BEEN EXECUTED."::"FOR EXAMPLE, SUPPOSE YOU HAVE A PROGRAM THAT CRASHES WITH AN ERROR...":246::A.G$"?ILLEGAL QUANTITY ERROR IN 110 ]";:G4:256:1:"]"::255:"(DON'T PANIC--WE'RE JUS GOSUB TO A NON-EXISTENT LINE <#>":3:"2. AN ILLEGAL STRING ASSIGNMENT ":3:"3. AND A SYNTAX ERROR ":246::14:18:"<#>":14:"";:28:"":B$"-- H I S T O R Y T R A C E R --":226-"D CODE INVISIBLY MONITORS PROGRAMS AS THEY RUN AND:""G$;::"100: INPPUT";::""G$;::" NAME$"::B::"UH-OH!";:246::1:"UH-OH! LINES 10 & 45000 HAVE PROBLEMS.":246:"THREE KINDS OF ERRORS WERE REVEALED:"::3:"1.":3:"2.":3:"3."::14:18:"<#>":14:"";:28,""::20:3:"1. A99:::246:21:1:868::B:"FIND HIDDEN BUGS THAT ARE READY TO BITE!";:226:"YOU MAY ALSO CHECK AN ENTIRE PROGRAM FORERRORS IN A COUPLE OF SECONDS. WATCH..."::3:"]";:A$"CHECK":N4:248:::" 10 GOSUB 12345";::"<#>"G$:+" 45000 A$ = ";:D= 255 X*50 =1000 210 PRINT "Q$"AND"Q$";: A$(X)=FREE CASH INVERSE : PRINT Y =191 "Q$"VARIABLE VALUES."Q$80):255:246:J12:15:1::"PROGRAM STATEMENTS":868:I1100J::15:" "::"PROGRAM STATEMENTS":I1100J:::15:26::"VARIABLE VALUES":15:26:868::26:"VARIABLE VALUES"::16:20:"/ \"::B$"-- F A S T F I N D E R --":226"D CODE WILL FIND ANY WORD OR CHARACTER IN AN APPLESOFT PROGRAM...F-A-S-T !"::3:"]";:A$"FIND"::A:" HISTORY TRACER ";:B::" SHOWS THE MOST-RECENTLY USED STATEMENTS AFTER A PROGRAM STOPS":::A:" WINDOW TRACER ";:B::" NEATLY TRACES STATEMENTS AND VARIABLES IN A SEALED-OFF WINDOW":,B$"-- I N T R O --":226:36-16368,0::ARITHM::" PACKS PROGRAMS TO SAVE SPACE";::A::" SYNTAX CHECKER ";:B::" PROOFREADS PROGRAMS AND FINDS ERRORS BEFORE THEY OCCUR"::A::" FINDER ";:B::" LOCATES ANY STRING IN 2 SECONDS";:::A:" BREAKPOINTS ";:B:," PRE-SETS ERROR TRAPS"::A:9,32:8:::B:#*J1999::0*G2:256{*I1(A$):"";:254:" ";:254:(A$,I,1);:(A$,I,1)" "G1:256*254:I:G1:256*K((1)25)N:J1K::*255:K1G:"";:J1250::" ";:J1250:::+A::" COMPACTOR ";:B152):K128F152303)49168,0:K141F14240C)K209230a):A:24:1::958:23:)A:7:1::40):7:21(B$)2:B$::RāI823:I:1:40)::244)I823:I:1:40(I16)):::24:39):2039,32:8:::B:*:24:39):203L:E1A(ISED:Z(C):36,P:PPD:(A$,I,1);::::D0D:(246:255:24:1::A$" TO CONTINUE TO QUIT ":2039,32:24:I3911:I:(A$,I,1);::F0:16368,0)24:4:" ";:I199::4:"RETURN";:I1888::FF1:K(49:A$"]":I1324:I:1:A$;:I1:1:" "::I120:S(C)::A:23:1:A$:" ";'I199::23:1:868::1:A$;:J15:S(C)::A:23:1:"!!":A$;:B.5:23:1:" ":"] ";:A:23:(A:L(A$):P((33)LD3(D1))2(D0):S1:EL:D1S1:24:I:A$(I(I2)2);:J155:::I1824:I:8:"POW";:I1:8:" "::I120U'S(C)::A:23:7:"CRASH":868:I199::23:1:868::8:"POW";:J15:S(C)::A:23:6:"# *":7:"\POW/";:B.7:23:6:" ":7:" POW ";:A:246:2463.3 AND PRODOS";'%I26:186::188_%:I:"AND";:J1200::I::"AND":I:"---";:1:X&" PRICE: $39.95"::" POWERFUL: VERY!":246:A:I131:24:I:A$(I(I2)2);:J155:::868:A$(0)" *BUG ":A$(1)" *BBBUGG ":I306SIBLY BE EXECUTED."%B$"-- T H A T ' S A L L F O L K S --":226::" D CODE ";::" APPLESOFT COMPACTOR & DE-BUGGER":"COMPATIBLE WITH: APPLE II+, IIE AND IIC";:I33:186:" GPLE AND DOUBLE-TAKE";:I23:186::" PLUS: DOS EW LENGTH : 3210":" -----------------"$" BYTES SAVED: 1111":246:15:27:"UNUSED CODE:":28:"LINE 50":28:"LINE 3000":28:"LINE 5050":246:B:15:27::"UNUSED CODE:"::20:Q$"UNUSED CODE"Q$" MEANS THAT THE PROGRAM LINES SHOWN CANNOT POSNVERSE.":246:B$"-- P R O G R A M P A C K E R --":226+#"D CODE LETS YOU COMPACT ANY APPLESOFT PROGRAM SO IT TAKES UP THE LEAST AMOUNT OF MEMORY AND DISK SPACE POSSIBLE."::"A TYPICAL RESULT MIGHT BE...":246:255::" OLD LENGTH : 4321":" N" 300 ":168:X$" = 500: PRINT "Q$"INDY "Q$";":168::X$" 5020 PRINT "Q$:168:X$"LOS S":168:X$"ED ":168:"L."Q$:170!X$;::A$;::;":" OCCURRENCES: 6":246::B:"ALL OCCURRENCES OF THE SEARCH WORD ARE LISTED AND HIGHLIGHTED IN IGOSUB 50"Q$".";:246:"SEARCH MOST PROGRAMS IN UNDER 2 SECONDS!":226:"FIND & LIST? (THOUGHT YOU'D NEVER ASK!)---- ----":246::3:"]";!A$"FINDL":250::A:" SEARCH FOR:";:A$"CAR":248:::222:X$" 80 A$ = "Q$:168:"ROT"Q$": GOSUB 5000":X$248::255:" SEARCH FOR:";:A$"GOSUB50":248::246::210:" 10 50 65 590 2000 6010 5480 5490 12000 12150": " OCCURRENCES: 10":246::B:"THIS SHOWS US ALL OF THE PROGRAM LINES THAT CONTAIN THE SEARCH-WORD "Q$"ETIC,BELL,COASTER,DING-DONG,ELEPHANT,FROG,GOLF BALL,HELICOPTER,INK,JUJUBES,KING KONG,LADDER,MOO-OOO,NITPICK,OSTRICH,PROWLER,QUAIL,ROOSTER,SAN DIEGO ZOO,TULSA,UNCLE LOUIE,VALENTINE,WAXY BUILD-UP,XEBEC,YOOHOO,ZULU:(21)::ALOC49048:"MACHINE ID BYTE:"LOC" ($BF98)" P(LOC):" VALUE:"P" ($";:P1P(P16)16:P2(P16):(P2487(P29))(P1487(P19))")" " BITS:";:I18:BIT(I)P(P2)2:18I(I4):BIT(I);:P(P2)::::BIT#1.ON.RIGHT/BOCLOC1:P13120:P0200:150Y "--------------------------":(12):(4)"PR#0":x ,(12);:350::PAGE BREAK ^PGPG1:" -------------------------- PAGE "PG" OF 5":> 72,32,89,34,3C,80,D2,3A,52,1A,7C, --------------------------":LOCLOC1K }X$((LOC))((LOC1)): X$"18"X$"1A"X$"09"X$"E9"İ300:OPTIONAL FORM FEED (16384)155200 A$:A$"XX"145:A$X$140:" <65C02> ";:150 " ";" P(LOC):(P);:L:"---------------------------------------": A"READY YOUR PRINTER, AND PRESS

OR QUIT NOW BY PRESSING ." P22:35:" ";(8);:A$:A$:A$"P"100:A$"Q"80: c d i(4)"PR#1"::350, x(LOC1)13(LOC)13ĺ" HIS PROGRAM PRINTS A 5-PAGE LIST OF APPLE'S 6502/65C02 INSTRUCTION SET." 7:"INSTRUCTIONS MARKED <65C02> WORK ONLY ON THE NEWEST APPLES--THE APPLE IIC AND ENHANCED APPLE IIE."::"OLDER APPLES SUPPORT ONLY THE UNMARKED (6502) INSTRUCTIONS."/ <gEOP(175)(176)256:LOCEOP4120EOP:(LOC)54(LOC1)57(LOC2)32Ă:"CODE MISSING":|(:(21):::24-"(IF YOU'RE NOT INTO MACHINE LANGUAGE, THIS PROGRAM WON'T INTEREST YOU.)":M 2"---------------------------------------":"T4A$"PROFILE"* DR0A$"DISK DRIVE"1 JR " SLOT "SL": ";:(A$)ĺA$h (A$)ĺ"EMPTY?"p SL (4)"PREFIX":A$:"CURRENT PREFIX: "A$ "LAST USED SLOT: "(48700):"LAST USED DRIVE: "(48701) 22::J1I:A$::600w :USED,PRINTER,JOYSTICK,I/O CARD,MODEM,AUDIO CARD,CLOCK,MASS STORAGE,80-COLUMN CARD,NETWORK CARD D(LOC5)72(LOC7)72A$"PARALLEL CARD" XJ4894648946(48945):P(J):P127PP128 bP16SL650 lDRP16SL vDR(LOC55)207(LOC76)234A$"SILENTYPE":600g (LOC)8(LOC1)120(LOC2)40A$"CLOCK":600 (LOC5)24(LOC7)24A$"COMMUNICATIONS CARD":600 (LOC5)56(LOC7)24A$"SERIAL CARD" 0(LOC11)1I((LOC12)16):I10II1::TYPE5120B P"THIS IS AN APPLE "APL$(TYPE)" WITH "MEM(K)"K."^ d" CLOCK:"HUH$(BIT(1)) n" 80-COLUMNS:"HUH$(BIT(2)) x "POSSIBLE SLOT CONTENTS:" SLOT17: NO, YOU CAN'T PEEK AT SLOT 0! LOC49152256SL:A$""0 (LOC23)201IT#8.ON.LEFT TYPE4BIT(8)2BIT(7)BIT(4):APL$(0)"II+":APL$(1)"???":APL$(2)"II+":APL$(3)"???":APL$(4)"IIe":APL$(5)"IIc":APL$(6)"III":APL$(7)"???" 2K2BIT(6)BIT(5):MEM(1)48:MEM(2)64:MEM(3)128 FHUH$(0)"NO":HUH$(1)"YES" KTYPE4B2,12,DA,5A,FA,7A,F2,92,64,74,9C,9E,14,1C,04,0C,XX,<<>> `Π69 00 ADC #$00 65 00 ADC $00 75 00 ADC $00,X 6D 00 00 ADC $0000 7D 00 00 ADC $0000,X 79 00 00 ADC $0000,Y 72 00 ADC ($