Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!mcsun!sunic!tut!korppi.tut.fi!po87553
From: po87553@korppi.tut.fi (Ojala Pasi Juhani)
Newsgroups: comp.sys.cbm
Subject: Fooling VIC in c64
Keywords: VIC scrolling
Message-ID: <10454@etana.tut.fi>
Date: 17 Dec 89 16:54:43 GMT
Sender: News@tut.fi
Reply-To: po87553@korppi.tut.fi (Ojala Pasi Juhani)
Organization: Tampere University of Technology, Finland
Lines: 46

These are those routines I promised earlier. The other scrolls the whole
screen downwards and another changes the line-distance. These
are written for PAL-system, but should work in other systems too,
there shouldn't be anything to be modified. In need send mail.

2 A=49152:FORT=0TO5:READH$
3 FORS=1TO32:Y=S*2-1
4 X=ASC(MID$(H$,Y)):X=X-48+(X>64)*7
5 G=X:Y=Y+1
6 X=ASC(MID$(H$,Y)):X=X-48+(X>64)*7
7 D=X+G*16:POKEA,D:A=A+1:B=B+D
8 NEXTS,T
9 IFB<>27462THENPRINT"ERROR":END
10 DATA78A9018D1AD0A97F8D0DDCADB2C009038D11D0A92D8D12D0A92D8D1403A9C08
11 DATA1503A9008DB3C085FB85FC5860ADB2C009038D11D0ACB3C0C002B0034C71C0AE
12 DATA12D0E0FAB02BCACACA8A29070DB2C08D11D0AE12D0EC12D0F0FB88D0E2A007AE
13 DATA12D0E0FAB00BEC12D0F0FB88D0F14C35C0ADB3C0C5FBF0339014ADB3C038E5FC
14 DATA9004C5FBB002A5FB8DB3C04C9FC0ADB3C01865FCB004C5FB9002A5FB8DB3C0A9
15 DATA0185FDA9018D19D04C31EAA90085FD4CA3C0180056FF4718FFFFFFFFFFFFFFFF
20 SYS49152:POKE251,8:POKE252,1
30 REM 251=LINEDIST
40 REM 252=SPEED


2 A=49152:FORT=0TO5:READH$
3 FORS=1TO32:Y=S*2-1
4 X=ASC(MID$(H$,Y)):X=X-48+(X>64)*7
5 G=X:Y=Y+1
6 X=ASC(MID$(H$,Y)):X=X-48+(X>64)*7
7 D=X+G*16:POKEA,D:A=A+1:B=B+D
8 NEXTS,T
9 IFB<>29007THENPRINT"ERROR":END
10 DATA78A9018D1AD0A97F8D0DDCADA0C009038D11D0A92D8D12D0A92F8D1403A9C08D
11 DATA1503A9048D9FC085FBA90085FC5860ADA0C009038D11D0AD9FC08D9EC0D0034C
12 DATA5DC0AE12D0E8E88A29070DA0C08D11D0AE12D0EC12D0F0FBCE9EC0D0E5AD9FC0
13 DATAC5FBF0339014AD9FC038E5FC9004C5FBB002A5FB8D9FC04C8BC0AD9FC01865FC
14 DATAB004C5FB9002A5FB8D9FC0A90185FDA9018D19D04C31EAA90085FD4C8FC00000
15 DATA1800C000C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
20 POKE16383,0:SYS49152
30 REM 251=POS
40 REM 252=SPEED

<<<<<<<<<<<<<<<<    /| |  _   _  _  ___
Pasi Ojala         / | | |_) |_ |_)  |
po87553@tut.fi    /--| | |_) |_ |\   |
>>>>>>>>>>>>>>>> /   | |___