' +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-(K `Ϡ@跻~!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 ~(`  d ֠z# u`)128):O$A$& 2& MECHECK FOR PLOTTING MF=& 234,0M& T313360g& 1XP,YP:(234)0ı& 2640:PO,(PO)2T2& (PO)128ĕ2XP,YP& & T323420&* 0:1XP,YP:3&4 (234)0ı&> 2640:PO,(PO)2T2'H (PO)128ĕ2XP:2910)% A32A$(A192):C$"I":3270L% A63A$(A128):C$"I":3270o% A96A$(A128):C$"F":3270% A128A$(A64):C$"F":3270% A160A$(A64):C$"C":3270% A224A$(A):C$"N":3270% A223A$(A32):C$"L" & A$((A$"L"C$(13)ĺG$"ILLEGAL ENTRY":3090q$N (A$)HV195C$"L"ğ:12:G$"NOT ENOUGH ROOM":X1800:::2910w$X $b A$(A$,(A$)1)$l A(A$):(A)A$A0A255ĺ:G$"ILLEGAL ENTRY":2910%v AHV1255ğ:12:G$"NOT ENOUGH ROOM":X1800::6# :"WHAT TYPE NOR/INV/FLS? ";:C$::(C$)273130v# C$"N"C$"I"C$"F"C$(13)ĺG$"ILLEGAL ENTRY":3090|#& #0 :"WHAT TYPE NOR/INV/FLS/CTR/LOW? ";:C$:#: (C$)27ġ::54,N3:55,N4:1002:1010($D C$"N"C$"I"C$"F"C$"C"C$$"L"ĺ"LWR ";" O$;"" C$OC$4" :" ? ";:A$J" (A$)13A$O$:e" A$""(A$)1A$O$:" (A$)27ġ::54,N3:55,N4:1002:1010" A$;" A$"#"Ą"";B$:A$A$B$" (A$,1)"#"(A$)13170" (A$)20C$"N":" (A$)633120(X256):26,X(X256)256!!, B!6 MEGET SAVE/LOAD CHAR. MFK!@ A1U!J 3470_!T G$G$!^ :21:MS$" WHAT CHARACTER (#"O") ";!h (O$)03000!r OC$"F"ğ!| OC$"I"Ğ! (O$)32ĺ"CTRL "((O$)64);:2990! OC$"C"ĺ"CTRL ";" OCC$"N"C$"I"C$"C"C$"F"C$"":2850> C$"C"2780V A191A224AA64` 2850r C$"L"2800 A191A224AA32:2850 C$"F"2840 AA128  A63AA64  2850  AA64:A127AA64!" OC$C$:OA:XLOA81:27,NVERSE CHARACTER":CA868:2450?P MECALC. WHERE BYTE IS MFeZ POHG((CY)CXV)8(CY(CY))8kd n MEUPDATE DEFAULT CHAR. MFx O$A$ AO (A$)02850 A(A$)128 C$""2850 (C$)0C$"N"(C$)132850, C$"L"CY(CY):2640:CYT4:POPOHG5 ST,PO:EN,PO8:CAv SXXP4T2:SYYP4(8(CY(CY))):MAYM:MIYN:BBPO:EBPO8 :2080( MEFLIP CHARACTER MF2 3470:23:G$G$"FLIP CHARACTER":CA884:2450< MEINVERSE (EOR) MFF 3470:23:G$G$"I640:POPOHG:ST,PO:EN,PO1:CA:SXXP4T2:SYYP:BBPO:EBPO1:MIYN:MAYM::2080e C$"L"960 T4CX:X1H:CXX1:2640:POPOHG ST,PO:EN,PO1:CA:0,XN28(X1):1,YP:2,YM:3,YN ST,PO:EN,PO1:5888 X:CXT4 960 T4CY:NGE HIGH BIT MF7t 3470:23:G$G$;:(MO)0ĺ"CLEAR";L~ (MO)1ĺ"SET";d " HIGH BIT":CA844 "BLOCK,ALL,LINE OR SEGMENT? ";:C$:: C$"B"2560 C$"A"ĹST,0:EN,BY:CA:SXXN:SYYN:MAYM:MIYN:BB0:EBBY:2080 C$"S"2500T 22330* :12:A$"ING "T1$:D$;A$;T1$;L$D :54,N3:55,N4:1002\$ 16304,0:16297,0f. 10108 MEERASE CHARACTER SET MFB :D$"PR#0"::22:"ERASE THIS CHARACTER SET (YES/NO)? ";A$L 960V A$"YES"Č818:240` 2330j MECHA :>22:"LOAD OR SAVE CHARACTER SET (L/S)? ";:A$:Q(A$)272330aL$",A$E00"~A$"L"A$"BLOAD":2300A$"S"A$"BSAVE":L$L$",L$800":2300G$"ILLEGAL ENTRY":2240"ENTER CHARACTER SET TO "A$;:" ";T1$ (T1$)0BY -22::(11):"GETTING CHARACTER"? 54,N3:55,N4I*1002T49:33Z>cH"@"R0,SX:1,SY:2,MA:3,MI\ST,BB:EN,EBf5888p0:z960 MEACCESS DISK MF3470:::16388,0D$"CATALOG":A$:13)İ2900:1870@:22::11:"STORING CHARACTER":X0100:XJ2670UST,BY^796dm960 MEGET CHARACTER MFMS$"GET":28702670ST,BY807XPXN:YPYN:T20:T30:CX0:CY0:SXXP:SYYP:MAYM:MIYN:BB00:EB MF:MS$"SAVE AS"D2870^N:21:"SAVE THIS CHARACTER UNDER THE FOLLOWING LETTER? ";X(A$)32ĺ"CTRL ";((A$)64)" ";:1930bC$"C"ĺ"CTRL ";lC$"L"ĺ"LWR ";vC$"I"ĞC$"F"ğA$;::" (Y/N)? ";:B$::B$"Y"B$(݂ňРݻݻݨꀀҪ݊ȁފ܊ժժتժݻժݻݻܻ֪ժժժՀ֎ݾ؃ݻږС׊렠׎՝ժݫպךժ׻Պ숁ֺݻݻ݃ժժݻ `p(  p gL   vL  - dL `LIp`   ` \ qL  \p` L E` < 6<  )CH" &" MESPACE RAID DEMO MFH, MEWRITTEN BY RICH ORDE MFd6 MECOPYRIGHT 1982 MF@ MEBY SOFTKEY PUBLISHING MFLOCK SIZE FOR CHARACTER)::16302,0/L MEQUICK DRAW "OFF" MFd43604,N1:43605,N2j MELOAD IN FILES MF(2051)133(2052)210ı:PROGRAM ALREADY IN MEMORY (4)"BLOAD QUICK DRAW.OBJ"(4)"BLOAD ORDE.SPACE RAID.E:I,BY:F$P MEOLD COUT MF@ZN1(43604):N2(43605)Wd MEQUICK DRAW MFenN33:N48wx MECHARA MFN50:N614 MEQUICK DRAW "ON" MF54,N3:55,N4:43114:HAVE DOS CONNECT QUICK-DRAW4,N5:5,N66,1:7,1: B)<768,P(I):769,5:770:768,P(I):769,26:770:J188:OII1:I4I1m (1)391:(1)59:"&"K177K1851260( METWILIGHT THEME MF2173,48,192,136,208,6,230,1,198,2,240,8,202,208,244,166,1,76,0,3,96 <I768788:BYTBLISHINGL$( COPYRIGHT 1982 >( BY ROBB CANFIELD D E b( :D$"PR#0":( MEABOVE ROUTINE SETS UP FOR TEXT MF( ( ( X(218)(219)256:Y(222)( ( WRITTEN AND ( COPYRIGHT 1982 ) BY ROBB CA,YP 'R '\ 234,04'f 1XP,YP:P1:(234)0P1Q'p 2640:(PO),(PO)2T2Pi'z (PO)128ĕ2XP,YPo' ' :D$"PR#0":' ' X(218)(219)256:Y(222)' ' WRITTEN BY ' ROBB CANFIELD ' COPYRIGHT 1982 ( SOFTKEY PUպժת݃ժݫݻ́ժժժժՊݫШݻ݃ԫЃת쀠ժݻպժćժԻժ̀ջݻ؁݃ڪժժՁݻ66>###?################?##??##;#####?#### <######?7+++++####'+3###############+.#######001?- ############# ##+++++## ##### ?0 ??888888? ""(D >kk>6??՜#'+3## 10?10001??001####?10 #####11>001 𾓾????侇     ŠŠΠˠҍٍŠԮŮ͍ӍӠҠԠΠٮϠŠ̠ҠîΠҠҠ̠Ů͠٠ԠԠҠƠӠϠōԮŮ͠ҩ٠ԠŠϠōˮҬ٠ŮͺӠҠ͠ŠҠԠϠŠҧӠˠҮҠӠϠŠΠİîĠҠΠ͠ԩΠıIJԻ݊耀ТĈݻݻ݋롃ժق݊ܢժջժꄀꝀժӪժѻݪժժժծĨݻЪݻݏ֪Ѓת䁀࿀êݻ׺ժԣתˁѺիꥸժժժծܛꃀк݂Ĉݻݻ݋ꁵׄ؂ݪ܊9TRQWɛ" *P *QL ` `ӍԮΠҠ̍Р٠ؠЍР΍̠ؠō٠ōӍŠؠō٠ō٠٠ĠſŠԮōԠӍԮŠЍÍЍàЍŠԮԮōԠРҠӍàЍЍ؍ŠԮЍŠЍÍЍàР͍àԮōѠԮōԮΠؠ΍ؠЍԮԮŠˮҫ٠ŠĠō٠ԠԠō٠ĠſŠЮԠϮϠōӍ̠ƠԠҍӠĠΠϠҍϠϠō٠ԠԠŠϠؠԠԠΠҍؠŠȠӍŠӠϠΠϠҍӠΠΠӠͭŠŠŠΠŠɭӍήŲƬؠŠŠō٠ԠԠԠō٠ŠȠοԠŲ̠̍̍̍Ų̠̍Ų̍ҠŲŲĠƍŲǠύԠŠӠƠŠŠōȠϠנήĠðŲҍҍŲŲōŠŠϠŠΠ΍Ԡ̠ŠҍԠϠΠ̠ӠŠŠӠΠϠǠ͍źӠ͠ԠɭӍŠĠӠԯڍӬŠӠΠԠϠǠŠƍՠŠŠŠԠźӠōĠӠҍԠƠԠōàԫԠנōŠàԫԠȠōҍҠԠԠҠϠԍҠŠŠԍàҠРˠƠҍŠſѠήҠӬϠŠǍЮҠӠԠŠԠҍѠϮԠӠϠΠՠԠōҠŠԠԠϠԠŠԍàήҠӍϮԍҠԠԠҠƠӠϠԍԠԠԠϠ٠ԫ٠٠ԫҠԠԠԠŠЮҍήҍҠԠԠŠϠōР٭ǠŠҠѠҠҠǍЮҠѠŠҠōҠƠέˍؠԠΠԠϠ٠ӠŠέҠٍ͍ čĠ٠٠ǍŠѠ     ŠŠŠ׍Ġˠ׮ʍĠӍĠĮҮ̮ʍĠԮʍĠҮԬİĠӍΠĮҍӠűōӠűōӠ°Ʊ±ƍӠ°Ʊ±ƍӠűōӠűōӠ°Ʊ±ƍӠ°Ʊ±ƍӠñÍӠñÍӠıčӠıčȍӠűōӠűōӠ°Ʊ±ƍӠ°Ʊ±ƍӠñÍӠñÍӠıčӠıčӠİİİİİİİİӠӠİİİİİİİİŠȠΠǩǠӠñÍӠñÍӠıčӠıĸӠӠӠӠӠİİİİİİİİӠӠİİİİİİİİӠӠӠӠӠӠӠӠӠӠӠӠŠҠɭӠŠנөנӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠӠ°¸ӠðøİĸŰŸưƸǠӠӠӠӠӠӠ°¸ӠðøİĸŰŸưƸӠӠӠ°¸ӠðøİĸŰŸưƸӠӠӠ°¸ӠðøİĸŰŸưƸӠӠӠ°¸ӠðøİĸŰŸưƸӠӠӠӠðøİĸŰŸưƸӠӠӠ°¸ӠðøİĸŰŸưƸӠӠӠҠԠōנӠӠӠ°¸ӠðøİĸŰŸưƸӠӠӠ°¸̠Šō̠àŲҠ٠ŠΠҠ٠ȍà֍٠֍٠͍àŲà֍ŲҠؠō٠ōӍ٠ȍٍ٠ȍѠҍ٠ȍÍԠԠӍàҍР׍ŠàȠŠŠ٠ȍ٠ȍҍԩٍԩٍРàŠԠԠŠΠ΍٠ōؠſؠԲŠҠſϠϠōàڲѠōӠϠΧԠ׍׬٠Ԡ̠ΠϠԠҍԍǬٍÍàӮōԫ٠ȠԠ̠΍ԠƬؠԠààëԫؠ֠Ġ̠ΠΠɭӠ΍٠̬؍٠ōؠԠРҠҍҠ٠ƠΠͯЍŠиčѠҍĠ֮ǠŠȯŠӍנٍ٠ҍÍ׬٠ԠנŠԍààĠĠϠàԫǬ٠ĠΠȠōԠҠˠРȠԍ͠Š̠ŠӍؠō٠ōؠڠŠˠōؠڲؠԍ٠̬؍٠Բ̱РҠƠ̠ӠϠԍԠѠҠƠӠΠˍԲѠӠϠԠԩҠѠҠŠŠΠĠҠˠөҠƠˠ׮ʍҠ̠΍ӮŠѠŶŠŠŠΠŠŠȠѠҠ̠΍ڲѠӠٍРѠ٠ŠҠǍڠѠǠŠ͠ѠIJҠōŠѠij̠ΠŠàѠΠƠҠԠԠѠĴĵΠϠŠҠΠɭӠΠ֠ѠȠѠȠƠԠ׍͠Ѡ͠ƠԠ׍֮ǠѠŠŠǮĠҠȠĠōŠѠİǠŠŠѠıؠҠԠӠΠӠĠԠҠŠҮӠĠΠŠ͍ӠΠӠԠŠϠŠԠήӠԠנĠӠȠĠ֠Πٮ̠Ӡ̠ӠΠƠĠԠ٠ǠȪɭӠҠҠҠɠˠנ٠ Ӯ                    ˮҫ٠ŠĠō٠ԠԠō٠ĠſŠЮԠϮϠōӍР٠ԠԠǠōЮԠˮҫ٠ԠōɠҮԍԠȠԍɠԍҮԠĠƠҠȠԍԠٍ٠ĠſŠӍРԠȠԠҠ̠ΠԠŠԠĠԠŠΠԠǠŭΠҠ٠ԠԠԠōˮҫ٠ԠōҠƠŠԍˮҫ٠Šԍˮҫ٠ŠĠōٍ٠ĠſŠȮԠύӍ٠ҠӠũҠ̠ǠŠԮȮԍ٠ԠԠΠōȮԠˮҫ٠ԠŠϠԍؠŠˠōѠҍԠȠԍɠԮԍҠĠƠҠȠԍԮԠӠԠȠԠΠˠҠҠì̠ŠϠԠέıŠϠРΠIJŠҬԠij٠ԠōŠŠŠȠӍؠԠōѠŮŠĿàūԠԠō̠ŲĠЍŮŠӠŮϠ΍ҮԠԠϠҠԍūҮԍŠؠҠƠӠϠōŲ٠ȠŠӠӍŠҮԬ٠ōŠŠΠˠҍٍŠԮŮ͍ӍӠҠԠΠٮϠŠ̠ҠîΠҠҠ̠Ů͠٠ԠԠҠƠӠϠōԮŮ͠ҩ٠ԠŠϠōˮҬ٠ŮͺӠҠ͠ŠҠԠϠŠҧӠˠҮҠӠϠŠΠİîĠҠΠ͠ԩΠıIJŮϠ٠ԠԠҠƠӠϠōԮŮϠˮҬ٠ԠŠϠōҩ٠ŠŠΠҠԍٍŠԮŮϠƠԠŠōӠŬϠΠϠÍΠϠŠ͠ϠӠĠԠıIJ׬ȩîӠŠӠԠàҠîϠΠϠÍŮϺӠҠ͠ŠˠҠϠŠҠԮŠҠƠӠϠŠӠĠԠİîĠŠԠҠƠӠϠōԠϠŠӍԮŠˮҬ٠ŠҠҠӠō٠ϠԠōŠԮŠƠԠŠΠŠŠōӠŠŠŠĠΠİîӠŠӠԠҠîŮ͠٠ԠǠנŠŠōƠĮҮ̮ʍŮ̠͠ŠĠҠƠӠΠ٠ǠԠŠҠƠӠϠѠҮԠѠŰҠԠ٠ΠٍˮҠѠҠŠҠŠŠǠ΍ҠѠ ӠҠӠŠӍҠԠԠ٠ǠԠѠ ŠˠΠàĠŠĠҠөĠѠàǠōŠӠҠŠҠ٠ ĠԠ             àūԠӠӍŠٿàūӬϠԠȠōӠΠϠҍԠӠԮԠӠԮԠӠӠϠԍźӠŠͮԍŠĠӠӠōōƠӠϠŠ΍ԠŠԠŠϠԍРЮҠӠԠŠԠҍѠԠӬŠǠҮҠŠĠԠԠ٠Ӎ٠ſŠύѠԠŠԍҠŠŠԍԠԠҍҍŠͮ٠ŠĠ٭ǍŠŠԠŠΠŠōĠӍϮ٠ŠԠҍԠϮԠԠЮҠԠԠҍҠŠĠŠԍϮƠӠϠŠΠծҠŠŠԍŠԠҠŠŠԍŠŠҩҠƍӮ٠ӍǠӮ׮ŠŠԮō٠ŠŠ٭Ǎ٠ҍΠōؠԠԠ΍ؠſѠč٠٠ԮŮΠԠҍѠРӍ׮źӠȠҠҍٍ٠ŠȠ׿ԠРύȠĠӍҠ׮ŠŠԠӠɠŠŠӠōԠԮōԮŮ΍ɠԍРŠŠӠԠōѠԠӍҠ׮ŠŠӠӍԠàҠŠԫŠŠŠΠŠɭӍήԠƬؠԠōԠԮŮΠԠſɠҍԫԫԫ̠̍̍̍ԫ̠̍ԫ̍ҠԫԫĠƍŠŠǠύԠŠӠƠŠŠϠנήЍĠðԫҍԠŠč٠ԫūŠҍԠԠҍԫ̠͍ؠԠ̠ԍؠҠԠРԍؠԮŮ΍٠ԠŠҠ٠ū٠ԠЮҍàԠԠԠŠϠˍŠЮҠŠԠŠΠҠԠϠӠŮԮԠԠԠŠōŠԠԠōЮҍРРԮԍŠԮԠԠŠԠŠנũŠŠӠԠſŠϠϠōàԮԍѠàԠӠŠàӠԠРŠԠȠӍԍЮҍԮԍƠԠŠ͠ӠΠРԠĠԠԠŬ٠ǠՠŠӠ΍ȍƠԠԮԍԮԍԍԮŮΠѠӠԠΩŠѠΠƠŠϠԠŠѠ٭ǠŠЮҠѠŠҠҍҠƠˍɭӠŠҠٍ͍ č֮ҠѠҠƠӠϠ             ӍԮΠҠ̍Р٠ؠЍР΍̠ؠō٠ōӍŠؠō٠ō٠٠ĠſŠԮōԠӍԮŠЍÍЍàЍŠԮԮōԠРҠӍàЍЍ؍ŠԮЍŠЍÍЍàР͍àԮōѠԮōԮΠؠ΍ؠЍԮԮŠԮҠԠؠ΍ҠԮ΍٠ŲנؠŲҠ׍ԮԠҠōàҠĠԍРԠΠϠԍ٠űנؠűϠ΍ҠננōРԠӠˍЍɠԮҫүԠҠŠؠҠҠӠ׮ōؠҽҠԮ΍٠űؠűҠ׍РԮҫ׮ŠؠҽҠԮΠΠŠӍԍ؍̠ؠвԠ̠ح΍ؠЍؠԠҍŠԮРĠȍؠРҠӍԮРҠ̍ҍЍŠˮҬٍРŠӍĠƠŠҠԍؠԠԠԠҍؠРŠԠōӠӍ؍ҠԠҠɠנ̠вѠŠҠҠحΠˮҠѠҠƠԮʍԠ٠ԠԠŠϠԍؠРŠح΍ؠвŲѠōנѠƶ̠ѠƶÍΠѠƴРѠŠѠŠѠԠѠ ԠŠĠѠàǠōԠѠĠԠϠ׬ӪŠԠō٠ ĠԠ٠ٍРѠРѠ͠ѠΠѠűѠ       ٍӍӠΠϠҍٍؠ؍ѠĠΠϠҍ٠ԠōٍŠѠĮҮӮŠԠΠŠԠ΍ѠŠҠϠΠԠǍРЍЍЍЍҠٍԮŠנŠӠōРЍĠΠԠҠӍԮŠԠРԠōӠנŠӠ΍ЍĠԠӍРàӠԠŠŠٍѠĮҠٍàѠ ŠŠٍĠѠðԠӍҮ٠ѠðҠƠЮύЍŮԠΠŠ̮ΠԠ̠ŠҬ٠ čԠ٠ٍԮŠѠðŮѠðӠѠð̮ΠѠðӮŠѠð ԫӠԠȠōԠƠӠŠ͠ԍӍԠӍŠŠӠĠӍDZӠΠҠ٠ӍӍĠҠԠŠȠ͍ӠΠϠԍӠĠ͠Π͍ԠàԫĠŠϠŠŠΠԍŠԠӠŠ٠ҍàҠǍвҠԠԠԠōŠвƠϠϠӠĠԮؠӠӠŠĠϿѠĠƠϠčؠˠҠԠϠĩ̠вӠϠԠӠ͠ϠŠӍРԠȠΠٱϠӍٱٱŠȠ͍РؠˠҠč٠Š̠ٱР̠٠ӠčҠҠĠōРӠԠ̠ÿѠĠӬϠР͍Р ӠԠÿŠРϬϠŠٍҠ؍ҠԍàҠŠȠӍŠРϬϠōӬϠԠӍҠĠԠҍҠԍٱĠԠӍƠӠϠԠӠԱDZٍҠԠԠǠΠɍ٠ŠȠԿ̠ԱϮϠԠԠҍ͠Ԡ͠ōؠͫԍԠȠŠˍҠԠԠ̠ŠàŠŠҠƠӠϠԍà؍ҠԮخӍ٠ҠԠӍ؍ŠвŠ٠ǠҠōˠԠȠŠƠŠ٠ŠԠٍԠנŠƠŠؠԠРҠŠЍ٠ƠԠ͠ǮԠӠϠŠ͍ԲҍҠ͠Š͍̍Ҡ͍ͫҠͫҍͫԳҠԠàˮԠӠϠŠŠԠРĠƠſѠˠӠϠԠ͠ĠˠҠĠƠ͍٠ƠŠͿѠԳӍР²ΠҠ͍ŠԲԠԠōвؠΠԿàԳӬϠРĠƠŠˍؠΠŠӠԠϬϠΧԠŠŠŠŠàԲРĠƠԠǠƠԠ͍ԫ͠ŠӠŠҠ͍ǫԫͫؠԠҠϠύ٠Ҡ͠ǍРҠŠРҠԍŠҠŠԠٱϠ̩ٱ ӠŠԍٱƠӠ̠čҍǠǠΠҠčԠàԠРĠРҍҍЍҫЍҫӍ͠ӠōĠǠȠ٠čҠѠҠҠҠƠӍ͠Ѡ ͠Ӡ ÍҠѠƵĠРҍҠŠΠŠƠԍѠƹԠĠؠǠӠϠŠҠĩԮخӠѠƹǠѠǠƠԠ͍ Ѡ̠ΠƠҍҠѠðҠĠōĠѠðǠӠčԠѠIJԠ̠ŠƠؠĠǍԠѠĸŠԠŠ΍ԠѠĠԠǠΠɍؠŪԠ٠ ӮĠԠ٠     ͫҠ؍ŠҠԠԠ͍ҍӍϠ̬ȍàĸˠƠ٠ҠΠ̬Ƞ̬ȠϠōà؍ҠԮخӍԠ̠͍Ҡԍ͍ؠȠŠōҠΠȠ͠ōҠ͍̍Ҡ͍ͫҠͫҍͫҠԠ̬ȠĠŠũٍ٠͠ҠӠ̬ȠĠȍӠӠōҠԍ̩٠ԠŠōŠӠōҠōŠοѠԲӡРàŠŠοŠ͠ϬϠРŠŠήŠŠή٠٫ЍũٍٍԠҍҍ٠ĠԠӍ̠٠ԠҠ٠ϠŠčҠҠҍР̮àРͿѠŠӡРŠԠҠԍ͠ԠŠ͠ōؠͫҠ؍àҠҠҠҠƠӍŠ͠ƠԠϠΠŠҠԠŠōΠĿĠŠӠϮϠŠϠԠӍÍàҠƠӠϠԍà؍ҠԮخӍԠҠΠŠŠčũٍٍũٍ٠Ҡ٭ǠĠԠϠǍѠ͠ӠϠӠȍĸˠ̠ŠԠӠŬȍƠԠōō̠ŠԠӠӠǠ͍͍ȍͫԠҠ͠ԠĠҠϠ؍Բ٠٫Рṷ̆РҠԍԠӠԠōҍ٠ԠӠ͠Ԡҍ٠ŠҠōҠ͠ŠɠϠؠĠԠΠō؍ˬ؍à̮ٮҫūÍ̮ٮҍӍ͠ӠōҍԠҠΠĠŠŠŠԍ؍؍ˬ؍ÍàЭԭ̮ٮҫԠ̮٠РҠō̠̮ٮҠѠƸΠϠРϠΠ̮٠ӠčҠŠΠŠƠ΍ΠҠ̮ٮ֭ŠǠŠ٠Ӎ̮àѠ̮٠ѠàѠŠѠŠӍŠΠŠ͠Ѡ Š͠Ӡ ĠéҠѠҠҠҠƠӠčŠѠŠΠŠΠӍ٠ϠԬנōȠѠĠԠƠ٠ϠԬȠō̠ѠŠĠƠ٠ϠԬנōȠѠƠĠƠ٠ϠԬȠōӠɠՠҠŠӍ ѠҠΠٍŠѠŠҠҠ͍̠ѠàԠƠϤŠŠˍӠΠɯϠŠðҠѠðҠĠōĠѠðĠĠōѠԠŠҠΠ؍ԮӠѠƹԠŠӍؠѠƹԠŠҠĠحǠΠ؍ԮخӠѠƹԠؠӍΠѠƵĠΠĠөˠѠɍԠѠĸŠԠŠ΍͠ѠԠŠҠԠϠ؍ԮҠѠŠԠҠѠԠ̬ȠѠĹԠ̬ȠΠؠĠȠŠǠӠčӠΠŠҍԠѠĠԠҠz# ĮҮ̮Ԡ ˠ׮Ԡ!ԠέˮӮԠ "έˠ" ̠ӮԠ "ήӮԠ ԮӮԠЮԠ ԮԠ ˮӮԠ Ԯʠ ŮŠĮȠ ˠ! ĮҮ̮ʠ! ˠ׮ʠ!Ӡ!Ӡ ̮Ӡ ɠԠΠԠΠà"ҮԠ ЮϠ Ԯؠ ԮؠԮؠ٠ԮǠԮŠŭĠŠנ Ϡ٠  ŠԠŠӠŮŠĠĮҠ" ԠԠǠҠ%ԠŠҠϠϠΠӠ ҠӠ ɭӮӠϭӮ̠ ϭӮ̠ B$(8)::340* MESET PAGE 1 MF6DRW,D1L( MEDRAW ON 1 MF U2190l< MESHOW PAGE 1 MFvFS1,0P MESET PAGE 2 MFZDRW,D2d220n MEDRAW ON 2 MFx190 MESHOW PAGE 2 MFS2,0 MEINCREMENT SCALE MF   NA$".C,A$4000"* 3256: UNPACK PICTURE3 12016304,0::22:290' @NA$""ė:120H JD$"BSAVE"NA$".C,A$4000,L"LEQ T120p ^ MEDECOMPRESS OPTION MF h"COMPRESSED PICTURE ('.C' IS APPENDED)" r5:"> ";NA$ |(NA$,1)D$ĉ::NA$:A$:16304,0::22:360 NA$""410 D$"BLOAD"ED PICTURE:"LE3 "NUMBER OF BYTES SAVED:"8192LEe "PERCENTAGE DIFFERENCE"100(LE8192100)"%" "BSAVE THIS COMPRESSION (Y/N)? ";:A$: A$"Y"ė:120 ""UNDER WHAT NAME ('.C' IS APPENDED)" ,5:"> ";NA$ 6(NA$,1)D$ĉ::NA$:A$:ON MF9 24:"ENTER NAME OF HI-RES PICTURE TO COMPRESS"J 5:"> ";NA$y (NA$,1)D$ĉ::NA$:A$::16304,0:160 NA$""220 D$"BLOAD"NA$",A$2000" COMPRESS PICTURE 82563 LE(LO)(LO1)25616384 "LENGTH OF COMPRESSS"5 ZD$"BLOAD PACK,A$803":D$"BLOAD UN-PACK,A$300"^ d WHERE END OF COMPRESSED PICTURE ISt nLO8256151612 x:16304,0:22:"COMPRESS/DECOMPRESS (C/D)?";:A$: A$"C"A$"D"ĺ"ILLEGAL ENTRY":120 A$"D"360 MECOMPRESS OPTI4  ::D$(4). MERELOCATE? MFI((103)1(104)9660s2103,1:104,96:24576,0:D$"RUN DEMO"<:::230,32:16304,0:16300,0:16297,0:16301,0F(82563)169(82564)255110 P22:"PLEASE WAIT WHILE I LOAD THE FILER - UNABLE TO READ DIRECTORY !!!":/ |:1000J 1:" 80N":0,63998:0X05),A$(105),T(105)* "X138:B$B$"=":H ,X10511:NAME$(X)B$:^ 6NAME$(0)(B$,19)j @D$(4) E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":# h(NA$(0),1)" "Ģ12:868:"!!! ERRO L40  MAXX' 85:34,225 23:958o "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010z A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(1NA$(N),8,1))6520002 ((NA$(N),8,1))942000< XX1U A$(X)(NA$(N),8,30)o T(X)((NA$(N),2,1)) X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:20002,19:1:1::* U33,40:32,0:23:1::p Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))61N105:2000 ((K8(ST6UVk,ȱk-`),-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";::X;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:F P33,21:3      ME 21 COLORS MF  0XX28:YY20;X07F(Y07T2Z0YY2w<X:XXX,YYYZXXXXX,YYYZFY:XXX,YYYZ1XXXXX,YYYZ1PZdAY?"::XX30:*H ME COPYRIGHT 1983 MFJR ME SOFTKEY PUBLISHING MFLCN)"LN"XX3:48:SH1:8C$(CN)"UY"XX4:0:SH2:Y C$(CN)"RY"XX5:16:SH2:zC$(CN)"DY"XX6:32:SH2: C$(CN)"LY"XX7:48:SH2:*C$(CN)"FF"Ĺ(24576CN),255:XX10:4C$(CN)"XX"XX20:>(7)::21::"WHAT DID YOU S:"DO YOU WANT TO SEE IT (Y/N)? ";A$6A$"N"710M ME$7000=28672 MFc:232,0:233,112q1140,80w ME INTERPRET VECTOR MFC$(CN)"UN"XX0:0:SH1:C$(CN)"RN"XX1:16:SH1:C$(CN)"DN"XX2:32:SH1:C$(N) :730 D N21} X(XX0((24576(CN1))0(24576(CN1))0))ğ:"ALERT:";::" YOU HAVE CONSECUTIVE ZEROES!": b(24576CN),XX lSHLX(CN),LY(CN) v350  ME DISPLAY SHAPE MF 768:"YOUR TABLE STARTS AT $7000 ... ENJOY!"&SHLX(CN),LY(CN)# TM0150:TM9 SHLX(CN),LY(CN)A TC\  ME CHANGE VECTOR MFb } 23::"X,X TO QUIT": 22 "ENTER DIRECTION VECTOR #";CN1" ? ";:A$:A$ "PLOT OR NOT? (Y/N)";:B$:B$ &C$(CN)A$B$ 0SHLX(CN),LY(CDIT MF T ^22H h" CHANGE WHICH 1-";TT;" VECTOR (0=END) ";:CNV rCN0650 |CHTTė:21::"VECTOR";CN;" DOES NOT EXIST"::350 CNCN1 PK(24576CN) PK4SH1:16PK:430 SH2:16(PK4) TC03 TM0150:TM TER U,N"::150# XX0ZF1:2603 XX30ī150| XX20ĺ(7)::(7)::"NOT VALID COMMAND - USE F,F TO QUIT"::150 XX10TTCN:340 (24576CN),XX YY10 Y95Y2:XX10 "LX(CN)X:LY(CN)Y ,SHX,Y 6 @CN J ME EENTRY MF CN0255< 22:958:23::"F,F TO QUIT":D 22q "DIRECTION VECTOR #";CN1" ? ";:A$:A$ 868:"PLOT OR NOT? (Y/N)";:B$:B$ C$(CN)A$B$ 730 (XX0XX10)ZF0:230 (XX0ZF1)ĺ(7)::21::"YOU CAN NOT ENK  :104"FASTER SHAPES BY ENRIQUE A. GAMEZ"ID$(4): CTRL Dd(D$"BLOAD A.L. SHAPES"2C$(255),LX(255),LY(255)<X2:Y8F232,167:233,3P28672,2:28673,0:28674,4:28675,0Z MEZERO FLAG MFdZF0n:3:1: x ME   ,234,173,85,192,76,10,128,96. & MEHI-RES MF6 0:P : MESET SCALE, ROT MF\ DSC1:0u N MESHAPE POINTER MF X232,0:233,128 b30 l MEDESIGN PLUS MF v MEBY NEIL TAYLOR MFOR MF B F = FAST FLIP!" 20:8M "PRESS ";::"";::" TO CONTINUE";U A$m DRW230:D132:D264 S216299:S116300  MEPOKE IN TABLE MF A3276832795:B:A,B: 1,0,4,0,56,54,45,36,7,0 173,84,192,173,00,192,201,127,16,7 T MESTART PROGRAM MFB ^:8)"SELECT A NUMBER (0-255)"[ h:15)"DEFAULT = 2"n r1:27:A$:A$ |:A$""A$"2" INC(A$):INC0340 10: 7)"SPACE = ACTIVATE STEP MODE"  8)" ESC = EXIT STEP MODE"  9)"220 MEREAD KEYBOARD MF* 250:302 SC@ 1140,96F T SCSCINCi SC255INCSC1o K%(16384):K%160270  16368,0 K%(16384):K%127280 "K%160Ĺ16368,0 ,K%198ġ:320 6 @32778 J30Y:X:C$:S(X,Y)(C$)128:< MESET FUEL FOR SKILL MF\ FU400SK100:PLSK2:1090w MEREAD KEYBOARD MF K(16384):K160680 MEDIRECTION OF SHIP MF K136S$"<":A11:A20 K149S$">":A11:A20 K193S$"^":A10F FLS(X,Y):) P MECLEAR MATRIX MFO Z109,(107):110,(108):S(40,24)g d MEFILL SCREEN MFw nI1SK38 x MERND X,Y MF X((1)38)2:Y((1)19)4:70:S(X,Y)Y10130 C$"#":ISK25ISK38C$"*" ISK38C$"@" V (104)256(103)16385Ĺ104,64:103,1:16384,0:(4)"RUN ORDE.SPACE RAID 1.0"r MELINK QUICK DRAW MF1360:1520:1440(::1110:1330:::16302,0:HT02SH10:SV10:A10:A20:BO200:SP3:TP10:SC0:S$">":90 < MECHECK X,Y M     C(Y64)$ "YAA1024B128C405 ,YHY,YA256P 6YLY,YA(YA256)256c @12:10:Y" "i J T(4)"BSAVE TABLES,A$88C,L$398" ^GT TABLE" Y02554 2212Y,Y8(Y8256)256H 2468Y,Y8256T 12:10` Y" "f l 2:8:"MAKING HI-RES LINE TABLE" MOD(A)((A8(A8))8.05)(A8) YL2724:YHYL192 Y0191 AMOD(Y) BMOD(Y8)  MEMAKE TABLES MF4(103)1(104)6440g103,1:104,64:16384,0:(4)"RUN MAKE TABLES"m(w22:6<"MAKING VERTICAL OFFSET TABLE"FY023P2188Y,Y8Z12:10dY" "nx2:5 "MAKING CHARACTER OFFSE"BLOAD GET.OBJ"/ "BLOAD EDITOR.SET,A$D00"C "BLOAD SHAPES"X "RUN QD.EDITOR"g D$"CLOSE"y D$"NOMONCIO" Ez D$(4)#D$"MONCIO"7(D$"OPEN START"M2D$"DELETE START"a<D$"OPEN START"vFD$"WRITE START"P"POKE 103,1:POKE 104,96:POKE 24576,0"Z"NEW"d"BLOAD QUICK DRAW.OBJ"n"BLOAD TABLES"x"BLOAD QD.EDITOR.UTIL.OBJ"  " MELO-RES KALEIDOSCOPE 2 MF( DA350:B119:C019`DBC:C3(B3)BA12(B,D:D,B:40B,40D:40D,40B:D,40B:40B,D:B,40D:40D,B2:::20040K,40I:K,40I:40I,K:I,40K:40K,IJ,IW:105W 20R2,20R220R1 200 " MELO-RES KALEIDOSCOPE 1 MF(d7R1(1)19FR2(1)19URC(1)16],RCt620R1,20R120R2@20R1,20R120R2J20R1,20R120R2T20R1,20R120R2h20R2,20R220R1r20R2,20R220R1|20R2,20R220R1 CH" &" MESPACE RAID DEMO MFH, MEWRITTEN BY RICH ORDE MFd6 MECOPYRIGHT 1982 MF@ MEBY SOFTKEY PUBLISHING MFLOCK SIZE FOR CHARACTER)::16302,0/L MEQUICK DRAW "OFF" MFd43604,N1:43605,N2j MELOAD IN FILES MF(2051)133(2052)210ı:PROGRAM ALREADY IN MEMORY (4)"BLOAD QUICK DRAW.OBJ"(4)"BLOAD ORDE.SPACE RAID.E:I,BY:F$P MEOLD COUT MF@ZN1(43604):N2(43605)Wd MEQUICK DRAW MFenN33:N48wx MECHARA MFN50:N614 MEQUICK DRAW "ON" MF54,N3:55,N4:43114:HAVE DOS CONNECT QUICK-DRAW4,N5:5,N66,1:7,1: B)<768,P(I):769,5:770:768,P(I):769,26:770:J188:OII1:I4I1m (1)391:(1)59:"&"K177K1851260( METWILIGHT THEME MF2173,48,192,136,208,6,230,1,198,2,240,8,202,208,244,166,1,76,0,3,96 <I768788:BYT:"SELECT A SKILL LEVEL :1-9:"K18:6:"1.:EASIEST:...TO...9.:HARDEST:"^1210:SKK176d173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96I770790:ZZ:I,ZZ:77,71,77,97I14:P(I):I1K(16384 "FU" ":L METHEME MFAV5:8:"@ @ @ SPACE RAID @ @ @"\`7:14:"BY RICH ORDE"j10:" A GAME DEMONSTRATING ANIMATION METHODS"t12:"USING ROBB CANFIELD'S QUICK DRAW UTILITY"~I11000::I0 MEWHAT SKILL LEVEL? MF16:8:BOBO2:16302,0:1090> MESTARBASE DESTROYED MF{SKSK1::HT0:A10:A20:S$">":SH10:SV10:SCSCFU:90$I51702:1,I:2,I5:768:.I11000::5808 METWILIGHT THEME MF B1:"SCORE: "SC;:15:"SHIPS:"SP;:24:"FUEL:00::BV:BH:" "* MEADD TO SCORE MF_SCSCSK100:HTHT1:S(BH,BV)0:1090:HTPL200u MENEW LEVEL MF MEANY SHIPS LOST? MFSP31030:16302,0:10:12:BO" POINT BONUS!"SCSCBO:M13 I6015:1,I:2,3:768::HBHA1:BVBVA2::200-\ MEHIT WHAT? MFCf SpL1921060jz L163āZ115:16336,(16336)::200  MENOISE FOR HIT MFI6217:1,I:2,I:768::BV:BH:"&"I12EWRAP-AROUND MFBH1BH39/BH39BH1? BV2BV23OBV23BV2j  MEHIT SOMETHING? MF*XBH:YBV:70:L8604 MEPRINT BULLET WITH NOISE MF>BV:BH:"+":1,10:2,10:768H MEERASE BULLET; MOVE IT MFRBV:BH:" ":B100:K"5:I:" "::5:5:" "6I11000::40M MESHOOT TORP MF[16368,0nA10A20200 MEANY TORPS LEFT? MFTPTP1:TP0TP0:2001,50:2,60:768:BHSHA1:BVSVA2 METORP TRAVEL IS 19 MFI119 M138:P$" ":S14S25P$(A$,S14,1)TN5:S:P$">";:P$" "Ĺ1,S3:2,10:768xXJ140:J,S:39:" ":16368,0b MESHOOT LETTERS MFl5:5:">":W11000::I1624:I20Ăv1,20:2,40:768J6I1:5:J:" +":J:5:I:"&":K11170::SV:SH:C$& MEBOOM! MFNN11008:1,N:2,N:768::SPSP1WT11000::S$">":A10:A20:SH10:SV10:16368,0& MEANOTHER TRY? MF01:I139:" ";:::1090:SP200: MEGAME OVER MF'D:16302,0:A$" GAME OVER ":S:" " FU400SK100:530=  MEDOCKED WITH STARBASE MFM L192500x SHSHA1:SVSVA2:XSH:YSV:70:L500  MEMAKE NOISE MF I2011:1,I25:2,7:768::TP10:1090 200  MESHIP DESTROYED! MFC$(L):SV:SH:"&":WĹ1,10:2,5:768# hA10A20200F r MEDECREMENT FUEL & CHECK MFz |FUFU5:1:30:FU" ":FU200Ĺ1,230:2,10:768 FU0200 1:"..........YOU.ARE.OUT.OF.FUEL.........." I1100:16336,(16336)::SV:SH:"&" I1100::SV:SH:A21" K218S$"/":A10:A21E SV:SH:" ":SHSHA1:SVSVA2^  MEWRAP-AROUND? MFn SH1SH39~ "SH39SH1 ,SV2SV23 6SV23SV2 @ MESHIP COLLIDED MF JXSH:YSV:70:L440 T MENO COLLISION MF ^SV:SH:S$:TP0XM:CXH1:T26:10104T2T21:T20T26:CXCX1>1010W MEPLOT/UNPLOT MFs CLEAR COLLISION COUNT234,001XP,YPP1:(234)0P12640P(PO)2T2PP128ĕ2XP,YPPO,P&10100 MEPUT CHARACTERYCYIV6YPYMYPYN:CY0'@10107J MEUP MFaTYPYP4:CYCYIV:YPYNYPYM:CYVIVk^1010~h MERIGHT MFrXPXP4|XPXMXPXN:CX0:T20:1010T2T21:T26T20:CXCX11010 MELEFT MFXPXP4XPXNXP, END PROGRAM) CTRL U (SET HIGH BIT)BKEY149ĹMO,1:2420` CTRL H (CLEAR HIGH BIT)yKEY136ĹMO,0:2420 FLIP CHARACTER "?"KEY1912610 CTRL I, INVERSE (EOR)KEY13726301010 MEDOWN MF"YPYP4,CT CHARACTER "G"!ZKEY1992010GdKEY176KEY180T3KEY176:1010Qn ESCcxKEY155T30w DISK "CTRL D"KEY1322190 ERASE CHARACTER SET ("@")KEY1922370 CHECK FOR EXIT (CTRL X) KEY152ĉ:::D$"PR#0"::CTRL X0 RIGHT "D"#KEY19616502 LEFT "A"DKEY1931700^ PLOT/UNPLOT "SPACE"v KEY160T30:1760 ERASE CHARACTER "!"KEY161600( START ALL OVER '"'2KEY162240< STORE CHARACTER "P"FKEY2081850P GEV6,H:7,V`4,N7:5,N84j1XP,YP:2XP,YPBtX110:X~1XP,YP:2XP,YPyKEY(16384):KEY127101016368,0T301210KEY215KEY193KEY196KEY216İ3290 DOWN "X"KEY2161570 UP "W"KEY21516202( DISPLAY CHAR. AT SIDE OF SCREEN84,N7:5,N8F6,H:7,VT16368,0_9:33en"@"OXCXOY(CY)111306,1:7,1$4,N5:5,N6.2125,81:OY:33OX:"N"8(CY)1:CX33:"N"BOXCX:OY(CY)1L2125,1450  T20*XPXN:YPYN#4T30)>0H1;RA$(0)H\X1V4YfTA:A$(1):hpTA:A$(2)szY1VX1H:Y:32X:"M":XY1:33:2125,81:"N":2125,145OX0:OY12125,145 RE-CONNECT HCG54,N3:55,N4:10XX6A$(0)A$(0)"C":A$(1)A$(1)"D":A$(2)A$(2)"E"JA$(3)A$(3)"D"U54,N3f55,N4:1002TA((31H4)2):TA XN=MIN. VALUE FOR XP, YN=MIN. VALUE FOR YPXN8((TA1)7):YN9XMXN428H:YM532V  EDIT BOXCX0:CYC$ :O(O$)128 D& NBYVH8= X788,I:ST,BY:785H b34,20T l9,BY1n v4,N5:5,N6:6,1:7,1 A$(0)"A":A$(1)"H":A$(2)"G" A$(3)"H" XX1H A$(0)A$(0)"BBBB":A$(1)A$(1)T$:A$(2)A$(2)"FFFF" A$(3)A$(3)"IJKL"N)? ";:MS$:(MS$)27TA02330E MS$"Y"I$"Y":I255:T$"@@@@"M I$S  :"SOUND (Y/N)? ";:MS$:(MS$)27TA02330\ (MS$)13MS$S$ MS$"N"G$"" MS$"N"MS$"Y":G$(7) S$MS$:MS$ &HA:VX 0O$"A":C$"N":OC$31):1 |3:"ENTER VERTICAL BLOCK SIZE ";:MS$K (MS$)27TA02330a X(MS$):X0XVh X X4Ģ5:G$"VERTICAL OUT OF RANGE (MAX=4)":380 X1Ģ5:G$"VERTICAL OUT OF RANGE (MIN=1)":380 5:31) ! "INVERSE BACKGROUND (Y/BIT FLAG FOR ALL BITS "BI,8% ,O 6"ENTER HORIZONTAL BLOCK SIZE ";:MS$i @(MS$)27TA02330 JA(MS$):A0AH TA ^A7Ģ5:G$"HORIZONTAL OUT OF RANGE (MAX=7)":1:310 hA1Ģ5:G$"HORIZONTAL OUT OF RANGE MIN=1)":1:310 r5:ENT FOR VERTICAL CHARACTER COUNT, IV.125O BUFFER FOR CHARACTER ($1800)[ HG6144b 3l HCGz N33:N48 EDITOR SET N50:N613 WORK BUFFER $1800 N70:N824 232,0:233,3 : D$"PR#0"   SET 1 MO=MODE, EN=ENDING BYTE, ST=STARTING BYTENMO25:ST11:EN12:BI253ZH1:V1|(I$"N":S$"Y":I128:T$"IJKL"2TA$"IIFFCNNL"<3490F TABLE FOR C$PD$(4)Z CURRENT CHARACTER SET AT $300dLO3584n0:1 x INCREM          A$ & )& MECHECK FOR PLOTTING MF4& 234,0D& T313360^& 1XP,YP:(234)0ıw& 2640:PO,(PO)2T2& (PO)128ĕ2XP,YP& & T323420&* 0:1XP,YP:3&4 (234)0ı&> 2640:PO,(PO)2T2&H (PO)128ĕ2XP,YP'R A32A$(A192):C$"I":3270C% A63A$(A128):C$"I":3270f% A96A$(A128):C$"F":3270% A128A$(A64):C$"F":3270% A160A$(A64):C$"C":3270% A224A$(A):C$"N":3270% A223A$(A32):C$"L"& A$((A$)128):O$(13)ĺG$"ILLEGAL ENTRY":3090h$N (A$)HV195C$"L"ğ:12:G$"NOT ENOUGH ROOM":X1800:::2910n$X $b A$(A$,(A$)1)$l A(A$):(A)A$A0A255ĺ:G$"ILLEGAL ENTRY":2910$v AHV1255ğ:12:G$"NOT ENOUGH ROOM":X1800:::2910 %HAT TYPE NOR/INV/FLS? ";:C$::(C$)273130m# C$"N"C$"I"C$"F"C$(13)ĺG$"ILLEGAL ENTRY":3090s#& #0 :"WHAT TYPE NOR/INV/FLS/CTR/LOW? ";:C$:#: (C$)27ġ::54,N3:55,N4:1002:1010$D C$"N"C$"I"C$"F"C$"C"C$"L"C$WR ";" O$;" C$OC$+" :" ? ";:A$A" (A$)13A$O$:\" A$""(A$)1A$O$:" (A$)27ġ::54,N3:55,N4:1002:1010" A$;" A$"#"Ą"";B$:A$A$B$" (A$,1)"#"(A$)13170" (A$)20C$"N":" (A$)633120-# :"W26,X(X256)256!, 9!6 MEGET SAVE/LOAD CHAR. MFB!@ A1L!J 3470V!T G$G$!^ :21:MS$" WHAT CHARACTER (#"O") ";!h (O$)03000!r OC$"F"ğ!| OC$"I"Ğ! (O$)32ĺ"CTRL "((O$)64);:2990! OC$"C"ĺ"CTRL ";" OC$"L"ĺ"LC$"I"C$"C"C$"F"C$"":28505 C$"C"2780M A191A224AA64W 2850i C$"L"2800 A191A224AA32:2850 C$"F"2840 AA128  A63AA64  2850  AA64:A127AA64!" OC$C$:OA:XLOA81:27,(X256):ARACTER":CA868:24506P MECALC. WHERE BYTE IS MF\Z POHG((CY)CXV)8(CY(CY))8bd n MEUPDATE DEFAULT CHAR. MFx O$A$ AO (A$)02850 A(A$)128 C$""2850 (C$)0C$"N"(C$)132850# C$"L"C$"N"Ͱ2640:CYT4:POPOHG, ST,PO:EN,PO8:CAm SXXP4T2:SYYP4(8(CY(CY))):MAYM:MIYN:BBPO:EBPO8y :2080( MEFLIP CHARACTER MF2 3470:23:G$G$"FLIP CHARACTER":CA884:2450< MEINVERSE (EOR) MFF 3470:23:G$G$"INVERSE CHHG:ST,PO:EN,PO1:CA:SXXP4T2:SYYP:BBPO:EBPO1:MIYN:MAYM::2080\ C$"L"960 T4CX:X1H:CXX1:2640:POPOHG ST,PO:EN,PO1:CA:0,XN28(X1):1,YP:2,YM:3,YN ST,PO:EN,PO1:5888 X:CXT4 960 T4CY:CY(CY):BIT MF.t 3470:23:G$G$;:(MO)0ĺ"CLEAR";C~ (MO)1ĺ"SET";[ " HIGH BIT":CA844 "BLOCK,ALL,LINE OR SEGMENT? ";:C$:: C$"B"2560 C$"A"ĹST,0:EN,BY:CA:SXXN:SYYN:MAYM:MIYN:BB0:EBBY:2080 C$"S"2500K 2640:POPO2330* :12:A$"ING "T1$:D$;A$;T1$;L$D :54,N3:55,N4:1002\$ 16304,0:16297,0f. 10108 MEERASE CHARACTER SET MFB :D$"PR#0"::22:"ERASE THIS CHARACTER SET (YES/NO)? ";A$V A$"YES"Č818:240` 2330j MECHANGE HIGH :>22:"LOAD OR SAVE CHARACTER SET (L/S)? ";:A$:Q(A$)272330aL$",A$E00"~A$"L"A$"BLOAD":2300A$"S"A$"BSAVE":L$L$",L$800":2300G$"ILLEGAL ENTRY":2240"ENTER CHARACTER SET TO "A$;:" ";T1$ (T1$)0BY -22::(11):"GETTING CHARACTER"? 54,N3:55,N4I*1002T49:33Z>cH"@"R0,SX:1,SY:2,MA:3,MI\ST,BB:EN,EBf5888p0:z960 MEACCESS DISK MF3470:::16388,0D$"CATALOG":A$:13)İ2900:1870@:22::11:"STORING CHARACTER":X0100:XJ2670UST,BY^796dm960 MEGET CHARACTER MFMS$"GET":28702670ST,BY807XPXN:YPYN:T20:T30:CX0:CY0:SXXP:SYYP:MAYM:MIYN:BB00:EB MF:MS$"SAVE AS"D2870^N:21:"SAVE THIS CHARACTER UNDER THE FOLLOWING LETTER? ";X(A$)32ĺ"CTRL ";((A$)64)" ";:1930bC$"C"ĺ"CTRL ";lC$"L"ĺ"LWR ";vC$"I"ĞC$"F"ğA$;::" (Y/N)? ";:B$::B$"Y"B$(  PLACE LABELS ON ORDINATE & ABCISSA AND TOTAL PLOT > 0j SPACE$" " LX((20(XTITLE$))2) X$(SPACE$,LX)XTITLE$ LX(X$) K1LX XC43I7K YC191 ((((X$,K,1)))30)XC,YC K*."' &Q2$(((Q(10DP))(10DP).5))9 0Q2$(Q2$,DP)N :Q$((Q$Q2$),S)[ DJJ(Q$)l NKKJJTF1{ XXCIYZ5 bYCW47(KK5) l16 v((((Q$,KK,1)))30)XC,YC KK XC(XD1I)YZ3 YCW 48 SLASHXC,YC I7 SLASH AND SCALE ABCISSA 5 C((XHIGHXLOW))(XD1)K CCXHIGH(XD1)CW XYXD1b XKZ2 XSCLE((XD1)Y)(XHIGHXLOW) I0XY XCCIC Q(X) Q$" "((X0)45(X0)32) Q$Q$((Q(Q0)1(Q0).05)) Q$Q$"005)) "Q$Q$"."8 ,Q2$(((Q(10DP))(10DP).5))J 6Q2$(Q2$,DP)_ @Q$((Q$Q2$),S)l JJJ(Q$)} TKKJJTF1 ^XC9(KK6)7 hYCW3(IVV) r((((Q$,KK,1)))30)XC,YC |KK XCZ YCW3IVV SLASHXC,YC I  SLASH AND SCALE ORDINATE ; C((YHIGHYLOW))(YD1)Q CCYHIGH(YD1)C] XYYD1t YK(W3)VV(YD1) YSCLE(W3YK)(YHIGHYLOW) I0XY XCCIC Q(X) Q$" "((X0)45(X0)32) Q$Q$((Q(Q0)1(Q0).#D (104)64Ĺ104,64:103,1:16384,0:(4);"RUN STRING PLOTTER"N2260k INITIALIZING THE PLOT q(x23<0F1P16302,0ZSLASH15dDP1nS10xTF5Y(234XD)Z43W144VV144YDZ,0Z,W279,W          :"SAVE THIS VERSION AS ";A$0 N(A$)0NA$A$6 XJ b(37):22:NA$P lp vD$;"BSAVE"NA$",A$300,L$D0" 768::NA$" IS READY" : ERASE PROGRAM IN MEMORYF$"YES"  30:OF$$ 310B OF34:(OF$,1)"Y"OF21` LN14:(LN$,1)"N"LN27 &RM255:(RM$,1)"Y"RM00 0825,OF:832,LN:846,RM ::20:"DO YOU WISH TO SAVE THIS VERSION TO THE DISK? ";:A$ ?A$"N"640 DA$"Y"ė::126:30:"Y/N";:A$# hA$(13)380C rRM$"NO ":A$"Y"RM$"YES"I |V 30:RM$\ s 8:30:"Y/N";:A$ A$(13)440 LN$"NO ":A$"Y"LN$"YES"  30:LN$  10:30:"Y/N";:A$ A$(13)500 OF$"NO ":A$"Y"O10)"USE LINE NUMBERS" 5 10)"USE OFFSETS"; M :6:30:RM$] "8:30:LN$n ,10:30:OF$t 6 @RM$"NO "LN$"YES"OF$"NO "Ģ2:7:"NON-":340 J2:7:4): T20:"IS THIS CONFIGURATION CORRECT? ";:A$:A$"Y"530 ^NA$"CHECKSOFT" n) x(37):10:NA$/ A D$"BLOAD"NA$c LN$"YES":OF$"NO ":RM$"NO "| (825)21OF$"YES" (832)27LN$"NO " (846)0RM$"YES" :10)"NORMAL CONFIGURATION IS" 6 10)"USE REMARKS"   * START CHECKSOFT, * WRITTEN BYB * ROBB CANFIELDZ D$(4): CTRL "D"b:h(:15:"CHECKSOFT"2<11:"ENTER VERSION OF CHECKSOFT TO USE."F"DEFAULT VERSION IS 'CHECKSOFT'"PZ7:" > ";NA$ d(NA$)1    ASHINGL$( COPYRIGHT 1982 >( BY ROBB CANFIELD D E b( :D$"PR#0":( MEABOVE ROUTINE SETS UP FOR TEXT MF( ( ( X(218)(219)256:Y(222)( ( WRITTEN AND ( COPYRIGHT 1982 ) BY ROBB CA '\ 234,0+'f 1XP,YP:P1:(234)0P1H'p 2640:(PO),(PO)2T2P`'z (PO)128ĕ2XP,YPf' x' :D$"PR#0":~' ' X(218)(219)256:Y(222)' ' WRITTEN BY ' ROBB CANFIELD ' COPYRIGHT 1982 ' SOFTKEY PUBLISHING HIRES 4:::"ENTER A PLOT FILE NAME ";:FILE$g:"YOUR FILE WILL BE SAVED AS":FILE$;".PLOT"10::"PRESS RETURN WHEN YOU HAVE THE DESIRED":"STORAGE DISK IN THE DRIVE";:A$(4);"MONICO"(4);"BSAVE";FILE$;".PLOT ,A$2000,L$1FF3"LDPX(CASE)0PX(CASE)PX(I)-:PX(I)HOLD?DHOLDPY(CASE)RNPY(CASE)PY(I)aXPY(I)HOLDhbIxlSY1İ1920vSX0:SY0:: SWAP I1NHOLDPX(I):PX(I)PY(I):PY(I)HOLDI SUBROUTINE TO SAVE PLOT FROMY$;" =";PY(I);:" ";X$:X$""PY(I)(X$):17007I=Cc SORT X FROM LOW TO HIGH sSY1İ1920:10:14::"SORTING DATA":I1(N1)SMALLPX(I)CASEIJ(I1)NPX(J)SMALLSMALLPX(J):CASEJJ &HO:X$:X$(X$,1))TX$"Y"X$"N"27607^X$"N"ı=hfr"PRESS TO ACCEPT AN ENTRY"|"OR ENTER A REPLACEMENT VALUE"I1N10:"CASE ";I12:1:958:XX$;" =";PX(I);:" ";X$:X$""PX(I)(X$):1690014:1:868:YR VALUE FOR ";XX$;" ";:X$:PX(I)(X$)[14:1:868:X$"END"NNI1:IN:I:NNN:1590"ENTER VALUE FOR ";YY$;" ";:X$:PY(I)(X$)"X$"END"NNI1:IN:I:NNN:1590,I6:@ REVIEW DATA FILE J:" REVIEW YOUR DATA?(Y/N)";))TX1TX21410; KEYBOARD DATA ENTRY X:"KEYBOARD DATA ENTRY""ENTER FOR EITHER VARIABLE IN ORDER TO TERMINATE IF YOU HAVE MISCOUNTED THE NUMBER OF CASES."I1N10:1:958:"CASE ";I'12:1:868:"ENTEES CORRECT THUS FAR?(Y/N)";X$:X$(X$,1)9nX$"N"1280?x] DETERMINE PLOT TYPE v:::"PLOT TYPE":"DO YOU WISH A"" <1> POINT PLOT"" <2> LINE GRAPH"::"ENTER YOUR CHOICE BY NUMBER PLEASE..";X$:TX((X$,1XIS ?";YTITLE$;" ENTER FOR NO ENTRIES OR ENTER THE NUMBER OF DIVISIONS";:" ";X$:X$""ī1380ZYD(X$):YD2YD15ĺ::"ERROR IN NUMBER OF DIVISIONS.":"YOUR CHOICE MUST BE GREATER THAN 1 AND LESS THAN 16."::YD0:1360(d:"ARE YOUR CHOIC OR ENTER THE NUMBER OF DIVISIONS";:" ";X$:X$""1360FXD(X$):XD2XD15ĺ::"ERROR IN NUMBER OF DIVISIONS.":"YOUR CHOICE MUST BE GREATER THAN 1 AND LESS THAN 16."::X0:1340fPYD7::"DO YOU WISH TO SPECIFY THE NUMBER OF DIVISIONS ON THE Y-A(X$,1)X$"Y"SX1:1340z(:"DO YOU WISH THE DATA SORTED ON THE VARIABLE LABELED ";YTITLE$;" Y/N";:X$:X$(X$,1)2X$"Y"SY17<XD7::"DO YOU WISH TO SPECIFY THE NUMBER OF DIVISIONS ON THE X-AXIS? ";XTITLE$;" ENTER FOR NO ENTRIESY$A:"ARE YOUR CHOICES CORRECT THUS FAR?(Y/N)";X$:X$(X$,1)RX$"N"1130X FUNDAMENTAL PLOT PARAMETERS  :::"PLOT PARAMETERS":SX0:SY0:"DO YOU WISH THE DATA SORTED ON THE VARIABLE LABELED ";XTITLE$;" Y/N";:X$:X$LE$(TITLE$,20):(TITLE$)0TITLE$" STRING PLOTTER"OXX$(XTITLE$,4)M1ĺ:"THE ENTRY VARIABLES FOR ";XTITLE$;" WILL BE REFERRED TO AS ";XX$YY$(YTITLE$,4)M1ĺ:"THE ENTRY VARIABLES FOR ";YTITLE$;" WILL BE REFERRED TO AS ";Y(YTITLE$)0YTITLE$"Y-AXIS":"ENTER THE ABCISSA TITLE I.E. THE LABEL FOR THE X-AXIS (20 LETTERS MAX.).";XTITLE$:XTITLE$(XTITLE$,20)(XTITLE$)0XTITLE$"X-AXIS":"ENTER THE GENERAL TITLE FOR THE PLOT (20 LETTERS MAX.).";TITLE$:TITXCXK(PX(I)XLOW)XSCLE3;BYC(YHIGHPY(I))YSCLEYK2GLXC,YCNVIT`rj TITLES AND LABELS t:::"TITLES/LABELS":~"ENTER THE ORDINATE TITLE I.E. THE LABEL FOR THE Y-AXIS (20 LETTERS MAX.).";YTITLE$:YTITLE$(YTITLE$,20)!)XC,YCK( DRAW POINTS 3I1NPXCXK(PX(I)XLOW)XSCLEnYC(YHIGHPY(I))YSCLEYKSHAPEXC,YCI CONNECT THE POINTS XCXK(PX(1)XLOW)XSCLE3YC(YHIGHPY(1))YSCLEYK2$XC,YC.I2N8LX((20(YTITLE$))2)44X$(SPACE$,LX)YTITLE$A>LX(X$)MHK1LX]RXC0:YC9K|\((((X$,K,1)))30)XC,YCfKpLX((20(TITLE$))2)zX$(SPACE$,LX)TITLE$LX(X$)K1LXXC115I7K:YC7((((X$,K,1)))30x  V20:100((B15:50::B2N(16336)(16336)H<SdV12knA$"<":B$" ":C$B$zxH3911V:HA$B$B$"="C$C$(95)A$A$"-"50:50V:1B$:40V:1C$:40 " A12ĉ::+N 28702+ *********************N+ ** **j+ ** BY RICH HOFFMAN **+ ** **+ *********************:2870!* A5İ1280:1740:28706* A6İ2050:2870* A7ė:10:"ENTER THE NEW NUMBER OF OBSERVATIONS (LESS THAN ";NN;").";:N$:N(N$):N2NNN3090* A8Ĺ16297,0:16304,0::2830*& A92810*0 A10İ1130:2870*: A11OVER1:2330 +DTHE DATA"%) " <10> MODIFY TITLES"F) " <11> ENTER OVERLAY DATA"Y) " <12> QUIT"a) :) "ENTER YOUR CHOICE BY NUMBER..";:" ";A$) A(A$):A1A122870) A1İ1970:2870) A2İ1410:2870) A3İ1600:2870* A4ė:1340:2120MODIFY TYPE OF PLOT"4(T " <3> REVIEW/MODIFY DATA"V(^ " <4> ALTER AXIS DIVISIONS"x(h " <5> SORT/RESORT THE DATA"(r " <6> CHANGE THE PLOT SHAPE(| " <7> ALTER THE NUMBER OF POINTS"( " <8> SHOW ME THE SAME PLOT AGAIN" ) " <9> RE-PLOT 50: SOFT REENTRY FOR OVERLAY PLOT,' 1600A' SX1SY1İ1740N' SHAPE12X' 2120`' 30o' TX1İ960' TX2İ1030' ROUTINE TO REVIEW AND MODIFY PLOT '" JUNK$', 16303,0'6 ::'@ " <1> SAVE THE PLOT TO DISK"(J " <2> $:2550(&P 10:12:"READING YOUR FILE"?&Z (4);"OPEN";FILE$V&d (4);"READ";FILE$a&n 2740i&x I0s& II1& IN2740& PX(I)& PY(I)& 2690& NI1& (4);"CLOSE";FILE$"' :216,0:OVEROVER0:2050:16297,0:16304,0:960:28 2590&% (4);"VERIFY";FILE$:2640U% :10:"FILE ";::FILE$;::" NOT FOUND"%( "ENTER A NEW NAME OR FOR A CATALOG OF THIS DISK OR AFTER CHANGING DISKS";X$%2 X$"CATALOG"ĺ(4);"CATALOG":2600%< X$""ė:2580&F FILE$X READ A SEQUENTIAL TEXT FILE V$ 34,5::"PREPARING TO ENTER DATA VIA DISK FILE"$ :"PLACE THE DATA DISK INTO THE DRIVE AND PRESS ";X$:$ :"ENTER THE DATA FILE NAME PLEASE ";:FILE$:(FILE$)02540$ $ "FILE NAME IS ";FILE$% THE MAXIMUM NUMBER OF CASES (PAIRED OBSERVATIONS) TO BE ENTERED.";N$:N(N$):N12420#~ :"ARE YOUR CHOICES CORRECT THUS FAR?(Y/N)";X$:X$(X$,1)# X$"N"2340# OVER2500# 1130# 1280# 1410# PY(N),PX(N)# M1İ1490:2760!$ EQUENTIAL TEXT FILE":" ASSUME PAIRED DATA ENTRY":" FIRST X-VALUE AND THEN Y-VALUE"d"L "V "ENTER YOUR CHOICE BY NUMBER..";X$:M(X$):M1M22330"` M1ĺ"KEYBOARD ENTRY""j M2ĺ" SEQUENTIAL TEXT FILE ENTRY"V#t OVERĺ::"ESTIMATE **************************************":34,5O! (4);"BLOAD ASCII SET,A$800"a! 232,0:233,8l! OVER0! DETERMINE HOW DATA IS TO BE ENTERED !$ :::"ENTRY":!. "WILL YOUR DATA BE ENTERED BY"!8 " <1> KEYBOARD"^"B " <2> S YLOWYLOW(YHIGHYLOW)25$ >  MAIN PROGRAM o :"***************************************" "* *":"* STRING PLOTTER *" "* *"-!"* HIGH AND LOW VARIABLE VALUES 1RYLOWPY(1)@\XLOWPX(1)PfYHIGHPY(1)`pXHIGHPX(1)kzI2NXHIGHPX(I)XHIGHPX(I)YHIGHPY(I)YHIGHPY(I)YLOWPY(I)YLOWPY(I)XLOWPX(I)XLOWPX(I)I XLOWXLOW(XHIGHXLOW)40(4);"NOMONICO"A MODIFY SHAPE TO BE PLOTTED G w10:"PRESENT PLOT SHAPE IS ";:(SHAPE30) 13:"ENTER THE NEW PLOT SHAPE ";:A$:A$:SHAPE(A$)30*15:"IS THIS SHAPE CORRECT?(Y/N)";:A$4(A$,1)"N"2050>"H     M1::T Z:A$"*":B$" ":10:12:"THE CORE MARQUEE":12:12:"PRESS ANY KEY..."` dQ110w MELIGHTS OFF! MF C$B$:10:50 + MELIGHTS BACK ON! MF ,C$A$:10::100 A45 , (LIGHTS BACK ON) 6C$A$:10  100 (TEXT  METEXT MARQUEE 1 MF#90V 1:11Q:C$;:21Q:C$;:31Q:C$;:41Q:C$;dQ:1:C$u10Q:1:C$20:Q:C$;:10Q:C$;:20Q:C$;:30Q:C$;(21Q:40:C$*11Q:40:C$:2(16384)128ı<16368,0:M1M0:: Fq MEJAGGED SCROLLER MF6:24:A11:A220:ST1oAA1A2ST:A:20):::A0A1:A1A2:A2A0:STST:2 A0:STSTZ30 "JING AWAY."J MEBOX AWAY! MF> :10:10:8:"AFTER YOU CHOOSE..."W(SHRINKING SQUARES)tJ11000::I1822:20I,20I20I:20I,20I20I(20I,20I20I:20I,20I20I2J150::: <10:"THE MENU VANISHES... BY SHRINKING AWAY.HE LEFT)% FA$(A$,(A$)1)(A$,1)B P10:2:A$:A150::70IC MEBOX 2 MF ::10LI2182:20I,20I20I:20I,20I20Ip20I,20I20I:20I,20I20I(32,22I:33,(I1)2:34,11I2:35,10I22:J150::<A$"YOUR MENU GOES HERE":A(A$)30:A$A$"-": E(SCROLL MESSAGE TO T  OLL THE MESSAGE UP)1 <A115::I150:::50I2 MEBOX 1 MF( ::10:I0182G(USE LO-RES ON TEXT PAGE)k20I,20I20I:20I,20I20I20I,20I20I:20I,20I20I'(ALTER TEXT WINDOW AND ERASE)(:32,3:33,34:34,2:35,19:219:9:"YOUR MENU GOES HERE" ;(SCR  D110: ,V120" @H138, JV:H: T"-";:50L ^H:".<";:40` h:H:"..";::v ARROW MAKES LINEV "(2) DOMESTIC COMPACT":? "(3) GALACTIC RUN-ABOUT":\ ` "(4) FAMILY-SIZE UFO":y "(5) LUXURY LIMOSINE": ( "(6) GAS-HOG":A2WW ^XWW,YX1WW,Y" r:6  ME AGAIN? MF> 50\ "PRESS KEY FOR NEW UFO";d :A$u DA$"X"2000 b1000 l  ME EXIT MF 50 "THANK-YOU FOR VISITING" 210 *1: 3 ME UFO TYPE MF 4"(1) COMPACT IMPORT":120 ~50:5# "THIS IS THE ";K WW32100,2200,2300,2400,2500,2600i  ME BEGIN DRAW CYCLE MFo  Z%250(WW4)2 W1Z% FXW(WW4)2 xH1150(WW4) N1WW1 YH(WW4)N 100  JYY(1)WW2 TU1WW:U ME LOGO MF :% :23:39)1 23:10K "THE U.F.O. FACTORY"X 24:2: "ALL THE MODELS IN THE WHOLE GALAXY!"; ":  ME ENTRANCE MF 200 L50 V"MODEL OF UFO? (1-5)"; `A$:A$"X"2000 jWW(A$)3:WW4WW91 ME UFO GENERATOR MF7 ME ADAPTED FROM MFQ ME "NIGHTFALLS" MF^ 7:1000y1 ME PRINT ROUTINE MF221:868:10:c ME DRAW UFO MFdU1(1)WW(WW3)nU2(1)WW(WW3)xXU1,YXU2,YXU1,YXU2,Y )"BLOAD ";UI$R13000:RC:"IS THIS THE RIGHT FILE?";QW$UQW$"Y"880aOPO999i20(7);"ERROR IN LOAD FUNCTION.":R11000:810(7);"ERROR IN SAVE FUNCTION.":R11000:660C ::(2) AZ$'*216,0:960D4"INPUT SLOT NUMBER:";SLc>SL((SL)):SL1SL7820H"INPUT DRIVE NUMBER:";DNRDN(DN)\DN1DN2840f(4)"CATALOG ,S";SL;",D";DNp"INPUT FILE NAME:";UI$z(4)"VERIFY ";UI$ :(4SL(SL)SL1SL7680;"INPUT DRIVE NUMBER:";DNHDN(DN)[DN1DN2710"ARE YOU SURE THAT YOU WANT TO SAVE THIS PICTURE?";:Q$::Q$"Y"Ĭ(4)"BSAVE ";NM$;",S";SL;",D";DN;",A$4000,L$2000""DONE."R11000:R \X"DO YOU WANT (1)- BLACK ON WHITE (2)- WHITE ON BLACK ";CCC|bCCC(CCC):CCC1CCC2600lv::A$:(8):"BYE."AE$216,0:980::(2):"INPUT FILE NAME:";NM$"INPUT SLOT NUMBER:";SL  (<-)- LEFT (->)- RIGHT (Q)- QUIT ";N"(S)- SAVE PIVTURE TO DISK (L)- LOAD PICTURE FROM DISK (SPACE)- TEMPORARILY STOP PLANE "*******"7 "* (C) COPYRIGHT 1982 BY BARRY VAUGHAN *"f &"***************************************" 0::::R12000:R :"INSTRUCTIONS FOR THREE-D PLANE DRAW. " D"(A)- UP (Z)- DOWN 79 CV0CV0$ VC191VC1913 VC0VC0@ Y0Y0O X,YCV,VCh G0H0J0K0480u G,HX,Y J,KCV,VC GX:HY:JCV:KVC 210 ::255:: 3 "**********************" "* THREE-D PLANE DRAW ***********0XX:YY# Y0Y190:H191:2804 A193YYFL Y191Y1:H0:300] "A218YYFw ,X0X278:G279:320 6A136XXF @X279X1:G0 JA149XXF TY191Y191 ^CVXLK:VCYLK hX279X279 rX0X0 |CV279CV20:CV0:VC0:G0:H0:J0:K0" x+ 160S X(16304):X(16297):X(16299)b OPO0:170 CCC1Ē7:0,0279,191:62454:0:190 CCC1Ē0:190 7 X140 Y95 A(16384) A209630 A211650 A204790 A16  5000"INPUT DEPTH OF PLANE(1-100)";LK@LK((LK))T(LK1LK10020q2LKLK100:LK.01LK.01<LKLK1:LK2LK2F"ENTER SPACING BETWEEN LINES(4 IS RECOMMENDED.)";FPF((F))ZF170dOPO999140 nX0:Y0:Aԡ׊Ն֪ժժժ׊ժ׺Պ 舑ںݻݟԛժݪժ          L`  g h "HɲjE *E E j hh $8$ J  A  Ƀɛꍖ Ђ `` XʽibicL` 1 1< = UbȑbE<)B8$ J A & ɃHɠɛ Ubȑb ?-($$$-?'- ? -< $$$?---d $$66v- $$-` $$M16'$$$$66-5&$$$?d l )=$$$> --?' ?- / ?I$$$6.??$$- ?'$--)- ?7&$ (-!d --'466&,??L(-?`-3666II%` ;.)) c݃ )  $` $``L666 `( $4>/-- ) ?(--;` I $d-66? -(( WB0UW_hz#/<JScoty&0;KWes#-6?GIUY      `p(  p gL   vL  - dL `LIp`   ` \ qL  \p` L E` < 6<  )ԫЃת쀠ժݻպժćժԻժ̀ջݻ؁݃ڪժժՁݻ݂ňРݻݻݨꀀҪ݊ȁފ܊ժժتժݻժݻݻܻ֪ժժժՀ֎ݾ؃ݻږС׊렠׎՝ժݫպךժ׻Պ숁ֺݻݻ݃ժժݻ؇݀ֈ¢ջݻ݀ꀀ֪ꅨՊ론Ԋ݂ժ՚ЪժջծՊݻݻݻժժժآĈݻ q@@@@GDDDDDDDDDDDDG@@@@qffffLLLL3333AAAAAAiiiiRRRR<%%<<%%###?################?##??##;#####?#### <######?7+++++####'+3###############+.#######001?- ############# ##+++++## ##### ?0 ??888888? ""(D >kk>6??՜#'+3## 10?10001??001####?10 #####11>001 𾓾????侇         ) J J  LO  (0,   iе(i  Ѕ`8 L ` ` 9TRQWɛ" *P *QL ` ` CX0:CY0: CHARACTER NUMBER HORIZONTALLY AND VERTICALLYFT20VXPXN:YPYN_T30el1wA$(0)X1V4TA:A$(1): TA:A$(2)Y1V X1H:Y:32X:"M":X*Y41:33:2125,81:"N":2125,145>OX((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP      (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx!!!"#-56?'5'!     ((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                    (((((((((((((((( (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx!҆фЦɍ_%2eK eL%Ӣ Թd eդ$ԑӤ$!$eL$$!$%%#%Ѥ` (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx! ! !!!y ` ` `??`  0) ` I ` 0 0) `! `      )@  LY    и@@ H)JJ h . . n) $00  (&H   h` ˭Π٠ ӮĠԠ٠"         ӍנŠŠӠððÍӠĶðñĶӠİŮÍؠҍؠѠԧӠӠԧӠÍРԧӠ̍̍̍̍̍̍ҠԍԍҠѠٮō؍؍ٮōӍàҍؠҍؠčŠؠؠҍӍҠԍàԍҠРύ؍РӠРԍؠԍ؍ӍҠŮÍàōŠҠРύؠҍؠѠӠҠРύؠō؍ŮÍؠÍŠؠԍ؍٠٠ԍàԍҠРύؠҍؠÍԠŮϮҮčҠçӍϠؠō؍РƍѠ̣Ѡ̣ӠԠѠÍŠѠčԠѠōҠѠŠӠŮӍŠԍԠԍŠŠҠŠڠŠӠ̮ӧҠƠ̮Ӎ" " " """""""z@0/ . . : . . :/0`HH)hJJ hhhi .i .i nhi) ih(`hh`"