' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]浍 x m浅DeCE `m浅maDLi 鷎귭෍ᷩ췩緈JJJJx 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,&"8 흠 BȱBȄ  ȿ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#0(/;-%-%';-24<2/)(:-ER 4h00#h Լ ռ ռ ռ`HJ>݌h Hh݌`﷕AC ȿLHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  巬 LҦcpq` [` ~  LVVV0 JA AA 0 $ L&Šu`".Q`pNФbptťܥm2<(-Py0\|e<6e< 8浅`JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\ HH ^hh`W ԧ 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ˆʆ8L õ ĵµ 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ݗ (  CϠ@ԠӠ跻~!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 C  sƴi0DȴH h  紅D贅E C ɴ  ) 0 Ν ɃhhL`D٤E EDD ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLȵCǵB`,յ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`z"#    ҮҠȠƠʠ̠͠0!Эà" ǠΠՠ Ԡ͠͠Ҡ ӠҠ ҳ ҮŠ Ԯ٠Ϡ ǠΠԭɭͭŭíϭҠ ĠϠԭɭͭŭíϭҠ ҠӠŠ:ҠҠ ҠB ŠӠ0" :"FILENAME:";F$:8 (F$)1ĺD$"CATALOG":30R X(F$):X65X9030v !F$"QUIT"F$"STOP"F$"Q"310 (80 2D$"VERIFY"F$:D$"OPEN"F$:D$"READ"F$:6:D$"CLOSE" <216,0:300 F100 PX(222):216,0:X5ĺ"NO DATA IN FILE"F$:P DOWNLOADED FROM PIRATES HARBOR 617-367-3441 W q MICROMODEM UPLOADER MIKE LAUMAN 1981 10A$""I$:I$R$ĺ:A$A$I$:7 D$(4):R$(13):E$(1)500 D$"IN#0":D$"PR# O-R,1-617-720-3600,K833SNMM PUT OTHERS IN DATA,LINES AFTER 76,FUCKLEVICHV PIRATES HARBOR~ P.O. BOX 8928 BOSTON, MA 02114 617-720-3600 MODEM FILL IN BELOW WITH YOUR OWN SYSTEM DATA. );26);PH$(XX):]F22:(7)"LOG-ON TO WHICH SYSTEM (1-";X;:") ";X1$:(X1$)1(X1$)X70GP$P$((X1$)):PH$PH$((X1$))H54915::28I:J INSERT CALL DATA HEREK * USE THIS FORMAT: SYSTEM NAME, PHONE, PASSWORDL T-I-M-E-C-S TRIED: "TT::AU26)>"TIME DELAY:"K?D1T%:(37):14:D:::28j@ SELECT NET-WORKS TO CALLsA67B:X118:NW$(X),PH$(X),P$(X):C216,0DXX1::"NO.";5);"SYSTEM ";26);"AREA/PHONE NO."E:XX1X:XX;5);NW$(XX,(YN$))YN$52 2A$(13)48(349.445:Q6 SEND OUT YOUR RESPONSEw7I11(T$):T(I1)((T$,I1,1)):8I11(T$):1912,T(I1):TR9E$:E$;::1912,13:TR:;:< FAILED. TRY AGAIN?=::"NO ANSWER OR BUSY";::" TIMELOT,138:YN$:H *255::::" T-I-M-E-C-O-R AUTOMATIC LOG-ON " +34,1:23:" WORLD'S GREATEST APPLE--INFO EXCHANGE " ,35,22::: -I1800:: .: / SEARCH EVERY NET-WORKS LINE FOR YN$ 0Y$""1A$:A$;:Y$Y$A$:(Y$"IN#0":1625116SLOT,0:16368,0:61, ":I # CONNECTION ESTABLISHED^ $BL111:(7):d %: &YN$"---> ":48:T$P$:55 'YN$"--> ""XXX-XXX-":48:T$(V$,11):55 ( CONTROL RETURNED TO YOU )::::"AUTO LOG-ON COMPLETED..."::1912SL PIRATES HARBORc TTTT1:D$(4):Q$(17):TR16382256SLOT:(V$,3,3)(PH$,3,3)PH$(PH$,7) D$"PR#0":D$"IN#0":1625116SLOT,0:D$"PR#"SLOT:Q$;"*";PH$;"*" :  WAIT FOR CARRIER 45:D$"PR#0":D$"IN#"SLOT& !(1656SLOT)128ĺD$NE #76"  SAVE PROGRAM & RUN.5  THAT'S IT!v :::"AUTO REDIAL IF BUSY? (Y/N)";:AU$:AU1:AU$"N"AU0 AUĺ:"ENTER DELAY TIME BETWEEN CALLS":"(FORMAT IS: MINUTES,SECONDS): ";T1$,T2$:T%(T1$)60(T2$):T%T%61 42:65  DIA BE VERY SURE THAT YOU4 FILL IN YOUR ANSWERSG CORRECTLY!P   ENTER YOUR AREA CODE & PHONE AS:1-XXX-XXX-XXXX V$"1-509-325-5643"  MICROMODEM SLOT NUMBER SLOT2  INSERT REAL PASSWORD  STARTING AT LIN P$(18),PH$(18),NW$(18)% B COMPLIMENTS OF` PIRATES HARBOR~ P.O. BOX 8928 BOSTON, MA 02114 617-720-3600 MODEM FILL IN BELOW WITH YOUR OWN SYSTEM DATA.     "(HIT ANY KEY TO BEGIN YOUR MISSION)";:A$:tA12:R$(A)::A13:B$(A)::A14:E$(A)::A18:C$(A):A15:O$(A)::A14:P$(A)::A25:N$(A)::A13:W$(A)::A13:D$(A):WMACHINERY,CONTROL,TRACTOR BEAM,POWER,WEAPONRY,COMM:"AS WITH ANY JEDI HOPEFUL, YOU WILL ACT THROUGH THE FORCE. YOU WILL DO SO BY GIVING COMMANDS FOR YOUR ACTIONS. SIMPLYHITTING 'RETURN' LISTS ALL OF THE LEGAL COMMANDS":"YOU HAVE A LIMITED AMOUNT OF TIME.":"MAY THE FORCE BE WITH YOU!":0EM TO PRISONERS YOU":"RELEASE.":"TO ESCAPE, YOU MUST RENDER THE TRACTOR BEAM INOPERABLE BY EITHER SABOTAGING THEPOWER MACHINERY ROOM OR THE TRACTOR BEAMROOM. YOU MUST THEN RETURN TO THE":"HANGER DECK AND TAKE OFF IN THE""MILLENIUM FALCON."INERY ROOM IN SUCH A WAY AS TOMAKE THE DEATH STAR SELF-DESTRUCT!"r20:"(HIT ANY KEY FOR FURTHER ORDERS)";:A$":"YOU ARE EQUIPPED WITH A LIGHT SABRE AND A BLASTER SHIELD. YOU MAY USE ANY":"BLASTERS YOU STRIP FROM DEAD SOLDIERS ORYOU MAY GIVE THROUBLE.BUT YOU ARE ALSO IN A POSITION TO DO GOOD THINGS FOR THE REBELLION, SUCH AS DAMAGING THE DEATH STAR, ELIMINATING IMPERIAL SOLDIERS, KILLING DARTH VADER, OR RESCUING PRINCESS LEIA"A"YOU MIGHT EVEN BE ABLE TO SABOTAGE THE POWER MACH(1)301):R(R1,7)10350GhR(R1,7)R(R1,7)1:S:D13:D(D)0::S80r:3:"REBEL ";N$(1);"--"::"YOU ARE ABOARD THE MILLENIUM FALCON":"WHICH HAS JUST BEEN DRAGGED ABOARD THE INFAMOUS ";::"DEATH STAR"::|"THIS OF COURSE MEANS YOU ARE IN T4H ,P(1,1)1:P123:R1((1)1231):P(P1,1)R1::P(2,1)P(3,1)300 6R1(29(1)2):P(4,1)R1:P114:X23:P(P1,X)(10(1)11):: @P(3,2)P(3,2)2:P(1,4)1:P(1,6)1:P(4,4)1:P(4,6)1 JR(19,7)3:R(26,7)3 TS1(20(1)5)^R1(,23,35,32,25,272,24,36,31,26,472 " 25,19,0,27,421,26,0,28,29,552,0,27,0,0,211,27,0,0,-30,252,-29,0,0,1,452,0,25,0,0,14,0,24,0,0,24,0,23,0,0,34,0,0,23,0,44,0,0,24,0,54,0,0,25,0,64,0,20,0,0,74,0,21,0,0,84,0,22,0,0,94,0,0,22,0,104,0,0,21,0,114,0,0,20,0,12,0,7,5,0,302,0,0,6,0,311,5,0,0,9,412,8,0,0,0,111,11,0,0,5,212  14,12,0,10,123,0,13,11,0,222,0,0,12,0,121,15,0,0,11,512,0,0,16,14,133,0,15,17,0,232,18,16,0,0,433,19,0,0,17,242,20,0,26,18,321,21,42,37,19,462,22,41,38,20,262,0,40,39,21,562,0,34,33,24,572OWN==> ",X,40)r A110:(16384)155Ĺ16368,0:13:868:X11:A11z : 13:"WHAT IS YOUR NAME?";N$(1) R1142:X15:R(R1,X)::= 30,2,0,0,4,3,4,1,0,102,0,0,0,2,221,0,5,2,0,202,10,6,4,8,103$(3),D$(3) CM$(14)7 I142:J19:R(I,J)0::V I14:J17:P(I,J)0:: :5:15);"WELCOME TO"::16::"STAR WARS"::5 X1100:13:1:(" <==A SCIENCE FICTION ROLE-PLAYING GAME BY DONALD BR8d/// STAR WARS!n///=x///A ROLE-PLAYING GAMEY/// (C) COPYRIGHT 1979s/// BY DONALD BROWN|170CN1CF:TAABAE:0,TA:1,DN:770:TA,CN: R(42,9),P(4,7),D(3),S(10,2),R$(2),B$(3),E$(4),C$(8),O$(5),P$(4),N$(5),W                  :::"HAYES MICROMODEM ][ IS REQUIRED":1  & 8,72,138,72,206,0,3,173,0,3,240,21,24,105,192,141,22,3,162,15,189,0,192,221,36,3,208,232,202,224,0,208,243,104,170,104,96,176,56,184,80,24,176,56,44,88,255,176,3,141,120,7N00 D$"IN#0":D$"PR#:A$E$300 A$@ (16384)155ĺD$"CLOSE":16368,0:310O X1900:X 210o ,D$"CLOSE":(27); 60::1002::D$"PR#" JD$"IN#" D$"IN#"MM:1912MM,138:  FIND MICROMODEM X768819:Y:X,Y::769 MM(768):MMı+ 90% QX6ĺF$" DOES NOT EXIST":90] RX13ĺ"MUST BE CONVERTED TO A TEXT FILE FIRST":90 S"ERROR CODE "X" ENCOUNTERED...CANT READ":90 ZG$:X15000:X::: dD$"IN#0":D$"PR#"MM:1912MM,2 1784MM,0 D$"OPEN"F$:D$"READ"F$ 6W DO YOU EXPECT TO SWING ON THE ROPE FROM THE ";S$;"?":820#J1:"THE PEOPLE SWINGING ARE--":" YOU":X12:P(1,1)P(X1,1)ĺ4);N$(X1):JJX$X:"OKAY, NOW":150:". . . UP, UP, AND AWAY--":255:J(4(1)1)Ğ:"EGAD, THE ROPE BROKE"::PE SWINGS--FLIES--AND ";:255:(1).5ĺ"MISSES.":"BETTER LUCK NEXT TIME.":r""CATCHES.":"GOOD SHOT!":D(2)1"Y(37):6"2650:Y1:"R(P(1,1),7)0P(1,1)P(4,1)1030"D(2)0ĺ"THE ROPE ISN'T UP!":820?#P(1,1)29P(1,1)30ĺ"HOC)R(P(1,1),7C)1:P(1,3C)P(1,3C)1:2820:2710C91020,1110,1680,1420,1830,2130,1490,1580,1550,1160,1230,1430,1330,2200HA1A1D1(((1)7)3):A10ĺ" A MISS!":D10:RP15890}\P(4,1):R131((1)12):P(P1,1)R1,P1UR1(30(0)1):R(R1,6)1R(R1,6)0i T8:D(1)1800:"THE FORCE FINALLY GAVE UP ON YOU."::810 :"THE DEATH STAR JUST EXPLODED.":"UNFORTUNATELY, YOU WERE STILL ABOARD":*"YOU ARE DEAD..17409P1(5(1)1):P15ĭP(1,1)(P(P1,1))700"A SOLDIER FIRES AT ";N$(P1):A1S(S,2):D1S(S9,1):J54:P15D1P(P1,2):P(P1,4)0J1D1D1J:2750840:P(1,1)0810S$P123:P(1,1)P(4,1)P(P1,1)P(4,1)P(4,1)0R1P(4,6)1670x"DARTH VADER SWINGS AT YOU WITH HIS LIGHT SABRE!":2800:A1P(4,2):D1P(1,2):P11:840:P(1,1)0810680"DARTH VADER SWINGS AT YOU WITH HIS FIST!";:A1P(4,2)2:D1P(1,2):P11:840:P(1,1)0810S90750S1S9:(1)P(4,1)P(1,1)610$DP(4,1)0610ONX(4(1)1):R1P(4,1):R(R1,X)1590XR1R(R1,X):P(4,1)R1:R1P(1,1)ğ:"***DARTH VADER HAS ARRIVED***"::2800:2710bC99620lT8(10(1))Ğ:"TIME IS ALMOST OUT":v820:P(1,1)P(4,1)680D,DAMAGED BUT CAN BE REPAIRED,IRREPAIRABLY DAMAGEDKP770788:A:P,A: 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,3,96I114:CM$(I):GE,D,M,SABR,A,O,GI,L,F,TO,SW,TA,SAB,C&R11:01750:T8(50(1)76)11:AND,HANGER,EAST DETENTION,WEST DETENTION,BROWN,GREEN,BLUE,YELLOW,RED,ORANGE,BLACK,WHITE WEST END,MIDDLE,EAST END,SOUTH END,NORTH END,NORTH,EAST,WEST,SOUTH,PRINCESS LEIA,THE WOOKIE,DARTH VADER,IMPERIAL SOLDIER,SHIELD,BLASTER,LIGHT SABRE2 UNDAMAGE20 32750%3P(1,1)P(4,1)202083P(4,4)02030F3D1D154Y3A1P(P,3):840l3P(1,6)020703"YOU DON'T HAVE A LIGHT-SABRE!":F118503 8203D(3)021003 "YOU KNOW, IT HELPS IF YOU TURN ON YOUR LIGHT-SABRE":F118504*4,1)1910;2l"ATTACKING DARTH VADER":P14:D1P(4,2):1950J2vS901940h2"NOBODY TO ATTACK":F1ıq28202"ATTACKING AN IMPERIAL SOLDIER":P15:D1S(S9,1)2C1960,2040,21202P(P,5)019902"YOU DON'T HAVE A BLASTER!":F1185038A$,1)"W"1845171855h1:"WANT TO ATTACK WITH BLASTER, SABRE, OR":" HAND-TO-HAND (B,S, OR H)?";A$1?C13:(A$,1)("BSH",C,1)ĴC1860,1860,18901AC:18501DP(1,4C)018901N"YOU DON'T HAVE A ";W$(C1):F118501X820 2bP(1,1)P(UT."::810\0"FORTUNATLEY, HE DECIDES TO JOIN UP WITH YOU.":P(3,1)P(1,1):P(3,7)1:2720~0R1P(1,1):930:S9R(P(1,1),7)0S1S9:S(S,1)(16(1)):S(S,2)(16(1)):S0X1100::25100&F1000P1053000:A0185016A$(A$,A1):(YOU FOUND THE PRINCESS.":"SHE THANKS YOU AND FOLLOWS YOU.":P(2,1)P(1,1):2720i/P(1,1)P(3,1)1800/P(3,7)P(3,1)P(1,1):1800 0"YOU ARE GREETED BY A LARGE, EXTREMELY DANGEROUS-LOOKING WOOKIE.":(1).25Ğ:"HE CHARGES AND RIPS YOUR ARMS O"DO YOU WANT TO MOVE NORTH, EAST, WEST,":" OR SOUTH (N,E,W,S)?";A$k.C14:(A$,1)("NEWS",C,1)1710x.C:1690.R1R(P(1,1),C):R10ĺ"YOU CAN'T GO THAT WAY.":820."OK".C311:P(C,1)P(1,1)P(C,1)R1.CO/P(1,1)P(2,1)ĺ"M":" SWING ON THE ROPE ACROSS THE CHASM":" TAKE-OFF IN THE MILLENIUM FALCON":" SABOTAGE THE EQUIPMENT IN THE ROOM"-" CHARGE! ALL GOOD GUYS ATTACK"-255:820-R(P(1,1),7)0P(1,1)P(4,1)1030-3000:A0A$(A$,A1):1695D. MOVE NORTH, EAST, WEST, OR SOUTH":" SABRE ON OR OFF",r" ATTACK WITH SABRE, BLASTER, OR HANDS":" ORDER PRINCESS OR WOOKIE":" GIVE TO PRINCESS OR WOOKIE":" LOOK AROUND":" FLEE (EVERYBODY RUNS AWAY)"{-|" TOSS ROPE TO CROSS THE CHAS4:R(P(1,1),X)01620U+6R(P(1,1),X)0ĺ"ACROSS A WIDE CHASM":R1R(P(1,1),X):1610h+@R1R(P(1,1),X)+J930:"TO THE ";P$(X);" IS THE":S$+TX:S$A$+^9,h"I AM THE FORCE. I WILL DO THESE THINGS--":" GET AN OBJECT":" DROP AN OBJECT":" OF EACH WEAPON.":820J*"OK.":P(1,3C1)P(1,3C1)1:P(C1,3C1)1:2710*"OK, SCATTER":X311:Y(4(1)1):R(P(1,1),Y)0P(X,1)P(1,1)P(X,1)R(P(1,1),Y)*:X23:P(X,1)P(1,1)P(X,1)0P(X,1)P(X,1)*":R1P(1,1):1750+,A$S$:X1"DO YOU WANT TO GIVE A SHIELD OR A":" BLASTER (S OR B)?";A$p)(A$,4)"LEIA"İ3000:A$(A$,A1):A01510)C11:(A$,1)"B"C12)P(1,3C1)0ĺ"YOU DON'T HAVE ONE TO GIVE":820*P(C1,3C1)0ĺ"SORRY, BUT A FOLLOWER CAN ONLY CARRY ONE ON A REMARKABLE ESCAPE.":2280@(3000:A0A$(A$,A1):1499("DO YOU WANT TO GIVE TO THE PRINCESS OR":" THE WOOKIE (P OR W)?";A$(C1:(A$,1)"W"C2(P(1,1)P(C1,1)ĺ:N$(C1);" ISN'T HERE!":820(3000:A1A$(A$,A1):1515?)S TAKING OFF.":"LEAVING HANGER NOW.":"APPROACHING TRACTOR BEAM."K'255'R(9,6)0R(28,6)0Ğ:"THE TRACTOR BEAM LATCHES ON.":"STRESSES TEAR THE MILLENIUM FALCON INTO ITSY-BITSY PIECES."::810("TRACTOR BEAM IS INOPERABLE.":"CONGRATULATIONS U JUST STARTED THE DEATH STAR'S SELF-DESTRUCT DEVICE.":T8(10(1)3):"UH--YOU'D BETTER GET OUT OF HERE.":D(1)1x&&D(3)D(3):2800:2710&P(1,1)1ĺ"HOW CAN YOU TAKE OFF FROM THE":4);S$;"?":820&2740B'150:"THE MILLENIUM FALCON IP(1,1),6)2P(1,1)28ĺ"WHY? THE ROOM'S ALREADY IRREPAIRABLY DESTROYED.":820[%P2760%ZR(P(1,1),6)R(P(1,1),6)(3(1)):R(P(1,1),6)2R(P(1,1),6)2%dY(37):6%n2640:Y1r&xR(P(1,1),6)2P(1,1)28(1).25İ2770:"CONGRATULATIONS. YO8109$"THE ROPE HELD, LUCKY YOU":P(1,1)30M29:1300B$ M30L$2720r$X311:P(X,1)P(1,1)P(X,1)M$(X:1750$2R(P(1,1),7)0P(1,1)P(4,1)1030$<R(P(1,1),5)10(R(P(1,1),5)10)1ĺ"THERE'S NOTHING TO SABOTAGE HERE":820Q%FR( THE PROGRAM ABOVE PAGE 1+ (GRAPHICS.9 2::1:1V <(4);"BLOAD THE SHAPES" F232,0:233,24: SHAPE TABLE POINTER $1800 PX73 ZY86801 dXX1 nM1:Y80M3 x230,32 62450: CLR SCRN1 M:2695,Y:3:27145,Y ! **************************A * NIBBLE INVESTOR LOADER *a * BY ALEXANDER LAIRD * * COPYRIGHT (C) 1983 ** BY MICROSPARC, INC ** LINCOLN, MA. 01773 ***************************SETS LOMEM:16385 TO PUT60"@ CF1:AB75:AE75:DN30:160A@ CF4:AB11:AE15:DN2:160b@ CF1:AB100:AE115:DN3:160@ CF5:AB5:AE5:DN3:160@ CF(16336)(16336)(16336)(16336):@ A1(A$):(A$,A,1)" "ı@ A:A0: ---------------------------------";:34,(37)3? V? Y(37):P9P:2520:Y1:PP9:? CN1250:(16384)127Ĺ16368,0:? :? CF4:AB1:AE10:DN5:160? CF1:AB5:AE20:DN3:160? CF1:AB25:AE30:DN5:160@ CF6:AB20:AE20:DN50:1)10(R(P(1,1),5)10)1ĺ"EQUIPMENT--";D$(R(P(1,1),6)1);:868:f>Z P(1,1)29ĺ"CHASM TO SOUTH--";>d P(1,1)30ĺ"CHASM TO NORTH--";>n P(1,1)29P(1,1)30ĭD(2)ĺ"ROPE IS UP";:868:>x P(1,1)29P(1,1)30ĭD(2)ĺ"ROPE IS NOT UP"-? "-------))ĺ"P:";:P24:P(1,1)(P(P,1))ĺ" ";::N$(P);:B= :868:k=( "IN ROOM--";:S9ĺS9;" SOLDIERS ";=2 R(P(1,1),8)R(P(1,1),9)ĺR(P(1,1),8);" SLD. ";R(P(1,1),9);" BLST.";=< S9R(P(1,1),8)R(P(1,1),9)ĺ"NOTHING";=F 868:B>P R(P(1,1),5((40(S$))2):X1X1'< X::S$:`< "DOORS OPEN TO";:X14:R(P(1,1),X)0ĺ" ";P$(X);< ::T$"OFF":D(3)T$"ON"< "CARRYING--";:P(1,6)0ĺ"SABRE ";::T$;::" ";< P(1,4);" SLD. ";P(1,5);" BLST.";:868:4= P24:P(1,1)(P(P,12470,2480;j 2480+;t A$"TERRIBLE":2490>;~ A$"BAD":2490R; A$"FAIR":2490f; A$"GOOD":2490; A$"VERY GOOD":2490; A$"INCREDIBLY GOOD":2490; A$"ABSOLUTELY UNBELIEVABLE"; "ALL IN ALL,":"YOU WERE ";A$; :23:; :< 1:XAIRED.":S8S83P(2,1)5P(3,1)|:B R13:R1,A$:7,WEAPONRY MACHINERY ROOM,13,COMMAND CONTROL ROOM,28,POWER MACHINERY ROOM:L R(R1,6)0ĺ"THE ";A$;" WAS DAMAGED":S8S810:V R ;` :"YOUR FINAL SCORE WAS ";S8:((S8)25)12420,2430,2440,2450,2460,,1)0ĺ"YOU KILLED DARTH VADER.":S8S825f9$ D(1)1ĺ"YOU DESTROYED THE DEATH STAR!":S8S8100:24009. P(1,1)0:P(2,1)0:P(3,1)0:X130:S9R(X,6)1:P(S9,1)P(S9,1)1:X:8 P(2,1)P(3,1);" ROOMS WERE DAMAGED, HOWEVER,":P(2,1);" OF THEM COULD BE REPU KILLED ";S8;" IMPERIAL SOLDIERS."b8P(1,1)1ĺ"YOU DIDN'T MAKE IT OUT ALIVE.":S8S810:23208"YOU ESCAPED ";:S8S810:P(2,1)1ĺ"WITH THE PRINCESS!";:S8S8258 P(3,1)0P(3,7)ĺ:"YOU ABANDONED THE WOOKIE, YOU CAD!";:S8S8258 )9 P(4OU WANT ";N$(P):" TO SHOOT, ATTACK OR DO NOTHING":" (S,A, OR N)?";A$:C13:(A$,1)("SAN",C,1)ĴC2240,2260,22707:22307P(P,5)0ĺN$(P);" HAS NO BLASTER":22307C1:1890:22707C3:18907P:#8"LET'S SEE HOW YOU DID.":"YO180,21906oC1:2150G6pP(C1,5)1ĺN$(C1);" HAS NO BLASTER":820[6zPC1:C1:1890o6PC1:C3:18906"OK.":P(C1,1)P(C1,1):6F11:1840:P23:P(1,1)(P(P,1))22706S9022306P(1,1)P(4,1)ĺ"NO ENEMIES":2270y7"DO YT NOW.":820.5_3000:A0A$(A$,A1):2155r5f"IS THE ORDER TO SHOOT, ATTACK, OR WAIT":" (S,A, OR W)?";A$5k(A$,4)"LEIA"İ3000:A$(A$,A1):A021505m(A$,2)"TO"İ3000:A$(A$,A1):A021506nC113:(A$,1)("SAW",C1,1)ĴC12160,2820442800"4>A1P(P,2):84074HA1P(P,2)2:840Y4R3000:A0A$(A$,A1):21374W"WHO ARE YOU ORDERING, PRINCESS LEIA":" OR THE WOOKIE (P OR W)?";A$4YC1:(A$,1)"W"C2 5\P(1,1)P(C1,1)ĺ"YOU CAN'T GIVE ORDERS TO":N$(C1);" RIGHT" L4050LQQ11LD$;"WRITE INVEST,R";QILF114:N$(I,F):FcLD$;"WRITE INVEST,R0"jLQpLL< NEW RECORD >LJ1:K2:440:I1R:F12:E$(I,F)N$(I,F):F,I:K0iMR20ė:"MAXIMUM 20 RECORDS PER 'INVEST' FILE.":"'QUIT' THE P$;"OPEN INVEST,L150"/K*D$;"WRITE INVEST,R";REK4F114:A$(F):F\K>S$"E"S$"S"870vKHD$;"WRITE INVEST,R0"}KRRK\S$"D"ıKfD$;"CLOSE INVEST":Kp216,0KzD$;"OPEN INVEST,L150"KD$;"WRITE INVEST,R0"K0LD$;"CLOSE INVES$(F) JF$JSI$"1"QI$"1"700+JWBJD$;"CLOSE ";NA$:]JD$;"OPEN ";NA$;",L50"zJD$;"WRITE ";NA$;",R";REJF17:U$(F):FJSI$""770JD$;"WRITE ";NA$;",R0"JREJD$;"CLOSE ";NA$J J < WRITE MASTER FILE >K DD$;"OPEN ";NA$;",L50"4IDSI$"1"630: SINGLE RECNIND$;"READ ";NA$;",R0"cIXR:R0N11700IbQI$"1"WR:630: READ LAST RECIlWJR:S$"G"NN1IvD$;"READ ";NA$;",R";WIF1K:U$(F)IS$"G"H$(N,F)U$(F)JS$"R"CP$(I,F)UD$;"READ INVEST,R0"#HR:R0540.HIJRHHD$;"READ INVEST,R";I_HF1K:N$(I,F):FHS$"D"((NA$N$(I,1))(NA$N$(I,1)LO$N$(I,2)))İ940HSI$"1"540HIHD$;"CLOSE INVEST":H& H0D$;"VERIFY";NA$I::HG"** ENTER NEW DATA OR PRESS **":"** RETURN TO ACCEPT AS IS. **"oG"<< MONTH= 1-12 DAY= 1-31 >>":G::"INVST NAME ... C)ATALOG ... MENU":G < READ MASTER FILE >GD$;"OPEN INVEST,L150"GSI$"1"490: READ SINGLE RECHS RETURN TO CONTINUE ";XX$:lFT"NAME";:36,7:"#";:36,11:"QTY";:36,15:"BUY DATE";:36,27:"$ COST";:F^ZGN:70:36,70(X$):X$;:TGTG(X$)FhSL$"S"SHSHGNFrSL$"L"LGLGGNF|36,72:SL$GPC(GNCS)100:ZPC:70:36,80(X$):X$SD(M330)D3((Y3(Y11))365): DAY COUNT FOR SELL DATEBEaEX$(TC):36,20(X$):X$;EX$(TV):36,27(X$):X$;E"X$(TG):36,33(X$):X$;E,E636,39(X$):X$:E@24:"PRESS RETURN FOR MENU";XX$:::FJD$;"CATALOG":"PRESD1(N$(I,6)):Y1(N$(I,7))LDM2(CP$(I,5)):D2(CP$(I,6)):Y2(CP$(I,7))|DM3(N$(I,9)):D3(N$(I,10)):Y3(N$(I,11))DBD(M130)D1((Y1(Y11))365): DAY COUNT FOR BUY DATEDCD(M230)D2((Y2(Y11))365): DAY COUNT FOR CUR DATEAFZ(Z100.05)100:ZZ100:Z$(Z):ZZ$(Z$,2):(Z)100ZQ$(Z$,(Z$)2):X$ZQ$"."ZZ$:APZZ$(Z$,2):ZQ$"0":X$ZQ$"."ZZ$:AZCST((N$(I,3))(N$(I,4))):XC$(CST):SE1ı.Bd@ @ **********************?@ * NIBBLE INVESTOR *^@ * BY ALEXANDER LAIRD *}@ * COPYRIGHT (C) 1983 *@ * BY MICROSPARC, INC *@ * LINCOLN, MA. 01773 *@ **********************@D$(4):D$;"MAXFILES1"A880                     16300,0 16301,0w :22:"** COPYRIGHT 1983 BY MICROSPARC, INC **":24:"PRESS RETURN TO LOAD THE INVESTOR";XX$ "16384,0 ,103,01:104,64: 4001 HEX 6232,0:233,24: SHAPE TABLE PTRS @(4);"RUN INVESTOR"M:2695,X:3:27145,X& Y80200E Q1:Z514512:26Q,Z:Zf Q240:Z514512:26Q,Z:Zo 240 16300,0:16302,0:230,64:62450 M:2695,Y1:3:27145,Y1 M:2695,X1:3:27145,X1 16299,0 Y 230,32 NIBBLE INVESTOR GRAPHICS **":\:"THIS OPTION DISPLAYS:":10:"* HI/LOW/CLOSE PRICE":10:"* MOVING AVERAGE OF PRICE":10:"* SALES VOLUME"8]10:"* AVERAGE SALES VOLUME":10:"* HI PRICE FOR THE PERIOD":10:"* LO PRICE FOR THE PERIOD":10:"* HI 0BS$"S"x[(N$(I,1),6);:36,9:BS$;:36,14:N$(I,2);:36,21(N$(I,3)):N$(I,3);:Z(N$(I,4)):70:36,29(X$):X$;[X$N$(I,5)"/"N$(I,6)"/"N$(I,7):36,39(X$):X$[I[XX$"P"1990[0[320[ << GRAPHICS >>\:6::"** LIO SUMMARY"ZN:"** PORTFOLIO SUMMARY **":"NAME";:36,8:"B/S";:36,12:"LOT#";:36,17:"SHRS";:36,23:"PRICE";:36,31:"BUY DATE"ZX160ZbXX$"P"ĺD$;"PR#0"ZlJ1:K8:440: READ RECSZvXX$"S"1930Z1 [I1R:BS$"B":(N$(I,8))"" Y%Y < SUMMARY PORTFOLIO >KY&:10:8::"PORTFOLIO SUMMARY":Y013:8:"PRINT ON:"::8:"S)CREEN":8:"P)RINTER"::8:" FOR MENU"::8:"ENTER SELECTION ";XX$:XX$""ıY:XX$"P"XX$"S"1840 ZDXX$"P"ĺD$;"PR#1":"PORTFO17:13:"";U$(F):FmX(U$(5))0(U$(5))12(U$(6))0(U$(6))31Ģ19:"INVALID DATE...PLEASE REENTER"X20:"RETURN= ACCEPT... 'R'= RE-ENTER ";XX$XXX$""Ģ19:868:1740XU$(4)U$(4)"00": CONVERT TO 1000'SYRER1:SI$"1":710:SI$URRENT HI/LOW/CLOSE MARKET":>W420:"ENTER:";NA$:NA$""ıVWNA$"C"İ330:1700iWN11:560:N10W11:"NAME : ";NA$:"HIGH : ":"LOW : ":"CLOSE : ":"VOL (100S): ":"MO (1-12) : ":"DAY (1-31): ":"YEAR : "X12:F):13:FVT1650?V^6:F114:13:"";F$:F$""N$(I,F)F$\VhF5:13:N$(I,F):13:FVr22:3:"RETURN=ACCEPT ...'R'= RE-ENTER ";XX$:XX$""1560V|F114:A$(F)N$(I,F):FVRI:800VV < UPDATE MARKET PRICES >W:6::"ENTER C,2)PS$MRI: HITUI;USI$"1":IMR:K14:440:SI$""lU::"EDIT/SELL RECORD ";NA$;" #";PS$::400U"6:F114:LL$(F):FU,6:F114:13:N$(I,F):FU6S$"E"1630: EDITU@13:F811:13:"";F$:F$""N$(I,F)F$VJF5:13:N$(I,F$(F):F1T6:F17:10:"";F$:F$""U$(F)F$LTF5:10:U$(F):13:FT22:3:"RETURN=ACCEPT ...'R'= RE-ENTER ";XX$:XX$""1420TU$(4)U$(4)"00"TREW:710TT << READ MASTER FILE >>TJ1:K2:440UI1R:N$(I,1)NA$N$(I0:N10XSn:"THERE ARE ";R;" RECORDS IN THE FILE"::"ENTER THE RECORD # TO EDIT: ";REySxSI$"1":WRE:K7:560:SI$""SU$(4)(U$(4),(U$(4))2): CONV TO 100'SS::"EDIT RECORD ";NA$;" #";RE::400S6:F17:LD$(F):FT6:F17:10:UM":1360R<12::"SELECT THE FILE TO EDIT: "::"M)ASTER FILE":"P)RICE FILE"::"ENTER SELECTION :";ED$:ED$"M"ED$"P"1340RFED$"P"1380RPED$"M"ĺ:"ENTER PURCH SEQ#":" (DEFAULT=1) :";XX$:PS$XX$:XX$""PS$"1"RZ1510SdN11:56,L50""QD$;"WRITE ";A$(1);",R0"2Q0: # RECSIQD$;"CLOSE ";A$(1)OQfQ < EDIT RECORDS >qQ:6:Q S$"E"ĺ"EDIT RECORDS ":1310QS$"S"ĺ"SELL INVESTMENT"Q:420:"ENTER:";NA$:NA$""ıQ(NA$"C"İ330:1280R2S$"S"ED$"13:F37:13:"";A$(F):8PF1214:13:"";A$(F):FiP22:"RETURN= ACCEPT... 'R'= RE-ENTER ";XX${PXX$""1150PF811:A$(F)"":FP800P(A$(2))11260: SKIP INITIALIZING A PRICE FILE IF ONE ALREADY EXISTSQD$;"OPEN ";A$(1);"ASE WILL BE:":A$(1);" ->"A$(2):FOL"PRESS RETURN TO CONTINUE";XX$OV:6::"ADD NEW INVESTMENT":::410:HIT1HIT0::"NEW PURCH. SEQ# IS THE LAST SEQ# +1":O`11:F17:LL$(F):F:F1214:LL$(F):FOj11:13:A$(1)Ot12:13:A$(2)P~ SURE TO ENTER THE NAME AS SHOWN":"FOR OTHER PURCHASES."::420:"ENTER:";A$(1):A$(2)"1":A$(1)""ıN.A$(1)"C"İ330:1050N8I1R:E$(I,1)A$(1)ĺ"PREV. PURCH.: ";E$(I,1);" ->";E$(I,2):HIT1:A$(2)((E$(I,2))1):BUMP SEQ #"OBI::"THIS PURCHROGRAM AND RENAME 'INVEST'":"TO ANOTHER NAME. THEN YOU CAN INITIAL-":"IZE ANOTHER 'INVEST' FILE.":320uMSW1ıMRR1M:6::"ENTER NEW INVESTMENT RECORD":::"ENTER THE NAME OF THE INVESTMENT.":"IF OTHER PURCHASES HAVE BEEN MADE"fN$"BE";l RP3080,3250,34704l < GAIN/LOSS REPORT >yl 36,15:"$COST";:36,23:"$MKT";:36,29:"GN/LS";:36,35:"%G/L"l 160l& I1Al0 140l: 90:X$XC$:36,20(X$):X$;:TCTCCST:COSTlD X$XV$:36,27(X$):X$;:TVTVVL: MARKET VALUE-mNkr < READ CURR PRICE >#k| I1AKk NA$N$(I,1):K7:QI$"1":560:QI$""Rk Iak RP43020hk 1xk (9);"80N"k RP43700k RP53830k < SCREEN REPORTS >k :SP$"P"3050k 1:k RH$(RP)l "NAME";:36,6:"#";:36,10:"QTY)AA1:SI$"1":440:SI$"":F114:N$(A,F)N$(I,F):F: READ RECORDKj Irj" A0ĺ:NI$;" IS NOT ON FILE":320|j, 2930j6 1j@ (9);"80N"jJ READ ALL RECORDSjT J1:K14:440: READ ALL RECORDSj^ ARjh I1R:F12:E$(I,F)N$(I,F):F,I1RP52760 i RP4RP52800^i 15:"S)CREEN OR P)RINTER : ";SP$:SP$"S"SP$"P"2790i 17:"INDIV' INVESTMT NAME":"OR FOR ALL : ";NI$i NI$""2890: SKIP NAME SELECTi SW1:1000:SW0: GET NAMESDj A0:K14:I1R:NI$E$(I,1 (S/P)":"4= MASTER MARKET GAIN/LOSS (PTR)":"5= MASTER SALES GAIN/LOSS (PTR)"h :"OPTIONS 1-3 ALLOW SCREEN OR PRINTER.":"OPTIONS 4-5 ALLOW PRINTER ONLY."h 12:"REPORT OPTION (1-5)":"OR FOR MENU: ";RP$:RP(RP$):RP0ı i RP(LV1000);"K"Kg 23:"AVG PRICE:";AP;:36,18:"AVG VOL: ";(VA1000);"K"Tg 320mg < REPORT OPTIONS >g ::"** INVESTOR REPORT OPTIONS **":Wh :"1= CURRENT MARKET GAIN/LOSS (S/P)":"2= YIELD ANALYSIS (S/P)":"3= GAIN/LOSS ON SALES5X0NBNB6$fZ X0X5NBNB6Nfd NB3N13Ĕ35Q5,NB3:33Q13,NB3fn 21:"NAME: ";(NA$,10);:36,18:"PRC-H/L: ";HP;"/";LPfx 22:H$(1,5);"/";H$(1,6);"/";H$(1,7);"-";H$(N,5);"/";H$(N,6);"/";H$(N,7);g 36,18:"VOL-H/L: ";(HV1000);"K/";Q,125Q,125PS: POSITIVE PRICE MOMENTUM0e 3Be A0B02590Ve Q,AQ,B:Q1,Cee Q,VQ,159re( QQ3:Xe2 VA(VAN): AVG VOL.e< V(159(VAVI)):22,VQ3,V:36Q5,V: AVG VOLeF NA3Ĕ34Q5,NA3:33Q13,NA3: MVG AVGfP XNBNA:X: 13 WEEK MOVING AVG:d X2NA2ēQ3,OAQ,NA: MVG AVGMd 1:X132560td NB5ēQ3,OBQ,NB: 13WK MVG AVG{d 3d PS((NBNA)100):PS100PS((PS100)10)1:Q,125Q,125PS:2560: NETGATIVE PRICE MOMENTUM)e PS100PS((100PS)10)1:13):AQMU13:AQ(AQ100.05)100Hc A(120(2((H$(X,1))LI))):HIGHnc B(120(2((H$(X,2))LI))): LOc C(120(2((H$(X,3))LI))): CLOSEc V(159((H$(X,4))VI)):VOLUMEc NA(120(2(NALI))):MOVING AVERAGEd NB(120(2(NBLI)))V X1Ncb` OANA:MTMT(H$(X,3)):NA(MTX):APMTX:AP(AP100.05)100:OLD/NEW MOVING AVERAGEbj VAVA(H$(X,4)): CUM' VOLUMEbt X132440: SKIP 13 WEEK M.A. FOR LESS THAN 13 WEEKS!c~ OBNB:NB0:MU0:AQ0:HX12X:MUMU(H$(H,3)):H:NB(MU09,113:24139,113:25169,113: 10-50/aMT0Ca40,125279,125da 3222,122:2830,122: PR Sa F12015010:19,F:F:1,159275,159a 285,128: Sa$ 295,134: Aa. 305,140: La8 315,146: EaB 285,152: SaL Q22:VI(HV30)b9`X"`PV2: TWO DOTS/POINTp`:3:1:1:18,118,159:P0:F112020:19,F20,F:F:F11202:19,F:F`P16:FLG5LG11:F5,P:PP20:F:1,120279,120`26195,105:27240,106`F1917215:F,119:F&a2149,113:2279,113:231O(((LP10)1)10):LO1LO0: LOW INDEX SCALING 11->0 21->10 31->20 ETC.w_LX(LP):LO$(LX):(LO$)1LI0:LG0_(LO$)2LI((LO$,1)):LGLI1:LI(LI1)10: LOW PRICE 10-99`(LO$)3LI((LO$,2)):LGLI1:LI(LI1)10: LOW PRICE 100-19(H$(1,2)):HV(H$(1,4)):LVHVG^H < FIND HI/LO PRICE AND HI VOLUME >|^RX1N:HI(H$(X,1)):HL(H$(X,2)):VO(H$(X,4))^\HIHPHPHI: HIGHTES PRICE^fHLLPLPHL: LOWEST PRICE^pVOLVLVVO: LOWEST VOL^zVOHVHVVO: HIGHEST VOLL_LVOLUME FOR THE PERIOD":10:"* LO VOLUME FOR THE PERIOD"Y]420:"ENTER:";NA$:NA$""ıq]NA$"C"İ330:2010] ::"READING FILE ";NA$:]N11:560:N10] J1:R51JR51: MOST RECENT 52 RECS]*N0]4K7:560: READ^>HP(H$(1,1)):LPЗ:10:10:" END OF JOB":| "NAME ","PURCH SEQ.","NO SHARES","PURCH PRICE","PURCH MO","PURCH DAY","PURCH YR","SELL PRICE","SELL MO","SELL DAY","SELL YR","OPEN FLD#1","OPEN FLD#2","DIVIDEND"}"HIGH","LOW","CLOSE","VOL 100S","MONTH","DAY","YEAR"H$(53,7)3{|S$"G"ĆN$(20,14),CP$(20,7),E$(20,2)K{S$"A"İ1000:4060c{S$"S"İ1270:4060{{S$"E"İ1270:4060{S$"U"İ1690:4060{S$"P"İ1820:4060{S$"G"İ2000:4060{S$"R"İ2720:4060{S$"D"İ4430:4060|S$"Q"TFOLIO INDEX"|zT9:"S)ELL AN INVESTMENT":9:"D)ELETE A RECORD":9:"G)RAPHIC CHARTING":9:"R)EPORT OPTIONS":9:"Q)UIT"z^:9::"ENTER SELECTION ";S$:zhS$"D"S$"A"S$"S"S$"E"S$"U"S$"P"S$"G"S$"R"S$"Q"4160{rS$"G"Ć y64350y@:4:8::"** THE NIBBLE INVESTOR **":::8:"** BY ALEX LAIRD **":21:8:"** COPYRIGHT (C) 1983 **":8:"** BY MICRO-SPARC INC **": zJ9:9:"A)DD A NEW INVESTMENT":9:"U)PDATE MARKET PRICES":9:"E)DIT AN INVESTMENT":9:"P)ORX$;x"LONG TERM GAIN/LOSS: ";:ZLG:70:36,33(X$):X$Kx(9);"40N"Rx0[x320qx << MAIN MENU >>wx}xxD$(4)xD$;"NOMONI,O,C"xA$(14),LL$(14)xRH$(4)xF114:LL$(F):Fx"F17:LD$(F):Fy,F13:RH$(F):;"/";N$(I,10);"/";N$(I,11);-wnGNSVCS:3504wxIAw TOTALSw170:ZTC:70:36,33(X$):X$;:ZTV:70:36,51(X$):X$;:ZTG:70:36,70(X$):X$;wPC(TGTC)100:ZPC:70:36,80(X$):X$x:"SHORT TERM GAIN/LOSS: ";:ZSH:70:36,33(X$):I1Av2(N$(I,8))03960/v<180:TCTCCSVvFZ(N$(I,8)):70:36,40(X$):X$;vPZ(N$(I,3))(N$(I,8)):SVZ:70:36,51(X$):X$;:TVTVSVvZ200:SL$"L":DL(365(SDBD)):DL0SL$"S"wd36,58((N$(I,9))(N$(I,10))(N$(I,11))):N$(I,9)BS$"B":(N$(I,8))0BS$"S"/u36,58:BS$;JuGNCVCS:350:I:3970]u YIELD REPORTvu"** MASTER ";RH$(3)u 340:36,34:"SEL PR";:36,42:"SEL VALUE";:36,52:"SEL DATE";u36,61:"GAIN/LOSS";:36,71:"S/L";:36,75:"% G/L"u170v(75:"% G/L"t170tI1AEt180:TCTCCS: PRINT COMMON DATAltZ(N$(I,4)):70:36,40(X$):X$;tZ(CP$(I,3))(N$(I,3)):CVZ:70:36,51(X$):X$;:TVTV(X$)t200:SL$"L":DL(365(CDBD)):DL0X$(DL):36,56(X$):X$;:SL$"S"u(X$,(X$)1)"."(X$,1)0 DECIMAL IN STRING5sV310Es`SP$"P"Ċ0Nsj320lst < MASTER MARKET VALUE >s~"** MASTER ";RH$(1)s340:36,34:"CUR PR";:36,42:"CUR VALUE";:36,53:"DLT";:36,57:"B/S"; t36,61:"GAIN/LOSS";:36,71:"S/L";:36,N ON SALE2r GP(((GNCST).0005)1000):X$(GP)Or (X$)1X$"."X$:3600rX$(X$,(X$)1)"."(X$,1): DECIMAL IN STRINGr36,39(X$):X$rIr$160r.270r8GP(((TGTC).0005)1000):X$(GP)rB(X$)1X$"."X$:3670,sLX$q (N$(I,8))036104q 140: PRINT COMMON INFOfq 90:X$XC$:36,20(X$):X$;:TCTCCST: COSTuq X$N$(I,8)q SA((X$)(N$(I,3))):X$(SA):36,27(X$):X$;:TVTVSA:SALES AMT r GN(SACST):X$(GN):36,33(X$):X$;:TGTGGN: PRINT GAI000):X$(X))p\ (X$)1X$"."X$:3440^pf X$(X$,(X$)1)"."(X$,1): DECIMAL IN STRINGspp 36,39(X$):X$pz SP$"P"Ċ0p 320p < PROFIT ON SALES >p 36,15:"$COST";:36,22:"$SALE";:36,29:"GN/LS";:36,35:"%G/L"p 160q I1ATDDV:DIVIDEND AMT=o YL(((DVCST).0005)1000):X$(YL)Zo (X$)1X$"."X$:3360o X$(X$,(X$)1)"."(X$,1): DECIMAL IN STRINGo 310o* Io4 160o> X$(TC):36,20(X$):X$;oH X$(TD):36,32(X$):X$; pR X(((TDTC).0005)16,22:"DV/SH";:36,29:"$DIV'";:36,35:"%YLD"En F139:"=";:F:Pn I1Amn 140: PRINT COMMON INFOn 90:X$XC$:36,20(X$):X$;:TCTCCST: COSTn X$N$(I,14):36,26(X$):X$;: DIVo DV((X$)(N$(I,3))):X$(DV):36,32(X$):X$;:TD X$XG$:36,33(X$):X$;:TGTGGL:GAIN/LOSSImX X$XP$:36,39(X$):X$}mb I20SP$"P"Ą"PRESS RETURN TO CONTINUE ";XX$ml Imv 160m 270m X$(((TGTC)100))m 310m SP$"P"Ċ0m 320m < YIELD REPORT >.n 36,15:"$COST";:3# 7:16:"PRESENT:":A12000:R 11:6::"THE CRIMINAL ELEMENT SCANNER": 15:5:"THIS IS PUBLIC DOMAIN SOFTWARE," 17:5:"AUTHOR HAS NO RIGHTS REGARDING" 19:5:"SAID SOFTWARE. COMMENTS MAY BE" 21:5:"LEFT ON GALAXY ONE, 215 MICROMODEM FINDER= BY THE CRIMINAL ELEMENTX:A123:A:1:"*":s23:A239:A:"*";: A2311:39:A:"*": A3911:1:A:"*";: 3:3:"THE WARE LORDS IN COOPERATION WITH" 5:10:"THE CRIMINAL ELEMENT" ͍$$$-m-?$466&$-.-?6-6?-6?46$-666--?6=6--6?46M!,66$$-&-66 $$-66$?-?6-6?- -?$-$?66 -$/$?=6-$/6?6$-6M$l6n$,=76.%<-$$?66-6?6- -$$?66-6/6?- -$$?666-$66 -$$?66-?6-6?- -$$?66.,67576%$$$-5566>'%$$?-m,666.$$$(<. ,66666%$$$$46-55667?,%$$?-m!$'-66766.$$$,-.66>>'-$$$$$,M)-.6??',-5>?4>6%6--$7?-766>- $$$%466n)$$l166 $$,-&?76=6.-4 0-%$-5 (566&$$,m-566>?- -$$$?666/666/ %$$>6- -$$$?666- -$$$?66666 $JYk~4Mh~+:!&.8K[e/666/ -$$$?666&-6677.m-$$$<7666&-6>56?4- -$$$?6666.%$666 -$$$?666-?6.56?- -$$$?666-?6.56?$46- -$$$?666-666 -$$$?666-6>'466-$46 -$$$?666-6>'$6.56?- -$$$?666/666/ -$$$?666  ETURN> FOR MENU":"NAME:";NA$:NA$""ıv:"ENTER THE LOT# OR TO DEFAULT":"TO LOT#1.":"LOT#:";XX$:LO$XX$:XX$""LO$"1":10::"PROCESSING":ȀJ1:K14:440: READ/WRITE FILE"RECORD ";NA$;" LOT#";LO$;" IS DELETED":320 :6:"DELETING A RECORD PURGES IT FROM THE":"FILE AND COMPRESSES THE REMAINDER OF":"THE FILE."b:"BE SURE TO USE THE SAME NAME THAT YOU":"HAVE USED FOR REFERRING TO THE INVEST-":"MENT IN PREVIOUS RUNS OF THE INVESTOR."'l:"ENTER THE NAME OR FOR MENU";XX$~D4060~N `XQ0:::"DELETE RECORDS": Y}"** CURRENT MARKET GAIN/LOSS **","** YIELD ANALYSIS **","** GAIN/LOSS ON SALES **"d}216,0t}D$;"CLOSE"}(222)5Ģ21:"NO DATA FOR THAT FILE":4410}(222)6Ģ21:"NO FILE BY THAT NAME.":4410 ~&(222)9Ģ21:"DISK FULL.. SET UP NE0S0K120Z1K:Z%X+Q::" [AWAITING CARRIER]"aZL0.08vX(16250162)R(16249162)X2X3X1X0FF1:A$(F)DI$:16251162,0:Z11000:Z:18:5:"DETECTION TIME LEFT [";(Z);"] ";16251162,128841:Z11000:Z5X1(DI$)V(DI$,X,1)"-"Ğ:"-";::XjT((DI$,X,1))xT0T10Q1T10:17X:((DI$,X,1))16251162,016251162,128841Q10:17X::((DI$,X,1));:K25ZA$(I)DI$:I:151'HH1:ZA$(H)DI$}:D$;"OPEN DIALER.FILE":D$;"WRITE DIALER.FILE":H:I1H:ZA$(I):I:D$;"CLOSE":"RUN DIALER AGAIN [Y/N]:";:Q$:Q$"N"Ĭ:::"WAR GAMES DIALER ][ TERMINATED ":10:9:"[DIALING:";DI$;"]"%OPEN"F$:D$;"WRITE"F$:Z1F:A$(Z):Z:D$;"CLOSE"::"LAST NUMBER = ";DI$::"MARK TO CONTINUE [Y/N]:";:Q$:Q$"Y"152:D$;"OPEN DIALER.FILE":D$;"READ DIALER.FILE":H:H0ī150:I1H:ZA$(I):ID$;"CLOSE":I1H:(DI$,3)(ZA$(I),3)"[ >>> NONE <<< ]"ī147U:"SAVE NUMBERS TO A TEXT FILE [Y/N]:";:Q$:Q$"Y"147::" SAVE NUMBERS UNDER WHAT NAME:":::" ___________________________":12:7:"";F$:F$""143::"OK TO SAVE [Y/N]:";:Q$:Q$"Y"1442:D$;"1162,0`:"[";::"*";::"]-STOPPED-[";::"*";::"]"::"OUTPUT TO PRINTER [Y/N]:";:Q${Q$"Y"ĺ:(4);"PR#1"Z1F:"FIND #"Z" = "A$(Z)Z:(4);"PR#0":"[-END-]"::"LIST AGAIN [Y/N]:";:Q$:Q$"Y"135A$(1)ЀIN$(DI$,4)R A((IN$,1,1)):B((IN$,2,1)):C((IN$,3,1)):D((IN$,4,1)) DD1:D9D0:CC1:C9C0:BB1:B9B0:AA1:A9135 (AC$)3DI$(DI$,4)(A)(B)(C)(D):133 DI$(DI$,10)(A)(B)(C)(D) 1211625$:120 wDI$"1-"AC$"-"SN$\ x"SECONDS FOR PICKUP [DEFAULT=30]:";Q$:L(Q$):L1L30v yK(16384):16368,0 zK155135 {154 |173 }34,5:::5:14:NF:5:32:F:34,7:: ~TI$(DI$,(DI$)1)(((DI$,1))) TI$EN$135 LING TO":"[RETURN] FOR LOCAL ";:AC$u r::"WHAT IS THE STARTING NUMBER":"FORMAT = [ XXX-XXXX ]":10:12:"";SN$ s(SN$)8114 t::"WHAT IS THE ENDING NUMBER":"FORMAT = [ XXX-XXXX ]":10:12:"";EN$ u(EN$)8116 v:(AC$)3DI$SNjQ$"N"S10:110( kQ$"F"S5:110= lQ$"S"S0:110F m105 n::"[*]ERASE CONTINUE FILE":"[C]ONTINUE WITH AN OLD EXCHANGE":"[S]TART A NEW EXCHANGE"::"WHICH--->";:Q$ oQ$"C"ī182 pQ$"*"ī197% q::"WHAT AREA CODE ARE YOU DIAD = ? FOUND = ? "::34,7:22::" HIT [CTRL-C] ANYTIME TO STOP DIALER "::35,21 h"PIRATES OF PUGET SOUND....[206] 783-9798" i::"[N]ORMAL DIALING SPEED":"[F]AST DIALING SPEED":"[S]UPER FAST DIALING SPEED"::"WHICH--->";:Q$ } d134>eA$(1000):D$(4):A$(1)"[ >>> NONE <<< ]"::f" ////// FIND A NUMBER DIALER ][ \\\\\\ ":"// --- --- ----- --------- \\":"\\ COURTESY OF COPY CAT //":" \\\\\\\\\\\\\\\\\\*////////////////// "a g:" TRIE    (4);"PR#0":(4);"IN#0":G14000::NUMSA GN$GN$(NUMS)" "i (GN$)240GN$(X)GN$:GN$"":XX1 (4);"PR#"SLOT:(26) C:4:GN$:22 (GN$)32GN$"":CC1 A WARE LORDS IN COOPERATION WITH" 5:10:"THE CRIMINAL ELEMENT": ";SERIES10000 x24E "STARTING POINT (DEFAULT 9999):";START$c (START$)0STARTER9999 (START$)0STARTER(START$) NUMSSERIESSTARTERSERIES1 (4);"PR#"SLOT:(4);"IN#"SLOT:(17);NUMS) (1656SLOT)128ĺ(26):-244-0864" 23:39:A$ j (" SCANNER FOR THE MICROMODEM":" BY THE CRIMINAL ELEMENT" 2SLOT2::12:"MODEM NUMBERS" <GN$(500): FC8 P:: Z34,22:24 d"WHAT SERIES:";SERIES:SERIESSERIES10000 n6:13:"SERIES0S0K120Z1K:Z%X+Q::" [AWAITING CARRIER]"aZL0.08vX(16250162)R(16249162)X2X3X1X0FF1:A$(F)DI$:16251162,0:Z11000:Z:18:5:"DETECTION TIME LEFT [";(Z);"] ";16251162,128841:Z11000:Z5X1(DI$)V(DI$,X,1)"-"Ğ:"-";::XjT((DI$,X,1))xT0T10Q1T10:17X:((DI$,X,1))16251162,016251162,128841Q10:17X::((DI$,X,1));:K25ZA$(I)DI$:I:151'HH1:ZA$(H)DI$}:D$;"OPEN DIALER.FILE":D$;"WRITE DIALER.FILE":H:I1H:ZA$(I):I:D$;"CLOSE":"RUN DIALER AGAIN [Y/N]:";:Q$:Q$"N"Ĭ:::"WAR GAMES DIALER ][ TERMINATED ":10:9:"[DIALING:";DI$;"]"%OPEN"F$:D$;"WRITE"F$:Z1F:A$(Z):Z:D$;"CLOSE"::"LAST NUMBER = ";DI$::"MARK TO CONTINUE [Y/N]:";:Q$:Q$"Y"152:D$;"OPEN DIALER.FILE":D$;"READ DIALER.FILE":H:H0ī150:I1H:ZA$(I):ID$;"CLOSE":I1H:(DI$,3)(ZA$(I),3)"[ >>> NONE <<< ]"ī147U:"SAVE NUMBERS TO A TEXT FILE [Y/N]:";:Q$:Q$"Y"147::" SAVE NUMBERS UNDER WHAT NAME:":::" ___________________________":12:7:"";F$:F$""143::"OK TO SAVE [Y/N]:";:Q$:Q$"Y"1442:D$;"1162,0`:"[";::"*";::"]-STOPPED-[";::"*";::"]"::"OUTPUT TO PRINTER [Y/N]:";:Q${Q$"Y"ĺ:(4);"PR#1"Z1F:"FIND #"Z" = "A$(Z)Z:(4);"PR#0":"[-END-]"::"LIST AGAIN [Y/N]:";:Q$:Q$"Y"135A$(1)ЀIN$(DI$,4)R A((IN$,1,1)):B((IN$,2,1)):C((IN$,3,1)):D((IN$,4,1)) DD1:D9D0:CC1:C9C0:BB1:B9B0:AA1:A9135 (AC$)3DI$(DI$,4)(A)(B)(C)(D):133 DI$(DI$,10)(A)(B)(C)(D) 1211625$:120 wDI$"1-"AC$"-"SN$\ x"SECONDS FOR PICKUP [DEFAULT=30]:";Q$:L(Q$):L1L30v yK(16384):16368,0 zK155135 {154 |173 }34,5:::5:14:NF:5:32:F:34,7:: ~TI$(DI$,(DI$)1)(((DI$,1))) TI$EN$135 LING TO":"[RETURN] FOR LOCAL ";:AC$u r::"WHAT IS THE STARTING NUMBER":"FORMAT = [ XXX-XXXX ]":10:12:"";SN$ s(SN$)8114 t::"WHAT IS THE ENDING NUMBER":"FORMAT = [ XXX-XXXX ]":10:12:"";EN$ u(EN$)8116 v:(AC$)3DI$SNjQ$"N"S10:110( kQ$"F"S5:110= lQ$"S"S0:110F m105 n::"[*]ERASE CONTINUE FILE":"[C]ONTINUE WITH AN OLD EXCHANGE":"[S]TART A NEW EXCHANGE"::"WHICH--->";:Q$ oQ$"C"ī182 pQ$"*"ī197% q::"WHAT AREA CODE ARE YOU DIAD = ? FOUND = ? "::34,7:22::" HIT [CTRL-C] ANYTIME TO STOP DIALER "::35,21 h"PIRATES OF PUGET SOUND....[206] 783-9798" i::"[N]ORMAL DIALING SPEED":"[F]AST DIALING SPEED":"[S]UPER FAST DIALING SPEED"::"WHICH--->";:Q$ } d134>eA$(1000):D$(4):A$(1)"[ >>> NONE <<< ]"::f" ////// FIND A NUMBER DIALER ][ \\\\\\ ":"// --- --- ----- --------- \\":"\\ COURTESY OF COPY CAT //":" \\\\\\\\\\\\\\\\\\*////////////////// "a g:" TRIE    D$;"WRITE DIALER.FILE":00:D$;"CLOSE"/1139134|D$;"CLOSE":::"FILE IS EMPTY."::"HIT [RETURN]:";:Q$:113113YH113 SN$ZA$(Y)*1343116=134F113P134y::"*-ERROR-*"::"NO FILE FOUND.":"CREATE FILE [Y/N]:";:Q$Q$"Y"113:D$;"UNLOCK DIALER.FILE":D$;"DELETE DIALER.FILE"&D$;"OPEN DIALER.FILE":Z&16251162,0:Z11000:Z2NN1:<195}:D$;"OPEN DIALER.FILE":D$;"READ DIALER.FILE":H:H0ī202I1H:ZA$(I):I:D$;"CLOSE"::I1H:"[";I;"] - ";ZA$(I):I193:"[0=NONE] CONTINUE WHICH--->";YY0                !!! ! ! ! ! !!!!!!!!  D$;"WRITE DIALER.FILE":00:D$;"CLOSE"/1139134|D$;"CLOSE":::"FILE IS EMPTY."::"HIT [RETURN]:";:Q$:113113YH113 SN$ZA$(Y)*1343116=134F113P134y::"*-ERROR-*"::"NO FILE FOUND.":"CREATE FILE [Y/N]:";:Q$Q$"Y"113:D$;"UNLOCK DIALER.FILE":D$;"DELETE DIALER.FILE"&D$;"OPEN DIALER.FILE":Z&16251162,0:Z11000:Z2NN1:<195}:D$;"OPEN DIALER.FILE":D$;"READ DIALER.FILE":H:H0ī202I1H:ZA$(I):I:D$;"CLOSE"::I1H:"[";I;"] - ";ZA$(I):I193:"[0=NONE] CONTINUE WHICH--->";YY096:DL1600::375HA$"B"I$" REVIEWING "BF$" ":1210:50:385Y A$"C"275" ":MX(29)256(28):CPBF:STMX:TBF:1300A$"M"İ1100:::" MARGIN=";I$:RM(I$):ARM:1000:RM$A$:27,RM:24:26:RM$;::1120:375A$"P"İ19005 1230:$ER(EF):ER0250MER1Ğ:" LOST CARRIER "G$:::390ER2İ1100:24:14::"FULL";::" "G$;::1120:16368,0PQ:" "(8)(8);:16384,128:A(16384)128:16368,0:X(0):A$(A)A19Ğ:" BREAK ";::CR,(2040MM)OLUMN ";:24:" FULL ! 00000 ! "RM$" ! 000 ";:::~EF,0:DB:FTĞ:" CLEAR "BF$"? ";:::A$::FT(A$"Y")FTĹ28,BL:29,BH:DBY(CR):CD(Y8(Y8).5):NM$"STILL":RE$"CONNECTED":CDNM$"NOT":1230:1400:TR:RE:2320(HM2)80(EM)255FT1HFTĺD$"BLOADTP-MC,A"HM:TR3,MM16kGT16,41:GT17,127:GT21,10CS,64:(2)BH3ĹCB,(2)1((1)0):"INSTRUCTIONS? ";:A$::A$"Y"İ3000 OPTIONSA23::" DUPLEX ! "BF$" ! MARGIN ! Cx27,RM:ARM:1000:RM$A$G}CO1912:CR4928616MM:SN49154256MMTRHM:RETR27:PQTR15:CSTR97:MITR215:EF249:BFHM3256:BH(BF256):BLBF256BH:CBTR290:DBTR475:RVTR562:MPTR600:GTTR627:PCTR679:EMTR767 (HM)76(HM1)" ":D$"CLOSE":D$"PR#0":1225:.d BEGINiD$(4):G$(7):Q$(17):Z$(26):BF$"BUFFER":LO$"LOG ON - ":SE$"SENDS ":Z(104)256(103):QE$(20),RE$(20),MA$(9)nHM(116)256(115):D$"IN#0"s4000:LC((LC$,1)"Y"):FT((31)LC):31,LC0:255,1::D$"MONI":D$"OPEN"NM$:D$"READ"NM$:76YWDNľA$:(A$)ĹPC26,(A$):PClXDN(255)87Y" ":D$"CLOSE":1225:ZI$" PRINTING FILE ":1225::5000:DN0:255,1::D$"MONI":D$"OPEN"NM$:D$"READ"NM$:76[DNľA$:A$;:91"\P REVIEW FILElQ" "::" FILE NAME: ";NM$:::(NM$)0ĺ" CATALOG? ";:A$::A$"Y"ĺD$"CATALOG":81|RFD1:1470SFDĺD$"VERIFY"NM$:85T:" NOT FOUND "G$::UI$" REVIEWING FILE ":1210:" PRINTOUT? ";:A$::A$"Y"904V1225:DN READ FILEGGDN0:255,1::D$"MONI":D$"OPEN"NM$:D$"READ"NM$:76HDNľA$:(A$)ĹCO,(A$):SN:PC26,(A$):PC:DL120:IA$(13)A$(141)āDL1500:JDN(255)72K" ":D$"CLOSE":LDN1:216,0:" ":D$"CLOSE":D$"NOMONI":$"S"SPSI256SPSPSI:RV1,SP:54V@A$"<"ğ:"<";::STCP:ENMX:TBF:1300:52AA$">"ğ:">";::STMX:ENMX:TCP:1300:69BTGTG:TG154,55CDP(DE)CP:DEDE::(602DE);::DE66DSTDP(1):ENMX:TDP(0):1300:54E" ";: F:" "(8)(8);:16384,128:A(16384)128:16368,0:A$(A)I 8A859 9(36)0CPCP1:CH(CP256):CLCP256CH:253,CL:254,CH:" "(8)(8); :55 ;A$"B"52 <A$"D"67 =A$"E"A169 >A$"F"SPSI0SPSPSI:RV1,SP:54%?A(S$):A$(S$,J,1):A(A$):AA(A10)13(A10):CO,A:SN:K120:DPČMIU +K,J:b 2 BUFFERr 3SP81:SI80 4::" BEGINNING: ": 5253,BL:254,BH:MX(29)256(28):DE0:MXBF69 6RV1,SP:RV:TG0:CP(254)256(253):CPMX69< 7PQ$:CO,A:SN:A$:A(A$):27= A13RE$RE$(10):CO,A:SNE 22Y  FIND QUESTIONz I$"":(O$)0āDL1500:: GT:A(30):A$(A):A$;:I$I$A$:(255)0(I$O$)ı !A1332 "I$"":32 ( OUTPUT THRU MODEM )(S$)ıJ *J1800:D$"PR#"MM:RE$:D$"PR#0":1912MM,0:2040MM,FS:I$" PLEASE LOG ON ":1210:N1 NN1:QE$(N)QE$:RE$(N)RE$:QE$"":RE$"" GT:A(30):MD(255):A$(A):MD26 QE$QE$A$:A$;:A13QE$"" 23 A1ı A$;:A13A21RE$RE$A90504 (213) 516-9430 VOICE (213) 516-9432 MODEM P  09/22/82 1,(115):2,(116):20480::::" TERMINAL PROGRAM !"41);:" (C) 1980 BY ED MAGNIN !"41);:::34,3:35,21 0100  NEW LOGONT RE$Q$PH$:1230:::1!.# SERIAL #25C122482-0611P y TERMINAL PROGRAM (C) 1980 BY ED MAGNIN -ALL RIGHTS RESERVED- A  DISTRIBUTED BY: TELEPHONE SOFTWARE CONNECTION , INC. P.O. BOX 6548 TORRANCE, CA A$3700,L$300"'9175,33:176,54:105,(175):106,(176):107,(175):108,(176):109,(175):110,(176):2511,48:(4)"SAVETERMINAL PROGRAM":100'I$""'A$:A$(13)I$I$A$:2205'' HELP( :PRĺ12)"TERMINAL PROGRAM"::9)"(C) 19NUE &PRıH&:" 'C' TO CONTINUE, 'E' TO EXIT ";::A$::A$"E"ġ[&(37):958: '412:"PLEASE HOLD...":(4)"UNLOCKTERMINAL PROGRAM":(4)"RENAMETERMINAL PROGRAM,TERMINAL PROGRAM -BACKUP":(4)"LOCKTERMINAL PROGRAM -BACKUP":(4)"BSAVETP-MC,256):MLMX256MH:28,ML:29,MH:DB2%::CT$::E%l PRINT BUFFER_%qRV15,237:RV16,253%v1100::I$" PRINTING "BF$" ":1200:::5000:SP1:RV1,1:253,BL:254,BH:MX(29)256(28):RV::D$"PR#0":1225%{RV15,149:RV16,81:& CONTI3,2)):M((T1$,10,2))((T0$,10,2));$&S0SS60:MM1K$+M0MM60$0I$(13)"--- 00 MIN 00 SEC ---"(13):CT$(I$,5(M10))(M)(I$,8,5(S10))(S)(I$,9)#%5I(CT$):MX(29)256(28):J1I:MXJ1,((CT$,J,1))128::MXMXI:MH(MX":D$"OPEN"NM$:D$"WRITE"NM$:MX(29)256(28):JBFMX1:((J));:j#:D$"CLOSE":D$"NOMONO":SV1:u# TIME# MC0ı#:D$"PR#"MC:D$"IN#"MC:T1$:D$"IN#0":D$"PR#0":# TIME OFF#MC0ı%$!T0$T1$:1800:S((T1$,13,2))((T0$,1;::1120:" SAVES"SV0:" ":::" SAVE FILE NAME: ";::"";NM$:(NM$)0ıc"FD1:1470"FDĺD$"VERIFY"NM$:1725"1735""REPLACE EXISTING FILE? "G$;:A$::A$"Y"ĺD$"DELETE"NM$:1735"F#I$" SAVING "BF$" ":1210::D$"MONO"ĺD$"CATALOG":1505$!FD1:1470A!FDĺD$"VERIFY"NM$:1525\!:" NOT FOUND "G$::!SF(239)0:I$" UPLOADING ":1210:1615:70:SFİ1600!!@ FULL!E239,0:I$"FULL":1630!O HALF!T239,1:I$"HALF":1630 "^1100:24:3::I$O LOG ON ":1210:1912MM,0:2040MM,FS:255,1:J21N:O$QE$(J2):S$RE$(J2):30:(255)0İ1100:1465 DL1500::40::1100 1120:1600:1225: FD0:216,0:  UPLOAD!" "::" FILE NAME: ";NM$::(NM$)0ĺ" CATALOG? ";:A$::A$"YD$"OPEN"LO$NM$:D$"WRITE"LO$NM$:N:RE$(0)ZJ1N:QE$(J):RE$(J)::D$"CLOSE":1465D$"OPEN"LO$NM$:D$"READ"LO$NM$:N:2200:RE$I$:J1N:2200:QE$(J)I$:2200:RE$(J)I$:::D$"CLOSE":1230f DP0:::1800:D$"PR#"MM:RE$:D$"PR#0":I$" AUTM: ";NM$:1470 (NM$)1425l"CATALOG? ";:A$::A$"Y"ĺD$"CATALOG"::"PRESS RETURN";:A$::1405y::250FDĺD$"VERIFY"LO$NM$:1450"PHONE NUMBER: ";PH$:(PH$)0140020:1100:::" SAVE LOG ON? ";::A$::A$"N"1465,$::1120:A$"Y"1325#MP1,SL:MP5,SH:MP9,EL:MP13,EH:MP17,TL:MP21,TH:MP2:MXMX(STT):MH(MX256):MLMX256MH:28,ML:29,MH:DB(CPCP(STT):CH(CP256):CLCP256CH:253,CL:254,CH-EF,0:x LOG ON}FD1::"WHICH SYSTE22:1:41);:$1100:1220:11201 SYSTEMi1:27::(NM$,13)41);:2:27:(RE$,14)41);::t MOVESH(ST256):SLST256SH:EH(EN256):ELEN256EH:TH(T256):TLT256TH1100:::" OK TO DELETE "STT" CHARACTERS? "G$;:::ASAVE VT,HTTQ" "(8);:HT(36)1:VT(37)1:(Z29)20(Z31)3ĹZ1,0:Z2,0zVVT16Č912:912:VT(37)1:VT[` CLEAR EOPeVT:HT:958: STATUS22:21(I$)2::I$;:::1100:1205:1120 CLEAR STATUS235*" "::" CONTINUE: "::1225:375" ":D$"PR#"MM:1912MM,0:Z$:D$"PR#0":1815:DL11000::1100::1:27:"NOT"41);:2:27:"CONNECTED"41);::1120:EF,0:CD0:250CO,A:SN:375 STR$A$"000":A$A$(A):A$(A$,3): L 6:395OA$":"A124:3954TA$"^"A126:395dYX(A$):XA48S$MA$(X):DP1:40:MI:375x^A6İ1600:375cA8İ1615:375hA17CD225mA24ĺ" ":rA26390tA27395wY(CR):CD(Y8(Y8).5):CD(EF)0ČRE|:375A$"R"İ80:385@"A$"S"İ1700:1225:SV1375,270W'A$"U"İ1500:385n)A$"?"İ3000:385,A1A1:3951A$"]"A91:3956A$"/"A92:395;A$"-"A95:395@A$"("A123:395EA$")"A125:395JA$"'"A9""" " PRINTER ON: 6D$"PR#1" 60LOCK SLOT5MC0"5 MACROS: ?5 +CHR$(13) SENDS RETURNV5MA$(0)"BYE"(13)d5MA$(1)""r5MA$(2)""5MA$(3)""5MA$(4)""5MA$(5)"INSERT YOUR OWN"5MA$(6)"PHRASES IN HERE"5MA$(7)""5MA$(8)""5MA$(9)""5 6 ' ACCEPTABLE? ";:A$::A$"Y"İ5000:3000W4N :"TURN ON PRINTER, THEN 'GOTO 3000'":l4 INSERT INFO: 4 MICROMODEM SLOT:4MM24 FSW VALUE:4FS214 LOWER CASE:4LC$"YES"4 DEFAULT RIGHT MARGIN:4RM80 5MT HARDWARE CME DISK. (IT'S ALREADY MADE A":"BACKUP COPY.)"::20003? :"AFTER RUNNING:"::5)"YOU MAY WISH TO TYPE 'FP' OR":"REBOOT TO RESTORE HIMEM."::2000:PRCDPR0:D$"PR#0":3D :"PRINTOUT THESE INSTRUCTIONS? ";:A$::A$"Y"ı*4I PR1::"IS 'PR#1HEN HELP IT THROUGH THE NEW PROCEDURE.":2000:25 :"PRIOR TO RUNNING:"::5)"LIST AND MODIFY LINES 4000-4040,":"CHECK PRINTER SLOT IN LINES 5000-5010,":"AND INSERT DESIRED MACROS IN 4045-4095."83: :5)"THEN 'SAVE TERMINAL PROGRAM' ONTO":"THIS SASHOULDN'T HAVE A RETURN)"1+ :5)"NEXT TIME IT WILL ATTEMPT TO LOG":"ON AUTOMATICALLY. TYPE ANY KEY TO TAKE":"OVER MANUALLY.":/20 5)"AFTER ANY CHANGES IN LOG ON":"SEQUENCE (NEW PASSWORD OR QUESTIONS)":"JUST 'DELETE LOG ON - ',":"TRROW BACKSPACE"::20000! :"AUTO LOG ON:"::5)"WHEN YOU CALL A NEW SYSTEM, IT":"WILL ASK YOU TO LOG ON MANUALLY. TYPE":"CTRL-A WHEN DONE, AND IT WILL MEMORIZE":"YOUR LOG ON SEQUENCE. (USE A RIGHT"1& "ARROW QUICKLY AFTER ANY RESPONSE THAT":"6)"GO BACK TO BEGINNING":7)"D"6)"DELETE BETWEEN FIRST 'D'":14)"AND SECOND ONE"/ 7)"E"6)"EXIT BUFFER":7)"F"6)"GO FASTER":7)"S"6)"GO SLOWER"0 7)"<"6)"DELETE TO BEGINNING":7)">"6)"DELETE TO END":5)"SPACE"4)"STOP/START":" LEFT AENTRY:"::5)"JUST TYPE 'RUN'"::2000. :"MARGIN:"::5)"WHEN TYPING, A RETURN WILL BE SENT":"AUTOMATICALLY ON THE FIRST SPACE WITHIN":"8 CHARACTERS OF THE MARGIN. TO DISABLE":"SET MARGIN TO 0."::2000T/ :"WHILE REVIEWING BUFFER:"::7)"B"EN REPRINT":5)"THESE INSTRUCTIONS)"::2000- :"UPPER/LOWER CASE:"::" ESC ONCE NEXT CAP":" ESC TWICE ALL CAPS":" ESC AGAIN LOWER CASE":- 5)"(WITHOUT LOWER CASE ADAPTER":5)"UPPER CASE WILL BE IN INVERSE)"::2000'. :"SOFT RE-6)SE$(96)3)"LOWER CASE":7)":"6)SE$(124)3)"ADAPTER":7)"^"6)SE$(126)2)"/"::2000, J09:I$MA$(J):(MA$(J),1)(13)I$(MA$(J),(MA$(J))1)-- 7)J6)SE$(34)I$(34):::5)"(ABOVE MACROS 0-9 MAY BE MODIFIED":5)"IN LINES 4045-4095, TH-Q CALL ANOTHER SYSTEM":5)"CTRL-S "SE$"BREAK"}+ 5)"CTRL-X EXIT THIS PROGRAM":5)"CTRL-Z HANG UP PHONE"::2000+ 7)"]"6)SE$(91):7)"/"6)SE$(92):7)"-"6)SE$(95):7)"("6)SE$(123)2)(92)[, 7)")"6)SE$(125)3)"NEED":7)"'"7)"P"6)"PRINT "BF$* 7)"R"6)"REVIEW FILE":7)"S"6)"SAVE "BF$:7)"U"6)"UPLOAD FILE":7)"?"6)"REPEAT THESE INSTRUCTIONS"::20003+ 6)"ESC"5)SE$"ESC"::5)"CTRL-A "SE$"CTRL-A":5)"CTRL-F FULL DUPLEX":5)"CTRL-H HALF DUPLEX":5)"CTRLL-A IS NEEDED":"TO GET ITS ATTENTION."::2000Y) :"OPTIONS:"::5)"AT THE ";:PRğ) "?";::" PROMPT YOU MAY TYPE ANY":"OF THE FOLLOWING:":* 7)"B"6)"REVIEW "BF$:7)"C"6)"CLEAR "BF$:7)"M"6)"CHANGE MARGIN":7)"O"6)"RETURN ONLINE":80 BY ED MAGNIN":::( "CTRL-A:"::5)"WHILE ONLINE CTRL-A AUTOMATICALLY":"SENDS A CTRL-S TO FREEZE THE HOST":"THEN WAITS FOR YOUR COMMAND.":/) 5)"CTRL-A WILL ALSO INTERRUPT WHILE":"UPLOADING OR REVIEWING A FILE."::5)"WHEN OFFLINE, NO CTRΊΊҿΊпƊʊӊ" *RLQy*R $RХ $R` 0`'d  0 Q`<=>?BCL,PJ Ɋ )a0{8 `Ɂ` LQH PPJJh`080`0L[Pɇ@ `ɍ%ɠ0 Qɠ0 80 8 Q`ddLkQH Qh  L}QH Qhi0ș`H h08LQ08 H P " iQ Qh` 8st8*R7LP` L` R Q P`P0LPɛ QLPɁ R P` `0 i LPɈ .LPɠ0'!8 R PLP 8  R P`L8PPJJJ`J` ɊɈ