[Exelvision] Emulateur EXL100

[Carl]

quelle la commande basic pour charger une k7 ?

carl

[jvernet]

Jérome, ça ressemble bien à une sphére...



carl

Ben merde, alors. J'ai recopié ton programme parfaitement, j'ai pas eu une sphère, sur DCEXEL_DEMO4. Pourtant, j'ai tout relu 4/5 fois.

La version demo04 est elle capable de lire depuis une k7, et depuis une simulation clavier ?

[Daniel]

dans le livre sur ton site, page 35, il y a des infos...

En relisant ces pages, je m'aperçois que c'est exactement ce que tu aurais souhaité pour le VG5000
Sur ce point, le TMS3556 a un avantage, grâce au mode graphique que l'EF9345 n'a malheureusement pas

[Daniel]

quelle la commande basic pour charger une k7 ?

Code : Tout sélectionner

LOAD"1."

Mais la version de dcexel permettant de lire les fichiers .k7 n'est pas encore diffusée.

[Carl]

La version demo04 est elle capable de lire depuis une k7, et depuis une simulation clavier ?

j'utilise la derniere release soit la 0.2
carl

[Carl]

En relisant ces pages, je m'aperçois que c'est exactement ce que tu aurais souhaité pour le VG5000

oui, j'ai vu ça laisse reveur....mais Matra a comme fait du bon boulot par rapport à Philips avec le 9345....

Mais la version de dcexel permettant de lire les fichiers .k7 n'est pas encore diffusée.

Oupss

carl

[jvernet]

La version demo04 est elle capable de lire depuis une k7, et depuis une simulation clavier ?

j'utilise la derniere release soit la 0.2
carl

Ca ne doit pas être la même version que celle qui est donwloadable sous la forme DEMO_04, donc, puisque l'on ne peut pas faire d'acquisition clavier dont vous semblez disposer.

Reservée à certains seulement ?

[Daniel]

La version demo04 est elle capable de lire depuis une k7, et depuis une simulation clavier ?

Les questions dont la réponse est dans la doc ne sont en général guère appréciées par les auteurs d'applications informatiques.

aucun peripherique n'est emule

Attention, ce n'est pas une version complete de l'emulateur, tous les menus sont desactives.

Avertissement : ce programme n'est pas termine

[jvernet]

Les questions dont la réponse est dans la doc ne sont en général guère appréciées par les auteurs d'applications informatiques.

Les auteurs qui veulent être appréciés peuvent parfois aussi répondre aux questions... J'ai cru comprendre, mais apparemment, je me trompe qu'il existait, que certains ont pu essayer (Carl, Fneck) une fonction qui permettait de "copier/coller" des listings. J'ai mal lu, ou j'ai pas trouvé, ou j'ai mal pensé, pardonnez moi, je n'interviendrai plus.

Dont acte.

[Daniel]

Mais la version de dcexel permettant de lire les fichiers .k7 n'est pas encore diffusée.

Oupss

Rassures-toi, il n'y aura pas longtemps à attendre. Mais vu que mon premier test réussi de lecture de cassette ne date que de quelques heures, il faut me laisser encore deux ou trois jours pour terminer la boîte de dialogue du lecteur de cassette et finaliser la version 0.3

[fneck]

Aller, on va commencer à s'engueuler ici aussi, un peu zen SVP.
Daniel, cool, c'est extra ce que tu es en train de faire mais tes réponses sont un peu agressives.

[fneck]

...une fonction qui permettait de "copier/coller" des listings.

Tu veux parler de lire un fichier .txt ?
-> Menu "fichier" puis "Simuler le clavier"

[6502man]

PARSEC sur EXELVISION:

Une superbe adaptation en basic d'un celebre jeux.

par Dyter.

Code : Tout sélectionner

1 CLS "BCB":CALL POKE(50500,162,5,45,162,136,45,10)

2 CALL POKE(50688,165,8,6,10):CALL HRON("B",20,1):CLS "WBB"

3 CALL POKE(49156,198,0):CALL EXEC(50500)

4 TIC1$="L,0D7C74EFBAB602FC"

5 TIC2$="L,0D7C4EFABAB602FC"

6 FOR I=45 TO 122:READ CARAC$:CALL CHAR(I,CARAC$):NEXT I

7 CALL COLOR("0BCLF"):LOCATE (2,5):PRINT "EEddiittiioonn  PPUUSSSSYY"

