One From The Vault: VICTerm Terminal Program for the VIC-20 (BASIC)
                                       
   From: Cameron Kaiser <cdkaiser@delete.these.four.words.concentric.net>
   Reply to: Cameron Kaiser
   Date: 26 Oct 1998 08:53:59 PST
   Organization: Concentric Internet Services
** One from the Vault is a best-of compendium of useful, frequently requested
   or just plain interesting past postings to comp.binaries.cbm, selected by
   the moderation staff. If you have suggestions about One From the Vault,
   please mail the moderators. See the FAQ for contact information.

               *** comp.binaries.cbm is a moderated binaries- ***
               ***      only newsgroup (no discussion or      ***
               *** crossposting allowed) for Commodore 8-bits ***
               ***                                            ***
               *** For information on comp.binaries.cbm visit ***
               ***  http://www.concentric.net/~cdkaiser/cbc/  ***
               ***                                            ***
               ***  This file is also available via FTP from  ***
               ***     ftp://videocam.net.au/cbm/incoming     ***
               *** (allow time for submission to be received) ***

Plus/Term is a PD term program running on both the VIC-20 and the 64,
graciously provided for mass binary broadcast by Phil Hoff.

This is the BASIC portion of Plus/Term, common to BOTH the VIC-20 and
the 64. It's an ordinary binary; just break it down and go.

-- Cameron Kaiser

