This terminal is based on a new RS232-routine unsing both CIA's serial ports...you have to modify you RS232-interface to work with this program ! mini-term is partially written in BASIC V2.0 so you can easily make own modifications : some modifications should be made !... The phonenumber that has to be called... 3400 rem connect (insert the tel-number to be called) 3410 a$="atdt...."+chr$(13):gosub3420:goto3450 Your login + passwd (or insert a goto310 to skip that) 3496 print"send login..." 3497 a$="--your username--"+chr$(13):gosub3750:fort=1to200:next 3498 a$="--your passwd--"+chr$(13):gosub3750:goto310 Some email-adrs ... 3830 print"who's the receiver: 3840 print"1:name1 2:name2 3:name3 4:name4 5:name5 6:name6 7:name7 3850 print"dest="; 3860 poke198,0:wait198,1:getq$:x=val(q$):ifx<1orx>7thenpoke220,0:goto120 3870 printq$:onxgosub3891,3892,3893,3894,3895,3896,3897 3875 a$="mail "+a$+chr$(13):gosub3750 3877 fort=1to3000:next 3880 a$="---"+chr$(13):gosub3420:fort=1to1500:next 3885 goto1050 3891 a$="---mailadr1---":return 3892 a$="---mailadr2---":return 3893 a$="---mailadr3---":return 3894 a$="---mailadr4---":return 3895 a$="---mailadr5---":return 3896 a$="---mailadr6---":return 3897 a$="---mailadr7---":return The init-string for your modem: 5061 a$="at&f0w2s7=30"+chr$(13):gosub3420 5062 rem ---replace it with your init-string! written by Daniel Dallmann (4.1995) here all the files in a uuencode-archive : (use uudecode to extract them...) begin 644 mini-term M`0@1"`H`ES4V+,(H-#8IJC4`-`@4`$6R1:HQ.HM%LC&GDR)!4U,N.#!:-3(Y M.3`B+#@L,0!-"!X`BT6R,J>3(D%34RY415)-(BPX+#$`90@?`(M%LC.GDR)! M4U,N55!,(BPX+#$`=`@@`)PZ146RPB@U-BD`A@@C`)DBDQ%$051%(#T@(CL` MCP@D`(5$020`M`@H`)-#DX-3@ZES(Q."PP.D1,);(P`+L):0"7-S@P M+#$S.IXT.3-3`T,3(Z5;+"*#9(B`@("!.3R!&24Q%4R(ZB3(P,`#2"JH`@52R,:1&03J9R"@B M("`@(JK$*%0IJB(Z(JI&)"A4*:HB("`H(JK$*$9"*%0I*:HB("DBJDPD+#0P M*3L`XPJT`((ZBZ@H,:]&02FGF0``"\@`F3J9(B`@("!$.B!$3U=.3$]!1"`@ M("([`!P+S0"+1$PEL3"GF2(J*B!!0U1)5D4@*BHB.P`B"](`F0`]"]P`F2(@ M("`@53H@55!,3T%$("`@("`B.P!#"^(`F0!V"^8`F3J9(B`@("!4.B!415)- M24Y!3"!-3T1%("`@("`@("`@("`@("`@("`@("`B.P"/"^L`F2(@("`@3#H@ M3$]!1"`@1DE,12(`P`OP`)DB("`@(%(Z($1)4T,M1%))5D4@0T]-+T524B`@ M("`@("`@("`@("`@("([`-D+]0"9(B`@("!6.B!62457("!&24Q%(@`*#/H` MF2(@("`@2#H@2$%.1R!54"`@("`@("`@("`@("`@("`@("`@("`@("`@(CL` M(PS_`)DB("`@(%,Z(%-!5D4@($9)3$4B`%0,!`&9(B`@("!".B!314Y$($$@ M0E)%04L@("`@("`@("`@("`@("`@("`@("`B.P!M#`D!F2(@("`@13H@15)! M4T4@1DE,12(`G@P*`9DB(%-(*TDZ($E.251)04Q)6D4@34]$14T@("`@("`@ M("`@("`@("`@("([`+@,"P&9(B`@("!-.B!-04E,($$@1DE,12(`ZPP.`9DZ MF2(@4T@K0SH@0T].3D5#5"`@("`@("`@("`@("`@("`@("`@("`@("`@(CL` M_@P8`9DB(%-(*U@Z($58250B`!$-+`&A420ZBU$DLB(BB3,P,`!7#38!BU$D MLB)4(J>9(I,@5$5234E.04PM34]$12XN(CJ>-3`P,SDZF2),14%624Y'(%1% M4DU)3D%,+4U/1$4B.HDQ,3``:`U``8M1)+(B52*),3`P,`!Y#4H!BU$DLB)$ M(HDR,#`P`(H-5`&+422R(D4BB3,P,#``FPU5`8M1)+(B3"*),S(P,`"L#58! MBU$DLB)3(HDT,S`P`+T-5P&+422R(E(BB30U,#``S@U8`8M1)+(B0B*),S4P M,`#?#5D!BU$DLB)-(HDS.#`P`/`-6@&+422R(LDBB34R,#```0Y>`8M1)+(B M5B*),S$P,``;#F@!BU$DLB+8(J>7,3`R-"PP.IXQ,#(T`"P.<@&+422R(D@B MB3,S,#``/0Y\`8M1)+(BPR*),S0P,`!&#I`!B3,P,`!3#N@#CR!54$Q/040` M?0[R`YDZF2)&24Q%(%1/(%503$]!1"`C(CLZC3$Q,#`ZBTFR,(DQ,C``G@X5 M!)>-3`T,3(Z5++" M*# M-3`T,3(Z5++"*#9 M(DY/5"!/2T%9(#\B.HDQ,3``;13]#(M#3K(PB3$Q,`"C%`(-0TZR,#J-,S8P M,#J9(EE/52=612!"145.($-/3DY%0U1%1"!&3U(@(DTB32)3(E,B.P#$%`<- M6+*U*$VM,JHQ*:PN,C,ZF2(@*")8(BT@1$T@*0#3%`@-@52R,:0U,#`Z@@#R M%`P-C3,R.#`ZGS$L."PR+"(N34]$3$]'+%,L02(`)Q46#9@Q+,DH(B`BJL0H M32DL,BFJ(DTBJLDH(B`BJL0H4RDL,BFJ(E,L1$%413TBJD1!)``Y%2`-H#$Z MC3,R.3`ZB3$Q,`!L%4@-CR!#3TY.14-4("A)3E-%4E0@5$A%(%1%3"U.54U" M15(@5$\@0D4@0T%,3$5$*0"0%5(-022R(D%41%0N+BXN(JK'*#$S*3J-,S0R M,#J),S0U,`"?%5P-@52R,:3#*$$D*0#)%68-ES@V9.IDB1$E!3$E.1RXN M+B(`_!5_#4$DLB(B.E1))+(B,#`P,#`P(@`.%H0-C30P,#`ZBT&),S0X,``E M%HD-BU1))+,B,#`P,3,P(HDS-#8P`%$6C@V9(E1)344@3U54("T@2$%.1R!5 M4"(Z022R(BLK*T%42"(ZC3,T,C``;Q:0#51))+(B,#`P,#`P(CJ7,3DX+#`Z M022R(B(`@Q:2#:%1)#J+422SL2(BB3$R,`"C%I,-C30P,#`ZBT&GF2)-3T1% M33X@(D$D.D$DLB(B`+H6E`V+5$DDLR(P,#`Q,#`BB3,T-S0`Q!:6#8DS-#$P M`.@6F`V9(DU/1$5-/B`B020ZB\@H020L,BFR(DY/(HDS-#=#8O(*$$D+#%ZD-022R(BTM64]54B!54T523D%-12TM(JK'*#$S*3J-,S#8%4LC&D,34P,#J".D$DLB(K*RLB M.HTS-#(P.H%4LC&D,C`P,#J".HX`!AD0#H\@1T545$E-12!-+%,`(!D:#D&R MPB@U-C,S,2DZ0;+"*#4V,S,P*0`X&20.3;*U*$&M,38IK#$PJBA!KS$U*0!H M&2X.0;+"*#4V,S(Y*3I3LK4H0:TQ-BFL,3"J*$&O,34I.D&RPB@U-C,R."DZ MC@!Z&70.CR!0551424U%($TL4P#!&7X.ES4V,S,T+#$Y,SJ7-38S,S$L,#J7 M-38S,S`L-JRU*$VM,3`IJDTZES4V,S(Y+#:LM2A3K3$P*:I3.I-#DW-S8ZBS&OPB@W.#,IB3,W-S``/1K$#H(ZC@!(&M@.CR!-04E, M`'`:X@Z9.IDB1DE,12!43R!-04E,(",B.SJ-,3$P,#J+2;(PB3$R,`"1&NP. MES(Q.2PP.I7,C(P M+#`ZB3$R,`!>&QX/F5$D.I%8C3,X.3$L,S@Y,BPS.#DS+#,X.30L,S@Y-2PS M.#DV+#,X.3<`?!LC#T$DLB)-04E,("*J022JQR@Q,RDZC3,W-3``C!LE#X%4 MLC&D,S`P,#J"`+$;*`]!)+(B+2TM(JK'*#$S*3J-,S0R,#J!5+(QI#$U,#`Z M@@"[&RT/B3$P-3``U1LS#T$DLB(M+2U-04E,0412,2TM+2(ZC@#O&S0/022R M(BTM+4U!24Q!1%(R+2TM(CJ.``D<-0]!)+(B+2TM34%)3$%$4C,M+2TB.HX` M(QPV#T$DLB(M+2U-04E,0412-"TM+2(ZC@`]'#915([15(D.HTS,C@P.J`Q.J`Q M-3J-,S(Y,#J),3$P`/D=)A&7,C(P+$93*$DI.I,!&-,S(X,#J>-3`S,#@ZC3,R.3``.1XZ$8LQK\(H-S@S*:>9(E-94R`^ M($DO3R!%4E)/4B`C(L(H-S@P*0!C'D01C3,R.#`ZA#$U+$52+$52)#J-,S(Y M,#J9(D1)4T,^(D52.T52)`!\'DX1C3,R.#`ZH#$U.HTS,CDP.HDQ,3``CQZ4 M$8\@1$E30RU#3TTO15)2`*T>GA&9.IDB1$E30RU#3TU-04Y$("([.HTT-34P M`-D>J!&-,S(X,#J?,2PX+#$U+$$D.H0Q+$52+$52)"Q4+$DZH#$ZC3,R.3`` M]AZR$9DB1$E30SXB15(B+")%4B0B+")4(BPB20`4'[P1ES$Y."PP.I(Q.3@L M,3J7,3DX+#`ZB3$R,``E'\81022R(B(ZF2(_("([`#D?T!&A420ZBU$DLB(B MB30U-C``2Q_:$8M1)++'*#$S*:>9.HX`7A_D$8O&*%$D*;,S,HDT-38P`'8? MZ1&9420[.D$DLD$DJE$D.HDT-38P`(0?B!./(%-405)455``GA^2$YDBDR!4 M15)-24Y!3"!35$%25%50(@"H'YP3F3J9.ID`S1^F$YDB24Y)5$E!3$E:12!4 M15)-24Y!3"`_("A9+TXI("([`.,?L!.7,3DX+#`ZDC$Y."PQ.J%1)`#]'[H3 MBU$DL[$B62*O422SL2).(HDU,#0P``\@Q!.9420ZBU$DLB).(J>.`#$@Q1-! M)+(B050F1C!7,E,W/3,P(JK'*#$S*3J-,S0R,`!=(,83CR`@+2TM4D503$%# M12!)5"!7251((%E/55(@24Y)5"U35%))3D.`'8@ MR1.)-3`P,`"*(,H3CR!704E4($9/4B`G3TLG`*$@SA-!)+(B(CI4222R(C`P M,#`P,"(`LR#8$XTT,#`P.HM!B34Q,3``RB#B$XM4222S(C`P,#`Q,"*)-3`X M,`#4(.P30;(P.HX`_"#V$YDB34]$14T^(")!)#J+022R(DY/($-!4E))15(B MIT&R,#J.`!8A^Q.+022SL2)/2R*G022R(B(ZB34P.3``'"$`%(X`-2%0%)DZ JF2))3DE424%,25I)3D%`:D3C0_=C0W=J1V-&`,L#=UHA0%H0$BE`4@)!X4!J9*-#]V- M#=VI`(T8`RP-W8I(K@S=O0#`IO>=`,'HAO=HJFB%`6A`I?CP'SCI`87X\!@I M`]`4I?FJO0#`2HT,W*D"A?AJ"7^-#-Q@>"P!W5`6IOC0!B!=PE@88#`*A?F* M"8"%^%@88%@X8*T-W"D(\`D@3,)HJ&BJ:$!83#'J2*4!2*DWA0&M#=PI"/`' MBD@@3,)HJFB%`6A`>&P8`WBM%`.-H<*M%0.-HL*B`(;ZAO>&`J`(!@)JB-#Z MG0#`Z-#PH@"@PHX8`XP9`Z*/H,*.%`.,%0.BOJ#"COK_C/O_HJ.@PH[^_XS_ M_ZW8SLD.T`6I#XW8SJDRC03,8!L=OF`5BJYMO0!Z3\!W)#?`-R0KP#$BI`(7>:$SQS:D*+*D- MA=ZI#4SQS:D`A=Y@2"#QS6A@(.K_((?J:*AHJFA`HK^@`(04O0#%T`/(AA3* %T/6E%&#Q ` end begin 644 ass.upl M-`.F]X;Z(-3#L$-(('#":+#YR0W0\"#4P[`S2"!PPFBP^0#_`-JDG_;8#, MC8#,BB"3RZD`A?NIQH7\H@"L@,RY&1!,B,@LSP"JR!S,``D(M, M:LWF!4Q;S6BJ&*V"S&4$A020`N8%.*R`S+D`RRE^[8',D"#P'@H*D`](H`"I M`)$$R-#[:/`-Y@6HB*D`D02(T/N1!*R`S+UPS!AI`9D`R^QNS+`2J5!E^X7[ MD`+F_,B,@,SH3,#,O7#,C7#,\`ZHL?N9`,:(T/BQ^XT`QJD`C6[,K6_,C0+. MJ<:-`\Y@,GA(*?\P/%`:D>C?#-:*BN;LP8J5'M;\P8;0+.C0+.D`/N M`\[HCF[,J0"-;\R=<,RM;%`:D1C0[<3#'JI9GP`TQF\8ZNSHROSB!"\?#[KJ[.K*_.R0WP M`R#QS1A@J3N-$="I?8T8T*D`C0#=>*G`C10#J