8 CALL COLOR("0GC"):LOCATE (7,20):PRINT "present"

9 CALL COLOR("1MC"):LOCATE (8,5):PRINT "=>?@A  D"

10 PRINT "    EFGH    IJ"

11 PRINT "      KLMNOPQR"

12 CALL COLOR("1BC"):LOCATE (8,10):PRINT "BC":LOCATE (19,37):PRINT ":"

13 CALL COLOR("1RC"):LOCATE (12,22):PRINT "WXYZ[a":LOCATE (13,22)

14 PRINT "\]^_"&CHR$(96)

15 CALL COLOR("0RC"):LOCATE (15,20):PRINT "THE REVENGE"


16 CALL COLOR("0BC"):LOCATE (14,1):PRINT "?.??????":LOCATE (19,39):PRINT "89"

17 CALL COLOR("1YC"):LOCATE (10,15):PRINT RPT$("9",26)

18 LOCATE (9,30):PRINT "STT":LOCATE (10,30):PRINT "UVV"

19 EX$="L,0BA02163031B18008D1E139840073A108100F0901E81080480478F084420020570"

20 EX$=EX$&"CEBD02110840704E118840043CE0010F78C00316B080052C20010948800214A000"

21 CALL SPEECH(EX$):CALL COLOR("0WBI"):LOCATE (22,16):PRINT "PUSH A KEY"

22 CALL LINE("W",6,3,6,7):CALL LINE("W",6,3,8,3):CALL PLOT("W",7,5)

23 CALL LINE("W",10,3,10,7):CALL LINE("W",12,3,12,7):CALL PLOT("W",11,7)

24 CALL LINE("W",14,3,14,7):CALL LINE("W",14,3,16,3):CALL LINE("W",14,7,16,7)

25 CALL PLOT("W",15,5):CALL LINE("W",18,3,18,7):CALL LINE("W",18,7,20,7)

26 FOR I=4 TO 6:CALL LINE("R",30,I,50,I):CALL LINE("M",50,I,100,I)

27 CALL LINE("G",100,I,319,I):NEXT I

28 PAUSE .4:FOR Y=1 TO 3

29 CALL SPEECH(TIC1$):PAUSE .8:CALL SPEECH(TIC2$):PAUSE .8:CALL SPEECH(TIC1$)

30 PAUSE .4:CALL SPEECH(TIC1$):PAUSE .4:CALL SPEECH(TIC2$):PAUSE .8:NEXT Y

31 FOR I=133 TO 129 STEP -1:FOR Y=1 TO 4

32 CALL POKE(258,52.5,I):CALL SPEECH(TIC1$):CALL KEY1(A,B):IF A<255 THEN 52

33 PAUSE .8

34 CALL POKE(258,133,I):CALL SPEECH(TIC2$):CALL KEY1(A,B):IF A<255 THEN 52

35 PAUSE .8

36 CALL POKE(258,55.5,I):CALL SPEECH(TIC1$):PAUSE .4:CALL SPEECH(TIC1$)

37 PAUSE .4:CALL KEY1(A,B):IF A<255 THEN 52

38 CALL POKE(258,133,I):CALL SPEECH(TIC2$):CALL KEY1(A,B):IF A<255 THEN 52

39 PAUSE .8:NEXT Y:FOR Y=1 TO 4

40 CALL POKE(258,52.5,I):CALL SPEECH(TIC1$):PAUSE .4:CALL SPEECH(TIC2$)

41 PAUSE .4:CALL KEY1(A,B):IF A<255 THEN 52

42 CALL POKE(258,125,I):CALL SPEECH(TIC1$):CALL KEY1(A,B):IF A<255 THEN 52

43 PAUSE .8

44 CALL POKE(258,133,I):CALL SPEECH(TIC1$):CALL KEY1(A,B):IF A<255 THEN 52

45 PAUSE .8

46 CALL POKE(258,55.5,I):CALL SPEECH(TIC1$):CALL KEY1(A,B):IF A<255 THEN 52

47 PAUSE .8

48 CALL POKE(258,133,I):CALL SPEECH(TIC2$):CALL KEY1(A,B):IF A<255 THEN 52

49 PAUSE .8

50 CALL POKE(258,125,I):CALL SPEECH(TIC1$):CALL KEY1(A,B):IF A<255 THEN 52

51 PAUSE .8:NEXT Y:NEXT I

52 CALL POKE(259,45):CALL SPEECH("A"):RANDOMIZE A

