' +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 T--------------------------------------":EDITĺ" DEFAULTS TO PRINTED VALUES.";:95814:1:"(FILE NAME LENGTH: ";:868:6300:LL4ğLL;::")":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,16210N32>BSC11N48<pX015:H,V)XT$T$(XN):D:_:I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:912,D919: $397R(917)256(918):UNSR4):H,V1!|BSC10TSC0SP0;BSC10TSC0SPSP1JSP21850PMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$vBSCH,V1):TSCH,V)N64:BSC13N80 BSCЭCOLĭSCT10T$BR$+COLĭSCT2T$BR$CCOLĭSCT2T$EX$ZCOLĭSCT4T$EX$JX21VSEL1:J:1:" ";::VSEL:1:958I21:1::" ";:2:T$;:JVI:H737:1960:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC115000:1060#A$MAX$A$"A"1060kCOLāI0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)1360COLāI0462:(COL1,I)TSCCOL1,I1)BSC)1360PCOLSCT3,I):SCT13SCT14T$RU$QCOLSCT1,I):SCT1SCT9T$RU$ ";:TSC14,2VSEL2):BSC14,2VSEL1):] WCOLĢVSEL:1:37):COL::8COL);"SELECT:"; `COLĹ16368,0:A$:VSEL:15::A$;" ";:TSC14,2VSEL2):BSC14,2VSEL1): (A$)13360 A$"Z"Ĺ216,0:MEM1463,12:MEM1464,253: A$"#"İ" "N$" "VSELV21:1060o COLĺ" ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." COLĖCOL::N$;::N$" "Ė38:"." : $VSEL0VSEL24* VCOLĢVSEL:1:37):6::" SELECT:";:16368,0:A$:VSEL:15::A$;"1:VX442::V21:19 0LOCK$" ":0,V)10LOCK$":"P b1,V)1FILE$"]"g 1,V)2FILE$"*"~ 1,V)9FILE$">" 1,V)4FILE$(34) *LTRLTR1:TEST$N$:N$(LTR) \1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$ TEST$v 768,32:769,12:770,253:771,201:772,141:773,208:774,3:775,76:776,44:777,AE:778,76:779,60:780,AE:781,0 6MEM1463,0:MEM1464,3 hMAX$"W":D$(4):D$;NO$"C,I,O" 255::::1::D$;CA$ X1452:(5,X)11)ĂX LTR64:XXENU-FIER BY BERT KERSEY (C) 1981 BEAGLE BROS. LISTS UP TO 23 FILES SELECTABLE BY ONE KEYPRESS. =========================== nMEM((978)((978)127)256)2562947:AE174(157(978)) xNS40393((MEM2925)16) 360 MEM1313,24:MEM1466,23 ? CA$"CATALOG":RU$"RUN":EX$"EXEC":BR$"BRUN":NO$"NOMON"ICOL0(COL=LETTER-COLUMN. CAN BE 1, 3, 4, OR 7. LET COL=0 IF NO FILE CODES WANTED)COL1COL3COL4COL7COL0z <=========================== "KEY-CAT" CATALOG M     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     TIP BOOK #4 COMES ONLY WITH ALPHA PLOT";:2039,(".")O :(16384)1272500l( 16368,0:16304,0:100r'#(#FORI=21626TO21722STEP3:PRINTI;":";PEEK(I),PEEK(I+1),PEEK(I+2):NEXTXT("* POSITION TYPE ANYWHERE ON THE SCREEN." ::" BONUS GRAPHICS UTILITIES:"::"* COMPRESS HI-RES TO 1/3 DISK SPACE.":"* SUPERIMPOSE HI-RES IMAGES.":"* MOVE ANY IMAGE SECTION TO EITHER PAGE.";:"* CONVERT HI-RES TO LO-RES & BACK!"524:1::" INTER.WON'T.PRINT.WIDER.THAN.40.COLUMNS.)A:(T$)0ĺT$:425mST(N)(N1)TFS:EN(N2)(N3)TFSNXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:LISLINXT0STNXT:1230220' END "'CR0:::(4);"PR#0":"ANOTHER LISTING ON T1160'~P$"NO":(PO$,1)"Y"P$"YES"8P$;:958:OT8:"TITLE: ";T$T10:"ALL CORRECT? (DEFAULT=YES)";:15:" ";A$:(A$,1)"N"1005)P$"YES"ĺ(4);"PR#";S::::PRINTCHR$(9);SW;"N":REM(REMOVE.1ST.REM.IN.THIS.LINE.IF.YOUR.PRT"_LT4:"END LIST AT: (DEFAULT=END)";:15:" ";ELI$:ELI(ELI$):ELI$""ELI65535tVELISLIELISLI`ELI$""ĢT4:16:"END":1140jT4:16:ELItT6:"USE PRINTER? (DEFAULT=NO)";:15:" ";PO$:T6:16:PO$""P$"NO"::I32127:A$(I)(I)::I128234:A$(I):.T:"COLUMN WIDTH: (DEFAULT=40)";:15:" ";SW$:SW(SW$):SW$""SW40:T:16:SW8SWSW1BT2:"START LIST AT: (DEFAULT=START)";:15:" ";SLI$:SLI(SLI$):SLI$""SLI0:T2:16:"STAR# 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   LINES BEFORE YOU DRAW!":"* DRAW IN ANY COLOR, MIX OR REVERSE."::" HI-RES TEXT:"::"* UPPER OR LOWER CASE IN ANY COLOR OR REVERSE (OPPOSITE OF BACKGROUND).""* PROFESSIONAL-LOOKING PROPORTIONAL SPACING AND ADJUSTABLE TYPE SIZE.",<:::" ALPHA PLOT ";::" GRAPHICS UTILITY ($39.50)"::" HI-RES DRAWING:"::"* CREATE HI-RES PICTURES & CHARTS; APPENDABLE TO YOUR PROGRAMS.":"* KEYBOARD OR PADDLE CURSOR CONTROL.":"* OPTIONAL RUBBER BAND (XDRAW) CURSOR."@" SEEATE INVISIBLE OR TRICK FILE NAMES."::" MORE TOO! "::"21 UTILITIES TOTAL-- HEX/DEC CONVERTERS,PROGRAM DATER, LINE SEARCH,MULTI-COLUMN CATALOG PRINTER, 65535 NUMBERER..."$:24:" GET TIP BOOK #3 ONLY WITH UTILITY CITY";:2039,(".")2500ED OUT, PRINTER PAGE BREAKS TOO!::" COMMAND ZAP "::"HIDE FUNCTIONING APPLESOFT COMMANDS OR SECRET REMS IN YOUR PROGRAMS."::" DOUBLE LOADER "::"RUN ANY APPLESOFT FILE WHILE ANOTHER STAYS IN MEMORY."#::" FILENAME ZAP "::"CRE932000)K212ĺ"RUN TEXTTRAIN DEMO"9K2131000QK198Č24579::12:::" UTILITY CITY ";::" 21 PROGRAMS ($29.50)":!:" APPLESOFT LIST FORMATTER "::"A BETTER LISTER! EACH STATEMENT ON A NEWLINE, LOOPS INDENTED, IF-THEN'S CALL:6:I1200::130:110UK(16384):K196K193K212K213K198K209ık:16368,0::2116301,0:24:5:"COPYRIGHT (C) 1981, BERT KERSEY"::23:16::"C":1::I11500:K209Ģ10:K196ĺ"RUN DOS BOSS DEMO"K1DEMO Q= QUIT A= ALPHA PLOT DESCRIPTION":" U= UTILITY CITY DESCRIPTION";iV21:H1::21:3:"D";:23:"F":3:"T";:23:"Q":3:"A":3:"U";:nVOV:HOH:VV1:V24H1V21:H21sV22H1V21:H1xV:H:"->";:VO:HO:" ";,10127,10128,11151,11152,11153,12175,12176,12177,13070,13198,13199,13200,14094,14095,14096,15116,15117,15118,15119,15120,16141,16142,16143,16144,16384 Z0:Y143159:0,Y279,Y::""Wd:21:" D= DOS BOSS DEMO F= REPEAT FLY SHOW T= TEXTTRAIN ((1)55):::Q11234: (8711,8712,8714,8715,9607,9608,9610,9611,9736,9738,9739,10631,10632,10634,10635,10759,10760,10762,10763,11658,11783,11784,11786,11787,12810,12811,13703,13704,13706,13707,13834,14727,14728,14729,14731,15751,15752,15754,16384 X,Y::O J1M(I):XXXI:YYYI:2X,Y:6:2X,Y:1X,Y:X(I)90Y(I)5424q 6:1X,Y:6:2X,Y:6:2X,Yy : Q40N:A(Q),C(Q)::Q150:S(B)(B)(B)::Q1150::1X,Y:Q4064:A(Q),B(Q): J17:Q1((1)55):S(B)::Q1(B)(B)(B)(B)::J150:::Q139:A(Q),B(Q)::X80:Y37: :16301,0:X75:Y52:I136:6:XI(X(I)X)M(I):YI(Y(I)Y)M(I):6:X(I)31Y(I)39İ10: Y(I)150Ĺ16302,0 X(I)0āJ13:6:1X,Y:Q1200::1X,Y:2X,Y:Q1500::2:21691,21 Q1N:A:A(Q)A:B(Q)(A)::Q1N:C(Q)(Q21561)::I1:Q21626217223:M(I)(Q):X(I)(Q1):Y(I)(Q2):II1::12 Q11:S(B):: Q1200::B Q110:J11:S(B)(B)(B)::Q139:A(Q),C(Q)::Q135:J11:S(B)ȻE(103)(104)2562049Ĺ103,1:104,8:2048,0:"RUN FLY MENU"N64:A(N),B(N),C(N),X(36),Y(36),M(48):B16336:1:0:D$" """:232,224:233,84::::16304,0:16297,0:16300,0::D$;"BLOAD FLY LOGO,A$4000":D$;"BLOAD ^^,A$6000":24579           ýì˨ë˨ë˨ë˨ű˨ű˨˨˨خ΍ ~I~~@@H@" (xp| @pa|~a?pgw?~|`@ y + ` p?ps<"@pa|}D`1|qpq  p@@@HdQB( pp?pa@d`DD""("""""""""pap ~?H`C|` `p @p#pP|C0 @5p7HO |Op@Gc @ @! `pqq1`AHI"pa@ qq x<< @p8()p?G?/~ Op  @pa|xxw?c~`@q +0 p pa|}@1<@qpq"bp@@OD@(@0x,@pa@aG@88x<(B" xxpa@3b dgH?`F0"OpIG$p p#` ~|0 `p x(@`@  @DO'`|PO"" pa@ @@ @ (|op |88x (|yOyp>G@ @pa|~|yw?sq?~?~?~@GD  $( Nw?xp|~pa|?|ywC?s?~A?p@ piqpq,pa | @@pa|}@@1<|qqbc@@@@@HH(<DL0|C@p( @~@ """ pa|O@30q1 @@Oxs~ I"@E@@ Hp `@@@~!pp}`p`x( ~O p= `v60 ```"""pay  pqsb">pa D H` p @A~s|a~?0 pa|xxc?ca?~~|~G@@@84 $<(Ow?pg}gpa|~{p@?{q~a?x@ / D8`G~`A'`BAH@@xpa|~}`A<@qcAp@@aq! "@HGGpa|~}pC@~@ qcc p@32&|y@ """ ||pa|?@3a "` ypxI"@OHO  G!pA`A|<8O0 @@O  xyOp~(c| ~ `a |v6~8@@`R$(32);"Q "IFV>32767THENVTABPEEK(37)-1:HTAB13:PRINTCHR$(40);V-65536;CHR$(41)"a D$;"CLOSE"LEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$" "W=ASC(LEFT$(A$,1)):X=ASC(MID$(A$,2,1)):Y=ASC(MID$(A$,3,1)):Z=ASC(RIGHT$(A$,1)):A=W-48-7*(W>57):B=X-48-7*(X>57):C=Y-48-7*(Y>57):D=Z-48-7*(Z>57):V=A*4096+B*256+C*16+D:VTABPEEK(37)-1:PRINTCHR$(36);A$;CHR$(61);V;CHcA Q$(34):D$(4):D$;"OPEN DEC":D$;"WRITE DEC":"NOMONICO"W "VTABPEEK(37)-2""VTABPEEK(37)-2:IFLEN(A$)<4THENA$=CHR$(48)+A$""VTABPEEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$""VTABPEEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$"' "VTABPE  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#`" `` aŠ߬ ` ` a̤` ` `L=aح`` ` `ɀLa `) `iim `iLaLa8` ` aȠĮ `hhɦ LaHH`@L`L=a ?@ح``L4`ɀL4`8` `ӭ ` ``` L`VQLL` ` ` ` `L`  `ȑiim `iL`L`8` `L[`8 ` ` ڽèԤ׭׾½حؾý٭پĽڭھֽªêĺ˨ҤҤֻҤ־˨±Ҥ֭Ҥύ˨˨ΨҤ˨ΨҤ˨ΨҤ˨ΨҤ׽èԤؽèĤٽèĤ  ::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";#WOTE--":" DEPENDING ON YOUR PRINTER'S CAPABILI- TIES, YOU MAY BE ABLE TO MAKE FLASH AND/OR INVERSE PRINT AS EMPHASIZED TYPE. CONSULT YOUR PRINTER'S MANUAL"" AND INSERT THE NECESSARY CONTROL OR ESCAPE CHARACTERS IN THE LISTING.":4000" SORTFILE ";::" CORRECTION--":" THE LIMITATION ON PAGE 37 HAS 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 ";:4040:" TEXT DUMP ";::" N" NOTE--":" TO COPY SCREENWRITER, YOU NEED TO COPY THE 4 "Q$"SCR."Q$" FILES AS WELL. USE FID, AND ENTER "Q$"SCR="Q$" TO COPY ALL 5 FILES."v:" PAGE 34 SHOULD SAY TO USE CTRL-A AND CTRL-Z FOR CURSOR MOVES. ---- ----"::4000:YOU TRY.":_ x" KILL-CAT ";::" NOTE--":" WILL NOT WORK PROPERLY IN 3.2.":" ---":{ " LINE SEARCH ";:4040 @" MULTI-CAT ";:4040 " REM ZAP & REM FIND ";:4040 " RUN COUNTER & RUN DATER ";:4040l6::" SCREENWRITER ";::INARY.":4000- :" DOUBLE LOADER ";:4040P :::" FILENAME ZAP ";:4040n " INT CONVERTER ";:4040 " KEY-CAT ";::" NOTE--":" MANY BINARY FILES ARE NOT MEANT TO BE BRUN, AND MANY TEXT FILES CANNOT BE EXEC'D. KEY-CAT WILL CRASH IF ";:4040r " 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 BTER.A."h F18:I1999::"FOLLOWING ARE UP-TO-DATE COMMENTS ON EACH UTILITY CITY PROGRAM...":5000 d:" ADDRESS CHECKER ";:4040 " BFIND ";:4040 ," BIGLINER ";:4040 " CHR$ POKER ";:4040 " COMMAND ZAP ";:4040 X" CONNECT 23:S(16336):H ="132 ($84) IS THE CORRECT VALUE.":255:"--- --" A::"FIVE UTILITY CITY PROGRAMS UTILIZE A PRINTER. IF YOU ARE NOT GETTING PROPER RESULTS, READ THE EARLY REM STATEMENTS IN MULTI-CAT, SCR.4000, SORTFILE, TEXT DUMP AND XLISe SP10:Q$(34):G$(7)g2::10:"UTILITY CITY BUGLIST":10:"--------------------":I1999: <::"ERROR!";G$::222:I1800:::"PAGE 2 OF THE U-CITY TIP BOOK SAYS THAT 134 ($86) IS DOS'S CTRL-D. ";:I1555:::"WRONG";::"...":I11    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 SQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LENSSTR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$f PARAMETERS A$(255):Q$(34):N768:T5:TFS256:10000::"PR#0":::" XLISTER ";::" BY BEAGLE BROS",:LOOP0:I031:A$(I)(I)"(c"(I64)")":ONERR,RESUME,RECALLLSTORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURNREM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONTLIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,ATNOT,STEP,+,-,*,/,^,AND,OR,>=,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POS*ĺ(10);:(SEE.LINE.56.) P END,FOR,NEXT,DATA,INPUT,DEL,DIM,READ,GR,TEXT PR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOT DRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLOAD,TRACE,NOTRACE,NORMALINVERSE,FLASH,COLOR=,POP,VTAB,"HIMEM:","LOMEM:",G(PP127):A$"THEN"THFLAG1$ 4 STNXT:200? :425X THFLAG0ĺ" * : ";q THFLAG0ĺ" : "; LOOPĺLOOP2((P1)130)); SP7LOOP:LFLAG0: CRCR1:P$"YES"MG0CRPGMG2āI1MG2:::CR0 PP13SP0 CTRLJAGQFLAG1C ,A$":"QFLAG0TKFLAG0:420:400: COLON,NEW.LINE| hPP127ĺTKFLAG0);:SPSP(TKFLAG0):LEADING.SPACE |SP(A$)SW1ĺ:9LOOP):SP10LOOP:425 :A$;PP127);:SPSP(A$)(PP127):A$"REM"Ğ PP10PP13İ425 TKFLA10000);LI1000);LI100);LI10);" ";:SP6LOOPS LOOPĺLOOP2((ST4)130));w PST4NXT2:PP(P):A$A$(PP) A$"FOR"LOOPLOOP2 A$"NEXT"LFLAG1:LOOPLOOP2(LOOP0) (LFLAG1A$",")LOOPLOOP2(LOOP0) A$Q$A$"REM"QFLEEDS.IN.LINE.427); <PG66:MG3:(LINES.PER.PAGE.&.MARGIN)E d1000 NXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:NXT0LIELIĺ:(4);"PR#0":10000:START.LIST0 LFLAG0:TKFLAG0:QFLAG1:THFLAG1::425::"---------------------":425:LI;:LI f ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== ~2S1:(PRINTER.SLOT)7(SEE.LINE.1190.IF.YOUR.PRINTER.WON'T.PRINT.WIDER.THAN.40.COLUMNS.) 8CTRLJ0:(LET.CTRLJ=1.IF.YOUR.PRINTER.REQUIRES.LINE.F     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:"! !";"! !::CONTROLLED.::/ /";:38:"! !";:"! !";B$;":::::::/ /";:38:"! !";:"! !";B$;"::::::/ /";:38:"! !";:"! !";B$;":::::/ +---------------+";:38:"! !";r"+ +";B$;"::::/ // ANEQXXO +:::+ +";:":\ \";B$;"::/ +----;20);"// \":4:"/ +";C$;"+ +------+ \":3:"/ /";:25:"/ /";B$;":\ \":2:"/ /";:24:"/ /";B$;":::\ \""+ +::DEMONSTRATION::::/ /";:38:"+ +";:"! !::--------------::/ /";:38:"! !";:"! !::ACTUAL GAME IS:/ /";:38:"! !";:"! !::KEYBOARDZ20:::(36)M$;::bV:T:1250:MZN:V:T:T$:1234:1234:V:T:(T$)):1234::F:XZK2:V(X):T(X):(A$,X,1):1234::PF0:G284:A$B$B$B$B$B$":::::":I1324:I:A$;:25I:A$;:qnZ:6:"+--";C$;"+------+":5:"/"3:F0X(X12)120ČC0:J(A$):KJZ::AIZ150::I0J:V(I)U:T(I)HD(ID):I2IJĞ:V(I):T(I):(A$,I,Z):MZ5:S(R):M:150:1202:IZ(T$):M$(T$,I,Z):M$" "1257:M$;:M$" "YāWZ5:S(R):W17:13::"@";:15:"@":14:"/":13:"@";:15:"@"pIZ7:JZ8:S(R)::JZ40:::JZ99:S(R)(R):V20:T11:T$"DERAIL!":N8:1300:V:T:B$:1202:1202:1360LI0J:U(I)V(JI):H(I)T(JI)::I0J:V(I)U(I):T(I)H(I)::XZ3========================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::          ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨ŠȮ΍00BA$"NANAB+* ":1202:17:13:"-":13:" ":12:"-":1202\1100:X24:200:1350A$"*+BANAN ":1100:A$"*+BANANAS ":1202:I79:V(I)18:T(I)I18:U18:H17:DZ:1240:F017:13:" ":13:"//":12:"+":1202X3:200300:1202:18:33:" ":34:"-+":1202sZX13:200:1350:A$"*+BAN ":1100:1202:U18:H33:DZ:1240:X45:200bA$"NAB+* ":1202:13:16:"+-":17:" ":1202:I0J:T(I)12I::X12:2001350:A$"*+BANAN ":1202:U14:H17:DZ:1240:X23:2 0:00 ":31:": :":1300:V:T:B$:IZ60:C:MZ3:S(R)::NY0:32,5:6:T$"THE OBJECT IS TO COUPLE TOGETHER A WORD SUCH AS BANANAS":1250:1::"BANANAS";:T$" IN THE FASTEST: POSSIBLE: TIME.:::::":1250::Y1(XX21:200:A$"ASGNAB+* ":11:" /":10:6:"S"::9:6:"R"{ cX21:200:9:6:"R"::11:6:"C":22:1350:V20:T18:N3:T$"COUPLE":1300:V:T:T$ A$"*+BANGSA ":1202:U22:H24:DZ:1240:V:T:B$:1202:11:6:"C"CFZ:V10:T24:T$"CLOCK->":9:31::": :":31:" F=FORWARD::::: R=REVERSE S=SWITCH,1-5 C=COUPLE, UNCOUPLE":1250:| QY1::8:6:"F":18:22:"NAB+*":1202:X20:200 ^A$"NAB+* ":1100:8:6::"F" _T$"SWITCH":18:32:1250:18:32::T$:10:6:"S"::M11750: `18:32:" // /:":34:V(I)18:T(I)26I::24:1:T$" TEXTTRAIN DEMO (C) 1981, BEAGLE BROS.":1250:1202 1N7:V18:T15:T$"TRAIN->":1300:T27:T$"<-ENGINE":1300:N2:T$"CARS>":T17:1300:V14:T19:1300:T$" = CHANGE PARAMETERS.":6300:" = QUIT.":6300::6300:6290:6300:" <-SELECT";:6:" ";A$V(A$)A$(A$,1)`A$""A$"Q"A$"C"6210t958:A$"Q"49~A$"C"EDIT1:6020100I1333::I1LL97(FI$"N"):LL1ĺG$;G$:6310:6060:LL=LENGTH.OF.FILE+CODESTLL30LL30^631012:19:" ";A$:(A$)0(A$)10SD(A$).630986290B17:1:958::" INSERT DISK AND SELECT: ":xL:6300:" = PRINT CATALOG.":63A$""SS$TEMP$2SS0:(SS$,1)"Y"SSSLOT<6310k9:19:" ";A$:(A$)641(A$)0PW(A$)u630910:19:" ";A$:(A$)0(A$)100COL(A$)630911:19:" ";A$:(A$)A$(A$,1):A$"Y"A$"N"FI$A$CLL(PWCOL):LLYRIGHT (C), 1981, BEAGLE BROS"::76290:6310:255tTEMP$T$:6:1:"ENTER DISK TITLE: ";T$:T$""T$TEMP$T$"Q"T$"QUIT"T$"QUIT"Ģ23:6310:FLAGEDIT6210FLAG1:TEMP$SS$:8:19:" ";A$:(A$,1)"Y"(A$,1)"N"SS$A$LOC,32:LOC1,47:LOC2,174:: INSTALL.PRINT.CR'Sp LOC,32:LOC1,237:LOC2,253::INSTALL.PRINT.CHARACTERS~o INPUT p:234:EDIT0:FLAG.SET.AT.6315"1:1:"MULTI-COLUMN CATALOG PRINTER ":"----------------------------------------";:"COP5110:SECTOR.NUMBERSCLOC44560:5110::SPACE.BEFORE.FILE.NAMEZ PRINT/NO PRINT PRTĹLOC,234:LOC1,234:LOC2,234::CANCEL.PRINTLOC44555ĹLOC,32:LOC1,66:LOC2,174::INSTALL.PRINT.SECTOR.#'S2LOC44578LOC44456LOC44459Ĺ44459:5110::CR'SoLOC44596:LOC,234:LOC1,234:LOC2,234:PRTĹLOC,206:LOC1,157:LOC2,179:CAT.STOPu FILE CODES LOC44517:5110:LOCK.CODELOC44537:5110:FILE.CODELOC44542:5110:SPACE.AFTER.FILE.CODELOC44555:0:(4);"CATALOG"a (FILEFILE1:FILE(FILECOL)COL0āI1SD:CR$;::1360: (SEE.LINE.37.)l <" "; PFILENFČ44581:1320 :I1PW:"-";:::SSĺ::: 40 44567,LF1::LENGTH.OF.FILENAMELOC44578:5110:LOC44456:5110:LOCFI$"Y"PRT1 B5050:< J44578,96:RTS.AFTER.FILE.NAME M:(4);"PR#";SS::::(9);PW;"N":(REMOVE.THE.1ST.REM.IN.THIS.LINE.IF.YOUR.PRINTER.WON'T.PRINT.WIDER.THAN.40.COLUMNS.)  PRINT CATALOG (T$)0ĺT$ I1PW:"-";:: FILEER OF FILES 3 dPRT0:5010:5020:5050:LF1:5000K n::(4);"CATALOG"s xPRT1:5010:5020:5050:LF30:5000 NF0:I14081664128 LOCII39:(LOC)160NFNF1:LOC I::NF;" FILES" , SET-UP @PRT0:LFLL:5000:5010:5020:50:FLAG60005 *" = CATALOG ANOTHER DISK"d +" = QUIT"::" <-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 NUMBN.40.COLUMNS.)t %CR$(13):(LET.CR$=CHR$(13)+CHR$(10).IF.YOUR.PRINTER.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:502 ============================ MULTI-CAT MULTI-COLUMN CATALOG PRINTER COPYRIGHT (C) 1982 BY BERT KERSEY BEAGLE BROS ============================ "PR#0":40#SLOT1:(PRINTER.SLOT) $(SEE.LINE.333.IF.YOUR.PRINTER.WON'T.PRINT.WIDER.THA       4C 1B E5 N D7D2G":120:144 nHEX$"B3AF:BD C5 C3 C1 D0 D3 A0 C5 C5 D2 C6 A0 N ADB9:EA A9 00 85 40 85 41 20 69 BA N D7D2G":120:144: xI1(HEX$):511I,((HEX$,I,1))128::72,0: Hg "DOS FREE SPACE PATCH" BY MARK PUMP/VAL J GOLDING-MODIFIED TO FIT IN $BA69-$BA94 BY C.J. WELMAN2 CALL APPLE JUNE 1982 dHEX$"BA69:A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 06 E0 D0 03 4C 24 ED";::J11::(C$,I,1);"";:: ":X19:9999e 2220:I1(A$):18:1:(A$,I,1):20:1:(B$,I,1)::FLAG(16384)12850q 4FLAGı 716368,0:FLAG1:J14:A$"****":50: <255:18:"*":20:"*"::J1500: (4);"CATALOG":" '255:X:40:I(C$)11::"<GLIST"Q$" PROGRAM FOR THE LATEST UPDATES AND CHANGES. ":X21:9999 C$" IMPORTANT: ---------- * DO NOT RUN THE "Q$".A"Q$" FILES (SEE PG.27). --- #"A$"/-\!":B$"/!\-":Q$(34)z 240:::3:3:32,2:33,38::": :":" UTILITY CITY ":": :"::"BY BERT KERSEY"::"BEAGLE BROS":"4315 SIERRA VISTA":"SAN DIEGO, CA 92103"::"714-296-6400":T C$"* RUN THE "Q$"BU AJS4WX/WARBMR`MS1S2S3S4S5FFSTSB Y@CKPGTH PH@80( L00THH (    i0( i0(ȩ:(ȥi0(ȥi0(h``~}]H  (ɠe ީh`rVI`XA@QZQ/DIM-------------+";:37:"/ /":"::\ \";B$;"/ /";:36:"/ /":":::\ +-----+ +-";C$;"+ /":"::::\ // NAB";:"+*";::9);"/":":::::+-+---+-";C$;"+-+":"::::::\ \";:32:"/ /":8:"\ +-";C$;"+ /":9:"\ RFASG";12);"/":10:"+-";C$;"+":3ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨͠Į΍128::72,0:144:I TO USE TYPE: FILEDUMP FILENAME,S(SLOT),D(DRIVE) KK FILEDUMP COMMAND POKER BY REYNOLDS AND GOLDING CALL APPLE JUNE 1982dHEX$"BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 05 20 F0 FD D0 F6 20 FC A2 60 N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30 N D9C6G" nI1(HEX$):511I,((HEX$,I,1))  9:" XLISTER ";::" O.K.":23:I140:"-";::5010WJ1SP::(37)21ĺ::a5000:J1SP::" O.K.":4000222:23:1:I140:"-";::" RETURN FOR MORE OR TO QUIT.";:1:" FOR MORE OR Q ";:K(16384) K141K: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:"-";  6K$(J)K$(J1)# @K$(J1)D$, JTJ5 TBT< JI T0450Q 30p :"ALPHABETIZED NAMES:":{ J1N K$(J) J   : N50$ :"NAMES:":/ K$(N)O :" ";N;" RANDOM WORDS ":I1N:J15((1)5):K$(I)K$(I)(((1)26)65)::I;".";K$(I):::"SORTED LIST ":BNT0(J1B12K$(J)K$(J1)300<400 ,D$K$(J)  ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨͠Ю΍ X$:L;".";X$:ALZ:AN70! Z # : N50 A$(N)= :" ";N;" RANDOM WORDS ":I1N:J15((1)5):A$(I)A$(I)(((1)26)65)::I;".";A$(I):::"SORTED LIST ":<A1:L0:Z1FXAN:YAN:A$(X)A$(Y)AY:70 P:LLZ:X$A$(X):A$(X)A$(L):A$(L)T 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   : X(10,10)8R110: "R" STANDS FOR ROW]C110: "C" STANDS FOR COLUMNSl(X(R,C)RC-X(R,C);4C);2C7:<RF 6HIS PROGRAM?";A$:(A$,1)"Y"1005c.:"DONE."::103,(N):104,(N1):175,(N2):176,(N3): ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== .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:   :"ALPHABETIZED NAMES:":% J1N0 K$(J)7 J=  ? :# "HOW MANY NAMES: ";N5 :"NAMES:":@ K$(N)IBNTJ1N_K$(J)fJoT0|(J1B12K$(J)K$(J1)300<400,D$K$(J)6K$(J)K$(J1)@K$(J1)D$JTJTBTJT045030 2095000(16368,0:240:K141ė:dI3711: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,(")")220:210 6KCLK223:210D JKCIF128:M$" INVERSE "::610j ^KCFF64:M$" FLASH "::610 rKCNF0:M$" NORMAL "::610 KCMH0:VV1 KFSHH18(EF0) KBSHH18(EF0) K(CA)VV14(EF0)KCZVV14 K("A")128KCA/ K("Z")128KCZW KESKBSKFSKCAKCZEF0` 420 K159ĹP,K32(UC0K191K224)F64(K191F0):SC(P)(P):HH1:EF0:510 KESEF1:170 KCSUCUC1:170 KCBK219:210 "KCXK CURSOR  (7);; PV(V)H:SSC(P):P,94MF(UC0) K(Q):KSP(KBSKFSKCAKCZKESKCIKCFKCNKCMKCBKCLKCSKCXKCT)190 QQ,0:MF210 KESEF1:170 K212K244KCTġ:1730:MF0:169 KCM160::I023:V(I):J x24:11:"(STAND BY.)";:I20002039:SC(I)160: UC1:SPU:BS136:FS149:CA129:CZ154:ES155:CX152:CI137:CF134:CN142:CM141:CB157:CL140:CS147:CT148:Q16384:QQ16368:V0:H0:1550 ST169 ST1::20 : :I20002039:SC(I)(I)::24:14::" STAND BY: ";:I022:JV(I)V(I)39:SC(J)(J)::24:22I;" ";:::1730: V(23),SC(2039):"NOMONICO" 2::16300,0:16302,0 <"BLOAD SCR.LOGO,A$400" F"BLOAD SCR.HELP,A$800" nSC(0)0:J0:Uo ================== SCREENWRITER COPYRIGHT (C) 1982 BEAGLE BROS 714-296-6400 ==================  (SEE LINE 3100 IF YOUR PRINTER REQUIRES EXTRA LINE FEEDS.)(103)(104)25616385::"RUN SCREENWRITER"181030v ST1      ĮýŠì˨Šë˨Šë˨Šë˨Šë˨Šë˨Šë˨Šë˨Š˨˨Š˨Š˨ 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:"(";    8>8M @9=?;3!<%@ ]ZJ<%@8 KZJ !=%@8 0?%@8 0 8:?9 B fY ZJ]:$A!2[K\9;[K\9<\,Z], [K\98\,JZ, [K\:\,MP, BP:9^[MD92B292*(((((((*322^[MD2921=0A:92922*(((((((*32:2\,32JB^A2@?;4 VVSEL:1:37):6::" SELECT: ";::" (Z=END)(#=FREE)";::15: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"11,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 6MEM1463 ? 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( ̭à̺ĠԠ͠ˠ̭κ̠̭ںЯΠ̭̺Šߩ٠Ϡ̭àӺŠԠϠˠ̭ɺŠӺԯԠ̭غȠܩṷ̃àͺŠԠ    :  : ̭ӠӯҠŠ`̭àǺĠ٠̭ݠԠԠ۩Ӡ̭àѺԠ   : 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 (NVAR),A(CASE,NVAR),SUB(NVAR),MEAN(NVAR),MAX(NVAR),MIN(NVAR),RANGE(NVAR),S2(NVAR),SE(NVAR)} x ** ASSIGN NAMES TO VARIABLES :"ENTER NAME FOR EACH VARIABLE: ":: I1NVAR 5)"VAR. ";I;" = "; NAME$(I) (NAME$(I))40Ğ:"MAX. IS 44000:I:1 < ** SET NO. OF VARIABLES AND CASESY F"ENTER NUMBER OF VARIABLES: ";NVAR PNVAR1Ğ:"NO. OF VARIABLES MUST BE AT LEAST 1."::70 Z"ENTER NUMBER OF CASES: ";CASE dCASE1Ğ:"YOU MUST HAVE MORE THAN 1 CASE."::90Z nNAME$# STAT PAK BY STEVEN SCHWARTZT FROM NIBBLE / VOL.3 / NO.3 / 1982 / PG.87e TITLE PAGE:I120:"*=";:I:" D A T A D E S C R I P T I O N"::I120:"*=";:I(23::"* (C) STEVEN A. SCHWARTZ, PH.D. 1981 *": 2I128,32,217,3,162,0,142,149,3,142,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,96C912,D919: $3975R(917)256(918):UNSRn3:35:32,37:33,3::"---------------------------":5:" SECUSE":" SECFRE":5:" ";U:9:" ";R::: 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,1BSCH,V1):TSCH,V)0N64:BSC13N80A BSC10N32R>BSC11N48vpX015:H,V)XT$T$(XN):~::I896960:P:I,P:AE149(157(978)):905,AE:938,AED(MEM485):S(MEM487)897,S16:911,S16:898,D:7:1960:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V1[|BSC10TSC0SP0uBSC10TSC0SPSP1SP21850MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253:216,0:MEM1463,12:MEM1464,253D22::D$;T$v   : :ΠϠ`: :Ԡ٠/ŠӠ`"<ԠC    ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍ARIANCE AND STANDARD DEVIATION'pSS05zI1CASERSSSS(A(I,J)MEAN(J))2YIoS2(J)SS(CASE1)SD(J)(S2(J)) ** CALCULATE STANDARD ERROR OF THE MEANSE(J)SD(J)((CASE)) IX(J)730ZI"MAX(J)A(Z,J))I/K ** FIND MINIMUM VALUE]MIN(J)A(1,J)eZ1s I2CASEA(I,J)MIN(J)820 ZI*MIN(J)A(Z,J)4I>H ** CACULATE RANGERRANGE(J)MAX(J)MIN(J)\f ** CALCULATE V ";:Z$:&J0:7: ** COMPUTE TOTAL (SUM)DDSUM(J)0RNI1CASEkXSUM(J)SUM(J)A(I,J)rbIxlv ** COMPUTE MEANMEAN(J)SUM(J)CASE ** FIND MAXIMUM VALUEMAX(J)A(1,J)Z1I2CASEA(I,J)MA"MAXIMUM = ";MAX(J)8 "MINIMUM = ";MIN(J)X "RANGE = ";RANGE(J)u "VARIANCE = ";S2(J) "STAND. DEV. = ";SD(J) "STAND. ERR. = ";SE(J) ::"NO. OF CASES = ";CASES 24::" PRESS ANY KEY TO CONTINUE @630 J660 T750! ^840* h8703 r950: |JJ  ** OUTPUTX J1NVARx :CEN20(((NAME$(J)))2) FKI140:"*";:I: CEN)NAME$(J): I140:"*";:I:: "SUM = ";SUM(J) "MEAN = ";MEAN(J) 0 CHARACTERS."::150G NAME$(I)""Ğ:"PLEASE ENTER A NAME."::150N Ib ** DATA INPUTr :I1CASE "DATA FOR SUBJECT ";I:: J1NVAR NAME$(J);" = "; A(I,J) J  I " ** ANALYSIS ,J1NVAR 6570 36864  ST16385:$4001X:16302,0:"BLOAD SCR.GRID"::22:"STAND BY..."103,ST(ST256)256:104,(ST256):ST1,0"RUN SCR.4000"1982 BEAGLE BROS ======== X0 d LOWER TO 63000... F nL1LINE(LINETFS)TFS:L2(LINETFS)x xNXT(N)(N1)TFS:(NXT)(NXT1)TFS030 (NXT2)(NXT3)TFS63999ĹNXT2,L1:NXT3,L2:LINELINE1:NNXT:".";:110 NNXT:".";:120 ======== BIGLINER (C) 0. <:5:"WORKING";:A$"L"LINE63000:110E F RAISE TO 65535 KBIG255:CHANGE.TO.BIG=0.IF.YOU.WANT.BIG.LINES.CHANGED.TO.LINE.#0! PNXT(N)(N1)TFS:(NXT)(NXT1)TFS0(NXT2)(NXT3)TFS65535ĹN2,255:N3,255:30 ZNNXT:".";:8LE LINE NUMBER TO 65535"::" LOWER ALL INACCESSIBLE LINE NUMBERS TO 63000, 63001, ETC."t #:" QUIT" (::"SELECT: ";:A$:A$:N(ST)(ST1)TFS:A$"Q"50 -103,(ST):104,(ST1):175,(ST2):176,(ST3): 2A$"L"A$"R"3< ======== BIGLINER (C) 1982 BEAGLE BROS ======== E45\TFS256:ST768:::800,(103):801,(104):103,(768):104,(769):63000::103,(800):104,(801)b ::" BIGLINER ";::" BY BEAGLE BROS "::" RAISE HIGHEST ACCESSIB     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"; ƨ̨OG 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:  ((37)):868:31B #"DO YOU KNOW RECORD LENGTH (Y OR N)? ";R$Q $R$"N"50` %R$"Y"40w &((37)):868:35} ( )"ENTER RECORD LENGTH ";RL *RL((RL))::311 2:8:"PARDON ME WHILE I DETERMINE REC LENGTH"::"IF YOUR ZERO RECORD IFILE"& "THAT DOES NOT EXIST ---":L 10:"SUPER.RAT CREATES AN EMPTY"i 10:"FILE BY THAT NAME" :"IT'S UP TO YOU TO DELETE IT." :"ENTER FILE NAME ";NF$: "S=SEQUENTIAL R=RANDOM (S OR R)? ";R$: R$"S"500 !R$"R"35 "% SUPER.RAT READS APPLE TEXT V D$(4):Z0:W1:BF256:SB255:RLZ:RNZ:PHZoD$"CLOSE":D$"PR#0"HM(115)256(116):3:"SUPER.RAT READS APPLE TEXT FILES":"IT'S OK TO HIT RESET ANYTIME." :"IF YOU ENTER THE NAME OF 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 " PAPAGPJIHɺPISKJ-QMOD8"ֺH:jԬISHɩKɬր:Ӡ٠ٮ˻Ţ9fH 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`}cVbL|LԷ֢֦֫LLLԼ٦NԸڥMMפIM~RZ&8:&83~\BZ$0Fڥףק׵׼׵! ! ! ! !!!!!ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨ĠЮ΍!:8999XA$::A$:-b(16384)32610@l16368,0:600T(222)59000_ESW:r'#(222)59500(#"ERR NBR ";(222)%D$"CLOSE":D$"PR#0":DĄA$|ESW330:A$:;BRBR(A$)W:BRRL370D335VD$"OPEN "NF$\"P=PRINTER S=SCREEN (P OR S)? ";PS$PS$"S"575&PS$"P"5700((37)):868:530:D$"PR#1":?:NF$:"================"ND$"READ "NF$:317AD$"PR#1":OE:NF$;" REC LENGTH = ";RL:"====================="gJD$"OPEN "NF$",L"RLORNRNW:"---- REC NBR ";RN;PPS$"S"338Q:350R" HIT RETURN OR RESET";R$^D$"READ "NF$",R"RN:BRZh1000mESZrESZANT TO START AT RECORD ZERO (Y OR N)? ";R$: 8R$"Y"316J 9R$"N"315b :((37)):868:311 ;:"ENTER STARTING RECORD NUMBER ";RN <RN((RN))W: ="P=PRINTER S=SCREEN (P OR S)? ";PS$ >PS$"S"325 ?PS$"P"321@((37)):868ESZ PESZĄA$" Z216,Z:BLZ0 _PH1200D n(HMBL)Z195[ xBLBLW:BLSB150d 110} RLRLBF:RNRNW:60 PHW (HMBL)Z310 BLBLW:BLSB150 200 6RLRLBL:::"REC LENGTH = ";RL:RNW:D$"CLOSE":* 7RNЂfS FULL"{ 3" OR":"RECORD NUMBER ONE IS EMPTY"::" SUPER.RAT COMES UP WITH THE WRONG":25:"RECORD LENGTH." 4:"RESET ME IF I SEEM TO BE IN A LOOP" <D$"OPEN "NF$",L256" >IWBF:HMWI,Z: @D$"READ "NF$",R"RN F1000 K16,1744,1872,2000O ============== TEXT DUMP BY BEAGLE BROS ==============YD 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,1488,161::::Y124:A:IAA39:P(I)` P32PP64:CONVERTS INVERSE "@" THROUGH "_" TO NORMAL P95P128PP64:CONVERTS FLASH- ING SPACE THROUGH "?" TO NORMAL IF P > 95 AND P < 64 THEN ...: REM INVERSE SPACE THROUGH "?"0 IF P > 63 ANP> ============== 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 LINM(>;110&92XZAF\MZ([DG\+" " "" =============== 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"" "