• One From The Vault: Plus/Term BASIC (VIC-20/64) (6K)

    From Cameron Kaiser@21:1/5 to All on Mon Jun 7 17:40:02 2021
    ******************************************************************
    *** ***
    *** 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.floodgap.com/comp.binaries.cbm/ ***
    *** ***
    *** This file is available via mailing list at ***
    *** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
    *** to list subscribers ***
    *** Allow time for submission to be received ***
    *** ***
    ******************************************************************

    * One from the Vault is a collection of frequently requested, useful or just
    plain interesting past posts sent to comp.binaries.cbm, as archived by the
    moderators. If you have a request, please send it to the address in the
    headers. In addition to being selected and reposted by moderation staff,
    some of these postings are regularly posted on Mondays and Fridays on a
    rotating schedule.

    Take care when replying to these messages, as many were posted years ago.


    From: Cameron Kaiser <cdkaiser@delete.these.four.words.concentric.net> >Reply-to: Cameron Kaiser <cdkaiser@delete.these.four.words.concentric.net> >X-Original-Posting-Date:

    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.

    Plus/Term requires a 16K VIC-20, and offers:

    Key redefinition
    Word Wrap
    1200 BPS support
    Upload and Download capability

    -- 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 * ckaiser@floodgap.com * posting with a Commodore 128
    Floodgap Systems: http://www.floodgap.com/
    personal page: http://www.cameronkaiser.com/

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)