'MTIMER13BASiBMTIMER13COMzMTIMER13DOC NOTES ON MTIMER13.COM MTIMER.COM is a program designed to work with MEX.COM (Version 1.10 or later) and the Epson QX-10. It allows the user to set a time for the program to run MEX.COM with the command line of your choice. When MTIMER.COM is run it will prompt for the STARTUP TIME. Enter the time as 24 hour time (eg 23:00 is 11 PM). It will then prompt for a command line. MEX.COM should be on the same disk as MTIMER or else an error message will be displayed and the program will end. The user may abort MTIMER while waiting for the startup time by entering a control-C. A control-R will start the program over. ÿ+"6# x+:`i* ">"/##~>;+> 6*s#r w+͊1>2 u+#w+>36*s#rw+6*xDM"+ڍ+s#r#À+! >2:*ã+6*x+Á*~#ʽ+#~+ҽ+~+x 6*s#rw+ɯ2,x_O:*+2,x_O6*9w#w+x,+r+s=,w>#w+Á*~7^#VE,E,!~ѧ7x1P*x1~7!~#fo~ʁ,7,#~+~w}D#wx#!p ͓VC!'!t!C!t!!C!C!C!!vb !C!C!W!Pb !C!'!1!C!C!!͙!͙C!C!!C!C!1!T!S1!@!ͷ#͕!}2> 2!ͷ"!c* *!͆* h*#"**z|w}| C!'!|>==C!C! !'!OS Db|€C!C!'!  ++ MEX.COM IS MISSING ++ ++ ABORTED ++0:MEX'(Control-R to Redo, Control-C to Abort)(You must leave the computer and modem ON>The Mex COMMAND LINE is <4The STARTUP TIME is set for SMEX>ZEnter the Mex COMMAND LINE. (ySet the STARTUP TIME: (Enter as HH:MM) For Epson QX-10Mex Timer Program - Version 1.3    V#(5-G/Y2q7<FPZdnx  ?S_{>S[[[[ BASLIB #000000 5.30 - OWNED BY MICROSOFT, 1980 1e#ͩDM*"* ##"v >22*^#V"##^#V" 2!0!!""!b "_ 6#6P>2f >2e >2d uul_ͨ ̈́*ڐ!'6C#6O#6M!\>!5'!\> 3ͅ-Q'\<81!9%.>A3.ot!#&\ѷ!>/ *OUT OF MEMORY* $M++++r+s:3Oýe#!e#*Qs#r#"Q{z#~+e#*Q++"Q!9"- ͕ ! ͕ ʙ ! p !2 !R"k !O"m ͕ | > . 6#s#r#=¿ >2' >2* >2) 2, !y"9 !$\"/ >&21 6#} | ͮ STO  ͋ *9 .. . ........*G | :D † *B |ʆ ͌ ͕  s#r͕  { w#6"E *- *B >2D !9N#F͕ ~#~Ҿ ~+ ~#~ھ +^#V###Ü ###Ü | ~#fo! ͮ Internal Error - No Line Number y͕ ~#m ͮ at line͌ Ë >T <9 M # T <9 053M 5 }_|W!c 3~#fo>ͮ at address|}Ë > 53> 53~#* 3~#foɿ=!9"# !ì *# Ͳ "% ! *% ͋ ! ~< = #~# #ôSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erroͨ N! > Xw>ͪ!,7N#" !9" " y2 *7 |*O !"G A~#*3:o !~ʦ3168"\h\*4*4*4*4uͪ*4uE*4*4*3ʙ~#",  :o  ~!"G ~,"±#"~# ´"#"x" +~ yͪuͮ?Redo from Start * !b* : O* +~+F88 +w :Q++~#foV" ! 5* !~2a#~#^#V͠++R1 :! {8r+sÖ9 Ns#Fr^q#Vp++xw{8r+sFF~2M:##~2N:##~#N#F#^#V=´9PY! N#F!^#V6: !:K~2u!lK!f9!bK:N:m;:M:!:!O:K^#Vs"!uw> "~./! s#r`i#w+! N#F!yw#xw:::ͨ ͨ ͨ ͨ ͨ ͨ ͨ ͨ ^ͨ çͨ çͨ çͨ ^ç44"4H~# x2:Z ͞M!͛<~F͡2#:!~I ġ2#P>2:Z F#~#fox͕͞ʌ~#͡2À͕͞>"á2G:^ x͞I3*_ +~<=###~*U I3!I*[ *_ ~=/<=> á2͞>,͡2W*_ #^ /)+=):b =)I3z{A{_3!b "_ !"7 2Z Y!] ~6#w͕ n&͕ ^#V͕| !ü9^#V#"B !"B :D *E ͕ n9 ~!N͹ i&9  ͨ ͨ .ͨ ͨ +~#xͪɯGկG))))Xy=Xd0:a qCA+*_ {<҈I3{ʗ=> ͡2È|. }*_ ڗ<È}È|. }È|!*_ #n&ͮMTLhnLhnLhnzLhnzLhnLhnLhnzLhnz͉ͧ^#V#ͳ"*͉R͉^#4Ã͉^#V#ͭX"~2"ͨ **:j3:é3:9::1:v7f7~6`53~#fo^#V#^#V#͌3^#V#͌3́3^#V#́3t3j3&)))͕ >b>b>b>b>b>^#V#^#V#q| Gʐ~#foÒ## Ý;^#V#ͨ ͻͨ ͻͨ z||ͽ;;^#Vã^#V# <2o ͨ ͨ ͨ ͩ3Kt3|. ͨ Bͨ K(b:o ʘ! v79o:o ʛ! ͼ9:424:4ҷ:4Ñ|/g}/o9:4!4·!͹ + :4goW*4|7g:4+>|/g}/o! G|o& Gȯ|g}o #>0~+~?~;+#H+ Hͨ ̈́Ԑ~##++R>3+V+^+ʃ+r+sͨ͜ V~ͻͨ . Bͺͺ~#~#fo3ͨ |. BKPYͨ |. BK  o_ͨ z. z  _o}`iͻDMͨ |. !9>ͪ>V>V>V>V>V>ie~#fo##GNʕyʕ#~#fo~#fož#ʔ „ yʞy<.ڨ)ʨ)~o&~. #^#V++o&60 IF 5TNRTRTH(;+EC  _!45*"~#N#F#^8 3!yxC !+++6@#yw#xw+++6###!~6ö́*#~#~͹ % !*"~#^#V#3Ñ|¶Ñ++~_w#~Ww#Ñ̈́*DM~#^#V#(+z+{##{z~#q#p_yxDM~#YP+++"6@###{_zW+r+sɷw*|U͹ ( ^#V+"w#s#r+++r+s##!~*-{z*/?ҙ}|~# ŸyGBx3GBx#N#F& ó̈́RÜ*-*/3R͜###'ͮ during G.C. y'ͮ yͮ Internal Error - String Space Corrup#N#F*yxڗ*yxҗ++`i+V+^3##6+6+~6  >@++*"s#r+*#~_#~W͹ 4 r+s##6"###!~#fo3<*"*}o|g6@#s#r#6"*/*-"}w>#w##3++6+6!2 4!9"- ^#V#!2 ~w !9"- i3ͨ n&i3ͨ |. }w:4ږ:4!ͼ9N9~53#=¢ʹ~53#ôG~##++0:53FKF7~~!F#wE@4BX`ZNDSCT"On&8*4}/o|/g#"4|i͝;8!4~wɯ24n&S9i*4iÝ;n&S8>>~a#na!4Ì>!442# ’!4v7!4s 5>>ڵ>|}+!)~6;$<+6!4>Ϳ824!%1:!!~6!4~6~_#~W#~On=ÿ9!%ü9o;ɇ<o&iÝ;*4*4>"4`i"4!4^#V#N#F#!%ý:\=x{Q=!461͹=u=w:Gw#wrÌ!4s4n&4n&j*4||2aj L}@f6'>2`h ~&ʉ&-`+`+T&G .erEœT&lʊLʊqʊQʛ:ʵ>õ~%# ! dʵD T&&T&ں _{_$ 4 n&!n&  `T&!! T&E\n&G=n&DGµ!"4`i"4#~+-"-"0OxG-"#~!`xE""y !>22"|!"!"4`i"40#WA$:`"j"n"n"$60E%+~0}".Eʯ"n&>"w#6+"6-/</ Ң":#p#w#6!#z6##$z$͟%{̽=$?!"p#6!#:~ "*"+"T&-+_:/ {0.##T&.#++w$#".#6%#R#%͢`#!+6%I#jA$#_x$$%$$"_y2 #4 #{_x#$$ÿ#ʹ$y$Oʹ$GO%#*=$P"Sѯ#j7A$y2 OzWO4 $$/< $/>͉0%>͉p#='%!4-c%>M0D&?$;/{_#zW#yO++w%#0p#i%>å%J&>$N#F#*4/}o|gҸ%"4p#=¥%$w1_cƤ~@zZrN vH Tʚ;@B''d #~: T& T& T&0?<=:{&7-++T&'Oʚ&Hʚ&+ͦ&گ& H#&õ&͹ + M!&&}0?)))صo&M!&&}'0? '? ))))صo&a{ n&:4:4:22͹ + ͹ + !XuP;S͖Q4QlM:h2h:iҾ"Q:iUQZQ`Q|/g}/otQ!":i}QQ"f>2u͍PajsQs"Qw;PQx]P!eFN*fQ|UOs"wQ!"b"d>>yQs"wGOW_ͨ }-)1&1!' ~H( H(#~=(`i$*(>O #~goPY!' ůwX*:-D1=>1=|(ѯ/1 )!' ~S(X*x.ͨ }-)1!&(! ~+ngͨ }-)1! n&*7 ~#180DM'~P(4N#V pD)zw w+s#r#6#6DM:o)!" s#r#6ô)! {zVʬ)Q'w<ª)*7 T]% N#F+q#p###6 9*X*:->Q*>w+w!()7?*7 ' 6#67~A1#^#fk_ڡ*N#~:ʥ*++@A1y@A1A1' #*~.**7û*#¼*2'z A1A1> **> **ͨ ̈́*Q''<81!''> 3̈́*:'!'G1'<21'*(~&1#N#F++ Oʏ+Iʏ+R&1*(|+!"(}_-¢+x.{-51z̈́* ʹ."7 #'> 366X*~+.p2 ,:b W:c ,> p2p2m2'¿,~*6?# -O!!46-#46-#4y"K-D1><"(>2= !0"> :; <2; *9 "(!-"9 ͨ "(V+*K |ʗ-##n͕(Æ-.͐(*(ͨ î-ͨ 2(." (.ͨ -ͨ 2(." (.)1<)1=_!K ~#fo-##{.++-*K ."K q#p#s#4#5++###DM !M " (~#foV.+V+^##*({z".BK^#V+* (s#r! DMh.*( DMͫs#r# 6# xk. !K T]~#fo)1xƒ.yƒ.~#~+*M "M s#rXJP*}*(|.! s#r#w.2.}-&1! ^#V:(.* ({,1+s#r! w#w! ~#fo!1)/g/BK>!)9 ͨ |. ,0-:= )1*> !X"@ {Bf$%1!1*@ 0ɚ|}!"7 >6>4>?>=>:>7>5>2>3>@>C>͹ o&9 !"7 !"d1:au1ͮ?u1p͛2é1:l2>\2l21t1p2+ʣ1~p2÷1+p2·1p2m2!2l2ú1͛2O{1:l21>\p22l2y:2s27 a2 :2 1u1:2s2u12u1p2> p2>Ü12>#ã1526m2!ͅ2÷1 ڷ1x<>E2yq#p2 ·1> p2͛2R2 ʷ1ú1:am2w Ë 53>^p2@p2m2~ ”2> p2p2#Å2Xn*_ ʸ2#~+<ʷ2=I3 3#3 24+~#<2=3 '3a :g G2a2:< 3<2< *9 "2!S3"9 '3h*S 654> ͡2~='3*_ !b "_ ͡2"_ > ͡2> á2:e =d3> h> h*2^#V#t3ɷ!43!4Ë34343w#w#w#w#qbbbb3>4ü3>43 ~#=3!3#~ 3 3Ʌo$ɧGw#3{z`i#eO _äf !mw Âe _W{g~^z[>Mf*m>Ks#r>]*m ^#V++++++r+s>] g~Y^>[ͻh~2m gͱg v^}#f|#f>?Sfܱg}f>'Sf )f >6*s#r)f>?Sfܱg}*m##w>?Sf^!m4ܱg>6#5195<5u=OA5!}=!4y#95+,5u=?}=%6E=8Z5%686!4195:4u=:5/NͿ8724:4&8u=x/F+N+=E6!4Y6!4>q#p#=\6!4~6"'4P6?6+6*'419,=:4,=!4N#F;ͨ8qʻ6G78x ¤6›6&8!48ó6j0 TeB׳]h!I.k %6E=87%68!4~6;!4q#~++w+q7u=DNn"~`35zr1{r1h!I19u=yO24|719u=:46Ҏ7/<69u=:4O$ʋ9c9;n=͙9\=ʇ9!461͹=|;!>]9akE=95;9u=!4~+>wu=ͯ;ÿ9f=u=:4N=9/<<u=$O9ͯ;4:f=;u=ȯG;"4y24Fo;͹=|={>24N))< =à= ҟ=7>{_zW}o|g=–=|g}o=CZQû= o-yOzW{_xG=4*4DM^#V#N#F#xy}=:4:40 ' Revision 1.3 01/07/85 10 ' MTIMER10.BAS by Lawrence Davis 9/25/84 12 ' Insert your own clock routine at line 190 13 ' Clear screen string currently CHR$(26) - ^Z 15 ' This program must be compiled using BASCOM 16 ' Compile as follows: BASCOM in A drive MTIMER.BAS in B drive 17 ' A>BASCOM =B:MTIMER12 /O 18 ' A>L80 B:MTIMER12,B:MTIMER/N/E 20 ON ERROR GOTO 260 23 DIM L$(128) 24 PRINT CHR$(26);TAB(20)"Mex Timer Program - Version 1.3 25 PRINT TAB(27);"For Epson QX-10 30 PRINT:PRINT:PRINT 40 INPUT "Set the STARTUP TIME: (Enter as HH:MM) ",A$ 45 PRINT:PRINT"Enter the Mex COMMAND LINE. " 47 INPUT "MEX>",M$ 50 PRINT CHR$(26);"The STARTUP TIME is set for ";A$ 55 PRINT:PRINT;"The Mex COMMAND LINE is <"+M$+">" 60 PRINT:PRINT;"You must leave the computer and modem ON" 70 PRINT:PRINT "(Control-R to Redo, Control-C to Abort)" 80 GOSUB 190 'read clock 90 IF TM$=A$ THEN 164 'Is it time? Yes, then run MEX 100 OLDTM$=TM$ 'If not, then try again 110 GOSUB 190 'Read clock 120 IF TM$>OLDTM$ THEN 80 130 GOTO 110 164 L=LEN(M$)+1 'Length of command line + space (20h) 165 POKE &H80,L 'Poke length into default buffer 166 POKE &H81,&H20 'poke space (20h) 168 J=130 'Decimal equivalent of 82h 169 FOR I%=1 TO LEN(M$) 'Loop times number of chars in command line 170 L$(I%)=MID$(M$,I%,1)'Assign a string variable to each char in comm. line 171 POKE J,ASC(L$(I%)) 'Poke command line into default buffer addresses 172 J=J+1 'Increment address counter 175 NEXT I% 'Do it again 180 PRINT CHR$(26);:RUN "MEX" 190 OUT &H3D,4:TH=INP(&H3C):GOSUB 220:DH$=TH$ 'Clock routine for 200 OUT &H3D,2:TH=INP(&H3C):GOSUB 220:DI$=TH$ 'Epson QX-10 210 TM$=DH$+":"+DI$:RETURN 220 TH$="" 230 IF TH<10 THEN TH$="0" 240 TH$=TH$+HEX$(TH) 'End clock routine 241 B$=INKEY$ 242 IF B$=CHR$(3) THEN PRINT:PRINT"++ ABORTED ++":END 243 IF B$=CHR$(18) THEN RUN 250 RETURN 260 IF ERR=53 THEN PRINT:PRINT CHR$(7);"++ MEX.COM IS MISSING ++":END