' +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- ( M- Ϡ@跻~!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 ~(`F  d ֠z# u`0:L$(L):(L$,1);:6K.6OPP$"E"40500;6TL1200C6YL;T6[(27)(PR)`6^" -";q6`(27)(PR)w6c}6d6hD$"PR#0"6r64(27)"1"69L12006>L6C6HD$"PR#0"6M6P×:"****************************************":H:CC$57k5?768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:5@:"TURN ON YOUR PRINTER AND HIT ANY KEY"5AANYKEY$5C5DD$"PR#"SL:" 80N"5EL108010:L$(L):36,L1:(L$,1);:5F6JL18$"R"ġ:30285,4ZxAN$(13)ZZ$"&":3048074_x30760s4p:10:"**INSERT YOUR DATA DISK AND HIT ANY KEY*";:LL$4u385004v4zD$"LOCK "NA$4305554216,0:4d768:216,0:30530:"":3801556CC(CC$):L640CC:L6L62:L6%L61:L6%:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BELOW HIT THE 'RETURN' KEY."u3";:ANYKEY$3PxANYKEY$(27)ġ:100004UxANYKEY1010,952I256:1011,I:(3)250Č11692"x **** SAVE FILE 2#x2(x 2-xIN$""ġ:3028522x(IN$)2ġ:30285Q37x** PLEASE REFER TO YOUR MANUALS ****"31fw"":""`1jw24:1:"HIT ANY KEY TO CONTINUE ";:LL$p1 x216,0:768{1x100001x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,2121xI952975:J:I,J:(2xI(952256):0Zw **** ERROR TRAP 0[wY(222)0`w::" ** AN ERROR HAS OCCURED **"::%1ew:::"ERROR NUMBER "Y" HAS OCCURED"::"****H22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ıU/BwL120:IN$(L)""::/GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$/LwD$;"DELETE ";NA$/QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$:D$;"LOCK ";NA$/VwZ$"":PT0::30095a.$wPT999PT0::12:"PLEASE RENAME FILE *******":IN$""::L1110000::g.)w.-w ***** INIT ;/=w ****** CHECK FILE -w:D$;"OPEN ";NA$:D$;"READ ";NA$:L1120:IN$(L1)-wIN$(L1)IN$PT999-w:D$;"CLOSE ";NA$.wZZ$"&"PT999ZIN$"":30470v,vL$""Ģ11:1:" ":,w30470,w11:1:" ":30425, w1500-w 9:IN$(L2)""IN$(L2)IN$(L21):IN$(L21)"":+vL$""ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$+vL$""ĺD$"DELETE"IN$:IN$""+vL$(27)L20:+vIN$(1)""IN$(2)""IN$(3)""L20:,vL$"":IN$(L)::D$;"CLOSE ";NA$;*vL2120:IN$(L2)""30425t*v::12:"NO FILES ON DISK ********":L2110000::*vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465*v20:1:"ENTER COMMMAND HERE-->";:L$:L$;.+vL$""IN$IN$(L):IN$(L)"":L211NU HIT THE 'ESC' KEY")v9::" ":13:" ":*vD$(4):D$;"OPEN ";NA$:D$;"READ ";NA$:L120ԠHERE--->";:L$#&fvL$"2"IN$"":5&kvL$"1"30325@&pv30305T&uv(IN$)230285a&zv:30480&vD$;"OPEN ";NA$:D$;"READ ";NA$&vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L120::30355&v&vTP99&vD$;"CLOSE ";NA$8'vTP99TP0::12:" %Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1%\vIN$"^"TE$&av15:1:"1. TO SAVE DATA ON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRAM"::" ENTER SELECTION $u8100$u ******DATA LOAD $u8300+%Lv ******* START FILE ***** 20::k#u11:1:" ":30055}#u30760:30330$u DATA SAVE N$(L2):IN$(L2)""Ă:30080@"lu22:1:"ENTER KEY HERE-->";:L$]"quL$;:L$(27)L280::"vuL$(13)IN$IN$(L2):L280::30190:"{u11:1:" "::30055#uL$(27)L2 ":W!NuD$;"OPEN ";NA$!SuD$;"READ ";NA$:L2120:IN$(L2):!XuD$;"CLOSE ";NA$!]uL2120:IN$(L2)""30055!bu::12:"NO FILES ON DISK":L218000::"guL2120:11:1:L2". "I Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"C!Iu:9:" ":13:" ART FILE7u38000:30400/8u: DELETE FILEA9u38000:30760T:u: SAVE FILEj;u30510:: INIT=u30555::6000: ERROR  Cu SELECT JOB "G"NA$"FORMS"NA$"^"IN$:IN$""0`'X$"X"ĀAb'X$""10000Pe'X(X$)64dg'X1X1110000j'X1000,5000,4000,30001,30005,30007,30001,30005,30007,40000,50000t'100000u 1u38000:300202u: LOAD FILE5u38000:307606u: STIGNER"08'"(K) TO CHANGE PRINTER SLOT & TYPE"AA'"(X) END."B'23:1::"CURRENT FORM FILE :";::IN$:IN$""Ģ23:25:"EMPTY"E'20:1:"ENTER HERE:";X$G'X$"D"X$"E"X$"F"ĭNA$"FORMS"IN$NA$:NA$"FORMS":"""L'X$"H"X$"I"X$ATA"'"(C) PRINT DATA";'"(D) RECALL FORM ON DISK"Y'"(E) SAVE FORM ON DISK"y.'"(F) DELETE FORM ON DISK"4'"(G) TO RECALL FORM DATA FILE"5'"(H) TO SAVE FORM DATA FILE"6'"(I) TO DELETE FORM DATA FILE"7'"(J) CREATE FORM AL'L14::" ";:c'1:" **** FORM PRINTER ****"'2:" (C) GARBO SOFTWARE 1981":" GARY D. MALEY":" (505) 885-1278"'6:'"(A) CREATE FORM"'"(B) ENTER D;:98202&I5$I5$NU$:NU$;:CPCP1:CPIC9820N&CPICāICPIC:" ";:V&:t&CPCP1:CP0ĺ"";:9810&NU$;:CP1I5$(I5$,CP):9820&9810&AS((40)256(41)(36)):AS32I5$(AS64):9880&I5$(AS):9880'34,0:8" ";::IA:IB:I5$;&R&IA:IB:CP1G\&NU$:NU$(27)NU$(2)ĝ:_a&CD0NU$(13)ĝ:b&CD0NU$(13)CD1:I5$"":IA:IB:I1IC:" ";::IA:IBf&NU$(13)9890p&NU$(8)9910z&CPIC9880&NU$(21)9940&(NU$)32ĺ""N$  YT LL1YT8 NA$"FORMS"ĄNA$(LL):8335Z N$(LL):W(LL):L(LL):IC(LL)` s D$"CLOSE "IN$ NA$"FORMS"āLL1YT:2130::10000 LL1YT:2110: 10000%IC19%IA10:IB1:I5$"HHH"H&IA:IB:CD0M&:I1IC:PRINTED OUT"YT1ı'LL1YT15LL1Ă:F8:1:"#"LLQ10:1(N$(LL),1)"&"(N$(LL),1)"/"(N$(LL),1)">"İ300:N$(LL)" = "NA$(LL);:TT$:5050N$(LL)IA12:IB1:ICIC(LL):I5$NA$(LL):9800:NA$(LL)I5$o"E"ĺ(27)"1";X(16384),16368,0<X1553000LX1414050V4014hPP$"E"4500n36,W(1)1:N$(1);(27)(10)4014L179W(1)LĺN$(1);" ";L4014 :"ENTER FORM DATA TO BE FIRST THEN HIT THE 'RETURN' KEY TO PRINT MARKER, ADJUST PAPER IF NEEDED THEN HIT 'RETURN' UNTIL ALIGNED. WHEN PAPER IS ALIGNED HIT THE 'ESC' KEY TO START PRINTING."10:"HIT 'RETURN' OR 'ESC' :";:L$:(13)(4)"PR#"SL" 80N"PP$"#"(N$,1)">"İ2500:3070, 36,W(LL)1: NA$(LL);@ X PP$"E"ĺ" ":3090p PP$"C"ĺ" ":3085y " " (27)(PR);  (13)(4)"PR#0"::L915:" ";:1:"ALIGN FORMN$N$".00":25450 ((N$,UU,Q))3N$N$"0"< Q(N$)H SQ);X 36,W(LL)1a N$;g | PP$"E"ĺ(127) PP$"E"āL51YT:3020 L51L(YT).5 LL1YT L5L(LL)Ă:3075 N$N$(LL) (N$,1)"/"3070 (N$,1)3HUI$",":UO$"^":A$NA$(LL):2010:NA$(LL)A$:eRUI$"^":UO$",":A$NA$(LL):2010:NA$(LL)A$:{ N(NA$(LL)):S10 N0ĺZERO$;:  N(100N.5)100 N$(N) Q(N$) L31Q (N$,L3,1)"."UUL3:L3Q::2540  27:"DATA INPUT LENGHT :":9800:IC(LL)(I5$):IC(LL)801084JBP`WL1(A$)(A$,WL,1)UI$A$(A$,1,WL1)UO$(A$,WL1,(A$)):4UI$",":UO$"^":A$N$(LL):2010:N$(LL)A$:>UI$"^":UO$",":A$N$(LL):2010:N$(LL)A$:L(LL)L(LL1)L(LL)3001059)-:15:1K."ENTER TAB POSITION :"0IA15:IB27:IC2:I5$(W(LL)):9800:W(LL)(I5$)2W(LL)0W(LL)14W(LL)W(LL1)L(LL)L(LL1)W(LL)8010698LL11090<17:1D=I5$(IC(LL)):IA17:IC2:IBNU$(27)Ă:-N$(LL)(2)LL300::ON$(LL)(1)YTLL:LL300::f"LL1L(1)1:1069#:13:1:(N$,1)"/"L(LL)L(LL1):W(LL)WW(LL1):1090$"ENTER VERTICAL LINE # :"&IA13:IB27:IC5:I5$(L(LL)):9800:L(LL)(I5$))1)::23:"TAB POSITION ";::W(LL1). 9Y LL1Ğ:"PRINT MARKER SYMBOL"::1050r " HEADING #"LL "ENTER THE HEADING NAME:" LL1IA11:IB1:IC1:I5$N$(LL):9800:N$(LL)I5$:1055 IA11:IB1:IC40:I5$N$(LL):9800:N$(LL)I5$2 2:"'>' = (LJ) A CALCULATION, '&' = (RJ) "e 3:"1 OR 2 = HEADING IN CALC, 56# = THE # 56" 5:"ENTER '/' TO CALCULATE ONLY /10+5#*22-2" :LL1300 ' 20:1::"PREVIOUS HEADING":21::N$(LL1):22::"LINE FEED # ";::L(LL"+"ZZZZ(ZZ$(L1))8 'ZZ$(L)"/"ZZZZ(ZZ$(L1))Z (ZZ$(L)"-"ZZZZ(ZZ$(L1))| )ZZ$(L)"*"ZZZZ(ZZ$(L1)) +495 :34,6:L16::L:" ";: 1:"'#' = (LJ) AN INPUT CTRLA=END ESC=STEP";#"5500 ZZ$(L)"+"ZZZZ(NA$((ZZ$(L1))))Z ZZ$(L)"/"ZZZZ(NA$((ZZ$(L1)))) ZZ$(L)"-"ZZZZ(NA$((ZZ$(L1)))) ZZ$(L)"*"ZZZZ(NA$((ZZ$(L1)))) LL1  NA$(LL)(ZZ)   D(NA$(AB))  &ZZ$(L)L71 6L2(G$)% @K$(G$,L,1)] YK$"*"K$"-"K$"+"K$"/"ZZ$(L71)K$:L7L72:t ZZ$(L7)ZZ$(L7)K$z  (ZZ$(1),1)"#"ZZ(ZZ$(1)):460 ZZ(NA$((ZZ$(1)))) L250:ZZ$(L)""NL:L50  L2N (ZZ$(L1),1)"3 FORM PRINTER6NA$"FORMS":D$(4):ZERO$"0"zN$(300),W(300),L(300),ZZ$(50),IC(300),IN$(20),NU$(80),NA$(300)50300:39999PR30:PP$"Q"PR68PP$"E"PR1 L1300:IC(L)40: 10000,G$N$(LL):L150:ZZ$(L)"": 1W HIT THE 'RETURN' KEY."<3";:ANYKEY$3PxANYKEY$(27)ġ:100003UxANYKEY$"R"ġ:302853ZxAN$(13)ZZ$"&":304803_x30760: **** SAVE FILE 2#x2(x 2-xIN$""ġ:3028522x(IN$)2ġ:3028537x:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BELO24:1:"HIT ANY KEY TO CONTINUE ";:LL$71 x216,0:768B1x100001x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,2121xI952975:J:I,J:1xI(952256):1010,952I256:1011,I:(3)250Č11692"x **** ERROR TRAP e0[wY(222)0`w::" ** AN ERROR HAS OCCURED **"::0ew:::"ERROR NUMBER "Y" HAS OCCURED"::"****** PLEASE REFER TO YOUR MANUALS ****"0fw"":""'1jwı/BwL120:IN$(L)""::I/GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$_/LwD$;"DELETE ";NA$/QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$:D$;"LOCK ";NA$/VwX0Zw E FILE *******":IN$""::L1110000::..)w.-w ***** INIT /=wH22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ILE -w:D$;"OPEN ";NA$:D$;"READ ";NA$:L1120:IN$(L1)-wIN$(L1)IN$PT999-w:D$;"CLOSE ";NA$-wZZ$"&"PT999ZZ$"":PT0::30095(.$wPT999PT0::12:"PLEASE RENAM ":H,w30470,w11:1:" ":30425, w1500J-w ****** CHECK F"ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$|+vL$""ĺD$"DELETE"IN$:IN$""+vL$(27)L20:+vIN$(1)""IN$(2)""IN$(3)""L20:+vL$""IN$"":30470=,vL$""Ģ11:1:"  9L1180;>L;C%;HD$"PR#0"+;M;N×:5:"INSERT MASTER DISK OR SET SLOT, VOLUME, AND DRIVE WITH EASYFORM LOCATION CONTINUE (Y/N)?";:L$:L$"N"ı;OíL$"Y"49998";:ANYKEY$6PxANYKEY$(27)ġ:10000 7UxANYKEY$"R"952I256:1011,I:(3)250Č11695"x **** SAVE FILE 5#x5(x 5-xIN$""ġ:3028552x(IN$)2ġ:30285L67x:3:EASE REFER TO YOUR MANUALS ****".4fw"":""[4jw24:1:"HIT ANY KEY TO CONTINUE ";:LL$k4 x216,0:768v4x100004x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,2124xI952975:J:I,J:#5xI(952256):1010, **** ERROR TRAP 3[wY(222)3`w::" ** AN ERROR HAS OCCURED **":: 4ew:::"ERROR NUMBER "Y" HAS OCCURED"::"****** PLCC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ıP2BwL120:IN$(L)""::}2GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$2LwD$;"DELETE ";NA$2QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$:D$;"LOCK ";NA$2Vw3Zw :PT0::30095\1$wPT999PT0::12:"PLEASE RENAME FILE *******":IN$""::L1110000::b1)w1-w ***** INIT 62=wH22: ****** CHECK FILE 0w:D$;"OPEN ";NA$:D$;"READ ";NA$:L1120:IN$(L1)0wIN$(L1)IN$PT9990w:D$;"CLOSE ";NA$1wZZ$"&"PT999ZZ$"""":30470q/vL$""Ģ11:1:" ":|/w30470/w11:1:" ":30425/ w1500~0w $(L2)""IN$(L2)IN$(L21):IN$(L21)"":.vL$""ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$.vL$""ĺD$"DELETE"IN$:IN$"".vL$(27)L20:.vIN$(1)""IN$(2)""IN$(3)""L20: /vL$""IN$(L)::D$;"CLOSE ";NA$6-vL2120:IN$(L2)""30425o-v::12:"NO FILES ON DISK ********":L2110000::-vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465-v20:1:"ENTER COMMMAND HERE-->";:L$:L$;).vL$""IN$IN$(L):IN$(L)"":L2119:INT THE 'ESC' KEY",v9::" ":13:" ":-vD$(4):D$;"OPEN ";NA$:D$;"READ ";NA$:L120:IN$ ****** DELETE FILE ******* ,v:2:"TO DELETE A FORM FILE"::"TO DELETE HIT ";::"'CTRL' F"::"TO SELECT HIT ANY KEY":"TO GO BACK TO MENU HIFULL---USE ANOTHER INITIALIZED DISK":L110000::j*vD$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$*vL120:IN$(L):*vD$;"CLOSE ";NA$:D$;"LOCK ";NA$*v:10*v"** ONE MOMENT PLEASE DATA BEING SAVED **"*v30095*v+v -->";:L$)fvL$"2"IN$"":0)kvL$"1"30325;)pv30305O)uv(IN$)230285\)zv:30480)vD$;"OPEN ";NA$:D$;"READ ";NA$)vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L120::30355)v)vTP99)vD$;"CLOSE ";NA$3*vTP99TP0::12:"DISK {(Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1(\vIN$"^"TE$ )av15:1:"1. TO SAVE DATA ON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRAM"::" ENTER SELECTION HERE-'u8100'u ******DATA LOAD 'u8300&(Lv ******* START FILE ***** f&u11:1:" ":30055x&u30760:30330&u DATA SAVE ):IN$(L2)""Ă:30080;%lu22:1:"ENTER KEY HERE-->";:L$X%quL$;:L$(27)L280::%vuL$(13)IN$IN$(L2):L280::30190:%{u11:1:" "::30055&uL$(27)L220:: ":R$NuD$;"OPEN ";NA$z$SuD$;"READ ";NA$:L2120:IN$(L2):$XuD$;"CLOSE ";NA$$]uL2120:IN$(L2)""30055$bu::12:"NO FILES ON DISK":L218000::%guL2120:11:1:L2". "IN$(L2#Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY">$Iu:9:" ":13:" ILE"7u38000:30400*"8u: DELETE FILE<"9u38000:30760O":u: SAVE FILEe";u30510:: INIT"=u30555::6000: ERROR "Cu SELECT JOB 0,5000,4000,30001,30005,30007,30001,30005,30007,40000,49998,37000w!k'X$"G"X$"H"X$"I"IM$(NA$,(NA$)1):IO$IN$!l'X$"D"X$"E"X$"F"NA$"FORMS":IM$IN$!t'10000!0u !1u38000:30020!2u: LOAD FILE!5u38000:30760"6u: START FE";::V;/ E'20:1:"ENTER LETTER HERE:";:X$W G'X$"G"X$"H"X$"I"ĭIM$""10000 L'X$"G"X$"H"X$"I"NA$"^"IM$:IN$IO$ O'X$"D"X$"E"X$"F"NA$"FORMS":IN$IM$ `'X$"X"Ā b'X$""10000 e'X(X$)64 g'X1X1210000A!j'X100E FORM ALIGNER"98'"(K) TO CHANGE PRINTER SLOT & TYPE"`:'"(L) CHANGE SLOT, DRIVE, VOLUME"qA'"(X) END."B'23:1::"CURRENT FORM FILE :";::IM$:IM$""Ģ23:25:"EMPTY " C':"SLOT";::SS" ";::"DRIVE";::D" ";::"VOLUM"(D) RECALL FORM HEADING FILE"C'"(E) SAVE FORM HEADING FILE"h.'"(F) DELETE FORM HEADING FILE"4'"(G) TO RECALL A FORM HEADING DATA FILE"5'"(H) TO SAVE FORM HEADING DATA FILE"6'"(I) TO DELETE FORM HEADING DATA FILE"7'"(J) CREAT" **** EASYFORM ****"m'2:" (C) GARBO SOFTWARE 1981":" GARY D. MALEY"'"SERIAL#821";'14:"(505) 885-1278";'32:"VER:3.3.1"'6::"(A) CREATE FORM"'"(B) ENTER DATA"'"(C) PRINT DATA" '&CPCP1:CP0ĺ"";:98104&BNCPCP1:BN1X&NU$;:CP1I5$(I5$,CP):9820b&9810&AS((40)256(41)(36)):AS32NU$(AS64):9880&NU$(AS):9880'34,0:'L14::" ";:#'1:(13)CP1:I5$"":IA:IB:I1IC:" ";::IA:IBGf&NU$(13)9890Zp&NU$(8)9910ou&NU$":"NU$";"z&CPIC9880&NU$(21)9940&(NU$)32ĺ"";:9820&I5$I5$NU$:NU$;:CPCP1:CPIC9820&CPICāICP1IC:" ";:&:$"CLOSE "IN$1 NA$"FORMS"āLL1YT:2130::F LL1YT:2110:L V%IC19o%IA10:IB1:I5$"HHH"{H&IA:IBI&BN0M&:I1IC:" ";::IA:IB:I5$;R&IA:IB:CP1\&NU$:NU$(27)NU$(5)ĝ:a&CP1NU$(13)ĝ:3b&CP1NU$L):W(LL):L(LL):IC(LL)1D$"CLOSE "IN$VNA$"FORMS"āLL1YT:2130::k LL1YT:2110:q wl m D$"OPEN "IN$q D$"READ "IN$ YT LL1YT NA$"FORMS"ĄNA$(LL):8335 N$(LL):W(LL):L(LL):IC(LL)  D:IB1:ICIC(LL):I5$NA$(LL):9800:NA$(LL)I5$3LNU$(5)LL300::RXoNA$"FORMS"āLL1YT:2120::8110LL1YT:2100:D$"OPEN "IN$D$"WRITE"IN$YTLL1YTNA$"FORMS"ĺNA$(LL):8135N$(L$(1);" ";L 4014K:"ENTER FORM DATA TO BE PRINTED OUT"WYT1ıfLL1YT1tLL1Ă:8:1:"#"LL10:1(N$(LL),1)"&"(N$(LL),1)"/"(N$(LL),1)">"İ300:N$(LL)" = "NA$(LL);:TT$:5050N$(LL)-IA13OR 'ESC' :";:L$):(13)(4)"PR#"SL5" 80N"MPP$"E"ĺ(27)"1";]X(16384)k16368,0{X1553000X14140504014PP$"E"450036,W(1)1:N$(1);(27)(10)4014L179W(1)LĺN ";:1:"ALIGN FORM FIRST THEN HIT THE 'RETURN' KEY TO PRINT MARKER, ADJUST PAPER IF NEEDED THEN HIT 'RETURN' UNTIL ALIGNED. WHEN PAPER IS ALIGNED HIT THE 'ESC' KEY TO START PRINTING."10:"HIT 'RETURN'  (N$,1)"/"İ300:3070> (N$,1)">"İ300:2500:3070[ (N$,1)"#"İ2500:3070k 36,W(LL)1y NA$(LL);  PP$"E"ĺ" ":3090 PP$"C"ĺ" ":3085 " " (27)(PR);  (13)(4)"PR#0"+::L915:" UL3:L3Q::2540 - N$N$".00":2545L ((N$,UU,Q))3N$N$"0"X Q(N$)h 36,W(LL)1t SQ);} N$;  PP$"E"ĺ(127) PP$"E"āL51L(YT1):3020 L51L(YT1).5 LL1YT L5L(LL)Ă:3075 N$N$(LL)UI$",":UO$"^":A$NA$(LL):2010:NA$(LL)A$:_RUI$"^":UO$",":A$NA$(LL):2010:NA$(LL)A$: NA$(1)"12345.60":LL1:W(1)1 N(NA$(LL)):S10 N0ĺZERO$;:  N(100N.5)100 N$(N) Q(N$) L31Q (N$,L3,1)"."U(N$(LL),1)">"(N$(LL),1)"#"ĭW(LL)70W(LL)70IC101084DBJZWL1(A$)(A$,WL,1)UI$A$(A$,1,WL1)UO$(A$,WL1,(A$)):4UI$",":UO$"^":A$N$(LL):2010:N$(LL)A$:>UI$"^":UO$",":A$N$(LL):2010:N$(LL)A$:-H1)L(LL)L(LL1)W(LL)801069-8LL11090q9(N$(LL),1)">"(N$(LL),1)"&"(N$(LL),1)"/"IC(LL)0:1090|<17:1=I5$(IC(LL)):IA17:IC2:IB27:"DATA INPUT LENGHT :":9800:IC(LL)(I5$):IC(LL)801084>IC(LL)W(LL)801084>?"ENTER VERTICAL LINE # :"S&IA13:IB27:IC5:I5$(L(LL)):9800:L(LL)(I5$)u)L(LL)L(LL1)L(LL)3001059-:15:1."ENTER TAB POSITION :"0IA15:IB27:IC2:I5$(W(LL)):9800:W(LL)(I5$)2W(LL)0W(LL)14W(LL)W(LL1:IC1:I5$N$(LL):9800:N$(LL)I5$:1055YIA10:IB1:IC80:I5$N$(LL):9800:N$(LL)I5$|N$(LL)"END"YTLL:LL300::NU$(27)Ă:NU$(5)LL300::"LL1L(1)1:1069#:13:1:(N$,1)"/"L(LL)L(LL1):W(LL)WW(LL1):1090$300: 20:1::"PREVIOUS HEADING":21::N$(LL1):23::"LINE FEED # ";::L(LL1)::24:"TAB POSITION ";::W(LL1); 8:1 LL1Ğ:"PRINT MARKER SYMBOL"::1050 " HEADING #"LL "ENTER THE HEADING NAME:"(LL1IA10:IBPE 'END' TO STOP/CTRL'E=ABORT/ESC=STEP";Z 2:"'>' = (LJ) A CALC, '&' = (RJ) A CALC " 3:"9 OR 3 = HEADING IN CALC, 56# = THE # 56" 4:"'#' = (LJ) A NUMBER DATA INPUT ONLY " 5:"ENTER '/' TO CALCULATE ONLY /10+5#*22-2" :LL1  D(NA$(AB)) > &ZZ$(L)"+"ZZZZ(ZZ$(L1))` 'ZZ$(L)"/"ZZZZ(ZZ$(L1)) (ZZ$(L)"-"ZZZZ(ZZ$(L1)) )ZZ$(L)"*"ZZZZ(ZZ$(L1)) +495 :34,5:L15::L:" ";:( 1:"TY(NA$((ZZ$(1))))0 L250:ZZ$(L)""NL:L506 A L2N\ (ZZ$(L1),1)"#"550v Z(NA$((ZZ$(L1)))) ZZ$(L)"+"ZZZZZ ZZ$(L)"/"ZZZZZ ZZ$(L)"-"ZZZZZ ZZ$(L)"*"ZZZZZ LL1  NA$(LL)(ZZ) 1 L1300:IC(L)40:% 305550 10000R ,G$N$(LL):L150:ZZ$(L)"":[ 1L71j 6L2(G$){ @K$(G$,L,1) YK$"*"K$"-"K$"+"K$"/"ZZ$(L71)K$:L7L72: ZZ$(L7)ZZ$(L7)K$  (ZZ$(1),1)"#"ZZ(ZZ$(1)):460 ZZ8 FORM PRINTER6NA$"FORMS":D$(4):ZERO$"0"zN$(300),W(300),L(300),ZZ$(50),IC(300),IN$(20),NU$(80),NA$(300)6D(47082):V(47083):SS(47081):SSSS16:V67V05030039999:IM1PR30:PP$"Q"PR68 PP$"E"PR                        ! N$(L1)""IN$(L1)IN$:L120::30355*&v4&vTP99I&vD$;"CLOSE ";NA$&vTP99TP0::12:"DISK FULL---USE ANOTHER INITIALIZED DISK":L110000::&vD$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$&vL120:IN$(L): 'vD$;"CLOSE ";NA$:D$1. TO SAVE DATA ON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRAM"::" ENTER SELECTION HERE--->";:L$%fvL$"2"IN$"":%kvL$"1"30325%pv30305%uv(IN$)230285%zv:30480%vD$;"OPEN ";NA$:D$;"READ ";NA$$&vL1120:IN$(L1):I ******* START FILE ***** $Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1$\vIN$"^"TE$p%av15:1:" DATA SAVE o#u8100#u ******DATA LOAD #u8300$Lv "::30055h"uL$(27)L220::"u11:1:" ":30055"u30760:30330e#u 20:IN$(L2)""30055E!bu::12:"NO FILES ON DISK":L218000::}!guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080!lu22:1:"ENTER KEY HERE-->";:L$!quL$;:L$(27)L280::!vuL$(13)IN$IN$(L2):L280::30190:P"{u11:1:" ":13:" ": NuD$;"OPEN ";NA$ SuD$;"READ ";NA$:L2120:IN$(L2): XuD$;"CLOSE ";NA$!]uL21 SELECT JOB Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY" Iu:9:" ,30001,50000t'100000u 11u38000:30020D2u: LOAD FILEV5u38000:30760j6u: START FILE|7u38000:304008u: DELETE FILE9u38000:30760:u: SAVE FILE;u30510:: INIT=u30555::6000: ERROR eCu NĄPP$:SL:ZERO$/:ĺ(13)(4)"CLOSE PRINTER"5:ı ; *** GARBO SOFTWARE *** COPYRIGHT 1981 BY GARY D. MALEY REPLACEMENT ?":9800:ZERO$I5$J9íL$"C"L$"Q"L$"E"L$"S"50000U9PP$L$`9ë50000z9ĺ:D$"OPEN PRINTER"9ĺD$"WRITE PRINTER"9"ĺPP$:SL:ZERO$9+ĺ9,ĺD$"CLOSE PRINTER"96ı9|ĺ:D$"OPEN PRINTER"9ĺD$"READ PRINTER":#8iâ18:"CURRENT PRINTER ("PP$")"B8jâ19:"CURRENT SLOT #"SLd8nâ22:"ENTER SELECTION #";:L$8síL$"N"Ė1:23:"ENTER NEW PRINTER SLOT #";:N$:(N$)8(N$)0SL(N$)8xíL$"X"502009}íL$"Z"IA23:IB24:IC10:I5$ZERO$:23:1:"ENTER ZEROE" 7Tð39990=7Uú"****************************************"D7Yâ7Z7Zú"(C) CENTRONICS"j7\ú"(Q) QUME"{7]ú"(E) EPSON"7^ú"(S) SPRINT"7dú"(N) NEW PRINTER SLOT"7eú"(Z) ZERO REPLACEMENT"7fú"(X) EXIT"8hâ17:"CURRENT ZERO REPLACEMENT :"ZERO$200 6YL;6[(27)(PR)(6^" -";96`(27)(PR)?6cE6dS6hD$"PR#0"Y6rg64(27)"1"t69L1200{6>L6C6HD$"PR#0"6M6P×:"****************************************"6QD$(4)7S:H2:CC$"PRINTER SELECTION & SLOT CHANG;4p:10:"**INSERT YOUR DATA DISK AND HIT ANY KEY*";:LL$G4u38500M4v_4zD$"LOCK "NA$k430555x4216,0:4d768:216,0:30530:"":3801546CC(CC$):L640CC:L6L62:L6%L61:L6%:H:CC$4735?768,104:769,168:770,104:771,166:OW HIT THE 'RETURN' KEY."=3";:ANYKEY$3PxANYKEY$(27)ġ:100003UxANYKEY$"R"ġ:302853ZxAN$(13)ZZ$"&":304803_x30760 **** SAVE FILE 2#x2(x 2-xIN$""ġ:3028522x(IN$)2ġ:3028537x:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BEL24:1:"HIT ANY KEY TO CONTINUE ";:LL$81 x216,0:768C1x100001x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,2121xI952975:J:I,J:1xI(952256):1010,952I256:1011,I:(3)250Č11692"x **** ERROR TRAP f0[wY(222)0`w::" ** AN ERROR HAS OCCURED **"::0ew:::"ERROR NUMBER "Y" HAS OCCURED"::"****** PLEASE REFER TO YOUR MANUALS ****"0fw"":""(1jw)ı/BwL120:IN$(L)""::J/GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$`/LwD$;"DELETE ";NA$/QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$:D$;"LOCK ";NA$/VwY0Zw ME FILE *******":IN$""::L1110000::/.)w.-w ***** INIT /=wH22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27FILE -w:D$;"OPEN ";NA$:D$;"READ ";NA$:L1120:IN$(L1)-wIN$(L1)IN$PT999-w:D$;"CLOSE ";NA$-wZZ$"&"PT999ZZ$"":PT0::30095).$wPT999PT0::12:"PLEASE RENA ":I,w30470,w11:1:" ":30425, w1500K-w ****** CHECK "ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$}+vL$""ĺD$"DELETE"IN$:IN$""+vL$(27)L20:+vIN$(1)""IN$(2)""IN$(3)""L20:+vL$""IN$"":30470>,vL$""Ģ11:1:" 425<*v::12:"NO FILES ON DISK ********":L2110000::p*vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465*v20:1:"ENTER COMMMAND HERE-->";:L$:L$;*vL$""IN$IN$(L):IN$(L)"":L2119:IN$(L2)""IN$(L2)IN$(L21):IN$(L21)"":[+vL$" ":13:" ":)vD$(4):D$;"OPEN ";NA$:D$;"READ ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$*vL2120:IN$(L2)""30* DELETE FILE ******* (v:2:"TO DELETE A FORM FILE"::"TO DELETE HIT ";::"'CTRL' F"::"TO SELECT HIT ANY KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY")v9::" 7'vD$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$M'vL120:IN$(L):r'vD$;"CLOSE ";NA$:D$;"LOCK ";NA$|'v:10'v"** ONE MOMENT PLEASE DATA BEING SAVED **"'v30095'vU(v *****  ******DATA LOAD \$u8300$Lv ******* START FILE ***** H%Mv:5:"E ":30055E#u30760:30330#u DATA SAVE #u8100R$u ->";:L$%"quL$;:L$(27)L280::P"vuL$(13)IN$IN$(L2):L280::30190:"{u11:1:" "::30055"uL$(27)L220::3#u11:1:" ":!NuD$;"OPEN ";NA$G!SuD$;"READ ";NA$:L2120:IN$(L2):\!XuD$;"CLOSE ";NA$|!]uL2120:IN$(L2)""30055!bu::12:"NO FILES ON DISK":L218000::!guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080"lu22:1:"ENTER KEY HERE- *** GARBO SOFTWARE *** COPYRIGHT 1981 BY GARY D. MALEY ZERO$ ?+ĺ#?,ĺD$"CLOSE PRINTER"xíL$"X"50200y>}íL$"Z"IA23:IB24:IC10:I5$ZERO$:23:1:"ENTER ZERO REPLACEMENT ?":9800:ZERO$I5$>íL$"C"L$"Q"L$"E"50000>PP$L$>ë50000>ĺ:D$"OPEN PRINTER ,S"SS",D"D",V"V>ĺD$"WRITE PRINTER"?"ĺPP$:SL:OT"=eú"(Z) ZERO REPLACEMENT"/=fú"(X) EXIT"Z=hâ17:"CURRENT ZERO REPLACEMENT :"ZERO$}=iâ18:"CURRENT PRINTER ("PP$")"=jâ19:"CURRENT SLOT #"SL=nâ22:"ENTER SELECTION #";:L$ >síL$"N"Ė1:23:"ENTER NEW PRINTER SLOT #";:N$:(N$)8(N$83L7;CE;HD$"PR#0"K;M;N×:5:"INSERT MASTER DISK OR SET SLOT, VOLUME, AND DRIVE WITH EASYFORM LOCATION CONTINUE (Y/N)?";:L$:L$"N"ı";:ANYKEY$7PxANYKEY$эJ:I,J:C5xI(952256):1010,952I256:1011,I:(3)250Č11695"x **** SAVE FILE 5#x5(x 5-xIN$""ġ:30285R "Y" HAS OCCURED"::"****** PLEASE REFER TO YOUR MANUALS ****"N4fw"":""{4jw24:1:"HIT ANY KEY TO CONTINUE ";:LL$4 x216,0:7684x100004x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,2125xI952975:NA$:D$;"LOCK ";NA$3Vw3Zw **** ERROR TRAP 3[wY(222)3`w::" ** AN ERROR HAS OCCURED **"::@4ew:::"ERROR NUMBE V2=wH22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ıp2BwL120:IN$(L)""::2GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$2LwD$;"DELETE ";NA$3QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";";NA$.1wZZ$"&"PT999ZZ$"":PT0::30095|1$wPT999PT0::12:"PLEASE RENAME FILE *******":IN$""::L1110000::1)w2-w ***** INIT 25 0 w15000w ****** CHECK FILE 0w:D$;"OPEN ";NA$:D$;"READ ";NA$:L1120:IN$(L1)0wIN$(L1)IN$PT9991w:D$;"CLOSE N$(3)""L20:)/vL$""IN$"":30470/vL$""Ģ11:1:" ":/w304700w11:1:" ":304N$IN$(L):IN$(L)"":L2119:IN$(L2)""IN$(L2)IN$(L21):IN$(L21)"":.vL$""ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$.vL$""ĺD$"DELETE"IN$:IN$"".vL$(27)L20:/vIN$(1)""IN$(2)""INA$:D$;"READ ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$V-vL2120:IN$(L2)""30425-v::12:"NO FILES ON DISK ********":L2110000::-vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465-v20:1:"ENTER COMMMAND HERE-->";:L$:L$;I.vL$""IANY KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY",v9::" ":13:" ":6-vD$(4):D$;"OPEN "; +v30095+v+v ****** DELETE FILE ******* 0,v:2:"TO DELETE A FORM FILE"::"TO DELETE HIT ";::"'CTRL' F"::"TO SELECT HIT A$S*vTP99TP0::12:"DISK FULL---USE ANOTHER INITIALIZED DISK":L110000::*vD$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$*vL120:IN$(L):*vD$;"CLOSE ";NA$:D$;"LOCK ";NA$*v:10*v"** ONE MOMENT PLEASE DATA BEING SAVED **"M"::" ENTER SELECTION HERE--->";:L$>)fvL$"2"IN$"":P)kvL$"1"30325[)pv30305o)uv(IN$)230285|)zv:30480)vD$;"OPEN ";NA$:D$;"READ ";NA$)vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L120::30355)v)vTP99*vD$;"CLOSE ";N** (Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1(\vIN$"^"TE$))av15:1:"1. TO SAVE DATA ON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRA ('u8100'u ******DATA LOAD 'u8300F(Lv ******* START FILE *** ::30055!&uL$(27)L220::&u11:1:" ":30055&u30760:30330'u DATA SAVE %guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080[%lu22:1:"ENTER KEY HERE-->";:L$x%quL$;:L$(27)L280::%vuL$(13)IN$IN$(L2):L280::30190: &{u11:1:" " ":13:" ":r$NuD$;"OPEN ";NA$$SuD$;"READ ";NA$:L2120:IN$(L2):$XuD$;"CLOSE ";NA$$]uL2120:IN$(L2)""30055$bu::12:"NO FILES ON DISK":L218000::6 #Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"^$Iu:9:" 5u38000:30760#"6u: START FILE5"7u38000:30400J"8u: DELETE FILE\"9u38000:30760o":u: SAVE FILE";u30510:: INIT"=u30555::6000: ERROR #Cu SELECT JOB 10000!e'X(X$)64(!g'X1X1210000t!j'X1000,5000,4000,30001,30005,30007,30001,30005,30007,40000,49998,37000!l'X$"D"X$"E"X$"F"ĭNA$"FORMS"ĭIN$""NA$IN$:IO$""IN$IO$:""!t'10000!0u !1u38000:30020!2u: LOAD FILE"VOLUME";::V;4 E'20:1:"ENTER LETTER HERE:";:X$a G'X$"G"X$"H"X$"I"ĭNA$"FORMS"10000 L'X$"G"X$"H"X$"I"ĭIM1NA$"^"IN$:IM$IN$:IM2:IN$"":"" O'X$"D"X$"E"X$"F"IM2IO$IN$:IN$IM$:NA$"FORMS":IM1 `'X$"X"Ā!b'X$""E FORM ALIGNER"98'"(K) TO CHANGE PRINTER SLOT & TYPE"`:'"(L) CHANGE SLOT, DRIVE, VOLUME"qA'"(X) END."B'23:1::"CURRENT FORM FILE :";::NA$:NA$"FORMS"Ģ23:25:"EMPTY " C':"SLOT";::SS" ";::"DRIVE";::D" ";::""(D) RECALL FORM HEADING FILE"C'"(E) SAVE FORM HEADING FILE"h.'"(F) DELETE FORM HEADING FILE"4'"(G) TO RECALL A FORM HEADING DATA FILE"5'"(H) TO SAVE FORM HEADING DATA FILE"6'"(I) TO DELETE FORM HEADING DATA FILE"7'"(J) CREAT" **** EASYFORM ****"m'2:" (C) GARBO SOFTWARE 1981":" GARY D. MALEY"'"SERIAL#821";'14:"(505) 885-1278";'32:"VER:3.3.1"'6::"(A) CREATE FORM"'"(B) ENTER DATA"'"(C) PRINT DATA" '&CPCP1:CP0ĺ"";:98104&BNCPCP1:BN1X&NU$;:CP1I5$(I5$,CP):9820b&9810&AS((40)256(41)(36)):AS32NU$(AS64):9880&NU$(AS):9880'34,0:'L14::" ";:#'1:(13)CP1:I5$"":IA:IB:I1IC:" ";::IA:IBGf&NU$(13)9890Zp&NU$(8)9910ou&NU$":"NU$";"z&CPIC9880&NU$(21)9940&(NU$)32ĺ"";:9820&I5$I5$NU$:NU$;:CPCP1:CPIC9820&CPICāICP1IC:" ";:&:$"CLOSE "IN$1 NA$"FORMS"āLL1YT:2130::F LL1YT:2110:L V%IC19o%IA10:IB1:I5$"HHH"{H&IA:IBI&BN0M&:I1IC:" ";::IA:IB:I5$;R&IA:IB:CP1\&NU$:NU$(27)NU$(5)ĝ:a&CP1NU$(13)ĝ:3b&CP1NU$L):W(LL):L(LL):IC(LL)1D$"CLOSE "IN$VNA$"FORMS"āLL1YT:2130::k LL1YT:2110:q wl m D$"OPEN "IN$q D$"READ "IN$ YT LL1YT NA$"FORMS"ĄNA$(LL):8335 N$(LL):W(LL):L(LL):IC(LL)  D:IB1:ICIC(LL):I5$NA$(LL):9800:NA$(LL)I5$3LNU$(5)LL300::RXoNA$"FORMS"āLL1YT:2120::8110LL1YT:2100:D$"OPEN "IN$D$"WRITE"IN$YTLL1YTNA$"FORMS"ĺNA$(LL):8135N$(L$(1);" ";L 4014K:"ENTER FORM DATA TO BE PRINTED OUT"WYT1ıfLL1YT1tLL1Ă:8:1:"#"LL10:1(N$(LL),1)"&"(N$(LL),1)"/"(N$(LL),1)">"İ300:N$(LL)" = "NA$(LL);:TT$:5050N$(LL)-IA13OR 'ESC' :";:L$):(13)(4)"PR#"SL5" 80N"MPP$"E"ĺ(27)"1";]X(16384)k16368,0{X1553000X14140504014PP$"E"450036,W(1)1:N$(1);(27)(10)4014L179W(1)LĺN ";:1:"ALIGN FORM FIRST THEN HIT THE 'RETURN' KEY TO PRINT MARKER, ADJUST PAPER IF NEEDED THEN HIT 'RETURN' UNTIL ALIGNED. WHEN PAPER IS ALIGNED HIT THE 'ESC' KEY TO START PRINTING."10:"HIT 'RETURN'  (N$,1)"/"İ300:3070> (N$,1)">"İ300:2500:3070[ (N$,1)"#"İ2500:3070k 36,W(LL)1y NA$(LL);  PP$"E"ĺ" ":3090 PP$"C"ĺ" ":3085 " " (27)(PR);  (13)(4)"PR#0"+::L915:" UL3:L3Q::2540 - N$N$".00":2545L ((N$,UU,Q))3N$N$"0"X Q(N$)h 36,W(LL)1t SQ);} N$;  PP$"E"ĺ(127) PP$"E"āL51L(YT1):3020 L51L(YT1).5 LL1YT L5L(LL)Ă:3075 N$N$(LL)UI$",":UO$"^":A$NA$(LL):2010:NA$(LL)A$:_RUI$"^":UO$",":A$NA$(LL):2010:NA$(LL)A$: NA$(1)"12345.60":LL1:W(1)1 N(NA$(LL)):S10 N0ĺZERO$;:  N(100N.5)100 N$(N) Q(N$) L31Q (N$,L3,1)"."U(N$(LL),1)">"(N$(LL),1)"#"ĭW(LL)70W(LL)70IC101084DBJZWL1(A$)(A$,WL,1)UI$A$(A$,1,WL1)UO$(A$,WL1,(A$)):4UI$",":UO$"^":A$N$(LL):2010:N$(LL)A$:>UI$"^":UO$",":A$N$(LL):2010:N$(LL)A$:-H1)L(LL)L(LL1)W(LL)801069-8LL11090q9(N$(LL),1)">"(N$(LL),1)"&"(N$(LL),1)"/"IC(LL)0:1090|<17:1=I5$(IC(LL)):IA17:IC2:IB27:"DATA INPUT LENGHT :":9800:IC(LL)(I5$):IC(LL)801084>IC(LL)W(LL)801084>?"ENTER VERTICAL LINE # :"S&IA13:IB27:IC5:I5$(L(LL)):9800:L(LL)(I5$)u)L(LL)L(LL1)L(LL)3001059-:15:1."ENTER TAB POSITION :"0IA15:IB27:IC2:I5$(W(LL)):9800:W(LL)(I5$)2W(LL)0W(LL)14W(LL)W(LL1:IC1:I5$N$(LL):9800:N$(LL)I5$:1055YIA10:IB1:IC80:I5$N$(LL):9800:N$(LL)I5$|N$(LL)"END"YTLL:LL300::NU$(27)Ă:NU$(5)LL300::"LL1L(1)1:1069#:13:1:(N$,1)"/"L(LL)L(LL1):W(LL)WW(LL1):1090$300: 20:1::"PREVIOUS HEADING":21::N$(LL1):23::"LINE FEED # ";::L(LL1)::24:"TAB POSITION ";::W(LL1); 8:1 LL1Ğ:"PRINT MARKER SYMBOL"::1050 " HEADING #"LL "ENTER THE HEADING NAME:"(LL1IA10:IBPE 'END' TO STOP/CTRL'E=ABORT/ESC=STEP";Z 2:"'>' = (LJ) A CALC, '&' = (RJ) A CALC " 3:"9 OR 3 = HEADING IN CALC, 56# = THE # 56" 4:"'#' = (LJ) A NUMBER DATA INPUT ONLY " 5:"ENTER '/' TO CALCULATE ONLY /10+5#*22-2" :LL1  D(NA$(AB)) > &ZZ$(L)"+"ZZZZ(ZZ$(L1))` 'ZZ$(L)"/"ZZZZ(ZZ$(L1)) (ZZ$(L)"-"ZZZZ(ZZ$(L1)) )ZZ$(L)"*"ZZZZ(ZZ$(L1)) +495 :34,5:L15::L:" ";:( 1:"TY(NA$((ZZ$(1))))0 L250:ZZ$(L)""NL:L506 A L2N\ (ZZ$(L1),1)"#"550v Z(NA$((ZZ$(L1)))) ZZ$(L)"+"ZZZZZ ZZ$(L)"/"ZZZZZ ZZ$(L)"-"ZZZZZ ZZ$(L)"*"ZZZZZ LL1  NA$(LL)(ZZ) 1 L1300:IC(L)40:% 305550 10000R ,G$N$(LL):L150:ZZ$(L)"":[ 1L71j 6L2(G$){ @K$(G$,L,1) YK$"*"K$"-"K$"+"K$"/"ZZ$(L71)K$:L7L72: ZZ$(L7)ZZ$(L7)K$  (ZZ$(1),1)"#"ZZ(ZZ$(1)):460 ZZ8 FORM PRINTER6NA$"FORMS":D$(4):ZERO$"0"zN$(300),W(300),L(300),ZZ$(50),IC(300),IN$(20),NU$(80),NA$(300)6D(47082):V(47083):SS(47081):SSSS16:V67V05030039999:IM1PR30:PP$"Q"PR68 PP$"E"PR                         (N$(LL),1)">"İ300:N$(LL)" = "NA$(LL);:TT$:5050?N$(LL)vIA12:IB1:ICIC(LL):I5$NA$(LL):9800:NA$(LL)I5$|oNA$"FORMS"āLL1200:2120::8110LL1200:2100:D$"OPEN "IN$D$"WRITE"IN$LL1200NTRONICS GOTO +36,W(1)1:N$(1);<(27)(10)F4014q:"ENTER FORM DATA TO BE PRINTED OUT"LL1200LL1Ă8:1:"#"LLN$(LL)""506010:1N$(LL)(1)LL200:50503(N$(LL),1)"&"(N$(LL),1)"/"THEN HIT 'RETURN' UNTIL ALIGNED. WHEN PAPER IS ALIGNED HIT THE 'ESC' KEY TO START PRINTING."10:"HIT 'RETURN' OR 'ESC' :";:L$(13)(4)"PR#1"" 80N"X(16384)16368,0X1553000X14140504014 IF CE0:3070 L5L(LL)ĺNA$(LL);% . " "> (27)(4)D Z (13)(4)"PR#0"`::L915:" ";:\1:"ALIGN FORM FIRST THEN HIT THE 'RETURN' KEY TO PRINT MARKER, ADJUST PAPER IF NEEDED UU,Q))3N$N$"0" Q(N$)* SQ);3 N$;9 ? P L51200.5n N$(L5)(1)L5200:3090| LL1200 N$N$(LL) N$(LL)(1)LL200:3070 L5L(LL)ĭ(N$,1)"/"3070 L5L(LL)Ĺ36,W(LL)1:(N$,1)"#"(N$,1)">"İ250L):2010:NA$(LL)A$:GRUI$"^":UO$",":A$NA$(LL):2010:NA$(LL)A$:] N(NA$(LL)):S10p N0ĺ"N/A";:v  N(100N.5)100 N$(N) Q(N$) L31Q (N$,L3,1)"."UUL3:L3Q::2540  N$N$".00":2545 ((N$,00:IC(LL)(I5$):IC(LL)401084&B234,0:BWL1(A$){(A$,WL,1)UI$A$(A$,1,WL1)UO$(A$,WL1,(A$)):4UI$",":UO$"^":A$N$(LL):2010:N$(LL)A$:>UI$"^":UO$",":A$N$(LL):2010:N$(LL)A$:HUI$",":UO$"^":A$NA$(L15:1'."ENTER TAB POSITION :"\0IA15:IB27:IC2:I5$(W(LL)):9800:W(LL)(I5$)q2W(LL)0W(LL)14W(LL)W(LL1)L(LL)L(LL1)W(LL)8010698LL11090<17:1 =I5$(IC(LL)):IA17:IC2:IB27:"DATA INPUT LENGHT :":982)LL200::+N$(LL)(1)LL200:1090B"LL1L(1)1:1069#:13:1:(N$,1)"/"L(LL)L(LL1):W(LL)WW(LL1):1090$"ENTER VERTICAL LINE # :"&IA13:IB27:IC5:I5$(L(LL)):9800:L(LL)(I5$))L(LL)L(LL1)L(LL)2001059-:W(LL1) 99 LL1Ğ:"PRINT MARKER SYMBOL"::1050R " HEADING #"LLq "ENTER THE HEADING NAME:" LL1IA11:IB1:IC1:I5$N$(LL):9800:N$(LL)I5$:1055 IA11:IB1:IC40:I5$N$(LL):9800:N$(LL)I5$ NU$(27)Ă: N$(LL)(R MATH OR '>' TO JUSTIFY &1+3*3 : >6+9#/3 -(6=HEADING).(9#=VALUE)"x 5:"ENTER '/' TO CALCULATE ONLY /10+5#*22-2" :LL1200  20:1::"PREVIOUS HEADING":21::N$(LL1):22::"LINE FEED # ";::L(LL1)::23:"TAB POSITION ";::"-"ZZZZ(ZZ$(L1))7 )ZZ$(L)"*"ZZZZ(ZZ$(L1))@ +495 :34,6:L16::L:" ";: 1:"FORMAT SET-UP HIT CTRL-A TO END." 2:"ENTER A '#' PLUS THE NUMBER TO JUSTIFY"E 3:"ENTER '&' FOZ(NA$((ZZ$(L1))))? ZZ$(L)"-"ZZZZ(NA$((ZZ$(L1))))i ZZ$(L)"*"ZZZZ(NA$((ZZ$(L1))))s LL1y  NA$(LL)(ZZ)   D(NA$(AB))  &ZZ$(L)"+"ZZZZ(ZZ$(L1)) 'ZZ$(L)"/"ZZZZ(ZZ$(L1)) (ZZ$(L)z #????      ˠ Ӡ! "ӠԠӠ Ҡɠ:Ҡɠ6Ϡ ҠӠԠҠɠ:ӠӠ6r64(27)"1" 69L1200'6>L-6C;6HD$"PR#0"A6Ms6P×:"****************************************"6QD$(4)6S:H2:CC$"PRINTER SELECTION & SLOT CHANGE"6Tð399906Uú"****************************************"6Yâ77Zú"(C) CENTR HIT ANY KEY"5AANYKEY$ 5C75DD$"PR#"SL:" 80N"c5EL108010:L$(L):36,L1:(L$,1);:i5F5JL180:L$(L):(L$,1);:5K5OPP$"E"405005TL12005YL;5[(27)(PR)5^" -";5`(27)(PR)5c5d5hD$"PR#0"$"LOCK "NA$430555$4216,0:G4d768:216,0:30530:"":38015|46CC(CC$):L640CC:L6L62:L6%L61:L6%:H:CC$474?768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96: 5@:"TURN ON YOUR PRINTER ANDIT THE 'R' KEY")3Fx11:"FILE NAME":IN$L3Kx20:"ENTER HERE-->";:ANYKEY$h3PxANYKEY$(27)ġ:100003UxANYKEY$"R"ġ:302853ZxAN$(13)ZZ$"&":304803_x307603p:10:"**INSERT YOUR DATA DISK AND HIT ANY KEY*";:LL$3u385003v 4zD 92#xB2(x W2-xIN$""ġ:30285n22x(IN$)2ġ:3028527x:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BELOW HIT THE 'RETURN' KEY."2";:L$k$fvL$"2"IN$"":}$kvL$"1"30325$pv30305$uv(IN$)230285$zv:30480$vD$;"OPEN ";NA$:D$;"READ ";NA$ %vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L12 ******* START FILE ***** #Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1#\vIN$"^"TE$V$av15:1:"1. TO SAVE DATA ON CURREN DATA SAVE U"u8100"u ******DATA LOAD "u8300s#Lv "::30055N!uL$(27)L220::!u11:1:" ":30055!u30760:30330K"u u::12:"NO FILES ON DISK":L218000::c guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080 lu22:1:"ENTER KEY HERE-->";:L$ quL$;:L$(27)L280:: vuL$(13)IN$IN$(L2):L280::30190:6!{u11:1:" ":13:" ":NuD$;"OPEN ";NA$SuD$;"READ ";NA$:L2120:IN$(L2):XuD$;"CLOSE ";NA$]uL2120:IN$(L2)""30055+ b SELECT JOB Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"Iu:9:" ŠŠҠԠȍčϠӍҠӠĠӠŠӠĠԠō̠ŠŠӠŠŠҠƠӍӠ̠ԍӠΠ̷ӠԠӍĠŠޠӠĠӠŠŠӠŠϠӍȠҠŠŠŠӠĠӠŠ٠ӠŠŠՠҠŠЮԠΠҠŠƠӠōҠȠΠĠĠΠӠŠӠŠϠӠĠŠ؍ōύӍٍŠЍōӠҠ΍ҠҠҠΠ٠ҠōōčōϮƠԠ΍     ******************""İ2500:L79::3570: NA$(LL);@ M :" ":c (13)(4)"PR#0"i::L915:" ";:e1:"ALIGN FORM FIRST THEN HIT THE 'RETURN' KEY TO PRINT MARKER, ADJUST PAPER IF LL)ĺNA$(LL); + PP$"C"ĺ" ":30855 " ";G (27)(PR);M c (13)(4)"PR#0"i t " "; L51YT LL1YT N$N$(LL) L5L(LL)Ă:" "::3575 L179:W(LL)Lĺ" ";::3570 (N$,1)"/"L79::3570, N$N$".00":25452 ((N$,UU,Q))3N$N$"0"> Q(N$)J SQ);S N$;Y k PP$"E"3500{ L51YT.5 LL1YT N$N$(LL) L5L(LL)ĭ(N$,1)"/"3070 L5L(LL)Ĺ36,W(LL)1:(N$,1)"#"(N$,1)">"İ2500:3070  L5L($:5HUI$",":UO$"^":A$NA$(LL):2010:NA$(LL)A$:gRUI$"^":UO$",":A$NA$(LL):2010:NA$(LL)A$:} N(NA$(LL)):S10 N0ĺ"N/A";:  N(100N.5)100 N$(N) Q(N$) L31Q (N$,L3,1)"."UUL3:L3Q::2540 B27:"DATA INPUT LENGHT :":9800:IC(LL)(I5$):IC(LL)401084LBRbWL1(A$)(A$,WL,1)UI$A$(A$,1,WL1)UO$(A$,WL1,(A$)):4UI$",":UO$"^":A$N$(LL):2010:N$(LL)A$:>UI$"^":UO$",":A$N$(LL):2010:N$(LL)AL(LL)L(LL1)L(LL)3001059+-:15:1M."ENTER TAB POSITION :"0IA15:IB27:IC2:I5$(W(LL)):9800:W(LL)(I5$)2W(LL)0W(LL)14W(LL)W(LL1)L(LL)L(LL1)W(LL)8010698LL11090<17:1F=I5$(IC(LL)):IA17:IC2:INU$(27)Ă:/N$(LL)(2)LL300::QN$(LL)(1)YTLL:LL300::h"LL1L(1)1:1069#:13:1:(N$,1)"/"L(LL)L(LL1):W(LL)WW(LL1):1090$"ENTER VERTICAL LINE # :"&IA13:IB27:IC5:I5$(L(LL)):9800:L(LL)(I5$))ŠŠҠԠȍčϠӍҠӠĠӠŠӠĠԠō̠ŠŠӠŠŠҠƠӍӠ̠ԍӠΠ̠ӠԠӍĠŠޠӠĠӠŠŠӠŠϠӍȠҠŠŠŠӠĠӠŠ٠ӠŠŠՠҠŠЮԠΠҠŠƠӠōҠȠΠĠĠΠӠŠӠŠϠӠĠŠ؍ōύӍٍŠЍōӠҠ΍ҠҠҠΠ٠ҠōōčōϮƠԠ΍     ŠŠҠԠȍčON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRAM"::" ENTER SELECTION HERE--->";:L$t&fvL$"2"IN$"":&kvL$"1"30325&pv30305&uv(IN$)230285&zv:30480&vD$;"OPEN ";NA$:D$;"READ ";NA$'vL1120:IN$(L1):IN$(L1)""IN$(L1) ******* START FILE ***** %Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1%\vIN$"^"TE$_&av15:1:"1. TO SAVE DATA DATA SAVE ^$u8100$u ******DATA LOAD $u8300|%Lv "::30055W#uL$(27)L220::#u11:1:" ":30055#u30760:30330T$u 300554"bu::12:"NO FILES ON DISK":L218000::l"guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080"lu22:1:"ENTER KEY HERE-->";:L$"quL$;:L$(27)L280::"vuL$(13)IN$IN$(L2):L280::30190:?#{u11:1:" ":13:" ":!NuD$;"OPEN ";NA$!SuD$;"READ ";NA$:L2120:IN$(L2):!XuD$;"CLOSE ";NA$"]uL2120:IN$(L2)"" SELECT JOB Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"!Iu:9:" 100000u 1u38000:3002032u: LOAD FILEE5u38000:30760Y6u: START FILEk7u38000:304008u: DELETE FILE9u38000:30760:u: SAVE FILE;u30510:: INIT=u30555::6000: ERROR T Cu X$"9"X$"10"NA$"FORMS"NA$"^"IN$:IN$""V'W(1)5:W(2)10:W(3)50:N$(1)"X":N$(2)"NA":N$(3)"DOG":NA$(2)"SEX":NA$(3)"CUNT":YT5W'L(1)1:L(2)1:L(3)1`'X$"X"Āj'(X$)30001,30005,1000,5000,4000,30007,40000,30005,30007,30001,50000t'"8. TO SAVE DATA TO "IN$:6'"9. TO DELETE DATA TO "IN$]7'"10. TO RECALL DATA FROM "IN$8'"11. TO CHANGE PRINTER SLOT & TYPE"A'"X. END."B'20:1:"ENTER HERE:";X$G'X$"1"X$"2"X$"6"ĭNA$"FORMS"IN$NA$:NA$"FORMS":"".L'X$"8" GARY D. MALEY":" (505) 885-1278"='6:\'"1. RECALL FORM ON DISK"y'"2. SAVE FORM ON DISK"'"3. CREATE FORM"$'"4. ENTER DATA")'"5. PRINT DATA".'"6. DELETE FORM ON DISK"3'"7. CREATE FORM ALIGNER"5'&IA:IBLR);NU$;:NU$(LR)NU$:X&TU0LR:I5$I5$NU$(TU)::TU1IC:NU$(TU)""::d'34,0:'L14::" ";:'1:" **** FORM PRINTER ****"4'2:" (C) GARBO SOFTWARE 1981":" NU$I3$ıF&I5$"":9850:IA:IB:NU$;:NU$(0)NU$:I5$"":LR1IC1]&NU$:NU$I2$9920&NU$I3$LRLR1:LR1NU$(0)"":9920&NU$I3$ĢIA:(IBLR)1:(95);:(IBLR):9894&NU$I4$LRLR1:LRIC9920&NU$I4$ĢIA:(IBLR):9894!:IC(LL) ! D$"CLOSE "IN$K NA$"FORMS"āLL1YT:2130::10000` LL1YT:2110:k 10000H&I1$(27):I2$(13):I3$(8):I4$(21):9850:9880z&IA:IB:LR1IC:(95);::IA:IB:I5$:&IA:IB:NU$:NU$I1$ı&NU$I2$ı &D$"WRITE"IN$YT%LL1YTFNA$"FORMS"ĺNA$(LL):8135hN$(LL):W(LL):L(LL):IC(LL)nD$"CLOSE "IN$ 10000l D$"OPEN "IN$q D$"READ "IN$ YT LL1YT NA$"FORMS"ĄNA$(LL):8335 N$(LL):W(LL):L(LL)DD$"PR#"SL:" 80N"@6EL108010:L$(L):36,L1:(L$,1);:F6Ff6JL180:L$(L):(L$,1);:l6K6OPP$"E"405006TL12006YL;6[(27)(PR)6^" -";6`(27)(PR)6c6d6hD$"PR#0"6r64(27)"1"69L12007$5d768:216,0:30530:"":38015Y56CC(CC$):L640CC:L6L62:L6%L61:L6%:H:CC$_575?768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:5@:"TURN ON YOUR PRINTER AND HIT ANY KEY"5AANYKEY$5C6":IN$)4Kx20:"ENTER HERE-->";:ANYKEY$E4PxANYKEY$(27)ġ:10000_4UxANYKEY$"R"ġ:30285}4ZxAN$(13)ZZ$"&":304804_x307604p:10:"**INSERT YOUR DATA DISK AND HIT ANY KEY*";:LL$4u385004v4zD$"LOCK "NA$4305555216,0: 3#x3(x 43-xIN$""ġ:30285K32x(IN$)2ġ:3028537x:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BELOW HIT THE 'RETURN' KEY."32xI952975:J:I,J:y2xI(952256):1010,952I256:1011,I:(3)250Č11693"x **** SAVE FILE * AN ERROR HAS OCCURED **"::v1ew:::"ERROR NUMBER "Y" HAS OCCURED"::"****** PLEASE REFER TO YOUR MANUALS ****"1fw"":""1jw24:1:"HIT ANY KEY TO CONTINUE ";:LL$1 x216,0:7681x10000%2x 32,234,3,162,2,173,0,224,201,76,240,7,202,";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$:D$;"LOCK ";NA$O0Vw0Zw **** ERROR TRAP 0[wY(222)1`w::" * /=wH22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ı/BwL120:IN$(L)""::/GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$/LwD$;"DELETE ";NA$I0QwD$(4):D$;"OPEN 20:IN$(L1)$.wIN$(L1)IN$PT999;.w:D$;"CLOSE ";NA$d.wZZ$"&"PT999ZZ$"":PT0::30095.$wPT999PT0::12:"PLEASE RENAME FILE *******":IN$""::L1110000::.)wL/-w ***** INIT ":30425B- w1500-w ****** CHECK FILE .w:D$;"OPEN ";NA$:D$;"READ ";NA$:L11IN$"",vL$(27)L20:E,vIN$(1)""IN$(2)""IN$(3)""L20:_,vL$""IN$"":30470,vL$""Ģ11:1:" ":,w304708-w11:1:" 0:1:"ENTER COMMMAND HERE-->";:L$:L$;+vL$""IN$IN$(L):IN$(L)"":L2119:IN$(L2)""IN$(L2)IN$(L21):IN$(L21)"":+vL$""ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$,vL$""ĺD$"DELETE"IN$: ":l*vD$(4):D$;"OPEN ";NA$:D$;"READ ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$*vL2120:IN$(L2)""30425*v::12:"NO FILES ON DISK ********":L2110000::*vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465(+v2::"TO DELETE HIT ";::"'CTRL' F"::"TO SELECT HIT ANY KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"*v9::" ":13:" Ԡ3000X141405040140PP$"E"45006M36,W(1)1:N$(1);^(27)(10)h4014nzL179W(1)LĺN$(1);" ";L4014:"ENTER FORM DATA TO BE PRINTED OUT"YT1ıLL1YT1LL1Ă:T PAPER IF NEEDED THEN HIT 'RETURN' UNTIL ALIGNED. WHEN PAPER IS ALIGNED HIT THE 'ESC' KEY TO START PRINTING."10:"HIT 'RETURN' OR 'ESC' :";:L$:(13)(4)"PR#"SL" 80N"PP$"E"ĺ(27)"1";X(16384)16368,0X155);  PP$"E"ĺ" ":30908 PP$"C"ĺ" ":3085A " "S (27)(PR);Y o (13)(4)"PR#0"u::L915:" ";:q1:"ALIGN FORM FIRST THEN HIT THE 'RETURN' KEY TO PRINT MARKER, ADJUSW(LL)1 SQ); N$;" ( = PP$"E"ĺ(127)^ PP$"E"āL51L(YT1):3020s L51L(YT1).5 LL1YT L5L(LL)Ă:3075 N$N$(LL) (N$,1)"/"3070 (N$,1)"#"(N$,1)">"İ2500:3070 36,W(LL)1 NA$(LL NA$(1)"12345.60":LL1:W(1)16 N(NA$(LL)):S10I N0ĺZERO$;:O e N(100N.5)100q N$(N)} Q(N$) L31Q (N$,L3,1)"."UUL3:L3Q::2540  N$N$".00":2545 ((N$,UU,Q))3N$N$"0" Q(N$) 36,(A$,WL,1)UI$A$(A$,1,WL1)UO$(A$,WL1,(A$))::j4UI$",":UO$"^":A$N$(LL):2010:N$(LL)A$:>UI$"^":UO$",":A$N$(LL):2010:N$(LL)A$:HUI$",":UO$"^":A$NA$(LL):2010:NA$(LL)A$:RUI$"^":UO$",":A$NA$(LL):2010:NA$(LL)A$: L)8010698LL11090S9(N$(LL),1)">"(N$(LL),1)"&"(N$(LL),1)"/"1090^<17:1=I5$(IC(LL)):IA17:IC2:IB27:"DATA INPUT LENGHT :":9800:IC(LL)(I5$):IC(LL)801084>IC(LL)W(LL)801084BWL1(A$)2NE # :"?&IA13:IB27:IC5:I5$(L(LL)):9800:L(LL)(I5$)a)L(LL)L(LL1)L(LL)3001059n-:15:1."ENTER TAB POSITION :"0IA15:IB27:IC2:I5$(W(LL)):9800:W(LL)(I5$)2W(LL)0W(LL)1 4W(LL)W(LL1)L(LL)L(LL1)W(L:N$(LL)I5$:1055BIA10:IB1:IC80:I5$N$(LL):9800:N$(LL)I5$UNU$(27)Ă:qN$(LL)(2)LL300::N$(LL)"END"YTLL:LL300::"LL1L(1)1:1069#:13:1:(N$,1)"/"L(LL)L(LL1):W(LL)WW(LL1):1090 $"ENTER VERTICAL LIEVIOUS HEADING":21::N$(LL1):23::"LINE FEED # ";::L(LL1)::24:"TAB POSITION ";::W(LL1);r 8:1 LL1Ğ:"PRINT MARKER SYMBOL"::1050 " HEADING #"LL "ENTER THE HEADING NAME:"LL1IA10:IB1:IC1:I5$N$(LL):9800ABORT, ESC=STEP";C 2:"'>' = (LJ) A CALC, '&' = (RJ) A CALC "v 3:"9 OR 3 = HEADING IN CALC, 56# = THE # 56" 4:"'#' = (LJ) A NUMBER DATA INPUT ONLY " 5:"ENTER '/' TO CALCULATE ONLY /10+5#*22-2" :LL1300:h 20:1::"PR ' &ZZ$(L)"+"ZZZZ(ZZ$(L1))I 'ZZ$(L)"/"ZZZZ(ZZ$(L1))k (ZZ$(L)"-"ZZZZ(ZZ$(L1)) )ZZ$(L)"*"ZZZZ(ZZ$(L1)) +495 :34,5:L15::L:" ";: 1:"TYPE END TO STOP, CTRL'B=(ZZ$(L1),1)"#"550A ZZ$(L)"+"ZZZZ(NA$((ZZ$(L1))))k ZZ$(L)"/"ZZZZ(NA$((ZZ$(L1)))) ZZ$(L)"-"ZZZZ(NA$((ZZ$(L1)))) ZZ$(L)"*"ZZZZ(NA$((ZZ$(L1)))) LL1  NA$(LL)(ZZ)   D(NA$(AB))0:ZZ$(L)"": 1L71% 6L2(G$)6 @K$(G$,L,1)n YK$"*"K$"-"K$"+"K$"/"ZZ$(L71)K$:L7L72: ZZ$(L7)ZZ$(L7)K$  (ZZ$(1),1)"#"ZZ(ZZ$(1)):460 ZZ(NA$((ZZ$(1)))) L250:ZZ$(L)""NL:L50  L2N ۳٠ٍΠˍ׮Šč͠ōˠύӍōӍĠŠ "::300551$uL$(27)L220::$u11:1:" ":30055$u30760:30330.%u DATA SAVE L218000::F#guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080k#lu22:1:"ENTER KEY HERE-->";:L$#quL$;:L$(27)L280::#vuL$(13)IN$IN$(L2):L280::30190:${u11:1:" ":13:" ":"NuD$;"OPEN ";NA$"SuD$;"READ ";NA$:L2120:IN$(L2):"XuD$;"CLOSE ";NA$"]uL2120:IN$(L2)""30055#bu::12:"NO FILES ON DISK": !Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"n"Iu:9:" : LOAD FILE 5u38000:307603 6u: START FILEE 7u38000:30400Z 8u: DELETE FILEl 9u38000:30760 :u: SAVE FILE ;u30510:: INIT =u30555::6000: ERROR .!Cu SELECT JOB NA$:NA$"FORMS":""ML'X$"H"X$"I"X$"G"NA$"FORMS"NA$"^"IN$:IN$""[`'X$"X"Ālb'X$""10000{e'X(X$)64g'X1X1110000j'X1000,5000,4000,30001,30005,30007,30001,30005,30007,40000,50000t'100000u 1u38000:30020 2uTA FILE"(7'"(J) CREATE FORM ALIGNER"R8'"(K) TO CHANGE PRINTER SLOT & TYPE"cA'"(X) END."B'23:1::"CURRENT FORM FILE :";::IN$:IN$""Ģ23:25:"EMPTY"E'20:1:"ENTER LETTER HERE:";:X$G'X$"D"X$"E"X$"F"ĭNA$"FORMS"IN$) CREATE FORM"&'"(B) ENTER DATA"='"(C) PRINT DATA"]'"(D) RECALL FORM ON DISK"{'"(E) SAVE FORM ON DISK".'"(F) DELETE FORM ON DISK"4'"(G) TO RECALL FORM DATA FILE"5'"(H) TO SAVE FORM DATA FILE"6'"(I) TO DELETE FORM DA&NU$(AS):9880'34,0:Z'L14::" ";:'1:" **** FORM PRINTER ****"'2:" (C) GARBO SOFTWARE 1981":" GARY D. MALEY":" (505) 885-1278"'6:'"(A$)32ĺ"";:9820<&I5$I5$NU$:NU$;:CPCP1:CPIC9820Z&CPICāICP1IC:" ";:b&:&CPCP1:CP0ĺ"";:9810&BNCPCP1:BN1&NU$;:CP1I5$(I5$,CP):9820&9810&AS((40)256(41)(36)):AS32NU$(AS64):9880:I1IC:" ";::IA:IB:I5$;0R&IA:IB:CP1Q\&NU$:NU$(27)NU$(2)ĝ:ia&CP1NU$(13)ĝ:b&CP1NU$(13)CP1:I5$"":IA:IB:I1IC:" ";::IA:IBf&NU$(13)9890p&NU$(8)9910z&CPIC9880&NU$(21)9940&(NUEAD "IN$ YT LL1YT> NA$"FORMS"ĄNA$(LL):8335` N$(LL):W(LL):L(LL):IC(LL)f y D$"CLOSE "IN$ NA$"FORMS"āLL1YT:2130::10000 LL1YT:2110: 10000%IC19%IA10:IB1:I5$"HHH"H&IA:IBI&BN0M&2100:D$"OPEN "IN$*D$"WRITE"IN$2YT?LL1YT`NA$"FORMS"ĺNA$(LL):8135N$(LL):W(LL):L(LL):IC(LL)D$"CLOSE "IN$NA$"FORMS"āLL1YT:2130::8199 LL1YT:2110: 10000l D$"OPEN "IN$q D$"R:38::"*":8 (13)(4)"RUN PRINTER II")N$""ġ:30285%42x(IN$)2ġ:30285|47x:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BELOW HIT THE 'RETURN' KEY."4";:ANYK3xI952975:J:I,J:S3xI(952256):1010,952I256:1011,I:(3)250Č11693"x **** SAVE FILE 3#x3(x 4-xI::"ERROR NUMBER "Y" HAS OCCURED"::"****** PLEASE REFER TO YOUR MANUALS ****"^2fw"":""2jw24:1:"HIT ANY KEY TO CONTINUE ";:LL$2 x216,0:7682x100002x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212::D$;"CLOSE ";NA$:D$;"LOCK ";NA$)1Vw1Zw **** ERROR TRAP 1[wY(222)1`w::" ** AN ERROR HAS OCCURED **"::P2ew: f0=wH22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ı0BwL120:IN$(L)""::0GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$0LwD$;"DELETE ";NA$#1QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)/w:D$;"CLOSE ";NA$>/wZZ$"&"PT999ZZ$"":PT0::30095/$wPT999PT0::12:"PLEASE RENAME FILE *******":IN$""::L1110000::/)w&0-w ***** INIT ":30425. w1500.w ****** CHECK FILE .w:D$;"OPEN ";NA$:D$;"READ ";NA$:L1120:IN$(L1).wIN$(L1)IN$PT999)""IN$(2)""IN$(3)""L20:9-vL$""IN$"":30470-vL$""Ģ11:1:" ":-w30470.w11:1:" $;Y,vL$""IN$IN$(L):IN$(L)"":L2119:IN$(L2)""IN$(L2)IN$(L21):IN$(L21)"":,vL$""ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$,vL$""ĺD$"DELETE"IN$:IN$"",vL$(27)L20:-vIN$(1(4):D$;"OPEN ";NA$:D$;"READ ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$f+vL2120:IN$(L2)""30425+v::12:"NO FILES ON DISK ********":L2110000::+vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465,v20:1:"ENTER COMMMAND HERE-->";:L$:L"TO SELECT HIT ANY KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"*v9::" ":13:" ":F+vD$BEING SAVED **")v30095 )v)v ****** DELETE FILE ******* @*v:2:"TO DELETE A FORM FILE"::"TO DELETE HIT ";::"'CTRL' F"::vD$;"CLOSE ";NA$c(vTP99TP0::12:"DISK FULL---USE ANOTHER INITIALIZED DISK":L110000::(vD$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$(vL120:IN$(L):(vD$;"CLOSE ";NA$:D$;"LOCK ";NA$(v:10)v"** ONE MOMENT PLEASE DATA N TO MAIN PROGRAM"::" ENTER SELECTION HERE--->";:L$N'fvL$"2"IN$"":`'kvL$"1"30325k'pv30305'uv(IN$)230285'zv:30480'vD$;"OPEN ";NA$:D$;"READ ";NA$'vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L120::30355'v'vTP99( $Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1$\vIN$"^"TE$ %av15:1:"1. TO SAVE DATA ON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRAM"::" ENTER SELECTION H #u8100#u ******DATA LOAD #u8300*$Lv ******* START FILE ***** 0::j"u11:1:" ":30055|"u30760:30330#u DATA SAVE $(L2):IN$(L2)""Ă:30080?!lu22:1:"ENTER KEY HERE-->";:L$\!quL$;:L$(27)L280::!vuL$(13)IN$IN$(L2):L280::30190:!{u11:1:" "::30055"uL$(27)L22 ":V NuD$;"OPEN ";NA$~ SuD$;"READ ";NA$:L2120:IN$(L2): XuD$;"CLOSE ";NA$ ]uL2120:IN$(L2)""30055 bu::12:"NO FILES ON DISK":L218000::!guL2120:11:1:L2". "IN Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"B Iu:9:" ":13:" RT FILE7u38000:30400.8u: DELETE FILE@9u38000:30760S:u: SAVE FILEi;u30510:: INIT=u30555::6000: ERROR Cu SELECT JOB N$NA$:NA$"FORMS":""QL'X$"8"X$"9"X$"10"NA$"FORMS"NA$"^"IN$:IN$""_`'X$"X"Āj'(X$)30001,30005,1000,5000,4000,30007,40000,30005,30007,30001,50000t'100000u 1u38000:300202u: LOAD FILE5u38000:307606u: STA *** GARBO SOFTWARE *** COPYRIGHT 1981 BY GARY D. MALEY ND$"WRITE PRINTER"&;"ĺPP$:SL:ZERO$,;+ĺD;,ĺD$"CLOSE PRINTER"];1PR30:PP$"Q"PR68o;2ĭPP$"E"PR1u;6ı;|ĺ:D$"OPEN PRINTER ,S"SS",D"D",V"V;ĺD$"READ PRINTER";ĄPP$:SL:ZERO$;ĺ(13)(4)"CLOSE PRINTER";ı< LOT #";:N$:(N$)8(N$)0SL(N$)7:xíL$"X"50200:}íL$"Z"IA23:IB24:IC10:I5$ZERO$:23:1:"ENTER ZERO REPLACEMENT ?":9800:ZERO$I5$:íL$"C"L$"Q"L$"E"L$"S"50000:PP$L$:ë50000:ĺ:D$"OPEN PRINTER ,S"SS",D"D",V"V;ĺ9dú"(N) NEW PRINTER SLOT"89eú"(Z) ZERO REPLACEMENT"H9fú"(X) EXIT"s9hâ17:"CURRENT ZERO REPLACEMENT :"ZERO$9iâ18:"CURRENT PRINTER ("PP$")"9jâ19:"CURRENT SLOT #"SL9nâ22:"ENTER SELECTION #";:L$%:síL$"N"Ė1:23:"ENTER NEW PRINTER S0"8M:8P×:"****************************************"F8QD$(4)u8S:H2:CC$"PRINTER SELECTION & SLOT CHANGE"8Tð399908Uú"****************************************"8Yâ78Zú"(C) CENTRONICS"8\ú"(Q) QUME"8]ú"(E) EPSON"9^ú"(S) SPRINT"7EL108010:L$(L):36,L1:(L$,1);:07FP7JL180:L$(L):(L$,1);:V7Ki7OPP$"E"40500v7TL1200~7YL;7[(27)(PR)7^" -";7`(27)(PR)7c7d7hD$"PR#0"7r74(27)"1"79L12007>L7C8HD$"PR#30:"":38015C66CC(CC$):L640CC:L6L62:L6%L61:L6%:H:CC$I676?768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:6@:"TURN ON YOUR PRINTER AND HIT ANY KEY"6AANYKEY$6C6DD$"PR#"SL:" 80N"*IN$"":30470u+vL$""Ģ11:1:" ":+w30470+w11:1:" ":30425+ w1500,w :IN$(L2)""IN$(L2)IN$(L21):IN$(L21)"":*vL$""ĺD$"UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$*vL$""ĺD$"DELETE"IN$:IN$""*vL$(27)L20:*vIN$(1)""IN$(2)""IN$(3)""L20: +vL$""ĄIN$(L)::D$;"CLOSE ";NA$:)vL2120:IN$(L2)""30425s)v::12:"NO FILES ON DISK ********":L2110000::)vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465)v20:1:"ENTER COMMMAND HERE-->";:L$:L$;-*vL$""IN$IN$(L):IN$(L)"":L2119U HIT THE 'ESC' KEY"(v9::" ":13:" ":)vD$(4):D$;"OPEN ";NA$:D$;"READ ";NA$:L120: ****** DELETE FILE ******* (v:2:"TO DELETE A FORM FILE"::"TO DELETE HIT ";::"'CTRL' F"::"TO SELECT HIT ANY KEY":"TO GO BACK TO MENISK FULL---USE ANOTHER INITIALIZED DISK":L110000::n&vD$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$&vL120:IN$(L):&vD$;"CLOSE ";NA$:D$;"LOCK ";NA$&v:10&v"** ONE MOMENT PLEASE DATA BEING SAVED **"&v30095&v'v ERE--->";:L$"%fvL$"2"IN$"":4%kvL$"1"30325?%pv30305S%uv(IN$)230285`%zv:30480%vD$;"OPEN ";NA$:D$;"READ ";NA$%vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L120::30355%v%vTP99%vD$;"CLOSE ";NA$7&vTP99TP0::12:"D760:u: SAVE FILE,;u30510:: INITI=u30555::6000: ERROR Cu SELECT JOB N Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPAC000e'X(X$)64&g'X1X1110000lj'X1000,5000,4000,30001,30005,30007,30001,30005,30007,40000,50000wt'100000u 1u38000:300202u: LOAD FILE5u38000:307606u: START FILE7u38000:304008u: DELETE FILE9u38000:30D."MB'23:1::"CURRENT FORM FILE :";::IN$:IN$""Ģ23:25:"EMPTY"jE'20:1:"ENTER HERE:";X$G'X$"D"X$"E"X$"F"ĭNA$"FORMS"IN$NA$:NA$"FORMS":""L'X$"H"X$"I"X$"G"NA$"FORMS"NA$"^"IN$:IN$""`'X$"X"Āb'X$""10'"(E) SAVE FORM ON DISK";.'"(F) DELETE FORM ON DISK"`4'"(G) TO RECALL FORM DATA FILE"5'"(H) TO SAVE FORM DATA FILE"6'"(I) TO DELETE FORM DATA FILE"7'"(J) CREATE FORM ALIGNER"8'"(K) TO CHANGE PRINTER SLOT & TYPE"A'"(X) EN1:" **** FORM PRINTER ****"'2:" (C) GARBO SOFTWARE 1981":" GARY D. MALEY":" (505) 885-1278"'6:'"(A) CREATE FORM"'"(B) ENTER DATA"'"(C) PRINT DATA"'"(D) RECALL FORM ON DISK"(95);:(IBLR):98947&NU$I4$LRLR1:LRIC9920W&NU$I4$ĢIA:(IBLR):9894{&IA:IBLR);NU$;:NU$(LR)NU$:&TU0LR:I5$I5$NU$(TU)::TU1IC:NU$(TU)""::'34,0:'L14::" ";:%'C:(95);::IA:IB:I5$:6&IA:IB:NU$:NU$I1$ıE&NU$I2$ıU&NU$(2)ıd&NU$I3$ı&I5$"":9850:IA:IB:NU$;:NU$(0)NU$:I5$"":LR1IC1&NU$:NU$I2$9920&NU$I3$LRLR1:LR1NU$(0)"":9920&NU$I3$ĢIA:(IBLR)1: ":!NuD$;"OPEN ";NA$A!SuD$;"READ ";NA$:L2120:IN$(L2):V!XuD$;"CLOSE ";NA$v!]uL2120:IN$(L2)""30055!bu::12:"NO FILES ON DISK":L218000::!guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080"lu22:1:"ENTER KEY HERE-->";:E BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY"!Iu:9:" ":13:" RBO SOFTWARE *** COPYRIGHT 1981 BY GARY D. MALEY W$"OPEN PRINTER")8ĺD$"WRITE PRINTER"68"ĺPP$:SL<8+ĺT8,ĺD$"CLOSE PRINTER"Z86ıt8|ĺ:D$"OPEN PRINTER"8ĺD$"READ PRINTER"8ĄPP$:SL8ĺ(13)(4)"CLOSE PRINTER"8ı9 *** GARENT PRINTER ("PP$")"47jâ19:"CURRENT SLOT #"SLV7nâ22:"ENTER SELECTION #";:L$7síL$"N"Ė1:23:"ENTER NEW PRINTER SLOT #";:N$:(N$)8(N$)0SL(N$)7xíL$"X"502007íL$"C"L$"Q"L$"E"L$"S"500007PP$L$7ë500008ĺ:D6QD$(4)96S:H2:CC$"PRINTER SELECTION & SLOT CHANGE"D6Tð39990t6Uú"****************************************"{6Yâ76Zú"(C) CENTRONICS"6\ú"(Q) QUME"6]ú"(E) EPSON"6^ú"(S) SPRINT"6dú"(N) NEW PRINTER SLOT"6eú:"(X) EXIT"7iâ18:"CUR:L$(L):(L$,1);:5K-5OPP$"E"40500:5TL1200B5YL;S5[(27)(PR)_5^" -";p5`(27)(PR)v5c|5d5hD$"PR#0"5r54(27)"1"59L12005>L5C5HD$"PR#0"5M5P×:"****************************************" H:CC$ 47j4?768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:4@:"TURN ON YOUR PRINTER AND HIT ANY KEY"4AANYKEY$4C4DD$"PR#"SL:" 80N"4EL108010:L$(L):36,L1:(L$,1);:4F5JL180"R"ġ:30285+3ZxAN$(13)ZZ$"&":3048063_x30760r3p:10:"**INSERT YOUR DATA DISK AND HIT ANY KEY*";:LL$~3u385003v3zD$"LOCK "NA$3305553216,0:3d768:216,0:30530:"":3801546CC(CC$):L640CC:L6L62:L6%L61:L6%:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BELOW HIT THE 'RETURN' KEY."t2";:ANYKEY$2PxANYKEY$(27)ġ:10000 3UxANYKEY$010,952I256:1011,I:(3)250Č11691"x **** SAVE FILE 1#x1(x 1-xIN$""ġ:3028512x(IN$)2ġ:30285P27x:* PLEASE REFER TO YOUR MANUALS ****"20fw"":""_0jw24:1:"HIT ANY KEY TO CONTINUE ";:LL$o0 x216,0:768z0x100000x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,2120xI952975:J:I,J:'1xI(952256):1Zw **** ERROR TRAP /[wY(222)/`w::" ** AN ERROR HAS OCCURED **"::$0ew:::"ERROR NUMBER "Y" HAS OCCURED"::"*****22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ıT.BwL120:IN$(L)""::.GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$.LwD$;"DELETE ";NA$.QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$:D$;"LOCK ";NA$.Vw/$"":PT0::30095`-$wPT999PT0::12:"PLEASE RENAME FILE *******":IN$""::L1110000::f-)w--w ***** INIT :.=wH:"HIT ANY KEY TO CONTINUE ";:LL$21 x216,0:768=1x100001x 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,2121xI952975:J:I,J:1xI(952256):1010,952I256:1011,I:(3)250Č11692"x ** ERROR TRAP `0[wY(222)0`w::" ** AN ERROR HAS OCCURED **"::0ew:::"ERROR NUMBER "Y" HAS OCCURED"::"****** PLEASE REFER TO YOUR MANUALS ****"0fw"":"""1jw24:1BwL120:IN$(L)""::D/GwD$(4):D$;"OPEN ";NA$:D$;"CLOSE ";NA$Z/LwD$;"DELETE ";NA$/QwD$(4):D$;"OPEN ";NA$:D$;"WRITE ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$:D$;"LOCK ";NA$/VwS0Zw **E *******":IN$""::L1110000::).)w.-w ***** INIT .=wH22:CC$"TO CONTINUE HIT ANY KEY":60000::L$:L$(27)ı/ }-w:D$;"OPEN ";NA$:D$;"READ ";NA$:L1120:IN$(L1)-wIN$(L1)IN$PT999-w:D$;"CLOSE ";NA$-wZZ$"&"PT999ZZ$"":PT0::30095#.$wPT999PT0::12:"PLEASE RENAME FIL ":C,w30470,w11:1:" ":30425, w1500E-w ****** CHECK FILE "UNLOCK"NA$:D$"OPEN"NA$:D$"WRITE"NA$:L1120:IN$(L1)::D$"CLOSE"NA$:D$"LOCK"NA$w+vL$""ĺD$"DELETE"IN$:IN$""+vL$(27)L20:+vIN$(1)""IN$(2)""IN$(3)""L20:+vL$""IN$"":304708,vL$""Ģ11:1:" v::12:"NO FILES ON DISK ********":L2110000::j*vL120:11:1:L". "IN$(L):IN$(L)""Ă:30465*v20:1:"ENTER COMMMAND HERE-->";:L$:L$;*vL$""IN$IN$(L):IN$(L)"":L2119:IN$(L2)""IN$(L2)IN$(L21):IN$(L21)"":U+vL$""ĺD$ ":13:" ":)vD$(4):D$;"OPEN ";NA$:D$;"READ ";NA$:L120:IN$(L)::D$;"CLOSE ";NA$)vL2120:IN$(L2)""304256*TE FILE ******* (v:2:"TO DELETE A FORM FILE"::"TO DELETE HIT ";::"'CTRL' F"::"TO SELECT HIT ANY KEY":"TO GO BACK TO MENU HIT THE 'ESC' KEY")v9::" D$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$G'vL120:IN$(L):l'vD$;"CLOSE ";NA$:D$;"LOCK ";NA$v'v:10'v"** ONE MOMENT PLEASE DATA BEING SAVED **"'v30095'vO(v ****** DELE05&uv(IN$)230285#&zv:30480G&vD$;"OPEN ";NA$:D$;"READ ";NA$&vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L120::30355&v&vTP99&vD$;"CLOSE ";NA$&vTP99TP0::12:"DISK FULL---USE ANOTHER INITIALIZED DISK":L110000::1'vORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1R%\vIN$"^"TE$%av15:1:"1. TO SAVE DATA ON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRAM"::" ENTER SELECTION HERE--->";:L$%fvL$"2"IN$"":%kvL$"1"30325&pv303 ******DATA LOAD V$u8300$Lv ******* START FILE ***** B%Mv:5:"ENTER FCEMENT ?":9800:ZERO$I5$D9íL$"C"L$"Q"L$"E"L$"S"50000O9PP$L$Z9ë50000t9ĺ:D$"OPEN PRINTER"9ĺD$"WRITE PRINTER"9"ĺPP$:SL:ZERO$9+ĺ9,ĺD$"CLOSE PRINTER"96ı9|ĺ:D$"OPEN PRINTER"9ĺD$"READ PRINTER" :ĄPP$:18:"CURRENT PRINTER ("PP$")"<8jâ19:"CURRENT SLOT #"SL^8nâ22:"ENTER SELECTION #";:L$8síL$"N"Ė1:23:"ENTER NEW PRINTER SLOT #";:N$:(N$)8(N$)0SL(N$)8xíL$"X"502009}íL$"Z"IA23:IB24:IC10:I5$ZERO$:23:1:"ENTER ZERO REPLAð3999077Uú"****************************************">7Yâ7T7Zú"(C) CENTRONICS"d7\ú"(Q) QUME"u7]ú"(E) EPSON"7^ú"(S) SPRINT"7dú"(N) NEW PRINTER SLOT"7eú"(Z) ZERO REPLACEMENT"7fú"(X) EXIT"7hâ17:"CURRENT ZERO REPLACEMENT :"ZERO$8iâYL;6[(27)(PR)"6^" -";36`(27)(PR)96c?6dM6hD$"PR#0"S6ra64(27)"1"n69L1200u6>L{6C6HD$"PR#0"6M6P×:"****************************************"6QD$(4)6S:H2:CC$"PRINTER SELECTION & SLOT CHANGE"7T3:773,154:774,72:775,152:776,72:777,96:[5@:"TURN ON YOUR PRINTER AND HIT ANY KEY"h5AANYKEY$n5C5DD$"PR#"SL:" 80N"5EL108010:L$(L):36,L1:(L$,1);:5F5JL180:L$(L):(L$,1);:5K5OPP$"E"405005TL1200610:"**INSERT YOUR DATA DISK AND HIT ANY KEY*";:LL$A4u38500G4vY4zD$"LOCK "NA$e430555r4216,0:4d768:216,0:30530:"":3801546CC(CC$):L640CC:L6L62:L6%L61:L6%:H:CC$47-5?768,104:769,168:770,104:771,166:772,22Ӡ (N$(LL),1)">"İ300:N$(LL)" = "NA$(LL);:TT$:5050@N$(LL)wIA12:IB1:ICIC(LL):I5$NA$(LL):9800:NA$(LL)I5$}oNA$"FORMS"āLL1200:2120::8110LL1200:2100:D$"OPEN "IN$D$"WRITE"IN$LL1200ENTRONICS GOTO ,36,W(1)1:N$(1);=(27)(10)G4014r:"ENTER FORM DATA TO BE PRINTED OUT"LL1200LL1Ă8:1:"#"LLN$(LL)""506010:1N$(LL)(1)LL200:50504(N$(LL),1)"&"(N$(LL),1)"/" THEN HIT 'RETURN' UNTIL ALIGNED. WHEN PAPER IS ALIGNED HIT THE 'ESC' KEY TO START PRINTING."10:"HIT 'RETURN' OR 'ESC' :";:L$(13)(4)"PR#1"" 80N"X(16384)16368,0X1553000X14140504014 IF C0:3070 L5L(LL)ĺNA$(LL);% . " "? (27)(30)E [ (13)(4)"PR#0"a::L915:" ";:]1:"ALIGN FORM FIRST THEN HIT THE 'RETURN' KEY TO PRINT MARKER, ADJUST PAPER IF NEEDEDUU,Q))3N$N$"0" Q(N$)* SQ);3 N$;9 ? P L51200.5n N$(L5)(1)L5200:3090| LL1200 N$N$(LL) N$(LL)(1)LL200:3070 L5L(LL)ĭ(N$,1)"/"3070 L5L(LL)Ĺ36,W(LL)1:(N$,1)"#"(N$,1)">"İ250L):2010:NA$(LL)A$:GRUI$"^":UO$",":A$NA$(LL):2010:NA$(LL)A$:] N(NA$(LL)):S10p N0ĺ"N/A";:v  N(100N.5)100 N$(N) Q(N$) L31Q (N$,L3,1)"."UUL3:L3Q::2540  N$N$".00":2545 ((N$,00:IC(LL)(I5$):IC(LL)401084&B234,0:BWL1(A$){(A$,WL,1)UI$A$(A$,1,WL1)UO$(A$,WL1,(A$)):4UI$",":UO$"^":A$N$(LL):2010:N$(LL)A$:>UI$"^":UO$",":A$N$(LL):2010:N$(LL)A$:HUI$",":UO$"^":A$NA$(L15:1'."ENTER TAB POSITION :"\0IA15:IB27:IC2:I5$(W(LL)):9800:W(LL)(I5$)q2W(LL)0W(LL)14W(LL)W(LL1)L(LL)L(LL1)W(LL)8010698LL11090<17:1 =I5$(IC(LL)):IA17:IC2:IB27:"DATA INPUT LENGHT :":982)LL200::+N$(LL)(1)LL200:1090B"LL1L(1)1:1069#:13:1:(N$,1)"/"L(LL)L(LL1):W(LL)WW(LL1):1090$"ENTER VERTICAL LINE # :"&IA13:IB27:IC5:I5$(L(LL)):9800:L(LL)(I5$))L(LL)L(LL1)L(LL)2001059-:W(LL1) 99 LL1Ğ:"PRINT MARKER SYMBOL"::1050R " HEADING #"LLq "ENTER THE HEADING NAME:" LL1IA11:IB1:IC1:I5$N$(LL):9800:N$(LL)I5$:1055 IA11:IB1:IC40:I5$N$(LL):9800:N$(LL)I5$ NU$(27)Ă: N$(LL)(ER"?1PR30:PP$"Q"PR68.?2ĭPP$"E"PR14?6ı[?|ĺ:D$"OPEN PRINTER ,S"SS",D"D",V"Vs?ĺD$"READ PRINTER"?ĄPP$:SL:ZERO$?ĺ(13)(4)"CLOSE PRINTER"?ı@ *** GARBO SOFTWARE *** >}íL$"Z"IA23:IB24:IC10:I5$ZERO$:23:1:"ENTER ZERO REPLACEMENT ?":9800:ZERO$I5$|>íL$"C"L$"Q"L$"E"50000>PP$L$>ë50000>ĺ:D$"OPEN PRINTER ,S"SS",D"D",V"V>ĺD$"WRITE PRINTER">"ĺPP$:SL:ZERO$>+ĺ?,ĺD$"CLOSE PRINT=fú"(X) EXIT":=hâ17:"CURRENT ZERO REPLACEMENT :"ZERO$]=iâ18:"CURRENT PRINTER ("PP$")"|=jâ19:"CURRENT SLOT #"SL=nâ22:"ENTER SELECTION #";:L$=síL$"N"Ė1:23:"ENTER NEW PRINTER SLOT #";:N$:(N$)8(N$)0SL(N$)=xíL$"X"50200YŠ٠ӠſŠՠҠŠРԠΠҿŠƠӠōҠԠϠӍ؍ōϠˍӍ٠ŠЍōӠҠ΍ҠҠҠΠ٠ҠōōčōϮƠԠ΍%&vD$;"CLOSE ";NA$:D$;"LOCK ";NA$/&v:10_&v"** ONE MOMENT PLEASE DATA BEING SAVED **"j&v30095p&v'v ****** DELETE FILE ******* =%vL1120:IN$(L1):IN$(L1)""IN$(L1)IN$:L120::30355C%vM%vTP99b%vD$;"CLOSE ";NA$%vTP99TP0::12:"DISK FULL---USE ANOTHER INITIALIZED DISK":L110000::%vD$;"UNLOCK ";NA$:D$;"OPEN ";NA$:D$;"WRITE ";NA$&vL120:IN$(L):IN$"^"TE$$av15:1:"1. TO SAVE DATA ON CURRENT DATA DISK"::"2. TO RETURN TO MAIN PROGRAM"::" ENTER SELECTION HERE--->";:L$$fvL$"2"IN$"":$kvL$"1"30325$pv30305$uv(IN$)230285$zv:30480%vD$;"OPEN ";NA$:D$;"READ ";NA$ #u8300#Lv ******* START FILE ***** #Mv:5:"ENTER FORM NAME ?";:IA5:IB22:IC12:I5$"":9800:TE$I5$:I5$"":8:1 $\v DATA SAVE "u8100#u ******DATA LOAD 0:i!{u11:1:" "::30055!uL$(27)L220::!u11:1:" ":30055!u30760:30330~"u D$;"CLOSE ";NA$/ ]uL2120:IN$(L2)""30055^ bu::12:"NO FILES ON DISK":L218000:: guL2120:11:1:L2". "IN$(L2):IN$(L2)""Ă:30080 lu22:1:"ENTER KEY HERE-->";:L$ quL$;:L$(27)L280::!vuL$(13)IN$IN$(L2):L280::3019C' KEY"Iu:9:" ":13:" ":NuD$;"OPEN ";NA$SuD$;"READ ";NA$:L2120:IN$(L2): XuR ~Cu SELECT JOB Du:2:"TO SELECT A FORM FILE"::"TO VIEW HIT THE SPACE BAR":"TO LOAD HIT THE 'RETURN' KEY":"TO GO BACK TO MENU HIT THE 'ES00,4000,30007,40000,30005,30007,300010t'1000080u J1u38000:30020]2u: LOAD FILEo5u38000:307606u: START FILE7u38000:304008u: DELETE FILE9u38000:30760:u: SAVE FILE;u30510:: INIT=u30555::6000: ERRO COPYRIGHT 1981 BY GARY D. MALEY CϠӍҠӠĠӠŠӠĠԠō̠ŠŠӠŠŠҠƠӍӠ̠ԍӠΠ̠ŷӠԠӍĠŠޠӠĠӠŠŠӠŠϠӍȠҠŠŠŠӠĠӠŠ٠ӠŠŠՠҠŠЮԠΠҠŠƠӠōҠȠΠĠĠΠӠŠӠŠϠӠĠŠ! *** GARBO SOFTWARE *** COPYRIGHT 1981 BY GARY D. MALEY NTER AND HIT ANY KEY"!4AANYKEY$'4C=4DD$"PR#1":" 80N"i4EL108010:L$(L):36,L1:(L$,1);:o4F4JL180:L$(L):(L$,1);:4K4TL1994YL:(27)(30)4^" -"4_(27)(30)4c4hD$"PR#0"4r5 3zD$"LOCK "NA$330555+3216,0:N3d768:216,0:30530:"":3801536CC(CC$):L640CC:L6L62:L6%L61:L6%:H:CC$373?768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:4@:"TURN ON YOUR PRIN FILE HIT THE 'R' KEY"02Fx11:"FILE NAME":IN$S2Kx20:"ENTER HERE-->";:ANYKEY$o2PxANYKEY$(27)ġ:100002UxANYKEY$"R"ġ:302852ZxAN$(13)ZZ$"&":304802_x307602p:10:"**INSERT YOUR DATA DISK AND HIT ANY KEY*";:LL$2u385003v @1#xI1(x ^1-xIN$""ġ:30285u12x(IN$)2ġ:3028517x:3:" TO CONTINUE AND SAVE THE DATA TO THE FILE BELOW HIT THE 'RETURN' KEY."1