That's a cute avatar ... maybe my attachment below makes you consider a port of your game to the VIC-20?
Code: Select all
10 DATA 85,85,85,85,85,85,85,85,90,90,90,111,111,111,191,191,154,154,154,239,239,239
11 DATA 251,251,165,165,165,249,249,249,170,170,85,85,85,85,85,85,105,105,85,85,85,85
12 DATA 85,85,85,85,85,85,85,85,85,85,85,85,191,191,191,191,191,191,191,191,251,254,254
13 DATA 254,248,248,248,248,170,0,0,0,0,0,0,2,105,130,130,130,32,32,32,40,85,85,85,85
14 DATA 149,149,149,149,85,85,85,85,85,85,85,85,191,191,191,191,191,111,111,111,248,248
15 DATA 248,248,248,232,232,232,2,2,0,0,0,0,0,0,40,40,32,32,32,42,42,42,149,149,165,165
16 DATA 165,153,153,153,85,85,85,85,85,85,86,86,90,90,90,85,85,85,170,170,150,150,150
17 DATA 91,91,91,175,175,0,0,0,170,170,170,255,255,191,191,191,255,255,255,255,255,169
18 DATA 169,169,229,229,229,229,229,86,86,86,86,85,85,85,85,170,239,239,239,190,190,190
19 DATA 105,175,255,255,255,175,175,175,111,255,234,234,234,251,250,251,250,255,255,255
20 DATA 255,170,170,170,229,229,149,149,149,85,85,85,85,85,85,85,85,85,85,85,85,105,105
21 DATA 85,85,85,170,170,170,111,111,107,107,107,174,170,174,251,250,230,230,230,249
22 DATA 249,249,165,229,150,150,150,91,91,91,85,85,149,149,149,229,229,229,170,170,170
23 DATA 85,85,85,85,85,107,110,107,110,107,110,107,106,185,233,185,165,165,165,149,149
24 DATA 190,190,190,111,111,111,91,91,110,110,110,190,190,190,233,233,229,229,229,149
25 DATA 149,149,85,85,85,85,85,85,85,85,85,85,107,110,107,110,106,110,106,85,149,149
26 DATA 149,149,85,85,85,85,91,86,86,86,85,85,85,85,233,149,149,149,85,85,85,85,85,85
27 DATA 85,85,85,85,85,85:POKE55,0:POKE56,28:CLR:FORT=0TO383:READA:POKE7168+T,A:NEXT
28 :
29 V=36864:X1=6:X2=50:Y1=15:Y2=123:IFPEEK(60900)=5THENX1=1:X2=39:Y1=15:Y2=98
30 X=INT(RND(1)*(X2-X1-1))+X1+1:Y=INT(RND(1)*(Y2-Y1-1))+Y1+1
31 DX=1+2*(RND(1)>.5):DY=1+2*(RND(1)>.5):POKEV+2,134:POKEV+3,16:POKEV+5,255
32 POKEV+14,133:POKEV+15,185:FORT=0TO47:POKE7680+T,T:POKE38400+T,8:NEXT
33 :
34 POKEV,X:POKEV+1,Y
35 POKEV+12,0:X=X+DX:IFX=X1ORX=X2THENDX=-DX:POKEV+12,255
36 POKEV+11,0:Y=Y+DY:IFY=Y1ORY=Y2THENDY=-DY:POKEV+11,212
37 GOTO34
.