' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(.< ŠӠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`i d . z# u`,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 TLL;::")": ============================ MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BERT KERSEY BEAGLE BROS ============================G":1 ============================ MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BERS 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  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==?,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,16242,150,3,160,56,185,0,149,162,8,10,144,8,238,149,3,208,3,238,150,3,202,208,242,200,192,196,144,232,96C9(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(917)256(918):UNSR4(917)256(918):UNSRQ3:35:32,37:33,3::"---------------------------":5:" SECUSE":" SECFRE":5:" ";U:9:" ";R:::e 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,1N64:BSC13N80$ BSC10N325>BSC11N48YpX015:H,V)XT$T$(XN):a:|:I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R12BSC13)8(BSC10BSC11):H,V1<|BSC10TSC0SP0VBSC10TSC0SPSP1eSP21850kMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::(4);T$vBSCH,V1):TSCH,V)5,I1)BSC)(4,I1)96,I1)9)1360, P PSCT3,I):SCT13SCT14T$RU$c SCT10T$BR$u SCT2T$EX$ JX21VSEL1:J:1:" ";::VSEL:1:958 I21:1::" ";:2:T$;:#JVI:H737:1960:TSC:H,V:BSC12(BSC4q VVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)13360 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253: A$"#"İ5000:1060 A$MAX$A$"A"1060& I0462:(5,I)TSC1,V)4FILE$(34)4 *LTRLTR1:TEST$N$:N$(LTR)p \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$" "N$" "VSELV21:1060 " ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." : $VSEL0VSEL2,0:MEM1464,32 hMAX$"W":D$(4):D$;NO$"C,I,O"N 255::::1::D$;CA$l X1452:(5,X)11)ĂX LTR64:XX1:VX442::V21:1 0LOCK$" ":0,V)10LOCK$":" b1,V)1FILE$"]" 1,V)2FILE$"*" 1,V)9FILE$">" (978)((978)127)256)2562947:AE174(157(978))T xNS40393((MEM2925)16)^ 360| MEM1313,24:MEM1466,23 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 6MEM1463f ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"<=========================== "KEY-CAT" CATALOG MENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. ===========================5 nMEM(     AAAAAAAAAAAA@@@@@@@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAA LINE FEED.)3!! ::::"PR#0":N1024:1750:169>!'1810T!'N1872:1750:169!`================== SCREENWRITER COPYRIGHT (C) 1982 BEAGLE BROS 714-296-6400 ================== 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    @@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAAAAAAAA@@@@@@@@@@@@@@@@@@@@@@@@AAAAAAAAAAAA);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 ST$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 LARD ";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ĺGL@@@@@ύ˨ŷԨŷԨ˨èԺԺ̭İǍ˨ҤҤҤҤҤèҤ̭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: ";FILZPnFi<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      #4 COMES ONLY WITH ALPHA PLOT";:2039,(".")G :(16384)1272500d( 16368,0:16304,0:100j'#(#FORI=21626TO21722STEP3:PRINTI;":";PEEK(I),PEEK(I+1),PEEK(I+2):NEXT:NEXTXT(SITION 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!"-24:1::" TIP BOOKT8:"TITLE: ";T$dT10:"ALL CORRECT? (DEFAULT=YES)";:15:" ";A$:(A$,1)"N"1005P$"YES"ĺ(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ĺELI$:ELI(ELI$):ELI$""ELI655358VELISLIELISLI[`ELI$""ĢT4:16:"END":1140mjT4:16:ELItT6:"USE PRINTER? (DEFAULT=YES)";:15:" ";PO$:T6:16:PO$""P$"YES":1160~P$"NO":(PO$,1)"Y"P$"YES"P$;:958:: (DEFAULT=80)";:15:" ";SW$:SW(SW$)IN:SW$""SW80IN:T:16:SWY8SWSW1BT2:"START LIST AT: (DEFAULT=START)";:15:" ";SLI$:SLI(SLI$):SLI$""SLI0:T2:16:"START"#LT4:"END LIST AT: (DEFAULT=END)";:15:" ";LEFT$,RIGHT$,MID$$ PARAMETERS TA$(255):Q$(34):N768:T5:TFS256:10000::"PR#0":::" XLISTER ";::" BY BEAGLE BROS":LOOP0:I031:A$(I)(I)"(c"(I64)")"::I32127:A$(I)(I)::I128234:A$(I):M.T:"COLUMN WIDTH# 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$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   @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                  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  EFORE 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."$"* PO:" 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."8" SEE LINES BSIBLE 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,(".")25004:: 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 "::"CREATE INVI!K212ĺ"RUN TEXTTRAIN DEMO"1K2131000IK198Č25003::12:::" UTILITY CITY ";::" 21 PROGRAMS ($29.50)"::" APPLESOFT LIST FORMATTER "::"A BETTER LISTER! EACH STATEMENT ON A NEWLINE, LOOPS INDENTED, IF-THEN'S CALLED OUT,200::130:110MK(16384):K196K193K212K213K198K209ıc:16368,0::2116301,0:24:5:"COPYRIGHT (C) 1981, BERT KERSEY"::23:16::"C":1::I11500:K209Ģ10:K196ĺ"RUN DOS BOSS DEMO"K1932000= 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:" ";:6:I1,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::""Od:21:" D= DOS BOSS DEMO F= REPEAT FLY SHOW T= TEXTTRAIN DEMO Q):::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 ,10127G J1M(I):XXXI:YYYI:2X,Y:6:2X,Y:1X,Y:X(I)90Y(I)5424i 6:1X,Y:6:2X,Y:6:2X,Yq : 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((1)55)(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::2X,Y::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::: Q110:J11:S(B)(B)(B)::Q139:A(Q),C(Q)::Q135:J11:S(B)(B)(BE(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^^":25003 :21691,          ýì˨ë˨ë˨ë˨ű˨ű˨˨˨خ΍ ~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`|`?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#`"9^ (M)OVE "rA$"M"3000wUC1:MF33:1760:"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:L1Pd FILE A$"L"1630d1760:"DO YOU WANT TO LOAD 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:162 (Q)UIT !FA$"Q"1430_Z1760:"READY TO QUIT? (Y/N):";:A$:1:1730:A$"Y"169n23:1:" GOTO 9999 TO CONTINUE.";:22: (H)ELP A$"H"153016299,0:1730K(Q):K1281470QQ,0:16300,0:170 (L)OAD;:A$:1:1730:A$"Y"169*:20:169@ (S)AVE SCREEN RA$"S"13501760:"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":169R$(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  999d&9999:8500:5:SP:"YOU CAN ALSO CATALOG BY FILE TYPE...":V9:9200:200::" APPLESOFT ":0" HELLO":" OLD RECIPES":" MISC.INSTRUCTIONS":" SLIPPERY DIGITS":99996SP:5:868:4:A$"ALL FOUR":9000:" FILE TYPES IF YOU LIKE!":V6:9200SP:" <-WITH OR WITHOUT":23:"VOLUME NUMBER":255:9999:11:15:" ";:9999:868:12:8689999:SP:8500:5:1:"FILE CODES CAN ALSO BE ALTERED.":A$"]]>!!--]]>":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 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#`"aa cŠa a c̤a a `LbحaaaaɀL>ca)̴aiimaiLScLSc8aa cȠĠ `hhɦ LcHH`aLaLb ?@,حaaLaɀLa8aaӭaaaa L-bVQLL-baaa ʹaL2b aȑiimaiLbLb8aaLb8aa ڽèԤ׭׾½حؾý٭پĽڭھֽªêĺ˨ҤҤֻҤ־˨±Ҥ֭Ҥύ˨˨ΨҤ˨ΨҤ˨ΨҤ˨ΨҤ׽èԤؽèĤٽèĤ  ::6:" ":6:" SELECT:";::9999lSP:23:1:"PRESSING ONE KEY RUNS, BRUNS OR EXECS THE SELECTED PROGRAM AUTOMATICALLY!";:21:9999:20038:A$"<-(YOU TYPE 1 LETTER.)":I(A$)11:(A$,I,1);"";::I1500:<:15:"C";G$;:9999::129999:9999:I37:I:1:868::3XSP:"RUNNING DOS BOSS'S MENU PROGRAM WILL CATALOG ANY DISK AND LET YOU SELECT PROGRAMS WITH ";:A$"ONE KEYPRESS":9000:"!"]V8:9200#b9999:10:FLAG1:460:FLAG0:I1019::I:1:" ";::(I55)m:200::" BINARY "::" SHAPE TABLE":" HEX CONVERTER":::" TEXT "::" ADDRESS FILE":" NAMES FILE":D:" INTEGER "::" STAR TREK":" NUMBERS GAME":::" APPLESOFT "::" HELLO":" OLD RECIPES":" MISC.INSTRUCTIONS":" SLIPPERY DIGITS";#WBE ABLE TO MAKE FLASH AND/OR INVERSE PRINT AS EMPHASIZED TYPE. CONSULT YOUR PRINTER'S MANUAL"" AND INSERT THE NECESSARY CONTROL OR ESCAPE CHARACTERS IN THE LISTING.":4000 :" XLISTER ";::" SEE XLISTER.A, LINE 40":23:I140:"-S BEEN ELIMINATED. YOU MAY ENTER AN ITEM'S NUMBER OR THE FIRST FEW CHARACTERS OF THE ITEM'S NAME. ALSO SEE LINE 130."::4" TEST PATTERNS ";:4040f:" TEXT DUMP ";::" NOTE--":" DEPENDING ON YOUR PRINTER'S CAPABILI- TIES, YOU MAY " SCREENWRITER ";::" NOTE--":" TO COPY SCREENWRITER, YOU NEED TO COPY THE 3 "Q$"SCR."Q$" FILES AS WELL. USE FID, AND ENTER "Q$"SCR="Q$" TO COPY ALL 4 FILES."::" SORTFILE ";::" ";::"UPDATE";::"--":" THE LIMITATION ON PAGE 37 HAC'D. KEY-CAT WILL CRASH IF YOU TRY.":u x" KILL-CAT ";::" NOTE--":" WILL NOT WORK IN 3.2 OR WITH FASTDOS.":: " LINE SEARCH ";:4040 @" MULTI-CAT ";:4040 " REM ZAP & REM FIND ";:4040 :" RUN COUNTER & RUN DATER ";:4040l:0! :" DOUBLE LOADER ";:4040B ::" FILENAME ZAP ";:4040` " INT CONVERTER ";:4040& " KEY-CAT ";::" NOTES--":" KEY-CAT WILL NOT WORK WITH FASTDOS. MANY BINARY FILES ARE NOT MEANT TO BE BRUN, AND MANY TEXT FILES CANNOT BE EXE" 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 TO BINARY.":40021: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" CONNECT ";:4040f ----":"FIVE UTILITY CITY PROGRAMS UTILIZE A PRINTER. IF YOU ARE NOT GETTING PROPER PRINTOUTS WITH YOUR PARTICULAR PRINTER, READ THE EARLY REM STATEMENTS IN:" B" - MULTI-CAT - SCREENWRITER - SORTFILE - TEXT DUMP - XLISTER.A (XLISTER)\ F6 SP10:Q$(34):G$(7)^2:::" UTILITY CITY BUGLIST ";::33:"11/10/82":I1999:<"MISTEAK":"-------":"PAGE 25: IF YOU SEE A "Q$"HLIN 0,9 AT 19"Q$" IN PROGRAM LINE 40, CROSS IT OUT. --":@I1555: A"PRINTER REMS":"--------    ERSE. THIS EFFECT WILL BE CANCELLED BY OR PR#0.":"----------------------------------------";Ig201,141,240,21,234,234,234,234,201,128,144,13,201,160,176,9,72,132,53,56,233,128,76,249,253,76,240,253:I768795:N:I,N::54,0:55,3:1002f "----------------------------------------ALL CTRL-CHARACTERS EXCEPT CTRL-M'S HAVEBEEN CONVERTED TO INV SUB,RETURN>REM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONTnLIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,ATNOT,STEP,+,-,*,/,^,AND,OR,>=,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POSSQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LENSTR$,VAL,ASC,CHR$,M,READ,GR,TEXTFPR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOTDRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLOAD,TRACE,NOTRACE,NORMALINVERSE,FLASH,COLOR=,POP,VTAB,"HIMEM:","LOMEM:",ONERR,RESUME,RECALL STORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOLOOP2((P1)130));1 SP7LOOPIN:LFLAG0:b IN):CRCR1:P$"YES"MG1CRPGMG2429 I1MG2::CTRLJĺ(10);:(SEE.LINE.56.) :CR0 PP13SP0 CTRLJĺ(10);: (SEE.LINE.56.) END,FOR,NEXT,DATA,INPUT,DEL,DI. |SP(A$)SW1ĺ:9LOOP):SP10LOOP:425c :A$;PP127);:SPSP(A$)(PP127):A$"REM"Ğy PP10PP13İ425 TKFLAG(PP127):A$"THEN"THFLAG1  STNXT:200 :425 THFLAG0ĺ" * : "; THFLAG0ĺ" : "; LOOPĺA$"FOR"LOOPLOOP2@ A$"NEXT"LFLAG1:LOOPLOOP2(LOOP0)k (LFLAG1A$",")LOOPLOOP2(LOOP0) A$Q$A$"REM"QFLAGQFLAG1 ,A$":"QFLAG0TKFLAG0:420:400: COLON,NEW.LINE hPP127ĺTKFLAG0);:SPSP(TKFLAG0):LEADING.SPACEELIĺ:(4);"PR#0":10000:START.LIST LFLAG0:TKFLAG0:QFLAG1:THFLAG1::425::"---------------------":425:LI;:LI10000);LI1000);LI100);LI10);" ";:SP6LOOPIN LOOPĺLOOP2((ST4)130)); PST4NXT2:PP(P):A$A$(PP) OUR.PRINTER.WON'T.PRINT.WIDER.THAN.40.COLUMNS.) 8CTRLJ0:(LET.CTRLJ=1.IF.YOUR.PRINTER.REQUIRES.LINE.FEEDS.IN.LINES.426.&.430) <PG66:MG3:(LINES.PER.PAGE.&.MARGIN.FOR.PAGE.BREAKS) d1000& NXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:NXT0LI f ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== (IN0:(IN=L.MARGIN.INDENT#..NOT.FULLY-TESTED.YET:11/82..TRY.WITH.VALUE.OF.5..PHONE.BEAGLE.IF.BUGGY.)2S1:(PRINTER.SLOT)/ 7(SEE.LINE.1190.IF.Y     E.OLD.START.LOCATION.BACK.INU "INVERSE:PRINT";Q$;" APPEND COMPLETE ";Q$;":NORMAL"e D$;"CLOSE" ============== CONNECT.WRITE BY BEAGLE BROS ==============Q ==============O.TWO.BYTESO d"POKE 768, PEEK(103):POKE 769, PEEK(104)":STORE.START.POINTER n"POKE 103,ELO:POKE104,EHI":POKE.IN.NEW.START.LOCATION "PRINT";Q$;D$;"LOAD";Q$;";A$:REMLOAD.HIGHER.NUMBERED.PROGRAM "POKE 103,PEEK(768):POKE 104, PEEK(769)":POK03)+256*PEEK(104)":FIND.START.OF.PROGRAM F"FORI=1TO9999:TEST=PEEK(LOC)+256*PEEK(LOC+1):PRINT0;:IFTEST>0THENLOC=TEST:NEXT":FIND.END.OF.LAST.PROGRAM.LINE P"PRINT" Z"EN=LOC:ELO=EN-INT(EN/256)*256:EHI=INT(EN/256)":SPLIT.END.OF.PROGRAM.NUMBER.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     :/ /";:38:"! !";:"! !::KEYBOARD::::::/ /";:38:"! !";"! !::CONTROLLED.::/ /";:38:"! !";:"! !";B$;":::::::/ /";:38:"! !";:"! !";B$;"::::::/ /";:38:"! !";:"! !";B$;":::::/ +---------------+";:38:"! !";"+ +";B$;"::::/ // ANEQXXOZ:6:"+--";C$;"+------+":5:"/";20);"// \":4:"/ +";C$;"+ +------+ \":3:"/ /";:25:"/ /";B$;":\ \":2:"/ /";:24:"/ /";B$;":::\ \"9"+ +::DEMONSTRATION::::/ /";:38:"+ +";:"! !::--------------::/ /";:38:"! !";:"! !::ACTUAL GAME ISM$" "YāWZ5:S(R):1WZ20:::(36)>M$;::V: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$;:nV(I)U(I):T(I)H(I):::XZ33:F0X(X12)120ČCR:J(A$):KJZ::cIZ150::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$;::12:"+":1202X3:200U17:13::"@";:15:"@":14:"/":13:"@";:15:"@"IZ7: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:========================ZZ============='Z1PAUSE::c 'T(36)1:255:T:A$;G$;:T:I115::868:I1100::T:A$:F2āI1PAUSE:i '!5=============================== DOS BOSS (DEMO) BY BERT KERSEY AND JACK CASSIDY COPYRIGHT (C) 1981 BEAGLE BROS. MICRO SOFTWARE =======0:I1(A$):VPOZ(37)1:HPOZ(36)1:VPOZ:HPOZ:(A$,I,1);:VPOZ1:HPOZ:"-";:VPOZ::SP:#I3801:32,I:33,40I:::#255:V:1:958::A$"]CATALOG":I1(A$)::X$(A$,I,1):X$;::" ";:J1100500(X$"]")::::" ":958:: TIP BOOK #2 "::"AN ENTERTAINING COLLECTION OF TRICKS, SUGGESTIONS AND PROGRAM LISTINGS TO TRY ON YOUR APPLE. HOURS OF GOOD READING!":9999:9999:9999 I124:::100@:255:4!I38:I:1:868::!Z16:S(16336)::`(#20 A GREAT APPLE LEARNING TOOL!"::"PLUS..."::" BEAGLE BROS PEEKS & POKES CHART "::"POKE YOUR APPLE ALL NIGHT LONG WITH THISHANDY 11X17 REFERENCE POSTER! THE MOST USABLE PEEKS, POKES, POINTERS AND CALLS!":"PLUS..."::" BEAGLE BROS APPLE :19:"<-(AUTOMATIC)";:1::1:100:" RUN STAR TREK ":SP:9999:9999:SP:9100:"WITH YOUR DOS BOSS DISKETTE, YOU WILL RECEIVE...":::" THE DOS BOSS BOOK ":."EXCELLENTLY-WRITTEN COVERAGE OF ALL DOS BOSS FEATURES & POSSIBILITIES-- ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍ ҮĮ͍Š˨Š˨źԢĠŠ̍ύý˨˨ɽϹԽ˨é˨ë԰ԾýԺԍԍνúϽέԨίɽԨίŠ˨Š˨ŠϺűɍԢĢĮ z #??٠Ϡ ӠӠϠ ΠϠ ŠӠ" ԠР ҠҮ Ԡ ޠ ŠӠ ٠ՠ  ΠҠҠ ҮĠ" ҮР ҮϠ Ҡ Š! ԠӠ  ɭԠ͠Ġ͠Į͠Р͠ЮΠҠ ΠҠ ؠخŠԠҠ٭Ԡ̭ԠŠȠŠȮ ̭Ġ à îŠ ؠ خ ŠҠŠР ҠҮ ҤҠ!ĠР"ĠЮԠԮŠӠӠ٠ٮCŠӠޠӠҠĠĮĮŠ.":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::          ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨ŠȮ΍:1202:U14:H17:DZ:1240:X23:200dA$"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:"//"1JXX21:200:A$"ASGNAB+* ":1100:1202:18:33:" ":34:"-+":1202ZX13:200:1350:A$"*+BAN ":1100:1202:U18:H33:DZ:1240:X45:200bA$"NAB+* ":1202:13:16:"+-":17:" ":1202:I0J:T(I)12I::X12:200$1350:A$"*+BANAN "OCK->":9:31::": :":31:" 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::Y1750:B `18:32:" // /:":34:" /":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"eFZ:V10:T24:T$"CL0:32,5:6:Z:T$"KEY COMMANDS::: 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"::M1v ,Y1:A$"*+BAN ":1202:I0J: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$" 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       IGHT OR CENTERED? (L/R/C):";:A$:A$"L"A$"R"A$"C"İ1730:MF0:1691760:"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:" ";832,1960,1104,1232,1360,1488,1616,1744,1872,2000 G ERROR MESSAGE :16300,0:1::"PR#0":(222)255İ1760::4:(7);" SOMETHING IS WRONG. TRY AGAIN. ";(7);:I1999:::1730:145&MF0:650 FORMAT MOVE I1760:"FLUSH LEFT, RJ:SC(K)(K):::1730&A$"Y"İ20:MF0:1730:169J GOSUBS UN2000pINN39:I,SC(I):::24:1:868:I12:J12:S(16336)::J199:::QQ,0:11024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1:L2,S2:SC(L2)S2:L1,S1:SC(L1)S1yA$"Y"āIV1V2(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)H3P)93:V3V:H3H:V4V3(V2V1):H4H3(H2H1):L3P:H439H439NV423V4231760:"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:1730"L3,S3:SC(L3)S31760:"MARK DIAGONAL CORNER, & HIT :";::" ";::170:P,93:S2SC(P):SC(P)93:V2V:H2H:L2PH1H2IH1:H1H2:H2IV1V2IV1:V1V2:V2I=1760:"MARK NEW ";::"UPPER-LEFT";::" CORNER & :";::" ";::170:P,106:S3SC(P):SC(1::"<";::J11::(C$,I,1);"";::--- ":X19:9999} 2220:I1(A$):18:1:(A$,I,1):20:1:(B$,I,1)::FLAG(16384)12850 4FLAGı 716368,0:FLAG1:J14:A$"****":50: <255:18:"*":20:"*"::J1500: * '255:X:40:I(C$)1C$"* RUN THE "Q$"BUGLIST"Q$" PROGRAM FOR THE LATEST UPDATES AND CHANGES. ":X21:9999+ C$" SEMI-IMPORTANT: -------------- * DO NOT RUN THE "Q$".A"Q$" FILES (SEE PG.27). +V$"11/23/82"4A$"/-\!":B$"/!\-":Q$(34) 240:::3:V$::3:32,2:33,38::": :":" UTILITY CITY ":": :"::"BY BERT KERSEY"::"BEAGLE BROS":"4315 SIERRA VISTA":"SAN DIEGO, CA 92103"::"619-296-6400":l  A@QZQ/DIMAJS4WX/WARBMR`MS1S2S3S4S5FFSTSB Y@CKPGTH PH@80( FASG";12);"/":10:"+-";C$;"+":300THH (    i0( i0(ȩ:(ȥi0(ȥi0(h``~}]H  (ɠe ީh`rVI`X +:::+ +";:":\ \";B$;"::/ +-----------------+";:37:"/ /":"::\ \";B$;"/ /";:36:"/ /":":::\ +-----+ +-";C$;"+ /":"::::\ // NAB";$:"+*";::9);"/":":::::+-+---+-";C$;"+-+":"::::::\ \";:32:"/ /":8:"\ +-";C$;"+ /":9:"\ Rύýì˨ë˨ë˨ë˨ű˨ű˨˨˨͠Į΍:PRINT CHR$(10);:REM(REMOVE 1ST REM IF YOUR PRINTER REQUIRES A LINE FEED.)r!! ::::"PR#0":N1024:1750:169}!'1810!'N1872:1750:169"`================== SCREENWRITER COPYRIGHT (C) 1982 BEAGLE BROS 714-296-6400 ================TER TURNED ON? (Y/N):";:A$:A$"Y"İ1730:169| 1760:"PRINTER SLOT NUMBER? (1-7):";:A$:1730:LN(A$):LN0LN73020 1::"PR#";LN::: I023:J039:KSC(V(I)J):K32KK64 K95K128KK64 K159KK128K! 1:(K);::21006 A$"R"āI1S3:J39S3I,SC(JS1I)::2100tA$"C"K((S1239S2)2):I1S3:JKI1,SC(JS1I):4IJJ39:SC(I)(I):6Q$"O"20109Q$"A"ĹJ,SC(J):J39,SC(J39):LN:1730:MF0:169 (P)RINTER DUMP / 1760:"PRIN::170Q$"O"JV(V):LNVKQ$"A"āLN023:JV(LN):J,62:J39,60jI039:SC(JI)UĂ:2102S1I1:I3911:SC(JI)UĂS2I1:S3S2S11:S340S302102LN1:1:39);:V(LN)39,UA$"L"āI0S31:JI,SC(JS11I)::";::5010(J1SP::(37)21ĺ::25000Q:J1SP::" O.K.":4000222:23:1:I140:"-";::" RETURN FOR MORE OR TO QUIT.";:1:" FOR MORE OR Q ";:K(16384)K141K209500016368,0:240:K141ė:5I: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:"-"; ̭à̺ĠԠ͠ˠ̭κ̠̭ںЯΠ̭̺Šߩ٠Ϡ̭àӺŠԠϠˠ̭ɺŠӺԯԠ̭غȠܩũ"/"13 I18:LI1,(A$(I))::NMBRNMBR1:L12,48NM(NM10)10:L11,48((NM(NM100)100)10):L10,48((NM(NM1000)1000)100):L9,48(NM1000) :"(STAND BY...)":(4);"UNLOCK ";P$:(4);"SAVE ";P$:(4);"LOCK ";P$$:I1(P$):"-";:::"RUN NUMBER: ";NMBR:"LAST RUN ON: ";DAY$;"."::"TODAY'S DATE:__/__/__";: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)G 11:"07/01/82/0001":DON'T^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10.z P$"PROGRAM NAME":TYPE^ACTUAL^NAME^IN^QUOTES. L(103)(104)2569:ILL7:DAY$DAY$((I))::NMBR1000((L9)48)100((L10)48)10((L11)48)(L12)48 :22:P   ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨͠Ю΍ == IT KERSEY BEAGLE BROS ============================S: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   J11::S(16336)::22:16368,0:UTX49237:K1NB:TX,0:::22:16368,0:160:VV2:I23V1:I:1::(A$,N);::(A$,(A$)N);:958:S(BZ)::'VV1:V:I0N1(N69):H:I;:J12:S(16336):::70:V13:H3:9999:N4:V19:H33:9999:N26:V21:H3:9999:N21:V23:H3:9999 n49385,0:A$" GET ON OUR LIST. WE MAIL GREAT MAIL! ":49384,0:I2039:24:I:(A$,I,1);:40I:(A$,40I,1);:J15:: NB123:160:23:&TX49237:K1NB:TX,0::0 100 PROGRAMS FROM TIP BOOKS 1-":N13:999 UA$" TYPEFACES ....................... 20.00 FONTS FOR APPLE MECHANIC":N11:999 ZA$" UTILITY CITY .................... 29.50 USEFUL UTILITIES ON ONE DISK":N14:999M d::N12:V7:H3:9999:NUT HARDWARE":N11:999s <A$" FRAME-UP ........................ 29.50 TEXT AND GRAPHICS PRESENTATIONS":N10:999 FA$" PRONTO-DOS ...................... 29.50 TRIPLE-SPEED LOADING AND SAVING":N12:999, PA$" TIP DISK #1 ..................... 20.0A$" DOS BOSS ........................ 24.00 COMMAND EDITOR, PROGRAM PROTECTOR":N10:999 -A$" DOUBLE-TAKE ..................... 34.95 2-WAY-SCROLL FOR LISTS & CATALOGS":N13:999 2A$" FLEX TEXT ....................... 29.50 -COLUMN TEXT WITHO.............$39.50 HI-RES GRAPHICS AND TEXT PLOTTER":N12:999:160 A$" APPLE MECHANIC .................. 29.50 SHAPES, ANIMATION AND BYTE-ZAPPER":N16:999 #A$" BEAGLE BAG ...................... 29.50 -GAMES-PLUS ON ONE DISK":N12:999Z (;  BUY DOS BOSS & PREVENT LISTING! FPt:V1:NB51:BZ16336:160:NB1:I124:160:::::" BEAGLE BROS DISKLIST ";::" (APRIL 1983)----------------------":I151:170::NB19:160:NB9E A$" ALPHA PLOT .........T$:4253ST(N)(N1)TFS:EN(N2)(N3)TFSNXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:LISLINXT0STNXT:1230220' END 'CR0:::(4);"PR#0":"ANOTHER LISTING ON THIS PROGRAM?";A$:(A$,1)"Y"1005).:"DONE."::103,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:   p@32&|y@ """ ||pa|?@3a "` ypxI"@OHO  G!p O0 @@O  xyOp~(c| ~ `a |v6~8@@` pqsb">pa D H` p` qqi8xx P@ Kp@G'3F `@~7~xd pa|?`@?q?~<~|@@ )\O|pw}O`KpDXpa|~A{pG?{a~a~|@q@.~_o0! "@HGGpa|~}pC@~@ qcc "@OHH|pa|~}@x+Ox?|s@ <""pDDpa|?~xG>@ qq#bp@KD0@GOca( 2@!prI"@HHH!I@"p  F~ `O{!@|sg?pp(y ~@06! p8p 0@p t6p8L@ Q`BLHb" $ 3F 0x0 0>`psbK">pa|x@G $)p~OpO~3ILDdpa|~pw?{a~a~~?@3|8Pp'p@}a'p~~@3xCyp@O'd2"@HHHDpa|~}@q0 Aqq+D`@p@ D""" h88pa|~8G<qa!bp@@HLD0H(,x@|?@wH<GG&p O$pa  xpgw0~wspp( r8|xsp ~yxp(`O|xGC` t6p8 f@!@x>BHH" d'@  p@B `p>~GBLH""pa|p@3~~pg?IHDDpa|?~cw?{q?~a3711:175:24:I:"]";::" ";::868::255:23RE OR Q ";:K(16384)gK141K209500016368,0:240:K141ė:I3711:175:24:I:"]";::" ";::868::255:23S;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:__/__ 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;"   I023: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,(")")@pa|~a?pgw?~|`@ y + ` p?ps<"@pa|}D`1|qpq  p@@@HdQB( pp?pa@3pP|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@3Bp ~?H`C|` `p @p#H?`F0"OpIG$p p#` ~|0 `p x(@`@  @DO'`|PO"" pa@ @@ @ (|op @pa|~~p{wG?{C~~@pa|~|yw?sq?~?~?~@GD  $( Nw?xp|~pa|?|ywC?s?~A?p@ piqpq,pa | @@pa|}@@1<|qqbc@@@@@HH(<DL0|C@p" xxpa@3b dg@30q1 @@Oxs~ I"@E@@ Hp `@@@~!pp}`p`x( ~O p= `v60 ```"""pay |88x (|yOyp>G@ @ @A~s|a~?0 pa|xxc?ca?~~|~G@@@84 $<(Ow?pg}gpa|~{p@?{q~a?x@ / D8`G~`A'`BAH@@xpa|~}`A<@qcAp@@aq( @~@ """ pa|OĮýŠì˨Šë˨Šë˨Šë˨Šë˨Šë˨Šë˨Šë˨Š˨˨Š˨Š˨ AAAAAA@@@@@@@@@@@@@@@@@@@@@@@@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      ==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:"(";    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      (N):104,(N1):175,(N2):176,(N3): ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== ̭à̺ĠԠ͠ˠ̭κ̠̭ںЯΠ̭̺Šߩ٠Ϡ̭àӺŠԠϠˠ̭ɺŠӺԯԠ̭غȠܩṷ̃àͺŠԠ    :  : ̭ӠӯҠŠ`̭àǺĠ٠̭ݠԠԠ۩Ӡ̭àѺԠ   : 0̭àúҠάŠҠΠ`̭àȺРӠṷ̃ƺȠíگӺ:  -  : ̭àкҠР    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 @pa|~~p{wG?{C~~@H| $(FGp?~8>  @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 ~   : :ΠϠ`: :Ԡ٠/ŠӠ`"<ԠC    ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍(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@23Q~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 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     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              =$"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:  70* K212K244KCTġ:1730:MF0:1696 KCMıM K("A")128KCAd K("Z")128KCZ KESKBSKFSKCAKCZEF0 420 K159ĹP,K32(UC0K191K224)F64(K191F0):SC(P)(P):HH1:EF0:510 KESEF1:170 68:V0:H0:1550 ST169+ ST1::201 :@ CURSOR K (7);p PV(V)H:SSC(P):P,94MF(UC0) K(Q):KSP(KBSKFSKCAKCZKESKCIKCFKCNKCMKCBKCLKCSKCXKCT)190 QQ,0:MF210 KESEF1:1$400"" F"BLOAD SCR.HELP,A$800"J nSC(0)0:J0:U160::I023:V(I): 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:QQ163:16302,0:"BLOAD SCR.GRID":1810, 30 ST1: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: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.! ! ! ! !!!!!ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨ĠЮ΍!0)39:I,SC(I)::A$"1"A$"X"169HVLN(A$)49:I023:V(I)LN,U:j1760:"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):"1760:"O.K.? (Y/N):";:A$:1730:A$"Y"āIV(LN)V(LN)39:I,SC(I)::169uIV(LN)V(LN)39:I,U:SC(I)U::169 (C)OLUMN CLEAR A$"C"1190.:I140:1:I:(48I)::#B1760:"CLEAR WHICH COLUMN? (1-X):";:A$:1:1730:IV(0)V($"S"İ1730:169&z (L)INE CLEAR >1730:A$"L"1050`:I124:I:1:(I64);::24:2:868:" CLEAR WHICH LINE? (A-X):";:A$:11730:I023:V(I),SC(V(I))::(A$"A"A$"X")İ1730:169KLN(A$)65:IV(LN)V(LN)39:I,U::16297,0:1730:24:9::" PRESS ANY KEY TO STOP. ";:I1750::n:I11::16304,0:(16384)127790*QQ,0::1730:169> (C)LEAR LINE, SCREEN RA$"C"1250f1760:"CLEAR LINE, COLUMN OR SCREEN? (L,C,S):";:A$:A$"L"A$"C"AOMMAND? (C/G/H/L/M/P/Q/S): (H=HELP";:2039,(")")128:28:A$:A$"C"A$"H"A$"G"A$"L"A$"M"A$"Q"A$"T"A$"S"A$"P"İ1730:169A$;:16368,0:1 (T)YPE A$"T"İ1730:169 (G)RID A$"G"850B16302,0:8(EF0)#K(CA)VV14(EF0)<KCZVV14(EF0)JP,S:EF0^H39H0:VV1xH0H39:V23VV1&V0V23:V23V0N170b24:1:M$;:I1300::I20002008:I,SC(I)::190v (^C)OMMANDS P,SC(P):1760:"CKCSUCUC1:170( KCBK219:210= "KCXK220:210R 6KCLK223:210y JKCIF128:M$" INVERSE "::610 ^KCFF64:M$" FLASH "::610 rKCNF0:M$" NORMAL "::610 KCMH0:VV1 KFSHH18(EF0)KBSHH18,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# " " "" =============== 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"" "