1. Forum
  2. Usenet
  3. COMP.BINARIES.CBM

  • One From The Vault: "SCROLL.BIN", UUencoded (2K)

    From Cameron Kaiser@21:1/5 to All on Fri Feb 5 18: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: John Iannetta <76703.4244@compuserve.com>
    Reply-to: John Iannetta <76703.4244@compuserve.com>
    X-Original-Posting-Date: Fri, 16 Oct 1998 20:19:16 -0400

    This is "SCROLL.BIN", UUencoded. It is a Commodore-64 program that lets you smooth-scroll (upward) a PETASCII text file on disk. You may want to use the program for putting credits into a video, or you may just like to read a text file V E R Y S L O W L Y. Six speeds are provided, along with start, stop, and reset-to-beginning. Up to 1200 40-column lines can be handled; that represents between about 100 and 200 disk blocks, depending upon file formatting. Instructions for use are included.

    This program is an improved version of the BASIC program in an article that I recently posted to comp.sys.cbm. Although ML routines are used in this program, you should list it to overwrite the two-digit numbers used for screen colors.

    begin 644 scroll.bin M`0@["`H`ES4U+#$R.#J7-38L,38ZG#I41;(R-C4S.D]0LE1%JC@V.E:R-3,R M-#@ZGC,P-C<ZF2*3CB(`80@/`)DB14Y415(@1$5624-%($Y534)%4B!/1B!$ M4DE612X1(@!T"!0`1+(N.H5$.HM$LBZG.34`H0@9`(M$LS2P1+$S,*>9(I,2 M24Q,14=!3"!$159)0T4@3E5-0D52(CJ),34`V`@>`)\Q-2Q$+#$U.J`Q-3J+ M4U2GF2*3$D1%5DE#12([1#LBG2!.3U0@4%)%4T5.5"(ZB3$U`.$((P"9(I,B M``8)*`"9(D5.5$52($9)3$5.04U%($]&(%1%6%0@1DE,12X1(@`D"2T`1B2R M(B(ZA48D.HM&)+(B(J>9(I,B.HDQ-0!+"3(`GS$U+$0L,34ZGS@L1"PX+$8D M.H0Q-2Q*)"Q/)"Q()"Q.)`"""3<`BTHDL[$B,#`BIYDBDQ(B.THD.R(L(CM/ M)#LB+"([2"0[(BPB.TXD.J`X.J`Q-3J)-#``H0D\`)DBDPX1STY%($U/345. M5"!03$5!4T4N+BXB`+P)00">5$5-.J`Q-3J@.#J+PB@R*;(NISDP`-L)1@!! MLC$T.I=6JC,R+$$ZCR!"3U)$15(@0T],+@#^"4L`0;(P-CJ75JHS,RQ!.H\@ M0D%#2T=23U5.1"!#3TPN`"`*4`!!LC$T.I<Q-3`L03J/($9/4D5'4D]53D0@ M0T],+@`H"E4`GD]0`$0*6@"9(BXN+D9)3$4@5$]/($Q!4D=%("`@(@!;"E\` MF2*.(CJ7-38L,38P.I<U-2PN````J8"%_:D0A?ZB""#&_QBB`(8"H``@\/^I M(*(GG0`$RA#Z(*7_(-+_I9#P!(4"T`2EUO#NH`"BR[D`!)']R,`HD/:E_6DG MA?V0`N;^I0+0!.3^L+I,S/_&`7BIAXT4`ZD+C14#J7^-#=RI,(T2T*D!C1K0 MI9:B!*#8A/R@`(3[D?O(T/OF_,K0]JD#A0*%EJ(&O7H0G?H#O701G?0$O6X2 MG>X%O6@3G>@&Z-#EJ1>-$="I:(7[H!2$_*GZC0#<K0'<JBD"\,F**8#P(XHI M$-#N6*G>C0#<F/`2K0'<JBD!\!B**0CP$XHI(-#K>/#+J0"%-ZF@A3A,``BM M$M#)_9`=K1+0R?S0^>P!W-`1[`'<\/O@]_`*I@+*T`'HA@+0MZ8"X`;0`<KH MA@+0J\:6T&*E`H66K1'0*7^JRN`/T%"E^\7]T`:E_,7^\$^B$+T8!)WP`^C0 M]Z(0O0@%G>`$Z-#WHA"]^`6=T`7HT/>B$+WH!IW`!NC0]Z``L?N9P`?(P"B0 M]JDG9?N%^Y`"YORB%XX1T*G_C1G03('J:*D`2/#RJ6"%BB"*`#B@`(20L2V% M`IB1+;J*Z0*JFFAIMX7]JFAI`(7^J(II(*J8:0"HAIN$G(II=H7[F&D`A?R* M:1^JF&D`J(H@'JL@Y/_)#=#YJ00@L?^I9R"3_ZD7C0#=K0#=$$`@1.6@`:(7 ML?OP'2`6Y^;[T`+F_.36L.^E_:3^(!ZK(.3_R0W0^?#8&*(8H``@\/^EFZ2< M(!ZK(.3_R0W0^?`3H`"Q^_`-(*C_(!;GR-#SYOS0[Z``I0*1+4RN_Q+04D53 M4R`\TL74U=+./B!&3U(@3D585"!004=%+I(`$L5.1"!/1B!&24Q%.R!04D53 M4R`\TL74U=+./BZ2`),1#LE&(%!224Y415(@*$1%5DE#12`T*2!)4R#/SB!7 M2$5.#1$\TL74U=+./B!)4R!04D534T5$+"!/5510550@5TE,3"!"12!43R`@ M$5!224Y415(N`),@("`@U$A)4R##+38T(%!23T=204T@5TE,3"!334]/5$@M M4T-23TQ,("A54%=!4D0I($$@T,74P=/#R<D@5$585"!&24Q%($].($1)4TLN M#=50(%1/(#$R,#`@-#`M0T],54U.($Q)3D53($-!3B!"12!(04Y$3$5$.R!4 M2$4@0T]24D534$].1$E.1R!&24Q%(%-)6D4@1$5014Y$4PU54$].($9/4DU! M5%1)3D<N("#)5"!32$]53$0@0D4@1E)/32!!0D]55"`Q,#`@5$\@,C`P($1) M4TL@0DQ/0TM3+B`@U$A%($9)3$4-5TE,3"!"12!214%$($E.5$\@345-3U)9 M+"!!3D0@5$A%($9)4E-4(%-#4D5%3B!724Q,($)%($1)4U!,05E%1"X@(-!2 M15-3(,8Q(%1/#5-405)4(%-#4D],3$E.1SL@4%)%4U,@QC,@5$\@4U1/4"!3 M0U)/3$Q)3D<N("#$55))3D<@4T-23TQ,24Y'+"!42$4@(BLB($%.1"`B+2(- M2T594R!-05D@0D4@55-%1"!43R!314Q%0U0@3TY%($]&(%-)6"!34$5%1%,N M("#72$E,12!42$4@5$585"!)4R!(04Q4140L(%!215-3#2)2(B!43R!215-% M5"!43R!35$%25$E.1R!03U-)5$E/3BP@3U(@4%)%4U,@(E@B(%1/($58250N M#0T@("`@("`@("`@("`@(,I/2$X@R4%.3D545$$-("`@("`@("`@("`@("`W :,S4Q,"XR,34R0$-/35!54T525D4N0T]-#0T`
    `
    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)