HELP ME! HELP ME! HELP ME! HELP ME! HELP ME! HELP ME! HELP ME! HELP
ME! HELP ME! HELP ME!
----- Original Message -----
From: Andrea
To: hispamsx(_en_)yahoogroups(_punto_)com
Sent: Sunday, August 15, 2004 10:57 AM
Subject: SCROLL for all screen for new videogames
Hello,
I send you a scroll (SCREEN-1) for all the directs(up,down,left,right), but
it scroll to all screen, I will want that not scroll the 1st and 2nd line in
all the directs, for to put the score, hi-score ect....
I have got also the list assembler for scroll SCREEN-1
This it is the basic list:
100 SCREEN 1:WIDTH 32:KEYOFF
110 PRINT "POKE THE ADDRESS: "
120 FOR F=&HC000 TO &HC112
130 READ A$:POKE F,VAL("&H"+A$)
140 LOCATE 18,0:PRINT HEX$(F);" "
150 NEXT F
160 DEFUSR0=&HC000
170 DEFUSR1=&HC048
180 DEFUSR2=&HC092
190 DEFUSR3=&HC0D2
200 CLS
210 PRINT"UP...PRESS KEY"
220 A$=INPUT$(1):CLS
230 FOR F=1 TO 40
240 X=32*RND(1)
250 LOCATE X,20:PRINT ".";
260 X=USR0(0)
270 NEXT F
280 CLS
290 PRINT"DOWN...PRESS KEY"
300 A$=INPUT$(1):CLS
310 FOR F=1 TO 40
320 X=40*RND(1)
330 LOCATE X,0:PRINT ".";
340 X=USR1(0)
350 NEXT F
360 CLS
370 PRINT"LEFT...PRESS KEY"
380 A$=INPUT$(1):CLS
390 FOR F=1 TO 40
400 X=23*RND(1)
410 LOCATE 31,X:PRINT ".";
420 X=USR2(0)
430 NEXT F
440 CLS
450 PRINT"RIGHT...PRESS KEY"
460 A$=INPUT$(1):CLS
470 FOR F=1 TO 40
480 X=23*RND(1)
490 LOCATE 0,X:PRINT ".";
500 X=USR3(0)
510 NEXT F
520 CLS
530 PRINT"THE END :-("
540 PRINT "PRESS KEY..."
550 A$=INPUT$(1)
560 END
570 DATA 21,00,18,22,44,C0,06,17
580 DATA F3,21,20,00,ED,5B,44,C0
590 DATA 19,C5,CD,2F,C0,C1,2A,44
600 DATA C0,11,20,00,19,22,44,C0
610 DATA 10,E7,21,E0,1A,01,20,00
620 DATA 3E,20,CD,56,00,FB,C9,E5
630 DATA D5,01,20,00,C5,11,18,FC
640 DATA D5,CD,59,00,E1,C1,D1,CD
650 DATA 5C,00,E1,C9,00,00,C9,00
660 DATA 21,C0,1A,22,8F,C0,06,17
670 DATA F3,21,20,00,ED,5B,8F,C0
680 DATA 19,EB,C5,CD,7A,C0,C1,2A
690 DATA 8F,C0,11,20,00,B7,ED,52
700 DATA 22,8F,C0,10,E4,21,00,18
710 DATA 01,20,00,3E,20,CD,56,00
720 DATA FB,C9,E5,D5,01,20,00,C5
730 DATA 11,18,FC,D5,CD,59,00,E1
740 DATA C1,D1,CD,5C,00,E1,C9,00
750 DATA 00,0E,21,00,18,22,CF,C0
760 DATA 06,18,F3,C5,CD,AE,C0,C1
770 DATA 2A,CF,C0,11,20,00,19,22
780 DATA CF,C0,10,EF,FB,C9,E5,01
790 DATA 20,00,C5,11,18,FC,D5,CD
800 DATA 59,00,21,19,FC,11,18,FC
810 DATA 01,1F,00,ED,B0,3E,20,12
820 DATA E1,C1,D1,CD,5C,00,C9,00
830 DATA 00,E1,21,00,18,22,0F,C1
840 DATA 06,18,F3,C5,CD,EE,C0,C1
850 DATA 2A,0F,C1,11,20,00,19,22
860 DATA 0F,C1,10,EF,FB,C9,E5,01
870 DATA 20,00,C5,11,18,FC,D5,CD
880 DATA 59,00,21,36,FC,11,37,FC
890 DATA 01,1F,00,ED,B8,3E,20,12
900 DATA E1,C1,D1,CD,5C,00,C9,00
910 DATA 00,E1,F5
[Se han eliminado los trozos de este mensaje que no contenían texto]
