' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED 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`ЀЀ Ѐ     Ѝ׍ԠҤ͠ӢĢ̇ӍĢ̇ӍԍōңUR BACK-UP DISK AND TYPE"::"EXEC MY DISK":I WRITE PROTECT TAB FROM":"YOUR BACK-UP DISK AND TYPE"::"EXEC MY DISK":IWISH TO SKIP THESE MESSAGES AND":"GO DIRECTLY TO THE MAIN MENU ON BOOT-UP":"THEN REMOVE THE WRITE PROTECT TAB FROM":"YOUR BACK-UP DISK AND TYPE"::"EXEC MY DISK": " OR"::"RUN SYSTEM MESSAGES":IGES":I THE WRITE PROTECT TAB FROM":"YOCRACKERS, HACKERS & ":"PIRATES. PASSWORDS ARE CURRENTLY $15"::"CALL 617-720-3600 MODEM" :"THANK YOU FOR BUYING CRACKING TECHNIQUES"::"KEEP ON CRACKING!!":: " >>> RED REBEL <<<" I19000:: : :"IF YOU + 0"AT PIRATES HARBOR ABOUT CRACKING BY"Z :"MANY OF ITS MORE SOPHISTICATED CRACKERS"b X: b:"THIS DISK SHOULD NOT BE":"USED FOR ILLEGAL PURPOSES": lI120000: \ :"PIRATE'S HARBOR MAINTAINS A 24 HOUR":"HOT-LINE FOR ALL 6302,0 I15000:, 54915::::100H "CONGRATULATIONS !!":N t "YOU HAVE JUST RECIEVED THE NEW" "CRACKING TECHNIQUES 1984.........":  "THIS DISK CONTAINS A VARIETY OF TRICKS" &"AND MESSAGES POSTED ON THE BBS SYSTEM"HT"9 :" ";::" RESERVED"G " ":" "S 34,7:[ : :::" P R E S E N T S" :::: " ";::"CRACKING TECHNIQUES 1984": I15000: 16299,0:16297,0 16304,0 1 2::P100Z145^d::1:1::" ";::" CT 1984"n:" RED REBEL'S PIRATES HARBOR ";::" COPYRIGHT"x:" PRESENTS ";::" (C) 1984" :" CRACKING TECHNIQUES 1984 ";::" ALL RIG   0x6`0@a|C?x|) bc`@~P`/0Hk@ApI$`~~a|C?x00pf`@~~!x@"@A @ ( @ @ @< @t@ pAp|` cx @A|Ap?p~/ #``!Bpa 0P@x?cpOcsy`~axA?x `8 23d @~~!x@? "C|@axa8p@8@0`~`@` F>sd0@  @@D2N@@q g\ @Gg`@`{D @ x@ `@x`@:@xp` p@!B a(%z`;`|@~?`F,Sl Adsy@  @p @0d0X`@p T@<7@@L @@@@ <p{@1/H}2  @@s`|c`!@~a|A ?  ?00 pA07`A @@`p@F&S`hA$A@ `|x `4 pp `xx1t0``@p@X `><Fq'o0 @`0|b c@~a|A?p@ 88o @a`@@@` @GF 0hA&A@ `|x@ ``?4`0 @ `P |`p #g@ @0 p{0C~@!B Ap@l (`8 p`@@0`|f@M[x Ocqy@  ` x`>@x?@08p`A8P# }pS'@c@@@"p Cp@!B A@ (@x`@`@ p0`'`HKppI$`  ~`O@x "p@ (P A (.@x`           ! (4)"RUNSYSTEM MESSAGES"2:2,0:16297,0:16304,0Z"BLOADTHE RIFLE3,A$4000"bY$j,:~(4);"RUNTEST" "NOMON I":D$;"CLOSE":PM1PM0:D$"PR#0"5@.11560DNW11400 x-AX111400N -X$NW$(AX):(X$,(X$)5,1)"#"X$(X$,(X$)6)Z -11800 -BXAX::"MESSAGE #";AX;": ";X$::D$;"MON I" -D$;"OPEN NW.";X$ -D$;"READ NW.";X$ -A$:A$; -(A$,3)(13)(13)(13)11800 .11750*.:D$;R B O R":::" ";::"6 1 7 - 7 2 0 - 3 6 0 0"::\ ,(Q$,1)"T"ZMZM10:11300g -11400 - SELECT MSG TO READ (-54915 P-"(LAST="BX", QUIT=Q,PRINT=P) READ MSG.#";:"";M$::M$"P"İ20:PM1:11620 Z-AXBX1:M$""AX(M$) d-AX5:AMZMZM95 L,AM;".";5);(NW$(AM),(NW$(AM))6)F `,AMNW11400L t,R , ,"(T)ITLES, (R)EAD, (Q)UIT: ";Q$::Q$""Q$"T" ,(Q$)0AX(Q$):11620 ,(Q$,1)"R"11560; ,(Q$,1)"Q"ĉ:::::::"CALL ";::"P I R A T E S H A NE MOMENT, PLEASE..."::D$"READ"F$; AM1NW:NW$(AM):J D$"CLOSE"P 4 l + (S)CAN/READ BB TITLES +"::: SCAN/READ/PRINT MESSAGES :::": +3200 ,:"START LISTING TITLES WITH #";Q$:ZM(Q$):ZMNW11280 $,:ZM0ZMNWZM1 8,5491 (WHEN IN READ MODE)": :+ D$(4)8 NW$(80)C 11200U (4)"PR#1":l NW0PP1:3300 F$"NW.TITLES":3280 D$"OPEN"F$:D$"READ"F$:W$:NW(W$) :"THERE ARE ";NW;: " ACTIVE MESSAGES" PP1PP0:3380# "...O6 ::"THIS PROGRAM 'SYSTEM MESSAGES' ASSUMES":"YOUR PRINTER IS IN SLOT #1":"THIS COMMAND IS IN PROGRAM LINE #20"::"THE FOLLOWING COMMANDS ARE VALID:":" S = SCAN R = READ"" T = TITLES Q = QUIT" " P = PRINTӠŷՠŹĠ͠ϠԧӠԠŠήŠحٍǠԠٺؠٍŠĺɠҠ͍ϠˠçӠԠҠӠӍҠĮҠǠŠˠȠĠ٠͠ȠӍ٠ŠΠϠŠӠ΍ˠҠŠŠӠōΠˠӍ͠٠ԠΠԠӬύȠԡˠà͠ύĠŠŠİŠŹƠĠŠ Ơİ ŠİŠŭƩŠŠŠҠΠԠӍǠԠٺƠōŠĺΠ ͍ϠˠŧӠנ͍͠ŠӠԠՠϺŠǠΠĠƠӠӮ٠ŠˠԠҠˠƮ٠ŠӠĠӮ   Ӯɠ͍Šՠ̠Ġ Πԍ٠ϠŮ̠Ԡ٬ՠ̠Š̠ӠΠƠҍĠˠȠ٠ΠҠōĠĠĠŠ٠΍Š̠ˮӠĠƠΠӠōŠԠǠΠӠčӠŠӠƠҠō̠ĠΠŠĠԍӬԠŠΠ٬ՠ̠ŠĠƠՠԠōΠˠϠŠĬĠӠҠϮנӠŠ΍٠ϠԠŠٮΠŠ٠ӠĬǍ ̠ŠΠŠӠՠōĠҠծҠ̠Ӡ΍̮ҠǠŠӬՠ̍ŠĠƠҠӠōԮƠՠҠӬŠԍԠƠӠ̠ҬȍĠˠҮĠˍϠ٠ϠƠȠҠҠȠӠŠҧΠΠ®ǠŠӠĠǍºΠ ٠ǺЍŠ̠͠ŠРĠˠԍӠϠŬ̠ĠŠԍήŠŠҠŠĠύŠӠΠϠӠϺ·͍נԠˠŠˠӠ̍Ԡ٠٠͠ϠƩĠΠ®ĠΠˠҠȍˠҠƠŠϠӺԠŠĠˠĠҍŠΠӠӠĬԠύŠҮŠΠӠ̍٠ŠĠנӠҍŠԠӮՠΠ̠ӍŠ٠ӠàԠ̍ҠԠŠ͠Ơôô°·ҠǠŠӬŠōŠ٠ǺŠ®ʬ̤ǠºϠŠ¬ՠԠŠōΠӠĠԠԠԠӍȠƮՠΠϠӍŠƠ±øİƹŶŶİƲ°Ġ÷Šøàù¸ñô÷ºƠ°İƠƍĸ´ĺƸ´´÷ĠðŠĠōӺ´čıĠIJƠčijĠĴàŷ°·àƷ°·à°·ààҍ¬ŠĠԠҠōҠ٠Ǻ̭ԠŠĠŠŠٍ٠ǺƠΠ͍נĠŠŠٮʰ͠ōӠ͠Ҡ٠ǺĠٮʰנŠΠŠנà÷ŠҠԠ÷³ŠøؠøŠحҠԠø¶àù٠ùŠ٭ҠԠù¹ӠΠ͠ŮϠϠŠŠŠŠưŶàԠΠŮؠԠخİƲŠĠƠΧԠĠӬϠή­ӠΠ͠Ů°Ġ÷Ϡ٠ӠϭɠҩĠ٠ٮø٠ԠٮİƹŠĠŠ̠ĠƠŮŶàԠ̠ŮٺĠ͠ȠŠӠčϠ٠ӠϭɠҩĠ٠ٮƭٺŠ͠ԠŠӠčҠƠӠϠŮĠ͠Ƞ٠ҠϠٮŠԠ­ŠԠĭ±ààРàŠŠӠĠԮ٠Š̠ŠϠŠͮŠΠŠϠŠϮؠĠؠȠ ŠŠӮ٠͠ŠϠŠͮ··ΠŠϠŠϮҠŠ̠Ӡ͠ύ·Ʈ·ΠŠϠŠϮҠŠ̠Ӡ͠ˠύ·ƮàРРϠŠō°Ҡ°Ӡ͠ˠύ·ƮàƷРƷРϠŠŮ°Ҡ°ŠŠӮ٠͠ŠϠŠͮРŷРϠĠŮ°Ҡ°ŠŠӮ٠͠ŠϠŠͮ··ΠŠϠŠϮҠŠıŠˮĠIJIJŠˮƠƠǠҠϠĠͮĠijijŠҮĠĴĴŠҮĭàŷ͠Ҡ٠̠Ӡ͠·ƍϠƮ´Ҡ´ŠϠŠӠųĭǠˠϠĠͮƭĠıǠŠٮʰŠŠŠӠĠΠө°Ҡ°ŠŠӮ·٠·͠ŠϠŠͮΠŠϠŠϮĠŠˠٍǠԠ͠Ϡ·ƮҠ ӠŠǠōĠˬ̠ӠӠčˠРϠ·Ơ͠ύŠϠ̠ӠˮӠӍĠ٠ŠӠȠ̍ĠϠŠIIPLIPLPLIPLPPT49229,0:49236,0:N14000ErA$"L"ĺ(4);"BLOAD "F$",A$"N1:10Q|A$:10ED"ED"PLILIIPLIPLLIIPLIPLLTALOG"' :F$::34,0:4:958:15059 (F$)01500O 49232,0:49234,0o N1540,1560,1580,1600,1620 49228,0:49236,0:N12000:1650 49228,0:49237,0:N14000:1650 ,49230,0:49236,0:N14000:1650 @49230,0:49237,0:N18000:1650 I32:170 FD64:170- (4);"PR#1"3 E 1913,PLIDY 1785,Z:1145,Cq (17):(4);"PR#0"y 10 :15);"LOAD PAGE ";N 9:" FOR CATALOG, CTRL-C FOR MENU" 8:"FILENAME: ";F$ (F$)01520 34,3:(4);"CA "A$"C"950 'A$"N"7500 )A$"V"1525> ,"";:170T I0:C75:D0:170i P1:N3:Z2:170~ RP2:N4:Z2:170 P1:N5:Z1:170 C76:170 P1:N1:Z0:170 P2:N2:Z0:170 LP3:170 ~L4:170 L8:170 L16:170OICE: "; A$:A$;% A$"Q"ė:6 A$"1"1000G A$"2"1050X A$"B"1100i A$"A"1150z A$"O"1200 A$"X"1250 A$"I"1300 A$"E"1350 A$"L"1500 A$"D"1450 A$"3"800 A$"4"850 A$"5"900ONDENSED" A"4) PAGE 4"? F"5) PAGE 5";25);"N) NORMAL"E KK Lu x"L) LOAD PAGE";25);"A) AND PAGES" }"V) VIEW PAGE" "D) DUMP PAGE";25);"O) OR PAGES" "Q) QUIT";25);"X) XOR PAGES" L0:I0:D0:C75 20:"CHc EPSON DUMP$ BY W.TOOMEY*0Q P1:L0:I0:D0:N1:Z0:C75[ ::d 10z15:"EPSON DUMP"15:"----- ----"(62"1) PAGE 1";25);"I) INVERSE"7"2) PAGE 2";25);"E) ENLARGED" <"3) PAGE 3";25);"C) C   ƍȠӠĠˍԠӠĠӠįҠӠύ̠ӠԮŠčˠ٠Š̠ӠōŬҠԠ٠ԮŠӠΠˠ٠ˠӬӍӠԠҮӠӠϠčŠˬĠΠӠԠϠ΍ĠӠˮŠӠӍ̠٬Ԡ٠ӠȍӠԠŠĠΠӠōӠĠԠŠǍˮǠº Ӡ٠ĠΠĠӍ͠ӠˠĠΠŠ͍ϠӠˮΠӠΠƠάǠōŠҠϠ٠Ӡ͍ӠϠӠΠӍӠΠŠŠŬԍӠҠӠӠΠ٠0``G |0GcyE_pq|>@HBrrDp{=9"pDD|>"N'_o<@o@( &5|?|0 @ Gc8N:@( Q( D"A"Gc @$5@h0x}>"dq8 x (`` 0D(D"Q"Qq@h Q( D"A""p| %@(D dqrx=E9D>""Ao@'5x0"B@0 @( (D  Px'50p _(dy|"Ap!b<@  &@(D   )DEE"D" ""QQHA @ @"A`pGT@08 OC<<' @(`@Q(D"A""]@pD@hG`  ED}xE"d"">QY(A @(x``xbC@>8```D(D""qX@(@@Q( D"A"" @*D jQ Epy<(EE:T"<*"QU(OgG@g"D @`@p @O@@@DF(d"Q" qG@ 'dyEApq#`@-$! 0 EDXEEL"6"QS(A |0x"D`|`@ 0@ l$GCN`8@Bc 5@("  EDE"E"D""Q"QQ(A @0@x>Nocq8>G@ 0|  a                     ӢԢԢ΢΢΢٢٢΢Ţ٢٢٢Ӣ   ҢҢ΢΢΢΢٢٢٢Ң΢΢٢ŢŨͩ ̢̢΢΢΢٢٢٢΢̢΢΢٢ҠȢŨͩ  ǢǢ٢Ǣ΢٢Ǣ٢΢٢΢Ǣ΢٢٢ǠآǠ٦  ŭŭ I > @8@ <@B""@(@ @  @ @p  ~I@ `@!DB!B! @!Fx8h"b @ @ \B pp@  `GBpcC p @ @ @8@@@@E8BB!@?@H @ pA @ @ @I@`#B##@A#Z>q @x @p@AB<  @ @ @ x BB@ 0G <@  @88@```@>~8 @ @@ @ t@@  @ @ `2@-@hB--F-b`0`<  8 xB$@0H@8c`@@@`~p p@ B`d?`@@@@ p81<@B1@B1H1B888 @: @'@ <p`B @P| @@ @ dA`@ @ @@@ p  B`$@@P @pb!@a!@@p 88 @ @ @!C!C! H!< @ D @ < ByB$@PH`@@@( `& @ @ @>   "8$$@`@@@`8 `@`|qB@c8  BF```BBa@@``@| @  @ DC @p@@AI @Q "@q'@@ @ @0 @ @ @`@@< @ @ B@pp <   F`Z> p@ p @x`GB@`CD`@@@x (p@ p @" @(@ @Ip@@8p@@`I@@ > @ @ @$$@@ @ p @ @ @8p Ap@@ @ @ @8   B Z>bxxx@B@@ p            آŢԴ΢΢٢΢΢΢Ţ΢΢٢ӢΨةآٽΨة  ŢԳ΢΢٢٢΢΢Ţ΢΢΢ؠŢΨدٽΨد "A(ME%,(HH$):)F(ME%ME%1:ME%,0fP(J1(Y$(I)):ME%ME%1:HH$(Y$(I),J,1):HH$""HH$" "vR(ME%,(HH$)|((ME%ME%1:ME%,0:)D$;"RUN MENU"::1:10:"DISK ERROR-PRESS ANY KEY FOR EDITOR":O0$:1009840)h&X$(I)""Y$(I)""LI1:LNI10/p&Vq&X$(99)""Y$(99)""L99:LN990jr&D$;"CLOSE";NA$uz&:100'D$;"PR#0"':"PLEASE WAIT"t'ME%16382 (ME%,L((I1L2(J1(X$(I)):ME%ME%1<(HH$(X$(I),J,1)?(HH$""HH$"6408%(XXJJ)12832(XXJJ1)12832JJ40:9675T%NA$NA$((XXJJ)128)Z%u%2:::"TLOAD ";NA$:%23:40&D$(4)H&D$;"OPEN";NA$R&D$;"READ";NA$\&I199:X$(I)f&Y$(I)g&X$(I)""X$(I1)""Y$(I)""Y$(I1)""ī500f!ZZ$(32)ī90008!(7):I:7:ZZ$:FL1:8450S(#I8I16P0P040:J0q-#:FL1P01025:J0:82752#:10:"THERE ARE NO DATA FILES RESIDENT ON"F#"THIS DISK. PRESS ANY KEY FOR EDITOR.";Z#O0$:100%XXP0(J1)128N%NA$"":JJATALOG"1:1? "PRESS TO MOVE CURSOR, "j: "TO LOAD ENTRY, OR FOR EDITOR."S I124:JJ1:PPP0(J1)128:CP$((PP)128)((PP6)128) CP$"T]"Ė7:I:ZZ$:FL1:8450 9000!ZZ$(27)ī1004!ZZ$(13)ī9lZ$(CM$,4,(CM$)3)"Z(Z$)=Z0Z999ĺ(7):2000IL1Z10h(L1(L1))0ĺ(7):2000r4345@::"INSERT DISK AND PRESS ANY KEY"B"TO DISPLAY CATALOG.";CO0$EJ::CP$"":P01025:J0:FL0T4^D$(4):D$;"C8L2$""L1$""L1$L2$=L1((L1$)10):L2((L2$)10)Z2L2L1L3L2:L2L1:L1L3i<L11L11xFL2LL2LPL1LL1LdfLN102000nIL1L2:(I10)"=";X$(I);",";Y$(I)::2000L11:L2L:6500X(CM$)4ĺ(7):2000(I)%Y$(I)((*D$;"CLOSE";NA$.\7f100Mp:(CM$)5ī6900_zL1$"":L2$""uZ$"":I5(CM$)(CM$,I,1)"/"L1$Z$:Z$"":6070Z$Z$(CM$,I,1)I(CM$)L2$Z$:L1$""L2$""ī6900L1$""L2$""L2$L1$NA$"]"NA$:K:"INSERT DISK AND PRESS ANY KEY TO COPY.":O0$h:10:12:"SAVING ";NA$o1{ D$(4)IL199:X$(I)"":Y$(I)"":D$;"OPEN";NA$D$;"DELETE";NA$D$;"OPEN";NA$D$;"WRITE";NA$ I199"X$LL1LNLN10%\2000K$L1LLL1:L1L:LNL1010:4300`8L11(L1):LL1qBMLL111LX$(M)X$(M1)VY$(M)Y$(M1):`LNLN10:4300v:5:"INPUT THE DATA FILE NAME TO BE SAVED.""TYPE FILE NAME->";NA$3)JZ(Z$))TZ0Z999ĺ(7):20005^L1Z10Nh(L1(L1))0ī4900cL1LL11ī4900:"ENTER X,Y VALUES FOR DATA INSERT":Z;"=";"";X$(L1),Y$(L1)X$(L1)""Y$(L1)""ī2000ML1LX$(M)X$(M1):Y$(M)Y$(M1)M$,1,3)"PR#"SS%((CM$,4,1)):D$;"PR#";SS%:2000C| (7):2000M Z$""e LLN10:I1(CM$) (CM$,I,1)","X$(L)Z$:Z$"":3200N Z$Z$(CM$,I,1) I(CM$)Y$(L)Z$ :LNLN10:2000(CM$)4ĺ(7):2000Z$(CM$,4,(CM$) (CM$,1,3)"NEW"Ľ:F51:LN10:LN$"10":50P(CM$,1,3)"ADD"F51:2000l4(CM$,1,2)"MM"ī10000(CM$,1,4)"LIST"ī6000(CM$,1,3)"INS"ī4000 (CM$,1,2)"SV"ī5750" (CM$,1,3)"DEL"ī7000T (CM$,1,2)"LD"ī80003h (C"FOLLOWED BY CMM TO DISPLAY THE COMMAND":["MODE MENU."@QF51ī2008f"ED:";CM$:2050tLN$(LN)LN$"=";"";CM$,TM$CM$CM$","TM$:(CM$,1,3)"E,D"F50:2000CM$"LG,M"ī1002960(CM$,1,4)"CMM"ī100.z #  Ҡ Ѡ Π Ԡ ԣ" ΠР  Դ Š" Ǡ Ǡ ̠ ̠ Ҡ Ԡ" ԠԠ$!Ǡ""ԠԳ Ԡ  ԠԠ"ҠԠԠՠϠ Ġ̠ӠŠ٠ ϠTE OF THE CENTER OF THE";^" FIRST CHARACTER OF A$."i"Y - Y COORDINATE OF THE CENTER OF THE"" FIRST CHARACTER OF A$.""IX - SET TO 1 TO CAUSE HORIZONTAL TEXT."&"IY - SET TO 1 TO CAUSE VERTICAL TEXT."?" FOR DIAGONALID,1) : AC=ASC(B$)-31"D"30 X1=X+6*(ID-1)*IX : Y1=Y+9*(ID-1)*IY"o"40 DRAW AC AT X1,Y1 : NEXT : RETURN"2:"THE FOLLOWING VARIABLES SHOULD BE"d"DEFINED PRIOR TO 'GOSUB 5':""A$ - TEXT STRING TO BE PLOTTED.","X - X COORDINAE FOLLOWING SUBROUTINE SHOULD BE"N p"INCLUDED IN YOUR PROGRAMS TO USE THE "s "KEYBOARD IMAGE 'SHAPES' FILE:"y  " 5 ROT=0 : SCALE=1 : IF IY><1 THEN IY=0" " 8 IF IX><1 THEN IX=0" "10 NU=LEN(A$) : FOR ID=1 TO NU"j"20 B$=MID$(A$,SHAPES'."4 v:"THE REMAINDER OF THIS TUTORIAL IS"e "DEDICATED TO TEACHING YOU HOW TO USE THE"; "KEYBOARD IMAGE SHAPE TABLES ONCE THEY'VE"; "BEEN LOADED BY THE 'SHLOAD' PROGRAM." ::6);"PRESS ANY KEY TO CONTINUE"; O0$:! >"TH"THAT YOU SHOULD COPY TO YOUR OWN WORK"Z "DISK ARE 'SHLOAD' AND 'SHAPES'. REFER TO"; "THE SUPERPLOTTER USER MANUAL FOR THE" "CORRECT PROCEDURE TO BE USED IN COPYING" D"THESE TWO FILES. 'SHLOAD' LOADS THE" X"BINARY SHAPE TABLE FILE 'AND USE THEM IN YOUR OWN APPLICATIONS"T d"WITHOUT RUNNING THE SUPERPLOTTER. THIS" x"FEATURE WILL ALLOW YOU TO INCLUDE TEXT" "WITH ANY HIGH RESOLUTION GRAPHICS" "DISPLAYS THAT YOU DEVELOP. J:"THE TWO FILES ON THE SUPERPLOTTER DISK") |_ 100 0:1:IY1IY00IX1IX0F NU(A$):ID1NUdB$(A$,ID,1):AC(B$)31X1X6(ID1)IX:Y1Y9(ID1)IY(ACX1,Y1::d:33,40 COPYRIGHT (C) 1981 GL DICKENS10 "KEYBOARD IMAGE SHAPE TABLE USER      RE HDO316O2:LDO116O02 232,LD:233,HD8  :.Z COPYRIGHT (C) 1981 GL DICKENS III:dD$(4)SHM(116)256(115)a,HMHM768}D$;"BLOAD SHAPES,A";HMHM1XC34096:C2256bC116vO3(HMC3):REHMO3C3O2(REC2):REREO2C2O1(REC1):REREO1C1 O0  REREO2C2' O1(REC1):REREO1C11 O0REM HDO316O2:LDO116O0a 232,LD:233,HD (4);"BLOAD EXAMPLT,A$4000" (4);"RUN MENU" :C2256 bC116- vO3(HMC3):REHMO3C3I O2(REC2):REREO2C2e O1(REC1):REREO1C1o O0RE HDO316O2:LDO116O0 232,LD:233,HD (4);"BLOAD EXAMPLT,A$4000" (4);"RUN MENU"T(HMC3):REHMO3C3 O2(REC2):/ COPYRIGHT (C) 1981 GL DICKENS III<_3:950Fa::Sb16383,0_dD$(4)i:10:12:::"THE SUPERPLOTTER"x12:" VER. 2.2 "HM(116)256(115),HMHM768D$;"BLOAD SHAPES,A";HMHM1 XC34096  9??9$-6?$$ -?$, 16w6#$$<-6=?s- $$$;$l #$??$$$ %66n $$ !66n $g $?66- $e?766 $?66% e?766I?Dd-$$(-- 6?$$l 6 $$M165$$l 66 vn  V6 ?JR-??>,  %?6.- $$g666=?- ?V.--s- , ??:' 666r- $?',--?$d-&d ?7n $?$,-?'$R?$$ -$,-66?'$=?$,-:?'$=?$,-#@ "-8BNYbmx} '4=IVbky$46$ 6#gl6/>-$' %3'6> GOOD LUCK!"A.22:"PRESS ANY KEY TO RETURN TO THE MAIN MENU";]D/O0$::(4);"RUN MENU"dOTH YOUR APPLE ";(93);(91);"."H+"REFER TO PAGES 91 THRU 100 OF THE"u$,"APPLESOFT BASIC PROGRAMMING REFERENCE"V,"MANUAL FOR DETAILED INFORMATION ON SUCH","OPTIONS AS THE ROTATION OF KEYBOARD","IMAGE SHAPE TABLES. ,:" n(A$"ROTATED TEXT":X247:Y34:IY1:IX0:16:8:O0$::]*10);"TUTORIAL IS COMPLETE"::*+"ADDITIONAL APPLICATIONS ARE DETAILED"\+"IN THE SUPERPLOTTER USER MANUAL AND THE"+"APPLESOFT BASIC PROGRAMMING REFERENCE"+"MANUAL WHICH CAME WI'10);"X =247"'*'10);"Y =34"0'A'10);"IX=0"G'X'10);"IY=1"':9);"ROT=16 (90 DEGREES)":8);"CHANGE 'ROT' IN LINE 5" (::" PRESS ANY KEY TO DISPLAY GRAPHICS";<(O0$:DU(16302)(16297)(16304)(16299)8KEY TO DISPLAY GRAPHICS";MT$O0$:DU(16302)(16297)(16304)(16299)$A$"DIAGONAL TEXT":X106:Y25:IY1:IX1:5:O0$::':'13);"EXAMPLE NO. 4"::B'6);"DEMONSTRATING ROTATED TEXT"::''10);"A$='ROTATED TEXT'"'X1:5:O0$::#:5(#13);"EXAMPLE NO. 3"::`Z#6);"DEMONSTRATING DIAGONAL TEXT"::f##10);"A$='DIAGONAL TEXT'"##10);"X =106"##10);"Y =25"##10);"IX=1"##10);"IY=1""$::::" PRESS ANY ZONTAL TEXT'" % 10);"X =94"+ > 10);"Y =151"D U 10);"IX=1"[ l 10);"IY=0": ::::" PRESS ANY KEY TO DISPLAY GRAPHICS";l O0$:DU(16302)(16297)(16304)(16299) A$"HORIZONTAL TEXT":X94:Y151:IY0:I" PRESS ANY KEY TO DISPLAY GRAPHICS";\<O0$:DU(16302)(16297)(16304)(16299)PA$"VERTICAL TEXT":X30:Y25:IY1:IX0:5:O0$::6:@13);"EXAMPLE NO. 2"::r6);"DEMONSTRATING HORIZONTAL TEXT"::  10);"A$='HORITINUE":Y185:X64:IY0:IX1:5:O0$::/~:M13);"EXAMPLE NO. 1"::x6);"DEMONSTRATING VERTICAL TEXT"::~ 10);"A$='VERTICAL TEXT'"10);"X =30"10);"Y =25":10);"IX=0":10);"IY=1"((::::0"THESE EXAMPLES ARE ON HIGH RESOLUTION"Y"PAGE 2 AND UTILIZE THE SUBROUTINE""DISPLAYED ON THE PRIOR SCREEN."::" PRESS ANY KEY TO CONTINUE";O0$:0,00,191:278,191:278,0:0,0'LA$"PRESS ANY KEY TO CON TEXT SET IX=1 & IY=1."AX:" PRESS ANY KEY TO CONTINUE";LO0$:y "WE WILL NOW PERFORM 4 EXAMPLES ON THE"R"GRAPHICS SCREEN. THE SUPERPLOTTER WILL""FIRST PLOT A BORDER FOR THE EXAMPLES""USING THE APPLESOFT HPLOT COMMAND."DITOR FILE NOT PRESENT":"PRESS ANY KEY FOR OPTION MENU.":QZ$:MuI1L1%e vXB$(I)"":YB$(I)""svME%ME%1v(ME%)0ī30300*vXB$(I)XB$(I)((ME%))4v30225\vME%ME%1pv(ME%)0ī32000zvYB$(I)YB$(I)((ME%))v30300 }:N THE EDITOR."<lu8:"TO ENTER X,Y DATA SETS TYPE DS."iu:"TO ACCESS EDITOR DATA FILE TYPE ED."u13:"INPUT COMMAND?";Q$uQ$"ED"Q$"DS"ĺ(7):30100uQ$"DS"ıu:10:15:"PLEASE WAIT"uME%16382:L1%(ME%)@uL1%0ė:"EFF$: N0:1:A$""ı$*NX3ı84NY3Y188.99ıNNNU(A$):ID1NUlNB$(A$,ID,1):AC(B$)31LOX1X6(ID1):Y1YOACX1,Y1::0u:"YOU MAY INPUT YOUR X,Y DATA SETS"Du"INTERACTIVELY OR FROM THE DATA FILE"Xu"LAST RESIDENT I)54ı"`THSD(I)2.25YY7:>~THSD(I)2.75YY7:JYY7:Y&I13613}&YEI(ICV)NS:XEI(ICV)OF&Y(Y.5):X(X.5)&I1ī9940&XO,YOX,Y&XOX:YOY::'A$"PLOTTER ERROR":X3:Y188:20000::(10):(10):A$:Y,XOX:YOY/JT1ī671061JT13JT1:6640<6HJ:7300hT1TH500:T2(THSD(I))500uJT2T1Y(.5EI(J.01257)NS):X(EI(J.01257).5OF):140,NSX,Y:O0$::(4);"RUN MENU"LV(YY0)7ı[(XX01FSS4SS1+TH.99SS1SS2:SJ2;SS1ī7300KSS3ī6800WIK15qR(12.6666667IK.5)T1TH360T2(THSD(I))360JT2T13YR(JCV)NSXR(JCV)OF X(X.5):Y(Y.5)JT2ī6700XO,YOX,20000! (A$)5AF%1:6435.LE(A$)EA9(100SD(I).5)RA8A8A9iAF%1IPSī6425IPSA8100A9A9100A8IPSA8100A9100A8A9A$(A9)"%"A90A$0X6XLE6:20000#(OP$"NF"ī73002SSSS(I)2.75XX48lI1ī63000mFL1İ7500KnFL0:(XX0)54ī6300[oYY0ī6280ttYY07YY07:FL1yTH.75FL1XX4~6300Y0Y7YY07:FL1TH.5FL1XX4Y0Y:X0XA$SD$(I)(A$)9A$(A$,1,9)NSEI(THTP)%X140EI(THTP)=Y(Y.5):X(X.5)M$140,NSX,Yr8YNS(EI8.5)((THSD(I)2)TP)VX140(EI9.5)((THSD(I)2)TP)`THSD(I)2.7THSD(I)2.8YY2eTHSD(I)2.2THSD(I)2.3YY1jTHSD(I)2.25THSD1PS:"INPUT DATA FOR SLICE ";I;3 2SD$(I),SD(I)9 PA |30` p:A$TI$:Y3:X144(A$)3k s20000y uT00:SS0 z9900 I1PS:T0T0SD(I): I1PS:SD(I)SD(I)T0: 140,NS215,NS TP23.1417:TH0 I1PS:THTHSD(I)Y(1):3100 <30D YB$(0)"0":30000:YB$(0)"-1"YB$(0)"0":30[ L1%0Q$"ED"ī30 :"INPUT THE NUMBER OF PIE SLICES(20MAX)?";PS$ :"INPUT SLICE DATA AS FOLLOWS:" "SLICE TITLE,SLICE VALUE" PS(PS$) "PS1PS20PS1! 6:I304 :"TWO MODES MAY BE SPECIFIED FOR YOUR PIE"I "GRAPH OUTPUT."Q : :"TO SELECT PIE SLICE FILLING TYPE FI." "TO SELECT A PIE WITHOUT FILLING TYPE NF." :  "INPUT OPTION?";OP$ OP$"NF"OP$"FI"ī30 (7):(12):IOR TO EXECUTION." p:4 "INPUT COMMAND?";TX$H TX$"OM"ī3000\ TX$"TI"ī2000p TX$"SD"ī4000 TX$"EX"ī6000 TX$"MM"ĺ(4);"RUN MENU" (7) (22):(1):900  "INPUT THE TITLE FOR THIS PIE GRAPH." TI$ 4:::2 " TO SPECIFY GRAPH TITLE TYPE TI."] X" TO INPUT SLICE DATA TYPE SD." " TO SPECIFY OUTPUT MODE TYPE OM." " TO EXECUTE PIE GRAPHICS TYPE EX." " TO RETURN TO MAIN MENU TYPE MM." R:::"SD MUST BE DEFINED PRC/ COPYRIGHT (C) 1981 GL DICKENS III:33,40aCV.0174538889:EI76:NS100:OF140sOP$"NF":A8010000 XB$(100):YB$(100) SD$(21):SD(21):::::" PIE GRAPHICS" 2:" (C) 1981 GL DICKENS III":     R(1,D2):XX(I)/`;::k;"POINT BY POINT COMPARISON OF ALL DATA";6);"(E = ERROR, %E = % ERROR);:I1N (D1F)(DMAX)DMAXD1F:IMAXIR(D2F)(DNAX)DNAXD2F:INAXI\Q2D2F2Q2pzIMAX9I$" "(IMAX)IMAX10I$" "(IMAX)IN1000:"POLYNOMIAL GENERATION OUTPUT DATA":R$"0 DEGREE COEFFICIENT =";R(1,D2)J1D:J;" DEGREE COEFFICIENT =";R(J1,D2)PDDNAX0:INAX0:Q20DMAX0:IMAX0:I1N:PR(1,D2):XX(I)J21D:PPR(J21,D2)XJ2:PPPUE SOLUTION": 7900% I1D22 SR(J,I)DH R(J,I)R(K,I)Q R(K,I)SWftZ1R(J,J)I1D2:R(J,I)ZR(J,I)K1D1hKJī4700ZR(K,J)0I1D2R(K,I)R(K,I)ZR(J,I)\+2T(K)YX(K1)T(K):- lT(D2)T(D2)Y2:< YB$(0)"0"a :(10):(14):::"PLEASE WAIT"n 4J1D1{ K1D1 R(J,K)A(JK1):: ( J1D1:KJ R(K,J)0ī3200 T KK1 KD1ī2800 :::(5):(10):"PROBLEM HAS NO UNIQIT": rI1N% uI9I$" "(I)< xI10I$" "(I)S {YB$(0)"-1"ī1000o " X,Y OF POINT";I$;} "? ";X,Y X(I)X:Y(I)Y 1200 XX(I):YY(I) J212D A(J)X(J1)A(J): K1D1 @R(K,D2)T(K)YX(K1) ------------":8);"OUTPUT COPY - PAGE 1"M k:::SC17(TT$)2:SC0SC0_ lSC);TT$:: mN;" PT. CALCULATION OF DEG. ";D;" POLYNOMIAL":::21200: nYB$(0)"-1"ī880 o:" INPUT DATA AS REQUESTED"::882 p:10:14:::"PLEASE WA?":"";TT$2 YB$(0)"0":30000:YB$(0)"-1"ī7408 &` X" INPUT THE NUMBER OF POINTS?";Nk lN(N)v qN(N) vN99N99  A(1)N RSN0ī878 f21000:" "::::"LEAST SQUARES POLYNOMIAL GENERATION") i"----------------------- ::" COPYRIGHT (C) 1981 GL DICKENS III"7 ::b :" INPUT SLOT NO. FOR OUTPUT?";SNq SN0SN0 SN7SN0 SN(SN) :::" INPUT DEGREE OF EQUATION?";D D9D9 D1D1 D(D) ,:"INPUT CALCULATION TITLE7 10000< COPYRIGHT (C) 1981 GL DICKENS III|A(19):R(10,11):T(11):X(100):Y(100):XB$(100):YB$(100)PN1:IC7OP$" "D$(4) :33,40d" NTH ORDER REGRESSION POLYNOMIAL"nx" GENERATION"-       YB$(0)"-1"A~I1L1%:SD$(I)XB$(I):SD(I)(YB$(I))::PSL1%: V XMN B HY1E38:LY1E38: D I25265:25000:YHYHYYE I Y(I)YT N YLYLYYj S XX(MXMN)240: X DEC(HYLY)5:MMLYDEC:Y185 b 0:I116:30,76I279,76I::7 l I16:MMMMDEC:A$((MM.5)) (MM)999İ10000 YY25:X276Y188:A$TI$:50005 DEC(MXMN)5:MMMNDEC:XX23[  I16:MMMMDEC:A$(((MM.5)))r  (MM)9999İ10000  XXXX48:XXX(A$)33:Y170:5000:XX,164: & A$"PLEASE WAIT":X126:Y80:5000 0 A$"CALCULATING Y-AXIS RANGE":X84:Y89:5000 ?"INPUT RANGE OF X AXIS VALUES TO BE PLOTTED. INPUT AS XMIN,XMAX.":MN,MXV 3 T :25,1025,165:25,165279,165:0:1 h X277:Y165:A$">":5000:48 | X25:Y12:5000:0 X2:Y3:A$YA$:5000 X2776(XA$):Y179:A$XA$:5000 X2: COMMAND?";TX$" TX$"TI"ī40006 TX$"XA"ī2100J TX$"YA"ī2300^ TX$"XR"ī2500r TX$"EX"ī2900 TX$"MM"ĺ(4);"RUN MENU" (7):2000 4:"TYPE LABEL FOR X AXIS." >XA$:3 :"TYPE LABEL FOR Y AXIS."  YA$:3O : TO DEFINE X RANGE TYPE XR."M " TO LABEL Y AXIS TYPE YA."x " TO EXECUTE PLOTTER TYPE EX." " TO RETURN TO MAIN MENU TYPE MM." :"XR MUST BE DEFINED PRIOR TO EXECUTION." 16:33,33:25000:33,40 15:"INPUT 111000: COPYRIGHT (C) 1981 GLDICKENS IIIK33,40:Y(265):8000t::" THE FUNCTION PLOTTER":" (C) 1981 GL DICKENS III":: " TO SPECIFY PLOT TITLE TYPE TI."" TO LABEL X AXIS TYPE XA."" "   ԠӠϩӠΠɍŠ΍ԍӍҍЍӍή®ҮҮ٬Ŭ؍ٍҍЍӍʬƬͬͬʬ؍ٍύҍЍӍʬƬͬͬʬ؍ӠɩЍӍήήîӮî؍ЍӍήήîӮîҍ؍ҍЍӍήήîӮî؍ɍԠҠӍҠǠǠŠΠɍ΍ɍҠŠȠ΍čӍήήîӮî͍ɍ؍ɍҠȠĠԠҠύӠƠӠӮԠөӠŠŠ̠Ӎҍ  4~I1L1%:X(I)(XB$(I)):Y(I)(YB$(I))::NL1%:22L1%:2"PRESS ANY KEY FOR MAIN MENU.":Q$::D$;"RUN MENU"AuI1L1%Y vXB$(I)"":YB$(I)""gvME%ME%1|v(ME%)0ī30300*vXB$(I)XB$(I)((ME%))4v30225\vME%ME%1pv(ME%)0ī32000zvYB$(I)YB$(I)((ME%))v30300}:YB$(0)"-1"TO ENTER X,Y DATA SETS TYPE DS."Qu:"TO ACCESS EDITOR DATA FILE TYPE ED."nu13:"INPUT COMMAND?";Q$uQ$"ED"Q$"DS"ĺ(7):30100uQ$"DS"ıu:10:14:"PLEASE WAIT"uME%16382:L1%(ME%)4uL1%0ė:"EDITOR FILE NOT PRESENT": NJT110:::PNPN1"HNPN2ĺ8N"PAGE ";PN:::KNIC7(PN1)13QLObRD$;"PR#";SNh:RwRD$;"PR#0"}S0u:"YOU MAY INPUT YOUR X,Y DATA SETS"Du"INTERACTIVELY OR FROM THE DATA FILE"Xu"LAST RESIDENT IN THE EDITOR."$lu8:"ϓĢƨĢĈĈňѨĈĨĈѠĠǓɇĂǐ@ ǃŞǓĄ򋽐ǃĄ           膢 ȱ " <67 L  8ij v vo>XA$:3J :"TYPE LABEL FOR Y AXIS."V  YA$:3| YB$(0)"0":30000:YB$(0)"-1"ī3 L1%0Q$"ED"ī3 :"INPUT THE NUMBER OF DATA SETS(25 MAX)?";DS DS1DS1 DS25DS25= :"INPUT DATA FOR BARYR & DP MUST BE DEFINED PRIOR TO"6 " EXECUTION."W 22:" INPUT COMMAND?";TX$k TX$"TI"ī4000 TX$"XA"ī2100 TX$"YA"ī2300 TX$"DP"ī2500 TX$"EX"ī2900 TX$"MM"ĺ(4);"RUN MENU" TX$"YR"ī2600 (7):2000EL X AXIS TYPE XA."F " TO LABEL Y AXIS TYPE YA."q " TO SPECIFY Y AXIS RANGE TYPE YR." " TO INPUT DATA POINTS TYPE DP." " TO EXECUTE BAR GRAPHICS TYPE EX." " TO RETURN TO MAIN MENU TYPE MM."! ::" / COPYRIGHT (C) 1981 GL DICKENS IIIk33,40:Y(265):X$(26):YY(26):XB$(26):YB$(26):8000:::::" BAR GRAPHICS":" (C) 1981 GL DICKENS III"::: " TO SPECIFY GRAPH TITLE TYPE TI." " TO LAB     ϓѯȐȁ̇ĢĠѠѤϓćȐǃłǓĄ򋅐ǃĄ(MM)))1:MM0E9E915.'E810E9:A$((MME8.5))QB'A$"10"A$"1":E9E91oG'A$"-10"A$"-1":E9E91t'A$A$"E"(E9)~'aYR(1,D2):J1D:YYR(J1,D2)XJ:aY20:5000:O0$::(4);"RUN MENU". NU(A$); ID1NUM B$(A$,ID,1)] AC(B$)31t ACX6(ID1),Y:z  @A$"PLOTTER ERROR":X120:Y50:5000::(10):(10):A$::FF$::(4);"RUN MENU" '(MM)999999999A$"BIG":10110$'E9((125(HYLY): p I25265:YYI(I):IY35(HYY)125(HYLY)g XX(MXMN)240:I,IYI0,IZ:I0I:IZIY:r A$"I" I1N:Y35(HYY(I))125(HYLY) X25(X(I)MN)240(MXMN) "Y10Y1654250 h5000 ! A$"I - INPUT DATA PT.":X150:YYY I YI(I)Y N YLYLYY4 S XX(MXMN)240:V X DEC(HYLY)5:MMLYDEC:Y185| b 0:I116:30,76I279,76I::7 l I16:MMMMDEC:A$((MM.5)) (MM)999İ10000 YY25:X276(A$):5000:26,Y::XMN H I025:25000:IZ35(HYY)  I16:MMMMDEC:A$(((MM.5)));  (MM)9999İ10000m  XXXX48:XXX(A$)33:Y170:5000:XX,164: & A$"PLEASE WAIT":X126:Y80:5000 0 A$"CALCULATING Y-AXIS RANGE":X84:Y89:5000 ? XMN B HY1E38:LY1E20 D I25265:25000:YHYH1025,165:25,165279,165:0:1@ h X277:Y165:A$">":5000:48W | X25:Y12:5000:0p X2:Y3:A$YA$:5000 X2776(XA$):Y180:A$XA$:5000 X2:Y188:A$(N)" PT. DEG. "(D)" POLYNOMIAL CURVEFIT":5000 DEC(MXMN)5:MMMNDEC:XX23$/ COPYRIGHT (C) 1981 GL DICKENS III<YI(265)G 8000`XA$"INPUT X VALUES"}LYA$TT$:MN1E38:MX1E38~(YA$)0YA$" "I1N:X(I)MXMXX(I)X(I)MNMNX(I)-FRGMXMN:MNMN.0333RG:MXMX.0333RG T :25,IuI1L1%" vXB$(I)"":YB$(I)""0vME%ME%1Ev(ME%)0ī30300a*vXB$(I)XB$(I)((ME%))l4v30225z\vME%ME%1pv(ME%)0ī32000zvYB$(I)YB$(I)((ME%))v30300}:YB$(0)"-1"~I1L1%:X$(I)XB$(I):YY(I)(YB$(I))::DSL1%:DATA FILE TYPE ED."0u13:"INPUT COMMAND?";Q$TuQ$"ED"Q$"DS"ĺ(7):30100cuQ$"DS"ıu:10:15:"PLEASE WAIT"uME%16382:L1%(ME%)uL1%0ė:"EDITOR FILE NOT PRESENT":"PRESS ANY KEY FOR OPTION MENU.":QZ$:uL1%25L1%25 E9E91%G'A$"-10"A$"-1":E9E919t'A$A$"E"(E9)?~'i0u:"YOU MAY INPUT YOUR X,Y DATA SETS"Du"INTERACTIVELY OR FROM THE DATA FILE"Xu"LAST RESIDENT IN THE EDITOR."lu8:"TO ENTER X,Y DATA SETS TYPE DS."u:"TO ACCESS EDITOR NUB$(A$,ID,1)$AC(B$)31;ACX6(ID1),Y:A@A$"PLOTTER ERROR":X120:Y50:5000::(10):(10):A$::FF$:'(MM)999999999A$"BIG":10110$'E9(((MM)))1:MM0E9E91.'E810E9:A$((MME8.5))B'A$"10"A$"1":),PP (16383)0AJAJ3# 6 X4,PPX4,PPL (16383)2ī3550x A$X$(IJ):XXX:XX3(A$)3:5000:XXX XXDEC:O0$::(4);"RUN MENU":"INPUT THE TITLE FOR THIS BAR GRAPH."TI$:3NU(A$)A$""ıID1 (16383)0ī32607v I16:MMMMDEC:A$((MM.5))M (MM)999İ10000s YY25:X276(A$):5000:26,Y: DS1DEC0:3420H DEC225(DS1)\ X35:Y170p IJ1DS:PP35(MXYY(IJ))125(MXMN) AJ15:X42(AJ1),165X42(AJ1(16304)(16299):2910 Y H^ 25,1025,165:25,165279,165:0:1ih X277:Y165:A$">":5000:48| X25:Y12:5000:0 X2:Y3:A$YA$:5000 X2776(XA$):Y179:A$XA$:5000 X2:Y188:A$TI$:5000l DEC(MXMN)5:MMMNDEC:Y185qYB$(I))::DSL1%:STION MENU.":QZ$:uI1L1%7 vXB$(I)"":YB$(I)""EvME%ME%1Zv(ME%)0ī30300v*vXB$(I)XB$(I)((ME%))4v30225\vME%ME%1pv(ME%)0ī32000zvYB$(I)YB$(I)((ME%))v30300}:YB$(0)"-1"~I1L1%:X$(I)XB$(I):YY(I)( TYPE DS.";u:"TO ACCESS EDITOR DATA FILE TYPE ED."Xu13:"INPUT COMMAND?";Q$|uQ$"ED"Q$"DS"ĺ(7):30100uQ$"DS"ıu:10:15:"PLEASE WAIT"uME%16382:L1%(ME%)uL1%0ė:"EDITOR FILE NOT PRESENT":"PRESS ANY KEY FOR OP9:A$((MME8.5))/B'A$"10"A$"1":E9E91MG'A$"-10"A$"-1":E9E91at'A$A$"E"(E9)g~'0u:"YOU MAY INPUT YOUR X,Y DATA SETS"Du"INTERACTIVELY OR FROM THE DATA FILE"Xu"LAST RESIDENT IN THE EDITOR."lu8:"TO ENTER X,Y DATA SETSDATA POINT SYMBOL FOR THIS":"GRAPHICS DISPLAY."b:"DATA POINT SYMBOL -->";SY$:SY$(SY$,1,1)iX3@A$"PLOTTER ERROR":X120:Y50:5000::(10):(10):A$::FF$:'(MM)999999999A$"BIG":10110$'E9(((MM)))1:MM0E9E91.'E810ENPUT THE TITLE FOR THIS PLOT."*TI$:37NU(A$)DA$""ıQID1NUcB$(A$,ID,1)sAC(B$)31ACX6(ID1),Y:p:"YOU MAY DEFINE ANY KEYBOARD CHARACTER"u"TO REPRESENT THE DATA POINT SYMBOLS."::0z"INPUT THE 35(MXYY(IJ))125(MXMN)N A$SY$:YPP:5000:X,164:IJ1XOX:YOY:3490g XO,YOX,Y:XOX:YOY} (16383)2ī3550 A$X$(IJ):XXX:XX3(A$)3:Y170:5000:XXX XXDEC:(16383)0ī4100O0$::(4);"RUN MENU":"IXA$:5000% X2:Y188:A$TI$:5000Gl DEC(MXMN)5:MMMNDEC:Y185^q (16383)0ī3260v I16:MMMMDEC:A$((MM.5)) (MM)999İ10000 YY25:X276(A$):5000:26,Y: DS1DEC0:3420H DEC225(DS1)\ X35p IJ1DS:PPMAX?";MN,MX:3eT (16383)0XA$"":YA$"":TI$"":O0(16297)(16302)(16304)(16299):2915k^ c 25,1025,165:25,165279,165:0:1h X277:Y165:A$">":5000:48| X25:Y12:5000:0 X2:Y3:A$YA$:5000  X2776(XA$):Y179:A$PUT.":' IJ1DS:IJ9I$" "(IJ)@ IJ10I$" "(IJ)\ " X,Y OF POINT";I$;y "? ";X$(IJ),YY(IJ)::3 ( :"INPUT THE RANGE OF VALUES FOR THE" < "Y AXIS. ALL Y DATA POINTS SHOULD FALL" P "WITHIN THIS RANGE." :"INPUT YMIN,YS(99 MAX)?";DS DS1DS1. DS99DS99 :"INPUT DATA FOR THE PLOTTER AS X,Y DATA":"SETS. STRINGS ARE ALLOWED FOR X VALUES" "BUT SHOULD BE 3 CHARACTERS OR LESS IN" "LENGTH. X VALUES WILL BE PLOTTED IN" "ORDER LEFT TO RIGHT AS IN(4);"RUN MENU"# TX$"YR"ī26007 TX$"SY"ī6000G (7):2000g 4:"TYPE LABEL FOR X AXIS."s >XA$:3 :"TYPE LABEL FOR Y AXIS."  YA$:3 YB$(0)"0":30000:YB$(0)"-1"ī3 L1%0Q$"ED"ī3 :"INPUT THE NUMBER OF DATA SET " TO RETURN TO MAIN MENU TYPE MM."V :" YR & DP MUST BE DEFINED PRIOR TO"k |" EXECUTION." 22:" INPUT COMMAND?";TX$ TX$"TI"ī4500 TX$"XA"ī2100 TX$"YA"ī2300 TX$"DP"ī2500 TX$"EX"ī2900 TX$"MM"ĺ" TO LABEL X AXIS TYPE XA."R " TO LABEL Y AXIS TYPE YA."} " TO SPECIFY Y AXIS RANGE TYPE YR." " TO INPUT DATA POINTS TYPE DP." " TO DEFINE POINT SYMBOL TYPE SY." " TO EXECUTE PT. PLOTTER TYPE EX.")/ COPYRIGHT (C) 1981 GL DICKENS IIIw33,40:Y(265):SY$"I":X$(100):YY(100):XB$(100):YB$(100):8000:::::" POINT PLOTTER":" (C) 1981 GL DICKENS III"::: " TO SPECIFY PLOT TITLE TYPE TI."'      u"4- HCOLOR=6 (COLOR DEPENDS ON TV)"Nu"5- HCOLOR=5 (COLOR DEPENDS ON TV)"Vu18u"THE PRESENT VALUE OF HCOLOR IS DISPLAYED";u"ON THE MAIN MENU FOR GRAPHICS OUTPUT."u:"REFERENCE YOUR USER MANUAL TO ESTABLISH":"THE COLORS CORRESPONDING KEY FOR MAIN MENU":O0$:200J0u:5:"PRIMARY COLOR SELECTION MENU"yu::"ENTER ONE OF THE FOLLOWING CHOICES:"u:u"1- HCOLOR=1 (COLOR DEPENDS ON TV)"u"2- HCOLOR=2 (COLOR DEPENDS ON TV)"u"3- HCOLOR=3 (WHITE - USE FOR B&W)"%:200%XXP0(J1)128-N%NA$"":JJ640`%(XXJJ)12832(XXJJ1)12832JJ40:9675|%NA$NA$((XXJJ)128)%%2:::"BLOAD ";NA$:%23&D$(4)H&D$;"BLOAD ";NA$;", A$4000"<(2000u:1:10:"DISK ERROR - PRESS ANY-->";6!OT$:OT$"0"OT$"1"OT$"2"ĺ(7):8660P!OT%(OT$):16383,OT%Y!200t(#I8I16P0P040:J0-#:FL1P01025:J0:82752#:10:"THERE ARE NO GRAPHICS FILES RESIDENT ON"F#"THIS DISK. PRESS ANY KEY FOR MAIN MENU.";Z#O0$1- OVERLAY WITH X AXIS NUMERIC LABELS"V!"2- OVERLAY WITHOUT X AXIS NUMERIC LABELS"!:::::"THE PRESENT OVERLAY MODE IS DISPLAYED"!"ON THE MAIN MENU FOR IMPLEMENTATION OF"!"BAR GRAPH AND POINT PLOTTER OVERLAYS."!13:"ENTER OPTION 0  9000!ZZ$(27)ī20044!ZZ$(13)ī9500If!ZZ$(32)ī9000i!(7):I:7:ZZ$:FL1:8450!:5:"OVERLAY MODE SELECTION MENU"!!::"ENTER ONE OF THE FOLLOWING CHOICES:"!!:"0- OVERLAY MODE OFF - NORMAL OUTPUT"&!"FL0 T4%^D$(4):D$;"CATALOG"/1:1] "PRESS TO MOVE CURSOR, ": "TO LOAD ENTRY, OR FOR MAIN MENU."S I124:JJ1:PPP0(J1)128:CP$((PP)128)((PP3)128)((PP4)128) CP$"B34"Ė7:I:ZZ$:FL1:845NSERT DISK AND PRESS ANY KEY TO COPY.":O0$H:10:12:"SAVING ";NA$O1[ D$(4)>D$;"BSAVE ";NA$;",A$4000,L$2000"200X@::"INSERT DISK AND PRESS ANY KEY"B"TO DISPLAY CATALOG.";CO0$EJ::CP$"":P01025:J0:O RETURN TO THE MAIN MENU TYPE MM.";1@:KJ"INPUT COMMAND?";O0$^|O0$"MM"ī200rO0$"SV"ī5750O0$"LD"ī8000D(7):12:5450v:5:"INPUT THE HGR2 FILE NAME TO BE SAVED.""TYPE FILE NAME->";NA$:+:"I6 T m (16383)0Č624505 (4);"RUN ";NA$e :" GRAPHICS DISK STORAGE AND RECALL": " (C) 1981 GL DICKENS III" :: "TO SAVE THE PRESENT HGR2 SCREEN TYPE SV."; "TO LOAD AN HGR2 FILE FROM DISK TYPE LD.";)"TLT":2900& ` OP3NA$"FNCPLT":2900A OP4NA$"POLY":2900` ( OP5NA$"TUTORIAL":2900p OP6ī5000 OP7ĺ(4);"RUN EDIT" OP8ī8600 OP9ĺ(4);"RUN GRAFTXT" OP0ĺ(7):1800 :12:" END SUPERPLOTTER":23 ER OPTION -->"; :OP$:OP$0 NOP$"E"ī2800E lOP$(27)ī2100o OP(((OP$))):OP9OP0ĺ(7):1800 4OP$(27)O0(16297)(16302)(16304)(16299):OP$::1800 fOP$"0"NA$"PIE":2900 OP1NA$"BAR":2900 OP2NA$"PTPAPHICS SCREEN TEXT EDITOR"6 "E- EXIT SUPERPLOTTER"> F:l x:"PRESS TO VIEW THE PRESENT HIGH" "RES. GRAPHICS IMAGE (PAGE 2). THEN PRESS":21 @"ANY KEY TO RETURN TO THE MAIN MENU." 23:7:"(C) 1981 GL DICKENS III" 17:"ENT"3- FUNCTION PLOTTER GENERATION"I "4- POLYNOMIAL CURVEFIT GENERATION"w L"5- KEYBOARD IMAGE SHAPE TABLE TUTORIAL" "6- GRAPHICS DISK STORAGE AND RECALL" "7- DATA FILE EDITOR" "8- OVERLAY MODE SELECTION (MODE = ";(16383);")" "9- GR )d COPYRIGHT (C) 1981 GL DICKENS530000@24577O::33,40t" THE SUPERPLOTTER":" MAIN MENU"&?"0- PIE GRAPH GENERATION"X"1- BAR GRAPH GENERATION""2- POINT PLOTTER GENERATION"      ШЁЪЪԊՂՂЪЪЪЪԊՂՂЪЪįĪ"Q z8Ba>"ti=@(=ՂՂЪЪЪՂՂЪЪ   D ՂЪЪĈĉ̨ՂЪЪѨѠѨĨϬՂЪЪԊՂՂЪЪ  DQAX"ՂЪЪǓЪЪԊՂՂЪЪЪЪԊՂՂЪЪĨĦ"Q  B" @(ՂՂЪЪЪǓՂՂЪЪ E  DǓՂЪЪѨĈĈǓ΃ՂЪЪ߇ՂЪЪԊՂՂЪЪ  DQA""ՂЪЪ؁ЪЪԊՂՂЪЪЪЪԊՂՂЪЪĨŢш"Q  ED" @("ՂՂЪЪЪĨՂՂЪЪ`gy8> d D>ՂЪЪΈՂЪЪǓՂЪЪԊՂՂЪЪ@z=Ngg 9GՂЪЪЪЪԊՂՂЪЪǓЪЪԊՂՂЪЪ@ ȓ򸢏N `y8Hgg@Osq|>@H}ՂՂЪЪ锈ՂՂЪЪ           TO EACH VALUE":"OF HCOLOR.":u14:"ENTER OPTION -->";huC0$:C0%(C0$):C0%5C0%1ĺ(7):30190y\vC0%4C0%6$wC0%:200TѨЪЪԊՂՂЪЪՂЪЪԊՂՂЪЪĪՂՂЪЪЪЪԊՂՂЪЪ 9>z9>ՂЪЪĈΈȨՂՂЪЪѨѠʄѨĨǓՂЪЪ@CxENa 9G̪ՂЪЪЪЪԊՂՂЪЪՂЪЪԊՂՂЪЪĢNo 9Ha1"r|"ts|ĬՂՂЪЪЪԊՂՂЪЪJD@ DՂЪЪѨĈĈՂՂЪЪѯѠ߬ĬѨՂЪЪ $ $QA""ЬՂЪЪ̪ЪЪԊՂՂЪЪՂЪЪԊՂՂЪЪĨŢш"Q JDD2" %"ƨՂՂЪЪЪՂՂЪЪq+D t D ՂЪЪѨƈČɪՂՂЪЪѪχĪՂЪЪԊՂՂЪЪ  QA "ѨՂЪЪȬЪЪԊՂՂЪЪՂЪЪԊՂՂЪЪĨ"Q p+@BbW@h ǓՂՂЪЪЪՂՂЪЪzt  D`w{AՂЪЪըĊʬՂՂЪЪѨѠѩĩڅ:S$"POSITION OF LEFT END":RG$"0:279:10:181":2000:XLV0:YLV1t S3:S$"POSITION OF RIGHT END":2000:XRV0:YRYL XL,YLXR,YR:DXXRXL S4:S$"MINIMUM X VALUE":RG$"":2000:X0V0 S5:S$"MAXIMUM X VALUE":2000:X1V0$ S6:S$"LOG SCALE":RS0:S$"READ FORMAT FILE NAME":RG$"":IN$(S)"NONE":2000:A$""120 nCD$;"OPEN ";IN$(S):CD$;"READ ";IN$(S):NS:I1NS:IN$(I)::CD$;"CLOSE ";IN$(S) xSTAR$;"DEFINE AXES" S1:S$"COLOR OF AXES":RG$"0:7":2000:V0 "DEFINE X AXIS"? S24":X51:Y136:90N US$"INTERACTIVE MICROWARE":X52:Y98:90:I12000::95 Z96X,Y:I1(S$):96:96:((S$,I,1)):: _1140,95:I120:II:0:I:8:I::1:0: `: aXN(X)(XX0)XXXL bYN(Y)(YY0)YYYB c51,0:3100D d75((X25)1.1):< <S$"SCIENTIFIC PLOTTER":X60:Y74:90a FS$" BY PAUL K. WARME ":Y82:90 PS$" COPYRIGHT "(22)" 1980 ":Y90:90 RS$"WITH UPDATE#2 AND":X52:Y120:90 SS$"PRINTER MODS FOR CP80":X50:Y128:90 TS$"ADDED BY MK 3.3.8e"? 28671:24576:CD$(4):(28672)96ĺCD$;"BLOAD PKWDATA"[ IN$(50),D(500):MAX500232,0:233,112:STAR$"********** ":3:X027930:X,0X,191:Y018030:0,Y279,Y:(1:0:I120:I(1)280,(1)192: 2X12793:1X,           !!! ! ! ! ! !!!!!!!U."6 ,::"PRESS ANY KEY TO BEGIN GRAPHICS EDITING"< 6B 8m ;" COPYRIGHT 1981 BY GL DICKENS III"~ @21:40:O0$ " COPYRIGHT 1981 BY GL DICKENS III" OOII"  AC(A$)31 ACX,Y O$)31 ACX,Y E - OR LEFT ARROW."I "DOWN MOVE - OR RETURN KEY."g "UP MOVE - ." "TO EXIT - .  "THE REPEAT KEY MAY BE USED WITH ANY OF" "THE CURSOR CONTROLS. EXITS TO THE" ""SUPERPLOTTER MAIN MENBILITY TO INCLUDE TEXT AT ANY"J "POSITION ON THE PRESENT SUPERPLOTTER"c "GRAPHICS DISPLAY." :"THE GRAPHICS EDITOR CURSOR CONTROLS AND" "CONTROL CHARACTERS ARE AS FOLLOWS:"  "RIGHT MOVE - OR RIGHT ARROW." "LEFT MOV0 A27ĺ:(4);"RUN MENU"- (7):180G (7):X2XX6:180] X275XX6:180q Y4YY8:180 Y187YY8:180 180 :" GRAPHICS SCREEN TEXT EDITOR"  "THE GRAPHICS SCREEN TEXT EDITOR PROVIDES"; "THE CAPA1,Y3X1,Y3:X2,Y3X2,Y3:39 (A$)31X,Y:XX6B ,180 0:X2,Y3X2,Y3:X1,Y3X1,Y3:X,Y3X,Y3:X1,Y3X1,Y3:X2,Y3X2,Y3:3 A(A$):A8A10XX6:180 A21A11XX6:180 A9YY8:180 A13YY8:18:33,403000#4000- 0:1\dO0(16297)(16302)(16304)(16299)kX272:Y11X275ĺ(7):XX6:18060X1,Y:62X1,Y:4X,Y:42X,YA$:(A$)32ī1000! 0:X2,Y3X2,Y3:X1,Y3X1,Y3:X,Y3X,Y3:X   ՂЪЪǓՂՂЪЪϨϯ胈߈ՂЪЪՂЪЪ":RG$(X0)":"(X1):2000:XFV0]S31:S$"X INTERVAL":RG$"0:"(X1X0):2000:XIV0:950S32:S$"X SCALE FACTOR":RG$"":2000:XSV0S33:S$"X OFFSET":2000:XOV0I1D(0)XYEB:D(I)XS(D(I)XO):XG0D(I)XG(D(I))#S34:S$D(I)sD(I)X3X3D(I)Nt:"MINIMUM AND MAXIMUM X VALUES ARE ";X2;":";X3uY2D(XY):Y3Y2:IXYD(0)XYEB:D(I)Y2Y2D(I)vD(I)Y3Y3D(I)x:"MINIMUM AND MAXIMUM Y VALUES ARE ";Y2;":";Y3yXF0:XI0:XY2910!zS30:S$"FIRST X VALUE00:D(D)V0:DD1QRS$"Y VALUE":IN$(S)(D(D)):2000:D(D)V0:DD1:V09999870\EB1S$"+/- ERROR":IN$(S)(D(D)):2000:D(D)V0:DD1aDMAXXY840fD(0)DXY1pSTAR$;"SCALE DATA":XY1885rX2D(1):X3X2:I1D(0)XYEB:D(I)X2X2S10:S$"DATA CALCULATION SUBROUTINE":RG$"0:9000":20009SB((V01)1000):SB2999,2999,3000,4000,5000,6000,7000,8000,9000:SB2880>"TYPE Y=9999 TO END INPUT":ND0:RG$"":S0:D1HNDND1:"POINT "NDMXY2S$"X VALUE":IN$(S)(D(D)):20;IN$(25):D(0):D(0);" VALUES IN ";IN$(25)ED0:ND1:ID1D(0)DD_D(ND):DD1:DI770 NDND1:XY2ĄD(ND):DD1:NDND1EB1ĄD(ND):DD1:NDND1 :CD$;"CLOSE ";IN$(25):216,0*NDND1:ND(XYEB);" POINTS READ":D(0)ND:88094EB1PS25:S$"READ DATA FILE NAME":RG$"":2000:IN$(S)""IN$(S)"NONE"820S26:S$"FIRST POINT TO BE USED":RG$"":2000:D1(V01)(XYEB)1S27:S$"INTERVAL BETWEEN POINTS":2000:DDV0(XYEB)810*CD$;"OPEN ";IN$(25):CD$;"READ "Y:N":2000:IN$(S)"Y"700>XL,YBXL,YTXR,YTXR,YBXL,YBVSTAR$;"INPUT DATA"D(0)0S28:S$"USE SAME DATA":2000:IN$(S)"Y"1000S23:S$"X,Y PAIRS":RG$"Y:N":2000:XY1:IN$(S)"Y"XY2S24:S$"ERROR BARS":2000:EB0:IN$(S)"Y"MY(JY((MYY0)JY))Y1JY:1XB,YN(Y2)::llS21:S$"DRAW GRID DOTS":RG$"Y:N":2000:IN$(S)"Y"6802200:X2MX(JX((MXX0)JX))X1JX:X3XN(X2)Y2MY(JY((MYY0)JY))Y1JY:Y3YN(Y2)X3,Y3:::S22:S$"FRAME AXES":RG$"(Y2(Y2)10LY):L(((Y2)))LY:(Y2)1LL1A0Y2$(Y2$,L)r:L(Y2$):Y3Y33:X3XB2:XB160X3XB28L?(Y2$)X3,Y3:L1590DI2L:((Y2$,I,1)):NY2:XS20:S$"TICK MARK INTERVAL":RG$"0:"(Y1Y0):2000:JYV0:2200.bY2):2000:MYV0:0TS19:S$"INTERVAL BETWEEN LABELS":RG$"0:"(Y1Y0):2000:IYV0NL(Y1MY)IY:YYDY(Y1Y0):LY(((MY)))(IN$(18)):NL15ĺ"TOO MANY LABELS":AUT0:5002200:Y2MYY1IY:Y3YN(Y2):2XB,Y3Y2$(Y2):LY05700&Y2$"LOG SCALE":RG$"Y:N":2000:YG0:IN$(S)"Y"500\S17:S$"LOG BASE":RG$"LOG:LN":2000~YG1:IN$(S)"LOG"YG1(10)Y0YG(Y0):Y1YG(Y1):"MINIMUM AND MAXIMUM LOG VALUES ARE ";Y0;":"Y1S18:S$"VALUE OF FIRST LABEL":RG$(Y0)":"(Y1"KS12:S$"POSITION OF BOTTOM END":RG$"18:261:0:191":2000:XBV0:YBV1S13:S$"POSITION OF TOP END":2000:XTXB:YTV1XB,YBXT,YT:DYYTYBS14:S$"MINIMUM Y VALUE":RG$"":2000:Y0V0S15:S$"MAXIMUM Y VALUE":2000:Y1V02S16:S$!JL(X2$):RT0X3X34L:340-OX3X33HT(X2$)X3,Y3:L1360d^I2L:((X2$,I,1)):nhX2:rS11:S$"TICK MARK INTERVAL":RG$"0:"(X1X0):2000:JXV0:2200|X2MX(JX((MXX0)JX.1))X1JX:1XN(X2),YL::"DEFINE Y AXISYL90YP2:Y20:NLX4(ML8)YP6:Y24>YPYLYP:0:RT0gNLX4(ML4)YPYL3:Y20:16:RT16,X2MXX1IX:Y3YPY2:Y2Y2:X3XN(X2)62X3,YL:X2$(X2):LX0330@X2$(X2(X2)10LX):L(((X2)))LX:(X2)1LL1EX2$(X2$,L)0DS9:S$"INTERVAL BETWEEN LABELS":RG$"0:"(X1X0):2000:IXV0}NL(X1MX)IX:XXDX(X1X0):LX(((MX)))(IN$(8))NL25ĺ"TOO MANY LABELS":2302200:ML(((MXNLIX)))LX1:X4XRXN(MX)YP9:Y20:NLX4(ML8)YP13:Y24)G$"Y:N":2000:XG0:IN$(S)"Y"230M S7:S$"LOG BASE":RG$"LOG:LN":2000o XG1:IN$(S)"LOG"XG1(10) X0XG(X0):X1XG(X1):"MINIMUM AND";" MAXIMUM LOG VALUES ARE ";X0;":";X1S8:S$"VALUE OF FIRST LABEL":RG$(X0)":"(X1):2000:MXV!0":(7)"ERROR"(222)"IN LINE"(218)256(219):1965d*D(0)200:I1D(0):D(I)(I10)(I10)::; )6 2810)@ C44BA29)J C$;:AA1:A$A$C$:2810C)T 2200q)Y XC((0)1.098):I110::YC((1).75))^ 2XC,YC:I150::2XC,YC)h (16384)1282905)r C$::) ) D(0)200:I1D(0):D(I)(I10)::5* :CD$"CLOSE"::CD$"PR#:SSV:S$ZV$:RG$TV$:CV0:20005( C7İ2200:2810G( C20ĉ:2810^(" C24ĺ(92):2800($ C16ľC$::CD$"PR#"C$:2810(' C26ġ::1965(* C17ĺ(9)"G2":2810), C3İ2900:C(A$):A$A$(XC)",":B(A$)1:A$A$(YC):A(A$):(A$,C1)16299,0:5' A0:B0:A$"":AUT1(16384)128ĺ:?' AUT0Z' C$:C(C$):C312880i' C82820|' C$;:A22800' AA1:A$(A$,A):2810' C13ĺ:' C1AUT1:2800' C4ĺ:CD$;A$::2000 ( C6SVS:CVC:ZV$S$:TV$RG$::1965:":2080&OK1:2075&OK0'&JL-& h&*OK0ĺ(7);"INVALID ENTRY; CHECK (RANGE)":AUT0:2000{&/V0(IN$(S)):&4II1:V0I&>II1:I(A)JI:II1:2120&CC((A$,I,1)):C47C582110&DJI&HV0((A$,V0,JV0)): '16304,0:J1L5%(RG$,J,1)":"R$R$(RG$,J,1):JL2080Q%(R$)0(R$)482060v%R0V0(IN$(S)):V0(R$)2070%R1ĭV0(R$)2070%R2V1((IN$(S),B)):V1(R$)2070%R3ĭV1(R$)2070%RR1:OK1:R$"":2080& IN$(S)R$R$"Y:N":2000:IN$(S)"Y"96I$S50:S$"MODIFY AXES":2000:IN$(S)"Y"100R$700$S$;"(";RG$;")? <";IN$(S);">";:2800:OK0:A0IN$(S)A$:2020$A(IN$(S)):A02090$I1A:(IN$(S),I,1)","BI1$$L(RG$):L02095%R$"":R0:AME":IN$(S)"NONE":2000:IN$(S)"NONE"1994V#CD$;"BSAVE ";IN$(S);",A$4000,L$1FFF"#S48:S$"READ PICTURE FILE NAME":IN$(S)"NONE":2000:IN$(S)"NONE"1996#2200:CD$;"BLOAD ";IN$(S);",A$4000"::1994#CV6ı$S49:S$"ERASE GRAPH":RG$"N$(S):I0D(0):D(I)::CD$;"CLOSE ";IN$(S)x"S46:S$"WRITE FORMAT FILE NAME":RG$"":IN$(S)"NONE":2000:A$""1992"CD$;"OPEN ";IN$(S):CD$;"WRITE ";IN$(S):S"I1S:(34);IN$(I);(34)::CD$;"CLOSE ";IN$(S),#S47:S$"WRITE PICTURE FILE N8İ2100:V016:1220.!C35İ2100:V0:1220T!C36İ2100:II1:CV0:IA1IAp!C:::SS1:S451202!STAR$;"SAVE FILES":AUT0!S45:S$"WRITE DATA FILE NAME":RG$"":IN$(S)"NONE":2000:A$""1985,"CD$;"OPEN ";IN$(S):CD$;"WRITE ";I)):Y3YBY3YT1130= `X3,Y2X3,Y3:1X3,Y2:1X3,Y3:1140Q j"BAD POINT ";IZ tI:x STAR$;"LABEL GRAPH":S40 S$"LABEL "(S39):RG$"":2000 2200:A$IN$(S):I1A:C((A$,I,1)) C64İ2100:X3V0:2100:17X3,V0:17:1220!C3TXI:XTX2+X3XN(X2):X3XLX3XR1130SY3YN(D(IXY1)):Y3YBY3YT1130vSS0SY:SX3,Y3::CP01090$I11080.X4,Y4X3,Y38X4X3:Y4Y3BEB01140LY2YN(D(IXY1)D(IXY)):Y2YBY2YT1130 VY3YN(D(IXY1)D(IXYSYV0VS37:S$"SOLID SYMBOLS":RG$"Y:N":2000:S0SY:IN$(S)"Y"S0((SY1)4)41S38:S$"SYMBOL COLOR":RG$"0:7":2000:V0S39:S$"CONNECTING LINES":RG$"Y:N":2000:CP0:IN$(S)"Y"CP1 2200:XTXFXI:I1D(0)XYEB:X2D(I):XY1X2X"Y SCALE FACTOR":RG$"":2000:YSV0FS35:S$"Y OFFSET":2000:YOV0IXYD(0)XYEB:D(I)YS(D(I)YO):YG0D(I)YG(D(I))EB1D(I1)YSD(I1):YG0D(I1)YG(D(I1))STAR$;"PLOT DATA"S36:S$"SYMBOL #":RG$"1:20":2000: 6"THE INDICATED RESPONCES:"&;W="E,D - RETURNS USER TO COMMAND LEVEL FROM";~@" THE LINE GENERATION MODE."J"LG,M- DISPLAYS THE LINE GENERATION MODE"O" MENU OF COMMANDS."S:"USE E,D TO EXIT LINE GENERATION MODE"(Y." "2000 ,@ ."THE LINE GENERATION MODE ALLOWS YOU TO"o 0"INPUT YOUR X,Y DATA SETS IN RESPONSE TO" 1"AUTOMATIC LINE NUMBER PROMPTS." 2 3"INPUT YOUR DATA AS ,." 45:"THE FOLLOWING DATA INPUT WILL INITIATE" DATA FILE OR SPECIFIED LINE NO.'S.";S "PR#N- TRANSFERS OUTPUT TO SLOT N."{ "LD - LOADS DATA FILE FROM DISK." "SV - SAVES PRESENT DATA FILE TO DISK." "MM - RETURNS USER TO THE MAIN MENU." "CMM - DISPLAYS THE COMMAND MODE MENU LINE GENERATION AT THE";C " END OF THE PRESENT DATA FILE.q "DEL - DELETES A SPECIFIED LINE NUMBER." "INS - INSERTS A SPECIFIED X,Y DATA SET" " AT A SPECIFIED LINE NUMBER." "LIST- GENERATES A LISTING OF THE PRESENT";* "OR PROVIDES THE"7 "CAPABILITY TO CREATE AND MODIFY"b "SUPERPLOTTER INPUT DATA FILES. THE" "COMMAND MODE COMMANDS ARE: "NEW - INITIATES NEW DATA FILE WITH AUTO " LINE GENERATION FOR X,Y DATA SETS."; "ADD - STARTS AUTO D63 PME%ME%1( R(ME%)0ī90B TY$(I)Y$(I)((ME%))J V80P Zq _LNL1%1010:LL1%:LN$(LN) d:12:"DATA FILE EDITOR" nD$(4) pF51Ė10:"LINE GENERATION MODE":300 sF50Ė14:"COMMAND MODE" :"THE DATA FILE EDIT 1500033,408 (C) 1981 GL DICKENS IIIAF50TLN10:LN$"10"j2X$(100):Y$(100)z4F51ī1007ME%16382:L1%(ME%)9L1%0ī100;I1L1%=X$(I)"":Y$(I)""?ME%ME%1@(ME%)0ī80 BX$(I)X$(I)((ME%))"""""""     n5w)$$466n! e 4s&D42M @)6$#l 6J)--D w1$ H-< -36uk a ;.M5/ deM?- D @@ I@ $ M $MIH -/ 6?/-M --$$D166.m)--DD -u -e?c-uv@--$.5.67>7?<'?$-6.-kI<,--5??& $7>'<'I#-%$-6.-6?76?$>655''?>>,, <<$-..%%-677..6?<<77?$%e/4=&%%..77<|%%%...777<<| +,,,455u7777<<??'d #$,---5666>???'$L Pu,,55>>'g,,,555>>>'''I#%,%-pp` 06@Vqv-8]o !3BP`is~(6DR\gr}(3?Tcr)>JTajCOPYRIGHT (C) 1980 INTERACTIVE MICROWARE, INC."" " " " " "