100 REM **************************›110 REM *   SMOOTH SCROLL DEMO   *›120 REM *    BY  KYLE PEACOCK    *›130 REM * A.N.A.L.O.G. COMPUTING *›140 REM *        ISSUE 16        *›150 REM * ALL RIGHTS UNRESERVED! *›160 REM **************************›170 REM ›180 PRINT "}"›190 REM ›200 REM - DIMENSION INIT$ & VBLANK$›210 REM - EXACTLY AS THEY ARE HERE.›220 REM ›230 DIM INIT$(199),VBLANK$(408)›240 REM ›250 REM - DIMENSIONS OF PAGES$ &›260 REM - DLIST$ WILL DEPEND ON›270 REM - APPLICATION›280 REM ›290 DIM PAGES$(112),DLIST$(78)›300 PRINT "PHASE ฐ COMPLETE."›310 REM ›320 REM - INSTALL ะมวลำ DATA.›330 REM - LOOP VARIABLE SHOULD BE 1›340 REM - TO # OF PAGE BYTES DIVIDED›350 REM - BY TWO.›360 REM ›370 FOR X=1 TO 56:READ A,B›380 PAGES$(X*2-1,X*2-1)=CHR$(B)›390 PAGES$(X*2,X*2)=CHR$(A):NEXT X›400 ? "PHASE ฑ COMPLETE."›410 REM ›420 REM - INSTALL ฤฬษำิ DATA›430 REM - LOOP VARIABLE SHOULD BE 1›440 REM - TO # OF DLIST BYTES›450 REM ›460 FOR X=1 TO 76:READ A›470 DLIST$(X,X)=CHR$(A):NEXT X›480 HIGH=INT(ADR(DLIST$)/256)›490 LOW=ADR(DLIST$)-HIGH*256›500 DLIST$(X,X)=CHR$(LOW)›510 DLIST$(X+1,X+1)=CHR$(HIGH)›520 ? "PHASE ฒ COMPLETE."›530 REM ›540 REM - INSTALL VBLANK INITIALIZER›550 REM ›560 FOR X=1 TO 199:READ A›570 INIT$(X,X)=CHR$(A):NEXT X›580 ? "PHASE ณ COMPLETE."›590 REM ›600 REM - INSTALL VBLANK ROUTINE›610 REM ›620 FOR X=1 TO 408:READ A›630 VBLANK$(X,X)=CHR$(A):NEXT X›640 REM ›650 REM - ALL DONE...›660 REM ›670 ? "PHASE ด COMPLETE."›680 REM ›690 REM - POKE A ฑ INTO MEM. LOC.›700 REM - ฑทนฑ TO HALT ลึลาูิศษฮว.›710 REM - IF ANY PARAMETERS NEED TO›720 REM - BE CHANGED ONCE THINGS GET›730 REM - GOING, ะฯหล ฑทนฑฌฑ, THEN›740 REM - PERFORM THE ีำา CALL WITH›750 REM - THE NEW PARAMETERS.›760 REM - FINALLY, ะฯหล ฑทนฑฌฐ›770 REM ›780 POKE 1791,1›790 A=USR(ADR(INIT$),ADR(VBLANK$),ADR(DLIST$),56,0,255,0,32,7,7,1,1,0,0,0,ADR(PAGES$))›800 POKE 1791,0›810 GOTO 810›820 REM ›830 REM - RAM PAGE USAGE›840 REM ›850 DATA 0,0,1,0,2,0,3,0›860 DATA 250,0,251,0,252,0,253,0›870 DATA 254,0,255,0›880 DATA 3,0,1,0,0,0,253,0›890 DATA 250,0,5,0,4,0,250,0›900 DATA 5,0,2,0,0,0,4,0›910 DATA 253,0,241,0,222,0,3,0›920 DATA 247,0,212,0,2,0,1,0›930 DATA 3,0,5,0,252,0,253,0›940 DATA 255,0,254,0,253,0,252,0›950 DATA 251,0,250,0,249,0,248,0›960 DATA 1,0,3,0,2,0,5,0›970 DATA 4,0,248,0,252,0,253,0›980 DATA 0,0,3,0,6,0,4,0›990 DATA 254,0,255,0›1000 REM ›1010 REM - DISPLAY LIST›1020 REM ›1030 DATA 112,112,112,118,0,0›1040 DATA 118,0,0,118,0,0,118,0,0›1050 DATA 118,0,0,118,0,0,118,0,0›1060 DATA 118,0,0,118,0,0,118,0,0›1070 DATA 118,0,0,118,0,0,118,0,0›1080 DATA 118,0,0,118,0,0,118,0,0›1090 DATA 118,0,0,118,0,0,118,0,0›1100 DATA 118,0,0,118,0,0,118,0,0›1110 DATA 118,0,0,86,0,0,65›8000 REM ›8010 REM - VBLANK INITIALIZER›8020 REM ›8030 DATA 165,16,41,127,133,16,141›8040 DATA 14,210,216,104,104,141,28›8050 DATA 6,104,141,27,6,104,141›8060 DATA 1,6,104,141,0,6,104›8070 DATA 104,141,8,6,104,104,141›8080 DATA 2,6,141,18,6,104,104›8090 DATA 141,4,6,104,104,141,3›8100 DATA 6,141,19,6,104,104,141›8110 DATA 5,6,104,104,141,6,6›8120 DATA 104,104,141,7,6,104,104›8130 DATA 141,10,6,104,104,141,11›8140 DATA 6,104,104,141,9,6,104›8150 DATA 104,141,12,6,104,104,141›8160 DATA 13,6,104,133,204,104,133›8170 DATA 203,169,1,141,16,6,141›8180 DATA 17,6,165,205,72,165,206›8190 DATA 72,173,0,6,133,205,173›8200 DATA 1,6,133,206,160,0,162›8210 DATA 0,142,15,6,142,15,6›8220 DATA 177,205,141,26,6,41,15›8230 DATA 240,33,173,26,6,41,64›8240 DATA 240,26,200,200,173,26,6›8250 DATA 41,15,201,1,240,18,173›8260 DATA 26,6,41,48,240,8,152›8270 DATA 56,233,2,157,29,6,232›8280 DATA 200,208,211,142,20,6,104›8290 DATA 133,206,104,133,205,169,7›8300 DATA 174,28,6,172,27,6,32›8310 DATA 92,228,96›8320 REM * 199 BYTES›9000 REM ›9010 REM - VERTICAL BLANK ROUTINE›9020 REM ›9030 DATA 173,255,6,240,3,76,98›9040 DATA 228,216,173,0,6,141,48›9050 DATA 2,173,1,6,141,49,2›9060 DATA 206,16,6,208,124,173,10›9070 DATA 6,141,16,6,240,116,174›9080 DATA 9,6,189,120,2,172,12›9090 DATA 6,208,12,41,12,201,8›9100 DATA 240,103,201,4,240,12,208›9110 DATA 93,41,12,201,4,240,91›9120 DATA 201,8,208,123,238,14,6›9130 DATA 173,14,6,205,6,6,240›9140 DATA 112,144,110,173,18,6,205›9150 DATA 2,6,208,7,206,14,6›9160 DATA 240,97,208,95,206,18,6›9170 DATA 169,255,72,48,7,169,0›9180 DATA 141,14,6,240,80,141,22›9190 DATA 6,104,141,23,6,174,8›9200 DATA 6,202,160,0,177,203,24›9210 DATA 109,22,6,145,203,200,177›9220 DATA 203,109,23,6,145,203,200›9230 DATA 202,16,236,173,22,6,48›9240 DATA 211,16,34,240,38,208,36›9250 DATA 206,14,6,16,31,173,18›9260 DATA 6,205,4,6,208,7,238›9270 DATA 14,6,240,18,208,16,238›9280 DATA 18,6,169,0,72,169,1›9290 DATA 16,182,173,6,6,141,14›9300 DATA 6,206,17,6,208,110,173›9310 DATA 11,6,141,17,6,240,102›9320 DATA 174,9,6,189,120,2,172›9330 DATA 13,6,208,12,41,3,201›9340 DATA 2,240,49,201,1,240,12›9350 DATA 208,79,41,3,201,1,240›9360 DATA 37,201,2,208,69,206,15›9370 DATA 6,16,64,173,19,6,205›9380 DATA 3,6,208,7,238,15,6›9390 DATA 240,51,208,49,206,19,6›9400 DATA 173,7,6,141,15,6,240›9410 DATA 38,208,36,238,15,6,173›9420 DATA 15,6,205,7,6,240,25›9430 DATA 144,23,173,19,6,205,5›9440 DATA 6,208,7,206,15,6,240›9450 DATA 10,208,8,238,19,6,169›9460 DATA 0,141,15,6,173,14,6›9470 DATA 141,4,212,173,15,6,141›9480 DATA 5,212,173,20,6,240,83›9490 DATA 141,21,6,165,205,72,165›9500 DATA 206,72,162,0,142,24,6›9510 DATA 173,19,6,10,141,25,6›9520 DATA 173,48,2,133,205,173,49›9530 DATA 2,133,206,172,25,6,177›9540 DATA 203,72,174,24,6,189,29›9550 DATA 6,168,200,104,145,205,238›9560 DATA 25,6,172,25,6,177,203›9570 DATA 72,189,29,6,168,200,200›9580 DATA 104,145,205,238,24,6,238›9590 DATA 25,6,206,21,6,208,210›9600 DATA 104,133,206,104,133,205,76›9610 DATA 98,228›9620 REM * 408 BYTES›