HispaMSX

RE: [hispamsx] Re: SCROLL for all screen for new videogames

2004-08-17 20:11:44
Mmm,, ¿un option italiano?, ¿o el taxista de Venecia?   ;-)

Bueno, ayudenle los programaderos, que yo confirmo que hay gente en la lista
que no tiene tiempo de nada.

----- Mensaje original -----
De: Andrea <andreagasparrini(_en_)virgilio(_punto_)it>
Para: <hispamsx(_en_)yahoogroups(_punto_)com>
Enviado: martes 17 de agosto de 2004 18:54
Asunto: [hispamsx] Re: SCROLL for all screen for new videogames



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]



*HispaMSX. La mailing-list de MSX en castellano*
Para cualquier duda: hispamsx-owner(_en_)yahoogroups(_punto_)com
Web de lista: http://www.hispamsx.org
Enlaces a Yahoo! Grupos


    hispamsx-unsubscribe(_en_)yahoogroups(_punto_)com

    http://es.docs.yahoo.com/info/utos.html




<Anterior en la conversación] Conversación actual [Siguiente en la conversación>