spectrum/snaps/games/unsorted/i/init.zip

Init

9700 REM Save program to tape
9710 SAVE "init" LINE 9750
9720 SAVE "wng48"CODE 63848,1520
9740 STOP
9750 CLEAR 63847: LOAD "wng48"CO
DE
9790 STOP
9800 REM Initialise Graphics
9810 RESTORE 9980
9820 READ press,wait,pup,pdown,p
left,pright,noise,explode,invert
,lscroll,rscroll,uscroll,dscroll
,clear,border
9825 READ drsc,ursc,dlsc,ulsc,ge
t,addr,play
9830 LET mode=1: LET line=2: LET
col=3: LET length=4: LET height
=5: LET data=6
9840 DIM w(6): LET w(1)=3
9850 LET w(4)=32: LET w(5)=22
9860 LET a$=CHR$ 255+CHR$ 255
9870 RETURN
K

..
INIT.Z80

Free Web Hosting