' +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`LLMRML:MSK0:OMMSK2&'#P&(#(SC$,K2)"HD"9160:PROCESS SAVED COMMANDSb&<#XB$(SC$,K3)p&P#XB(XB$)&d#XIK1KJ20&x#XIXBHD$(XI)L$&#&#L$""⑔LL(L$)&#SC$"C"X1X1K2:X1(X1)L$(SS$,X1)L$'$OB($(XI)))K2:P$(SS$,X1)ML$HD$(XI):10000:CLCLK19%W%FXXP$"":10000:CLCLK1]%?u%@BRK1:BREAK A LINE%L$""İ5000%BRK0:XC$"C"XC$"R"8200%OB(K1)K0:UB(K1)K0% MS8999%l XC$"LS"ML$OM$(OM):OMOMK1& ML(ML$):P$:"POSITION PAPER AT THE TOP OF THE FORM AND PRESS RETURN KEY WHEN READY"\$ "";XI$g$R11000u$MT7500$I2K1MT$P$"":10000$$LCLMT$`PGPTİ14000:P$"":10000$~XXK0$XIK1KJ203%HD$(XI)""XXK1:X1(LL(HD #oXYK0:*#pPF$""6999:END OF PAGEQ#CLLCP$"":10000:CLCLK1:6120a#CLLC6000#PGPBP$"":10000:14000#CLFLP$"":10000:CLCLK1:6860#CLK0#EJİ7000#W#XNCFX7300:START A NEW PAGE #lFXK1#16000:FTK1$"(L$"")(PP)BRK0:52708"BRBRK0:5250F"PJYİ3000`"OB(K1)UB(K1)İ13000r"MLL$ML$L$"MSK1MSK2:ML$(SS$,ML)"XSSPK1"P$L$:10000"L$"""JCLCLK1"|(LCCL)(PF$"")İ6000:5999"XSXSXSK1:5350(L$)3360!p 3380K! L$(L$,X1)" "(L$,X1K1):OB(K1)UB(K1)İ12000^! (L$)LL3999q! X1X1K3:3420w!! GET X$ (NEXT CHARACTER)!GT:X$((30))!!(FTK1)(PF$"")5140:END OF LINE, IF FIRST TIME DO HEADINGS "7000 l (L$,X1,K1)" "3260% X1X1K16 X1X23160@ 3180v L$(L$,X1)" "(L$,X1K1):OB(K1)UB(K1)İ12000 (L$)LL3999 X1X1K2 3220 SW$"L" X1X2K1:X3X3K1:X3KJ203999 4 (L$,X1,K1)" "3460 H X1X1K1 !\ X11040 310008 L$""L$" "3999:JUSTIFY A LINE h (L$,K1)" "XL(L$)K1:L$(L$,XL):3000u XL(L$) XLLL3999 X2K1:X3K0 (L$,X2,K1)" "X2X2K1:31000 SW$"R"3340D SW$"R"X X1(L$)K1:X3X3K1:X3KJ203999" "ML$ML$" "5, L$"":ML(ML$):MSK1:BRK0:1630?1 8000Z6 XC$"D"L$" ":5000{; XC$"A"MLLS(K1):MRRS(K1)@ XC$"B"MLLS(K2):MRRS(K2)E XC$"D"MLLS(K3):MRRS(K3)J ML$"":MLML$(SS$,ML)O 1630T PPL$I$:BRK1:5000:G DISK FILE ";FL$(FI)s :"HEADING COMMANDS CANNOT BE PROCESSED":"WHEN CREATING A PREFORMATTED PRINT-IMAGEFILE" :"PLEASE VERIFY THIS DISK FILE AND CORRECTIT IF NECESSARY":35000 OMOMK1:OM$(OM)ML$:ML$ML$L$ XZK0:XYK0" (ML$,K1) 9ګ54500-9XF%(K0):I$"PB"İ11000:XSFD9$ۺD$"PR#";SL$:SU$;b9ۺD$"NOMONI,O,C":768:" "s9ۺT$(X):LF$;9PܭF%(X)K0567009ܭI$"PB"XSL567009XF%(X):563009|ݺD$;"PR#0":768:ULSWČ8149ޫ409999B%(CL):541008ԫ3000028X3X3K1:X3K054200`8CLB%(CL):(CLK0)(T$(CL)"***")54500u8CLF%(CL):300008X3((I$,K3))8<׭T$(CL)"***"554008׭F%(CL)K0CLF%(CL):551008ث545008hX3X3K1:X3K0552009حF%(CL)K0CLF%(CL)ͭ(T$(CL))KF38İ9000:52630?7ͭF%(CL)XBCLF%(CL):52630J7ͫ52140e7CLF%(K0):SVK1:306007ϭT$(CL)"***"CLF%(CL):530007SDCL:300007X3((I$,K3)):(T$(CL)"***")(B%(CL)K0)CLB%(CL)7TӭT$(CL)"***"54400 8ӭB%(CL)K0CL29996L1(ST$):K(KB26)86Ḽ(KL1K1)(XT$)52610`6̭(XT$,K,L1)ST$(K1)KKK1:523006T$(CL)ST$(K2)((XT$,KL1)):KK1T$(CL)((XT$,KK1))T$(CL)6}XT$T$(CL):KK(ST$(K2)):523006ͺXT$6ͭDS(T$(CL))KF38526506XBF%(CL)7XBB%(SF)5JXFF%(SL)&5|F%(XB)XF45B%(XF)XBB5XFF%(SD)P5DF%(SD)SF^5B%(SF)SDl5 F%(SL)XFz5pB%(XF)SL57ǫ4865058SFCL5SLCL5˫500005 CLF%(K0):4000:5XT$T$(CL):XT$,ST$:(KB26)522005CLF%(CL):CL521006˫5F%(SF):4815044CLSD/4ؽCLK0CLK184 SF0A4 ";I$:I$"P"ĺD$"RUNPRINTER,D1"00I$"E"Ĭ0bI$"X"427000v429000D$"VERIFYBMS,D1"0:"GOODBYE FROM WRITE-ON!":1T$(K0)T$(CL"/*"/>D$;"CLOSE ";I$"/HSVK0-/R216,0@/X6$"Y"42000W/'SFK0:SLK0:30000]/n/SVK042700/ؤ:"DO YOU WANT TO SAVE ANYTHING ?"/<::"(Y OR N) ==> ";I$/I$"N"42700/I$"Y"ĺ::40315/h42000W0̦:::"DO YOU WANT T" ":40460).֝T$(X)"***"O$"":404606.ڝO$T$(X)O.䝭(O$,K1)" "40460k.靭DSK1((O$)K3)40460{.X1(O$)K1.O$(O$,X1).40420. O$.F%(X)K040500.X6$"SB"XSL40500. XF%(X).*40402.4DSK1((O$)K1)ĺ/940315-D2I2$"1":40388r-::"STORE ON DISK DRIVE 1 OR 2 ?"::" ==> ";I2$:I2$"1"I2$"2"40382-ĝD$;"OPEN";I$;",D";I2$:D$;"DELETE ";I$:D$;"OPEN ";I$-ƝD$;"WRITE ";I$-НXF%(K0):X6$"SB"XSF-ҝDSK140410 .ԝT$(X)""O$H 'D.'"::40320s,LFK2DSK2ĺ:"THIS IS NOT A PREFORMATTED FILE AND SHOULD NOT BEGIN WITH 'P.'"::40320,DSK2LFK2ĺ:"THIS IS A PREFORMATTED FILE AND SHOULD":"BEGIN WITH 'P.'"::40320,40350,40380,RI3:14000-I$X6$:X6$I$+" ==> ";I$,+I$""30000K+LFK0:(I$,K2)"D."LFK1d+(I$,K2)"P."LFK2+LFK1DSK1ĺ:"THIS IS NOT A DATA FILE AND SHOULD":"NOT BEGIN WITH 'D.'"::40320,DSK1LFK1ĺ:"THIS IS A DATA FILE AND SHOULD":"BEGIN WIT*T$(CL)ST$(K2)((XT$,KL1))E*6KK1T$(CL)((XT$,KK1))T$(CL)S*JDS33990m*h(T$(CL))KF38İ9000x*33990*CLF%(K0)*o30000*pFCKN10000*87000*CLX*W30000*@I$"SB"İ11000*{:::"SAVED TEXT SHOULD BE NAMED":+}P"FCKA20)}7000)瀫313002)耭I$"IT"CLK0B)LSDK0:3000L)ƄSVK1W)τ30000e)ЄT$(CL)""s)XFF%(CL))XBB%(CL))F%(XB)XF)B%(XF)XB) F%(CL)K0)B%(CL)K0)"CLXF),CLK0CLXB)33990)4000)30000)4000S"I$"SB"40000*(.wI$"P"I$"PB"56000<(8wI$"E"42000T(Lw(I$,K1)"L"47000b(`wK1:KB26}(tw"INVALID COMMAND";KG$(wXXK1KK5000:(w30000(yBC((I$,K2))(|yI$"UP"BCKA20(y6000(DzCLX(|30000(}FC((I$,K2)) )d}I$"D46000'fv(I$,K2)"UR"540006'pv(I$,K1)"U"31000O'zv(I$,K2)"DR"55000g'v(I$,K1)"D"32000'vI$"I"I$"IT"33000'vI$"X"34000'vI$"F"35000'vI$"C"36000'vI$"T"37000'vI$"B"38000'wI$"M"ė:SVK1:23000($wI$"&u(I$,K2)"RB"480008&u(I$,K2)"RR"İ13000:48000Y&u(I$,K2)"XR"İ13000:49000z&u(I$,K2)"MR"İ13000:50000&uI$"XB"49000& vI$"MB"50000& v(I$,K2)"RL"43000&*vI$"ML"51000&4vI$"RF"44000&HvI$"RC"45000'\vI$"SP"RI2:14000%a23440!%0u1000-%XuK1:K5Y%lu" ENTER COMMAND"e%uK1:K5p%u"";I$%uI$"BF"SFCL:30040%uI$"BL"SLCL:30040%uI$"RD"53000%uI$"BD"SDCL:30040%uI$"LD"SDCL:30040%uI$"CA"52000"DO YOU WANT IT FORMATTED FOR THE GT ESTATE WORDPROCESSOR (Y OR N)"::" ==> ";SI$r$]SI$"N"DSK3:23220$]SI$"Y"24000$]24900$]D$;"READ ";FL$$]IA:ZB$ZB$""$^2000$`T$(CL)ZB$:(ZB$)KV37İ9000$a24050 %Da(222)K5(X):KHWARNXKB26:XK0LQD$;"PR#0":(768)169(787)37(811)10820980eQD$;"BLOAD MACHSUBS"Q768:1013,76:1014,96:1015,3QULSW(767):SL$((766)):D2(764):I763:LF$"":(765)LF$(10)Q(I)0SU$SU$((I)):II1:20985 QI7PKC$(3):KE$(5):KF$(6):KG$(7):KH$(8):KI$(9):KK$(11):KL$(12):KM$(13):KN$(14):KP$(16):KR$(18):KS$(19):KT$(20):KX$(24)PKA$(1):KB$(2):KD$(4):KO$(15):KU$(21):KZ$(26)QCL0:NL1:X(0):XX44:T$(X):F%(X):B%M$(92):D$(13)(4)FNK00:K11:K22:K33:K44:K55:K6565:K9090NKA2020:KB2626:KC2828:KG3232:KF3838:KD100100:KE128128:KHWARN525:KI1212:KJ99:KK20002000:KL1515:KM4040:KN1000010000:KP4040:KQ3434:KR3535:KS2424:KT4141:KU3939:KV373216,0:14000'l9::ER$;KG$;KG$;KG$9:"ENTER DOS COMMAND OR PRESS RETURN TO CONTINUE ON":::" ==> ";:IA:ZB$ZB$"":IA$ZB$:IA$"":D$;IA$:14800:216,0:RI23420,24950,40370 NST$(2):Q$(34):Q2$(123):SP$(32):ES$(27):FR":ER6ER$"FILE NOT FOUND"R7ER13ER$"THIS IS NOT TEXT -- IT IS A PROGRAM"x7ER4ER$"THIS DISK IS WRITE PROTECTED"7ER9ER$"THIS DISK IS FULL"@8ER10ER$"THIS FILE IS ALREADY ON DISK AND IS LOCKED"8ER11ER$"SYNTAX ERROR"922X3((I$,K3))&2CLK013200T,3CLB%(CL):(T$(CL)"***")(CLK0)13100b3SFF%(CL)w3F%(CL)K013999X4CLF%(CL):T$(CL)"***"133004SLCL:(I$,K2)"RR"13999 5X3X3K1:X3K0ī1330066ER(222):ER$"READ OR WRITE ERRO)102000*ST$(ST)""30000$*5*SFK011300G+SLK011999U$,K1:KB26p,"UNDEFINED BLOCK";KG${,30600..T$(CL)L$/CP:K3:L$;:646680/KQ34,K2D/KR35,CPX/912l/KQ34,K0/KR35,KS24/CP:K3/W$;$""#ZZB$"/*"23440*#ZDSK123280@#ZZB$""ZB$"***"J#Z2000`#[CLKHWARN23440o#[T$(CL)ZB$z#,[23240#@[ER(222)#T[ERK523440#h[RI1:14000#|[23060#[D$;"CLOSE ";FL$#[216,0#[CLF%(K0)#[MDK0#]30000X$]:: ==> ";SI$%"bZD2I2$"1":23140z"cZ::"READ FROM DISK DRIVE 1 OR 2 ?"::" ==> ";I2$:I2$"1"I2$"2"23139"dZD$;"VERIFY ";FL$",D";I2$:D$;"OPEN ";FL$"iZLF23220"ZSI$"N"24000"ZSI$"Y"23135"ZD$;"READ ";FL$#ZIA:ZB$ZBI$"1"23130J!WZDSK1LFK1ĺ:"THIS MUST BE A DATA ('D.') FILE":23040!XZDSK2LFK2ĺ:"THIS MUST BE A PREFORMATTED ('P.') FILE":23040!YZ23135!ZZLFDSLF:23138!_ZLF23138 "aZ::"WAS THIS FILE SAVED BY THE EDITOR? (Y OR N)"::" L$ 2ZFL$""30000. ";I2$:I2$"1"I2$"2"23110 IZFL$FL$",D"I2$ KZD$;FL$:23060 PZ23360 TZLFK0:(FL$,K2)"D."LFK1 UZ(FL$,K2)"P."LFK2 !VZI$"1"23000 UI$"2"21000_U::"IS THIS A DATA FILE? (Y OR N) ==> ";I$:I$"N"33000xUI$"Y"DSK1:33000U21922YMDK1Z:Z:"WHAT DISK FILE DO YOU WANT ?"::"TYPE 'CATALOG' TO SEE FILES ON THIS DISK":: (Z" ==> ";FII101(Q(I)0ĺD$;"PR#0":20920.Q=QULSWČ814R:"GT ESTATE WORDPROCESSOR EDITOR V. 2.7"::"COPYRIGHT SPEICHER SYSTEMS 1981"::::"WHERE IS TEXT COMING FROM ?":::" 1 = DISK"::" 2 = KEYBOARD"(U::" ==> ";I$ U(X):KHWARNXKB26:XK0LQD$;"PR#0":(768)169(787)37(811)10820980eQD$;"BLOAD MACHSUBS"Q768:1013,76:1014,96:1015,3QULSW(767):SL$((766)):D2(764):I763:LF$"":(765)LF$(10)Q(I)0SU$SU$((I)):II1:20985 QI7PKC$(3):KE$(5):KF$(6):KG$(7):KH$(8):KI$(9):KK$(11):KL$(12):KM$(13):KN$(14):KP$(16):KR$(18):KS$(19):KT$(20):KX$(24)PKA$(1):KB$(2):KD$(4):KO$(15):KU$(21):KZ$(26)QCL0:NL1:X(0):XX44:T$(X):F%(X):B%M$(92):D$(13)(4)FNK00:K11:K22:K33:K44:K55:K6565:K9090NKA2020:KB2626:KC2828:KG3232:KF3838:KD100100:KE128128:KHWARN525:KI1212:KJ99:KK20002000:KL1515:KM4040:KN1000010000:KP4040:KQ3434:KR3535:KS2424:KT4141:KU3939:KV37340315-D2I2$"1":40388r-::"STORE ON DISK DRIVE 1 OR 2 ?"::" ==> ";I2$:I2$"1"I2$"2"40382-ĝD$;"OPEN";I$;",D";I2$:D$;"DELETE ";I$:D$;"OPEN ";I$-ƝD$;"WRITE ";I$-НXF%(K0):X6$"SB"XSF-ҝDSK140410 .ԝT$(X)""O$H 'D.'"::40320s,LFK2DSK2ĺ:"THIS IS NOT A PREFORMATTED FILE AND SHOULD NOT BEGIN WITH 'P.'"::40320,DSK2LFK2ĺ:"THIS IS A PREFORMATTED FILE AND SHOULD":"BEGIN WITH 'P.'"::40320,40350,40380,RI3:14000-I$X6$:X6$I$+" ==> ";I$,+I$""30000K+LFK0:(I$,K2)"D."LFK1d+(I$,K2)"P."LFK2+LFK1DSK1ĺ:"THIS IS NOT A DATA FILE AND SHOULD":"NOT BEGIN WITH 'D.'"::40320,DSK1LFK1ĺ:"THIS IS A DATA FILE AND SHOULD":"BEGIN WIT*T$(CL)ST$(K2)((XT$,KL1))E*6KK1T$(CL)((XT$,KK1))T$(CL)S*JDS33990m*h(T$(CL))KF38İ9000x*33990*CLF%(K0)*o30000*pFCKN10000*87000*CLX*W30000*@I$"SB"İ11000*{:::"SAVED TEXT SHOULD BE NAMED":+}P"FCKA20)}7000)瀫313002)耭I$"IT"CLK0B)LSDK0:3000L)ƄSVK1W)τ30000e)ЄT$(CL)""s)XFF%(CL))XBB%(CL))F%(XB)XF)B%(XF)XB) F%(CL)K0)B%(CL)K0)"CLXF),CLK0CLXB)33990)4000)30000)4000S"I$"SB"40000*(.wI$"P"I$"PB"56000<(8wI$"E"42000T(Lw(I$,K1)"L"47000b(`wK1:KB26}(tw"INVALID COMMAND";KG$(wXXK1KK5000:(w30000(yBC((I$,K2))(|yI$"UP"BCKA20(y6000(DzCLX(|30000(}FC((I$,K2)) )d}I$"D46000'fv(I$,K2)"UR"540006'pv(I$,K1)"U"31000O'zv(I$,K2)"DR"55000g'v(I$,K1)"D"32000'vI$"I"I$"IT"33000'vI$"X"34000'vI$"F"35000'vI$"C"36000'vI$"T"37000'vI$"B"38000'wI$"M"ė:SVK1:23000($wI$"&u(I$,K2)"RB"480008&u(I$,K2)"RR"İ13000:48000Y&u(I$,K2)"XR"İ13000:49000z&u(I$,K2)"MR"İ13000:50000&uI$"XB"49000& vI$"MB"50000& v(I$,K2)"RL"43000&*vI$"ML"51000&4vI$"RF"44000&HvI$"RC"45000'\vI$"SP"RI2:14000%a23440!%0u1000-%XuK1:K5Y%lu" ENTER COMMAND"e%uK1:K5p%u"";I$%uI$"BF"SFCL:30040%uI$"BL"SLCL:30040%uI$"RD"53000%uI$"BD"SDCL:30040%uI$"LD"SDCL:30040%uI$"CA"52000"DO YOU WANT IT FORMATTED FOR THE GT ESTATE WORDPROCESSOR (Y OR N)"::" ==> ";SI$r$]SI$"N"DSK3:23220$]SI$"Y"24000$]24900$]D$;"READ ";FL$$]IA:ZB$ZB$""$^2000$`T$(CL)ZB$:(ZB$)KV37İ9000$a24050 %Da(222)K5$""#ZZB$"/*"23440*#ZDSK123280@#ZZB$""ZB$"***"J#Z2000`#[CLKHWARN23440o#[T$(CL)ZB$z#,[23240#@[ER(222)#T[ERK523440#h[RI1:14000#|[23060#[D$;"CLOSE ";FL$#[216,0#[CLF%(K0)#[MDK0#]30000X$]:: ==> ";SI$%"bZD2I2$"1":23140z"cZ::"READ FROM DISK DRIVE 1 OR 2 ?"::" ==> ";I2$:I2$"1"I2$"2"23139"dZD$;"VERIFY ";FL$",D";I2$:D$;"OPEN ";FL$"iZLF23220"ZSI$"N"24000"ZSI$"Y"23135"ZD$;"READ ";FL$#ZIA:ZB$ZBI$"1"23130J!WZDSK1LFK1ĺ:"THIS MUST BE A DATA ('D.') FILE":23040!XZDSK2LFK2ĺ:"THIS MUST BE A PREFORMATTED ('P.') FILE":23040!YZ23135!ZZLFDSLF:23138!_ZLF23138 "aZ::"WAS THIS FILE SAVED BY THE EDITOR? (Y OR N)"::" L$ 2ZFL$""30000. ";I2$:I2$"1"I2$"2"23110 IZFL$FL$",D"I2$ KZD$;FL$:23060 PZ23360 TZLFK0:(FL$,K2)"D."LFK1 UZ(FL$,K2)"P."LFK2 !VZI$"1"23000 UI$"2"21000_U::"IS THIS A DATA FILE? (Y OR N) ==> ";I$:I$"N"33000xUI$"Y"DSK1:33000U21922YMDK1Z:Z:"WHAT DISK FILE DO YOU WANT ?"::"TYPE 'CATALOG' TO SEE FILES ON THIS DISK":: (Z" ==> ";FII101(Q(I)0ĺD$;"PR#0":20920.Q=QULSWČ814R:"GT ESTATE WORDPROCESSOR EDITOR V. 2.7"::"COPYRIGHT SPEICHER SYSTEMS 1981"::::"WHERE IS TEXT COMING FROM ?":::" 1 = DISK"::" 2 = KEYBOARD"(U::" ==> ";I$ U216,0:14000'l9::ER$;KG$;KG$;KG$9:"ENTER DOS COMMAND OR PRESS RETURN TO CONTINUE ON":::" ==> ";:IA:ZB$ZB$"":IA$ZB$:IA$"":D$;IA$:14800:216,0:RI23420,24950,40370 NST$(2):Q$(34):Q2$(123):SP$(32):ES$(27):FR":ER6ER$"FILE NOT FOUND"R7ER13ER$"THIS IS NOT TEXT -- IT IS A PROGRAM"x7ER4ER$"THIS DISK IS WRITE PROTECTED"7ER9ER$"THIS DISK IS FULL"@8ER10ER$"THIS FILE IS ALREADY ON DISK AND IS LOCKED"8ER11ER$"SYNTAX ERROR"922X3((I$,K3))&2CLK013200T,3CLB%(CL):(T$(CL)"***")(CLK0)13100b3SFF%(CL)w3F%(CL)K013999X4CLF%(CL):T$(CL)"***"133004SLCL:(I$,K2)"RR"13999 5X3X3K1:X3K0ī1330066ER(222):ER$"READ OR WRITE ERRO)102000*ST$(ST)""30000$*5*SFK011300G+SLK011999U$,K1:KB26p,"UNDEFINED BLOCK";KG${,30600..T$(CL)L$/CP:K3:L$;:646680/KQ34,K2D/KR35,CPX/912l/KQ34,K0/KR35,KS24/CP:K3/W$;(CL)K0CLF%(CL)9ګ54500?9XF%(K0):I$"PB"İ11000:XSFV9$ۺD$"PR#";SL$:SU$;t9ۺD$"NOMONI,O,C":768:" "9ۺT$(X):LF$;9PܭF%(X)K0567009ܭI$"PB"XSL567009XF%(X):563009|ݺD$;"PR#0":768:ULSWČ8149ޫ409998ӭB%(CL)K0CLB%(CL):54100*8ԫ30000D8X3X3K1:X3K054200r8CLB%(CL):(CLK0)(T$(CL)"***")545008CLF%(CL):300008X3((I$,K3))8<׭T$(CL)"***"554008׭F%(CL)K0CLF%(CL):551008ث545008hX3X3K1:X3K0552009حF%07XBF%(CL)07ͭ(T$(CL))KF38İ9000:52630Q7ͭF%(CL)XBCLF%(CL):52630\7ͫ52140w7CLF%(K0):SVK1:306007ϭT$(CL)"***"CLF%(CL):530007SDCL:300007X3((I$,K3)):(T$(CL)"***")(B%(CL)K0)CLB%(CL)7TӭT$(CL)"***"54400):CL521006˫52999.6L1(ST$):K(KB26)J6Ḽ(KL1K1)(XT$)52610r6̭(XT$,K,L1)ST$(K1)KKK1:523006T$(CL)ST$(K2)((XT$,KL1)):KK1T$(CL)((XT$,KK1))T$(CL)6}XT$T$(CL):KK(ST$(K2)):523006ͺXT$7ͭDS(T$(CL))KF3852656505Pð110005XBB%(SF)*5JXFF%(SL)85|F%(XB)XFF5B%(XF)XBT5XFF%(SD)b5DF%(SD)SFp5B%(SF)SD~5 F%(SL)XF5pB%(XF)SL57ǫ4865058SFCL5SLCL5˫500005 CLF%(K0):4000:5XT$T$(CL):XT$,ST$:(KB26)52200 6CLF%(CLK0) 4tSFSLSFF%(SF):48150&404CLSDA4ؽCLK0CLK1J4 SF0S4 ";I$:I$"P"ĺD$"RUNPRINTER,D1"00I$"E"Ĭ0bI$"X"427000v429000D$"VERIFYBMS,D1"1:"GOODBYE FROM THE GT ESTATE WORDPROCESSOR":"/*"/>D$;"CLOSE ";I$"/HSVK0-/R216,0@/X6$"Y"42000W/'SFK0:SLK0:30000]/n/SVK042700/ؤ:"DO YOU WANT TO SAVE ANYTHING ?"/<::"(Y OR N) ==> ";I$/I$"N"42700/I$"Y"ĺ::40315/h42000W0̦:::"DO YOU WANT T" ":40460).֝T$(X)"***"O$"":404606.ڝO$T$(X)O.䝭(O$,K1)" "40460k.靭DSK1((O$)K3)40460{.X1(O$)K1.O$(O$,X1).40420. O$.F%(X)K040500.X6$"SB"XSL40500. XF%(X).*40402.4DSK1((O$)K1)ĺ/9:K1:"STRING";ST;"==>";29):K1:KI120'5000B (X$KM$10800U<(X$KH$10550jn(XL(ST$(ST))K1(XLK1ST$(ST)""(XLK0ST$(ST)(ST$(ST),XL))106006)ST$(ST)ST$(ST)X$h)K1:KI12)ST$(ST);" ")K1:(KI12(ST$(ST)))00#T$(CL)(T$(K0),K)C#(T$(CL),K1)" "T$(CL)(T$(CL),K2)\#(T$(CL))KV379000f,$9999zT$KXX(T$(CL))^$(T$(CL),K,K1)" "9141h$r$T$(K0)T$(CL):2000:KXXK1:T$(CL)FM$"AD"FM$(T$(K0),K):9200''ST$(ST)""&'K1$XZ$ '#0(#XX(T$(CL))K2:XXKV37XXKV37Cx#KXXK1(K1)Y#(T$(CL))K2999v#(T$(CL),K,K1)" "9141|##T$(K0)T$(CL):T$(CL)(T$(CL),KV37):2000:T$(CL)FM$"AD"FM$(T$(K0),KF38):9200#T$(K0)T$(CL):T$(CL)(T$(CL),K)#20F%(X)K07999XF%(X) L&?<@X2CL:ST$ST$(K1)bTXT$T$(CL):XT$,ST$:(KB26)8240pCLF%(CL)CLK08020CLX2:K1:KB26:"NOT FOUND ";KG$ IK1KK5000: 300000 L1(ST$):K(KB26)"I$"C"XZ$XT$:1000:XT 120005000L$"")2000330909CSTK1Nh10000X8000o0(I$,K1)"F"4999ySTK210000GT:X$((30))opXCL8IK1BCB%(X)K06999XB%(X)dWXXCL IK1FCW$"":3600 X$KF$3490) X5$"F"D 5000:X5$X5$X$:3340Q W$W$X$ (W$)KF38X5$L$W$:L$(X5$,KF38):W$FM$"AD"FM$(X5$,KU39):3600 DS3530 (L$)(W$)KV373600 X$; X$" "3080 L$L$W$ W$""3080f X$KC$X5$"C":33404k X$KU$X5$"U":3340Np X$KK$X5$"K":3340hu X$KO$X5$"O":3340z X$KP$X5$"P":3340 X$KN$X5$"N":3340 X$KT$X5$"T":3484 X$KZ$X5$"Z":3484 X$KI$X5$"I":3340  X$KM$L$L$W$:)3380 12000 2000%* L$""24 L$L$W$=> W$XW$Y@ XW$"***"XW$"":3345jH L$""3600tM X$W$~R 3510\ X$KR$X5$"R":3340] X$KA$X5$"A":3340^ X$KB$X5$"B":3340_ X$KD$X5$"D":3340a X$KS$X5$"S":3340)W$ 3999 DSK13327; X$KR$XW$"***":3345U X$KM$XW$"":3490q XW$"":L$W$""W$" "{ 3345 X$KL$3420 X5$"L" XW$FM$X5$FM$ (DSK1)(X$KR$)((L$W$))L$L$W$:W$"":3350 ((L$W$)KF38)(DSK135 v XL(L$)K1# XLK03230- L$""7 3235O XLK0L$(L$,XL)| CP:K3:L$W$" ":CP:(K4(L$)(W$)) 3510 X$KE$3320 T$(CL)L$W$ T$(CL)""34000 ((T$(CL))KU39)(DS)3999 T$(CL)L$ 2000 T$(CL NLK2ė:1320:CPKI12:3050' 1000Y K1:"TYPE INSERTED TEXT CTRL E TO END"j CPK0CPK3v CP:K3  5000  X$KZ$3490 & X$KH$3250 0 XL(W$)K1 : XLK03160 D W$"" N 3235 X XLK03190 b W$(W$,XL) l 32 . NLNLK1 ` CLKHWARN2999, :KI12 MDĺ"********DISK FILE TOO LARGE ********":"********* PARTIALLY LOADED **********":2600 "********** DO A SAVE SOON **********" ( KG$;KG$;KG$ Z XXK1KK5000: L$"":W$"" 2000 ۭXCLCPIK3 1240) XXKF38:1166D (IK2):X1$;" ";T$(X)W F%(X)K01300e XF%(X):q K1:K1 ("==> ":"----------------------------------------"  NXF%(CL) 4F%(CL)NL fB%(NL)CL F%(NL)NX B%(NX)NL CLNL2 (T$(X))KF381200/ XXKF38:XT$T$(X)Q XXXXK1:XXK1XXKL15:1170m (XT$,XX,K1)" "1166 (IK2):X1$;" ";(XT$,XXK1);">":IIK1:IKA201300 (XT$)KF381240 XT$"<"(XT$,XX):(XT$)KF381180 (IK2):X1$;" ";XT$:1 31,0ZB$""X HM(116)256(115):(HM)164(HM64)208(HM121)16940fHMHM160(4);"BLOADKEYIN,A";HM(HM<GTHM:IAHM128d20000:CLK013008BCKJ9:6000`IK1KA20tX1$" " XCLX1$"*":CPIK                   TTOM MARGIN AND FORM LENGTH>CONFLICT OF LEFT MARGIN AND RIGHT MARGIN,TAB GREATER THAN COLUMN 132,NO TAB SETTING,HEADING NUMBER GREATER THAN 20,TAB NUMBER GREATER THAN 9,TAB BEYOND END OF LINEA5200!=16000:D$"VERIFYBMS,D1"G=:::"GOODBYE FROM WRITE-ON!":>@END OF COMMAND BEFORE BACKSLASH,INVALID CHARACTER IN COMMAND,UNKNOWN COMMAND,INDENT GREATER THAN LINE LENGTH,MISSING NUMBER,CONFLICT OF TOP MARGIN AND BOTTOM MARGIN,CONFLICT OF BO$(I3)ZB$:DD$(I3)"/*"340003<DD$(I3)""33800O<@DD$(I3)" "DD$(I3)""c ";I$:I$"P"F 9DzILL%9zIK0BRK1:ILL:31600H9 {(L$,I,K1)" "IIK1:31400Z9p{X$(L$,IK1)i9{L$(L$,I)~9{XPXPK0:318009|(L$,K1)" "L$(L$,K2):3175098|50009|L$X$9}312009d}80009}PF$""P$"/*":10000:32400:}CLMTİ6000"P."ĺD$;"MONO":D$;"OPEN ";PF$;",D";DR$:D$;"DELETE ";PF$:D$;"OPEN ";PF$:307008w:"FILE NAME MUST BEGIN WITH 'P.'":306808wDF330008PxFIK0:11000:10008yL$""L$I$:312008JyXZL$L$I$:XZK0:312008|yL$L$" "I$9y(L$)LL1040 ==> ";I$:I$"1"30700*7wI$"2"306607w:"PRINT-IMAGE DISK FILE SHOULD BE NAMED"::" ==> ";PF$:DR$"1":D2306867w::"PREFORMATTED FILE WILL BE STORED ON DRIVE # (1 OR 2) ?"::" ==> ";DR$:DR$"1"DR$"2"30684R8w(PF$,K2)6ow(FL$(FI),K2)"/2"30400b6twDR(K0)(FL$(FI))K2:FL$(FI)(FL$(FI),DR(K0)):DR(FI)K2:30400x6wFL$(FI)""306506wFL$(K1)""324006wDF330007w:"WHERE WILL THE OUTPUT GO?"::" 1 = PRINTER":" 2 = PRINT-IMAGE DISK FILE"::" WHEN FINISHED LOOKING AT FILES":I$::30500R5Bw(FL$(FI))K2DR(FI)K1:30400x5Lw(DF)((FL$(FI),K2)"D.")DFFI5`w(DF)((FL$(FI),K2)"D.")ĺ:"THIS MUST BE A DATA FILE":"(BEGINNING WITH'D.')"::"TRY AGAIN"::305005jwDR(FI)K1:D230400K"::4vFIFIK1,4$w" ==> ";FL$(FI)B4.wFL$(FI)""30650`48wFL$(FI)"CATALOG"30530o4:wD2305284 ";DR$:DR$"1"DR$"2"305244>wFL$(FI)FL$(FI)",D"DR$.5@wD$;FL$(FI)::"PRESS RETURN KEY703{uIII101%3u(I)030050+3u\3u"WRITE-ON! PRINTER PROGRAM 2.12":3u"COPYRIGHT SPEICHER SYSTEMS 1981":4\v:"LIST DISK FILES TO BE PRINTED":"PRESS RETURN KEY AFTER LAST FILE"::"TYPE 'CATALOG' TO SEE THE FILES ON THIS DIS(K1)9:RS(K1)70:LS(K2)29:RS(K2)79:LS(K3)19:RS(K3)60F2]DF33000q20u(768)169(787)37(811)108300602bu16000:D$"BLOAD MACHSUBS"2lu:ULSW(767):SL(766)48:D2(764):I763:LF$"":(765)LF$(10)3vu(I)0SU$SU$((I)):II1:300:DFK0:DCK1C1UTB%(K9):HD$(20):FL$(100):DR(100):LS(3):RS(3)d1"VEC$(13):EC113:EC$(EC):1YFLKA66:PGK1:PIK0:MTK0:MBKA66:MLK0:MRKB79:LLMRML:LCMBK2:CLK0:SPK1:JYK1:NCK0:PF$""1YPL$"":PR$"":PTK0:PBK1:PZK3:PXK0:XPK082 ZLS6:K99:KA6666:KB7979:KC7575:KD10001000:KE132132:KF128128:KG3232:KH9090:KI6565:KJ20200RD$(4):KA$(1):KG$(7):KH$(8):KM$(13):BS$(92):ES$(27):QT$(34):UL$(95)0SRIK1KE132:SS$SS$" ": 1bRM2208:M364:M494:M5206:M693:M7205:CLCLK2/:!/:XC$(XC$,K3):/:XC$"T"PTK1:PBK0S/`;XC$"B"PTK0:PBK1f/;XC$"L"PZK1y/(1580/>0:0:1002:D$"PR#0"::^0 NK00:K11:K22:K33:K44:K55:K6PAGE NUMBER .7X10:145004.x7X1X1K2:14500.7XL$(PG):XL$(XL$,K1):XL(XL$):XL14500,14100,14500,14100,14500,14100,14500,14100,14500.@814100.8X1X1$(SS$,X1)X1$.9MLK0X1$ML$X1$.l9PXPXK0:X1$"" /9P$X1$:10000:PGPGK1$LZ$-\5XIOSK1:LW(LW$)K42-p5OB(XI)13820`-5OB(XI)OB(XI)LW:OE(XI)OE(XI)OE(XI)LWt-5XIXIK1:13680-5OB(OS)K0:OE(OS)OB(K1)K1-6OE(OS)K0:OSOSK1:13520-6.6X1$PL$(PG)PR$:X1LL(X1$):PZ14100,14500,14200,14300:PRINT 4LX$"":LZ$"":OB(OS)K1LX$(L$,OB(OS)K1)S,4OE(OS)LW$(L$,OB(OS)):13600, 5LW$(L$,OB(OS),OE(OS)OB(OS)K1):OE(OS)(L$)LZ$(L$,OE(OS)K1), 5LY$"",45XIK1(LW$):LY$LY$(LW$,XI,K1)KH$(LW$,XI,K1)KH$(LW$,XI,K1):-H5L$LX$LY)UE(XI)LW+3XIXIK1:13180)+3XIK1<+3OB(XI)13320d+3OB(XI)(LX$LW$)OB(XI)OB(XI)LW+3OE(XI)(LX$LW$)OE(XI)OE(XI)LW+3XIXIK1:13260+4UB(US)K0:UE(US)UB(K1)K1+4UE(US)K0:USUSK1:13020+4OSK1+4OB(OS)13999.,S)):13100S*3LW$(L$,UB(US),UE(US)UB(US)K1):UE(US)(L$)LZ$(L$,UE(US)K1)l*,3LY$"":LW$""13240*@3XIK1(LW$):LY$LY$(LW$,XI,K1)KH$UL$:*T3L$LX$LY$LZ$*h3XIUSK1:LW(LW$)K2*|3UB(XI)13240 +3UB(XI)UB(XI)LW:UE(XI)UE(XI81UB(US)129990)1UB(US)X1UB(US)UB(US)K1P)2UE(US)X1UE(US)UE(US)K1d)d2USUSK1:12600j)2)2USK1:ROUTINE TO DO UNDERLINING AND OVERSTRIKING)2UB(US)13500)2LX$"":LZ$"":UB(US)K1LX$(L$,UB(US)K1) *3UE(US)LW$(L$,UB(U99:OPEN PRINTER ((\+D$;"WRITE ";PF$.(.(.OSK1:UPDATE OVERSTRIKE BEGINNING AND ENDING MARKERS WHEN A CHARACTER IS ADDED TO A LINE(D/OB(OS)12500(/OB(OS)X1OB(OS)OB(OS)K1( 0OE(OS)X1OE(OS)OE(OS)K1(p0OSOSK1:12100(0USK1)K1)OB(K1)X1K1:OE(K1)(L$)C'$UB(K1)UB(K1)X1K1:UE(K1)(L$)M',$BRK1W'@$5000b'T$SC$""h''''PF$""ĺD$;"WRITE ";PF$:P$::PRINT A LINE 't'P$""P$" "')P$'*LF$""ĺLF$'*(*PF$""ĺD$;"PR#0":D$;"PR#";SLOT:SU$;:119LLMRML:MSK0:OMMSK2&'#P&(#(SC$,K2)"HD"9160:PROCESS SAVED COMMANDSb&<#XB$(SC$,K3)p&P#XB(XB$)&d#XIK1KJ20&x#XIXBHD$(XI)L$&#&#L$""⑔LL(L$)&#SC$"C"X1X1K2:X1(X1)L$(SS$,X1)L$'$OB($(XI)))K2:P$(SS$,X1)ML$HD$(XI):10000:CLCLK19%W%FXXP$"":10000:CLCLK1]%?u%@BRK1:BREAK A LINE%L$""İ5000%BRK0:XC$"C"XC$"R"8200%OB(K1)K0:UB(K1)K0% MS8999%l XC$"LS"ML$OM$(OM):OMOMK1& ML(ML$):P$:"POSITION PAPER AT THE TOP OF THE FORM AND PRESS RETURN KEY WHEN READY"\$ "";XI$g$R11000u$MT7500$I2K1MT$P$"":10000$$LCLMT$`PGPTİ14000:P$"":10000$~XXK0$XIK1KJ203%HD$(XI)""XXK1:X1(LL(HD #oXYK0:*#pPF$""6999:END OF PAGEQ#CLLCP$"":10000:CLCLK1:6120a#CLLC6000#PGPBP$"":10000:14000#CLFLP$"":10000:CLCLK1:6860#CLK0#EJİ7000#W#XNCFX7300:START A NEW PAGE #lFXK1#16000:FTK1$"(L$"")(PP)BRK0:52708"BRBRK0:5250F"PJYİ3000`"OB(K1)UB(K1)İ13000r"MLL$ML$L$"MSK1MSK2:ML$(SS$,ML)"XSSPK1"P$L$:10000"L$"""JCLCLK1"|(LCCL)(PF$"")İ6000:5999"XSXSXSK1:5350(L$)3360!p 3380K! L$(L$,X1)" "(L$,X1K1):OB(K1)UB(K1)İ12000^! (L$)LL3999q! X1X1K3:3420w!! GET X$ (NEXT CHARACTER)!GT:X$((30))!!(FTK1)(PF$"")5140:END OF LINE, IF FIRST TIME DO HEADINGS "7000 l (L$,X1,K1)" "3260% X1X1K16 X1X23160@ 3180v L$(L$,X1)" "(L$,X1K1):OB(K1)UB(K1)İ12000 (L$)LL3999 X1X1K2 3220 SW$"L" X1X2K1:X3X3K1:X3KJ203999 4 (L$,X1,K1)" "3460 H X1X1K1 !\ X11040 310008 L$""L$" "3999:JUSTIFY A LINE h (L$,K1)" "XL(L$)K1:L$(L$,XL):3000u XL(L$) XLLL3999 X2K1:X3K0 (L$,X2,K1)" "X2X2K1:31000 SW$"R"3340D SW$"R"X X1(L$)K1:X3X3K1:X3KJ203999" "ML$ML$" "5, L$"":ML(ML$):MSK1:BRK0:1630?1 8000Z6 XC$"D"L$" ":5000{; XC$"A"MLLS(K1):MRRS(K1)@ XC$"B"MLLS(K2):MRRS(K2)E XC$"D"MLLS(K3):MRRS(K3)J ML$"":MLML$(SS$,ML)O 1630T PPL$I$:BRK1:5000:G DISK FILE ";FL$(FI)s :"HEADING COMMANDS CANNOT BE PROCESSED":"WHEN CREATING A PREFORMATTED PRINT-IMAGEFILE" :"PLEASE VERIFY THIS DISK FILE AND CORRECTIT IF NECESSARY":35000 OMOMK1:OM$(OM)ML$:ML$ML$L$ XZK0:XYK0" (ML$,K1)I),K2)"D."33000 1000 (XC$"CY")(XC$"CN")(XC$"SP")(XC$"PG")(XC$"MT")(XC$"MB")(XC$"FL")(XC$"N")İ8000:P$BS$XC$XN$BS$:10000:2520 XC$"HD"1263 D$;"PR#0"::"HEADING COMMANDS (";BS$;"HD";BS$;") FOUND WHEN":"PROCESSIN)K1:D22710, (FL$(FI),K2)"/2"2710i DR(K0)(FL$(FI))K2:FL$(FI)(FL$(FI),DR(K0)):DR(FI)K2~ FL$(FI)""2580 (FL$(FI),K2)"D."33000 FIFIK1 11000 16000:D$;"CLOSE ";FL$(FI):11000 (FL$(FI))K21000 (FL$(FZ IN$"2"26909_ ((FL$(FI),K2)"D.")(IN$"3")34000Kd IN$"3"2730^n IN$"4"32400s IN$"5"ĺD$;"CATALOG"::"PRESS RETURN KEY WHEN FINISHED LOOKING AT FILES";I$x 2580 ::"ENTER NEW FILE NAME": " ==> ";FL$(FI) DR(FILE"+( :" 2 - RETRY WITH ANOTHER FILE"T2 :" 3 - SKIP THIS FILE AND GO ON"u< :" 4 - END THIS PROGRAM"A :" 5 - DISPLAY FILES ON THIS DISK"F :" ==> ";IN$K ((FL$(FI),K2)"D.")(IN$"1")33000P IN$"1"FIFIK1:2730 2520  XNKJ20EC11:23900 SC$XC$XN$? ILN1040Q I$(I$,IK1)[ 1080y ER(222):ERROR HANDLING 216,0 16000 :"ERROR PROCESSING ";FL$(FI);" FILE"::"WHAT DO YOU WANT TO DO ?": :" 1 - RETRY WITH THE SAME FI:10000:P$"*** FORMAT COMMAND ERROR *** "EC$(EC):10000:ERROR ROUTINE i` P$I$:10000:P$"":10000sj 2520t SC$XC$:SAVE COMMAND UNTIL LINE COMPLETEDy 8000~ XC$"HD"2520 XN2500 XIK1KJ20 HD$(XI)""  SC$""X$KH$2270XL(XI$)K15XLK1XI$"":2280GXI$(XI$,XL)Q2280`XI$XI$X$lK3:K1yXI$;" "K3:(XI$)K1 2200 I$XI$(I$,IK1) KA$;:11000:1080. I$(I$,IK1)8 I$L$I$B L$""L 2999KV P$""$(SS$,XNK1)XPK1"25205 PGXN:PAGE NO?*LCMBT4PGPTLCLCK2^>2520HXC$(XC$,K2):KEYBOARD INPUT ROUTINER16000f:768pULSWČ814z"ENTER ";XC$;KG$XI$""K3:K14000X$KM$ĖK1:2320  XIIK1XNb6000l'v2520>BRK1:NEW LINE(S)H8000UXNXNK1eXNK12520sIIK1XN}500025208000:NEW PARAGRAPH5000PI2520XNPI20408000:INDENTXNK1EC5:2390L20XNK91710:TAB7XNTB%(XN):XNEC10:2390NXNLLEC13:2390cXN(L$)İ8000s!XZK1:XYK1&BRK1:XNXN(L$)K1:XN2520+XPK10L$L$(SS$,XN):2520NNEW PAGE(S)S8000UXNXNK1:CLMTİ6000VXNK12520MLML$(SS$,ML)16304XNMBFLXN:2520CEC7:2390eXNK9EC12:2390:TAB CLEAR~XNTB%(XN)K0:2520IIK1K9TB%(II)K02520XI((XN$,K1)):XN((XN$,K2)):XNKE132EC9:2390:TAB SETTB%(XI)XN:25CK5:2390!XNMBMTXN:25201ECK6:2390GXNFLEC7:2390^XNMTECK6:2390h"MBXNr,LCMB6PGPTLCLCK2@2520JXNMLEC8:2390TMRXN^LLMRMLh2520rXNXNK1|XNMREC8:2390MLXN:ML$""20OB(OS)(L$)K2:2520/XC$"U"1493JUE(US)USUSK1:1488iUB(US)UE(US)(L$):2520(L$)K0UB(US)K1:2520XYUB(US)(L$)K1:2520UB(US)(L$)K2:2520ECK3:2390XNLLPIXN:2520EC4:2390 XNEXC$"MAR"RS(K1)XN:2520<XC$"MBR"RS(K2)XN:2520[XC$"MDR"RS(K3)XN:2520mXC$"S"2840OSK1:USK1:XC$"O"1487OE(OS)OSOSK1:1482OB(OS)OE(OS)(L$):2520(L$)K0OB(OS)K1:2520XYOB(OS)(L$)K1:25420XC$"HD"2420>(XC$,K2)"PL"PL$(XC$,K3):2520f(XC$,K2)"PR"PR$(XC$,K3):2520(XC$,K2)"PP"15000(XC$,K1)"K"2120XC$"MAL"LS(K1)XNK1:2520XC$"MBL"LS(K2)XNK1:2520XC$"MDL"LS(K3)XNK1:2520XC$"MB"1550) <XC$"MR"İ8000:1610C FXC$"ML"İ8000:1650V PXC$"FL"1690i ZXC$"TC"1710| dXC$"TS"1770 nXC$"T"1790 xXC$"N"1870 XC$"L"XC$"LS"1920 XC$"P"1980 XC$"I"2030 XC$"C"2420XC$"R"2(XN$)/ XC$"F"I$DD$(XN)(I$,IK1):1080A PF$""2800[ XC$"CY"NCK0:2520u XC$"CN"NCK1:2520 XC$"JN"JYK0:2520 XC$"JY"JYK1:2520 XC$"SP"SPXN:2520 XC$"PI"1500 XC$"PG"2080 (XC$"MT"1520 20 LT$"9"1200, LT$"0"ECK2:2390< XN$XN$LT$F 1120l LT$"Z"X(LT$):XX32:LT$(X)| XC$XC$LT$ 1120 (XC$,K1)"K"2120 XC$"AD"2350 SC$""İ9000 XC$"A"XC$"B"XC$"D"2865 XNK0 (XN$)XN""İ9000 42740+ 8(I$,K1)BS$29008 BLN(I$)c LXC$"":XN$"":PROCESS FORMAT COMMANDSl VIK1w `IIK1 jILNILN:ECK1:2390 tLT$(I$,I,K1) ~LT$BS$1230 (XC$,K1)"K"1210 (XC$,K2)"PL"1210 (XC$,K2)"PR"121EJK1:32100+ (FL$(FI),K2)"P."PPK1F PPL$""BRK1:5000Q 2550 16000:D$;"VERIFY ";FL$(FI);",D";DR(FI):D$;"OPEN ";FL$(FI):11000 2550 16000:D$;"READ";FL$(FI) $IA:ZB$ZB$"":I$ZB$:11000 .I$"/*"1080 1SC$6 31,0ZB$""X HM(116)256(115):(HM)164(HM64)208(HM121)16940fHMHM160(4);"BLOADKEYIN,A";HM(HM<GTHM:IAHM128d20000FIFIK1:PPK0:GET NEXT FILEFL$(FI)""EJK1:32100 (FL$(FI),K2)"D."                                OM MARGIN,CONFLICT OF BOTTOM MARGIN AND FORM LENGTH>CONFLICT OF LEFT MARGIN AND RIGHT MARGIN,TAB GREATER THAN COLUMN 132,NO TAB SETTING,HEADING NUMBER GREATER THAN 20,TAB NUMBER GREATER THAN 9,TAB BEYOND END OF LINE35200&=16000:D$"VERIFYBMS,D1"_=:::"GOODBYE FROM THE GT ESTATE WORDPROCESSOR!":3>@END OF COMMAND BEFORE BACKSLASH,INVALID CHARACTER IN COMMAND,UNKNOWN COMMAND,INDENT GREATER THAN LINE LENGTH,MISSING NUMBER,CONFLICT OF TOP MARGIN AND BOTT"":DD$(I3)ZB$:DD$(I3)"/*"340008<DD$(I3)""33800T<@DD$(I3)" "DD$(I3)""h ";I$:I$Ы10409DzILL*9zIK0BRK1:ILL:31600M9 {(L$,I,K1)" "IIK1:31400_9p{X$(L$,IK1)n9{L$(L$,I)9{XPXPK0:318009|(L$,K1)" "L$(L$,K2):3175098|50009|L$X$9}312009d}80009}PF$""P$"/*":10000:32400:}CLMT$,K2)"P."ĺD$;"MONO":D$;"OPEN ";PF$;",D";DR$:D$;"DELETE ";PF$:D$;"OPEN ";PF$:307008w:"FILE NAME MUST BEGIN WITH 'P.'":306808wDF330008PxFIK0:11000:10008yL$""L$I$:312008JyXZL$L$I$:XZK0:312008|yL$L$" "I$9y(L$)LL" ==> ";I$:I$"1"30700/7wI$"2"306607w:"PRINT-IMAGE DISK FILE SHOULD BE NAMED"::" ==> ";PF$:DR$"1":D2306867w::"PREFORMATTED FILE WILL BE STORED ON DRIVE # (1 OR 2) ?"::" ==> ";DR$:DR$"1"DR$"2"30684W8w(PF0400#6ow(FL$(FI),K2)"/2"30400g6twDR(K0)(FL$(FI))K2:FL$(FI)(FL$(FI),DR(K0)):DR(FI)K2:30400}6wFL$(FI)""306506wFL$(K1)""324006wDF330007w:"WHERE WILL THE OUTPUT GO?"::" 1 = PRINTER":" 2 = PRINT-IMAGE DISK FILE"::N KEY WHEN FINISHED LOOKING AT FILES":I$::30500W5Bw(FL$(FI))K2DR(FI)K1:30400}5Lw(DF)((FL$(FI),K2)"D.")DFFI5`w(DF)((FL$(FI),K2)"D.")ĺ:"THIS MUST BE A DATA FILE":"(BEGINNING WITH'D.')"::"TRY AGAIN"::305006jwDR(FI)K1:D23S DISK"::4vFIFIK114$w" ==> ";FL$(FI)G4.wFL$(FI)""30650e48wFL$(FI)"CATALOG"30530t4:wD2305284 ";DR$:DR$"1"DR$"2"305244>wFL$(FI)FL$(FI)",D"DR$35@wD$;FL$(FI)::"PRESS RETUR703{uIII101%3u(I)030050+3ua3u"GT ESTATE WORDPROCESSOR PRINTER PROGRAM 2.12":3u"COPYRIGHT SPEICHER SYSTEMS 1981": 4\v:"LIST DISK FILES TO BE PRINTED":"PRESS RETURN KEY AFTER LAST FILE"::"TYPE 'CATALOG' TO SEE THE FILES ON THI(K1)9:RS(K1)70:LS(K2)29:RS(K2)79:LS(K3)19:RS(K3)60F2]DF33000q20u(768)169(787)37(811)108300602bu16000:D$"BLOAD MACHSUBS"2lu:ULSW(767):SL(766)48:D2(764):I763:LF$"":(765)LF$(10)3vu(I)0SU$SU$((I)):II1:300:DFK0:DCK1C1UTB%(K9):HD$(20):FL$(100):DR(100):LS(3):RS(3)d1"VEC$(13):EC113:EC$(EC):1YFLKA66:PGK1:PIK0:MTK0:MBKA66:MLK0:MRKB79:LLMRML:LCMBK2:CLK0:SPK1:JYK1:NCK0:PF$""1YPL$"":PR$"":PTK0:PBK1:PZK3:PXK0:XPK082 ZLS6:K99:KA6666:KB7979:KC7575:KD10001000:KE132132:KF128128:KG3232:KH9090:KI6565:KJ20200RD$(4):KA$(1):KG$(7):KH$(8):KM$(13):BS$(92):ES$(27):QT$(34):UL$(95)0SRIK1KE132:SS$SS$" ": 1bRM2208:M364:M494:M5206:M693:M7205:CLCLK2/:!/:XC$(XC$,K3):/:XC$"T"PTK1:PBK0S/`;XC$"B"PTK0:PBK1f/;XC$"L"PZK1y/(1580/>0:0:1002:D$"PR#0"::^0 NK00:K11:K22:K33:K44:K55:K6PAGE NUMBER .7X10:145004.x7X1X1K2:14500.7XL$(PG):XL$(XL$,K1):XL(XL$):XL14500,14100,14500,14100,14500,14100,14500,14100,14500.@814100.8X1X1$(SS$,X1)X1$.9MLK0X1$ML$X1$.l9PXPXK0:X1$"" /9P$X1$:10000:PGPGK1$LZ$-\5XIOSK1:LW(LW$)K42-p5OB(XI)13820`-5OB(XI)OB(XI)LW:OE(XI)OE(XI)OE(XI)LWt-5XIXIK1:13680-5OB(OS)K0:OE(OS)OB(K1)K1-6OE(OS)K0:OSOSK1:13520-6.6X1$PL$(PG)PR$:X1LL(X1$):PZ14100,14500,14200,14300:PRINT 4LX$"":LZ$"":OB(OS)K1LX$(L$,OB(OS)K1)S,4OE(OS)LW$(L$,OB(OS)):13600, 5LW$(L$,OB(OS),OE(OS)OB(OS)K1):OE(OS)(L$)LZ$(L$,OE(OS)K1), 5LY$"",45XIK1(LW$):LY$LY$(LW$,XI,K1)KH$(LW$,XI,K1)KH$(LW$,XI,K1):-H5L$LX$LY)UE(XI)LW+3XIXIK1:13180)+3XIK1<+3OB(XI)13320d+3OB(XI)(LX$LW$)OB(XI)OB(XI)LW+3OE(XI)(LX$LW$)OE(XI)OE(XI)LW+3XIXIK1:13260+4UB(US)K0:UE(US)UB(K1)K1+4UE(US)K0:USUSK1:13020+4OSK1+4OB(OS)13999.,S)):13100S*3LW$(L$,UB(US),UE(US)UB(US)K1):UE(US)(L$)LZ$(L$,UE(US)K1)l*,3LY$"":LW$""13240*@3XIK1(LW$):LY$LY$(LW$,XI,K1)KH$UL$:*T3L$LX$LY$LZ$*h3XIUSK1:LW(LW$)K2*|3UB(XI)13240 +3UB(XI)UB(XI)LW:UE(XI)UE(XI81UB(US)129990)1UB(US)X1UB(US)UB(US)K1P)2UE(US)X1UE(US)UE(US)K1d)d2USUSK1:12600j)2)2USK1:ROUTINE TO DO UNDERLINING AND OVERSTRIKING)2UB(US)13500)2LX$"":LZ$"":UB(US)K1LX$(L$,UB(US)K1) *3UE(US)LW$(L$,UB(U99:OPEN PRINTER ((\+D$;"WRITE ";PF$.(.(.OSK1:UPDATE OVERSTRIKE BEGINNING AND ENDING MARKERS WHEN A CHARACTER IS ADDED TO A LINE(D/OB(OS)12500(/OB(OS)X1OB(OS)OB(OS)K1( 0OE(OS)X1OE(OS)OE(OS)K1(p0OSOSK1:12100(0USK1)K1)OB(K1)X1K1:OE(K1)(L$)C'$UB(K1)UB(K1)X1K1:UE(K1)(L$)M',$BRK1W'@$5000b'T$SC$""h''''PF$""ĺD$;"WRITE ";PF$:P$::PRINT A LINE 't'P$""P$" "')P$'*LF$""ĺLF$'*(*PF$""ĺD$;"PR#0":D$;"PR#";SLOT:SU$;:119LLMRML:MSK0:OMMSK2&'#P&(#(SC$,K2)"HD"9160:PROCESS SAVED COMMANDSb&<#XB$(SC$,K3)p&P#XB(XB$)&d#XIK1KJ20&x#XIXBHD$(XI)L$&#&#L$""⑔LL(L$)&#SC$"C"X1X1K2:X1(X1)L$(SS$,X1)L$'$OB($(XI)))K2:P$(SS$,X1)ML$HD$(XI):10000:CLCLK19%W%FXXP$"":10000:CLCLK1]%?u%@BRK1:BREAK A LINE%L$""İ5000%BRK0:XC$"C"XC$"R"8200%OB(K1)K0:UB(K1)K0% MS8999%l XC$"LS"ML$OM$(OM):OMOMK1& ML(ML$):P$:"POSITION PAPER AT THE TOP OF THE FORM AND PRESS RETURN KEY WHEN READY"\$ "";XI$g$R11000u$MT7500$I2K1MT$P$"":10000$$LCLMT$`PGPTİ14000:P$"":10000$~XXK0$XIK1KJ203%HD$(XI)""XXK1:X1(LL(HD #oXYK0:*#pPF$""6999:END OF PAGEQ#CLLCP$"":10000:CLCLK1:6120a#CLLC6000#PGPBP$"":10000:14000#CLFLP$"":10000:CLCLK1:6860#CLK0#EJİ7000#W#XNCFX7300:START A NEW PAGE #lFXK1#16000:FTK1$"(L$"")(PP)BRK0:52708"BRBRK0:5250F"PJYİ3000`"OB(K1)UB(K1)İ13000r"MLL$ML$L$"MSK1MSK2:ML$(SS$,ML)"XSSPK1"P$L$:10000"L$"""JCLCLK1"|(LCCL)(PF$"")İ6000:5999"XSXSXSK1:5350(L$)3360!p 3380K! L$(L$,X1)" "(L$,X1K1):OB(K1)UB(K1)İ12000^! (L$)LL3999q! X1X1K3:3420w!! GET X$ (NEXT CHARACTER)!GT:X$((30))!!(FTK1)(PF$"")5140:END OF LINE, IF FIRST TIME DO HEADINGS "7000 l (L$,X1,K1)" "3260% X1X1K16 X1X23160@ 3180v L$(L$,X1)" "(L$,X1K1):OB(K1)UB(K1)İ12000 (L$)LL3999 X1X1K2 3220 SW$"L" X1X2K1:X3X3K1:X3KJ203999 4 (L$,X1,K1)" "3460 H X1X1K1 !\ X11040 310008 L$""L$" "3999:JUSTIFY A LINE h (L$,K1)" "XL(L$)K1:L$(L$,XL):3000u XL(L$) XLLL3999 X2K1:X3K0 (L$,X2,K1)" "X2X2K1:31000 SW$"R"3340D SW$"R"X X1(L$)K1:X3X3K1:X3KJ203999" "ML$ML$" "5, L$"":ML(ML$):MSK1:BRK0:1630?1 8000Z6 XC$"D"L$" ":5000{; XC$"A"MLLS(K1):MRRS(K1)@ XC$"B"MLLS(K2):MRRS(K2)E XC$"D"MLLS(K3):MRRS(K3)J ML$"":MLML$(SS$,ML)O 1630T PPL$I$:BRK1:5000:G DISK FILE ";FL$(FI)s :"HEADING COMMANDS CANNOT BE PROCESSED":"WHEN CREATING A PREFORMATTED PRINT-IMAGEFILE" :"PLEASE VERIFY THIS DISK FILE AND CORRECTIT IF NECESSARY":35000 OMOMK1:OM$(OM)ML$:ML$ML$L$ XZK0:XYK0" (ML$,K1)I),K2)"D."33000 1000 (XC$"CY")(XC$"CN")(XC$"SP")(XC$"PG")(XC$"MT")(XC$"MB")(XC$"FL")(XC$"N")İ8000:P$BS$XC$XN$BS$:10000:2520 XC$"HD"1263 D$;"PR#0"::"HEADING COMMANDS (";BS$;"HD";BS$;") FOUND WHEN":"PROCESSIN)K1:D22710, (FL$(FI),K2)"/2"2710i DR(K0)(FL$(FI))K2:FL$(FI)(FL$(FI),DR(K0)):DR(FI)K2~ FL$(FI)""2580 (FL$(FI),K2)"D."33000 FIFIK1 11000 16000:D$;"CLOSE ";FL$(FI):11000 (FL$(FI))K21000 (FL$(FZ IN$"2"26909_ ((FL$(FI),K2)"D.")(IN$"3")34000Kd IN$"3"2730^n IN$"4"32400s IN$"5"ĺD$;"CATALOG"::"PRESS RETURN KEY WHEN FINISHED LOOKING AT FILES";I$x 2580 ::"ENTER NEW FILE NAME": " ==> ";FL$(FI) DR(FILE"+( :" 2 - RETRY WITH ANOTHER FILE"T2 :" 3 - SKIP THIS FILE AND GO ON"u< :" 4 - END THIS PROGRAM"A :" 5 - DISPLAY FILES ON THIS DISK"F :" ==> ";IN$K ((FL$(FI),K2)"D.")(IN$"1")33000P IN$"1"FIFIK1:2730 2520  XNKJ20EC11:23900 SC$XC$XN$? ILN1040Q I$(I$,IK1)[ 1080y ER(222):ERROR HANDLING 216,0 16000 :"ERROR PROCESSING ";FL$(FI);" FILE"::"WHAT DO YOU WANT TO DO ?": :" 1 - RETRY WITH THE SAME FI:10000:P$"*** FORMAT COMMAND ERROR *** "EC$(EC):10000:ERROR ROUTINE i` P$I$:10000:P$"":10000sj 2520t SC$XC$:SAVE COMMAND UNTIL LINE COMPLETEDy 8000~ XC$"HD"2520 XN2500 XIK1KJ20 HD$(XI)""  SC$""X$KH$2270XL(XI$)K15XLK1XI$"":2280GXI$(XI$,XL)Q2280`XI$XI$X$lK3:K1yXI$;" "K3:(XI$)K1 2200 I$XI$(I$,IK1) KA$;:11000:1080. I$(I$,IK1)8 I$L$I$B L$""L 2999KV P$""$(SS$,XNK1)XPK1"25205 PGXN:PAGE NO?*LCMBT4PGPTLCLCK2^>2520HXC$(XC$,K2):KEYBOARD INPUT ROUTINER16000f:768pULSWČ814z"ENTER ";XC$;KG$XI$""K3:K14000X$KM$ĖK1:2320  XIIK1XNb6000l'v2520>BRK1:NEW LINE(S)H8000UXNXNK1eXNK12520sIIK1XN}500025208000:NEW PARAGRAPH5000PI2520XNPI20408000:INDENTXNK1EC5:2390L20XNK91710:TAB7XNTB%(XN):XNEC10:2390NXNLLEC13:2390cXN(L$)İ8000s!XZK1:XYK1&BRK1:XNXN(L$)K1:XN2520+XPK10L$L$(SS$,XN):2520NNEW PAGE(S)S8000UXNXNK1:CLMTİ6000VXNK12520MLML$(SS$,ML)16304XNMBFLXN:2520CEC7:2390eXNK9EC12:2390:TAB CLEAR~XNTB%(XN)K0:2520IIK1K9TB%(II)K02520XI((XN$,K1)):XN((XN$,K2)):XNKE132EC9:2390:TAB SETTB%(XI)XN:25CK5:2390!XNMBMTXN:25201ECK6:2390GXNFLEC7:2390^XNMTECK6:2390h"MBXNr,LCMB6PGPTLCLCK2@2520JXNMLEC8:2390TMRXN^LLMRMLh2520rXNXNK1|XNMREC8:2390MLXN:ML$""20OB(OS)(L$)K2:2520/XC$"U"1493JUE(US)USUSK1:1488iUB(US)UE(US)(L$):2520(L$)K0UB(US)K1:2520XYUB(US)(L$)K1:2520UB(US)(L$)K2:2520ECK3:2390XNLLPIXN:2520EC4:2390 XNEXC$"MAR"RS(K1)XN:2520<XC$"MBR"RS(K2)XN:2520[XC$"MDR"RS(K3)XN:2520mXC$"S"2840OSK1:USK1:XC$"O"1487OE(OS)OSOSK1:1482OB(OS)OE(OS)(L$):2520(L$)K0OB(OS)K1:2520XYOB(OS)(L$)K1:25420XC$"HD"2420>(XC$,K2)"PL"PL$(XC$,K3):2520f(XC$,K2)"PR"PR$(XC$,K3):2520(XC$,K2)"PP"15000(XC$,K1)"K"2120XC$"MAL"LS(K1)XNK1:2520XC$"MBL"LS(K2)XNK1:2520XC$"MDL"LS(K3)XNK1:2520XC$"MB"1550) <XC$"MR"İ8000:1610C FXC$"ML"İ8000:1650V PXC$"FL"1690i ZXC$"TC"1710| dXC$"TS"1770 nXC$"T"1790 xXC$"N"1870 XC$"L"XC$"LS"1920 XC$"P"1980 XC$"I"2030 XC$"C"2420XC$"R"2(XN$)/ XC$"F"I$DD$(XN)(I$,IK1):1080A PF$""2800[ XC$"CY"NCK0:2520u XC$"CN"NCK1:2520 XC$"JN"JYK0:2520 XC$"JY"JYK1:2520 XC$"SP"SPXN:2520 XC$"PI"1500 XC$"PG"2080 (XC$"MT"1520 20 LT$"9"1200, LT$"0"ECK2:2390< XN$XN$LT$F 1120l LT$"Z"X(LT$):XX32:LT$(X)| XC$XC$LT$ 1120 (XC$,K1)"K"2120 XC$"AD"2350 SC$""İ9000 XC$"A"XC$"B"XC$"D"2865 XNK0 (XN$)XN""İ9000 42740+ 8(I$,K1)BS$29008 BLN(I$)c LXC$"":XN$"":PROCESS FORMAT COMMANDSl VIK1w `IIK1 jILNILN:ECK1:2390 tLT$(I$,I,K1) ~LT$BS$1230 (XC$,K1)"K"1210 (XC$,K2)"PL"1210 (XC$,K2)"PR"121EJK1:32100+ (FL$(FI),K2)"P."PPK1F PPL$""BRK1:5000Q 2550 16000:D$;"VERIFY ";FL$(FI);",D";DR(FI):D$;"OPEN ";FL$(FI):11000 2550 16000:D$;"READ";FL$(FI) $IA:ZB$ZB$"":I$ZB$:11000 .I$"/*"1080 1SC$6 31,0ZB$""X HM(116)256(115):(HM)164(HM64)208(HM121)16940fHMHM160(4);"BLOADKEYIN,A";HM(HM<GTHM:IAHM128d20000FIFIK1:PPK0:GET NEXT FILEFL$(FI)""EJK1:32100 (FL$(FI),K2)"D."                  z#??    Ǡ̠Š!ĮŠŠ"ԠŠĠ 8 ԠŠӠŠӠŠĠԠŠРΠŠРΠŠ͠ҠŠԠŠҠ Ҡ8ĠҠ3ΠӠŠҠ,0:6000DI(CC$)11JZZ$(CC$,I,1):ZZ(ZZ$):YY764I:YY,ZZ:` XX(116):769,XXxpD$"UNLOCKMACHSUBS"D$"BSAVEMACHSUBS,A$280,L$150"8D$"LOCKMACHSUBS"800sR DOES ";:(765)ĺ"NOT ";B"REQUIRE A":"SEPARATE LINE FEED"_P::"IS THIS CORRECT ?"::" (Y OR N)"::" ==> ";A$:A$"N"1300A$"Y"5200|::"THE GT ESTATE WORDPROCESSOR IS NOW INSTALLING YOUR SYSTEM"(CC$)0Ĺ763A LOWER CASE ADAPTER":::"YOU ";:(764)ĺ"DO NOT ";"HAVE TWO DISK DRIVES":::"YOUR PRINTER IS IN SLOT #";SL$:::"YOU ";:CC$""ĺ"DO NOT ";$"REQUIRE SPECIAL STARTUP":"CHARACTERS";:CC$""ĺ" WHICH ARE '";CX$;"'":::"YOUR PRINTECTER STRING IS TOO LONG":3000h::"DOES YOUR PRINTER REQUIRE A SEPARATE LINE FEED AT THE END OF A LINE"::" (Y OR N)"::" ==> ";A$A$"Y"Ĺ765,1:46000A$"N"Ĺ765,0:46004200:"YOU ";:(767)ĺ"DO NOT ";7\"HAVE :X(X$):X127XX128:X$(X). X134150H CC$CC$X$:X304100f tX30X$"(CTRL ^)":4100 X29X$"(CTRL SHIFT-M)":4100 <X27X$"(ESC)":4100 XX64:X$"(CTRL "(X)")" X$;:CX$CX$X$:34006(CC$)100ĺ::"YOUR CHARAL$)w T ::"DOES YOUR PRINTER REQUIRE SPECIAL CHARACTERS TO START IT UP ?"::" (Y OR N)"::" ==> ";A$ CC$"":CX$""  A$"N"4200 A$"Y"2900 ::"CAREFULLY TYPE IN THE SPECIAL CHARACTERSYOU NEED"::" ==> "; H X$S ?"::" (Y OR N)"::" ==> ";A$B A$"N"Ĺ764,0:2500[ A$"Y"Ĺ764,1:2500e ` 2100 ::"WHAT SLOT IS YOUR PRINTER IN ?"::" (1, 2, 3, 4, 5, 6, OR 7)"::" ==> ";SL$ ( (SL$)12500 SL$"1"SL$"7"2500 766,(SICHER SYSTEMS 1981"t @::"DO YOU HAVE A LOWER CASE ADAPTER IN YOURAPPLE ?":::" (Y OR N)"::" ==> ";A$ D$"BLOADMACHSUBS" I640763:I,0: A$"N"Ĺ767,1:2100 lA$"Y"Ĺ767,0:2100 1600) 4::"DO YOU HAVE 2 DISK DRIVEE = EDIT":::" P = PRINT":::" I = INSTALL A NEW SYSTEM"\ ::" ==> ";I$w I$"E"ĺD$"RUNEDITOR" LI$"P"ĺD$"RUNPRINTER" I$"I"800 D$(4) x "GT ESTATE WORDPROCESSOR INSTALLATION PROGRAM 1.2"::"COPYRIGHT SPE dD$(4)7::" INDUS SYSTEMS PRESENTS"c,:8:10:" GT ESTATE WORDPROCESSOR ":20:" COPYRIGHT SPEICHER SYSTEMS 1981":I13000:D :::" DO YOU WANT TO EDIT, PRINT, OR INSTALL A NEW SYSTEM?":::"      Z$(CC$,I,1):ZZ(ZZ$):YY764I:YY,ZZ:? XX(116):769,XXWpD$"UNLOCKMACHSUBS"zD$"BSAVEMACHSUBS,A$280,L$150"8D$"LOCKMACHSUBS"800D65)ĺ"NOT ";3"REQUIRE A":"SEPARATE LINE FEED"PP::"IS THIS CORRECT ?"::" (Y OR N)"::" ==> ";A$:A$"N"1300A$"Y"5200|::"WRITE-ON! IS NOW INSTALLING YOUR SYSTEM"(CC$)0Ĺ763,0:6000DI(CC$)11)ZAPTER":::"YOU ";:(764)ĺ"DO NOT ";"HAVE TWO DISK DRIVES":::"YOUR PRINTER IS IN SLOT #";SL$:::"YOU ";:CC$""ĺ"DO NOT ";$"REQUIRE SPECIAL STARTUP":"CHARACTERS";:CC$""ĺ" WHICH ARE '";CX$;"'" :::"YOUR PRINTER DOES ";:(7TOO LONG":3000h::"DOES YOUR PRINTER REQUIRE A SEPARATE LINE FEED AT THE END OF A LINE"::" (Y OR N)"::" ==> ";A$A$"Y"Ĺ765,1:46000A$"N"Ĺ765,0:46004200:"YOU ";:(767)ĺ"DO NOT ";(\"HAVE A LOWER CASE ADXX128:X$(X) X1341509 CC$CC$X$:X304100W tX30X$"(CTRL ^)":4100{ X29X$"(CTRL SHIFT-M)":4100 <X27X$"(ESC)":4100 XX64:X$"(CTRL "(X)")" X$;:CX$CX$X$:34006(CC$)100ĺ::"YOUR CHARACTER STRING IS OES YOUR PRINTER REQUIRE SPECIAL CHARACTERS TO START IT UP ?"::" (Y OR N)"::" ==> ";A$z CC$"":CX$""  A$"N"4200 A$"Y"2900 ::"CAREFULLY TYPE IN THE SPECIAL CHARACTERSYOU NEED"::" ==> "; H X$:X(X$):X127Y OR N)"::" ==> ";A$3 A$"N"Ĺ764,0:2500L A$"Y"Ĺ764,1:2500V ` 2100 ::"WHAT SLOT IS YOUR PRINTER IN ?"::" (1, 2, 3, 4, 5, 6, OR 7)"::" ==> ";SL$ ( (SL$)12500 SL$"1"SL$"7"2500 766,(SL$)h T ::"D981"e @::"DO YOU HAVE A LOWER CASE ADAPTER IN YOURAPPLE ?":::" (Y OR N)"::" ==> ";A$| D$"BLOADMACHSUBS" I640763:I,0: A$"N"Ĺ767,1:2100 lA$"Y"Ĺ767,0:2100 1600 4::"DO YOU HAVE 2 DISK DRIVES ?"::" (宍嬍忍廠ɠ򮠠쿍ǰ܍Ӡ宠 X$KH$2270XL(XI$)K15XLK1XI$"":2280GXI$(XI$,XL)Q2280`XI$XI$X$lK3:K1yXI$;" "K3:(XI$)K1 2200 I$XI$(I$,IK1) KA$;:11000:1080. I$(I$,IK1)8 I$L$I$B L$""L 2999KV P$""$(SS$,XNK1)XPK1"25205 PGXN:PAGE NO?*LCMBT4PGPTLCLCK2^>2520HXC$(XC$,K2):KEYBOARD INPUT ROUTINER16000f:768pULSWČ814z"ENTER ";XC$;KG$XI$""K3:K14000X$KM$ĖK1:2320  XIIK1XNb6000l'v2520>BRK1:NEW LINE(S)H8000UXNXNK1eXNK12520sIIK1XN}500025208000:NEW PARAGRAPH5000PI2520XNPI20408000:INDENTXNK1EC5:2390L20XNK91710:TAB7XNTB%(XN):XNEC10:2390NXNLLEC13:2390cXN(L$)İ8000s!XZK1:XYK1&BRK1:XNXN(L$)K1:XN2520+XPK10L$L$(SS$,XN):2520NNEW PAGE(S)S8000UXNXNK1:CLMTİ6000VXNK12520MLML$(SS$,ML)16304XNMBFLXN:2520CEC7:2390eXNK9EC12:2390:TAB CLEAR~XNTB%(XN)K0:2520IIK1K9TB%(II)K02520XI((XN$,K1)):XN((XN$,K2)):XNKE132EC9:2390:TAB SETTB%(XI)XN:25CK5:2390!XNMBMTXN:25201ECK6:2390GXNFLEC7:2390^XNMTECK6:2390h"MBXNr,LCMB6PGPTLCLCK2@2520JXNMLEC8:2390TMRXN^LLMRMLh2520rXNXNK1|XNMREC8:2390MLXN:ML$""20OB(OS)(L$)K2:2520/XC$"U"1493JUE(US)USUSK1:1488iUB(US)UE(US)(L$):2520(L$)K0UB(US)K1:2520XYUB(US)(L$)K1:2520UB(US)(L$)K2:2520ECK3:2390XNLLPIXN:2520EC4:2390 XNEXC$"MAR"RS(K1)XN:2520<XC$"MBR"RS(K2)XN:2520[XC$"MDR"RS(K3)XN:2520mXC$"S"2840OSK1:USK1:XC$"O"1487OE(OS)OSOSK1:1482OB(OS)OE(OS)(L$):2520(L$)K0OB(OS)K1:2520XYOB(OS)(L$)K1:25420XC$"HD"2420>(XC$,K2)"PL"PL$(XC$,K3):2520f(XC$,K2)"PR"PR$(XC$,K3):2520(XC$,K2)"PP"15000(XC$,K1)"K"2120XC$"MAL"LS(K1)XNK1:2520XC$"MBL"LS(K2)XNK1:2520XC$"MDL"LS(K3)XNK1:2520XC$"MB"1550) <XC$"MR"İ8000:1610C FXC$"ML"İ8000:1650V PXC$"FL"1690i ZXC$"TC"1710| dXC$"TS"1770 nXC$"T"1790 xXC$"N"1870 XC$"L"XC$"LS"1920 XC$"P"1980 XC$"I"2030 XC$"C"2420XC$"R"2(XN$)/ XC$"F"I$DD$(XN)(I$,IK1):1080A PF$""2800[ XC$"CY"NCK0:2520u XC$"CN"NCK1:2520 XC$"JN"JYK0:2520 XC$"JY"JYK1:2520 XC$"SP"SPXN:2520 XC$"PI"1500 XC$"PG"2080 (XC$"MT"1520 20 LT$"9"1200, LT$"0"ECK2:2390< XN$XN$LT$F 1120l LT$"Z"X(LT$):XX32:LT$(X)| XC$XC$LT$ 1120 (XC$,K1)"K"2120 XC$"AD"2350 SC$""İ9000 XC$"A"XC$"B"XC$"D"2865 XNK0 (XN$)XN""İ9000 42740+ 8(I$,K1)BS$29008 BLN(I$)c LXC$"":XN$"":PROCESS FORMAT COMMANDSl VIK1w `IIK1 jILNILN:ECK1:2390 tLT$(I$,I,K1) ~LT$BS$1230 (XC$,K1)"K"1210 (XC$,K2)"PL"1210 (XC$,K2)"PR"121EJK1:32100+ (FL$(FI),K2)"P."PPK1F PPL$""BRK1:5000Q 2550 16000:D$;"VERIFY ";FL$(FI);",D";DR(FI):D$;"OPEN ";FL$(FI):11000 2550 16000:D$;"READ";FL$(FI) $IA:ZB$ZB$"":I$ZB$:11000 .I$"/*"1080 1SC$6 31,0ZB$""X HM(116)256(115):(HM)164(HM64)208(HM121)16940fHMHM160(4);"BLOADKEYIN,A";HM(HM<GTHM:IAHM128d20000FIFIK1:PPK0:GET NEXT FILEFL$(FI)""EJK1:32100 (FL$(FI),K2)"D."                    :K1:"STRING";ST;"==>";29):K1:KI120'5000B (X$KM$10800U<(X$KH$10550jn(XL(ST$(ST))K1(XLK1ST$(ST)""(XLK0ST$(ST)(ST$(ST),XL))106006)ST$(ST)ST$(ST)X$h)K1:KI12)ST$(ST);" ")K1:(KI12(ST$(ST)))00#T$(CL)(T$(K0),K)C#(T$(CL),K1)" "T$(CL)(T$(CL),K2)\#(T$(CL))KV379000f,$9999zT$KXX(T$(CL))^$(T$(CL),K,K1)" "9141h$r$T$(K0)T$(CL):2000:KXXK1:T$(CL)FM$"AD"FM$(T$(K0),K):9200''ST$(ST)""&'K1$XZ$ '#0(#XX(T$(CL))K2:XXKV37XXKV37Cx#KXXK1(K1)Y#(T$(CL))K2999v#(T$(CL),K,K1)" "9141|##T$(K0)T$(CL):T$(CL)(T$(CL),KV37):2000:T$(CL)FM$"AD"FM$(T$(K0),KF38):9200#T$(K0)T$(CL):T$(CL)(T$(CL),K)#20F%(X)K07999XF%(X) L&?<@X2CL:ST$ST$(K1)bTXT$T$(CL):XT$,ST$:(KB26)8240pCLF%(CL)CLK08020CLX2:K1:KB26:"NOT FOUND ";KG$ IK1KK5000: 300000 L1(ST$):K(KB26)"I$"C"XZ$XT$:1000:XT 120005000L$"")2000330909CSTK1Nh10000X8000o0(I$,K1)"F"4999ySTK210000GT:X$((30))opXCL8IK1BCB%(X)K06999XB%(X)dWXXCL IK1FCW$"":3600 X$KF$3490) X5$"F"D 5000:X5$X5$X$:3340Q W$W$X$ (W$)KF38X5$L$W$:L$(X5$,KF38):W$FM$"AD"FM$(X5$,KU39):3600 DS3530 (L$)(W$)KV373600 X$; X$" "3080 L$L$W$ W$""3080f X$KC$X5$"C":33404k X$KU$X5$"U":3340Np X$KK$X5$"K":3340hu X$KO$X5$"O":3340z X$KP$X5$"P":3340 X$KN$X5$"N":3340 X$KT$X5$"T":3484 X$KZ$X5$"Z":3484 X$KI$X5$"I":3340  X$KM$L$L$W$:)3380 12000 2000%* L$""24 L$L$W$=> W$XW$Y@ XW$"***"XW$"":3345jH L$""3600tM X$W$~R 3510\ X$KR$X5$"R":3340] X$KA$X5$"A":3340^ X$KB$X5$"B":3340_ X$KD$X5$"D":3340a X$KS$X5$"S":3340)W$ 3999 DSK13327; X$KR$XW$"***":3345U X$KM$XW$"":3490q XW$"":L$W$""W$" "{ 3345 X$KL$3420 X5$"L" XW$FM$X5$FM$ (DSK1)(X$KR$)((L$W$))L$L$W$:W$"":3350 ((L$W$)KF38)(DSK135 v XL(L$)K1# XLK03230- L$""7 3235O XLK0L$(L$,XL)| CP:K3:L$W$" ":CP:(K4(L$)(W$)) 3510 X$KE$3320 T$(CL)L$W$ T$(CL)""34000 ((T$(CL))KU39)(DS)3999 T$(CL)L$ 2000 T$(CL NLK2ė:1320:CPKI12:3050' 1000Y K1:"TYPE INSERTED TEXT CTRL E TO END"j CPK0CPK3v CP:K3  5000  X$KZ$3490 & X$KH$3250 0 XL(W$)K1 : XLK03160 D W$"" N 3235 X XLK03190 b W$(W$,XL) l 32 . NLNLK1 ` CLKHWARN2999, :KI12 MDĺ"********DISK FILE TOO LARGE ********":"********* PARTIALLY LOADED **********":2600 "********** DO A SAVE SOON **********" ( KG$;KG$;KG$ Z XXK1KK5000: L$"":W$"" 2000 ۭXCLCPIK3 1240) XXKF38:1166D (IK2):X1$;" ";T$(X)W F%(X)K01300e XF%(X):q K1:K1 ("==> ":"----------------------------------------"  NXF%(CL) 4F%(CL)NL fB%(NL)CL F%(NL)NX B%(NX)NL CLNL2 (T$(X))KF381200/ XXKF38:XT$T$(X)Q XXXXK1:XXK1XXKL15:1170m (XT$,XX,K1)" "1166 (IK2):X1$;" ";(XT$,XXK1);">":IIK1:IKA201300 (XT$)KF381240 XT$"<"(XT$,XX):(XT$)KF381180 (IK2):X1$;" ";XT$:1 31,0ZB$""X HM(116)256(115):(HM)164(HM64)208(HM121)16940fHMHM160(4);"BLOADKEYIN,A";HM(HM<GTHM:IAHM128d20000:CLK013008BCKJ9:6000`IK1KA20tX1$" " XCLX1$"*":CPIK               $(H)? @(h,(,),c0@P^N]M A0[ ""\` uiȩiȩiȩiL9FId !"#$%&'()*+,-./0123456789LLLL`ª`LQLY8LXLeL ߅ ȱHȱ h8`LP2iS.%6/7 `l.;;./` L8LELWLuHHH ߅ȱHȱh  ERE . 0uD$;"OPEN";DF$:MAINLINE LOGICB u1000:EF30300{ uD$;"WRITE";DF$:JK1NF:FL$F$(J):2000:J::30100 \vD$;"WRITE";DF$:"/*":D$;"CLOSE": SET EF = 1 B (FL$)K0FL$" ":WRITE A DATA FILE FIELDM FL$:a NK11:LITERAL 1x ND$(4):CTRL D NNF9: CHANGE THIS TO EQUAL THE NUMBER OF FIELDS PER RECORD LODF$"D.DATA FILE NAME":FILL IN THE DESIRED NEW DATA FILE NAME H 20000! FILL THIS WITH9 THE BASIC CODE TOU PUT YOUR DESIRED DATAk FIELDS INTO THE} F$(I) ARRAY F$(1) = 1ST FIELD  F$(2) = 2ND FIELD  ETC. WHEN THE LAST RECORD  HAS BEEN FINISHED,   宍 멍󮠠Ơ̠宠嬠䬍䬠؍婬̠婬Ġ̠婠 멬 멬Ġ嬍Π卢墠䮍宍嬠嬠󮠠䬍䬠宍    嬠㮍̲܍Գ卯謠򠱵⮠宠򠳠嬠﬍ԲܲԱܱԲܲԱܱԲܲԱ̲ܳ堨詠򠱰܍챰춶܍ⶰ܍ӧŠō̲嬍宠ᬠ롍ӱӲӳ܍̲܍Աܲ⮠   嬠宍̳܍Բ̳܍ԲԲ򍯪ԱܸԲܠԱԲܠԱܱԲܠԲܭԳԲܤԳԲܠԲܽԳԲܤ܍󠭠ˍԲܤԱɠ򠦠ӠԲܠԱɠԲܠԱԲܠԱԲܠԱԲܠԱԲԸⶰ챰܍ӱӲӳ܍㮍堳ܱᬠ̵庍뺍܍Աɠ   ̵܍ɳ̳܍ɳɳ򍯪܍챰춶܍ⶰ܍̵ܬܮܠ嬠 宍܍殍܍Աܳ܍Աܴǰ܍܍ӱ܍챵܍笠܍Աܱ܍Աܲ  򮍯㮍܍ܶᮍ⮍㮍䮍宍ᮍܳ讍ܴܵᮍ⮍ﮍ܍®ܱܲǰ܍̱Ҷ܍܍܍܍Š٠ƠŠȍܱܲ讠    󮠠򠭠̳܍ɴ̵܍󮠠䬠Ʒܠ܍܍ǰ̱ҷ̶܍Ը¶܍Ʊ܍Ʋ܍Ƴ܍܍Ƶ܍܍ƶ܍܍ƷܬƸ܍ƹ܍̳Ʊ܍ƳܻƴܠƵܠƷܮ   ǰ܍·̸܍Ʊ܍Ʋ܍Ƴ܍܍ƴ܍܍Ƶ܍܍ƶ܍܍ƷܬƸ܍ƹ܍ ˍč󍸹׮ɍ󍶸!! 宍嬍忍廠ɠ򮠠쿍ǰ܍Ӡ宠""