mon vg 5000 à moi
Modérateur : Politburo
- balou
- Fonctionne à 9600 bauds
- Messages : 2644
- Enregistré le : 02 févr. 2004 23:01
- Localisation : Macon Saone et Loire
mon vg 5000 à moi
Bonsoir à toutes et à tous,
Le vg 5000 Radiola que j'ai eu il ya quelque temps fonctionne je vais donc le nettoyer et commencer à m'en servir
Le vg 5000 Radiola que j'ai eu il ya quelque temps fonctionne je vais donc le nettoyer et commencer à m'en servir
Modifié en dernier par balou le 09 mars 2006 17:44, modifié 1 fois.
- Carl
- Fonctionne à 9600 bauds
- Messages : 2542
- Enregistré le : 03 janv. 2003 23:47
- Localisation : www.dole.org
- Contact :
Bienvenue au club des végeiste....!
prépare toi un cable carte son PC out ===> In VéGé
et si ça t'intérresse demande nous le double CD...voir :viewtopic.php?t=4856&postdays=0&postorder=asc&start=0
Carl
prépare toi un cable carte son PC out ===> In VéGé
et si ça t'intérresse demande nous le double CD...voir :viewtopic.php?t=4856&postdays=0&postorder=asc&start=0
Carl
- Stéphane Vanlierde
- Fonctionne à 9600 bauds
- Messages : 2567
- Enregistré le : 09 oct. 2002 16:10
- Localisation : Marne la Vallée, Seine & Marne, France
- Contact :
OK, je suis très en retard pour la fabrication des double-CDs, mais ça va venir, ne vous inquiétez pas (trop)...
Modifié en dernier par Stéphane Vanlierde le 12 mai 2004 13:06, modifié 1 fois.
-- Stef --
perso: http://www.vanlierde.org
perso: http://stephane.vanlierde.org
vg5000: http://vg5k.free.fr
perso: http://www.vanlierde.org
perso: http://stephane.vanlierde.org
vg5000: http://vg5k.free.fr
- balou
- Fonctionne à 9600 bauds
- Messages : 2644
- Enregistré le : 02 févr. 2004 23:01
- Localisation : Macon Saone et Loire
Je progresse,je viens de l'ouvrir (manque une vis )
J'ai démonté la "carte mère" la petite carte de l'alimentation et le clavier sans les désassembler.
J'ai lavé le dessus et le dessous en plastique au liquide vaisselle à l'eau froide.
Après j'ai dépoussiéré les cartes au pinceau.
Pour le dessus du clavier j'ai nettoyé avec un coton tige mouillé à l'eau.
Extrait du mode d'emploi :
Chapitre 4 Conseils et précaution à prendre
Votre VG5000 n'est pas fragile;mais vous devez tout de même en prendre soin.
Qu'on ce le dise...non mais
J'ai démonté la "carte mère" la petite carte de l'alimentation et le clavier sans les désassembler.
J'ai lavé le dessus et le dessous en plastique au liquide vaisselle à l'eau froide.
Après j'ai dépoussiéré les cartes au pinceau.
Pour le dessus du clavier j'ai nettoyé avec un coton tige mouillé à l'eau.
Extrait du mode d'emploi :
Chapitre 4 Conseils et précaution à prendre
Votre VG5000 n'est pas fragile;mais vous devez tout de même en prendre soin.
Qu'on ce le dise...non mais
- Carl
- Fonctionne à 9600 bauds
- Messages : 2542
- Enregistré le : 03 janv. 2003 23:47
- Localisation : www.dole.org
- Contact :
Yo !balou a écrit :mince ce n'est pas la carte d'alimentation mais la carte interface k7 ben je commence bien
oh oui, l'alim est externe...et la petite carte est effectivement l'interface k7 mais aussi pour le son !
et si tu avais un végé 1.0, tu aurais une 3eme petite carte avec 2 chips qui son la ROM de la bête...voir sur le site végé !
Carl
- Carl
- Fonctionne à 9600 bauds
- Messages : 2542
- Enregistré le : 03 janv. 2003 23:47
- Localisation : www.dole.org
- Contact :
Maintenant que tu as le clavier en main...voila un ptit jeu "Jackpot"....à toi de jouer !balou a écrit :bah voila...je viens de faire du Basic de vg BONJOUR p 16 du manuel
un petit pas pour balou...pour le reste de l'humanité je ne sais pas
Carl
1 SETET 032,"00000000FF0000000000":SETET 033,"08080808080808080808"
2 SETET 034,"000000000F0808080808":SETET 035,"080808080F0000000000"
3 SETET 036,"08080807":SETET 037,"00000000F80808080808"
4 SETET 038,"00000000FF0808080808":SETET 039,"08080808FF0000000000"
5 SETET 40,"DBC3001818181800C3DB":SETET41,"78FCFE1B191818181818":SETET42,"818199A5C3C3C3C3A599":SETET 43,"FF8181FF1818FF8181FF"
6 SETET 44,"FFBFA3A3A3A3BF8181FF":SETET45,"00003C4281818181423C":SETET46,"000081423C3C3C3C4281":SETET 47,"FF7E7E3C181818181818"
7 SETET 48,"18183C181818187E3CDB":SETET 49,"18186666C3C366661818"
10 REM JACKPOT
20 INIT 0,0:GOSUB1000:TX 4,7,1:CURSORX13:CURSORY3:PRINT"J A C K P O T ":CURSORX 13:PRINT"J A C K P O T "
30 INIT 0,0:FOR T=12 TO 27:CURSORXT:CURSORY 2:PRINT" ":CURSORX T:CURSORY 5:PRINT" ":NEXT T:FOR T=3 TO 4:CURSORYT:CURSORX 11
40 PRINT"!":CURSORY T:CURSORX 28:PRINT"!":NEXT T:CURSORX 11:CURSORY2:PRINTCHR$(34):CURSORX 11:CURSORY 5:PRINT"#"
50 CURSORX 28:CURSORY 5:PRINT"$":CURSORX 28:CURSORY 2:PRINT"%"
51 DISPLAY1:PLAY"O2ABCDBCDBAAO3AFEGEAO1DBCCBAAAA":RESTORE9000
60 TX 5,0,0:X=3:Y=7:GOSUB2000:X=3:Y=9:GOSUB2000:X=3:Y=11:GOSUB2000:X=14:Y=13:GOSUB2000
61 PLAY"ABDCBAAA":FOR T=1 TO 120 STEP 5SOUNDT,1,100:NEXT T:GOSUB3000
70 INIT 0,0:GOSUB1000:TX 5,3,0:CURSORX4:CURSORY 3:A$="C H O I X D E S O P T I O N S ":PRINTA$:CURSORX 4:PRINTA$
71 RESTORE-9005
75 CURSORX 4:A$="- - - - - - - - - - - - - - - - - ":PRINTA$:CURSORX 4:PRINTA$
80 TX 7,0,0:FOR D=8 TO 14 STEP 2:X=3:Y=D:GOSUB2000:NEXT D
85 FOR WW=1 TO 200:NEXT WW:WW=KEY(0):IF WW<49 OR WW>57 THEN85
90 PRINTCHR$(WW);".":S=WW-48:FOR WW=1 TO S:DISPLAY1:SOUND 20*WW,4,0:NEXT WW
95 FOR D=16 TO 18 STEP 2:X=3:Y=D:GOSUB2000:NEXT D:GOSUB3000
100 INIT 0,0:GOSUB1000:ET7:FOR T=6TO 14:CURSORXT:CURSORY 5:PRINT" ":CURSORY 5:CURSORX T+10:PRINT" ":CURSORX 20+T:CURSORY5
105 PRINT" ":CURSORXT:CURSORY12:PRINT" ":CURSORX 10+T:CURSORY 12:PRINT" ":CURSORX 20+T:CURSORY 12:PRINT" ":NEXT T
110 FOR T=6 TO 11:CURSORY T:CURSORX 5:PRINT"!":CURSORY T:CURSORX35:PRINT"!"
120 CURSORYT:CURSORX 15:PRINT"!":CURSORY T:CURSORX 25:PRINT"!":NEXTT
130 CURSORY5:CURSORX15:PRINT"&":CURSORY 5:CURSORX25:PRINT"&":CURSORY12:CURSORX15:PRINT"":CURSORY 12:CURSORX 25:PRINT""
135 CURSORY 5:CURSORX 5:PRINTCHR$(34):CURSORY 12:CURSORX 5:PRINT"#":CURSORY 12:CURSORX 35:PRINT"$":CURSORY 5:CURSORX 35:PRINT"%"
140 TX 3:FOR X=6TO11STEP5:FOR A=0TO20 STEP10:FOR T=6 TO 14:CURSORXT+A:CURSORYX:PRINTCHR$(127):NEXTT,A,X
145 FOR G=0 TO 20STEP10:FOR X=6 TO 14 STEP8:FOR Y=6 TO 11:CURSORY Y:CURSORX G+X:PRINTCHR$(127):NEXT Y,X,G
150 FOR T=5 TO11:CURSORYT:READ W$:CURSORX2:TX INT(RND(1)*6+1),2,0:PRINTW$;" ":NEXT T
160 FOR T=5 TO 11:CURSORY T:CURSORX37:TX INT(RND(1)*6+1),2,0:READ W$:PRINTW$;" ":NEXT T
165 TX 7,0,0:CURSORX 3:CURSORY 2:PRINT"SOLDE EN PIECES=";S;" ":ET5:FOR T=3 TO 18+LEN(STR$(S)):CURSORX T:CURSORY 3:PRINT" ":NEXT T
166 TX 7,0,0:FOR T=18 TO 21:CURSORYT:CURSORX2:PRINTSPC37):NEXT T
170 CURSORX3:CURSORY 14:TX 7:PRINT"PLUS IMPORTANTE MISE=";PIM:CURSORX 3:CURSORY15:PRINT"PLUS GROS GAIN=";PLG
180 ET5:FOR T=3 TO 19+LEN(STR$(PLG)):CURSORX T:CURSORY16:PRINT" ":NEXT T
185 TX 7,0,0:CURSORX 3
190 CURSORY18:PRINT"POUR COMMENCER TAPEZ RET."
191 CURSORX 3:CURSORY 17:PRINTSPC34)
195 TX 7,3,0
196 FOR F=9 TO 29 STEP 10
197 FF=(F-9)/10+1:FF$=STR$(FF):FF$=RIGHT£(FF$,1)+" "
198 CURSORY 8:CURSORX F:PRINTFF$:CURSORX F:PRINTFF$:NEXT F
199 TX 7,0,0
200 FLG=0:FOR T=1 TO 200:NEXT T:A=KEY(0):IF A<>13 THEN200
201 VERO=S+1:CURSORX3:CURSORY18:PRINTSPC34)
202 IF S>20 THEN VERO=21:G0T0203
203 CURSORY 17:CURSORX 3:PRINT"ENTREZ VOTRE MISE: 0<MISE<";VERO;"="
204 FOR T=1 TO150:NEXT T:A=KEY(0):IF(A <48 OR A>57)AND A<>13 THEN204
205 IF FLG=1THEN208
206 L1=A-48:IFL1<0THEN204
207 CURSORY 17:CURSORX 34:PRINTL1:FLG=1:FOR T=1TO 500:NEXT T:G0T0204
208 IF A=13 THEN L2=L1:L1=0:G0T0217
216 L2=A-48:L1$=STR$(L2):CURSORY17:CURSORX36:L2$=RIGHT£(L1$,1):PRINTL2$
217 FOR T=1 TO 500:NEXT T
219 MIMI=10*L1+L2
224 IF MIMI>VERO-1 OR MIMI<1 THEN CURSORY 17:CURSORX 34:PRINT" ":PLAY"ABCBCA":FLG=0:G0T0203
225 IF MIMI>PIM THEN PIM=MIMI
226 DISPLAY1:PLAY"O1AO2AO3AO4AO1ABO2ABO1AAO3A":DISPLAY20
227 S=S-MIMI
250 CURSORY 20:CURSORX 2:PRINT"TAPEZ 1 2, 3 POUR STOPPER LE JACKPOT"
260 A1=0:A2=0:A3=0
261 G=0:FOR T=1 TO 150STEP3:SOUNDT,0,0:NEXT T:A=KEY(0):IF A<49 OR A>51 THEN261
262 ON A-48 G0T0300,ON,
300 IF A1=1 THEN G0T0261
310 NBJ=0:A1=1:GOSUB8000:GOSUB8200:GOSUB8400:IF A2<>1THEN261
320 IF A3<>1 THEN261
330 G0T07000
400 IF A2=1 THEN261
410 NBJ=1:A2=1:GOSUB8000:GOSUB8200:GOSUB8400:IF A1<>1 THEN261
420 IF A3<>1 THEN261
430 G0T07000
500 IF A3=1 THEN261
510 NBJ=2:A3=1:GOSUB8000:GOSUB8200:GOSUB8400:IF A2<>1 THEN261
520 IF A1<>1 THEN261
530 G0T07000
704 IF A=113 THEN6000
1000 ET 7,0,0:FOR T=2 TO 38:CURSORX T:CURSORY 1:PRINT" ":CURSORX T:CURSORY 22:PRINT" ":NEXT T
1010 FOR T=2 TO 21:CURSORY T:CURSORX 1:PRINT"!":CURSORY T:CURSORX 39:PRINT"!":NEXT T
1020 CURSORY1:CURSORX 1:PRINTCHR$(34):CURSORY22:CURSORX1:PRINT"#"
1030 CURSORY22:CURSORX39:PRINT"$":CURSORX39:CURSORY1:PRINT"%"
1040 RETURN
1850 DATA 32,L,e, ,J,A,C,K,P,O,T, ,e,s,
2000 DISPLAY1:READ L$:CURSORYY:CURSORX X:FOR T=1 TO VAL(L$):READ F$:IF F$=""THEN PRINT" ";:G0T02020
2010 PRINTF$;:SOUND 20,0,50:SOUND 5*T,0,5
2020 DISPLAY20:NEXT T:RETURN
3000 TX 7,0,0:CURSORX 9:CURSORY 21:PRINT"tapez ";:TX 7,4,0:PRINT"RET";:TX 7,0,0:PRINT" pour continuer."
3010 FOR WW=1 TO 200:NEXT WW:WW=KEY(0):IF WW=13 THEN RETURN
3020 G0T03010
4000 REM PERDU
4001 PLAY"O4FEDCBAO3FEDCBAO1FEDCBA"
4010 FOR T=1 TO 2000:NEXT T
4020 INIT0,0:GOSUB1000
4030 TX 7,3,0:CURSORX 3:CURSORY 10:PRINT"P E R D U . ":CURSORX 3:PRINT"P E R D U . "
4040 TX 7,0,0:CURSORX 3:CURSORY 15:PRINT"TAPEZ RET POUR UNE AUTRE PARTIE."
4060 FOR T=1 TO 100:NEXT T:A=KEY(0):IF A<>13 THEN4060
4080 G0T070
6000 REM SORTIE
6005 PLAY"ABBACO2CABCACO3AAA"
6010 DISPLAY20:INIT0,0:GOSUB1000:CURSORX 10:CURSORY 10:TX 7,3,0
6020 PRINT"B R A V O . ":CURSORX 10:PRINT"B R A V O . "
6040 TX 7,0,0:CURSORY 5:CURSORX 3:PRINT"VOTRE SOLDE EN PIECES EST DE";S;"."
6050 G0T04040
7000 REM DEPOUILLEMENT
7001 O=0
7004 TX7,0,0:CURSORX 2:CURSORY 20:PRINTSPC36)
7010 PLAY"O1T10ABDEFA"
7020 IF CL(0)=CL(1)AND CL(1)=CL(2)THEN G=G+4+2*MIMI:CURSORX3:CURSORY 18:PRINT"BONUS DE 3 COULEURS. ":O=1:G0T07030
7025 IF CL(0)=CL(1)ORCL(1)=CL(2)ORCL(0)=CL(2)THENCURSORX 3:CURSORY18:PRINT"BONUS PAIRE DE COULEURS.":G=G+2*MIMI:O=1
7030 IF AL(0)=AL(1)AND AL(2)=AL(1)THEN G=10+2*MIMI:CURSORX3:CURSORY 19:TX 7,0,0:PRINT"BONUS 3 FIGURES.":O=1
7031 IF AL(0)=AL(1)AND AL(1)=AL(2)AND AL(0)=0THEN G =G+MIMI:G0T07300
7032 IFAL(0)=AL(1)ORAL(0)=AL(2)ORAL(2)=AL(1)THENCURSORX3:CURSORY20:O=1:PRINT"BONUS PAIRE DE FIGURES.":G=G+2*MIMI:PLAY"AA"
7038 S=S+G:IF S=0 THENCURSORX 3:CURSORY20:PRINT"PLUS DE PIECE.":FOR T=1 TO 2000:NEXT T:G0T04000
7039 IF O=0 THEN CURSORX3:CURSORY20:PRINT"PERDU.PAS DE BONUS.":PLAY"O1DCBA"
7040 TX 7,0,0:CURSORY 21:CURSORX 3:PRINT"TAPEZ RET POUR REJOUER,Q POUR SORTIR"
7045 FOR T=1 TO 100:NEXT T:A=KEY(0):IF A<>13 ANDA<>113 THEN7045
7046 IF A=113 THEN6000
7050 IF G>PLG THEN PLG=G
7070 G0T0165
7300 REM JACKPOT
7400 PLAY"O1AAAAO2AAAAO3AAAAO4AAAAO3BBO2BBO1BBO2BCAO1BCA"
7500 CURSORY18:CURSORX3:TX 5,0,1:PRINT"JACKPOT BRAVO. SUPER BONUS"
7600 G0T07038
8000 AL=RND(1)*10:AL(NBJ)=INT(AL)
8001 RETURN
8200 CL=RND(1)*6+1:CL(NBJ)=INT(CL)
8201 RETURN
8400 REM AFFICHAGE
8410 ET CL(NBJ),3,0
8411 PLAY"ACDACDO1ACDO4ABCDCA"
8415 DISPLAY1
8420 LO=40+AL(NBJ)
8430 CU=9+10*NBJ:C$=CHR$(LO):CURSORY8:CURSORXCU:PRINTC$;" ":CURSORXCU:PRINTC$;" "
8445 DISPLAY 20
8450 RETURN
9000 DATA 32,L,e, ,J,A,C,K,P,O,T, ,e,s,t, ,u,n, ,j,e,u, ,d,e, ,h,a,s,a,r,d,.
9001 DATA 33,O,n, ,m,i,s,e, ,e,t, ,o,n, ,g,a,g,n,e, ,o,u, ,o,n, ,p,e,r,d,.,.,.
9002 DATA 33,e,t, ,p,a,r,f,o,i,s, ,c,,e,s,t, ,l,e, ,g,r,o,s, ,l,o,t,.,c,e,s,t,11,l,e, ,J,A,C,K,P,O,T,.
9005 DATA 32,L,a, ,b,a,n,q,u,e, ,t,e,n,u,e, ,p,a,r, ,V,G, ,5,0,0,0, ,v,o,u,s,31,d,o,n,n,e, ,u,n, ,s,o,l,d,e, ,i,n,i,t,i,a,l, ,q,u
9010 DATA i, ,p,e,u,t,33,v,a,r,i,e,r, ,e,n,t,r,e, ,1, ,p,i,,c,e, ,e,t, ,9, ,p,i,,c,e,s,.
9020 DATA 31,C,h,o,i,s,i,s,s,e,z, ,c,e, ,s,o,l,d,e, ,(,0,<,S,<,1,0,), ,S,=
9025 DATA32,C,h,a,q,u,e, ,m,i,s,e, ,s,e,r,a, ,a,u, ,m,i,n,i,m,u,m, ,d,e, ,1,33,j,e,t,o,n, ,e,t, ,a,u, ,m,a,x,i,m,u,m, ,d,e
9030 DATA ,2,0, ,j,e,t,o,n,s,.,J,A,C,K,P,O,T,J,A,C,K,P,O,T
10000 PRINTKEY(0):G0T010000
- fabrice93fr
- Fonctionne à 9600 bauds
- Messages : 4135
- Enregistré le : 28 mai 2002 15:45
- Localisation : noisy le grand
- Contact :
- Carl
- Fonctionne à 9600 bauds
- Messages : 2542
- Enregistré le : 03 janv. 2003 23:47
- Localisation : www.dole.org
- Contact :
Hi Fabrice,fabrice93fr a écrit :carl : sais tu jusqu'a quel numero de serie peut on esperer trouver un vg 1.0
merci
fab
Les 2 Végé 1.0 que je connaisse c'est celui de Stéf et le mien.
le mien a le N°SF00432_190981 basic 1.0 Philips VG5000/19.
et d'après un article dans le magazine « Hauts Parleurs » ils existent très peu de machines 1.0...au vu du n° de série moins de 500 machines (à confirmer) ?
comme je l'ai spécifié sur le site Végé :
Notez bien que le VG5000 en version basic 1.0 était prévu au départ avec un seul circuit ROM du type TMS47128 de 16Ko. Mais suite à un défaut d'approvisonnement, le VG5000 sera provisoirement équipé de deux circuits ROM type TMS4764 de 8Ko (quelques centaines d'unités en sont équipées).
Pour la version basic 1.1, Philips utilisera un circuit ROM 9128C de chez GI.
Carl
- fabrice93fr
- Fonctionne à 9600 bauds
- Messages : 4135
- Enregistré le : 28 mai 2002 15:45
- Localisation : noisy le grand
- Contact :
- ArBr
- Fonctionne à 1200 bauds
- Messages : 823
- Enregistré le : 14 nov. 2002 11:40
- Localisation : Nord (59)
- Contact :
Si tu veux mettre ta liste à jour des possesseur de Végé 1.0, tu peux aussi me rajouter.Carl a écrit :Les 2 Végé 1.0 que je connaisse c'est celui de Stéf et le mien.
Voici l'objet en question avec ses petits frères :
Le problème pour moi c'est que c'est le seul VG5000 de ma collection qui n'a pas de numéro de série (plus d'étiquette en fait )Carl a écrit :le mien a le N°SF00432_190981 basic 1.0 Philips VG5000/19.