begin 644 plus-term.bas
M`0@H"&0`H#(ZBR!1LC`@IR!1LC$ZDR)03%53+U1%4DTN34PB+#@L,0!D"&X`
MES8X,"PQ.IDBDR([.IX@-C4U,3<ZBR#"*#<X,2FR,C*G($Q/LC8Q-#0Z44.R
M-#8P.#J)(#$S,`!Z"'@`3$^R-3`Q-3(Z44.R-3(W,S8`APB"`$95(+(@-S@W
M`)P(C`!.02"R(#@S,3I25"2R(A(B`.((E@!73"0H,2FR(A(B.E-")"@Q*;(B
M$B(Z4$$D*#$ILB(2(CI$220H,BFR(A(B.D-!)"@R*;(B$B(Z1E,D*#$ILB(2
M(@`>":``ES4S,C@Q+#$R.I<U,S(X,"PQ,CJ9(I.0(CJ7-C0V+#`Z022RQR@Q
M,RFJ(A$='1T='1T='1T=(@`N":H`F<<H,30I.\<H."D`20FT`(L@PB@Q.#4I
ML[$Y.:=&6K(Q.HDR,#``4PF^`)Y,3ZHV`'T)R`">-C4U,3<ZBR#"*#<X,2FR
M,C*G($$DLL<H,3,IJB(1(CJ),C(P`)@)T@!!)++'*#$S*:HB$1T='1T='1T=
M'1TB`*L)W`"+($9:IT9:LC`ZB34T,`#:">8`ES4S,C@Q+#$R.I<U,S(X,"PQ
M,CJ9(I,B.T$D.R(='5!!4D%-151%4E,B`!@*\`"9020[(C$N(%=/4D0@3$5.
M1U1((CM!)#LB,BX@4U1/4"!"2513(CM!)#LB,RX@0D%51"!2051%(CL`3PKZ
M`)E!)#LB-"X@4$%22519(CM!)#LB-2X@1%503$58(CM!)#LB-BX@1$5&24Y%
M($M%62([`(D*!`&9020[(C<N(%1%4DU)3D%,($]05$E/3E,B.T$D.R(X+B!2
M15154DX@5$\@5$5234E.04PB.P"F"@X!F4$D.R(Y+B!215154DX@5$\@0D%3
M24,B`+X*&`&A($TQ)#J+($TQ)+(B(J<@,C@P`-X*(@&+(,4H33$D*;,Q(+`@
MQ2A-,20IL3D@IR`R.#``%`LL`9$@Q2A-,20I((D@,S$P+#0U,"PU-#`L-S$P
M+#@V,"PY-S`L,3(S,"PQ-S8P+#$X,#``)@LV`8\@5T]21"!,14Y'5$@`20M`
M`9DBDR([020[(AT='1$1$1$1$5=/4D0@3$5.1U1((@!K"TH!F4$D.U=,)"@Q
M*3LB'1TQ+B`X($1!5$$@0DE44R(`C0M4`9E!)#M73"0H,BD[(AT=,BX@-R!$
M051!($))5%,B`*\+7@&9020[5TPD*#,I.R(='3,N(#8@1$%402!"2513(@#1
M"V@!F4$D.U=,)"@T*3LB'1TT+B`U($1!5$$@0DE44R(`W`MR`9<Q.3@L,`#T
M"WP!H2!-020ZBR!-022R(B*G(#,X,``(#(8!BR!-022RQR@Q,RFG,C`P`#0,
MD`&!(%2R(#$@I"`T.E=,)"A4*;(B(CJ".E=,)"C%*$U!)"DILB`B$B(`5`R:
M`8L@Q2A-020ILS$@L"#%*$U!)"FQ-""G(#,X,`!V#*0!ES8U.2PHPB@V-3DI
MKS$U.2FP*,4H34$D*:PQ-BD`@0RN`9<Q.3@L,`"*#+@!B3,Q,`#3#,(!F2*3
M(CM!)#LB'1$1$1$1$1$1$1$14U1/4"!"2513("([4T(D*#$I.R(Q(CLBDB!/
M4B`B.U-")"@R*3LB,B([(I(_(CL`W@S,`9<Q.3@L,`#U#-8!H2!-0B0ZBR!-
M0B2R(B*G-#<P``D-X`&+($U")++'*#$S*:<R,#``-0WJ`8$@5+(@,2"D(#(Z
M4T(D*%0ILB(B.H(Z4T(D*,4H34(D*2FR("(2(@!2#?0!BR#%*$U")"FS,;`@
MQ2A-0B0IL3*G-#<P`'D-_@&+(,4H34(D*;(QIY<V-3DL*,(H-C4Y*:\Q,C<I
M.HD@-3,P`(T-"`*7-C4Y+,(H-C4Y*;`Q,C@`G0T2`I<Q.3@L,#J)-#4P`-`-
M'`*9(I,B.T$D.R*1'4)!540@4D%415,B.T$D.T)2)"@Q*3LB,2X@-3`@0D%5
M1"([``4.)@*9020[0E(D*#(I.R(R+B`W-2!"055$(CM!)#M"4B0H,RD[(C,N
M(#$Q,"!"055$(CL`/0XP`IE!)#M"4B0H-"D[(C0N(#$S-"XU($)!540B.T$D
M.T)2)"@U*3LB-2X@,34P($)!540B.P!S#CH"F4$D.T)2)"@V*3LB-BX@,S`P
M($)!540B.T$D.T)2)"@W*3LB-RX@-C`P($)!540B.P"K#D0"F4$D.T)2)"@X
M*3LB."X@,3(P,"!"055$(CM!)#M"4B0H.2D[(CDN(#$X,#`@0D%51"([`,\.
M3@*9020[0E(D*#$P*3LB,3`N(#(T,#`@0D%51"([020[`/$.6`)-0R2R(B(Z
MA2)%3E1%4B!314Q%0U1)3TXB.TU#)``,#V("BR!-0R2R(B*G34,DLL0HPB@V
M-#4I*0`L#VP"BR#%*$U#)"FS,2"P(,4H34,D*;$Q,""G-30P`%P/=@*>-C4U
M,3<ZB\(H-S@Q*;(R,J<@ES8U.2PHPB@V-3DIKS(T,"FPQ2A-0R0I`*8/@`)4
M32@Q*;(U,#I432@R*;(W-3I432@S*;(Q,3`Z5$TH-"FR,3,T+C4Z5$TH-2FR
M,34P.E1-*#8ILC,P,#I432@W*;(V,#``S`^*`E1-*#@ILC$R,C4Z5$TH.2FR
M,3@P,#I432@Q,"FR,C0P,`#Y#Y0"3E2R,3`R,C<S,*U432C%*$U#)"DIK"XU
MJS$P,#J7-C8R+$Y4K3(U-@`H$)X"ES8V,2PH3E2M,C4VJ[4H3E2M,C4V*2FL
M,C4V.I<V-#4LQ2A-0R0I.J`R`%L0J`*?,BPR+#,LQRC"*#8U.2DIJL<HPB@V
M-C`I*:K'*,(H-C8Q*2FJQRC"*#8V,BDI`(@0L@*!(%2R(#$@I"`Q,#I"4B0H
M5"FR(B(Z@CI"4B0HPB@V-#4I*;(@(A(B`)$0O`*),3$P`,40Q@*9(I,B.T$D
M.R(1$1$1$5!!4DE462([020[4$$D*#$I.R(Q+B!.3R!005))5%DB.P#K$-`"
MF4$D.U!!)"@R*3LB,BX@3T1$(%!!4B!33E0O4D-61"([``L1V@*9020[4$$D
M*#,I.R(S+B!%5DX@4$%22519(CL`,Q'D`IE!)#M0020H-"D[(C0N($U22R!0
M05(@4TY4+TY/($-(2R([`%L1[@*9020[4$$D*#4I.R(U+B!34$,@4$%2(%-.
M5"].3R!#2$LB.P!S$?@"H2!-1"0ZBR!-1"2R(B*G(#<V,`"'$0(#BR!-1"2R
MQR@Q,RFG,C`P`+(1#`.!(%2R,2"D(#4Z4$$D*%0ILB(B.H(Z4$$D*,4H340D
M*2FR("(2(@#/$18#BR#%*$U$)"FS,;`@Q2A-1"0IL36G-S8P`.T1(`.1(,4H
M340D*8D@.#$P+#@R,"PX,S`L.#0P``H2*@.7-C8P+"C"*#8V,"FO,S$IL#,R
M.HDX-3``)Q(T`Y<V-C`L*,(H-C8P*:\S,2FP.38ZB3@U,`!%$CX#ES8V,"PH
MPB@V-C`IKS,Q*;`Q-C`ZB3@U,`!>$D@#ES8V,"PHPB@V-C`IKS,Q*;`R,C0`
M9Q)2`XDW,3``BA)<`YDBDR([020[(A$1$1$1$1T='1U$55!,15@B.T$D.P"Q
M$F8#BR#"*#<X-RFG1$DD*#$ILB(2(CI$220H,BFR(B(ZB3@Y,`#*$G`#1$DD
M*#$ILB(B.D1))"@R*;(B$B(``A-Z`YD@1$DD*#$I.R(Q+B!&54Q,($154$Q%
M6"([020[1$DD*#(I(C(N($A!3$8@1%503$58(@`9$X0#H2!-120ZBR!-122R
M(B*G.3`P`"T3C@.+($U%)++'*#$S*:<R,#``61.8`X$@5+(@,2"D(#(Z1$DD
M*%0ILB(B.H(Z1$DD*,4H344D*2FR("(2(@!W$Z(#BR#%*$U%)"FS,2"P(,4H
M344D*;$RISDP,`"A$ZP#BR#%*$U%)"FR,:>7-C8P+,(H-C8P*:\R,SDZET95
M+#$ZB3DV,`"[$[8#ES8V,"S"*#8V,"FP,38ZER!&52PP`,03P`.).#8P`.D3
MR@.9(I,B.T$D(A$1$1$1$4-(04Y'12!604Q515,B.T$D.P`0%-0#F2(Q+B!'
M3TE.1R!/550B.T$D.R(R+B!#3TU)3D<@24XB.P`G%-X#H2!-1B0ZBR!-1B2R
M(B*G.3DP`#L4Z`.+($U&)++'*#$S*:<R,#``613R`XL@Q2A-1B0ILS$@L"#%
M*$U&)"FQ,J<Y.3``<13\`Y$@Q2A-1B0IB2`Q,#,P+#$Q,C``K!0&!)DBDQ$1
M$1$1$1$1(CLB4%)%4U,@5$A%($M%62!93U4@5T%.5"!43R!#2$%.1T4B.I<Q
M.3@L,`#$%!`$H2!+620ZBR!+622R(B*G,3`T,`#>%!H$2UD@LB#"*%%#JC(U
M-JK&*$M9)"DI`/T4)`29(A$1$1%42$%4(%-%3D13($$@0TA2)"@B.P`:%2X$
MF<DHQ"A+62DLPRC$*$M9*2FK,2FJ(BDB`#85.`2%(A$1$1%215!,04-%(%=)
M5$@B.U)+)`!-%4($BR#%*%)+)"FQ,C4UIR`Q,#,P`&<53`2744.J,C4VJL8H
M2UDD*2S%*%)+)"D`<156!(D@,C`P`)058`2%(I,1$1$1$1$1$4-/1$4@5$\@
M0TA!3D=%(CM)0R0`I15J!(L@24,DLB(BISDW,`#(%70$BR#%*$E#)"FQ,C4U
M(+`@Q2A)0R0ILC`@IR`Q,3(P`.`5?@29(A$1$1%.3U<@02!#2%(D*"([`/85
MB`1)0R"R(,(H44.JQ2A)0R0I*0`3%I($F<DHQ"A)0RDLPRC$*$E#*2FK,2FJ
M(BDB`#(6G`2%("(1$1$10TA!3D=%(%1/($-(4B0B.TY+)`!#%J8$BR!.2R2R
M(B*G.3<P`%H6L`2+(,4H3DLD*;$R-36G(#$Q,C``<1:Z!)<@44.JQ2A)0R0I
M+,4H3DLD*0!Z%L0$B3(P,`"S%LX$F2`BDR([020[(A$1$1$='1T=3U!424].
M4R([020[(C$N($1)4D5#5$]262`H1$E32RDB.P#5%M@$F4$D.T-!)"@Q*3LB
M,BX@0T]-32!43R!#3TU-(CL`^!;B!)E!)#M#020H,BD[(C,N($-/34T@5$\@
M05-#24DB.P`7%^P$F4$D.T93)"@Q*3LB-"X@5T]21"!74D%0(CL`.A?V!)E!
M)#M&4R0H,BD[(C4N($Y/4DU!3"!30U)%14XB.P!5%P`%F4$D.R(V+B!04DE.
M5"!"549&15(B.P!Y%PH%F4$D.U)4)#LB-RX@3$E.149%140@5R\@4D5455).
M(@"2%Q0%H2!/4"0ZBR!/4"2R(B*G(#$S,#``IA<>!8L@3U`DLL<H,3,IIS(P
M,`#*%R@%BR#%*$]0)"FR,J=#020H,2FR(A(B.D-!)"@R*;(B(@#N%S(%BR#%
M*$]0)"FR,Z=#020H,BFR(A(B.D-!)"@Q*;(B(@`2&#P%BR#%*$]0)"FR-*=&
M4R0H,2FR(A(B.D93)"@R*;(B(@`V&$8%BR#%*$]0)"FR-:=&4R0H,BFR(A(B
M.D93)"@Q*;(B(@!9&%`%BR#%*$]0)"FR-R"G()<@-C@P+*LHPB@V.#`ILC`I
M`'086@6+(,(H-C@P*:=25"2R(A(B.HDQ,SDP`'\89`525"2R(B(`GQAN!8L@
MQ2A/4"0ILS$@L"#%*$]0)"FQ-R"G,3,P,`#0&'@%D2#%*$]0)"F)(#$T,3`L
M,34T,"PQ-34P+#$W.#`L,3<Y,"PQ.#$P+#$R,S``Y1B"!9DBDR(ZGS$L."PP
M+"(D,"(`]!B,!:$@(S$L5"0L5"0``QF6!:$@(S$L5"0L5"0`'AF@!5.R4U0Z
MBR!3L[$P(*>@,3J)(#$U,#``+QFJ!:$C,2Q,520L2$DD.@!M&;0%3%6RQBA,
M522JQR@P*2DZ2$FRQBA(222JQR@P*2DZ3$ZR3%6J2$FL,C4V.DQ.)++**,0H
M3$XI+#(I`'L9O@693$XDJB(@(CL`F1G(!:$C,2Q"("0ZBR!")+(B(B"G()DZ
MB3$T,S``J!G2!9E")#LZB3$T.#``W1G<!9\Q-2PX+#$U.H0Q-2Q%3BQ%320L
M150L15,ZH#$U.HL@14ZGF45..T5-)#M%5#M%4P#_&>8%F2(24%)%4U,@4D54
M55).(%1/($-/3E1)3E5%DB(`&1KP!:$@5"0ZBR!4)+.QQR@Q,RFG,34R,``C
M&OH%B3$R,S``-!H$!I<@3D$L,3J),3(S,``^&@X&ETY!+#``=1H8!IDBDQ$1
M$1$1$2([020[(D%30TE)($]05$E/3E,B.T$D.R(Q+B!,3T%$($-/3D9)1R([
M`)(:(@:9020[(C(N(%-!5D4@0T].1DE'(CM!)#L`JQHL!IDB,RX@4D5455).
M(%1/($U%3E4B`,,:-@:A($-.)#J+($-.)+(B(J<Q-3DP`.`:0`:+(,4H0TXD
M*;,QL,4H0TXD*;$SIS$U.3``_!I*!I$@Q2A#3B0IB3$V,C`L,38S,"PQ-C0P
M`"<;5`:-(#$V-3`ZGB#"*#<V-"FJ,C4VK,(H-S8U*3J-,3<T,#J),3(S,`!2
M&UX&C2`Q-C4P.IX@PB@W-C8IJC(U-JS"*#<V-RDZC3$W-#`ZB3$R,S``7!MH
M!HDQ,C,P`'\;<@:9(I,B.T$D.R(21)))4TL@3U(@$E2205!%(CM!)#L`HAM\
M!J$@1%8D.HL@1%8DL[$B5"*O1%8DL[$B1"*G,38V,`"V&X8&A2)&24Q%3D%-
M12([1DDD`,P;D`:+(,,H1DDD*;$Q-J<@,38W,`#K&YH&BR#(*$16)"PQ*;(B
M1"*G($2R.#J)(#$W,3``\QND!D2R,0`F'*X&@2!4LB`V.#0@I"`V.#2JPRA&
M220IJS$ZEU0LQBC**$9))"Q4JS8X,RPQ*2DZ@@!4'+@&ES8W.2Q$.I<W-C,L
M1#J7-C@Q+,,H1DDD*3J7-C@R+#$W,CJ7-C@S+#(`6AS"!HX`D!S,!I\Q-2PX
M+#$U.H0Q-2Q%3BQ%320L150L15,ZH#$U.IDZBT5.IYE%3CM%320[150[15,`
MI1S6!H$@5+(Q(*0@,34P,#J".HX`LAS@!IDBDR(ZGDQ/`+L<Z@:),C`P`,P<
M]`:7-S`S+#`ZB3$R,S``W1S^!I<W,#,L,3J),3(S,`#C'`@'@``;'1('0EFR
MPB@W,#8IJC(U-JS"*#<P-RFK*,(H-34IJC(U-JS"*#4V*2DZF2*3$2([020[
M0ED[`$<='`>9(D)95$53($E.($)51D9%4B([020[.IDB(%1/5$%,($)95$53
M(CL`<ATF!YDHPB@R-#DIJC(U-JS"*#(U,"DIJRC"*#4U*:HR-3:LPB@U-BDI
M`(8=,`>9($$D.R)04DE.5"!43R(`R1TZ!YE!)#LB,2X@4D5455).(CM!)#LB
M,BX@4E,R,S(@(CM!)#LB,RX@4T-2145.(CM!)#LB-"X@4%))3E1%4B([`/$=
M1`>A(%I%)#I:1;+%*%I%)"DZBR!:1;,QL"!:1;$T(*<@,3@V,``''DX'F2*3
M(CJ+(%I%LC$@IS$R,S``&1Y8!XL@6D6R,B"G(#$Y,3``*1YB!XL@0EFR,*<Q
M.3DP`#,>;`>?-2Q:10!J'G8'@2!4(+(@PB@U-2FJ,C4VK,(H-38II"C"*#<P
M-BFJ,C4VK,(H-S`W*2FK,3J7,C$R+#``?QZ`!XL@PB@V-3,ILC$@IS$Y,C``
MEAZ*!XL@PB@Q.3<ILC8PIX%4LC"D,`"W'I0'BR#"*#8U,RFR-""G(($@2K(@
M,2"D(#$P,#`Z@@#7'IX'BR!:12"R(#(@IY@R+,<HPBA4*2D[.HDQ.3<P`.<>
MJ`>8-2S'*,(H5"DI.P#M'K('@@`"'[P'BR!:1;.Q,B"G()@U.J`@-0`I'\8'
MES$Y."PP.IE!)#LB4%)%4U,@04Y9($M%62!43R!#3TY4(@`_']`'H2!*)#J+
9($HDLB(BIS(P,#``2A_:!XD@,3(S,```````
`
end
--
Cameron Kaiser * cdkaiser.cris@com * powered by eight bits * operating on faith
 -- supporting the Commodore 64/128:  http://computerworkshops.home.ml.org/ --
   head moderator comp.binaries.cbm * cbm special forces unit $ea31 (tincsf)
personal page http://calvin.ptloma.edu/~spectre/ * "when in doubt, take a pawn"