----- Original Message -----
From: Andrea
To: hispamsx(_en_)yahoogroups(_punto_)com
Sent: Monday, September 06, 2004 12:54 PM
Subject: scroll for SCREEN4 in all direction
Hello,
I have see, that this routine for scroll in all direction work also for
SCREEN4, but scroll 8 pixel every time, I would that scrolling 1 pixel every
time in all direction. You understand?
Bye
Andrea
10 SCREEN4
20 GOSUB3000
30 FORI=1TO50STEP2
40 CIRCLE(120,100),I,10
50 NEXTI
60 D=STICK(0)ORSTICK(1)
70 IFD=1THENA=USR0(0)
80 IFD=3THENA=USR3(0)
90 IFD=5THENA=USR1(0)
100 IFD=7THENA=USR2(0)
110 GOTO60
3000 RESTORE3090:FOR F=&HC000 TO &HC112
3010 READ A$:POKE F,VAL("&H"+A$)
3020 NEXT F
3030 DEFUSR0=&HC000
3040 DEFUSR1=&HC048
3050 DEFUSR2=&HC092
3060 DEFUSR3=&HC0D2
3070 POKE&HC032,25:POKE&HC07D,25:REM scroll until 25 column
3080 POKE&HC0B0,25:POKE&HC0F0,25:REM scroll unitl 25 column
3085 POKE&HC071,25:REM scroll until 25 column
3086 RETURN
3090 DATA 21,00,18,22,44,C0,06,17
3100 DATA F3,21,20,00,ED,5B,44,C0
3110 DATA 19,C5,CD,2F,C0,C1,2A,44
3120 DATA C0,11,20,00,19,22,44,C0
3130 DATA 10,E7,21,E0,1A,01,20,00
3140 DATA 3E,20,CD,56,00,FB,C9,E5
3150 DATA D5,01,20,00,C5,11,18,FC
3160 DATA D5,CD,59,00,E1,C1,D1,CD
3170 DATA 5C,00,E1,C9,00,00,C9,00
3180 DATA 21,C0,1A,22,8F,C0,06,17
3190 DATA F3,21,20,00,ED,5B,8F,C0
3200 DATA 19,EB,C5,CD,7A,C0,C1,2A
3210 DATA 8F,C0,11,20,00,B7,ED,52
3220 DATA 22,8F,C0,10,E4,21,00,18
3230 DATA 01,20,00,3E,20,CD,56,00
3240 DATA FB,C9,E5,D5,01,20,00,C5
3250 DATA 11,18,FC,D5,CD,59,00,E1
3260 DATA C1,D1,CD,5C,00,E1,C9,00
3270 DATA 00,0E,21,00,18,22,CF,C0
3280 DATA 06,18,F3,C5,CD,AE,C0,C1
3290 DATA 2A,CF,C0,11,20,00,19,22
3300 DATA CF,C0,10,EF,FB,C9,E5,01
3310 DATA 20,00,C5,11,18,FC,D5,CD
3320 DATA 59,00,21,19,FC,11,18,FC
3330 DATA 01,1F,00,ED,B0,3E,20,12
3340 DATA E1,C1,D1,CD,5C,00,C9,00
3350 DATA 00,E1,21,00,18,22,0F,C1
3360 DATA 06,18,F3,C5,CD,EE,C0,C1
3370 DATA 2A,0F,C1,11,20,00,19,22
3380 DATA 0F,C1,10,EF,FB,C9,E5,01
3390 DATA 20,00,C5,11,18,FC,D5,CD
3400 DATA 59,00,21,36,FC,11,37,FC
3410 DATA 01,1F,00,ED,B8,3E,20,12
3420 DATA E1,C1,D1,CD,5C,00,C9,00
3430 DATA 00,E1,F5
4000 RESTORE4020:A=&HF060:FOR C=1 TO 19:READ A$:POKE A+C,VAL("&H"+A$):NEXT
4010 DEFUSR5=&HF060
4020 DATA 21,00,04,3E,00,CD,35,01
4030 DATA 3E,01,CD,35,01,2B,7C,B5
4040 DATA 20,F1,C9
4050 RESTORE4070:A=&HF000:FOR C=1 TO 73:READ A$:POKE A+C,VAL("&H"+A$):NEXT
4060 DEFUSR4=&HF000:RETURN
4070 DATA 21,00,01,3E,07,CD,96,00,F6,09
4080 DATA 5F,3E,07,CD,93,00,1E,DE,3E,00
4090 DATA CD,93,00,1E,08,3E,0D,CD,93,00
4100 DATA 1E,0F,3E,0B,CD,93,00,1E,00,3E
4110 DATA 0C,CD,93,00,1E,10,3E,08,CD,93
4120 DATA 00,3E,07,CD,96,00,E6,FE,5F,3E
4130 DATA 07,CD,93,00,2B,7C,B5,20,BE,CD,90,00,C9
[Se han eliminado los trozos de este mensaje que no contenían texto]
