Groups | Search | Server Info | Login | Register

Groups > comp.binaries.cbm > #1069

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

Followups directed to: comp.sys.cbm

Show all headers | View raw

       ******************************************************************
       ***                                                            ***
       ***         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/

Back to comp.binaries.cbm | Previous | Next | Find similar

Thread

One From The Vault: Plus/Term BASIC (VIC-20/64) (6K) Cameron Kaiser <ckaiser@floodgap.com> - 2021-06-07 17:40 +0000

csiph-web