j# COM#+ COMeGOTO COM; IF COMSIF+ COMeܓSET COM{akSUPERMITDQC/<SUPTEST1SQB qSUPTEST2SQB s SUPTEST3SQB ˰ d # Copyright 1985, Logic Associates (v3.0) Purpose: Resolves array references on command line. Format: # ... file(recno) ... (must be ASCII file) Surround with extra blanks to prevent appending. Given-- Files: A. B. C2.X Record 1: FIL.ONE ERA Record 2: FIL.TWO TYPE TEXT # ERA A(1) A(2) --> ERAFIL.ONEFIL.TWO # ERA A(1) A(2) --> ERA FIL.ONE FIL.TWO # B(1) FIL.TWO --> ERA FIL.TWO # B(1) A(C2.X) --> ERA FIL.TWO # B(C?.*) --> TYPE TEXT ************************************************** * This is SUPERMIT module 4 of 4. The SUPERMIT * * Manual is available for $9.95, only from Logic * * Associates, 1433 W. Thome, Chicago, IL 60660. * ************************************************** *** ABORT: BIOS not found ***=>  *** Sorry, this version of your operating system *** *** is incompatible with this version of IF.COM. *** NOELEM NOSTOP$$$ SUB " 0 Y 8!9" 1 ͅs * |=aͻ ͮʬʬʬʬ͐ʬD‹͓ : 2  2&c>i2%2N2! "'!"#+" " +"!n> ic2 :&O! !# $2 y2&"'~i("#~P# I!"#2~ P+",͝ *q {z>i<>2Nɯgi*#+|! ½ >i"#|>i+|*#+"#|c:Ͷ2!  !"!~2c2>i7)))_c7c0A cv:k f \w# K͏>2>i! :&Gy2&*,k~# ™ y2 c ²*!#"!,-*!~>2%!"!!6 :%c !N  6 > 5Ͷnhc.c# !nh>i~c*ʦ.c c)c(š>c>AcxG#nx>?¬á#~+:~@##  *'/ : :&=2& *#/>?!  c# ! % <>i! % <>i")*)e !_*)#  *).;L:N # :G:& 2&y2  s#r^#V ~#  !% , #& ~ =2!N# c~# 8 ~:8 +6:22< /3&-5͓ { n͓ { ͓ :- _‹ ͢ ͼ =_!O^#V!I| ē ͒ Abort: ͒ index or array filename too long͒ array file not found͒ index file not found͒ index is 0͒ index points beyond end of array file͒ resolved line too long͒ ccp not found͒ unallocated array (empty file)͒ ccp not found͒  0 $% ͓  :N : ! *;  "o "m *o W !" ! " #6>2B **z: }): +V+^~L A sē !q *{zl " "y  ʫ  ʺ ! ʺ    ` !6#6#6 C * *  O " ɀ" bk" `i"  !/ # * DM* * ' _ͦ {¦ ' :B C * #" ~A O > >2B ͓ * "*m *o * #p #~l pO C * #͓ 7 #+ Copyright 1986, Logic Associates (v3.0) $ Purpose: Resolves array references on command line. Format: # ... file(recno) ... (must be ASCII file) Surround with extra blanks to prevent appending. Given-- Files: A. B. C2.X Record 1: FIL.ONE ERA Record 2: FIL.TWO TYPE TEXT # ERA A(1) A(2) --> ERAFIL.ONEFIL.TWO # ERA A(1) A(2) --> ERA FIL.ONE FIL.TWO # B(1) FIL.TWO --> ERA FIL.TWO # B(1) A(C2.X) --> ERA FIL.TWO # B(C?.*) --> TYPE TEXT ************************************************** * This is SUPERMIT module 4 of 4. The SUPERMIT * * Manual is available for $9.95, only from Logic * * Associates, 1433 W. Thome, Chicago, IL 60660. * **************************************************=> Program name is improperly formed. Program not found. *** ABORT: BIOS not found ***NOELEM NOSTOP$$$ SUB  . W 8!9"1~U= *~|=4~|ͤ||͐|X| [͑ :ʞ ʞͤ 2+>122!2!"!"+""+"6> 1+2:O! # 2y2"~1("#~ # !"~ +"l >1<>2!ɯg1*+|!…>1"|>1+|*+"|+:~2•! !"~2+͋2>1)))_++0  +>:3 . $w# ͋W>2>1!:Gy2*3~# a y2ͤ +͋ z͋͋*#",-͡*~ͯ­>2!"Ϳ!Ŀ6:+!N 6 > ~60+.+# !60>1~+*n.+ +)+(b>+>A+xG#6x>?ti#~+:~@## *: ­:=2*#ͽ>?! +#!<>1!<>1"*- !_*# *:!<9 i :! i ͺ ͑ :!͙ :0 3!͒ p͒ ,  ͒ *; |~#o|g x’ !N> #ʴ ʫ :G: 2y2  s#r^#V ~# !  # ~ =2!N# +~#  ~: +6:22< /3&-7͑ S p͑ S ͑ :-W l # ~i u͑ * #͑  Ñ _‰ ͠ ͺ =_!"^#V!K| đ ͐ Abort: ͐ index or array filename too long͐ array file not found͐ index file not found͐ index is 0͐ index points beyond end of array file͐ resolved line too long͐ ccp not found͐ unallocated array (empty file)͐ ccp not found͐ >  45 #  45 # t | * #ͮ { :  :1 :{ =_G:2{ ! 6C#6O#6M͘ { !\ͮ { lͮ { l Q!"&E *!V (** #ͻ c > 2yʔ <2!<¬ ͑ 0 կ >  ~ ~> #~+: ~@## z̑   +#~* .  ~4 , a" {" #*+ +>? ɷD D .D ;*".(!(f # xX GO! * }|ə1 c > 2yʔ <2!<¬ ͑ 0 կ >  ~ ~> #~+: ~@## z̑   +#~* COM1*&"&+*(f # xX GO! * }|0 c > 2yʔ <2!<¬ ͑ 0 կ >  ~ ~> #~+: ~@## z̑   +#~* COM1*&"&+*(f # xX GO! * }|0 c > 2yʔ <2!<¬ ͑ 0 կ >  ~ ~> #~+: ~@## z̑   +#~*"GOTO Copyright 1986, Logic Associates, Chicago (v3.0) %$ Purpose: Branching within a SUBMIT file Required: First line of SUBMIT file should say-- :START Format: GOTO n go to line n GOTO +n go down n lines (+0 = current line) GOTO -n go back n lines (-0 = current line) GOTO filename.typ where "filename.typ" gives value; if ambiguous, filled at run time. Note: Bad "n" kills job, unless line says "NOSTOP". % Examples: GOTO 8 GOTO LINE.15 GOTO +2 GOTO OK.* GOTO LIN16 GOTO X*.VAR NOSTOP ************************************************** * This is SUPERMIT module 2 of 4. The SUPERMIT * * Manual is available for $9.95, only from Logic * * Associates, 1433 W. Thome, Chicago, IL 60660. * **************************************************%$$$ SUBNOSTOPSTARTPr0  3 J g  !91P 2o͇S; D à>2?!] >? > 2ͺ > 2<!] !e > 2# y6~+-#840 + 84# :w*]!L!|{2\!l͆ ! ͥ<% :21‘2:ҝ>2O{ʹ: 2:O2 : G2͒͘xx2>> 2:G:! /<!<2! &==!2<>2:Jy :=G: ȯ2͒: w>l2 y">2! 6#6!! ^#º+ʺ>2!\<> 2u>2"  y* o! _* # :,<>2uG>2! :2]:2u>2<! ï!F#ͯ2! F#ͯ#x#¨²> !:2  ~#W_ # ~   W_ ~ # # :G: 4 <21P ?h P %h =-T  h %_h =_!^#V2! á p ¥ • :2< /3_&-;!    * |~#o|g x g-f ? /2= Abort: %a $$$.SUB contains more than 128 records %a invalid parameter for GOTO %% a "START" missing from line 1 %a GOTO exceeds range -128 to +128 %a $$$.SUB not found %a unable to close $$$.SUB %a error reading $$$.SUB %a error writing $$$.SUB %a error remaking $$$.SUB %a parameter file not found %%  a out-of-range "goto" to line %1e 1 %a GOTO exceeds range -128 to +128 %a $$$.SUB not found %a unable to close $$$.SUB %a error reading $$$.SUB %a error writing $$$.SUB %a error remaking $$$.SUB %a parameter file not found %%  a out-of-range "goto" to line _IF Copyright 1986, Logic Associates, Chicago (v3.0) Purpose: Conditional execution of command lines. Format: IF [NOT] filename [THEN] command1 [ELSE command2] where "commandx" = any cp/m command. Operation: If "filename" is [not] in directory, command1 is [not] executed. If command1 is not executed, command2 (if present) is executed. Examples: IF ASSETS.BAD THEN SUBMIT RECOVERY IF NOT A:DONE THEN B:PROG1 IF NOT A:DONE THEN B:PROG1 ELSE PROG2 IF OK THEN IF X THEN Y ELSE Z ELSE ERROR ************************************************** * This is SUPERMIT module 1 of 4. The SUPERMIT * * Manual is available for $9.95, only from Logic * * Associates, 1433 W. Thome, Chicago, IL 60660. * **************************************************->  *** Sorry, this version of your operating system *** *** is incompatible with this version of IF.COM. *** O NOSTOP NOT THEN IF ELSE *** ABORT: BIOS not found ***$$$ SUB!91 ͤ͂\ !L :ͬ ½^h\<ʰ>!<ͤ=! ! " !N #(((" >2 !&%~&" 6: <2 : =2 9!LpL L~#o|g xL * n * #6#6qg 4"+$#> 4H4 F45FF#5 Z45ZZ#I<ͤwtͤwͤ-Nzͤ* #ͤä_›!N# ~# ²~:²+:!F#2#;: 0$%'yͤe* ~>eg:*́>e "͵"*ͱ>2 !"- **z€})€+V+^~’‡Ĥ2< /3_&-6!*{z""y' /  /  !/  / " c q ʶ !6#6#6% ͙ *- * ͹% ͥ "- ɀ"a bk"_ `i"]  !<P #B *] DM*_ *a } _& {} & : ̙ * #" ~— ͥ > >2 uͤ*"**ͱ* # #~ pͥ ͙ * #ͤ& ;IF+ Copyright 1986, Logic Associates, Chicago (v3.0) $ Purpose: Conditional execution of command lines. Format: IF+ [NOT] filename [THEN] command1 [ELSE command2] where "commandx" = any cp/m command. Operation: If "filename" is [not] in directory, command1 is [not] executed. If command1 is not executed, command2 (if present) is executed. Examples: IF+ ASSETS.BAD THEN SUBMIT RECOVERY IF+ NOT A:DONE THEN B:PROG1 IF+ NOT A:DONE THEN B:PROG1 ELSE PROG2 IF+ OK THEN IF+ X THEN Y ELSE Z ELSE ERROR ************************************************** * This is SUPERMIT module 1 of 4. The SUPERMIT * * Manual is available for $9.95, only from Logic * * Associates, 1433 W. Thome, Chicago, IL 60660. * **************************************************-> Program name is improperly formed. Program not found. 8 NOSTOP NOT THEN IF+ ELSE *** ABORT: BIOS not found ***$$$ SUB!9" 1 q͗c)Z!L :y, ʡnž͵MW\<ʑ>!̥Ĭ<q=! ï! "e >2d !"~""b 6:d <2d :d =2d :!{ *|~#o|g x!N #> 2$$$"` 8 *` ] *b #6#6qg 2%+'#>qDvqDq-NGq*e #qq_h!N# ʑ~# ~:+:!Fí#ͷʳŸ2#ʷ:" *! _*# ͹*> 2F2 D45DD#3 X45XX#GS *e # : z:˜: =_G:2! 6C#6O#6M!\ l Y!"& ͬ *! V͹(**e #"> 2y<2! < qկ > Q Q ~ 0~>O #~+:D ~@##X qQ t s +#~*b .b t ~͛ ʓ aډ {҉ #*’ +>? t ɷʫ ʫ .ʫ ;*".( !(  # x¿ GO! * }|81> 2y<2! COM1 *& "&  + *  t s +#~*b .b t ~͛ ʓ aډ {҉ #*’ +>? t ɷʫ ʫ .ʫ ;*".( !(  # x¿ GO! * }|0> 2y<2! COM1 *& "&  + *  t s +#~*b .b t ~͛ ʓ aډ {҉ #*’ +>? t ɷʫ ʫ .ʫ ;*".( !(  # x¿ GO! * }|0> 2y<2!SET Copyright 1986, Logic Associates, Chicago (v3.0) $ Purpose: Modifying file names. Format: SET fname1 operation fnam2 Examples: SET AR.BAS REPLACE *.ASC SET MASTER CREATE *.001 SET F*.BAS SWITCH ?????ABC. SET F*.M20 + 3 SET -300A * 56.CNT SET +1506 / DAYS.365 SET OLD4.9* - *.NEW SET OLD4.9* .- *.NEW ************************************************** * This is SUPERMIT module 3 of 4. The SUPERMIT * * Manual is available for $9.95, only from Logic * * Associates, 1433 W. Thome, Chicago, IL 60660. * **************************************************$$$ SUB00000001.NOSTOPkrz|SWITCHREPLACE+.+-.-/./*.* X .X CREATE 6ÙÔäßÏÊ9494x .H]o!91_  F |=8A:͑&:&s&>ʋ &!͝ F :] >ʋ !Gͭ !͂ !\^͂ !\͂  ʉ. Z>2!"+~2!.͂ !/ ~w¯ F  Z#OG~ #~: xgʋ!^͂ " >Ë. Ze > ‹:O*Ga"y2Ƀ ~ Z Z#H ~# b b+> ‹>ʋ!ON#F#xœ>Ëͽʌ{2N!/O ͂ !/ͩ Z* #+~!Z > ʋ!/ ~ #6 # >2=>2A*N&)O/!> ~ C?H e1Xq!O_~#=6Z>Ë>2D~?‡ #=Z>2=>+æ>2=>-2>+2!^  2+I :A> Ëq > ʋs >+22!͡ >2>!ͥ :=2>!Oͥ :>2=2< /3_&->2=y:/O_!q > ʋ L!& ! B:!!6+6->2=5 y! !̀ !̀ !I !̀ ʢ!̀ ! !& >/2 ~0 # H &  +A >0#͂ >0!>0#< > Ë90Z /2CÖ 0:+ڊ 4  0ʖ >2C} ~6= ͡ >2B ~+ - +>- >+:B 2A>+Z/!r  ͂ 2EË>?! Z# > Ë:>% 5 3 >2> 5 ~0B H #7 #Y ~0Y H +ɰ m #b ɰ!O/ ͂ !/ >2=! ʡ ~1ړ ò -ʸ +ʸ :-> Ë:C: >+Z~0 >2B+ ɰ!ͩ :O*C    .Z#   ͍ ɰ>Ë ~*U .Z Z ZxG# #~+:~@2## ɰx>?[ > :!͋  ͋ ( ͋ * |~#o|g x‹ ͵  ʬ >Ë!D46 G !.͂ Z"! <"  !_* # ͂ .z > ʋ~ F Z. z z ! == 4 ͂ z >Ëz !~6< <W :FV <~#à ! > #” >Ë>0í  > w#­ !/ 怶w#½ !~ G # >2F#Z 4 >F 4 dF !/, ~ :E >.2E_~# =-8 _F =_!^#V!| F (Unchanged) (new) abort: E template segment too longE invalid character in templateE file not foundE directory error during renameE name already usedE template defectE newname would be blankE keyword not foundE directory fullE ambiguous template unmatched by any fileE arithmetic overflowE division by zeroE -->1lateE file not foundE directory error during rvhSUPERMIT.DOCb ! "$#%&'(*),+-.o/013245678:9<;=?>@ABCEDFGHIJKLNMOPQRTSUVWZXY\]^_`a[JzeWא{Z F:sU3I .~:흷,~օ8;UۊtOkz_%kȞZ֩YH~zz"/ctOZMgM&ݾNV$?}Zܦmw.wzaMt;|\s{T-ͅ,67Imט1$v>]&óPO*np/ -Xq\s^'`KzeWא`~zAA<[^qܱ̗:"am[дhAir𓫊ń.BZ1嚫?<[luv/#|vnx6,57zktżSLցH ho'X,̿q⦯ܹ1^U暫'j(y[Wۜ\sU.Ò^Qא=b ~m:曓gd|s24kL,{kcCqO1_ϗ{m{?`(ðuD;7geP׶w5bYܦ3\'^Zu{q`(m\,|si6uO1ePE/m߹fgwe;;`wpPF#D\smn_?k;1M8:S@kRB&/ Lo>9~|}~W5dwzcP!o{k3xlm_C&;+}m(MZz( r{THK;o `q,)}zIYkYk!R p>\آVcgv!̛sMnX>\P*[7<;g=?ImAv>p{s+m?҅=͓qk;E›XckP_ +2:M\b^C.ڝ5[/cOtm| Gfi9s^~K|9FJo12o덳Kqf='W5ZSt7su[VÝoxiFX\P;Mkb~1[HYk_)^CV@?SwxR\|{"kL|&kL|7&6>48vr~*uw^~v;:b꽆;nZw:-AZc⎛ݰ8&< i~阽1su[Zc¢6Yo7<)|%4>wܴw5YoFkbŸmwxH;3g+wm/Ńz1uq7g_ཪ\s[,m_y w7v;C |Kz1uq7g_ཪ\sƖMz3wpymo qڰs5)o`(1_q ewa55FR?Imq,_]Cv0<5 鎳b@k⃛aEqʰWvu 32ߝަ@1z15:C:i0_w2ށ>\s͕0\%kiv\s{cтj6]AAg*&6*Y#i5y_ވk"nU^ ?!\s! j[.1DgX-\smja( 1m^ÊRCݫx}-k#\b?j{TX,ZP6Vz}-}-kSj{OWkuT*kl{_ yU„Z;MbU8x x^ֈ>\Wku:Oի:> .8m{_ y_ 嚫fZm]P5ke׶wpaEq/lK?ZFJ]WkuޫumCڕ{ +K uƖ~P*&p,,qpMnX>\%RJrqW8`%7vjgZYRWWmK?ZFJzܕdMW8`%7~yw֬;-u{O鵑k^)w%yK/m9Xx wǝrm{_ y_ kkc$rC;E5\o'8KnY0_n37MCy3\Ee /:ܢnK^_ |?\8Knjn?k((5WUkї{KXmq e+%w_ofkr^@?Xo_v!sDI Wvu 2 /\sEkk9}=kL eX"~clgQp8/Xo\z\ 3)_o&n@k|lQPk*.DgQZ{)B~PF2{\sUyv'2<8phY)ߢ)Mm5&}<9ڤVCy7ۗk\U׀[-,g;&wL[MCt_Rk*.DgQZ {ؾmmOdx7.;-(Z]k*.DۙƤ#]XosqM Ek*.Dn횔5.15׹2<7-hZWku}<wp;̛́fX#NkJHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHk~,fRC;E5\2gqG8~bZSj΢H[xkf\E Jt?\F7s7,,ZPZܦ^n? ?F>\2gqG8)x Xe^<>Xoy@Mpv̐+{@px ~CV>p[ܦ^.W(Sc׶wݝ;ΒݝVs͵!`(Sc׶w#-( ekG8;_yݰ -h$ބ% 5 # /Pm<>Xo*8p;RZ_Wkunoӛ|{q`<5~ w|}VgaͩDaM;&D&&|2_^Y@xi`q,w{V“kʰWvu ce\s5WBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB\s-hC]:B֮dVUK"ke0āc%_X4}S^ޖJ+^qgI\J+[zIrMsk%O0/=kL,e }*d CXcM)._cb(Ɓ48ހFpaI\\/wB9֘ 8 P!xaf;7'>>86vjgZYRWm\'Op{?P8'*_]C05׆`I\\/`Maf;P8pJ+ɚzI;  :8u|s|;rO}|fqq~YV|ԕ{[. >>8ހ.c\ ۆy|8P^Ò^)w%^+:\|}|fq|Sxm 5|͗ Dn,2 2Z_X-(}-Z<;nZM?j6{ .[\!]>A: sc9ڙ]kZ/7'h1x>a(Ú3^UNy^:>9YTpto5&J+[zI w4Dp?7Yyߺ erOVG o=QkJHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHkjrZ E\s͵{Ғ^5d,o5)!7Mo}Y q\s&9[⸌㍂mo]fa;>^5u,ܗ1CnY?^5d@Z oPFܢA ?w4} _y$o ✛\, Khz뛬o]k暫Zە) S\s͵(pkp|'88=7â <_((5W&9[)p[._z\ߝ[=Ӟ\sU.{(<Ϝ7Θ5%kȾ{>!Ak5H\s~kzﵛ]O&9[k:u *"V{[. >>8ހ.c\ ۆy|8PvnSUPTEST1.SUBO  !"$#%&'()*+,.-/203145o7689:;=><@?ABCDEGFHJIKNMLAR>9ς 2]|`ܻN.r%+\^U^a*^Gtwe?ǦᓂgQX}Sz1#Ӧ?ïut]t)%*jQ'󉋝f\K uͭ'.v5s:|O u }n:@/]YjA˜|ORҭu#BPR}Sz}RG\t9 )ȧI;;k|:k|7̚ .'Jf.t)%*Z1/uiut)%*&Bbb]󉋝 )]ʺVR& Ӧw pcFai17}CPbT`g{ ,w#v??Ū12\\Ĩ@d ) vcQo?4$?|Z;TWM2YR)U{u<~K  D?Ǡ_wS+ZiJ/0\z#6 _~}NG)]C8^uWD|b[;D>.LwU|:~7 )>OwAR>9gO |iֶ*AmgdT392 -2Nfr27dpA>S[I}>ᮙL E2WɤސYD>vILN&Sf$"+nXVYI d;c5&h`Nd;c5&h`rl՘ʄ|z[L EQ5<@?ABCDEGvESUPTEST2.SUBO  !#"$%'(&)*+,-./103245o7689:;><=?B@CADFGEHKLJIMN A. &hxUO'iQ_jsϡ*p>"m&`mO{fO?! ۓ9TE__z n2ɔd*oOi#6)x !m݅XD]7-4+fXV~l{[>vJb]sH|c׭vvY^Q1oV &,gk{ r\䯾n}i~nO쁿'lkF]!H%b f,vGbHq/̬%b4+fvBb.=NvFH a!6{ali!H%^Ϲe6n=?k>QPV.FۚUs=Vxԭ3&huS<=igc>X\ %m*޹W$]yf[Ksyzou}2]*sfC=H£P'B2Ʉ[Le/Aϫg[KP+^L:\et#+zxGm_fJ\v>Aϫv{ ;Xg\!H%f$$juCK cHi#m4l餧֫/ j4][ $(FHN*fx%yN6Q Ix+fx%yEE6^Ifю: i#YQ_&U1+@?ABCDEFHGIJKقO6~ Bd-r[*'Kh_Q5Bn#\.&D.{=Msa[>oA*[e-Tnm Y,=}ju*6Cz}rkc0$ߓmZ%e5A4h>=ܡlk.[ Bc'?*.kQݠNM\4 ݓ;oυ5bVh\ MY-_|OPBF5TbB|0vR1][}k+ufT{r|I['wauM|O0ߓ;M|O'w(!#ۆQWܷ Vͨ|OPBFM_GP9 Bc'ՂO6:TA4g :o}{=&H}4_U=kf⨓VݗKsx׃b4!jNEܲ+:`淯?m=:>f݈gYe>H]k;.uyoi^#>H=uAoV.N* =2|{rxoi^#4VW6wk|Ab˭A*T >Z; ❊bwq*~(PY~w~#o>_]<[!<v_mElSj'iD{=8]/ũ6O[_-D %{NM߂Pk >iAIݓXjOZ VN|OkOZariۂM߂>iAKߓ8`MI ?,LI ͚߾|I[G 5}'-{*V 345o768:9<=;>@?ABCDE