po87553@korppi.tut.fi (Ojala Pasi Juhani) (12/18/89)
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 /--| | |_) |_ |\ |
>>>>>>>>>>>>>>>> / | |___