Hello we all of MSX,
Here downstairs there is a routine of scroll cycle horizontal only with
direction left and right, I will want scrolling the line 3rd and 4th line, to
scroll only 2 line and not 7 line.
With other routine I will want scrolling 7th line and 8th line, for it has a
2nd scroll independent.
1000 SCREEN1
1950 REM MACHINE CODE
1960 RESTORE 2010:FOR SC!=61440! TO 61569!:READ J:POKE SC!,J:NEXT
:DEFUSR=61442!:DEFUSR1=61493!
2010 DATA
9,7,38,240,46,0,70,35,126,128,71,126,46,223,38,23,17,32,0,25,16,253,87,6,31,14,153,205,101,240,95,43,205,101,240,35,205,114,240,43
2020 DATA 16,245,123,205,114,240,43,21,175,186,32,227,201
2030 DATA
38,240,46,0,70,35,126,46,224,38,23,17,32,0,25,16,253,87,6,31,14,153,205,101,240,95,35,205,101,240,43,205,114,240,35
2040 DATA
16,245,123,205,114,240,35,21,175,186,32,227,201,243,237,105,237,97,13,0,0,237,120,12,251,201
2050 DATA 243,237,105,8,124,246,64,237,121,8,13,237,121,12,251,201
This is a example as shift the balloons with the 2 routine machine independent.
10 REM BALLOON CITY
20 REM
30 REM
40 SCREEN1,0:WIDTH32:COLOR15,0,0:DEFINTA-Z
50 RESTORE70:FORI=0TO31:READ A:VPOKE1056+I,A:NEXTI
60 RESTORE70:FORI=0TO31:READ A:VPOKE1088+I,A:NEXTI
70 DATA
3,7,15,31,63,63,63,63,63,63,16,8,4,3,3,3,192,224,240,248,252,252,252,252,252,252,8,16,32,192,192,192
80 VPOKE8208,6*16+0:VPOKE8209,4*16+0
90 Q=1:Q$=""? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "?
"? "? "? "? "? "? "? "?"?"
100 Q2=1:QQ$=".? .? .? .? .? .? .? .? .? .? .? .? .? .? .?
.? .? .? .? .? .? .? .? .?.?"
110 Q=1:QW$="^S ^S ^S ^S ^S ^S ^S ^S ^S ^S ^S ^S ^S ^S ^S ^S
^S ^S ^S ^S ^S ^S ^S ^S^S"
120 Q2=1:QX$="?< ?< ?< ?< ?< ?< ?< ?< ?< ?< ?< ?< ?< ?< ?<
?< ?< ?< ?< ?< ?< ?< ?< ?<?<"
130 Q3=1:Q4=1
140 LOCATE0,3:PRINTMID$(Q$,Q,31):Q=Q-1:IFQ<1THENQ=60ELSEIFQ>60THENQ=1
150 LOCATE0,4:PRINTMID$(QQ$,Q2,31):Q2=Q2-1:IFQ2<1THENQ2=60ELSEIFQ2>60THENQ2=1
160 LOCATE0,7:PRINTMID$(QW$,Q3,31):Q3=Q3+1:IFQ3<1THENQ3=60ELSEIFQ3>60THENQ3=1
170 LOCATE0,8:PRINTMID$(QX$,Q4,31):Q4=Q4+1:IFQ4<1THENQ4=60ELSEIFQ4>60THENQ4=1
180 FORP=0TO100:NEXTP
190 GOTO140
[Se han eliminado los trozos de este mensaje que no contenían texto]
