' +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-(0 0Ϡ@跻~!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 B / / ]ƴ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 ~(`F d  z# u`,64,8,0,25,0,0 ,192,64,8,0,25,0,0Q1,0::ISF194SF231:J:I,J::130100,2,208,0,220,0,220,0,220,0,229,0,0,0,0,0,0,0,9,137,146,146,0,150,146,146,146,146,9,0,64,192,64,192,64,192,64,8,0,25,0,0AA24832b:ISFSF3:J:I,J::ISF4SF1922:I,213:I1,0::ISF194SF231:J:I,J::130100,2,205,0,220,0,220,0,220,0,229,0,0,0,0,73,137,146,146,146,146,18,0,150,146,146,146,146,9,0,64,192,64,192,64,192,64,8,0,25,0,0 0,25,0,0 64,192K(Q):KF1050R$C,0:4(LC0):K159ę1:P,97:KLC(K191K224)159:99.62923:(225)0K141OS16384:OE24575:NS8192:MV1:960:1:1603K155LCLC3264(LC32)81040BI140:"-";::L:::"CATALOG"::1090:SF:A$(13)1010)(A$)7(A$)110006SL(A$)f22:6:SL;:15:DR;:15:A$:A$(13)1025(A$)1(A$)21010DR(A$)43626,SL:47081,SL16:43624,DR:47082,DR:160:0:0,99:LC0:SZ0SZ1160P,96:SZ1:4(LC0)860L23:1:"A,Z,<-,->:";::1:"A";:3:"Z";:5:"<-";:8:"->";::60,OS(OST)T:61,(OST):62,OE(OET)T:63,(OET):64,NE(NET)T:65,(NET):66,NS(NST)T:67,(NST):2477649(MV0)::22:"SLOT "SL", DRIVE "DR;:6:A$C,0:CHCH(KR)(KL)11(KD)11(KU):CH96CH96DpCH2CH2WzK141INS540kK141INS710K155IN0:810:160JCH2:700:21:1:20);:21:"KEY:"Q$(CH31)Q$", ASCII:"CH31" ";:CH64Ė2:"(LOWER CASE "Q$(CH1)Q$")";4OS8192:OE16383:NE24575:MV1:960:>:22:1090:24:12:"AND .";:950:INSĺ": SELECT CHARACTER TO BE EDITED";H(IN)ĺ": SELECT CHARACTER TO REPLACE"R:920\74SZ:J12:IYSYS78SZ3:3XS,I:::1:K(Q):KF8605fK155160810)A$"E"İ800:300YYSYS78SZ:XXSXS65SZ:3X,Y:P1(234):3X,Y:P10ĕCR(XXS)101,7070SZ(YYS)101 ::A$"S"İ800300 0:XXSXS11:X,YSX,YS15::*OS16384:OE24575:NS8192:MV1:960:((A$)4V22:6:SL;:15:DR;:15:A$:A$(13)1125NY(A$)1(A$)21110[[DR(A$)e43626,SL:47081,SL16:43624,DR:47082,DR:180DSL", DRIVE "DR;:6:A$:A$(13)1110?O(A$)7(A$)11100LQSL(A$)|V22:6:SL;:15:DR;:15:A$:A$(13)1125Y(A$)1(A$)21110[DR(A$)e43626,SL:47081,SL16:43624,DR:47082,DR:180R:180RA$)7(A$)11100QSL):62,OE(OET)T:63,(OET):64,NE(NET)T:65,(NET):66,NS(NST)T:67,(NST):2477649(MV0):JJA:J(J25)25ıVT:H:(A$));:I1L2::VT:H:A$:I1L::I140:"-";::::D$"CATALOG":980:%L:22:"SLOT "99:CT214,99:CTCT(KR)(KL):CTCT12(CT0):CTCT12(CT13)z(K175K187)K173CTK17610(K176)(K186)15(K173)K155ġ:170K141860H(36):"A,Z,<-,->";::H5:"<-";:H8:"->";::k60,OS(OST)T:61,(OST TO BE ";A$;:1::"<-";:4:"->"::8:" TO CONTINUE";\21:1:868::" SHAPE #";CT;" DRAWN ";:23(CT10):" SHAPE #";CT;" XDRAWN "::3:CT65,99:CT214,99fK(Q):K127880kVT23:H8:A$"SELECT SHAPE":960:870@pZ,0:0:CT65,ITION":960:790\ Z,0:XTC(KR)XHXTC(KL)XLYTC(KD)YHYTC(KU)YLĺG$;:790}5CTXSXTC,YSYTC:K141ı63:CTXT,YT:19XTXTC(KR)C(KL):YTYTC(KD)C(KU):K155780>?RP,97:::22:980:"<-,->: SELECT SHAPE,YSYC::JM3:P,97:21:1:868:940:" = ADJUST POSITION OF IMPRINT":23:958:" = KEEP IMPRINT & CONTINUE":5:" = ERASE IMPRINT & CONTINUE"; 3:CTXT,YT:A:CTXSXTC,YSYTCK(Q):KF800VT21:H13:A$"ADJUST POS262:N(X)T(X1):NNJ:X,N(NT)T:X1,(NT):?170:3:0,1500,0195,0195,1500,150:213,99279,99279,150213,150214,99 X1519015:X,AX,B:XSXC,YS:X,148X,149:XSXC,149::Y1513515:A,YB,Y:XS,YSYC:193,Y194,Y:2781:1010:VT24.9(RT2):HT139(RT2):FT2:A$"ANY KEY to Continue, or Q to Quit:"(127):100:16368,0:A$:A$"Q"CL0:100::TXT,0:20:I1999:::PAUSEUSECONTINUE:"(127):100:16368,0:A$:CL0:100:I1999:::P::CL0:100FT3:J13:VT5:HT6:HCJ:A$"For more information...":100::VT8:HT3:A$"telephone this number>":100:FT1:A$"SO LONG!":J1214.3:VTJ:HTJ:HC5:100:HC3:HTJ.5:VTHT:100::TXT,0:VT8:HT35.5:HC3:FT1:A$"411":100:G$:200Y:(21):TXT,0:I2124:I:I17:"THIS IS NORMAL TEXT AT VTAB "I":";::" ";::FT2:VT22:HT5:A$"AND THIS IS ":100:IN1:A$" HI-RES ":100:A$" TEXT !":100:1010 I18:TXT,0:J1(999999(I1))I::FULL,0:J1(999999(I1))I:,21):FT1:J1(T$):A$(T$,J,1):HTJ1.8.8.6(A$"i"A$"l"A$"'"A$"."):100:1010:FT2:VT16.5:HT2:A$"And we should point out how you can utilize":100:VTVT1.2:HT12:A$"Apple's split screen:":100:FT1:A$"@ @ @ @ @ @ @":VTVT1:HT12:1VERED?":100:1010zFT2:VT4:HT1:A$"Oh, yes! Our type is PROPORTIONALLY SPACED:":100:1010:FT1:VT5.5:HT1:A$"Hello Sid. How's your sister?":100:1010:VT9:HT1:T$A$:A$"Brand X type is restricted by htabs & vtabs:":FT2:100UVT10.5:T$(T$ ON AN @A@PPLE @][+.":90aFT2:VTVT3:HT1:A$"(Use the AT-SIGN as an Upper/Lower-Case":100:VTVT1:HT1:A$"toggle, and GOSUB 90 instead of GOSUB 100.)":100fFT3$"]APPLE":100:CL0:100pFT2:VT1:HT1:A$"LET'S SEE NOW... WHAT HAVEN'T WE CO{RHT1:VTVT2.5:A$"directly from the keyboard.":100:VTVT2.5:FT2:HT1:A$"(The Apple IIe & IIc let you do it.)":100\FT3:VTVT2.5:HT1:A$"LIST L@INE 860 TO SEE":90:VTVT2.5:HT1:A$"@HOW @LOWER CASE @TYPE IS":90:VTVT2.5:HT1:A$"@CREATEDF$:(F$)ĺD$;"BLOAD ";F$;",A$2000,D";DN$} A$"S"Ą"SAVE PICTURE NAMED:";F$:(F$)ĺD$;"BSAVE ";F$;",A$2000,L$1FFF,D";DN$ 216,0:2040 A$"X"2040 21:1:958:"CLEAR EXISTING HI-RES IMAGE? (Y/N):";:F$:F$"N"2040 F$"Y"Ē0:0,0:X"L"25905( 1:958:L$"LOCK":A$"U"L$"UNLOCK"`< "NAME OF FILE TO ";L$;:":";F$:2460yP (F$)ĺD$;L$;" ";F$Z 216,0::2040d A$"L"A$"S"2720n 21:1:958:23:" TO CANCEL":21:2460)x A$"L"Ą"LOAD PICTURE NAMED:";2560Q 21:1:958:"CHANGE DRIVE NUMBER TO (1/2):";:F$:F$"1"F$"2"DN$F$[ 2040m A$"C"2660 20:1:958:D$;"CATALOG,D";DN$ I140:"-";::"HIT : OR =LOCK, =UNLOCK";:15:A$:A$:A$(13)ė:2040 # A$"U"A$D$"BLOAD @FONTS:AP.MECH.TYPEFACES DISK,A$4000":470iA$"A"Đ:D$"BLOAD @FONTS:THIS DISK,A$4000":470zA$"C"495:16304,0:16297,0:16301,0:21:"REMEMBER TO FOLD YOUR KEY CHART LENGTHWISE AND INSERT IT BEHIND THE TOP ROWMUPL,MRPL,MDPL,MLPL,PUPL,PRPL,PDPL,PLPL,MUMUMR,MRMUMR,MDMUMR,MLMUMR,PUMUMR,PRMUMR,PDMUMR,PLMUMRI(222):49232,0:49235,0:49236,0:49239,0::21:I16I77Ĺ40286,60:40287,212:I255170(:G$" ERROR-"(222)" IN LINE "(218)(219)256" ":PD,PL,MUMR,MRMR,MDMR,MLMR,PUMR,PRMR,PDMR,PLMR,MUMD,MRMD,MDMD,MLMD,PUMD,PRMD,PDMD,PLMDMUML,MRML,MDML,MLML,PUML,PRML,PDML,PLML,MUPU,MRPU,MDPU,MLPU,PUPU,PRPU,PDPU,PLPU,MUPR,MRPR,MDPR,MLPR,PUPR,PRPR,PDPR,PLPR_ MUPD,MRPD,MDPD,MLPD,PUPD,PRPD,PDPD,PLPD,R(47082):Q49152:C49168:G$(7):Q$(34):T256:R149:L136:U193:D218:F128:0:1:3:232,0:233,64:1300J64:I071:A$(I)::I72127:A$(I)A$(IJ)"MR"::I128191:A$(I)(A$(IJ),5)"D":A$(IJ)(A$(I),5)"L"::::UMU,MR,MD,ML,PU,PR,C,0:K1411080-::XD1:CHXP,YP:200hX$(1)(A$(P),2):X$(2)(A$(P),3,2):X$(3)(A$(P),5,2)J13:50,255192((X$(J),1)"P"):(X$(J),1);::">";:1150 SET-UP ====== nXP140:YP80:RT0:SC1:HC3:XD1:SH16384:SL(47081)16:DT33:/~II1:HTHT8:HT40HT1:(36)0ĺWP(I):HT:(P100)(P10));P;":";fP01220"END"::"TOTAL BYTES: ";IL11:1060:" GRAPHIC ANALYSIS":" ANOTHER VECTOR ANALYSIS:";::" ":K(Q):K141K1551190A$"C"ĺD$"RUN HI-WRITER DEMO"b A$"D"đ:16302,0:D$"BLOAD @FONT SAMPLES,A$2000":A$:A$:~ A$"X"ĺD$"RUN XTYPER" A$"E"ĺD$"RUN SHAPE EDITOR" A$"F"ĺD$"RUN FONT EDITOR" "A$"H"ĺD$"RUN SONG SUBROUTINES" ,A$"I"ĺD$"RUN TEXTABOUT THIS DISK ------------------------- CATALOG QUIT";:::" SELECT:";:19:41(V$):V$ 24:12:A$:A$((A$)32(A$"_")) A$"Q"Ģ23:1:958: A$: A$"A"ĺD$"RUN GREETINGS" A$"B"ĺD$"RUN SHAPE TABLE DEMO" DEMO SEE SHAPE TABLE DEMO SEE HI-WRITER DEMO SEE FONT SAMPLES RUN XTYPER RUN SHAPE EDITOR RUN FONT EDITOR RUN SONG SUBROUTINES RUN TEXT TRICKS" " RUN TWO-LINERS";j " ------------------------- SEE NOTES dV$"8/22/84"'nD$(4):Q$(34)ix:(21):::255:" APPLE MECHANIC "::1"---------------------------------- ---------------------------------- (C) 1982, BERT KERSEY, BEAGLE BROS530 4:" SEE GREETINGS      GS" PROGRAM BY BERT KERSEY BEAGLE BROS =========== AT KERSEY BEAGLE BROS =========== A687,12688h9612,9738,12813,12941,12942,12943,13581,13582,13583,13584,13707,13709,13710,13711,13712,13714,13837,14733,14734,15628,15631,15633,15757,15758,15759,15760,15763,16019:127Oi =========== APPLE MECHANIC "GREETIN6,15767,15768,15769,15770,15899:0 g8590,8591,8717,8718,8719,8720,8721,9614,9615,9616,9741,9744,9745,9747,10638,10639,10640,10765,10768,10769,11533,11534,11535,11536,11659,11662,11663,11664,11786,11789,11793,11795,11917,11918,11919,11921,12685,12686,12,10650,10651,10763,10774,10779,11671,11672,11673,11674,11675,11803,12558,12559,12684,12695,12696,12697,12698,12699,12811,12827"f12947,13719,13720,13721,13722,13835,13851,14606,14608,14731,14742,14743,14744,14745,14746,14859,14875,15640,15641,15642,157674,31,15629,63,15630,120,15632,7d 15755,31,15756,96,15761,63,15762,126,15771,4,15882,31,15883,2,15884,126,15890,71,15891,124,15898,31,16383,105~e8600,8601,8602,8603,8715,8722,8726,8729,8730,8859,9624,9625,9626,9627,9750,9867,9883,10636,10648,106495,11923,126,12050,100,12689,79,12700,2,12812,124,12818,3 c 12822,112,12826,15,12939,48,12940,120,12944,63,12946,8,13708,79,13713,31,13718,7,13723,64,13834,63,13836,124,13842,7,13850,15,13962,15,13971,126,14732,96,14737,63,14747,40,14860,124,14866,7,148DR THE SCREEN.":1000'A$:::255:100X,Y:I1(A$):((A$,I,1))31:99::: XDRAW."LOCATION-CHARACTER".#100.AT.START.POINT,THEN.DRAW.EACH.CHARACTER.FOLLOWED.BY."CONNECTOR.CHARACTER".#99I13000:: :255:16301,0:20:1,0:20:10X,Y:9X,Y:I1400::9X,Y:11X,Y:I1400::MAN.POINTSlX02604:6X,153:S(16336):6X,153::16:Y1531634:6X,Y:6X,Y::I19:S(16336)::6X,Y:0:DOG.CRASH.#2v2000:SH18000:90:X0:Y185:A$"THAT'S IT. HIT ANY KEY TO CLEA:A$"4. REPEAT STEPS 2 and 3.":1000NX0:Y160:A$"BETTER YET, USE THE XTYPER or HI-WRITER":1000:X0:YY10:A$"PROGRAMS ON THE APPLE MECHANIC"(126)" DISK.":1000X0,180279,180:2000>bSH16384:90:I1400::X155:Y159:10X,Y:I1400::&16301,0:21e0D$;"BLOAD ]SMALL SQUARE,A18000":SH18000:90:REPLACE.]APPLE.FONT.WITH.NEW.FONTs:16302,0$DX0:Y116:A$"1. XDRAW 100 AT START POINT.":1000:X0:Y126:A$"2. XDRAW A CHARACTER.":1000:X0:Y136:A$"3. XDRAW 99.":1000:X0:Y14697009+%IA(V$):X$(V$,I,1):X$"0"X$"9"Ă:9700H+%G$;:9220r+%VV(V$):VVMAVV0V$"":G$;:9220x+%=,'00,01,02,03,04,05,06,07,08,09,0A,0B,0C,0D,0E,0F,10,11,12,13,14,15,16,17,18,19,1A,1B,1C,1D,1E,1F,20,21,22,23,24,25,26,27,28,29,2A,220*0%A$"$"96601*D%(V$)2V$"$0"(V$,1)O*X%V1$(V$,2,1):V2$(V$,A)*l%(V1$"0")(V1$"F")(V1$"A"V1$"9")ĺG$;:9220*%(V2$"0")(V2$"F")(V2$"A"V2$"9")ĺG$;:9220*%V16((V1$)487(V1$"@"))(V2$)487(V2$"@")+%V$(V):"V$((C$)64):9660_)$(A$"I"C$" "C$"?")(A$"F"C$"@"C$"_")V$((C$)):9660)$A$"F"C$"?"C$" "V$((C$)64):9660)$A$"C"C$"_"C$"@"V$((C$)64):9660)%A$"L"C$"@"C$"_"V$((C$)160):9660*%G$;:92hh4 4 m X@F'FW pc!$EPJP@ D"@7lGc>v G`@1oX{D `p8@ `}@N.`~ocwcgp@xqDF #(T*Pa*U (UB w|~CC`?p|||x?|Gax|`xx<GCA@<"`"``#`?`?`b DH|D""omllllL lllnn@YYhh 4 "`m P((P@( "PP  " @DA B"@0 ` `@1`Phut::PSki@N.WSB""D$?|~o|p~x~`~?\w>}Y(yWkP(yW<G`ddd1d1d|oCwa=G``wc`P(( E(  Ep|<qyx?<p8GCc88`Gcqx?Gcq|||?`aa??`0 c  0@( E    P0(  hh 4]4 m@|x?|p@8cppx?| r  Q @ D"@0 @c G`@1`\k?twz;}Q_kou@N.?W?~ocwcCG`q\:u"QoV*__:ujWo]:uw||A?@`|x|x?|Gax|`xx <GBgC@<|s` \Gy`3p<    DBG DxD:>l,hnn` /(hl @P]px |`hh 4 "m P((P@( }cPPh7 " @ QQ!@A"@0 ` `@1`Pcouwz;P_ko@~._SBp "@I$@2c L"9""0J!0< o`q?P*U"Q@R)^**PA:U|x?|Gax|`xx <GBC<|sp^G{Ap;x<     "D$@ DD",no``o B'koii@_Mpx|:J hh 4 "m P((P@( PP( " @11P@A@ 0 ` `@1`\{ouwz;P_ko@~._SCES. . 26 MECHANIC FONTS 20.00"UA$(18)"UTILITY CITY . . 21 UTILITIES. . . 29.50"A$(19)" "A$(20)"] "OFT EDITOR. 49.95"H A$(14)"PRONTO-DOS. . . .TRIPLE-SPEED DOS 29.50"~ A$(15)"SILICON SALAD. . TIPS & UTILITIES. 24.95" A$(16)"TIP DISK #1 . . .100 TIPS ON DISK 20.00" A$(17)"TRIPLE-DUMP . . .PICTURE PRINTER. 20.00"A$(3)"A.M.TYPEFAMBULL, CT v2232,0:233,3:X768790:Y:X,Y::1,0,4,0,36,172,46,46,62,246,228,22,39,56,246,32,39,37,37,12,54,6,02:3:0:S164:S:1140,96::106 BAR RACE ======== R.F.MODULATOR SAN DIEGO 6::3:A1:B2:C3:D4:E5:F13:G33:H2 WA .:N195:XX1:(1)8:45X,96140,X235X,96140,192X45X,96:45X,X235X,X235X,192X45X,192X45X,X:X190X0.:Z13000::N1250:A(1)279:B(1)191:(1)71:140,96A,B::12001 2 MORE 3-D ======== CHRIS VOLPE TRUSTROLL DOWN MEMORY LANE'":11002:LOC065535:X,Y:Z,(LOC):TNE:::130*LOC771789:PKE:LOC,PKE::TNE771:X1:Y15:Z0::173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96. FLAMING PYRAMID =============== BRUCE JOHNSON REARDAN,25,191:2:Y1013010:5,Y:'X2553014:R(1)14415:YR160:2:X15,Y15X1,Y:3:X,YX10,Y::1:YR1R151:X(RY)1,YX(RY)11,Y:::X04999::756:130* MEMORY LANE =========== JIM GANZ W.HARTFORD, CT J*:12:8:"'A 87,76,788,2,789,3,790,96:NN1:N219001U*#C(0):D(1):768,C:769,D:770:9002' 3-D BARS ======== JIM GANZ W.HARTFORD, CT ':1:1,01,139253,139253,01,0:25,178279,178:0,13925,16525,191:25,165279,165253,139:279,165279,191NY KEY:";:A$:7001_ MUSIC POKES ===========`771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:ST LINE BE--"::" 10 GOSUB 60000":|ú"FOR EACH NOTE, DO TWO POKES AND A CALL-- --------- ----"ú" POKE 0,255-PI (PI=PITCH, SEE ABOVE) POKE 1,LE (LE=LENGTH, 0-255) CALL 771 (PLAYS THE NOTE)";:24:1:"A":50060:50100DÞ:II1:10:I53:A$:0,255(A$):1,80:771:~ÁI18:I52:50,63192((37)55):(A$,I,1);:::ÁI18:I5:(A$,I,1)"X"ĺ(A$,I,1);Â:&Ý:13:"TO MAKE MUSIC, ADD LINE 60000 TO YOUR PROGRAM AND MAKE YOUR FIR:I16:J5305:I1:J:J15ĺ" ";:nÂ:40:" ";:xâ4:A$" X111X1":50080:A$"79X134X6":50080:A$"34X947X9":50080I0:A$" 63":50060:A$" 84":50060:A$"103":50060:A$"111":50060:A$"127":50060:A$"141":50060:A$"153":50060:A$"159 QUIT ==== 5V123:H25V:A128VH(984((V1)8))895:BA1:PA(A):PB(B):A,221:B,96:0,10V:1,9:771:J125::A,PA:B,PB::23:Pò INSTRUCTIONS ============Z×:" C D E F G A B C"::I140:"@@@@@ ";:(d3:LE80:200.PI84:200+D/PI103:200;/PI111:200K 0PI127:200[p0PI141:200k0PI153:200{81PI159:2001PI153:2002PI141:200d2PI127:2002PI111:200,3PI103:2003PI84:2003PI63:LE150:200X4500 4 111:LE2BT:200:115005*J3PI111:LEBT2:200V\+PI141:LEBT3BT(J3):200l+J3REST15:200s$,J,PI111:LEBT2:200,IP-500- C-SCALE =======.:A$"CDEFGABCBAGFEDC":I1(A$):I:23:"(";(A$,I,1);")"::1 |.PI6TER.. 39.95"A A$(3)"A.M.TYPEFACES... 26 MECHANIC FONTS 20.00"w A$(18)"UTILITY CITY.... 21 UTILITIES..... 29.50" A$(19)" " A$(13)"GPLE............ APPLESOFT EDITOR. 49.95"j A$(14)"PRONTO-DOS...... TRIPLE-SPEED DOS. 29.50" A$(15)"SILICON SALAD... TIPS & UTILITIES. 24.95" A$(16)"TIP DISK #1..... 100 TIPS ON DISK. 20.00" A$(17)"TRIPLE-DUMP..... PICTURE PRINS BOSS........ COMMAND EDITOR... 24.00"\ dA$(9)"DOUBLE-TAKE..... 2-WAY SCROLLER... 34.95" iA$(10)"FATCAT.......... DISK LIBRARY..... 34.95" nA$(11)"FLEX TYPE....... FLEXIBLE TEXT.... 29.50" xA$(12)"FRAME-UP........ APPLE SLIDE SHOWS 29.50"4NIC.. HI-RES ANIMATION. 29.50"S <A$(4)"BEAGLE BAG...... 12 GREAT GAMES... 29.50" FA$(5)"BEAGLE BASIC.... BASIC ENHANCER... 34.95" KA$(6)"BEAGLE GRAPHICS. DOUBLE HI-RES ... 59.95" PA$(7)"DISKQUIK........ DISK EMULATOR.... 29.50"' ZA$(8)"DOa ` ypxO0 @O xyOpD8`G~p|O}a!@<@qcAx@ ~oq8 p|O@~@~7D~xdL~?p|@@?c?~<|x@~OO|_ww}Os~?p|~A{qG?{c~ax@~y ~~p~?06! pp`@0``~pxo~?`9fp8F1@G0`lG}`f8s` L99,0,7680,18,7681,63,7682,36,7683,36,7684,45,7685,45,7686,54,7687,54,7688,63,7689,0&]I199::E.08.15.01:Y41896:X42786:((1)E)(1)E201:1X,Y::::OLEY NEW HAVEN, CT %Y49238,0::A01:B01:C0355:L0405:(1)16:RLL4:C,C4R::C;" ";::49232,0:49234,0:::::::23001%] ENTROPY ======= DAVE MCKELLAR TORONTO R&]0:I115:A,B:A,B:: 232,252,233,29,7676,1,7678,4,7679,95::A$:21002N$U POLI-SCREEN =========== DAVID POLIDORI EYNON, PA $US$"202138032244243044000192016246044016192096":I013:800I,((S$,3I1,3))::::22:9:"(HIT ANY KEY TO QUIT.)":800$U130%Y CRAZY QUILT =========== ALAN POR SPIRALS ======= DAVID POLIDORI EYNON, PA # R::12:7:"HIT ANY KEY TO CHANGE PATTERNS.":X11500:::1,1,6,0,12,0,33,63,54,45,4,0:A768779:B:A,B::232,0:233,3$ R3:0,0:62454:C((1)8):C(C3C7):A1100((1)4)1:A:A:113025" N SPINNER ======= TOM SOLDAU LA JOLLA, CA Z"!N:16302,0:A135:B95:C0:D191""N(6(1)1):L(23(1)1):R1(279L):A,BC,D:CCL:R:R1(191L):A,BC,D:DDL:R:R1(279L):A,BC,D:CCL:R:R1(191L):A,BC,D:DDL:R:200022#B3911:A,B5!RFC(C):39A,39B:B:A::18001r!8J PINWHEEL ======== MICHAEL LENZ OKLAHOMA CITY, OK !9J::21:40:232,0:233,3:768,1:770,4:771,0:772,54:773,0:B16:B:0,0:62454":JH16:H:R063:R:10,0:1140,96:R,H,B:19080,192,169,32,133,27,169,208,133,29,177,28,69 jB30,133,28,145,26,101,28,112,3,174,48,192,200,208,238,230,29,174,48,192,230,27,165,27,201,64,144,225,230,30,76,16,3 kB PF JIGSAW ====== ALAN LEDER PATERSON, NJ !QF:C(1)151:(1)C:A139:.3TN):{>22:5:N;" SIDES";:25:N(N3)2;" DIAGONALS":T1N1:QTN1:X(T),Y(T)X(Q),Y(Q):::P12500:::130hB NOISE ===== RANDY LANGER INGLEWOOD, CA - iBZ768827:X:Z,X::768:169,0,133,26,174,87,192,174,82,192,174,84,192,174,5):HCHC3(HC3(1).94)3(HC0(1).9):15002n> POLYGONS ======== JERRY KRAMER PHILADELPHIA, PA >::10:9:"DIAGONALS OF A POLYGON":P13000::X(25),Y(25):N420::3:X(1)140:Y(1)150:T1N:X(T1)14070(6.3TN):Y(T1)8070(6(XX(Z)XX(A)XX(B)XX(C)XX(D)):A$(R)X(R)::23:XL14002U61:A$:130: RECTANGLES ========== CHRIS KOERITZ FAYETTEVILLE, NY ::HC3:Y191:16302,0:X2793:HC:X,YX,191Y279X,191Y279X,YX,Y:YY5190(Y2):XX5275(X1:I31:J33:K50:L279:FF255:C0192:XAL25:X,ZX,191XA,191XA,Z::A$(Z)"GREEN: ":A$(A)"VIOLET:":A$(B)"WHITE: ":A$(C)"ORANGE:":A$(D)"BLUE: "E6R((A)E):X(R)X(R)A:XX(R):RA(RB):YJR:X,YX,YI:H(RB):AF(R(RB)B):K,FFFFB~)_w?G?/~l~?p|~p{wO?{C~I~~@~x_w|~?p|`?pgw?~x`@~HO`~`f`00F1@0` LA`f`3` L~@! ~`~~?p@ @~B|px~~?H`@|`@~~p#~s|~O|C0  @5p|~'` p?`~~?p|} @1|apq x@~~y~sp?xumax|~?p@|op p|~p{wO?sC~~@FGp?~8>p|O?xyw?c~`@``fAp8f9 @G0` Na`fA9Cs` N9 @DO'`|p@ @`gH?p#`~| `p p p|} 1<@apq"bx@@0x,@m.w p@~|yOy`w>G@L~?p|?|yw?sc~?~?~@~?Nw?x_w|~|~?p||ywC?s?~A?p@~ ~O?`~p= `v6x`F~c~|@~0`|G~`Fqa|Gq~``xo@~~?p_|CF1x|0` @|`aCo La~q~@O|Gs~x~?~`O~?~!x p}`p~pa|t~?p|}A 1x@|0`|C?|`a@|Ca@@` p@G~cF1|~0`lC=~`Fqco Lq0:16304,0:16298,0=BX3395:Y140:(X);:Y:X:8002t(# PDL SONG ======== ALAN DOVE CROWNSVILLE, MD *)#A,B:A,B:770,173,771,48,772,192,773,136,774,208,775,5,776,206,777,1,778,3,779,240,780,9,781,202,782,208,783,245,784,174,785,0,786,3,7((Z).5):I0180:AID:L100((2A)):XL(A):YR(Y):U90:U190:X,IU,U1:I,X45,45:IZJ1180:AJD:L100(2A):XL(A):YL(A):XR(X):YR(Y):X,J180,180:J:756:130@ GR SCROLL ========= JOHN DALRYMPLE BETHLEHEM, PA A:20,89I:219,I129I,89I:219I,0129I,89I:rI1497910:X159I:59,I149X,69X:59X,159149X,69X:219,I129X,69X:219X,159129X,69X::756:130X MEXICAN MAN =========== GENNARO CONTE BRONX, NY ]Y:P13.14:DP1180:R(Z)(Z) LEAVES[O6.286.28.05:XS(O)(NO):YS(O)(NO):X(X),Y(Y):::22:A$:130p CLOVER ====== SCOTT CHRISTA SANTA CRUZ, CA -q:3:59,0219,0219,15959,15959,0:59,0219,159:219,059,159:I97910:59,I149I,89I:59I,0149I756::"PR#0":130M LEAVES ====== KEN BROWN FORT LAUDERDALE, FL ::21:X(X)(X140):Y(Y)((Y159)79):140,1140,158:1,80278,80:"COLOR? (0-7):";C:C:"SCALE? (50-100):";S:"NUMBER? (1-7):";N: EVEN # FOR 2*N LEAVES, ODD # FOR N(1):Z110:Z:0:1139,95::P1250::3002f FLOPPER ======= RON WILSON BLOOMINGTON, IN 768,32:769,240:770,253:771,169:772,136:773,32:774,240:775,253:776,76:777,240:778,253:54,0:55,3:1002::24:33,30:40007000:130);*Z)*0.9-2; OR INVENT YOUR OWN!e STEP PATTERN ============ RON & DON BLOCHER LOS ANGELES, CA  X768803:Y:X,Y:: 1,0,4,0,146,146,58,36,63,36,63,36,63,36,45,36,45,36,45,36,45,54,45,54,45,54,45,54,63,54,63,54,63,54,7,0:232,0:233,3:0 7A(Z)60(ZZ100)::28,213:62454:4:X3030:L0:YY5((900XX)5):YYYYY5:Z(25A((XXYY))0.7Y):ZLLZ:Z1120Z:X1,Z1Y:X1X12:X:22:A$:A$:130TRY OTHER FUNCTIONS, E.G.: FN A(Z)=60*SIN(Z/10), OR FN A(Z)=SQR(900.01-ZEM ";B1;:": ";A$(B):CB21:A%(C)A%(C(A$(B)A$(A%(C1)))):A$(B)A$(A%(C2))A%(C1)B:C2::::"ITEM","ENTRY #"::::34,2:D1B1:A$(A%(D)),A%(D)1:::22:A$:A$:130 3-D PLOT ======== ALAN BAXTER SAN DIEGO, CA :X180:00,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000,21000,22000,23000,24000  SUPER-SORT ========== PHIL BARTON SAULT STE.MARIE ONTARIO, CANADA a:"10-ITEM SORTER"::A11:A$(A),A%(A):B2A:A%(B)B::"IT'T RUN)"::" 2. LIST"::"FP"d LI(A$)64:LI3LI9LI11LI13LI17LI21LI24230 :"SKIPPING DATA. STAND BY";: "....";:A1(125):A2(126):A:(123)(124)256LI1000210 125,A1:126,A2p :LI1000,2000,3000,4000,50(A-X): TO QUIT NOW. OR TO RETURN TO MENU. NOTE: YOU MAY NEED TO RE-BOOT AFTER YOU QUIT.";:15:14:A$:A$:A$"A"A$"X"A$"Z"Ĭ :A$"Z"āI124:::40286,60:40287,212:10:"TO LIST PROGRAMS--"::" 1. LOAD TWO-LINERS (DONRAZY QUILT ENTROPY"; 1:23:32,21:33,19::1:"UNCLE LOUIE'S TWO-LINER CONTEST WINNERS ------------------ EACH OF THESE PROGRAMS HAS WON A FREE BEAGLE BROS DISK & TIP BOOK." :"LOAD TWO-LINERS (DON'T RUN) TO LIST PROGRAMS." 15:"SELECT ER LEAVES CLOVER MEXICAN MAN GR SCROLL PDL SONG 3-D BARS MEMORY LANE FLAMING PYRAMID MORE 3-D BAR RACE " RECTANGLES

