I just made a quick peek at your WIP or demonstrator. For ease of discussion, here's the program text:
Code: Select all
10 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
11 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
100 POKE36869,255
103 POKE36878,20
105 POKE36879,13
110 FORI=7168TO7679:POKEI,PEEK(I+25600):NEXT
130 FORI=7168TO7247
140 READA:POKEI,A:NEXT
142 REM***SCREEN***
143 FORM=0TO22:POKE7680+M,8:POKE38400+M,10:NEXTM
144 FORM=0TO22:POKE8164+M,8:POKE38884+M,10:NEXTM
145 FORM=0TO21:POKE7702+M*22,8:POKE38422+M*22,10:NEXTM
146 FORM=0TO21:POKE7723+M*22,8:POKE38443+M*22,10:NEXTM
147 POKE8116,9:POKE38836,15:POKE7770,9:POKE38490,15
148 FORI=0TO1:FORM=0TO4:POKE7834+154*I+M,8:POKE7842+154*I+M,8:POKE7851+M+154*I,8
149 POKE38554+154*I+M,10:POKE38562+M+154*I,10:POKE38571+154*I+M,10:NEXTM:NEXTI
151 REM***DRAGHETTO***
153 X=7685:C=30720
154 Y=7694:D=30720
155 POKEX,0:POKEX+C,15:POKEX+1,1:POKEX+C+1,15
156 POKEX+22,2:POKEX+22+C,15:POKEX+1+22,3:POKEX+22+C+1,15
157 FORT=1TO2:NEXT:POKEX,32:POKEX+1,32
158 POKEX+22,32:POKEX+22+1,32
159 X=X+22:IFX>8185THENX=7685:C=30720
160 FORT=1TO100:NEXT
165 REM***MOV.MOSTRO***
167 POKEY,4:POKEY+D,10:POKEY+1,5:POKEY+D+1,10
168 POKEY+22,6:POKEY+22+D,10:POKEY+1+22,7:POKEY+22+D+1,10
169 FORT=1TO2:NEXT:POKEY,32:POKEY+1,32
170 POKEY+22,32:POKEY+22+1,32
171 Y=Y+22:IFY>8185THENY=7694:D=30720
172 FORT=1TO100:NEXTT:GOTO155
188 DATA2,34,37,37,151,151,27,155,0,128,80,220,48,48,48,48
189 DATA149,20,41,41,35,199,214,154,84,48,84,240,252,252,252,186
190 REM*** MOSTRO ***
191 DATA15,63,63,63,51,51,51,63,252,255,251,226,34,59,62,248
192 DATA63,0,42,42,58,62,12,0,254,42,170,170,168,176,48,252
195 REM***TILE&BANANA***
196 DATA151,93,117,214,90,105,165,150,10,3,2,14,10,43,172,240
900 POKE36869,240
This is for unexpanded VIC-20.
Change lines 155..159 and 167..171 as follows (omitting the loop "FORT=1TO2:NEXT"!):
Code: Select all
155 POKEX,32:POKEX+1,32
156 POKEX+22,32:POKEX+22+1,32
157 X=X+22:IFX>8185THENX=7685:C=30720
158 POKEX,0:POKEX+C,15:POKEX+1,1:POKEX+C+1,15
159 POKEX+22,2:POKEX+22+C,15:POKEX+1+22,3:POKEX+22+C+1,15
167 POKEY,32:POKEY+1,32
168 POKEY+22,32:POKEY+22+1,32
169 Y=Y+22:IFY>8185THENY=7694:D=30720
170 POKEY,4:POKEY+D,10:POKEY+1,5:POKEY+D+1,10
171 POKEY+22,6:POKEY+22+D,10:POKEY+1+22,7:POKEY+22+D+1,10
... and you see the difference.