' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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- ( D Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`ĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠBAL PLE NEIL KONZEN BEAGLE BROS COPYRIGHT (C) 1983 ================== L!LGLnLH?2hH _Щ2h`,0 Щ`Í0Ѕ76 ]Х6g` _H{Gi$h`H eh`HHL,0 HHL б( sH h`H h`Э mH m{hJJJJ(mHm{hi) @), `)`L!LGLeLH?2hH _2h`,0 }`Í076 ]6a` _H{Gi$h`H h`,0L }( H h`H h`ō mH m{hJJJJ(mHm{hi) @), `L!L^LgLH?2hH ^Щ2h`,0 ,,,C쩴,H ^h08nCЩÅ76 [Х6``HHHL,0 HHL Щ)( lH h`H Щ(m)i) h` Ь,,(,,,_)`,,å% e%H e (hJJJJ(iȰĠĠĠĠĠàð¹ŠàðàĠβðǝ-ا¸à ð±ưŶİƸŶİƴŵŰŵàð¸ǝӠŢ ߃ XX Ӡ¸àðø¹ƲƳưà ŶİŶƲİ àð¸ǝӠŢ ԍŭ ҧƸ͍ ֧ų קðñİàĠĠàSӶS8̭ ,:.@A›BÛCěDśEƛFȧƺàù°Ơù ŹùĠİưĠĠàưč̷ ɛʛ˛Ľ ͛Χ ң ң ѧ ҧƸ͍ ֧ų ק̽̽ ا¸à ð±ưŶİƸŶİƴŵŰŵĴ¶¸ǝӠŢ ߃ ң İ ΠΠִ"ưĠĠàưč̷ ɛʛ˛Ľ ͛Χ ң ң ѧ Ӡôø¹Ʋ³ưà ŶİŶƲİ ôǝӠŢ ԍ˨ Рŧűű [\_: T@ıSIJS4ӵSӶS8̭ ,:.@A›BÛCěDśEƛFȧƺàù°Ơù ŹùĠİŢ ԍŭ ҧƸ͍ ֧ų ק̽̽ اô±ưŶİƸŶİƴŵĠŵôǝӠŢ ߃ ôǝŢ ߃ ùĠİưĠĠàưč̷ ɛʛ˛Ľ ͛Χ ң ң ѧ Ӡôø¹Ʋ³ưà ŶİŶƲİ ôǝӠƲŷ˨ Рŧűű [\_: T@ıSIJS4ӵSӶS8̭ ,:.@A›BÛCěDśEƛFȧƺàù°Ơù ŹKF860BfC,0:CHCH(KR)(KL)11(KD)11(KU):CH96CH96QpCH2CH2dzK141INS540xK141INS710K155IN0:810:160JCH2:700 :21:1:20);:21:"KEY:"Q$(CH31)Q$", ASCII:"CH31" ";:CH64Ė2:"(LOWER CASE "Q$(CV1:960:54OS8192: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):"S"CR6K155160 8106A$"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:M;XSF(J(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$(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:180DL", DRIVE "DR;:6:A$:A$(13)1110>O(A$)7(A$)11100KQSL(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 "S9:CT214,99:CTCT(KR)(KL):CTCT12(CT0):CTCT12(CT13)z(K175K187)K173CTK17610(K176)(K186)15(K173)K155ġ:170K141860H(36):"A,Z,<-,->";::H5:"<-";:H8:"->";::j60,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,9TION":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 POSI62: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:278,BCHA):L2SF(SFB(CHA))T(SFB(CHA)A):LESF(SF26)T(SF27):lJVEVS:MVA:JL2L1MVA22:1::"INSERTING";:958::JJ(L2L1):JOSL2:OELE:NSL2J:NELEJ:950OSVSA:OEVE:NEL2J1:MVA:9505JāXSF2(CH1)SF2êŦƥ堠ѥԀհť՞ŠÊĨȘƸY+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠Ӎԍ00:X0:Y146: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:2000JbSH16384:90:I1400::X155:Y159:10X,Y:---":1000&16301,0:21q0D$;"BLOAD ]SMALL SQUARE,A18000":SH18000:90:REPLACE.]APPLE.FONT.WITH.NEW.FONT:16302,00DX0:Y116:A$"1. XDRAW 100 AT START POINT.":1000:X0:Y126:A$"2. XDRAW A CHARACTER.":1000:X0:Y136:A$"3. XDRAW 99.":100.X0:Y16:A$"UTILIZED AS ORDINARY":1000TX0: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.":1000 X0:Y100:A$"--------------------------------2000U: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":100I1((1)10)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)SH18000:90: 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.CHART2::Y3015930:X0: NAMED:";F$:(F$)ĺD$;"BSAVE ";F$;",A$2000,L$1FFF,D";DN$J 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:XC1:62454:2040 2740 I1999::FILE TO ";L$;:":";F$:24605P (F$)ĺD$;L$;" ";F$HZ 216,0::2040bd 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$9 A$"S"Ą"SAVE PICTUREF$"2"DN$F$ 2040) A$"C"2660N 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"< "NAME OF " FILE NOT FOUND ";:2520A (222)10ĺ" FILE LOCKED ";:2520Q " ERROR ";r 868::2800:216,0::2040 A$"Q"Ģ24:1:868:" GOTO 2000 TO CONTINUE.";:23: A$"D"2560  21:1:958:"CHANGE DRIVE NUMBER TO (1/2):";:F$:F$"1"έ(A$)2040!$ 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 6:1 :868:FT$(FT)T$:G$;G$;:(222)6,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,0AA1090:SF24832o: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 64,1921:4(LC0) K(Q):KF1050_$C,0:4(LC0):K159ę1:P,97:KLC(K191K224)159:99.62923:(225)0K141OS16384:OE24575:NS8192:MV1:960:1:1603K155LCLC3264(LC32)81040BI140:"-";::L::D$;"CATALOG"::E "DR;:6:A$:A$(13)10106(A$)7(A$)11000CSL(A$)s22: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:SZ0SZ1160 P,96:SZH1)Q$")";860Y23: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", DRIV1:HT12:100_: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:1010I18:TXT,0:J1(999999(I1))I::FULL,0:J1(999999(I10.5:T$(T$,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$"@ @ @ @ @ @ @":VTVTVEN'T WE COVERED?":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:100`VT1$"@CREATED 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 HArograms":100RHT1:VTVT2.5:A$"directly from the keyboard.":100:VTVT2.5:FT2:HT1:A$"(The Apple //e lets you do this.)":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:RT2:A$"AND UPSIDE":100:VTVT1.2:HT40:RT2:A$"DOWN!!":100:VTVT1.2:HT40:RT2:A$"(BIG DEAL)":100x4RT2:999 HHT1: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 pIS POSSIBLE TOO!":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":100j*HT40:VT22.5T6:A$"YOU CAN 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 ITH HI-WRITER, 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:nFT2:HT17:VD KEY TO CLEAR THE SCREEN.":10003A$:::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:I1400::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.#2 v2000:SH18000:90:X0:Y185:A$"THAT'S IT. HIT ANYP$LTL#LLH #hH @ #Щ #h`Х6H7HЅ6Ѕ7 KХ6h7h6`HHLѭ)M8,0Щ #ЩL#ЩХ8H9HÍЩ #Эxh9h8`,( H H`H hh`HHLь{m{Hm) ЍH ) hJh̐I0)`LKL#LLH #hH @ # #h`ꍥ6H7H썅6퍅7 6h7h6`)M8,0 #L#8H9HÍ퍩 #xh9h8`,( H H`H hh`L{m{Hm) H ) hJh̐I0)`{3$  56):19193:6XQ$(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."Hl:"TO REDUCE THE NUMBER OF CHARACTERAUSEG$:21: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:::PAUSECONTINUE:"(127):100:16368,0:A$:CL0:100:I1999:::P))I:::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:EN ADDED TO THIS DISK. IT IS TO":"BE USED IN PLACE OF THE OLD FILE NAMED":Q$"DO PLE DOS MOVER"Q$" ON THE PRONTO-DOS""DISK. ONLY USE THIS FILE IN COMBINATION":"WITH PRONTO-DOS AND AT NO OTHER TIME!":23G================== NOTES GLO" ED FD A9 CC A0 60 20 ED FD A9 A4 20":" ED FD 2C 80 C0 B9 1 EA BE 0 EA 2C 81"" C0 4C 41 F9 N2C0G";::"]";::"-"::"--MORE--";:A$:(12)::" UPDATE ON MOVING DOS "::v"A NEW FILE NAMED "Q$"DO GPLE DOS MOVER"Q$:"HAS BE";::":2C0:A9 C1 A0 72 20 D0 2 A9 AC 20"r" ED FD A9 CC A0 60 20 ED FD A9 A4 20":" ED FD B9 1 AA BE 0 AA 4C 41 F9 N2C0G"|" ";::"]";::"-"::"FOR USE WITH GPLE.DM-":"W- '";::"]";::":2C0:A9 C1 A0 72 20 D0 2 A9 AC 20"U"M"::%@"--MORE--";:A$:(12):}J"LASTLY, THE ESCAPE-W (BLOAD ADDRESS AND":"LENGTH) FUNCTION PRINTS THE VALUES IN"T"DECIMAL. IF YOU WOULD RATHER HAVE HEX":"USE THE FOLLOWING:"::^"FOR USE WITH GPLE.48 & GPLE.LC-":)h"W- '";::"]:300:A9 B 85 36 A9 3 85 37 4C EA 3"|"" C9 A0 B0 F C9 80 90 B E9 80 C9 D D0":" 19 20 32 3 A9 8D 2C 8B C0 2C 0 D0 10"," 6 20 6 D0 4C 21 BF 20 21 BF 4C F0 FD":" 2C 8B C0 2C 0 D0 10 F2 20 F D0 4C 21"6" BF";::"M]";::"-CALL768";::90 B E9 80 C9 D D0":" 19 20 32 3 A9 8D 2C 8B C0 2C 0 D0 10" " 6 20 6 D0 4C D4 B6 20 D4 B6 4C F0 FD":" 2C 8B C0 2C 0 D0 10 F2 20 F D0 4C D4" " B6";::"M]";::"-CALL768";::"M":: "FOR USE WITH GPLE.DM-"#"H- '";::"]";::"9 D D0":" 10 20 29 3 A9 8D 2C 0 8D 10 3 4C 6"m " 8D 4C F0 FD 2C 0 8D 10 F8 4C F 8D";::"M]";::"-" " CALL768";::"M":: "FOR USE WITH GPLE.LC-" "H- '";::"]";::":300:A9 B 85 36 A9 3 85 37 4C EA 3"> " C9 A0 B0 F C9 80 EATURE IN 80 COLUMNS AS WELL, THE"a "FOLLOWING PAGE CONTAINS THE NECESSARY":"INFORMATION.": "--MORE--";:A$:(12): "FOR USE WITH GPLE.48-" "H- '";::"]";::":300:A9 B 85 36 A9 3 85 37 4C EA 3"0 " C9 A0 B0 F C9 80 90 B E9 80 C UNNECESSARY"t F"SINCE MOST APPLES ONLY HAVE APPLESOFT":"AVAILABLE WHEN DOS IS MOVED TO THE":"LANGUAGE CARD.": "ADDITIONALLY, THE ESCAPE-H (DISPLAY":"CONTROL CHARACTERS) FUNCTION ONLY WORKS"" "IN 40 COLUMN MODE. IF YOU WANT TO USE":"THIS FND ESCAPE CTRL-R":"(INTEGER HIDE AND UNHIDE) FUNCTIONS ARE" 2"NOT IN THE GPLE.DM ESCAPE TABLE BECAUSE":"THERE ISN'T ENOUGH ROOM. YOU CAN" <"DELETE SOME OTHER FUNCTIONS AND ADD":"THEM BACK TO THE ESCAPE TABLE IF YOU":"WISH. THIS WILL PROBABLY BEH t ================== NOTES GLOBAL PLE NEIL KONZEN BEAGLE BROS COPYRIGHT (C) 1983 ==================  ::(12)::Q$(34):" NOTES 12/14/83 ":" UPDATE ON ESCAPE TABLES "::< ("THE ESCAPE CTRL-T A     SC(I),(NLO(LOI)):}M$"D"ĢA:A:IA22:DE$((IA)12);">":::A:15:32,4:33,36:A:A:I0FF:DE$((LOI));::M$"D"ĠC:I434F:VA41B(I14)B:I,IBV::$22:17::180:24):FF:22:17(TR10SE10):"TRACK$";H$(TR)"(";TR:22:7:30);:FF:22:7:" TRACK $";H$(TR);"(";TR;"),SECTOR $";H$(SE);"(";SE;")":PZ14:1020 M$"H"ĢA:A:I025212:"$";H$(I);">"::A:15:32,4:33,36:A:A:I0FF:" ";H$((LOI));::4M$"A"āI0FF:SC(I),(LOI):HM$"N"āI0FF:"C"AZ12:7200KAZ35:A:A:"$00> ";:I010:H$((LOI));" ";::868I1122135:CB(I59)35:A::H$((LOI));::H$((LOIA));::H$((LOIB));:JI3I32:FI(J),(LOJ):37:H$((LOI33));::H$((LOI34))::21:868_ 180::::uM$"C"Ģ21:868:22:868::3:"T";:5:"T";:37:"S":"R";:5:"Y";:37:"I":"A";:5:"P";:37:"Z":(M$"A"M$"N")(X$"C"X$"H"X$"D")Ĺ32,4:33,36:35,22::(M$"A"M$"N")X$"C"ĢA:A:I025212:"$"H$(I)">":M$N";:35:"C";::39:500:A$(13)1020YA$"H"A$"D"A$"A"A$"N"A$"C"7040cM$A$wM$"C"DF$M$:M$"C"ĢB:A:868:9:"=====":3:"T S T F";:868::"R E Y I";:868::"A C P L";:868::I6202:I:868:7:KA30:"-";:"SLOT ";SL;", DRIVE ";DR;:15:500:A$(13)6140M(A$)1(A$)26080ZDR(A$)43626,SL:47081,SL16:43624,DR:47082,DR:1020X FORMAT 'X$M$:24:A:"FORMAT: HEX, DEC, ASCII, NOFLASH, CAT:";::9:"H";:14:"D";:19:"A";:26:"HT2:DE$(VV):53008M$"H"ĢVT:HT1:H$(VV):5300MSC(PZ),VV:5300kPZPZ(PZ255):DI1:1020p CHANGE SLOT/DRIVE 24:A:868:"SLOT ";SL;", DRIVE ";DR;:6:500:A$(13)6080(A$)7(A$)16020SL(A$)324:A:868OPZ))") NEW:":MAFF:9200GLOPZ,VV:A$M$:24:A:868:XS:9100YM$"C"5180v(SF0)173ĹS,VV:5300:HTHT1:VT6(HT1HT5HT37)Ğ(VT:HT:H$(VV)::5300<VT:HT2:3)PM$"D"5260d:PZ(PZ2)20ĞxVT:TR;"), SECTOR $";H$(SE);"(";SE;")? ";:500:A$"Y"1020RRW2:9000:RW1:1020h CHANGE A BYTE TS0:VV(LOPZ):M$"C"SSC(PZ):SA,94:S,94:SA,94:5060SFI(PZ):S,94:SA((SF0)173),94W$"OLD VALUE:$"H$((LOPZ))"("((L$"N"1020A$"Y"4120hA$"":TS0:W$"WRITE ONTO TRACK ($00-$22(34)):":MA34:9200:A$""1020TRVV:W$"TRACK $"H$(TR)"("(TR)"), SECTOR ($00-$0F(15)):":MA15:9200:A$""10208SEVV:24:A:868::"WRITE";::" TRACK $";H$(TR);"(";68:"READING TRACK $";H$(TR);"(";TR;"), SECTOR $";H$(SE);"(";SE;")";}l RW1:9000:M$"C"TR17(TR17SE0)X$"C":M$DF$v TR17SE0M$"C" 7050 WRITE SECTOR 24:A:958::"WRITE";::" ONTO SAME SECTOR? (Y/N):";:500:A$"Y"A9200:A$""3140" A$""1020^ SESE(A$"3")(A$"1"):SE15TRTR1:SE0:TR34TR0 SE0SE15:TRTR1:TR0TR340 3160D TRVV:W$"TRACK $"H$(TR)"("(TR)"), SECTOR ($00-$0F(15)):":MA15:9200:A$""1020N SEVVDX 24:A:8RACTERS 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:QS 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"vQ$"]APPLE"Q$" FONT, REDUCED TO JUST UPPER CASE CHA}rj|,|ۅ 9J H 90$'  J,|0L],,H ɠ h`LB,2C,2D,2E,2F,30,31,32,33,34,35,36,37,38,39,3A,3B,3C,3D,3E,3F-$'40,41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,5B,5C,5D,5E,5F,60,61,62,63,64,65,66,67,68,69,6A,6B,6C,6D,6E,6F,70,71,72,73,74,75,76,77,78,79,7A,7B,7C,7D,7E,97009+%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$;:92@$A$(V$,1)x(T$((V$)0A$"0"A$"$"A$"L"A$"C"A$"I"A$"F"A$"N")((V$)1(V$"0"V$"9"))ĺG$;:9220(h$A$"$"(A$"0"A$"9")9520(|$(V$)2ĺG$;:9220($C$(V$,2,1)($A$"N"V$((C$)F0):9660)$A$"I"C$"@"C$"_615X1656)22(X1743X1784)23(X1871X1912)24(X1999X2040)_'#HTXSC(12(VT1))7:s'# GET A VALUE '$V$"":A$"":24:A:868:34,23:W$;:657:34,0:V$"":I512767:(I)141V$V$((I)F0):'$(V$)ı',$(V$)3ĺG$;:9220 (&#VT9(X1063X1104)10(X1191X1232)11(X1319X1360)12(X1447X1488)13(X1575X1616)14(X1703X1744)15(X1831X1872)16(X1959X2000):VT9180D'#VT17(X1103X1144)18(X1231X1272)19(X1359X1400)20(X1487X1528)21(X1 WRITE.)>%d#768:2054:REM READ/WRITE AT $300D%x#`%# FIND TABS FROM SC() %#VT(X1023X1064)2(X1151X1192)3(X1279X1320)4(X1407X1448)5(X1535X1576)6(X1663X1704)7(X1791X1832)8(X1919X1960):VT9180:($C!A:LF$:LF$:16368,0:D$;"PR#0"7$H!MP0:7050Q$(# READ/WRITE SECTOR $<#768,32:769,227:770,3:771,76:772,217:773,3%P#47083,0:47084,TR:47085,SE:47088,LO(LOTF)TF:47089,(LOTF):47090,0:47091,0:47092,RW:(RW=1 TO READ. RW=2 TO00:A$"Y"8505"#6!MPMP0:7050,#7!1020Q#9!24:A:" TO ESCAPE";:868$>!A:D$"PR#"SS:LF$:LF$:IA23:JF0IA(984((IA)8))895:I:KJJ39:PK(K):PKPK64(PK32):PKPK64(PK95PKSP):(PK95(PK255PK127));:(Q)155Ă:A:LF$:(Q)155Ă"7050R"(Q)155Ĺ16368,0:JLO196:NJA:I8:J:9000:8110"16368,0:9000:24:A:"5=PRINTER DUMP, OR ANY KEY=CONTINUE:";:500:A$"5"8500"16368,0:MP0::7050"3! DUMP #4!24:A:868:"DUMP TO PRINTER? (Y/N):";:522:22:"DEC"!hA$"!!!!!SECTOR/HEX!!!!!":IA(A$):I1:A:(A$,I,1);:40:(A$,I,1)::14:40:"D":40:"C":24:A:" TO ESCAPE"; "O$(0)"+ ":O$(A)". ":JLO56LO192D:D:C(JLO56)D:NJAJA:I07:K(N)BI:O$(K(KB)B);::"$";A$;A$;"012 ":IA16:I3:2:(A$,I,1);:38:I1;I11): T20:2:38)::2:38):20:2:" 01234567891111111111222222222233333 ":2:" 0123456789012345678901234 ":!^A$"+--------------TRACK/HEX---------------+":A:A:A$:22:A$:;"),SECT$";H$(SE);"(";SE;")"::1020.7000?? DISK MAP o@24:"DISK MAP? (Y/N):";:500:A$"Y"1020ETXTR:SXSE:TR17:SE0:RW1:9000:TRTX:SESX:8094? JMP1:::A$"0123456789ABCDEF":2:2:" 1111111111111111222 ":2:ύˠҍĠҍ̭¶àݍİùĶİà àààĶİǍŠҍˠҍ 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``@                          #$%&'()*+,-./0123456789:;<=>?CI1029,1792,1064,1320,1576,1832,1104,1360/============== BYTE ZAP BY BERT KERSEY COPYRIGHT 1982 BEAGLE BROS ============== A/I!XN  !"#$%&'()*+,-./0123456789:;<=>?  !"D1,D2,D3,D4,D5,D6,D7,D8,D9,DA,DB,DC,DD,DE,DF,E0,E1,E2,E3,E4,E5,E6,E7,E8,E9,EA,EB,EC,ED,EE,EF,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9,FA,FB,FC,FD,FE,FF'/`'1029,1157,1285,1413,1541,1669,1797,1925,1069,1197,1325,1453,1581,1709,1837,1965,1109,1237,1365,1493,1621,1749,7F-8'80,81,82,83,84,85,86,87,88,89,8A,8B,8C,8D,8E,8F,90,91,92,93,94,95,96,97,98,99,9A,9B,9C,9D,9E,9F,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF.L'C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,CA,CB,CC,CD,CE,CF,D0,ύ̭ˠ΍Ġ΍Šά̤čˠ΍İǍ f88N8`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|p9pNzppwfp~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|,<,???.--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 ύ̭ˠčĠčŠĬ̤ōˠčİǍ 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 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>xwL,a GY[hu --???---->???7---->???7----???-- --66??$$ 666.--$$$7- <=<>@>?>@A@=?<>`ؠ  6@3K34;(ͷ /<Ï<:A(*A44*A~($G+( ~/_~(=G+~(6+<=(+~>.66?*AO DE͖4?Ȣ<<=>٩L6 ݍ_很Ծ Cu LqB ̍ Lf Lf Lf Lf Lf e f@ɝ ɾL` / < ,C-C=ȱ<i@<Ș=.C=/CעPC0"lCtC<ȽuC TO READ:";:A$:21:1:958:A$"Q"Āb A$"_"Ğ:21:10:" CAPS-LOCK KEY DOWN. "G$:192s A$"R"192 TR17:SE15:RW1:9000:7050 M$"C":DF$"H":DI1::7050 A$:A$((A$)32(A$"_")):  STATUS LINE @(111)(112)TRABLE DAMAGE. " FI(0):I110:FI(I)FI(0)CI::I11FF35:FI(I):FI(IA)FI(I)B:FI(IB)FI(I)D:JC32:FI(IJ)FI(I)JC::49384,0:FI(I33)FI(I)36:FI(I34)FI(I)38:, :18:2:"WARNING"::23:13:" TO QUIT, OR":24:6:"INSERT DISK, THO SOFTWARE":12:"4315 SIERRA VISTA":11:"SAN DIEGO, CA 92103" I0FF:H$(I)::I0FF12:SC(I):JA11:SC(IJ)SC(I)CJ:: 49385,0:17:A:IA160:"-";::18:" ";::"WARNING";::": BACK UP YOUR DISKS. A MISTAKE COULD EASILY CAUSE IRREPA":::11:"APPLE DISK UTILITY"S 11:"------------------":13:"BY BERT KERSEY" J64:I09:DE$(I)"00"(I)::I1099:DE$(I)"0"(I)::I100FF:DE$(I)(I)::49384,0? 11:11:"COPYRIGHT (C) 1982":11:IA18:"-";:::8:"BEAGLE BROS MICR1:J1:K1:A1:B2:C3:D4:E5:F6:SP160:F0128:FF255:TF256:LOC24576:NLO(175)(176)256280:Q16384:G$(7):D$(13)(4):RT16:SL(47081)16:DR(47082) 255:D$"NOMONICO"::::49385,0:2:13:":"12)":":13:" BYTE-ZAP ":13:":"12)":(dP`============== BYTE ZAP BY BERT KERSEY COPYRIGHT 1982 BEAGLE BROS ============== }ZSS1:PRINTER.SLOT \LF$"":LET.LF$=CHR$(10).IF.PRINTER.NEEDS.LINE.FEEDS _(64435)6E21:IIE CHECK xSC(263),H$(255),DE$(255),FI(255):I                     é0ӠˠϠŠ̠ŠéԠé̠΍$$8HIL,նh, ,`, ,`, , C,:/8`9LLLL`ª`LQLYLLLee0HFg09 N }_bh L HN Эh8©é0 h``8LXLeLXLe}_bh L HN Эh8©  :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:67,(NS2)(I1)256:JJD1:I,J(J256)256:I1,(J256):Y&ST2OSL2:OEL31:NSL1:6000x0OSL4:OEL5:NSL3D1:6000:ISF194SF2002:J(I)(I1)256:JJ(OSNS):I,J(J256)256:I1,(J256)::LLL5D2D1SF4sDI(43616)(43617)256:21EN)(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:5D1āISF2STSF2EN2:J(IRECT? (Y/N):";:A$:A$::(4);"MONICO":22:A$"Y"A$"N"A$"Q"A$"R"320b JA$"Q"10000r TA$"R"110 ^A$"N"FLAG1:290 h::22:"WORKING":-N1(SF2):N2(SF3):L1SF217:L2SF(SF2ST)(SF2ST1)256:D1L2L1:L3SF(SF2 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:200P @22:1:868:"CORFIRST";::" CHARACTER (";NS;"-";NE1;:"):";A$:ST(A$):(STNSSTNE1)A$"R"A$"Q"230o A$"Q"10000 A$"R"110 22:1:868:"ENTER NEW ";::"LAST";::" CHARACTER (";ST1;"-";NE;:"):";A$:EN(A$):(ENST1ENNE)A$"R"A$"Q"2601(A$):((A$,K,1))31:99::233,75:IXP,YP8:y :21:I140:"-";::24:"(ENTER Q TO QUIT OR R TO RE-START.)"; NS1N:(SF2NS)(SF2NS1)256208Ă NENNS1:(SF2NE)(SF2NE1)256208Ă] 22:1:868:"ENTER NEW ";::"F$"Q"10000- (4);"BLOAD";F$;",A$4B00":s 3:0:1:SF19200:16304,0:16301,0:16300,0:16297,0:60000 NC(24832):NNC:NC96N96 232,0:233,643 :I1N:A$(I):JI1:XP17.5(J(J16)16):YP26.5(J16):233,64:100XP,YP:KУ Gd(4);"BLOAD ]SMALL STANDARD,A$4000":(4);"BLOAD CURSORS,A$4A00"Qn7000x21:1:I140:"-";::958:24:"(ENTER Q TO QUIT OR C TO CATALOG.)";:22:1:"NAME OF FONT TO BE SPLIT:";F$:21:1:958F$"C"ĺ(4);"CATALOG":::::120   @ ԠŠ ˠŠ ԠŠ ˠŠ ̠ŠŠŠ͠ŠŠ: ϠŠE ĠŠ ŠԠ ˠɯϠ Šőȑȩȑȩȑ tAfLAȩEQ ȩ tA tALAɍ`BH h0`  6uX fG fALA$E$C$D@LA X5A <=I?߮=<,,<>=?  A tA    L!L[L^LH?2hH [2h`,0 z,,,C쩴,H [h08nCÅ76 å6\`L,0L z)( H }h`H ΍(m)i) h`̍ ΍,,(,,,_)`,,å% e%H e (hJJJJ(iȅ)`L!LILRLH?2hH IЩ2h`,0 tЭ`0Í1Ѕ7 FХ6K`HHHL,0 HHL tЩ)( WH wh`HР Щ h`Р Щ), `{m{i`ʀL!LFLIL}H?2hH F2h`,0 e`0Í17 å6G`L,0L e)( H hh`H{ h` ), `{m{i`L!LXLaLH?2hH XЩ2h`,0,,, N,LЩÅ76 UХ6Z`HHHL,0 HHL Щ)( fH h`H8{m{Ǎ h`,,,({)Ь{(  `L!LULXLH?2hH U2h`,0,,, N,LtÅ76 å6V`L,0L t)( H wh`H8{m{Ǎ h`,,,({){(  `P$LGLLLH hХ6H7HЅ6Ѕ7 >Х6h7h6`HHLѭ)M2,0Щ ЩLЩХ8H9HÍЩ h9h8`,( H H`H hh`HHLь{m{HmH ) hJh̐I0)`K ϕЯ?)L>LL{LH hύ6H7Hэ6ҍ7ύ 6эh7h6ύ`)MӍ2,0Ӎ LӍ8H9HÍҍэ h9h8`,( H H`H hh`LЍ{m{HmH ) hJh̐I0)Ѝ`e  J O  {3$L!L_LqLhH?2hH _Щ2h`,066ЩL_Щ,`Í6Ѕ76 \ЭH xh`HHHL Ш0)`,0 HHL  ЍI(+ H h`,LϬ{,,LL!LULaLXH?2hH U2h`,066LU,`Í676 ÊH xh`L 0)`,0L  I(+ H h`,LϬ{,,LŠĠٯΩ?Š̭ԠٯΩ?ԠˠԠNΠEĠŠ ŠԠ ˠɯϠ Š ԠŠ ˠŠ Š΍ؠ͍͠ҠЧҧ͍Ӡ͍έҠĭҍ:CCDDDDE4EPEEEE~EEjEŠŠ:ҠŠ:ԠӠٯΩ?̠ŠΠ͠ Π٠Ҡ jB8`Bɠ` Bɍ`)` jB j%%H & h%  B Bȑȩȑ`DɬB B) B#ɰɺ)B B B ɬ@ X jB <=I 8LӥE? ע L թ? ?L CC ` L՘H@ɠ$@ ɢE@@EE=h`$(,L  nEɛ@ (֝ Lՠ (`DH @hhhNۦCLչHH`ʩ L8 ɠE (֦CH h $>n 8 ٦EHۥ3ɾɪ$@ɢE@@$@0 )ߝh` L\֤EEC ڈL 8N"۩ کEE I Liԩ ,"Xۙ`-ՠ ɢɢ 9`887 հ8 I۝`  ՐEH7۰ȹ8ɿh`  Րh` ԰Eɠ`AɀeE*EEA ʽAIE EA`C թ LE `N ׆CEɍHh`C$3P톸Eɍ$3p C ۢL#ED צC` ԰N"L$= ԭ7 UՐ 80 6հ Uհ!Lv E Ԑ L F>JۢL ɠɰɺ8``ɯɍ`cԌԠɮ nڙc` Ԑ ԰c`n$`cdۘ8ۍ"ێ7 0N" +0i ԍ" p9 Ռ7ۘ ^I Ռ8۽I] qIƍ!I ۭd$3p ڙcۈL (ɬ ɮ ɬ ɢ Ԑ`ʨ`hh @N" 8ѢE` L Ԡ ɠiɺ>F=Eۍ۩$3pDо$3pۆE L l٠JL?֩2 ۭ"HED 3 )3,h"N,pd D٭Aم - 8) ٩ ٩ 8H hߦ$( ٩L/,Hh)hEhذUAۈ ,ѩHHL! 8HHL/ N۠6897ی`iюgѮ۽HH`(Hw nCh,3L ©/éĭ JLLE,"L ,CBɗ?ɘɍLɏBɖɅ 3ɾHD`I$j  8ѩ`L!L_LqLhH?2hH _Щ2h`,066ЩL_Щ,`Í6Ѕ76 \ЭH xh`HHHL Ш0)`,0 HHL  ЍI(+ H h`,LϬ{,,LI h`ӠŠӠϠŠŠӠŮ͠Ԡé̠΍$$8HIL,"h, ,`, ,`, , I,:/8`$ɾ ,L `HZ ,Р+ , Hȱh  ȩБ,'ȱ,H  h iЩH, MMТFL;L      z# Šˠ ̠٠ԠҠ٠Ԡ ԠҠ ŠР* Ӡ ϠӠ ԠӠ"̠Ġ̠Š Ϯ͠ŠҠԠҠҠ ɭҠ  ŠŠϠ ɭҠϠ ͭĠͭĠحĠҭĠ ϠŠӠҠĠҠ  ؠĠ ؠΠ ؠҠŠҠӠ ͮĠ̭נĠ !Ů"ŮàŮ͠ǠŠŠŠ ŠŠ ŠӠҠ   ٠̠Πé   Ϡ Ԡ   ŠӠ   Ӡ   ̠͠ŠҠ .)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- ? ?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> ?  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 L!LVL_LH?2hH VЩ2h`,0 Э>$>Щ VЩLVЩ0Í>Ѕ7 SХ6X`HHHL,0 HHL Щ)( dH h``H h` VЭ{0)` L!LSLVLH?2hH S2h`,0 r>$> SLS0Í>7 å6T`L,0L r)( H th``H h` S{0)`  ?--5??7--5??7--5??7--u@@@C?.- ??N -5?*m ->??w- -) ->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> ?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-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--;.>.>.-ŠŠŠŠŠŠŠŠ̠ŠӠҬŠŠŠŠŠŠŠŠƠ˨ΠԠӠנΠŠĢƠ˨ΠԠŠϠŠӠҢŠĠŠӠҬŠŠŠŠŠŠŠŠ   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    L!LRLLH?2hH @ RЩ2h`,0;&;Щ RЩLRЩÍ;Ѕ76 {Х6`ХEHFH ~{Gi$hFhE`HHHL,( H H`H hh`HHLюЌЩ RРJ ) (̐I0)Ю` L!LRL{LH?2hH @ R2h`,0;&; RLRÍ;76 å6_`܍EHFH܍ {Gi$hFhE܍`,( H H`H hh`Lݍލ RJ ) (̐I0)ލݍ`   III --???-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    ---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?????.-???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----LbL!LLH?2hH @ !Щ2h`Х6H7HЅ6Ѕ7 Y{Gi$6h7h6`HHLѭ)M2,0Щ !ЩL!ЩХ8H9HÍЩ !h9h8`,( H H`H hh`HHLь{m{HmH ) hJh̐I0)` LYL!LLH?2hH @ !2h`ꍥ6H7H썅6퍅7 {Gi$6h7h6`)M2,0 !L!8H9HÍ퍩 !h9h8`,( H H`H hh`L{m{HmH ) hJh̐I0)`   *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??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 ->;NILbL!LLH?2hH @ !Щ2h`Х6H7HЅ6Ѕ7 Y{Gi$6h7h6`HHLѭ)M2,0Щ !ЩL!ЩХ8H9HÍЩ !h9h8`,( H H`H hh`HHLь{m{HmH ) hJh̐I0)` LYL!LLH?2hH @ !2h`ꍥ6H7H썅6퍅7 {Gi$6h7h6`)M2,0 !L!8H9HÍ퍩 !h9h8`,( H H`H hh`L{m{HmH ) hJh̐I0)`   ?*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 I: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 =========== JLbL!LLH?2hH @ !Щ2h`Х6H7HЅ6Ѕ7 Y{Gi$6h7h6`HHLѭ)M2,0Щ !ЩL!ЩХ8H9HÍЩ !h9h8`,( H H`H hh`HHLь{m{HmH ) hJh̐I0)` LYL!LLH?2hH @ !2h`ꍥ6H7H썅6퍅7 {Gi$6h7h6`)M2,0 !L!8H9HÍ퍩 !h9h8`,( H H`H hh`L{m{HmH ) hJh̐I0)`   נŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم38x` X L !   - `" X    i( ! o , и` X$i( " X ,       ?.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?LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0Ȫ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝 & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ,LLL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lѥȥ񥰶Ls 8tit8sB@tCtABCB>?><>=?>BPݱ>BL@ /@L  ipm@8e@@AiA8ϥ_^8LKLKLp iLe ꤸ ML#gA$ (A$)3Ā% (A$)13220Q :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" ' DO NOT CHANGE 10010 '(121)(122)256316yi<>zi=i?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->7;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-----?-?-?:DL:I126:::( 20(A$)2:A$:H LD$"BRUN GPLE DOS MOVER,D1"k (1005)234ĺD$"BRUN GPLE.DM"s 20 :"SYSTEM DISK MUST BE IN DRIVE 1":DLL GPLE.DM":9:"2) BRUN FID":9:"3) RUN COPYA":9:"4) INSTALL RENUMBER" 9:"5) INSTALL INTEGER BASIC":9:"6) BRUN ESCAPE SAVE":9:"7) REMOVE GPLE":9:"8) EXIT MENU" 20:11:"(ONE KEY SELECT:)";:C$:(8);(8); C$ 30 DL11000"4"İ170:D$"RUN RENUMBER":B dC$"5"İ170:D$"RUN INTHELLO":i nC$"6"İ170:D$"BRUN ESCAPE SAVE" pC$"7"İ170:D$"BRUN REMOVE GPLE" rC$"8"İ170:J x6:A$"GPLE WORK DISK / SYSTEM MASTER":180:::A$"SELECT CHOICE:":180::9:"1) INSTA 2000 D$(4)-(978)1901200::C$"*"@c#I123:I:1:C$;:40:C$;:I(I12423:I:1:J139:C$;:J,I22039,(C$)128<C$"1"İ170:1100FC$"2"İ170:D$"BRUN FID":PC$"3"İ170:D$"RUN COPYA": ZC$    )64TVVA:NN(V)64OXLOC,N:LOCLOCA:22:17:VVS", BYTE #";LOC20480b(V)0VVEĹLOC,U:LOCLOCA:(VA)0ĹLOC,U:LOCLOCA:(LOCC)0ĹLOCC,Ug(Q)155170lVVE590vLOC,0VELOC:VS20479LI0:L1SF(SFBCH)T(SFSHAPE #"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(VAXXXP:YYYP:550:380YK160(PSST)CRCRAB(CR9):V$"PLOT":CR9V$"MOVE"iK14138021:24:868:::958:"WRITE SHAPE INTO TABLE? (Y/N):";:A$:A$"N"İ550:380A$"Y"500VVA:V,0:VEV:570&STı0:21:"Cĕ8XP,YP:CXSXPC,YSYPC:3802K155170K208STPSA:CR8:23:1:868:21:12:"PRE-PLOT & ";:868:XXXP:YYYP:JM3K141ST480PSXPXX:YPYY:0:IYS1148:XS1,I277,I: STA:JMC:PS0:CR8:CXP1,YPA:PSK201STOS8192: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):ERXPJMXH)(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,YOA380|VT21:H40:A$"?":STVT21:H19:A$"START POINT"SPSVT21:H12:A$"PRE-PLOT"CRXP,YP:IA99::CRXP,YP:IA99::JJA:J(J5)5390961:390Z,0:KRKLKUKD450VVSMA8380CR9āIAB:CRXP,YP:@(KRė: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):KF4002I77Ĺ222,16:3504 bT$(F$,1):T$"0"T$"6"357X 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:JM12rST:22:" NOT A 12-SHAPE TABLE ":I1999::150z ,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: `70+ A$"1"A$"EDITED.":850:CHCT:360E 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"SF/ "(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:186,35:40287,216:350R 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$(13)(4):Q$(34):V$"PLOT":XS214:YS100:XP97:YP79:XXXP:YYYP:XTXPA:YTYPA:XL4:XH190:YL4:YH145:P233:SH24576:SF24832:MAX990 d::D$"BLOAD CURSORS,A"SH:402         0)X1,4050(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:XS,YS:P,96:230,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:::810aX56550SZ5:X1,4050(SZ24:1::"INSERTING";::J(S8241)(L2L11):JOSL2:OELE:NSL2J:NELEJ:960vbOS824: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:CH200)T(SF201):{&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)MV1RXPT,VE<10:3X55(X5),Y10:1:X:(Q)155İ810:160SY:VPT,(VPT)1uXXLXW10:PTPT1:VPT,1:S824:PTPT1:VPT,0IN1:830IN0:I0:L1SF(SF2CH)T(SF2CH1):L2SF(SF2(CH1))T(SF2(CH1)1):LE40SF(SF:VPT,VE10:3X5,Y:1::I5XR10:3I,Y10:P1(234):3I,Y20:P2(234):3I,Y10:3I,Y20:P10P20ĂI:XLXR:470XLI3:XL5,Y5XL5,Y25XXRXL10:PTPT1:21:16:PT:3X,Y10:VE3(XXL):VPT,VE:(234)0VE7(XXL):VSZ20:I6550SZ510:3I,Y:P1(234):3I,Y10:P2(234):3I,Y:3I,Y10:P10P20ĂI:XRXL:420~XRI:XRXLXRXLXRXWXWXR3:XR5,Y5XR5,Y15 XXLXR10:PTPT1:21:16:PT:3X,Y:VE1(XXR):VPT,VE:(234)0VE5(XXR)2)6hCR1Ē3:CRX,Y:3XSX10,YS(Y7070SZ)10rCR2Ē0:1X,Y:3XSX10,YS(Y7070SZ)10:Y151Ē3:0,159120,159|K14132023:1:958:21:"SCANNING PLOT #1 ";:V40SF(SF200)(SF201)TgXW5:PT0:XL5:Y7570SZ14510 PLOT CHARACTER AND .":12:" = PLOT/NO-PLOT";e @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(CR:40286,60:40287,212:P !:I255ĺG$" ERROR "I" ";:I6Ė2:F$;" NOT FOUND "t #K120001999(I255):::160 ,P,96:X1:Y7170SZ:XL1:YL7170SZ:XH6150SZ:YH14110SZ:35,570(SZ0):P1(234):35,570(SZ0):CR1:P10CR2A 6950:":)1:SZ0SZ1Ĺ222,13:285Z X$"SAVE"ĺD$"BSAVE "F$",A"SF",L"40(SF200)(SF201)Tc 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,0BOARD CHART:";:A$::A$""I16:ERN (A$)830,220,220,205,1000,1030:160x 1100:"ANY KEY:";:A$:16304,0:160 X$"LOAD":A$"2"X$"SAVE" :24:" TO ESCAPE";:22:1:X$" FONT NAMED";:270:X$"LOAD"ĺD$"BLOAD "F$",A"SF:SZ(SF1RS,A"SH:D$"MONICO" x285V SZ(SF1)1:(SF2)205(SF3)0SZ0SZ12000j 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 KEYZ(C)1982, BEAGLE BROSdQ49152:C49168:D$(13)(4):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 n::49385,0:1:D$"BLOAD CURSO        O FONTS LOADED ";::2800:2040/216,0:240GA$"1"A$"3"2540R2440{(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 FONT TO BE LOADED:";::7FT:9:868:":";A$: BEGIN TYPING":" RETURN TO THIS MENU"EHJ19:S(Q48):}\24:"SELECT: < >";(8);(8);:A$:A$" "ĺA$;">";pI1500::I12:J19:S(Q48)::J140::A$(13)2240FT$(1)""FT$(2)""FT$(3)""Ģ24:1:958::G$;" N"<3> FONT:";FT$(3)[ ::" OR SELECT:"::I140:"-";::XCĺ" CLEAR HI-RES SCREEN"*" LOAD HI-RES PICTURE":" SAVE EXISTING PICTURE":" CATALOG DISK (LOCK/UNLOCK)":" DRIVE NUMBER (NOW ";DN$;")":" QUIT PROGRAM":.4"PE 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:";FT$(1):"<2> FONT:";FT$(2):X,YHT:GF,0:X0X0,X279X2799Y0Y0JY191Y191gHC:1:0:3X,Y:3:300p(300FLOC(1)16640:FLOC(2)FLOC(1):FLOC(3)FLOC(1) ========= MAIN MENU ========= XC0::::"MONICO"1:1:"XTYPER LETS YOU TY80YY192ĕ3XX,YY:P1(234):39P10ĂYY:XRXX:1060GXX:XRXXh$XXX1X161:YYYYHT18XX1YY280ĕ3XX,YY:P1(234):3LP10ĂYY:XLXX:1140`XX:XLXXtXL0XL0XR279XR279XXL(XL0):BG:XXXLXR:XX,YXC4(HC0A$"0")ĺG$;:840*\HC:1200:pK135960XTX:YTY:140:0:J019248:30,J(J192):3139,J(J192)::191:16:J028070:3J(J280),0:0:1:HC:XXT:YYTK1331200YMYMLD(FT):XXXX16:YYYYHT1XX2-X,YX,YHT:XX(X0):(Q)127ĹC,0:7607 1200G K1438804:GT,0:22:I140:"-";::"3=WHITE 1=GREEN 5=ORANGE":"0=BLACK 2=VIOLET 6=BLUE";:IHCH21:1:"SELECT COLOR (0-6): (CURRENTLY ";I;")";:20:A$:A$:HC(A$):HC6H1:1:"SELECT FONT (1-3): (CURRENTLY FONT ";FT;")";:19:FT$ lI(FT$):FT$(I)""I1I3Ģ21:19::868:G$;" ILLEGAL CHOICE ";:2800::600 FT(FT$) 1200 K1462020 K151ĒBG:IYYHT:0,I279,I::1200 K130800 BGK139XX1:1200* K129YYYM:1200B K154YYYM:1200Y K152YY1:1200p K147YY1:1200 K141X0:YYYM:1200 0K155LCLC3264(LC32):1200 DK134680> XK134ĹGT,0::I13:21I:3:"FONT ";I;":";FT$(I);::23005 T ============= CTRL-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 :30,0:3 Q  ================= 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:(13)(4):G$(7):T256:D$;"MONICO":230,32R GF16302:GT16301:0:1:GF,0m DN$"1": DRIVE NUMBERw 1999 16304,0:16297,0:GF,0:Q16384:C16368:D75:E144:F145:G148:H159:L191:M99:T256:Y16:HC3:HC:X0:Y10:FT1:232,0:233,64kP==================== XTYPER BY BERT KERSEY (C) 1982 BEAGLE BROS ==================== dLD(1)2:LD(2)2:LD(3)2:VERTICAL SPACE BETWEEN LINES OF TYPExBG0: BACKGROUND ERASE COLOR(4);"BLOAD CURSORS,A$4000". Q16384:D$       70`|~a@YY8p? `f?xL666.m:w)o-?N-?N666*;*;oII -RIIIMi  ?*---? Mi VIII @@@@ٮ˽ٮޮ˚ad "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT[[[dI-.5nM?nnN -n1n?M @III)?-?6HI-WRITER, YOU NEED 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)40)(218)(219)256:TYPE(222)::TXT,0:21:TYPE255ĺ(7);"CODE-";TYPE;" ERROR IN LINE #";LINE:v MAIN PROGRAM: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$""::FULL,0:STARTING DEFAULTS ADD PROGRAM LINES HERE. ::10:"TO USE GOTO 400 AGAIN.":"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:`LINE HT CALCULATOR: :::Q$(34):"CENTER FINDER":"-------------":"FONT: ";FT:"COPY: "Q$A$Q$:X0:YT176:XR0:BG::232,(7982FT):233,(7992FT)L(A$)(FT1FT3)ĺ(7);"SPECIFY FONT NUMBER (FT=#)":"AND COPY (A$="Q$"WORDS"Q$"),":"AND  FLAG0500C D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13r (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 :3I,Y: 0:1:IN0: 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS FONT LOAD ROUTINE: :XRXR(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:IXXR PRINT ROUTINE: i 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:629232FLAG0:(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     e (978)189304"EXEC DO PLE DOS MOVER":H"BRUN PLE.DM"d("BRUN DOUBLE-TAKE.DM"00::MAN.DROPS.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"7r:AX,Y:J1175::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:I15:21:13:"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::DRAW.DOG.HOUSEZ6X99:Y149:11X,Y:I116:A;:484,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:ROTATE.ARROWSE":150:23:" AND A SCALE DEMO. ":255:SC811:SC:1199,149010Y2: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."1X,Y:J140::1X,Y::2X,Y:I1200::2X,Y:1X,Y:FLY.DOWN I1400::7192,110:I1999::7192,110:2000:?.MARK.OVER.HEAD :22:"TO USE HI-RES COLOR, USE THE ";::" DRAW "::"COMMAND INSTEAD OF THE XDRAW COMMAND.")Y15:X105::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:I21,147:J1200:::MOVE.MEN.DOWN| I16:6126,140:6126,134:J19::6126,134:6126,140:J199:::DOG.JUMPS 2000:2.SECOND.PAUSE 21:8:958:::"HERE ARE SHAPES 1 & 2 ANIMATED TOGETHER.";:I1999:: I120:242,132:J19 THE 12 SHAPES NOW IN MEMORY.";:21:4:I112:II21,140:I;2(I10));:J1150:::DISPLAY.SHAPES.WITH.TEXT 8168,140:X1681632.5:8X,140:J19::8X,140::Y1401305:8X,Y:J19::8X,Y::8X,Y:MOVE.DISK% I912:II21,140:IINTER> d::::21:150:"LOADING SHAPE TABLE. STAND BY..."z 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.1p :23:" HERE ARE SHAPE TABLE DEMO ;3000:IF.CTRL-C.GOTO.3000N0:NORMAL.ROTc(1:NORMAL.SCALEq23:WHITE<D$(4):CTRL-DFSH16384:1ST.SHAPE.TABLE.LOCATION.($4000)P90:100 Z232,SH(SH256)256:233,(SH256)::SET.SHAPE.TABLE.PO     (4)"BRUN GPLE.48":1 (4)"BRUN GPLE.DM":794,74:795,141:796,47:797,3:798,104:799,141x 2800,0:801,224:802,44:803,129:804,192:805,104:806,205:807,0 <808,224:809,240:810,3:811,44:812,128:813,192:814,96 d::(4)"CATALOG" n768:(815)130 x(4)"BRUN GPLE.LC": 2(978)190140\ 768,173:769,0:770,224:771,72:772,44:773,131:774,192:775,44776,131:777,192:778,173:779,0:780,224:781,72:782,169:783,165784,141:785,0:786,224:787,14:788,0:789,224:790,173:791,01 (792,224:793,73:  A$"E":100:A$"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$:100999|FT2:VT1:HT17:A$"W":100999A$"--------------":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:100VTVT2.5:HT10:A$"OR PRINTED":100:HT10:VT16:VT4.5:HT1: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. ^VT1.2:HT1:A$"THE FONT EDITOR, ARE NOW IN MEMORY:":100:1010bT$": 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$:1001010FT2:VTR PROGRAM.":100O&VTVT5:HT1:A$"LIST LINES ":100:A$"500-1000":FT1:1000FT3: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":100@XVT,0:  TEXT b 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-WRITE2 D$;"BLOAD CURSORS,A16384":LOC(1)16640:I13a (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:1:IN0:~ 1:0:CL8:3:TF256:T131:TXT49235:FULL49234:HIRES49232:UL(UL$):G$(7):D$(13)(4):D$;"MONICO" J800:I13:LOC(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::STORE.FONT.LOCATIONS LOAD FONTS FLAG0500224)::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(2FLAG0:(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         (ΠŮ)Q(dede/dedehdeK2d ed!ed"e,d#ed$ed%ehd&ed'eB<d(ed)ed*ed+e,d,ed-ed.e`dKM6a()nM`.?/r$xa(ΠŮ)QaK dedededeHde,dedede,Kded ed ed ed ed eHdedeKdedededededededeK(dedeIdeJ  ƠàƍİàΠĴŸŹdzİ Рŧ˨űű˨ ŠЧűű 4Ԡŧŷ˨ŷ˨ ԠŧŰ˨ű˨ŷ˨԰ܢŮéΠΠִ", ˨˨6ΏŮĺƲƠĠàƇ,F,AHHɓ4ɛ0ɐ,Ƀ ɘC LKI 8LE? s ZLY ? ?Lw sCC ` LȒH@ɠ$@ ɢE@@EE=h`$(,L  nP藭$ b,-Ɂ,$0$,c hhhNꗦCLȒHH`ʩ LȒ8 ҔɠE CH vh } $><  EH뗥3ɾɪ$@ɢE@@$@0 )ߝh` bL/EEC 떈L N 떩EE I LZE v CLȒ$8f< bNꗨE ,$<C`8 v ` bEHȹɿh` bh` Eɠ`AɀeE*EEA ʽAIE EA`C }LwE z`N єCEEɛ@  }LȒُ `DH痢L ED C` NL$=  ( 0  (LI qE  }L{ F>J既L ɠɰɺ8``ɯɍ`1̑ɮ <1`  1`n< ,&` ɢɢ 虐+07 Zp ꑌ Z ^ ꑌI] DIƍI2$3p ͗1L (ɬ ɮ ɬ ɢ `ʨ`hh N E` ґL ґ ɠiɺ>F=E旍痩$3pDоɍHh`C$3P톸Eɍ$3p C JL2ؖ 헆ED o3 u3N,pd <=EM 0 <<=18<=L E <)<L> ) } } } H }hߦ$( $`12 l0N ZA嗈 L L N엠36I897痌`GE痽HH`(Hwnh,3L ©séĭ JLȒL,L є,Bɗ?ɘɍL]ɏBɖɅ 3ɾHD`I$j  `$3p뗆E ǐ lLY ?ُL!LULaLXH?2hH U2h`,066LU,`Í676 ÊH xh`L 0)`,0L  I(+ H h`,LϬ{,,LӠˠŠӠŮԠé̠΍$9ɝ ,L `<>=?<>=? , Hȱ8h  ȩ$ȱH  h i֩H MMLI L!! ! ! ! ! !!!!!!!!! ƠàƍŸŹdzİ Рŧ˨űű˨ ŠЧűű 4Ԡŧŷ˨ŷ˨ ԠŧŰ˨ű˨ŷ˨ŷԠƌ԰ܢŮàéΠΠִ", ˨˨6ΏŮĺƲƠĠàƐ婍, N۝ >,LHHHuHݶhܶhLضL)ԩ,I,D,HHɓ4ɛ0ɐ,Ƀ ɘۍ :Lڙhیhh`nЩۍ۩8©é0nЩLѷ=َ̪` Mn}Ao挌ڳŀH  ۹ ۍ;ٹ(ۍ< 2h`hNNɝ`;٩ۍ<`;<٭`? ' 2 ? 20` f >,0n` )`ۍۥ? 2H h0ED `ɠ\,LH)? h`, 3ɍN,0ɍ3 ɛɓ 8I=IۭۍK ,-Ɂ,K0$,c0 ې II Hɛ,0 UL, ؠ0  Lנ0ɕ `JN,01ۈ۹h`$,0(H @))(hL ,ɧ #ɧɝ`  ۭ;ٙ ۭ<ٙ( UL 20 զCL$8f< NۨE S$<CC CE?AC8A ب SǘL kمA kA`$>I 8LӥE? ע L թ? ?L CC ` L՘H@ɠ$@ ɢE@@EE=h`$(,L  nwة@ "֝ Lՠٻ "`DH :hhhNۦCLչHH`ʩ L8 ɠE "֦CH h $>h 2 ٦EHۥ3ɾɪ$@ɢE@@$@0 )ߝh` LV֤EEC ڈL 2N۩ کEE I LE Rۙ`'ՠ ɢɢ 3`281 հ2 C۝` ՐEH1۰ȹ2ɿh` Րh` ԰Eɠ`AɀeE*EEA ʽAIE EA`C թ LE `N ׆CEEɛh`C$3P톸Eɍ$3p C ۢL#ED צC` ԰NL$= ԭ1 OՐ 20 0հ OհLp E Ԑ L F>JۢL ɠɰɺ8``ɯɍ`]ԌԠɮ hڙ]` Ԑ ԰]`ncԩ ,`]^ۘ2ۍێ1 0N +0c ԍ p3 Ռ1ۘ ^C Ռ2۽I] kIƍIۭ^$3p ڙ]ۈL (ɬ ɮ ɬ ɢ Ԑ`ʨ`hh :N 2ѢE` L Ԡ ɠiɺ>F=Eۍ۩$3pDоɍHۆE L f٠ٻJL9֩2 ۭնHED 3 #3,hնN,pd >٭;م<<م=EM 20 2ّ<<=18<=L E :ڊ<)<L> ' 2) ٩ ٩ 2H hߦ$( ٩$L),Hh)h?hذOAۈ ,ѩHHLԶ 2L N۠6897ی`cюaѮ۽HH`(Hwn=h,3L ©éĭ JLL?,L ,=Bɗ?ɘɍLɏBɖɅ 3ɾHD`I$j  2ѩ`$3pL!L_LqLhH?2hH _Щ2h`,066ЩL_Щ,`Í6Ѕ76 \ЭH xh`HHHL Ш0)`,0 HHL  ЍI(+ H h`,LϬ{,,LʍI hh,`ӠˠϠŠŠӠŮàԠé̠΍$$8HIL,նh, ,`, ,`, , C,:/8`$ɝ ,L* `HHZ ,̠$ , Hȱh  ȩБ,'ȱ,H  h iЩH, MMТF¶LL"" " " " " """""""""