PLAY AGAIN WITH LONGER NOTES.":" GIVE UP; PLAY AT NORMAL SPEED.":" QUIT PLAYING THAT SONG... NOW!"::" SELECT:";:A$:A$:A$"Q"A$"P"A$"G"9000#A$"P"Ă #A$"G"LPI111:400:STUCK"400:A8PI127:400:FEA-NxPI141:400:THERbPI147:400:INw@PI141:400:HISPI127:400:HAT PI111:400:ANDl PI103:400:CALLED PI63:400:IT4!PI84:400:RICE-!PI103:400:A-!PI11-PI141:400:DLE,PI111:400:CAME@dPI141:400:TOVPI127:400:TOWNi,PI63:400:A-PI111:400:RID-400:INGXPI127:400:ONPI141:400:A PI111:LELX2:400:PO-PI103:LELX:400:NY.PI63:400:HE::"THIS SONG HAS BEEN COMPRESSED. EACH TIMEIT IS PLAYED, THE NOTES GET LONGER. SEE HOW FAST YOU CAN NAME THE SONG."LX2802 10:1:958:"NOTE LENGTH: ";LX2;" (NORMAL IS 40)"pPI111:LELX:400:YAN-400:KEE8PI127:400:DOO"::::::::::::::::::::::::::::::::::::::::":I123:I:1:COL$;::(COL$,39);:2039,(":")128LE4:PI25412:0,255PI:1,LE:771:|PI150:0,255PI5:1,LE:771::700 MYSTERY SONG ============yD:"MYSTERY SONG!":"------------"00:AND%PI111:LE255:200:WIDE!.$500C RANDOM ======:I120:PI((1)255)1:LE((1)30)10:0,PI:1,LE:771:((1)24)1:((1)39)1:(((1)64)32);::LE255:0,PI:1,LE:771::700P SLIDE WHISTLE =============`COL$BRIDE ====================8:PI63:LE255:200:HEREV<PI111:LE180:200:COMESgREST20:200{LE80:200:THEhLE255:200:BRIDE;REST350:2000PI63:LE255:200:ALLPI127:LE180:200:FATREST3:200\PI103:LE80:2===============/ :PI103:LE100:200:SHAVEH PI63:LE50:200ANDT T 200:Ap PI84:LE90:200:HAIR-  PI63:LE60:200:CUT, REST300:200 PI103:LE80:200:SIX H REST22:200 PI111:200:BITS! 500t HERE COMES THE 1800,2700,3800,9900,5700,11800,9500,5100,5300:700R  CHARGE SONG ===========i :PI63:LE40:200y lPI111:200 PI141:200 4PI159:LE50:200 REST100:200 PI141:LE60:200 ` PI159:LE255:200 500 ( SHAVE & HAIRCUT ) LI13:PI((1)200)25:LE20:400:y HTHT112(HT12):9:HT4:"G";:HT3:(A$,HT,1):K(16384):K1281200 16368,0:(K177K185)K209K2011000 x9:5:"MYSTERY SONG" 22:12:(K)::K20913600 K201500103 @K176 SHAVE AND A HAIRCUT":"<3> HERE COMES THE BRIDE":"<4> BUGLE CALL" "<5> ":"<6> C?-SCALE":"<7> MUSICAL TYPEWRITER":"<8> RANDOM NOTES":"<9> SLIDE WHISTLE"::" INSTRUCTIONS"::" QUIT" 22:5:"SELECT:";::" "::HT1:A$" MYSTERY SONG." MENU ====E :A$"--------":A$:"ANY KEY:":A$;:(37):A$ :(21)::DOT$"........................................":I123:I:1:DOT$;::(DOT$,39);:2039,(".")128C 32,5:33,35:3:5::" SONG SUBROUTINES ":::"<1> CHARGE":"<2>d60000:MUSIC POKES-700:GOTO MENUcRESTĖ12:"":X1REST::REST0:,"PITCH:";PI;",";:12:"LENGTH:";LE PLAY A NOTE ===========0,255PI:PITCH1,LE:NOTE LENGTH771:PLAY THE NOTE              Br rqp#@ I@S%J% "%( "0< ov `^1oX{D `p8@ `@.@`B "@i$@2eJd*e(!0< o?n@o|8>~~v@^0/P{|x?|~px?@cp? B ""@$Y@R%B$ 6%)J 0< o~x\;x?x?x?x?x|@` D @0 `> @`^1/Pkut::PSkiu@~.?WDFU T T*(C +P`cB QH'p#"$@Q |xx<Gb#D@>`s8<<>GGgcx<<<OGGgo@oOgcOpd Pa~0388!LY3D D(@ " g@paqqscr@DI@3c9L$ "bs0< g~p?LA 8 |33 0333 !""T0 (H $ @(|\0<`A<8`8 &330F@@ C@ B$` ! x`~?X X(TjP(T@d1dd1>cwcGa`cpp<O<`sqyx<<p8Gca8`}Yr)yT|kqeSr)yT<@@bd1d1ddd1P t}E(}#z }p<O<`qxx<|~|x?|~GCcx?~c?y ND181:A$(ND):30::(21):::255:V0ND::V1(V):40):J199:::H4013:998:H:(A$(V),41H);::A$(0)"BEAGLE BROS APPLE DISKS SEPTEMBER 1984"(A$(1)"ALPHA PLOT...... HI-RES GRAPHICS..$39.50" 2A$(2)"APPLE MECHA   N Mn7 n N 666-uM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-.)3M1?w *uIR >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N ->7->*--??-M  M13--n N -3M?7M13-u J)36Ms-N -n1n1-u J--n?76--NJ--n?76NII)36M5s-uJM13M1??n n N -66-N I166s-dfL3`` F1|0?f30``8`AGpq<`c98NCs|Og?`9@Csx<GApx!y xxp !`f` xxCp||a@yw88p>oq\O@`wxGpLs?\ncC`^q`fa0@`gNC3p8 n@w078NCwlaoa@CspID $$$" @HO'|||DI<>a!dxyyyy~F?|sfxOAq>c|0F0`Lf||~30f ~a|p|c0v~Yxgpf|p<8pnNp@@Csw|wpnsp\ogspLsp`}`0```00 C1 FA1Fa c f~X`?@}1` @1 c @30p`f ?Fa f`@A30f 30` Ls`8@3 cg@1c~Oy`?8p``@pf 0`0 @ F0f ~`` f`La`CfL0`` F10F10`08HCpp`88Ncwgo@Cspw<8p>Nos\O@pw|GpLs\oggp^spfa8@pc|18`g<p@Csx<GID $$$"@ ||~sfpOAa<Cx0L0` f~G?|30fp q~`|g0vY|gxf|p8p.Np@@Ccwxgpnqp\ncap@s|f}`0`a8Cq8 Cq Fc1 Fa8 ~a f`8`?@As`@aLs @As8x`f ?Faf`C30f 30` L3`@y@s?|cg1C~Oy`8p`@pf 0`pL @xGpf F`` <`La`CgL0a` F10F10`08XC{pp`}98NswgGo@{spOp  y y`bI`C#P&ApqxqIp8pOGs\O@pq<gpLpOGwp^sp`apAxoaC@g8x>x@oy|q<|ax~00@g|9pN@{s~|w|`g'dgc@ 0L0` f|fq@00fxMC9Cof0N8`f@p8p.Np@CCwpGpfpp\la@p@s|f= px<|@pc~ca?xgqp?~0c ύ̭͍̭͍)5?;?VIII*m ->?mI57m ->???-m5ۛmI)>???w---??MI*---5????.M m 5???---->???III5 ->?.-755w57m:?.->I5575757575757575o--?7-575w5575?7-?VIRIIۿ-m 5???7- --?7mIR ?RII????7----5????7----5????7----5????7----5????7----5-???wm ;.>.?7-5?II - --???7mIw--mI5???7---??II>I:.>--->??w)>.>.M5??7--?I 5*m ->?mI57mI57-M-????.---5??II M*-M-5?;?mI5wm)>w-5?7-5?III*-M -5??wmI 5;7m)M5;7m-m5????w-M-۷III*mI->?Nm)?7-;mI?;?.-M7->7->7->7->7->7->7->on-?7-->7->7-?.?.5?.5??.-?MI?RIIۿ-m 5????7----?7mIR ?RIII:???.-m-->???.-m-->???.-m--ۛ-- -->???.-m-->???.-m-->???MII @@@@RmI ->?.m)M->;?.m)M->;?.m)M->;?.m-m->??m-mMII?*MI)5??.-M--??w-m;?-?-m-?;?7-mI->;oIIII*mI->?.mI->?.mI->??w-- ->;wI)5????7----???oII ?*---->????.---*?-?NII:????.---->????MIII->?--?.5?.?.?.5?.5?-5?M7->>??-M ->?.mI->?.-- ->??-M->7-> *m-??.m);7->7->7->7->oII?Jm??-M)?.- ??N -5?*m ->??w- -oI wI?.5?-- 5??N->7->7->7-M:?m5MI*mI->?.mI->?.mI->?.mI->?.-- ->??w-- ->;oIIے*MI)>;.mI->?-M->;wm->s)5?.>MIے*->7->7->7->7->7->o?*mm)???.m- -5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;oIII7*m-???.m -5??.mI->?.mI->?.mI->?.mI->?MIIJm-??-m-->??7-M ->?.mI->?.-M-5???w- -?oII*m-???.m -5??.mI->?.m -???.m-;7->oII >J-m-???w)5?.5?.5?.5?MI?J-m->??--m->?7-M ->?w-- ->?wI)5????7----???oII 7->7->7- -???.m--5??.mI->?.mI->?.mI->?.mI->?MII5->7-*5?.5?.5?.5?.5?.5?M>)5?.-5?w->7->7->7->?.o I->7->7-M)5?;7- -??.m5?.m-??.m)->?.m ->?MII ->7->7I:5757757 5575757575757575ow575w>.>.IRII??MI?3 M n m n)-Ms--J -RII????7----5????7----5????7----5????7----5????7----5????III@@@@ MEMORY LANE =========== J*MI5;.MI5;.MI5;.MI5?;w---5?II*MI)>;mI5wm)>w-5?w5II*MII5;.M)M)>;;.M)M)>;;.M-m)>?????-m)-۷III*MI)>?-M-??w-5?--??-M ->;VIII*MI5;.MI5;.MI5?;w---5?wI)>---???MII*---5????NI)---->???IIII---5?????.----????.---???--NI?RII????7----5????7----5????7----5????7----5????7----5????III@@@@15X1,Y:3:X,YX10,Y::1:;;.M)M)>;;.M)M)>??----->???VIIIm*m ->??w)-?.5?.??-m-5?;III;*MI5;.MI5;.MI5?-- 5?wI)>--??MII*---5????NI)---->???III ->?.>.>5w5757-5?V 7575757575757575o--?w)>.>5575*-?VIIiI?.-----?????.----5?????.- ?--5??7--5??7--5??7--u@@@C?.- ??N -5?*m ->??w- -) ->3M?7nIR-53M1?w n5 76NI)R---u -1-3vu?M13M1smNM13MN 5M13  NMMq-M13M1?w ?M .----N) 3vu666n*N >iNI---5??7--5??7--5??7--u@@@C?.- ??N -5?*m ->??w- -u5rVw-->.>.>*-u7I?--???N->7->oI I??MI vRR-53M1smN56-3M13-u mR-3v-NI1*-n -u?R-3---u 3?w6N R-53M1?w ?M >6-3M13Mq)66N 56o )6M.nq)566-N5-n n N -n1nq)R-3M1s-N-̭͍hh4 MmPP((P@( @(( " @ D!@0 `> @`^1/P `ut::PSki@N.W||\{w`wn0~~y9p>~xX@($D"$e#@OPBP@`D?ppcqx?|GcGxx<GbD@O`s8<<CGGcc8<|<___%? ?~ }}0twp rPa~?0:U|x?~G8|px| "  <?wn!`g];??n}8>~w0c  p?OOOp|\s3p3ss !ATt`/( ( |;`|@@<p`6\C;:8C@|@xA H@`A@p`~8|LfrLf@D1BB1>cwcGc`c?pp|Gcqx?<p8Gca8`}Yr)yW|keSr)yW<pG~pc?d1dd1d1dPh/z E(  p<<`sqyxx?<|x?|~GCcx?~c?hh4 B`m P((P@( }cP_h/ " @$D"@0 ` @`@1`P{out::PSki@N._Soh4z4 m XG)$$0Bp#"@HOBP@DA@ 7lGc>vG`@1/P{|{}~?w{q@Oowxx<GbD@C`s8<<GGcs8<<<XQQ%# ` 044|<3 d0 ||?p~t |a~? 0x<xGA@< "   !""D@ H""DEDD""OgLGgo'`glloo@Y0 c  p|( Exc? OG x c1`qaq PaS0 h' ho/n graqq`r8Dx|o~<``x]p~A@ ~p_AUSE |~Gc|~Gpp|||~cwcGC`cp||xaqown?n]{wow~xw|Gcqx?|~p8Gca8`}Y(yW|kPr)yW<G`?d1dd1d1dxow`=G@`wc?@?P(( E(}# }p<<pqyx?<|x?|~GCcx?~c?               D TO ENTER COMMANDS AFTER LINE 500. SEE YOUR APPLE MECHANIC KEY CHART AND INSTRUCTIONS."::"(DELETE LINE 502 TO OMIT THIS MESSAGE.)"::DELETE.THIS.LINEGOTO XXX (SEE PAGE 40)SEE PAGE 40)0)0)????III@@@@?̭͍z# !̠"Π ň ӠϠ"ӺӠˠ" ӺЮȮӠˠ"̠Ġ̠ŠŠˠ ǠӠ ԠӠ ϭӠ ĈӬӠӺӠϠӠ Ӡ!È"ӺŠ٠Š٠Š٠ ŠӠ ŠҠҠɭҠ ˆӺɭҠϠŠŠϠϠŠàŠӺŠҠԠҠԠҠ :I12000::170:170128::72,0:144e"HX$"400<2000.23FFM D823G":I1(HX$):511I,((HX$,I,1))128::72,0:144:w$:24:40:A$&HX$"400<2400.27FFM D823G":I1(HX$):511I,((HX$,I,1))128::72,0:144,16:36:A$@12Q"] "0: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):::(HX$):511I,((HX$,I,1))IES. 24.95"A A$(14)"TIP DISK #1 . . .100 TIPS ON DISK 20.00"v A$(3)"A.M.TYPEFACES. . 26 MECHANIC FONTS 20.00" A$(15)"UTILITY CITY . . 21 UTILITIES. . . 29.50" A$(16)" " A$(17)A$(16)*A$(18) OF KEYS ON YOUR APPLE."*23:40:A$:230,32:0:0,0:62454:3:0,1430,157216,157216,1430,14370,103279,103216,1430,143:0:I22146:I,143I2,143::14370,103279,103216,1430,143:0:I22146:I,143I2,143::;::" C ";::" TO CONTINUE, OR... PRESS ";::" T ";::" TO SEE A SAMPLER OF THE A.M.TYPEFACES FONTS, OR...":"PRESS ";::" A ";::" TO SEE A SAMPLER OF THE FONTS ON THIS DISK."23:1:A$:A$3A$"T"Đ:0) WILL TRIPLE THE SPEED OF LOADING AND SAVING FONTS, PICTURES AND FILES.":"* APPLE MECHANIC TYPEFACES ($20.00) PROVIDES YOU WITH 26 NEW TYPEFACES TO BE USED WITH APPLE MECHANIC'S XTYPER AND HI-WRITER PROGRAMS."15:"PRESS "1. ------------------":" EXEC PAGE COPY 1=3,R4 MOVES PG.1 TO 3. ---------------------" SEE PAGE 30 (POKE 230,ETC.) IF YOU ARE UNFAMILIAR WITH HI-RES PAGE 3."U24:40:16368,0:A$:A$:::"SOME PLUGS:":"----------"::"* PRONTO-DOS ($29.5RE YOUR CAPS-LOCK KEY IS DOWN."v:"* THE XTYPER PROGRAM NOW SUPPORTS TWO DISK DRIVES. ---"::"* A THIRD "Q$"PAGE COPY"Q$" PROGRAM (SEE PAGE 42) HAS BEEN ADDED TO THE DISK.":Y" EXEC PAGE COPY 1=3 MOVES PG.3 TO PG.ITIES. 2. HI-RES "Q$"DUMP"Q$" SOFTWARE LIKE BEAGLE BROS' TRIPLE-DUMP DISK. -----------"I196:4:3:I;::3:36:"ABOUT"24:40:A$:A$::"MORE...":"----"::"* IF YOU ARE USING AN APPLE IIC OR IIE, BE SUE-RUN THE PROGRAM FOR A REPORT ON ERROR TYPE AND ERROR LINE NUMBER.":|"* ";::"TO MAKE A "Q$"HARD COPY"Q$" PRINTOUT";::" OF A HI-RES IMAGE, YOU NEED TWO THINGS--":u" 1. A DOT-MATRIX PRINTER WITH HI-RES PRINTING CAPABILOUR SYSTEM MASTER DISK) TO SPLIT IT INTO 2 OR MORE DISKS, THUS PREVENTING":" "Q$"DISK FULL"Q$; ^" ERRORS WHEN SAVING FILES." hSr"* IF YOU SUSPECT AN ERROR IN A PROGRAM, REMOVE THE "Q$"ONERR GOTO"Q$" STATEMENT FROM THE LISTING AND R TRICKS"( 6A$"J"ĺD$"RUN TWO-LINERS"j @A$"L"ĺD$"CATALOG"::I140:"-";::"ANY KEY:";:A$:A$:y EA$"K"Ĭ J:" GENERAL NOTES:":" -------------"c T"* SINCE THE APPLE MECHANIC DISK IS 0 % FULL, YOU MAY WANT TO USE FID (ON YL,a GY[hu --???---->???7---->???7----???-- --66??$$ 666.--$$$7- <=<>@>?>@A@=?<>`ؠ 9/XXL(XL0):BG:XXXLXR:XX,YXX,YHT:BGF,0:X0X0SX279X279`Y0Y0qY191Y191HC:1:0:3X,Y:3:300(300FLOC(1)16640:FLOC(2)FLOC(1):FLOC(3)FLOC(1) MAIN MENU XC0::::(21)(4)"MONICO"D(FT):XXXX16:YYYYHT1FXX280YY192ĕ3XX,YY:P1(234):3`P10ĂYY:XRXX:1060nXX:XRXX$XXX1X161:YYYYHT18XX1YY280ĕ3XX,YY:P1(234):3LP10ĂYY:XLXX:1140`XX:XLXXtXL0XL0XR279XR27,<,???.--5???.-->??.-->??.-->??.-->?--??66666666.$$$$$$$$566656666--$$$$<$$$->.>.>6666.-- --$$$<666>$$$$?6666'$$$<66668%'%'%'%'%%5>666.--. ,<,<,<)--5???;??7---MI)--5??????7---------5?????????7----M---->???;???7----M---->???;???7-----------$$$$$$$$$$7>6666$$$$M%<$,,57o%?w-7--???7----6666$$$$??7--5??7--5??7--5??7--5??76666%$$$l6666%$$$,6666--$$$$$$$$$ 5?w-7--?a> $3:R`F=->'->' ????.----?????.----????7----?.------5?????.-----????6.$M $7v----------57- mm- 5;?.m m-m m7---------5??????7---MI$:HC(A$):HC6HC4(HC0A$"0")ĺG$;:840<\HC:1200LpK135960XTX:YTY:140:0:J019248:30,J(J192):3139,J(J192)::191:16:J028070:3J(J280),0:0:1:HC:XXT:YYTK1331200YHT11911200YMYMLIYYHT:X,I(192(I191))::XX(X0):(Q)127ĹC,0:760I 1200Y K1438804:GT,0:22:I140:"-";::"3=WHITE 1=GREEN 5=ORANGE":"0=BLACK 2=VIOLET 6=BLUE";:IHC.H21:1:"SELECT COLOR (0-6): (CURRENTLY ";I;")";:20:A$:ACURRENTLY FONT ";FT;")";:19:FT$v lI(FT$):FT$(I)""I1I3Ģ21:19::868:G$;" ILLEGAL CHOICE ";:2800::600 FT(FT$) 1200 K1462020 K151ĒBG:IYYHT:0,I(192(I191))279,I(192(I191))::1200 K130800 BG?YYYM:1200% K154YYYM:1200< K152YY1:1200S K147YY1:1200o K141X0:YYYM:1200 0K155LCLC3264(LC32):1200 DK134680! XK134ĹGT,0::I13:21I:3:"FONT ";I;":";FT$(I);::21:1:"SELECT FONT (1-3): ( T CONTROL-COMMANDS hXTX:YTY:62923:X(224)(225)T:Y(226):XM(FLOC(FT)1)5:YM(FLOC(FT)1)8LD(FT):HT8(FL(FT)1)1:232,0:233,64 |K136XXXM:1200 K149XXXM:1200 K140XX1:1200 K139XX1:1200 K1293:HC:X0:Y10:FT1:232,0:233,64:30,0:33 M  CHARACTER PRINTER ,232,0:233,64:(FLOC(FT)1):4LC32:K(Q):4LC32:232,FLOC(FT)(FLOC(FT)T)T:233,(FLOC(FT)T):1:K128300 @C,0:KKD(KGKEKF):KHĔKHLC(KL):M:30016384:D$(13)(4):G$(7):T256:D$;"MONICO":230,32[ GF16302:GT16301:0:1:GF,0 DN$((43624)):DN$"1"DN$"2"DN$"1":DRIVE# 1999- 16304,0:16297,0:GF,0:Q16384:C16368:D75:E144:F145:G148:H159:L191:M99:T256:Y16:HCwP================== XTYPER BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS, INC. ================== dLD(1)2:LD(2)2:LD(3)2:VERTICAL SPACE BETWEEN TYPE LINESxBG0: BACKGROUND ERASE COLOR(4);"BLOAD CURSORS,A$4000"7 Q          >x?2@qC~`r~?~ F?~`~`O{!@|sg?pp~~~_O7x~?p|}y#8@~@ qccx@~2&@|yx~?p|?@x00>`p|p@`~OpO~3p|~pw?{c~a~|?@ r8|0@ t6p`@pp`@L@`f00F1f@0` Nas`f3` Lp@|?@wGpp xpgw~wsp|8Ppp@}p|}@Ox?|sp|?~q#8>@ ~qq!bx@~p@B @w>~G~?p|`@~~~Owg?f~?p|~cw?{c?~a~~@~`O|||~xGC t6pp`@`?`o@~ f~_`~?`f800F1F@po LAc`f83` L~~p?`@[{n/W~?p~ @pc~xsp|~yx~~~xCyOw@~~?p|}@~D`@pp~?p|~1#<~qa bx@b0p>t p@!op? p|O?~pwO?{~a~~@0~ x|@Q  p`@@`g@d@`fp00F1@po LAC`fp3` LxD`zm/7p@Ha~| fq@x ~|p`p|`@|p'p||"B1|a~q @               fp~y|GxfCpAy<`x >xg0pCG@apAGgf``@q00f LAs`xx7L0` fw<s>Nos@{pp` `0gaf@00@@@ ||~0fpCvx ~c`a0@3 `@1fp@p`@a cp @As8x`9f~G?|30fp ~c`xs`@y|Gq ~g@yf 0`00l @a|0G`?xGCpasxcLpFxc~?x|ca0f|c ~9NGpp<`c98NspOggc9@CsID$"$$$@@L $rDD(I"A" Ha?x~0`opCF1Xxa@ 0`@|8`n@s0w88N`plag?`@CspwAp ) yp( $D !x$$ AIp8pNOp@{qp7pLswpLsp`a `@`a8 3 CqGc1Fs` gaf`~~yxpfcpAy<`|xgp?xGG@sqaOgf`@Aa10f LA3`|x7N0` fw8s>oq@{pp`|c`@C`g|g`8p@A@@` @s0L3 f@1f0@0` @q cx @30p`f Lgq@00fxGs8`>`@8NA3 f@1f 0`00< @ax>0 ;G`pCCpasx?fL0pCvXxa@0f{0` |9Nopq<cw9<Nspog9go9@Cs8I|$%d'$ @@H`$DDI"!d yyIc?|1p@xcF1x|ca<0`@~8`o`w8Gw98Npxnc>gp@Cs>xwA   bcI`C#Ig$Dpqxq8 p08pnOp@@{sp7pLspopLsp`a `` ``0 C1 FA1Fap f ~s?pAy<`|Oygp|OG`qaOgf`CA30f LA3` 0vG0|g? gw0s>np@{p`xa`@C`C?|~cx`?@@@` >?8NA3 g@1f0@0` @? c @30p`f 3 f`0@00f30` `@0L3 f@1 30f C18< @q0``fL308 o`w8Gw8Ncwnc=Goq@CspID`'$$dg@OH $DD(I"@!$  IgNC38`q3F1x88Gs~?0``8`Aopw<gw98Np|og?gy@Cs~|w A!PQ ! ?p88pnNp@@csq<wpLspOGwpLsp`q `` ~``0p? C1 FA1Fa8|xf w08p>np\@@spGpLsla@Rp@fav 30`C1 @ FA1f <`pC`^a` CfqF38fLA9s` 0vC0|g?Lgp``@C`| |a?x@?@@@` <f`x|Gq|~c@yf>Xp@}0` @ c @30p`f 3 f``@30f 30` LCc`0@3 f@1s?~Oy?`8p``@                 FBCHA):L2SF(SFB(CHA))T(SFB(CHA)A):LESF(SF26)T(SF27):mJVEVS:MVA:JL2L1MVA22:1::"INSERTING";:958::JJ(L2L1):JOSL2:OELE:NSL2J:NELEJ:950OSVSA:OEVE:NEL2J1:MVA:9506JāXSF2(CH1)SFA)64TVVA:NN(V)64PXLOC,N:LOCLOCA:22:17:VVS", BYTE #";LOC20480b(V)0VVEĹLOC,U:LOCLOCA:(VA)0ĹLOC,U:LOCLOCA:(LOCC)0ĹLOCC,Ug(Q)155170lVVE590vLOC,0VELOC:VS20479MI0:L1SF(SFBCH)T(S"SHAPE #"CH":"CH10)" VECTOR #";:31:"DIRECTION":980:"=MOVE/PLOT ";:940:"=DIRECTION=FINISHED =BACK UP";:::VVS:LOC20480:22:1:"WRITING VECTOR #";NVVA:N(V):VAVEN(VA)8TVVA:NN(V)8:VAVEN(VXXXP:YYYP:550:380ZK160(PSST)CRCRAB(CR9):V$"PLOT":CR9V$"MOVE"jK14138021:24:868:::958:"WRITE SHAPE INTO TABLE? (Y/N):";:A$:A$"N"İ550:380A$"Y"500VVA:V,0:VEV:570&STı0:21:RCĕ8XP,YP:CXSXPC,YSYPC:3803K155170K208STPSA:CR8:23:1:868:21:12:"PRE-PLOT & ";:868:XXXP:YYYP:JM3K141ST480PSXPXX:YPYY:0:IYS1148:XS1,I277,I: STA:JMC:PS0:CR8:CXP1,YPA:PS}K201STOS8192:OE16383:NE24575:MVA:950:A$"IMPRINTED.":850:NSOS:OSOEA:OENE:MV1:950:770::550:P,96:370K216460VVS0ĺG$;:380$ER(V):VV1:YPYPJM(ER0ER4)JM(ERBER6):XPXPJM(ERCER7)JM(ERAER5):EXPJMXH)(KLXPJMXL)(KUYPJMYL)(KDYPJMYH)ĺG$;:390XPXPJM(KR)JM(KL):YPYPJM(KD)JM(KU):STVVA:V,(KR)2(KD)C(KL):CR8ĹV,(V)4:CRXO,YOCR8380(PSST)ĕCXSXOC,YSYOCPSĕCXOA,YOA380VT21:H40:A$"?":STVT21:H19:A$"START POINT"TPSVT21:H12:A$"PRE-PLOT"CRXP,YP:IA99::CRXP,YP:IA99::JJA:J(J5)5390961:390Z,0:KRKLKUKD450VVSMA8380CR9āIAB:CRXP,YP:A(KRTė:21:940:"= LOCATE START POINT & ";:980:7:"