53 CLS:CALL COLOR("1BC"):FOR I=1 TO 19:LOCATE (I,1):PRINT RPT$(" ",40):NEXT I

54 VIE=2:SC=0:HV=7:CALL COLOR("1YB"):LOCATE (21,2):PRINT RPT$(" ;<",2)&"   ";

55 FOR I=4 TO 6:CALL LINE("R",30,I,50,I):CALL LINE("M",50,I,100,I)

56 CALL LINE("G",100,I,319,I):NEXT:CALL COLOR("0GB"):PRINT "            SCORE:"

57 CALL COLOR("0WBI"):LOCATE (22,14):PRINT "ARE YOU READY ?":CALL COLOR("0WB")

58 DH$=" s   defbc  bc rs bcbc  ss  tubc    s  s":RANDOMIZE:X$=KEY$

59 LOCATE (22,14)

60 DB$="defgkdlmij  ij yz kjkjdeef g-.ijgl9IJdef":PRINT "                "

61 DEH$=DH$&" s  def  s deef  s     s pq bc no bc ss "

62 DEB$=DB$&"del9dlmdel9   m@ABCD@Aef wqgij kj kjbhhc"

63 DEH$=DEH$&"bcs  nono no  s   pqsr  s   s       def "

64 DEB$=DEB$&"kjdelmjkj kjxxxxxxwqgyzdfbhhhhcdeel9  md"

65 DEH$=DEH$&"  stvvvutu tvubcbc s def s    r s   sr s"

66 DEB$=DEB$&"ef -///.-. -/.ijkjdl9 bhhcxxxxyz 000 yz "

67 DEH$=DEH$&"   sno    spq              sss tubcbcsbc"&DH$

68 DEB$=DEB$&"111 kj5555 wq222 7@ABCDdelmss  -.ijij kj"&DB$

69 ZIP$="0DFD3FDCCD6C6FB4A2FF"

70 CALL COLOR("1bC"):LOCATE (HV,2):PRINT ";<":NIV=1:VAISL=17:VAISH=INTRND(17)

71 LV=39:FU=320

72 FOR I=1 TO 200:CALL COLOR("1BC"):LOCATE (18,1)

73 PRINT SEG$(DEH$,I,40):PRINT SEG$(DEB$,I,40)

74 FU=FU-.5:CALL LINE("B",FU,4,FU,6):IF FU<30 THEN FU=30:GOSUB 82:GOTO 77

75 CALL KEY1(A,B):IF A=35 THEN GOTO 132

76 IF A=128 THEN GOSUB 80 ELSE IF A=130 THEN GOSUB 82 ELSE IF A=32 THEN GOSUB 84

77 CALL COLOR("1RC"):LOCATE (VAISH,LV):PRINT STR$(NIV-1)&" ":LV=LV-1


78 IF LV<4 THEN GOTO 104

79 NEXT I:GOTO 72

80 LOCATE (HV,2):PRINT "  ":HV=HV-1:IF HV<1 THEN HV=1

81 GOTO 83

82 LOCATE (HV,2):PRINT "  ":HV=HV+1:IF HV>17 THEN HV=17:GOTO 93

83 LOCATE (HV,2):PRINT ";<":RETURN

84 CALL COLOR("1YC"):LOCATE (HV,4):PRINT RPT$("Q",37)

85 CALL SPEECH("L,"&ZIP$):FOR Y=FU TO FU-5 STEP -1:CALL LINE("B",Y,4,Y,6)

86 NEXT Y:FU=FU-5.5:LOCATE (HV,4):PRINT RPT$(" ",37)

87 IF HV=VAISH THEN LOCATE (VAISH,LV):PRINT "S":GOTO 89

88 RETURN

89 CALL SPEECH(EX$):VAISL=VAISL-1:PAUSE .4:SC=SC+(16+NIV*2):CALL SPEECH("A")

90 LOCATE (VAISH,LV):PRINT " ":VAISH=INTRND(17):LV=39:GOSUB 103



91 IF VAISL<1 THEN NIV=NIV+1:VAISL=16+NIV:GOTO 99

92 RETURN

93 CALL SPEECH(EX$):VIE=VIE-1:FU=320:IF VIE=0 THEN PAUSE 3:GOTO 52

94 FOR I=4 TO 6:CALL LINE("R",30,I,50,I):CALL LINE("M",50,I,100,I)

