ab  MESSAGE¤VBORÇDLIST¤DLISÔDLENÄPG´DLBEÇSPEEÄCSCROLÌINITVÂÔÁHIGÈLO×MEÍÇANTIÃOFFSEÔÓÍCHAÒØSCROLLBYTEÓ=¾A6¾nB"ˆB"‰B"ˆ@AYAW A` @Q @ @H AY@@@$@b@A`B# **************************› * Scroll-it! *› * By Mark Sloatman *›( * For ANALOG Computing *›2 **************************›<›F€;A,P%6-A6‚;A,%6ƒ-C:‚,ZZZCorrects address of beginning of Display List if it is going to cross a 1k boundary.›d*6„-ƒ%@U*6…-P:„'A$,$A$n) 6†-„&…† @U)6ƒ-ƒ%+@U&†,x66delete line 110 if you want the VBI in a string.›‚ DIM VB$(71):VBORG=ADR(VB$)›Œ'6‡-AY6ˆ-AW'6‰-A`–‡AUdon't scroll!› 9 +@AR@90@ªQ0@@70@@@Q0@@@´]-@@,(@ SCROLLIT!>-@@](@by mark sloatman ¾p-@@&(@æïò8-@@V(@analog computingY(p( Just a moment...È+ A0+put VB routine into memory.›Ò@ #A !Š-A`Ai%"‹+Š‹/ Š@INITVB routine›Ü%%104,162,6,160,0,169,7,76,92,228›æ$6Œ-P:'AV,$6-&Œ$AVðDAbŒAdDTell INITVB where VBROUTINE is located›ú7Š-ƒƒ%@6"‹Š‹! Š7SET UP DISPLAY LIST›^^112,112,112,66,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,82,0,0,112,112,112,65,0,6›P6Ž-F:A,&@&AŽ46Ž-Ž%@>+PMemory for msg.›l0@lchange this line if you want to use Inverse Upper case in Gr. modes 1 and 2.›"0@@70@@@Q0@@@You may, of course, use any color you wish.›,44Tell Display List where memory is for display.›6?ƒ%@0Ž(ƒ%@F:@ˆ,?ƒ%@F:@‰,@AAR@'-@@!A(Another sec please...JO'Š-+Ž,$AV+Ž%@,$AV3Š7 ŠOClear message memory.›TAR^(>:A%, APh3ˆ3Don't want old message on screen!›rP(+( Please select the Graphics modeP( desired for the scrolling line.|8(( Text modes 0,1 or 28( ANTIC mode 4 or 5 †‡AUStop msg.›%%"@)!@APš'"6-@'6‘-@H¤'"@6-@'6‘-@$®'"@6-@'6‘-@$¸+!@* @6-+6‘-@HÂZ!ƒ%@(%@d%@26Œ-P:ƒ'AV,B6-ƒ&Œ$AVNA`ZAaŒÌ A`Ö*(&( Speed (0-fastest,3-slow) *’à&("( Please input message &€ê*“-@B:€,*6”-F:C:€,%“&@,ô88these lines convert ATASCII to ATARI INTERNAL CODE›þ55”@–*”A')”A$*”AUA`'”@16”-”%@d' A`'”@•6”-”&@2' A`'”AY6”-”%@d' A`&”A#6”-”&@20+Ž,$AV%“%‘”: “D55POKE VBORG+37 with 7 for GRAPHICS modes 1 and 2›N7"@)"@-%@7@7 A0XddPOKE VBORG+37 with 3 for GRAPHICS mode 0 and ANTIC modes 3,4 and 5 (also map modes 7,7+ AND 8)›b%@7@l``VBORG+37 contains the number of times a finescroll needs to be done before a coursescroll.›v 6•-?:‰,Start the VB!›€"(>:A%,("( All done.ŠKAR@9( hit RETURN for another messageKAdAU”99if message scrolls off screen then scroll it again.›žF:ˆ,!B:€,%‘ˆ¨K36’-’%+R:,"@,&+R:,"@,?’ K6’-²’!@6’-@¼@ ‡’F:Ad,"AU2Š-@@P6 Š@ ApÆAdAU A0Ð%%*VERTICAL BLANK SCROLL ROUTINE*›Ú+ #ApŠ-%@p!"‹'Š‹+ ŠäppNeed to tell VB routine where pointer is in Display List for memory shown.(So we can do the course scroll)›îN6–-ƒ%@)"6Œ-P:–'AV,26-–&Œ$AV@%@`N%@aŒø$ll216,173,3,1,201,255,240,60,173,2,1,208,52,173,3,1,141,2,1,206,0,1,173,0,1,48,9,141,4,212,141,0,1,76,98› ``228,169,3,141,4,212,141,0,1,238,1,1,173,1,1,201,216,208,5,169,0,141,1,1,141,29,6,76,98,228›206,2,1,76,98,228›€D:SCROLLIT.BAS