= PRE-PLOT":7:"= IMPRINT";:PSĢ21:12:868:"PRE-PLOT & "::958:JM3|STĢ21:20:IVVS1:I" ";:26:V$;:IMAXĖ20::I(6(IMA5));:XOXP:YOYP:K(Q):KF4003I77Ĺ222,16:3505 bT$(F$,1):T$"0"T$"6"357Y cA$F$:F$" ":A$"2"A$"6"190 e:I255ĺG$" ERROR "I" ";:I6Ė2:F$" FILE NOT FOUND " fK120001999(I255):::170 h730:P,96:CR9:VS16383:VVS:ST0:XPXX:YPYY:PS0:JM12rS::22:" NOT A 12-SHAPE TABLE ":I1999::150{ ,X$"SAVE"ĹSF,12:SF1,0:D$"BSAVE "F$",A"SF",L"A(SF26)(SF27)T 6170 @":";F$:958:(F$)ġ:X$"":150 T ^:22:I(222):I16Ĺ49232,0:49239,0:49235,0:40286,60:40287,212: `170, A$"1"A$"EDITED.":850:CHCT:360F A$"N"Ĺ49234,0:180_ A$"2"A$"3"180 X$"SAVE":A$"3"X$"LOAD"  P,96:24:" TO ESCAPE";:22:1:X$;" SHAPES NAMED";:320:X$"LOAD"ĺD$"BLOAD "F$",A"SF0 "(SF)12ĺG$;:Z,0:P,96:::22:" MULTI-SHAPE EDITOR ";::" (C)1982 BEAGLE BROS";:980:"SELECT FUNCTION FROM KEYBOARD CHART:";:A$:A$::49235,0:A$""I16:ER A$"4"İ1000:"ANY KEY:";:A$:A$:49232,0:180 A$"5"1100 A$"6"A$"DISPLAYED.":850:286,35:40287,216:350S P1,0:P,96:A:0:CHA:CTA:SL(47081)16:DR(47082) (SF)12(SF1)2ĹSF,12:ISF1SF55B:I,0:I1,5::J32:ISFBSF26B:I,J:JJB: :49235,0:P,97::I011:I13570(I(I4)4),2553((I4)): ZR149:L136:U193:D218:C3:B2:A1:T256:F128:Q49152:Z49168:G$(7):D$(4):Q$(34):V$"PLOT":XS214:YS100:XP97:YP79:XXXP:YYYP:XTXPA:YTYPA:XL4:XH190:YL4:YH145:P233:SH24576:SF24832:MAX990 d(21):::D$"BLOAD CURSORS,A"SH:40          (J11)11)14:YS18((J11))(J76)(J87):23:1:958:" SELECT FOR GRID IMPRINT, OR ERASE/REDRAW, OR SHADOW IMPRINT";:2039,174K(Q):K197K201K211K155720C,0:23:1:958:CR1:A$(KF):A$"S"CR6 (SZ0):X1,140X1,140::Y7570SZ14510SZ5:5050SZ,Y15050SZ,Y1::81022:19:"^ SHAPE-FONT IN MEMORY";:19:"^ AT $6100 (24832)"230,32:P,97:J1:Y08:X111:JJ1:J97ĕJ114X14,Y18(Y6)(Y7)::P,96:.XSF(J230,32:810:820:160:230,32:0:0,0:62454::230,64:62454:3:0,1509SZ7050SZ,1509SZ7050SZ,70(SZ0)0,70(SZ0)0,1509SZ:810X106060SZ10:Y8070SZ14010SZ10:X,Y:::810TX56550SZ5:X1,4050(SZ0)X1,4050SERTING";::J(S8241)(L2L11):JOSL2:OELE:NSL2J:NELEJ:960ibOS824:OES:NEL2J2:MV1:960lJāXSF2(CH1)SF2002:N(X)T(X1):NNJ:X,N(NT)T:X1,(NT)::1:"STAND BY.";vJCH2:700:230,64:800:P,97:CHXS,YS:P,96:201):n&II1:22:1:"WRITING PLOT #";I;", BYTE #";S823;:N(VI):II1:I(PT)N8(VI)TNN8(VI)0(VI1)4II1:I(PT)N64(VI)TNN64(VI):S,N:SS1:IPT550DS,0NMV1:(S8241)(L2L11)MV1EX24:1::"IN0:3X55(X5),Y10:1:X:(Q)155İ810:160FY:VPT,(VPT)1hXXLXW10:PTPT1:VPT,1:S824:PTPT1:VPT,0IN1:830IN0:I0:L1SF(SF2CH)T(SF2CH1):L2SF(SF2(CH1))T(SF2(CH1)1):LE40SF(SF200)T(SF10:3X5,Y:1::I5XR10:3I,Y10:P1(234):3I,Y20:P2(234):3I,Y10:3I,Y20:P10P20ĂI:XLXR:470{XLI3:XL5,Y5XL5,Y25XXRXL10:PTPT1:21:16:PT:3X,Y10:VE3(XXL):VPT,VE:(234)0VE7(XXL):VPT,VE/150SZ510:3I,Y:P1(234):3I,Y10:P2(234):3I,Y:3I,Y10:P10P20ĂI:XRXL:420qXRI:XRXLXRXLXRXWXWXR3:XR5,Y5XR5,Y15XXLXR10:PTPT1:21:16:PT:3X,Y:VE1(XXR):VPT,VE:(234)0VE5(XXR):VPT,VErĒ3:CRX,Y:3XSX10,YS(Y7070SZ)10trCR2Ē0:1X,Y:3XSX10,YS(Y7070SZ)10:Y151Ē3:0,159120,159|K14132023:1:958:21:"SCANNING PLOT #1 ";:V40SF(SF200)(SF201)TZXW5:PT0:XL5:Y7570SZ14510SZ20:I65ER AND .":12:" = PLOT/NO-PLOT";X @CRX,Y:K(Q):CRX,Y:KF320 JC,0:XX10(KR)10(KL):YY10(KD)10(KU):XX10(XXH):XX10(XXL):YY10(YYL):YY10(YYH) TK155İ810:160 ^K160CRCR12(CR2))hCR10287,212:C !:I255ĺG$" ERROR "I" ";:I6Ė2:F$;" NOT FOUND "g #K120001999(I255):::160 ,P,96:X1:Y7170SZ:XL1:YL7170SZ:XH6150SZ:YH14110SZ:35,570(SZ0):P1(234):35,570(SZ0):CR1:P10CR24 6950:": PLOT CHARACT1Ĺ222,13:285M X$"SAVE"ĺ"BSAVE "F$",A"SF",L"40(SF200)(SF201)TV 140} ":";F$:958:(F$)ġ:X$"":150  T$(F$,1):T$"0"T$"6"288 A$F$:F$" ":170 : :22:I(222):I16I77Ĺ16304,0:16297,0:40286,60:4:";:A$::A$""I16:ERC (A$)830,220,220,205,1000,1030:160m 1100:"ANY KEY:";:A$:16304,0:160 X$"LOAD":A$"2"X$"SAVE" :24:" TO ESCAPE";:22:1:X$" FONT NAMED";:270:X$"LOAD"ĺ"BLOAD "F$",A"SF:SZ(SF1)1:SZ0SZ"SH:"MONICO" x285Q SZ(SF1)1:(SF2)205(SF3)0SZ0SZ12000e X$"LOAD"İ640 49232,0:49239,0:49235,0:820 : C,0:P,96:::22:" SHAPE-FONT EDITOR ";::" (C) 1982 BEAGLE BROS";:1090:"SELECT FUNCTION FROM KEYCHARTZ(C)1982:BEAGLE BROS,INC.dQ49152:C49168:G$(7):Q$(34):T256:R149:L136:U193:D218:F128:P233:SL(47081)16:DR(47082):SH24576:SF24832:232,0:P,96:1:0:CH2:X$"LOAD":40286,35:40287,216:(21) n::49385,0:1:"BLOAD CURSORS,A      ? ?wqImmw M:N)N-n mN-6R 6N56N 5 --NN n:?w1VIM7R?RINIVI 5)3M5.M-Nm1w6-N)sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-Nad )/9BS^ent0;OZn);LZl}+6<JXbs .8FSbo" 66N nR>i----nN> ?  ASE CHARACTERS 34-59, WILL BE SAVED AS "Q$"]APPLE 34-59"Q$". YOU MAY, OF COURSE, RENAME ANY FONT WITH NORMAL PROCEDURES."?'21:1:958:`:21:216,0:ARACTERS IN A FONT (TO 2 MINIMUM), ENTER THE START ANDEND CHARACTER-NUMBERS.":v"AFTER THE FONT HAS BEEN SPLIT, IT WILL BE BSAVED WITH THE CHARACTER LIMIT NUMBERS IN ITS NAME. FOR EXAMPLE, THE"}Q$"]APPLE"Q$" FONT, REDUCED TO JUST UPPER C,(NS256):19193:=XQ$(34)::::" FONT SPLITTER "::b"THIS PROGRAM LETS YOU REMOVE UNWANTED CONSECUTIVE CHARACTERS FROM A SHAPE- FONT, THUS REDUCING THE FONT'S SIZE AND SAVING DISK OR MEMORY SPACE."Ol:"TO REDUCE THE NUMBER OF CH256:21:958:(4);"BSAVE ";F$;" ";ST;"-";EN;",A";SF;",L";LL:22:"FONT REDUCED FROM ";I;" TO ";LL;" BYTES.";:958:22:p60,OS(OS256)256:61,(OS256):62,OE(OE256)256:63,(OE256):64,NE(NE256)256:65,(NE256):66,NS(NS256)256:672:J(I)(I1)256:JJD1:I,J(J256)256:I1,(J256):`&ST2OSL2:OEL31:NSL1:60000OSL4:OEL5:NSL3D1:6000:ISF194SF2002:J(I)(I1)256:JJ(OSNS):I,J(J256)256:I1,(J256)::LLL5D2D1SF4zDI(43616)(43617)(SF2EN)(SF2EN1)256:IL3L38000:(I)0ĂL3I1:L4SF(SF194)(SF195)256:L5SF(43616)(43617)256:D2L4L3ST2āISF4SF2(ST1)2:I,N1:I1,N2:ENNāISF2(EN1)SF2N2:I,N1:I1,N2:<D1āISF2STSF2EN8:"CORRECT? (Y/N):";:A$:A$::(4);"MONICO":22:A$"Y"A$"N"A$"Q"A$"R"320i JA$"Q"10000y TA$"R"110 ^A$"N"FLAG1:290 h::22:"WORKING":4N1(SF2):N2(SF3):L1SF217:L2SF(SF2ST)(SF2ST1)256:D1L2L1:L3SF"Q"260 A$"Q"10000) A$"R"230 "22:1:868:233,75:STNSāINSST1:JI1:XP17.5(J(J16)16):YP26.5(J16):IXP,YP8: ,NEENāIEN1NE:JI1:XP17.5(J(J16)16):YP26.5(J16):IXP,YP8: 6FLFL0:200W @22:1:86";::"FIRST";::" CHARACTER (";NS;"-";NE1;:"):";A$:ST(A$):(STNSSTNE1)A$"R"A$"Q"230v A$"Q"10000 A$"R"110 22:1:868:"ENTER NEW ";::"LAST";::" CHARACTER (";ST1;"-";NE;:"):";A$:EN(A$):(ENST1ENNE)A$"R"A$,YP:K1(A$):((A$,K,1))31:99::233,75:IXP,YP8: :21:I140:"-";::24:"(ENTER Q TO QUIT OR R TO RE-START.)"; NS1N:(SF2NS)(SF2NS1)256208Ă NENNS1:(SF2NE)(SF2NE1)256208Ăd 22:1:868:"ENTER NEW 0 F$"Q"100004 (4);"BLOAD";F$;",A19200":z 3:0:1:SF19200:16304,0:16301,0:16300,0:16297,0:60000 NC(19200):NNC:NC96N96 232,0:233,64: :I1N:A$(I):JI1:XP17.5(J(J16)16):YP26.5(J16):233,64:100XP Nd(21):(4);"BLOAD ]SMALL STANDARD,A$4000":(4);"BLOAD CURSORS,A$4A00"Xn7000x21:1:I140:"-";::958:24:"(ENTER Q TO QUIT OR C TO CATALOG.)";:22:1:"NAME OF FONT TO BE SPLIT:";F$:21:1:958 F$"C"ĺ(4);"CATALOG":::::12     E #: "CH;:868:18:"";A$:(A$)CHCO:5:18:CH:1130ILA$"0"200mV(A$)1(A$)(SH)ĺG$;:1090z`CH(A$)jI(SH2CH)(SH2CH1)256:" ADDRESS: ";SHI" (START + "I")":1060:(37)tNSH2CH:L1SH(N)(N1)256:IL11:H40:"-";::%. VECTORS ======= 8::" TABLE LOCATION: "SH" ($4000)":" BYTE #1: ";(SH);:24:"(SHAPES ALLOWED)":" BYTE #2: ";(SH1);:24:"(TYPE)":10609BCOCH:7:958:" FOR DEFAULT, <0> TO ESCAPE":5:"ANALYZE SHAPHC:CHXP,YP'COCH:K(Q):KF96011030@K141200{CHCH(K149)10(K193)(K136)10(K218):CH1CH1CH(SH)CH(SH)930C,0:K155200 K223KK32(K176K186)K173ı:A$(KF):150:210 $J1 pXDĕCHXO,YO:CHXP,YP:800JzXDĒBC:CHXO,YO:HC:CHXP,YP:800S800k DISPLAY ======= 22:14::"SHAPE";::20:CH" OF "(SH);:868:FL960FL0:22:20:CH" OF "(SH)" "XDĕCOXP,YP:CHXP,YP XDĒBC:COXP,YP:;:26::" ";:: 24:30:868:XP", Y="YP;:XOXP:YOYPN*K(Q):KF810X41030g>K141200HXPXP(K204)9(K149)(K203)9(K136):YPYP9(K218)(K216)9(K193)(K211):XP279XP0RYP191YP0\YP0YP191fXP0XP279K200HM1:6007K141HC3:BC0:730:130:200@620VBC:0,0:62454:t DRAW/XDRAW ========== 730:XDXD12(XD1):XDĕCHXP,YPXDĒHC:CHXP,YP200  MOVE ==== 24:1:868:"USE A,Z & ARROWS TO MOVE: X="COLOR";!l24:29:HC;:39:BC;5vK(Q):KF630?1030iK136HMİ130:HCHC(HC0):130:620K149HMİ130:HCHC(HC7):130:620K136HMBCBC(BC0):730:130:620K149HMBCBC(BC7):730:130:620K194HM0:600(K149)20(K193)(K136)20(K218):SC1SC1B0SC255SC0P:130:510fD HCOLOR ====== NXD0:HM1:730:130:22:1::"DRAW";::"/XDRAW"X:24:22:"H";:32:"B";::HMĖ22:"HCOLOR";::33:"CKGRD";bHMĖ32:"BCKGRD";::23:"41RT0:130:200LRTRT16(K149)(K193)16(K136)(K218):RT0RT0_RT255RT255m130:410{130:410 SCALE ===== :24:10:"SCALE";:24:16:SC" ";K(Q):KF5201030K141SC1:130:2001&SCSC)11060 TSL(A$)D ^22:6:SL;:15:DR;:15:A$:A$(13)380] h(A$)1(A$)2350j rDR(A$) |43626,SL:47081,SL16:43624,DR:47082,DR:200  ROT === :24:1:"ROT";: 24:5:RT" "; K(Q):KF420 1030K1E NAMED:";F$:(F$)170E "BLOAD "F$",A"SH:CH1::CHXP,YP:200] " CATALOG ======= ,A$"4"ė:::"CATALOG":1060:"ANY KEY:";:A$::200 6 DRIVE/SLOT ========== @:22:"SLOT "SL", DRIVE "DR;:6:A$:A$(13)350 J(A$)7(A$$"=")A$"12"] A$" "A$(8)COCH:CHCH(CH(SH))(A$" ")(CH1)(A$(8)):FL1:920 22:26:868:(A$)200,200,270,300,320,920,750,790,400,500,590,1080:200  LOAD ====  ::23:1060:" TO CANCEL";:22:1:"LOAD SHAPE TABL XDĕCHXP,YP) XDĒHC:CHXP,YP? SELECT ====== v 16304,0:150:22:26:"SEE KEY CHART:";:C,0:A$ E2A$(127)I16:1300 A$"_"A$((A$)32) A$"0"A$"10" (E2A$":")(E2A$"-")A$"11" (E2A$"-")(E2A:SC:CHXP,YP:: BC:CHXP,YP:HC:RT:SC:CHXP,YP: 21:1:868:22:1:50,63192XD:"DRAW";::"/";:50,255192XD:"XDRAW";::" SHAPE:"CH;:868::1060:868:"ROT="RT; 10:"SCALE="SC" ";:22:"HCOLOR="HC" (BCKGRD="BC;:2039,169:odA$" ===================== SHAPE ANALYZER BY BERT KERSEY (C) 1982, BEAGLE BROS ===================== m(64435)6E21:IF IIE/IICnA$(255):CH1::::24:A$:40286,35:40287,216:1250x:16304,0:16301,0:270 XDĕCHXP,YP:RT        868::" TYPE NAME OF FONT TO BE LOADED:";::7FT:9:868:":";A$:(A$)2040e$ FT$(FT)(A$,30)8 6:1:868:5:D$;"BLOAD ";FT$(FT);",A";FL(FT);",D";DN$:FL(FT1)FL(FT)(43616)(43617)T1:FL(FT2)FL(FT1)L FTFT1:(FT$(FT))2360` FT(13)2240cFT$(1)""FT$(2)""FT$(3)""Ģ24:1:958::G$;" NO FONTS LOADED ";::2800:2040s216,0:240A$"1"A$"3"25402440(A$"3"A$"2")((FT$(1)))A$"1"A$"3"((FT$(2)))A$"2"P FT(A$):T$FT$(FT):6:1: DRIVE NUMBER (NOW ";DN$;")":" QUIT PROGRAM":r4" BEGIN TYPING":" RETURN TO THIS MENU"HJ19:S(Q48):\24:"SELECT: < >";(8);(8);:A$:A$" "ĺA$;">";pI1500::I12:J19:S(Q48)::J140:: A$A FONT:"::I140:"-";::"<1> FONT:";FT$(1):"<2> FONT:";FT$(2):"<3> FONT:";FT$(3) ::" OR SELECT:"::I140:"-";::XCĺ" CLEAR HI-RES SCREEN"5*" LOAD HI-RES PICTURE":" SAVE EXISTING PICTURE":" CATALOG DISK (LOCK/UNLOCK)":"U ========= %XC0::::"MONICO"1:1:"XTYPER LETS YOU TYPE CHARACTERS ONTO THEHI-RES SCREEN USING SHAPE-FONTS. YOU MAYSAVE THE COMPLETED PICTURE TO DISK AFTERTYPING TO RETURN TO THIS MENU.":V 6:1:958::" TYPE A NUMBER TO LOAD +  (21)*(4)"RUN APPLE MECHANIC"VE PICTURE NAMED:";F$:(F$)ĺD$;"BSAVE ";F$;",A$2000,L$1FFF,D";DN$T 216,0:2040f A$"X"2040 21:1:958:"CLEAR EXISTING HI-RES IMAGE? (Y/N):";:F$:F$"N"2040 F$"Y"Ē0:0,0:XC1:62454:2040 2740 I1999::"NAME OF FILE TO ";L$;:":";F$:2460?P (F$)ĺD$;L$;" ";F$RZ 216,0::2040ld A$"L"A$"S"2720n 21:1:958:23:" TO CANCEL":21:2460x A$"L"Ą"LOAD PICTURE NAMED:";F$:(F$)ĺD$;"BLOAD ";F$;",A$2000,D";DN$C A$"S"Ą"SA! A$"D"DN$"2"DN$"1":20403 A$"C"2660X 20:1:958:D$;"CATALOG,D";DN$ I140:"-";::"HIT : OR =LOCK, =UNLOCK";:15:A$:A$:A$(13)ė:2040# A$"U"A$"L"2590( 1:958:L$"LOCK":A$"U"L$"UNLOCK"&< 6:1I :868:FT$(FT)T$:G$;G$;:(222)6ĺ" FILE NOT FOUND ";:2520p (222)10ĺ" FILE LOCKED ";:2520 " ERROR "; 868::2800:216,0::2040 A$"Q"Ģ24:1:868:" GOTO 2000 TO CONTINUE.";:23: A$"D"DN$"1"DN$"2":2040 FONT TO BE LOADED:";::7FT:9:868:":";A$:(A$)2040P$ FT$(FT)(A$,30)8 6:1:868:5:D$;"BLOAD ";FT$(FT);",A";FL(FT);",D";DN$:FL(FT1)FL(FT)(43616)(43617)T1:FL(FT2)FL(FT1)L FTFT1:(FT$(FT))2360` FT32380t 2040 )""FT$(2)""FT$(3)""Ģ24:1:958::G$;" NO FONTS LOADED ";::2800:2040^216,0:240vA$"1"A$"3"25402440(A$"3"A$"2")((FT$(1)))A$"1"A$"3"((FT$(2)))A$"2"; FT(A$):T$FT$(FT):6:1:868::" TYPE NAME OF:" QUIT PROGRAM":S4" BEGIN TYPING":" RETURN TO THIS MENU"jHJ19:S(Q48):\16368,0:24:"SELECT: < >";(8);(8);:A$:A$" "ĺA$;">";pI1500::I12:J19:S(Q48)::J140::A$(13)2240NFT$(1FT$(1):"<2> FONT:";FT$(2):"<3> FONT:";FT$(3)w ::" OR SELECT:"::I140:"-";::XCĺ" CLEAR HI-RES SCREEN"*" LOAD HI-RES PICTURE":" SAVE EXISTING PICTURE":" CATALOG DISK (OR LOCK/UNLOCK FILES)":" DRIVE NUMBER (NOW ";DN$;")"1:1:"XTYPER LETS YOU TYPE CHARACTERS ONTO THEHI-RES SCREEN USING SHAPE-FONTS. YOU MAYSAVE THE COMPLETED PICTURE TO DISK AFTERTYPING TO RETURN TO THIS MENU.":. 6:1:958::" TYPE A NUMBER TO LOAD A FONT:"::I140:"-";::"<1> FONT:";6-N5---3MM3MMN-5n1nq)--n .-u--n >?7nIR--n >?wIn ;6vI--.-5--N1-36-NM13M13- NM13MN 5MM3MM3---NMMq-M13M1??N >?oI-----N)3>6-N6666n-67*u i -߻ - n- s-NM13M1??N6N ---.-u--;.>.>.-u5rVw-->.>.>*-u7I?--???N->7->oI I??MI vR--n >.mN66--n .-uR-6.-NII1--n .-uR--.-.-u)3?w6N --n >?wI>?oI-6--n n N *56--N *566?MM6M.-3MN55666--N1 -6j1.-NM13M?n3Mq6666-u---3MM3MM3MMN3- n n n-N --n n .-u---n >?76NI)--n n .mN -5n??n n N --n??N --N---66vIMM13M13M13--NMM13M13MN IMM3MM3MM3---NsM1s  3MqJM13--N--n >?wI--N >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N ->7->*--??-M --n .-53Mq -5n??n .-uJ--6n3--N---3M3M--N---n?76--NJ--n?76NII--n3M13--N3M13M1??n n N --?n??N >?wqImmw M:N)N- ??n??n??NN 6R66.N566u --NN n:?w1VIM7R?RINIVI 5--n).M.-um-66*-u)--6>?76--N--6>?wI--N>M13M1??N 6N---n??N --N--n??n .-u---666N--n >?7aDd ,2:BS^ent%9DXcw$,BTfu $,:OZ`o~!0?NXhss 66N nR>i----nN> ? 6:TYPE(222)::TXT,0:21:TYPE255ĺ(7)"CODE-"TYPE" ERROR IN LINE #"LINE:c MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTS ADD PROGRAM LINES HERE. ::10:"TO USE HI-WRITER, YOU NEE.":"FOR EXAMPLE, TYPE:"::"FT=1:A$="Q$"TITLE"Q$":GOTO 400":I1(A$):((A$,I,1))31X,YT:99:62923:XRXR(224)::X(280XR)2:HT(X6)7:"FOR HTAB, LET HT="(HT10)10:HT1ğ:7:(7)" COPY TOO LONG ";:958:MLINE(218)(219)25LATOR: :::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7982FT):233,(7992FT)>(A$)(FT1FT3)ĺ(7)"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND GOTO 400 AGAINAG0500: D$"BLOAD CURSORS,A16384":LOC(1)16640:I13e (FT$(I))ĺD$"BLOAD "FT$(I)",A"LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500  HT CALCU3I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(4):D$"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE:  FLRXR(224)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXOXR: PRINT ROUTINE: g d232,L1(FT):233,L2(FT):(FT3$)ĺ:D$"BLOAD "FT3$",A"LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:X2FLAG0:(0=LOAD,1=DON'T)23FT$(1)"]BLOCK"O4FT$(2)"]SMALL STANDARD"c5FT$(3)"]APPLE"o6UL$"@"y74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c       ???7mI->7mI)>7mI-??7m-;.>MIIJ--->???-M 5;.MI5;.mI5??-m575oJ-5??-757575IIJ --->???.>.--???NI5---???VII55757--5??75757?-->?VI*MI5;.MI5;.MI5;.MI5?---5???VII**M-??wmI5wm)>w-5?w5I *M)M)>;;.M)M)>I)>۷III57*>.>.>.>.>V5 57*>.>.>.>.>-?M5757mI57mI7--???.M)57mI5۷II 75757575757575 *-m)???7m)m)57m m 57m m 57m m 5IIII*--???7mI->7mI)>7mI)>7mI)>۷IIIJ--???-M)5;.MI5;.MI5?;w---??VII*--???IIIJ--->???-757?---5???VIIII 575-- 5??-MI57mI 57mI 5;w---->???VII J---5????-MI5?7mI-?;.M-?---->???VII- -5??-757--5??757575IIIJ---5????-MI57mI 5;w--m5??NI)>--??MI?5757---???7mI->7mI)>7mI)>7mwII)>-?-?-?->7----5????III--->?75757575757-->?I 5w5w5w5w5w5w5 --->?w 575757575-->?I J ?--???----;7->7->II----5????oII ->7-w J---5????-MI57mI 57mI 5;w--m5??VIIm5757m--??7mI)57mI 57mI 5?7----mI 57mI 57mI 5;w---->???VIIIm)-??;.MI)>;.MI)>;mI5wm)>w-5?w5IIIm m 57m m 57m m 57m m 57m m 57m m 5;;w----->???VIII--MI->?;?N) ?.5?.5?.5?.-m -5??VIII5mI 57mI 57-M -??--?w57575II-----5????)>;.MI-??7m--;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??w 5oI----????.MI->;.MI)>;.MI-??7m--?7mI 57mI 5III ---5????-7?---???NI->.>ۛ----???III----5????wI57575757575IImmI 57mI 57mI 57)>7mI)>۷IIII575757575757---5???II ---M-???7m)m)57m m 57m m 57m m 57m m 57m m 5IIII5---???7mI->7mI)>7mI)>7mI)>7mI)>7mI)>۷III --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI-7?---5???VII --->???-757---5???757575III ---5????-7mII:??7m)-->;.MI)>;.MI)>?---->???VII5mI 57mI 57mI 57----5????7mI 57mI 57mI 5III55757575757575 ?I 57575757575?--??VIImI57mI57mI5?;.--???7mI->7mI?-VI) --???-M ->;.MI)>;.MI)>;.--m5???.MI)>;.MI)>;VIII---????.MI->;.MI);. --??7mI)57mI 5?7m--??III --->???-7575757?---5???VII----????.MI->;.MI)>;.MI)>;.MI)>;.MI)>;. --??III- --->???-7?---5???.MI)>?---??II --???-M ->;.MI)>?--m5??NI)>.>ۛ----???IIIJ:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7I --???-M ->;NII5?-?75*>VI J)5?.5?.m????---??NI ->.>ۛ---->???wII->.>ۛ----???IIIII-?-?-?-7---->???wII575 ----5????757mI???7----?575?----???IIII ---5????-757m--??7mI)57mI 5??---??II I----5????wII)>-?-?-?.>.>VII - --???-M ->;.MI)>?---5???-M ->;w--?----?--w 5IIےJ 575----5????wI575II J:7->wo?-->?JIJ:7->IIII5555555II --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??II --5??wI57575757575 ----????NI ->.>-?-?-?----5????III---???m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII II)>--5???-7-M???.--;7?--->??N5o >)?7-5?.RI ->?-757575757?-5?M5-?w)57575757575?-?M MRI7mad0[8FTav(K{IZlE1m'tZ" Q ! 9 J d  & ]   / W h $ M b %Iv```iI575757575*>Vmm)>7m)>߷JI        ??7-M)5;.MI5;.MI5;.MI5;VII J--???-M)5;.MI5;.MI5?;w---??VII* -???7-M)5;.MI5;.m -???7m-;.>MIIJ--->???-M 5;.MI5;.m ->???-m57-> * -???.m)757575II --->???.>.--???NI5---???VIIII:.>--->??w)>.>.>.-5?I---5????-M ->;.MI)>?---->??NI)>---???MII75757m-???7-M)5;.MI5;.MI5;.MI5;VII 55*>.>.>.>.>V 5-5?w)>.>.>.>-o 55757mI7m)7-5?7m;.M)۷II 55757575757575 * - -?????7m m 57m m 57m m 57m m 5IIII* -?5;.MI5;.MI5?;w---5?II55757m--????.mI->;.MI)>;.MI)>?.---??IIIJ--???-M -757mII:?---??II III 575---5????-MI57mI 57mI 5??---->??VIIJ--???-M ->;.---->????.?---->???VIIII)->?-7m???.--757575IIJmI 57mI 5IIImmI 57mI 57-M -??--?w57575II-----5????wII)>-?-?-?->7----5????III--->?75757575757-->?I 5w5w5w5w5w5w5 --->?w 575757575-->?I J ?--???----;7->7->II----5????oII )?7-?RJ--->???-M I 5??---??II -----5????wI57575757575IImmI 57mI 57mI 57mI 57mI 57mI 5??---??II mmI 57mI 57mI 5wmI5wm)>w-5?w5IImmII)>7mII)>7m m 57m m 57m m 5wm-m5?w-M->IIIImI 57mI 5wmI;-5?m)ۿMI)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI)>;.MI-????.---;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>?7m -->?;w---??VII----????.MI->;.MI)>;.MI-????.---?7m -?7mI)5III --???-M ->;.?---???NI->ۛm75757mI5??--?II mmI)>7m -?7m-??.-??. -?7m -?7mI)5III5575757575757---5???II mmII)>7-MI)5?;7-mI-5??7mm) 5;7m)-M5;?7m m 57mII)>۷IIIIM-MI5;7-mI5?7mm 57m)M5;7m m57mI-5?7mI)5?۷III --???-M ->;.MI)>;.---???III-----5????75757---->???75757----5????III-----5????75757---->???757575III --???-M ->;.>.MI??;.M)-57mI 5;w---->???VIImmI 57mI 57mI 57----5????7mI 57mI 57mI 5III--5?w575757575-5?I ---5???wI575I5?-?75*>VI J)5?.5?.m????---??-VI)I)?--??-M ->;.MI)>;.---->????.MI)>;.MI)>;VIII----????.MI->;.MI);.---????.MI->;.MI)>;.---???III --???-M ->;.>.>.>.MI)>?---??II ----????.MI->;.MI)>;.MI)>;.MI)>;.-M ->;.MI)>?---5???-M ->;.MI)>?---??II --???-M ->;.MI)>?---->??NI)>ۛmI 5??---??II J:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7I --???-M ->;NIIII --???-M ->;NII5?--5??wI->ۛmI 5??---??II III5?-5??- 5;-M)>7----5????wI 575I-----5????757mI???7----?5*MI)>?---??II --???-M ->;.>. --????.mI->;.MI)>?---??II -----5????wII)>-?-?-7575II --???w--?----?--m)M۷IIJ 575----5????wI575II ?7-5?.o -->?JIJ:7->IIII5555555II --???-M)->?7m m57m)M5;7mm 57-mI5?;?---??II I 5?7-575757575*-->??VII- --???-M ->;.MI)>-?-?-?----5????m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII -??7m)>7m-?7->?- m >7mI->?;.-- ->;?VII )?7-5?.RI 575757575w w575757575IRRIm)Mad0[8HVcx;f2o +h=`Ib([ , i  ; i  N u 2 _ o ! L y &F~!3`RI575757575*>Vmm)>7m)>߷JI      UPSIDE":100:VTVT1.2:HT40:RT2:A$"DOWN!!":100:VTVT1.2:HT40:RT2:A$"(BIG DEAL)":100j4RT2:999HHT1:VT1:FT1:A$"Lower Case is easiest":100:VTVT2.5:HT1:A$"to produce if you can":100:VTVT2.5:HT1:A$"enter it in your programs":100O!":100:VT22.5:HT17:RT3:A$"NOT TO":100:HTHT1.5:RT3:A$"MENTION":100:HTHT1.5:RT3:A$"SIDEWAYS":100:HTHT1.5:RT3:A$"TYPE.":100 HTHT3:VT19:RT1:A$"WAYS)":100:VT19:RT1:HTHT1.4:A$"(BOTH":100\*HT40:VT22.5:RT2:A$"AND N ALSO PRINT":100:HT17:VTVT1.5:A$"IN ":100:A$" INVERSE ":IN1:100:T$A$:A$" TYPE.":100FT3:HT17:VTVT2:A$T$:IN1:100:VTVT2.5:HT18:IN1:FT1:100  VTVT3:FT2:J16:HC0:HT17:A$"FLASH":100:HT17:HC3:A$"FLASHING IS POSSIBLE TO YOU CAN":100:VTVT1.5:HT17:A$"PRINT LARGE CHARACTERS":100:VTVT1.5:HT17:A$"IN ANY HI-RES COLOR.":1003:Y015:0,Y105,Y::Y8095:0,Y105,Y:FT1:J07:HCJ:A$" COLOR #"(J):VT2.5J1.2:HT1:100:`FT2:HT17:VT6:A$"YOU CA"X":VT15.8:100:A$"A":VT15.6:100:A$"C":VT15.8:100:A$"T":VT16:100:A$"L":VT16.2:100:A$"Y":VT16.4:100A$" WHERE":VT16:100:VTVT2.5:HT10:A$"YOU WANT IT.":100:VTVT2.5:CT1:A$T$:100999nFT2:VT1:HT17:A$"WITH HI-WRITER,9A$"--------------":T$A$:CT1:100:VTVT2.5:A$"SCREEN COPY MAY":CT1:100:VTVT2.5:A$"AUTOMATICALLY BE":CT1:100:VTVT2.5:A$"> CENTERED <":CT1:100:VTVT2.5:A$T$:CT1:100sVTVT2.5:HT10:A$"OR PRINTED":100:HT10:VT16:A$"E":100:A$"FONT #3 MAY BE REPLACED AT ANY TIME BY":100:VTVT1.2:HT1:A$"LOADING A NEW ONE FROM THE DISK. STAND BY...":100FT3$"]STENCIL":100FT3:VTVT2:HT1:A$"#3. STENCIL"T$:100:FT2:VTVT3:HT1:A$"^ NOW THERE IS A NEW FONT #3. ^":10099$"THE FONT EDITOR, ARE NOW IN MEMORY:":100:1010qbT$": ABCabc123":FT1:VTVT3:HT1:A$"#1. BLOCK"T$:100lFT2:VTVT2.5:HT1:A$"#2. SMALL STANDARD"T$:100vFT3:VTVT1.5:HT1:A$"#3. ""apple"T$:1001010tFT2:VTVT4.5:HT1:A$00A&VTVT5:HT1:A$"LIST LINES ":100:A$"500-1000":FT1:100q0FT3:VTVT2.5:HT1:A$"TO SEE HOW IT":100:VTVT2.5:HT1:A$"WAS PROGRAMMED.":100D999NFT2:VT2.7:A$"THE FOLLOWING TYPEFACES, ALL CREATED WITH":1002XVTVT1.2:HT1:AXT T HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTS IMPORTANT:DELETE.LINE.502.FROM.HI-WRITER. FT3:A$"THIS IS A DEMO OF":100 VTVT2.5:HT1:A$"BEAGLE BROS'":100HT1:VTVT2.5:A$"HI-WRITER PROGRAM.":1LOAD CURSORS,A16384":LOC(1)16640:I13S (FT$(I))ĺD$"BLOAD "FT$(I)",A"LOC(I) LOC(I1)LOC(I)(43616)(43617)256: J800:I13:XLOC(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2::500 TXT,0:21:216,0:  TE 0:1:IN0:u 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(4):D$"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS LOAD FONTS FLAG0500( D$"B4)::X(280XR)2 xHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı 232,0:233,64:XRX:YB8(LO(FT)1):SCXRXO:SC256ęSC:0:IY(Y0)YYB:3XO,I::150 YB:16:IXXR:3I,Y: PRINT ^ d232,L1(FT):233,L2(FT):(FT3$)ĺ:D$"BLOAD "FT3$",A"LOC(3):FT$(3)FT3$:FT3$"": iX7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: nCTX0:YT176:XR0:BG:Z1(A$):((A$,Z,1))T1X,YT:99:62923:XRXR(222FLAG0:(0=LOAD,1=DON'T)23FT$(1)"]BLOCK"O4FT$(2)"]SMALL STANDARD"c5FT$(3)"]APPLE"o6UL$"@"y74508170ZT$"":LC0:I1(A$):J((A$,I,1)):JULT$T$(JLC(J63J96))::A$T$:100_LCLC3264(LC32)::A$T$ c      16:A$"UTILIZED AS ORDINARY":1000HX0:Y32:A$"SHAPE TABLES.":1000X0:Y55:A$"LIST LINES 500-1000":1000:X0:Y71:A$"TO SEE HOW THESE WORDS":1000:X0:Y87:A$"WERE WRITTEN.":1000X0:Y100:A$"-----------------------------------":1000:SH18000:90:10054,30:A$"SINE DATA":I1(A$):((A$,I,1))31:99:0,90279,90:X027924:X,88X,92::SH16384:90:X02796:3X,50(X)90:I125:::2000SH18000:90:16302,0:X0:Y0:A$"]SHAPE-FONTS MAY BE":1000"X0:Y0)7:XX15:9X,Y:::DRAW.MEN.GRAPHSH18000:90:16302,0:1000,165:A$" Projected Population, 1981-5":I1(A$):((A$,I,1))31:99::LOWER.CASE.TYPING.CAPABILITIES.NECESSARY.(SEE.XTYPER.&.HI-WRITER.FOR.ALTERNATIVE.LOWER-CASE)2000I: SET.SHAPE.TABLE.POINTER.TO.NEW.LOCATION|A$"DISKS SOLD, 1987":1000,40:I1(A$):((A$,I,1))31:99::PRINT.A$.IN.HI-RESSH16384:90X027928:Y139250X22:8X,Y:::2000:DRAW.DISK.CHART&::Y3015930:X0:I1((1)1OPS.ARM^:23:"LET'S LOAD A 2ND SHAPE TABLE, A FONT, AND LOOK AT SOME GRAPH & CHART SAMPLES.";:20::SH18000:D$;"BLOAD ]APPLE,A";SH: LOAD.SECOND.SHAPE.TABLE.AT.LOCATION.18000h::21:"JAN FEB MAR APR MAY JUN JUL AUG SEP OCT"+rSH18000:90175::AX,Y::11X,Y:9,10,11,9,10,11,10,11,9,9,12,9,12,9,10,11:MAN.POINTS@YY7:X02655:6X,Y:J115::6X,Y:S(16336)::DOG.RUNSJI19:S(16336)::32:6X,Y7:0:DOG.CRASHESTI1500::1199,149:999,149:I1500::MAN.DR3:"SCALE=";SC;:J1400(SC1)::::1:1199,149:150:2000,23:1:"SHAPE TABLE POSSIBILITIES ARE ENDLESS. ":21:868:3:279,130279,1500,150:X020:10,134X,140::Y140150:0,Y20,Y::DOG.HOUSEN6X99:Y149:11X,Y:I116:A:AX,Y:J184,140:5105,140:255RT025516:RT:484,140:5105,140:21:11:"ROT=";RT;:J1255RT::484,140:5105,140::0:484,140:5105,140:11:"ROT=0 ":2000:SPIN.ARROWS>":150:23:" AND A SCALE DEMO. ":255:SC811:SC:1199,149:21:1Y2:Y(Y3):5X,Y15:X,Y:3:2000 :22::" XDRAW ";::" DRAWS IN THE HI-RES COLOR THAT'SOPPOSITE THE BACKGROUND COLOR.":"--------"; Y01262:148,Y:151,Y::X482703:1X,128:1X,130::2000:23:"HERE IS A ROTATION DEMO.";:41X,Y:J140::1X,Y::2X,Y:I1200::2X,Y:1X,Y:FLY.DOWN I1400::7192,110:I1999::7192,110:2000:"?"OVERHEAD :22:"TO USE HI-RES COLOR, USE THE ";::" DRAW "::"COMMAND INSTEAD OF THE XDRAW COMMAND."$Y15:X105010::242,132:142,132:J140::142,132::FLY.IN.PLACE Y1321004:242,Y:J19::242,Y:142,Y:J140::142,Y::FLY.UP X411894:2X,Y:J19::2X,Y:1X1,Y:J140::1X1,Y::FLY.RIGHTB Y98118:2X,Y:J19::2X,Y::II21,147:J1200:::MOVE.MEN.DOWN I16:6126,140:6126,134:J19::6126,134:6126,140:J199:::DOG.JUMPS 2000:2.SEC.PAUSE 21:8:958:::"HERE ARE SHAPES 1 & 2 ANIMATED TOGETHER.";:I1999:: I120:242,132:J19 HERE ARE THE 12 SHAPES NOW IN MEMORY.";:21:4:I112:II21,140:I;2(I10));:J1150:::SHOW.SHAPES+TEXT 8168,140:X1681632.5:8X,140:J19::8X,140::Y1401305:8X,Y:J19::8X,Y::8X,Y:MOVE.DISK( I912:II21,140::::21:150:"LOADING SHAPE TABLE. STAND BY..."p nD$;"MONICO":PRINTS.SUBSEQUENT.DISK.COMMANDS.ON.SCREEN xD$;"BLOAD DEMO SHAPES,A";SH:2000:LOAD.1ST.SHAPE.TABLE.AT.LOCATION.16384 :SET.&.CLEAR.HI-RES.PG.1 :(21):40-COL'Ss 23:" SHAPE TABLE DEMO 13000:IF.CTRL-CD0:NORMAL.ROTY(1:NORMAL.SCALEg23:WHITE{<D$(4):CTRL-DFSH16384:1ST.SHAPE.TABLE.LOCATION.($4000)P90:100Z232,SH(SH256)256:233,(SH256)::SET.SHAPE.TABLE.POINTER4 d        1,9866,31,9868,124,9874,79,10002,96,10637,124,10641,3,10647,8,10764,124,10770,18b10777,3,10778,32,10891,34,10892,120,10907,1,11660,63,11661,126,11665,103,11676,124,11787,1,11788,124,11794,99,11797,31,11798,64,11801,7,11802,24,11914,15,11916,120,11922,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:Oa8592,63,8716,112,8727,96,8728,3,8731,2,8844,124,8850,7,8858,63,9613,113,9617,121,9623,3,9739,3,9740,120,9746,125,9749,15,9751,112,9753,1,9754,64,9755,,32P132:64,0:65,32P232:66,0:67,32P2:468:P12Ē0:0,6428,64M;B60,0:61,32:62,200:63,35:64,200:65,7:66,0:67,4:468:I0:Y1911602:0,Y279,Y:279,Y10,Y1::d`771,173:772,48:773,192:774,136:775,208:776,4:777,11212J:8978,4J:9998,858J:9999,163J:10001,1312J:11022,1616J:11025,25102J:12046,6120J:12047,487J:12049,24J-13071,1194J:14994,363J:16014,248J:16017,134J:16018,6J:H1500::::GLANCEG460,0:61,32P1:62,0:63:Y6670:96,7070,Y::0:100,7071,6471,468,468,8171,8171,71100,70::LEFT.BALLOON3:Y4780:213,Y270,Y::Y6570:180,70213,Y::0:179,71212,71212,81271,81271,46212,46212,64179,71::RIGHT.BALLOON&J01:8974,1210J:8977, LOT.":49384,0:140:P12:P21:308::230,64:0:329:230,32:P12:P21:308:16301,0 24:9:"(PROGRAM BY BERT KERSEY)";:I13:J1555::24:::24:1:"]";::" ";::I13:J1555:::16301,0:49384,0::20:[3:Y4780:9,Y70,Y:I1(A$):X((A$,I,1)):XF:G:JāK13:S(BU)::0,X50:A,I1:MU:K15:S(BU):c::X190:I,J:I,J:S(BU)::X167:I:I,0:S(BU)::X168:I:S(BU):I,127::P11:P22:308VI11500::49385,0:280:A$" THANKS":140:A$" A9385,0:322:I131:16298I(I2)2,0:0,((1)200)20:1,4:MU:J122:::308:49384,0:252J01:100HT,VT:10430,2496J:10431,4815J:12478,6264J:12479,124CJ:13375,AJ:14398,6464J:14399,CCJ:15422,9696J:15423,77JY0:K(Q):K128A$"PRESS A":100217,60:I17:((A$,I,1))31:99::K(Q):K128ĕ100217,68:A$"KEY":I13:((A$,I,1))31:99::YY1:Y(Y6)60İ294K(Q):K128203(7)(7)(7):16368,0:K193K216āK199:S(BU)::203b4398,6464J:14399,CCJ:15422,9696J:15423,77Jm J0āLA5:M1L:S(BU)(BU)(BU)::M122::s 294:287:Y0I199::49385,0:HT217:VT52:A$"PLEASE":231:VT60:A$"PRESS A":231:VT68:A$"KEY (A-X).":49384,0:231:16368,00):15415,11216J:IA(A$)s X((A$,I,A)):XF:G:KAB:S(BU)::JĹ0,(JA)X:A,E:MU:KAE:S(BU):} :: I1666::294:I11555:4 K47:JK(KB)B:10430,2496J:10431,4815J:12478,6264J:12479,124CJ:13375,AJ:14A$" WELCOME":140:A$" TO":140:A$" APPLE":140:49384,0:A$"MECHANIC":140:P12:P21:308:161 J0A:10012,59:8376,31(J0):9399,96(J0):9400,15(J0):10424,6712J:11447,1832J:11448,326J:13368,7(J0):14391,96(J0):14392,31(J"(34)" is a registered tm of You-Know-Who.":H0,178:I143:((C$,I,1))31:G::I1555: w230,64:C$"Copyright 1982, Beagle Bros Micro Software":H3,178:I1(C$):((C$,I,1))31:G::P12:P21:308 ~230,32:280e I11500::49385,0:0:3:I851552:29,I249,I:29,168I249,168I::(4);"BLOAD @BBROS LOGO,A$2000":(4);"BLOAD ]SMALL SQUARE,A$6100":P11:P22:308:329 b0:1:3:232,0:233,97:16302,0:16304,0:16300,0:16297,0 iP12:P21:308:I1999:` pC$(34)"APPLEPM =========== APPLE MECHANIC "GREETINGS" PROGRAM BY BERT KERSEY BEAGLE BROS =========== TA1:B2:C3:D4:E5:F31:G99:H100:Q16384:BUZZ16336:MUSIC771:60000:273 [:(21):::49385,            ;oIII->7->7- -???.m--5??.mI->?.mI->?.m -5???.m--??MII J- ??-- -5?;?.5?.5?.-M)5???-m-?MI II)5?.5?ߛ-m->??-m ->?.mI->?.mI->?.-M)5???w-- ->;oIIJ- ??-- -5?;?.mI)>???.m--?.-M)5???-m-??MI ?I)->?--;?.5?---5-?NII????7----5????oII 5- ->?.m-?.5?.5?.5?.5?.m??.m->?MI-57->w->w->w->w->w->w5o-- ->?.m->7->7->7->7->7->?.m->?MIRI-??---????NI:7->7->IIIII:????.---->????MII-5?7-?RJ-m->??--m->?7-M ->?.mI->?.-M)5???w-- ->?.-M-??.- -?.- ?.-oI-MI)5?;7-MI)5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;7- -m->??- -m;?mI5oII -M ->?.mI->?.-M-?;N)-?-m??-m)->?.mI->?.mI->?MII-MI->;7-MI->;7-mI-??wm)?->7->7->7->oI ?----5????7-----?-?-??.mI->?.m -???.m-???.m -5??.mI->?.mI->?MII m-??-m-->?.5?.- -??m-->?->ۛ-M)->??w- -?oII---->???7----*5?.5?.5?.5?.5?.5?MI -M ->?.mI->?.mI->?.mI->?.mI->?.mI->??7-m-->??w- -?oIII-M ->?.mI->?.mI->?.mI->???.m)-5??.m -5??.mI->?MII- m-??-m-->??7-M ->?.mI->?.mI->?.mI->?.-M-5???w- -?oIII- -???.m--5??.mI->?.mI->?;7- --???.m-;7->7->oII m-??-m-->?;7-M ->?.mI->?.mI->?.mm->??.- - ???-- ->?oIII- -???.m--5??*m ->??w- -oII--MI->??.m -?;7- -??.m?.m??.m-?;7-M)-??.mI)5?MII 5->7->7->7->7->7->7- -->??.m-->??MIIMII >7-MI)5?;7- M-->????.m---5????.m-m->??.m)M->;?.mI ->?.mI ->?MIII?mI)5?7-M ->?.mM->?.mm->?.m--5MI:??.m-->??MII- -->??.m--;7->7- -5??.m-;7->7->7->oII - ??-- -5?;?.5?.mI??.m -5;7-MI5?7-- -5???-m-5??MI -M ->?.mI->?.mI->?.mI->???.m--5??.mI->?.mI->?.mI->?MII5->7->7->7->7->7->7->7->o?I)-->??.--?.5?.5?.5?.5?.mI->?.mI->?MII?- -???.m--5??.mI->?.m -??.m--??.mI->?.m -5???.m--??MII - ??-- -5?;?.5?.5?.5?.5?.-M)5???-m-?MI ?- -???.m--5??.mI->?.mI->?.mI->?.mI->?.m -5???.m--??MII5- -->??.m--;7->7- -5??.m-;7->7-?7-5?7-:?.->?.-NJ?7-5?7-:?.->7-?MMJ >-MI:??-- -->??w->II---5???*--->???RIIJI7-???.-m--???NI)7I m-??-m-->?;wII->-??7--?.5?N:7->oI .RI?.5?.5?NI:???w---??-VI -??- --5??.mI->?.mI->?.mI->???.m--5?--?MI M m-??-m-->?7->7-m-??7-m)->?.mI->?.-M-5???w- -?oIII----5????7----*-?-?7->7->7->7->oII m-??-m-->??7-M ->?m -?7m-?;-M ->?.-M-5???w- -?oII m-??-m-->??7-M ->?.-M-5???m-->7->ۛ-M)->??w- -?oII>J>?-->?7-->7->7->7->--???.--5???MI- m-??-m-->??7-M ->?-?-?-?7-MI???.m--5???MIIM m-??-m-->?;wII->-??7--?w->ۛ-M)->??w- -?oII5II->j->- ->;-M)5?7-- -5???.-m-?.5?.5?M?- --5???.m--?.5?.m-???NI)->7->ۛ-M)->???m-->?M -??N-5?.5?.5?.5?.5?.5?*-?oI?J mw--?----?--w JIMJ 575----5????wI575II *->?.->7o I??7--5??JI7-5?7-5?o 5II5->->->->->->75oII- m-??-m-->??7-M ->?.mI->?.mI->?.mI->?.-M-5???w- -?oII> -->;wM R7Im)>7m)*----->?????NII:wII?????7-----m)>7m)>oII?I--->???.M:7---???NI5---???NI iM)>7mm5w 555mI߿m) 5;m moII mI---???---;7-M??w---M???w---??N?M ?-5?7-5?.?J -5??-?.5?.5?.5?.5?.?w@d Hr%Hdt#^Hr)Ia]?W g 7 s  m  @ Y   B o KU%Eu;r6WI->7->7->7->7->7-?.5?M-M->;7-M! ! ! ! ! !!!!!!!!!5->7->.>.>.>.?7-5?I* - -?????m)M5;7m)M5;7m)M?;7-Mm)5?;IIIII* -???wm ->7mI57mI?;?.-M-5?;?VIII-J--???-M)5;.MI5;.m ->???w---??VII**m-???w-M->7mI57-M-???. -?.5?MIIJ--->???-M)>7mI57-M->??w- ?.5oN* )5;.---7mI????---??III)??--->;.>--->??w)>.?7-5?II ?J---5????-M 5;.m ->???-m5ۛmI->???w---??MI I->7->.--???.M)57mI57mI?;?.-M-5?;?VIII>)>.*5?5757?7-5?Iw 57->w5757575?7-?M7->7->.M)>;. ?7-7m)??7-m-5??III--???----;7->7->II----5????oII )?7-?R --???7mI5*--57mI????.---5??VII?->7->.--???7mI->7mI)>7mI->????.---??IIIJ--???---->757mI)>???w---??VIIIII)5?.*--5???-M 5;.MI5;.mI????w---->?II IJ--???-M7m-m5????7-m)->?VIII-m)->??7-m)-wm)?w5-;mI?;?.-M-5?;?VIII -m)->??7-m)-7mI;.--?w57?7-5?II-----5????7----5?wI -?-?-?-MI5????7----5????III7-->?7--;.>.>.>.M:?7-->?I 55w5w5w5w5w5w5 --->?7-->.>.>.>.>?7-->?I J ?>;.M ?;?.-M-5?;?VIII --???---->75w--??wI)>mI)>???w---??VII----5????7----5;wI575757?7-5?II -m)->??7-m)-7mI57mI57mI57mI5??--?II--m)->??7-m)-7mI57mI5wm)>w-5?7-5?III-mI-5??7-mI-7m)M5;7m)M5;7m)M5;-m -?7-m 5;7mm)>;.Mm5?7m -5?;?.-M)5?;?VIII? --???---->?.MI5;.MI5;.MI5;.m ->???w---??VIII---???7---->7mI57m -???.--7?7-5?IIII --???---->?.MI5;.MI5;.MI5;.m)-???w---5??VIII---????.---->7mI)>7mI-???7----m -5??III ?--5??7--;.>.>.>.??7--5??II5I)-->??.--757575mI5???w--?II m-m)->??7-m)-7m)7-??.M7mIm:?;?.-M-->?;?VIII5-5?7-7575757m 5???7---5???II 7-MI)5?;7-mI-??.-M-5?;?. -m5?7m)M5;7mI ??7-mI-5??IIIII-m -5??7?VII---???7---->7mI57mI57mI57m ->???7---???VII ---->???7---->757--->??757mI5????.---5????VII I---->???7---->757--5??757?7-5?IIII --???---->?.>.MI?7m -5;.mI5????---??VIII-m -5??7-m -;.MI5;.---5????.MI5;.MI??7JIIJI7-????.----????NI-7I --???---->?.MI5?-?75w?7-5?II?J)5?.5?.m????---??-VI)I-5?7-;.M?߿mI57---57mI?;?.-M-5?;?VIII---????.---->7mI)7---7mI)>7mI->????.---???IIII --???---->?.>.>.>.mI5????---??----5????7----5?wI -?-?.>.?7-5?II - --???----5??.MI)>?---5???-M ->;.mI->????---??II - --???----5??.MI)>;.mI->???w-- 5*MI->????---??II :J:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???--???-7mI 5????7----5????IIIM --???----5?wII)>--5??wI->ۛmI)5????w---??II II ->?-->?-M5?.M m:????.----7?7-5?I -----5????7----;.MI:???.---?5*MI->????---??II --???----5;7mI??7----??.MI)>;.mI->????---??II w--?----?--m)M۷IIJ 575----5????wI575II ?7-5?.o -->?JIJ:7->IIII5555555II --???----5?7m m57m)M5;7mm 57-m ->????---??II 5I)5?*-->??N)5?.5?.5?.m????.---5????VII --???----5?wII)>*m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII -??7--5;. -?7->?- m)?7m -????7--m->;?VII )?7-5?.RI 575757575w w575757575IRRIm)M@d0[:JXezW(h"Jh:l ,Q4n I o  I s  ) 9 c  B v  L y >] :azI575757575*>Vmm)>7m)>߷JI " " " " " """""""""

POLYGONS NOISE JIGSAW PINWHEEL SPINNER SPIRALS POLI-SCREEN CLdL24577:(103)(104)256LĹL1,0:103,1:104,96:"RUN TWO-LINERS"ziLINE 100 RELOADS THE PROGRAM AT $6000n40286,35:40287,216x130:255:::(21):::"PR#0":1 " SUPER-SORT 3-D PLOT STEP PATTERN FLOPP               f@0p@cxOa|= @}a^`f|yf|xfqFCs8f s8N` LC3`@y@s?|`1f~C?@@opOa c@@_gp p8f ~A`pL @?FAqf `` <`La`CcLpc` F10?F10` 8G{pp8`}98Nspggcq@{sxp~A!  I( $D( !D" Hp8pOp@@ppwpLCs{pLsp`apA|@qc?@gC|xF~s<C?|x9pN{q>xwf88N8`f~f`0@900fLAco0L0` fppNGs@cp` pxXgq`?|0f f@00@CpOa| @}@`f|yfID<`ge'$d@@K'$||D|8"aaxyyyI~A!xIy)  $( !$d !xIp8pNOp@{ppwpLcw<pLsp`apA~`y~s?@gc|OyF~s<g|p9pNzppw98:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:=============G :I2411:I:JI(I2)21402:J:" ";::::nH IRRITATING WIPE =============== 16298,0:16302,0:I372:16304,0:J11::16303,0::J1PAUSE::d`771,173:772,48:773,192:774,136:775,208:776,4:777,1 STRIPE WIPE ===========H :I124:I:1::40):I:1::40):::g SCROLL WIPE =========== T I124:24::3600:: HYPE WIPE =========  1:1:I123:"BUY BEAGLE BROS. BUY BEAGLE BROS. ";::  CHECKERBOARD WIPE ==========0 lI3901:32,I:33,40I::3600::W  CENTER OUT WIPE =============== 4I120:32,20I:33,2I::3600::  UP WIPE ======= I2411:I:1:868:3600:: ` DOWN WIPE ========= I124:I:1:868:3600:: ( ,221:B,96:0,10V:1,9:771:J125::A,PA:B,PB::23:y x(A$)13500,1700,1900,2100,2300,2500,2700,2900,3100,3300 I1999999(A$"0")::400 @ LEFT/RIGHT WIPE =============== I140:33,I::3600::  RIGHT/LEFT WIPE =========LL WIPE":"<8> HYPE WIPE":"<9> CHECKERBOARD WIPE":"<0> IRRITATING WIPE"::" QUIT" L:20:10:"SELECT: ";(8);:A$:A$:(A$)A$"0"A$"Q"1100  QUIT ====: A$"Q"āV123:H25V:A128VH(984((V1)8))895:BA1:PA(A):PB(B):A24:1:I139:".";::2039,174:I2311:I:1:DOT$;:J  MENU ==== 32,5:33,35:5:5::" SCREEN WIPES ":::"<1> LEFT/RIGHT WIPE":"<2> RIGHT/LEFT WIPE":"<3> CENTER OUT WIPE":"<4> UP WIPE":"<5> DOWN WIPE":"<6> STRIPE WIPE"W "<7> SCROe d60000PPAUSE22:DOT$"........................................":(21)k, DOT WIPES =========X((1)3)1:X500,600,700I123:I:1:DOT$;::I139:".";::2039,174:900X33,1:I039:32,I:1:1:(DOT$,24);:::9009    BUGLE CALL ==========,&:24:BT72:I12='REST50:200Tt'PI63:LEBT3:200_'J13w<(PI111:LEBT3:200(REST5:200)PI141:LEBT4:200h)PI111:LEBT4:200)PI63:LEBT4:2000*REST1:200*I2J3İ200:REST15:200:PILX80:5900T$700B$ MUSICAL TYPEWRITER ==================%:" EACH KEY TYPES A DIFFERENT NOTE.":13:" TO QUIT.":"----------------------------------------"%A$:A$;:PI(A$):0,PI2:1,20:771:A$(17)9600%700H& 1:LE2LX:400:RO-'`"LELX:400:NI!6"LX80700(#12:"