NeptuneLander.bas

10 poke 53269,1 : REM bit 0 = sprite 0
20 POKE 2040,192 : REM SPRITE POINT * 64 = 192 * 64 = 12288
30 Y = 60 : POKE 53249,Y
40 X = 60 : POKE 53248,X
50 POKE 53287,0
60 FOR I = 0 TO 62 : READ A : POKE 12288 + I, A : NEXT I
80 V = 0 : G = 3/32 : T = 6/32
90 FOR DE = 0 TO 32 : NEXT
100 A = PEEK(197)
110 IF A = 22 THEN V = V - T : GOTO 210 : REM T
120 IF A = 18 THEN X=(X+1) AND 255 : POKE 53248,X : REM D
130 IF A = 10 THEN X=(X-1) AND 255 : POKE 53248,X : REM A
140 IF A = 9 THEN Y=(Y+1) AND 255 : POKE 53249,Y : REM W
150 IF A = 12 THEN Y=(Y-1) AND 255 : POKE 53249,Y : REM Z

200 V = V + G : Y = (Y+V) AND 255
210 POKE 53249,Y
215 REM PRINT A,V,Y
220 GOTO 90



999 END
1000 REM 
1010 DATA 16,0,18
1020 DATA 8,126,28
1030 DATA 5,255,204
1040 DATA 6,16,54
1050 DATA 15,159,240
1060 DATA 8,146,16
1070 DATA 8,243,240
1080 DATA 8,242,16
1090 DATA 8,244,8
1100 DATA 31,254,24
1110 DATA 32,1,244
1120 DATA 32,0,164
1130 DATA 39,128,188
1140 DATA 39,192,164
1150 DATA 31,255,252
1160 DATA 13,60,176
1170 DATA 25,195,152
1180 DATA 49,0,140
1190 DATA 48,0,12
1200 DATA 120,0,30
1210 DATA 204,0,51