95 CALL LINE("G",100,I,319,I):NEXT I:CALL COLOR("0BC"):LOCATE (VAISH,LV+1)

96 PRINT " ":CALL COLOR("1YB"):LOCATE (21,2):PRINT RPT$(" ;<",VIE)&"   "

97 VAISL=16+NIV:LV=39:VAISH=INTRND(17):PAUSE .3:CALL SPEECH("A")

98 CALL COLOR("1BC"):LOCATE (HV,2):PRINT ";<":GOTO 72

99 FOR I=4 TO 6:CALL LINE("R",30,I,50,I):CALL LINE("M",50,I,100,I)

100 CALL LINE("G",100,I,319,I):NEXT I:FU=320:LV=39

101 IF NIV<10 THEN RETURN ELSE CALL COLOR("0WBI"):LOCATE (22,14)

102 PRINT "MISSION TERMINED":PAUSE 3:GOTO 53

103 CALL COLOR("0GB"):LOCATE (21,29):PRINT STR$(SC):RETURN

104 FOR Y=LV+2 TO 1 STEP -1:LOCATE (VAISH,Y):PRINT STR$(NIV-1):LOCATE (22,1)

105 PRINT "":LOCATE (VAISH,Y):PRINT " ":NEXT Y:GOTO 93

106 DATA 2E2A2E20202E2A2A2A2A,7454740404F494F40404,3828380000EEAAEE0000

107 DATA 0000181090FE12103000,00007809FF0978000000,070A3244B444320A0700

108 DATA 00000018247E817E0000,245AA55ABDBD5AA55A24,06090966909669090600

109 DATA 000006F9818678000000,0018247E817E4A4A9291,182B2C50A3AC502E2918

110 DATA FF000000000000000000,18244299919199422418,00E05E310C020C315EE0

111 DATA 000000E01EE11EE00000,80605824130804040201,806058241388641A0603

112 DATA 00000000008060180601,000000000000000007F8,000000000000003FC100

113 DATA 00000000000F7FFFFF00,0000000000F0FCFFFF00,0000000000000000E01F

114 DATA 00001F6080601C030000,8040C020F0F804FA0201,C0201806010000000000

115 DATA 0000000000C020180403,80601806010000000000,0001000208C230090601

116 DATA 80404020180700000000,0000000000C03F000000,754562457500FF000000

117 DATA 424642427200FF000000,EEAAAAAAEE00FF000000,000000000000FF000000

118 DATA 0000000000FF00000000,01020C35C00902000000,0852002A47FF8F356F0B

119 DATA C800120440D21068E2F0,FF3F6A2B3E158F184228,FFE0A490440228044411

120 DATA 00000000F704F404E808,000000000CEC2C2C5454,00000000382721214242

121 DATA 00000000007D41418182,0000000000F704040408,E80FD010D010A020A020

122 DATA 9494243C242445454545,457D9190909010101017,0202F3141414242828CF

123 DATA 080808101010102020BE,0000000000C000000000,A3470F0F1F3F3F1F0F07

124 DATA C0E0F0F8FCFCFCF8F0E0,000000000000071820C2,0028100000009F600802

125 DATA 000000000000008C4B29,00000000000000011D2D,FF0028281028280000FF

126 DATA 03010109070101010101,E0808080808080808080,07010101010101394959

127 DATA 00030418204089000400,E93A1A8614440A022109,000F30409D959D403208

128 DATA 00F00C02DD55DD024C10,0CAC4C1F12161A121F12,1B151BF51B151B15FB15

129 DATA 0000FF81FF3030303834,00002810000005020000,00000102040B12227F20

130 DATA 0000805030D04844FE04,0000FF0000BDA5A5FF00,1A16121E12161A121F0C

131 DATA 00000000000055FF99FF,3231313877725C43553F,0080000000E05C8A56FC

132 CALL COLOR("0WBI"):LOCATE (22,15):PRINT "GAME PAUSED":CALL COLOR("0WB")

133 IF KEY$="*"THEN GOTO 53 ELSE LOCATE (22,15):PRINT "           ":GOTO 77

[Carl]

Jérome, c'est ici le lien de la 0.2

Nouvelle version de test : dcexel_v0.2

carl

[gatesbillou]

Pour JVERNET , le programme est ici : http://dcexel.free.fr/tmp/dcexel_v0.2.zip

ps : Je viens de voir que CARL a posté 1 minute avant moi le même message , désolé.