Listing, k7, petits programmes pour VG5000....

Tout ce qui concerne le logiciel original et sa sauvegarde avec entre autre la régénération des disquettes ou autres supports physiques.

Modérateurs : Papy.G, fneck, Carl

Avatar de l’utilisateur
Mokona
Messages : 1040
Inscription : 17 déc. 2016 22:01
Localisation : Nord Est des Yvelines
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Mokona »

Carl a écrit : 02 sept. 2018 23:31 Jeu à plusieurs étapes : La Pierre Philosophale (auteur ?, il est noté Elite Diffusion en REM sur le dernier programme)
Le gros morceau, et ça me donne presque envie d'y jouer.

Voici le listing des 7 programmes, où l'on constatera que les noms des jeux en REM font un peu moins rêver que leur nom dans l'archive :)
La_Pierre_Philosophale_listing.7z
(11.04 Kio) Téléchargé 145 fois
Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Carl »

Je regarde ça en rentrant...

Carl
Avatar de l’utilisateur
Mokona
Messages : 1040
Inscription : 17 déc. 2016 22:01
Localisation : Nord Est des Yvelines
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Mokona »

Pour le Labyrinthe, il n'y a rien d'anormal, ce sont les programmes attendus sur la K7. Il ont juste des noms plus terre à terre concernant le gameplay de la partie pour certains.

Par contre, editeur.k7 en effet, si tu peux regarder (surtout que tu as pu le charger pour faire un screenshot il semblerait).
Markerror
Messages : 2121
Inscription : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Markerror »

Bon, ça aura pris moins de temps que prévu, j'ai terminé d'archiver proprement les listings du bouquin "VG5000 jeux d'action". J'en ai profité du coup pour rajouter une page dédié à ces programme sur mon site.

Récupérer directement l'archive :

http://vg5000bazar.free.fr/zip/listings ... action.zip

Le prochain candidat à l'archivage est probablement "Guide du VG5000" chez Edimicro, il y a déjà pas mal de listings sur cette page qui proviennent de ce bouquin :-).
Dernière modification par Markerror le 11 sept. 2018 22:34, modifié 1 fois.
Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Carl »

Merci Hervé pour ce travail 8) !

Mokona, voici la bonne archive :
editeur.7z
(1.56 Kio) Téléchargé 142 fois
Carl
Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Carl »

Daniel, la commande LLIST ne liste pas les caractères accentués, existe t-il une astuce ?

Code : Tout sélectionner

10 REM *************************
20 REM * ‚diteur de caractŠres *
30 REM *************************
40 DIM CAR(9,7):CLEAR 2000
50 INIT 3,3:TX4,0,0
60 PRINT "Souhaitez vous:":PRINT
70 PRINT "1:cr‚er un caractŠre"
80 PRINT "2:‚diter un caractŠre"
90 INPUT CHOIX
100 IF CHOIX<>1 AND CHOIX<>2 THEN 50
110 ON CHOIX GOSUB 650, 730
120 REM affichage du caractŠre
130 INIT 3,3:LG=4:CL=3
140 GOSUB 980
150 FOR I=1 TO 9
160 FOR J=0 TO 7
170 CURSORY 5+I:CURSORX 10+J
180 PRINT CHR$(43+84*CAR(I,J))
190 NEXT J:NEXT I
200 TX0,0,0
210 FOR I=1 TO 20 STEP 2
220 CURSORX 21:CURSORY 5+(I-1)/2
230 PRINT MID$(C$,I,2)
240 NEXT I
250 REM modification de caractŠre
260 TX1,0,1
270 CURSORX 10+CL:CURSORY 5+LG
280 U=43+84*CAR(LG,CL)
290 PRINT CHR$(U)
300 TX4,0,0
310 CURSORX 10+CL:CURSORY 5+LG
320 IF STICKX(2)=1 THEN PRINT CHR$(U);:CL=CL+1
330 IF STICKX(2)=255 THEN PRINT CHR$(U);:CL=CL-1
340 IF STICKY(2)=1 THEN PRINT CHR$(U);:LG=LG+1
350 IF STICKY(2)=255 THEN PRINT CHR$(U);:LG=LG-1
360 IF CL<0 THEN CL=0
370 IF CL>7 THEN CL=7
380 IF LG<0 THEN LG=0
390 IF LG>9 THEN LG=9
400 IF KEY(0)<>32 THEN 605
410 CAR(LG,CL)=1-CAR(LG,CL)
420 I=LG*2+INT(CL/4)+1
430 C1$=LEFT$(C$,I-1)
440 C3$=RIGHT$(C$,20-I)
450 C=ASC(MID$(C$,I,1))-48
460 IF C>9 THEN C=C-39
470 C1=CL:IF CL>3 THEN C1=C1-4
480 C1=3-C1:IF CAR(LG,CL)=1 THEN 510
490 C=C AND (255-2^C1)
500 GOTO 520
510 C=C OR 2^C1
520 IF C<10 THEN 550
530 C2$=CHR$(87+C)
540 GOTO 560
550 C2$=RIGHT$(STR$(C),1)
560 C$=C1$+C2$+C3$
570 CURSORY 5+LG:CURSORX 10+CL
580 TX0,0,0
590 PRINT CHR$(32+95*CAR(LG,CL));
600 CURSORX 21:PRINT MID$(C$,2*LG+1,2)
605 R=KEY(0)
610 IF R<>70 AND R<>102 GOTO 260
620 CURSORY 18:CURSORX 4:PRINT C$
630 TX1,0,0
640 END
650 REM caractŠre vide
660 FOR I=0 TO 9
670 FOR J=0 TO 7
680 CAR(I,J)=0
690 NEXT J
700 NEXT I
710 C$="00000000000000000000"
720 RETURN
730 REM lecture des codes h‚xad‚cimaux
740 CURSORX 1:CURSORY 12
750 PRINT "entrez les codes h‚xad‚cimaux du":PRINT "caractŠre … ‚diter"
760 PRINT :INPUT C$
770 IF LEN(C$)>20 THEN 740
780 ERR=0
790 FOR I=1 TO 20
800 C=ASC(MID$(C$,I,1))
810 IF C<48 THEN ERR=0
820 IF C>57 AND C<97 THEN ERR=0
830 IF C>102 THEN ERR=0
840 NEXT I
850 IF ERR=1 THEN 740
860 REM code ok-remplissage du tableau
870 CL=4:FOR I=1 TO 20
880 C=ASC(MID$(C$,I,1))-48
890 IF C>9 THEN C=C-39
900 LG=INT(I-1)/2
910 CL=CL+4:IF CL=8 THEN CL=0
920 CAR(LG,CL)=(C AND 8)/8
930 CAR(LG,CL+1)=(C AND 4)/4
940 CAR(LG,CL+2)=(C AND 2)/2
950 CAR(LG,CL+3)=(C AND 1)
960 NEXT I
970 RETURN
980 REM trac‚ du cadre
990 CURSORY 4:CURSORX 10
1000 PRINT "84218421"
1010 TX7,0,0
1020 FOR I=4 TO 15
1030 CURSORX 9:CURSORY I
1040 PRINT CHR$(127)
1050 CURSORX 18:CURSORY I
1060 PRINT CHR$(127)
1070 NEXT I
1080 CURSORY 4:CURSORX 9
1090 DELIM7,7,0
1100 CURSORY 4:CURSORX 19
1110 DELIM3,3,0
1120 CURSORY 15:CURSORX 9
1130 DELIM7,7,0
1140 CURSORY 15:CURSORX 19
1150 DELIM3,3,0
1160 TX4,0,0
1170 FOR I=5 TO 14
1180 FOR J=10 TO 17
1190 CURSORX J:CURSORY I:PRINT "+";
1200 NEXT J:NEXT I
1210 RETURN
Avatar de l’utilisateur
Mokona
Messages : 1040
Inscription : 17 déc. 2016 22:01
Localisation : Nord Est des Yvelines
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Mokona »

Je ne passe par par LLIST pour extraire le programme d'une k7, je me suis fait un petit programme qui décode k7 vers BASIC en direct (si c'est une sauvegarde BASIC). Et sinon, il suffit de remapper les caractères à partir de 17 vers îéùïçûàâèôꣽ

Code : Tout sélectionner

10 REM *************************
20 REM * éditeur de caractères *
30 REM *************************
40 DIM CAR(9,7):CLEAR 2000
50 INIT 3,3:TX4,0,0
60 PRINT "Souhaitez vous:":PRINT
70 PRINT "1:créer un caractère"
80 PRINT "2:éditer un caractère"
90 INPUT CHOIX
100 IF CHOIX<>1 AND CHOIX<>2 THEN 50
110 ON CHOIX GOSUB 650, 730
120 REM affichage du caractère
130 INIT 3,3:LG=4:CL=3
140 GOSUB 980
150 FOR I=1 TO 9
160 FOR J=0 TO 7
170 CURSORY 5+I:CURSORX 10+J
180 PRINT CHR$(43+84*CAR(I,J))
190 NEXT J:NEXT I
200 TX0,0,0
210 FOR I=1 TO 20 STEP 2
220 CURSORX 21:CURSORY 5+(I-1)/2
230 PRINT MID$(C$,I,2)
240 NEXT I
250 REM modification de caractère
260 TX1,0,1
270 CURSORX 10+CL:CURSORY 5+LG
280 U=43+84*CAR(LG,CL)
290 PRINT CHR$(U)
300 TX4,0,0
310 CURSORX 10+CL:CURSORY 5+LG
320 IF STICKX(2)=1 THEN PRINT CHR$(U);:CL=CL+1
330 IF STICKX(2)=255 THEN PRINT CHR$(U);:CL=CL-1
340 IF STICKY(2)=1 THEN PRINT CHR$(U);:LG=LG+1
350 IF STICKY(2)=255 THEN PRINT CHR$(U);:LG=LG-1
360 IF CL<0 THEN CL=0
370 IF CL>7 THEN CL=7
380 IF LG<0 THEN LG=0
390 IF LG>9 THEN LG=9
400 IF KEY(0)<>32 THEN 605
410 CAR(LG,CL)=1-CAR(LG,CL)
420 I=LG*2+INT(CL/4)+1
430 C1$=LEFT$(C$,I-1)
440 C3$=RIGHT$(C$,20-I)
450 C=ASC(MID$(C$,I,1))-48
460 IF C>9 THEN C=C-39
470 C1=CL:IF CL>3 THEN C1=C1-4
480 C1=3-C1:IF CAR(LG,CL)=1 THEN 510
490 C=C AND (255-2^C1)
500 GOTO 520
510 C=C OR 2^C1
520 IF C<10 THEN 550
530 C2$=CHR$(87+C)
540 GOTO 560
550 C2$=RIGHT$(STR$(C),1)
560 C$=C1$+C2$+C3$
570 CURSORY 5+LG:CURSORX 10+CL
580 TX0,0,0
590 PRINT CHR$(32+95*CAR(LG,CL));
600 CURSORX 21:PRINT MID$(C$,2*LG+1,2)
605 R=KEY(0)
610 IF R<>70 AND R<>102 GOTO 260
620 CURSORY 18:CURSORX 4:PRINT C$
630 TX1,0,0
640 END
650 REM caractère vide
660 FOR I=0 TO 9
670 FOR J=0 TO 7
680 CAR(I,J)=0
690 NEXT J
700 NEXT I
710 C$="00000000000000000000"
720 RETURN
730 REM lecture des codes héxadécimaux
740 CURSORX 1:CURSORY 12
750 PRINT "entrez les codes héxadécimaux du":PRINT "caractère à éditer"
760 PRINT :INPUT C$
770 IF LEN(C$)>20 THEN 740
780 ERR=0
790 FOR I=1 TO 20
800 C=ASC(MID$(C$,I,1))
810 IF C<48 THEN ERR=0
820 IF C>57 AND C<97 THEN ERR=0
830 IF C>102 THEN ERR=0
840 NEXT I
850 IF ERR=1 THEN 740
860 REM code ok-remplissage du tableau
870 CL=4:FOR I=1 TO 20
880 C=ASC(MID$(C$,I,1))-48
890 IF C>9 THEN C=C-39
900 LG=INT(I-1)/2
910 CL=CL+4:IF CL=8 THEN CL=0
920 CAR(LG,CL)=(C AND 8)/8
930 CAR(LG,CL+1)=(C AND 4)/4
940 CAR(LG,CL+2)=(C AND 2)/2
950 CAR(LG,CL+3)=(C AND 1)
960 NEXT I
970 RETURN
980 REM tracé du cadre
990 CURSORY 4:CURSORX 10
1000 PRINT "84218421"
1010 TX7,0,0
1020 FOR I=4 TO 15
1030 CURSORX 9:CURSORY I
1040 PRINT CHR$(127)
1050 CURSORX 18:CURSORY I
1060 PRINT CHR$(127)
1070 NEXT I
1080 CURSORY 4:CURSORX 9
1090 DELIM7,7,0
1100 CURSORY 4:CURSORX 19
1110 DELIM3,3,0
1120 CURSORY 15:CURSORX 9
1130 DELIM7,7,0
1140 CURSORY 15:CURSORX 19
1150 DELIM3,3,0
1160 TX4,0,0
1170 FOR I=5 TO 14
1180 FOR J=10 TO 17
1190 CURSORX J:CURSORY I:PRINT "+";
1200 NEXT J:NEXT I
1210 RETURN
Le fichier :
editeur_listing.7z
(1.56 Kio) Téléchargé 137 fois
Avatar de l’utilisateur
Mokona
Messages : 1040
Inscription : 17 déc. 2016 22:01
Localisation : Nord Est des Yvelines
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Mokona »

Markerror a écrit : 09 sept. 2018 10:29 Bon, ça aura pris moins de temps que prévu, j'ai terminé d'archiver proprement les listings du bouquin "VG5000 jeux d'action". J'en ai profité du coup pour rajouter une page dédié à ces programme sur mon site.
Super, merci !
Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Carl »

Je ne connais pas assez Notepad++ mais serait il possible d'avoir sa propre table ASCII...?
Carl
jasz
Messages : 1313
Inscription : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Listing, k7, petits programmes pour VG5000....

Message par jasz »

Perso j'utile PSpad ;)
Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Carl »

Mokona, ton petit utilitaire serait dispo pour les Végéistes ?

Carl
Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Carl »

un peu de musique pour nos VG5000.... 8)
Morceaux de musique.zip
(9.12 Kio) Téléchargé 134 fois

Code : Tout sélectionner

10 REM ***********************
20 REM * Morceaux de musique *
30 REM ***********************
40 INIT 3,4:TX0,0,0
50 CURSORX 1:CURSORY 8
60 PRINT"Quelle musique voulez-vous ‚couter:"
70 PRINT"1:Classique"
80 PRINT"2:Folklore"
90 PRINT"3:Chansons enfantines"
100 PRINT"4:Hymnes nationaux"
110 PRINT"0:Fin"
120 INPUT R:IF F<0 OR R>4 THEN 50
130 ON R GOTO 1010, 2010, 3000, 4000
140 END
1000 REM Musique classique
1010 INIT 3,4:TX0,0,0
1020 CURSORX 1:CURSORY 8
1030 PRINT"Quelle morceau voulez-vous ‚couter:"
1040 PRINT"1:Le danube bleu"
1050 PRINT"2:Adagio d'Albinoni"
1060 PRINT"3:La truite de Schubert"
1070 PRINT"4:Valse de Brahms"
1080 PRINT"5:Berceuse de Mozart"
1090 PRINT"0:Autre type de musique"
1100 INPUT R:IF R<0 OR R>5 THEN 1010
1110 ON R GOTO 1130, 1220, 1360, 1450, 1570
1120 GOTO 40
1130 REM Danube bleu
1140 CLEAR 500
1150 A$="T17 O2C20C20E20G20G40 O3G20G40E20E40 O2C20C20E20G20G40 O3G20G40F20F40"
1160 B$="O2D20D20F20 O3A20A40 O4A20A40 O3F20F40 O2D20D20F20 O3A20A40 O4A20A40"
1170 C$="O3E20E40 O2C20C20E20G20 O3C40 O4C20C40 O3G20G40 O2C20C20E20G20 O3C40"
1180 D$="O4C20C40 O3A20A40 O2D20D20F20 O3A20A70 O2F+20G20 O3E80C20"
1190 E$="O2E20E40D20 O3A40 O2G20C60"
1200 PLAY A$:PLAY B$:PLAY C$:PLAY D$:PLAY E$
1210 GOTO 1010
1220 REM Adagio d'Albinoni
1230 CLEAR 500
1240 A$="O2D24C18B-6A18 O1G6G48F+24 O2E-24D18C6B-18A6A48 O1G24 O2G24F12"
1250 B$="G12E-12F12D12E-72F24E-12F12D12E-12C12D72E-24D12E-12C12D12B-12C72D48"
1260 C$="E-24D48R36G12 O3A12B12A12 O2G12F+12G12F+36G+12G18F6E-36C12E-18G6"
1270 D$="D36B-12D18G6C48C3D3E-12D3C3B-48B-3C3D12C3B-3A48A3B-3C12B-3A3 O1G72"
1280 E$="O2R60G12G+6G6F+6G6F+6E-6D6E-6F6E-6D6E-6D6C6B+6C6D24R24G12G+6G6F+6G6"
1290 F$="F+6E-6D6E-6F6E-6D6E-6E-6D6C6B+6C24R48 O1C12E12G12 O2C12 O1E12G12"
1300 G$="O2C12E-12 O1G12 O2C12E-12G12C12E-12G12 O3C24R72R72 O2C12D-6C6"
1310 H$="B+6C6B-6A-6 O1G6 O2A6B-6A6 O1G6 O2A6 O1G6F6E+6F6G24R80 O2C12"
1320 I$="D-6C6B+6C6B-6A-6 O1G6 O2A6B-6A6 O1G6 O2A6A6 O1G6F6E+6F24 O2A-24"
1330 J$="C24 O1F+24 O2A+24D24"
1340 PLAY "T40"+A$+B$:PLAY C$+D$:PLAY E$+F$+G$:PLAY H$+I$+J$:PLAY A$+B$
1350 GOTO 1010
1360 REM La truite de Schubert
1370 CLEAR 500
1371 A$="O1F24 O2B-24B-24D24D24B-48 O1F36F12F48 O2C12B-12A12 O1G12F48"
1372 B$="R24F24 O2B-24B-24D24D24B-48 O1F24 O2B-24A24 O1G12 O2A12B-24 O1"
1380 A$="O1F24 O2B-24B-24D24D24B-48 O1F36F12F48 O2C12B-12A12 O1G12F48"
1390 B$="R24F24 O2B-24B-24D24D24B-48 O1F24 O2B-24A24 O1G12 O2A12B-24 O1"
1400 C$="E+24F48R24F48 O2A24A24B-12A12 O1G12 O2A12B-48 O1 F24 O2B-24A24A24A12"
1410 D$="E-12C12A12B-72B-24 O1G24G24G24 O2B-24B-48 O1F36F12F48 O2C24A24B-72"
1420 E$="B-24A12 O1G12G24G12 O2B-12A12C12B-48 O1F36F12F48 O2C24A24B-48D24B-24"
1430 PLAY "T15"+A$+B$+C$:PLAY D$+E$:PLAY A$+B$+C$:PLAY D$
1440 GOTO 1010
1450 REM Valse de Brahms
1460 CLEAR 500
1470 A$="O2A36 O1F12F12 O2A36 O1F12F12 O2B-24A24 O1G24 O2A36 O1F12F12 O2C12"
1480 B$="D36A12A12C12D36A12A12C12E12D12C24B+24C36 O1E12E12 O2A12"
1490 C$="D36A12A12C12D36A12A12C12E12D12C24B+24C24R12A12A12C12C36 O1G12G12"
1500 D$="O2C12C36A12A12C12F36C12C12F12F36D12D12F12F36D12D12F12F12E12D24C24"
1510 E$="D36A12A12C12D36A12A12C12F12C12B-24 O1G24F24R12 O2A12A12C12C36A12A12"
1520 F$="C12C36A12A12C12F36C12C12F12F36D12D12F12F36D12D12F12F12E12D24C24A36"
1530 G$="O1F12F12 O2A12A36 O1F12F12 O2A12B-24A24 O1G24 O2A36 O1F12F12 O2C12"
1540 H$="D36A12A12C12D36A12A12C12F12C12B-24 O1G24F24"
1550 PLAY "T25"+A$+B$+A$:PLAY C$+D$+A$:PLAY E$+F$+G$+H$
1560 GOTO 1010
1570 REM Berceuse de Mozart
1580 CLEAR 500
1590 A$="O1E12F12E12D12C12D12C36R12C12C12C12F12F12F12G12 O2A12 O1G72D12C+12"
1600 B$="D12D12D12C12D12F72E12E12E12F12E12F12G72 O2A12A12A12A12A-12A12C72 O1"
1610 C$="G12G12G12G12G-12G12 O2C72 O1F+12G12F12E12F12G12R12G12G-12G-12E12D12"
1620 D$="E12F12E12D12C12D12C72 O2E12F12E12D12C12D12C36R12C12C12C12F12F12F12"
1630 E$="G12 O3A12 O2G72D12D-12D12D12C12D12F72E12E12E12F12E12F12G72 O3A12A12"
1640 F$="A12A12A-12A12C12 O2G12G12G12G12G-12G12 O3C72O2G-12G12F12E12F12G12D72"
1650 G$="E12F12E12D12C12D12C36R24E12G36G6G-6G-6E6F6D6C36R24 O1E12G36G36G-6G-6"
1660 H$="E6F6D6C72C24E24C72"
1670 PLAY "T40"+A$+B$+C$:PLAY D$+E$+F$:PLAY G$+H$
1680 GOTO 1010
2000 REM Airs folkloriques
2010 INIT 3,4:TX0,0,0
2020 CURSORX 1:CURSORY 8
2030 PRINT"Quel air folklorique: "
2040 PRINT"1:Oh Suzanna"
2050 PRINT"2:Guantanam‚ra"
2060 PRINT"3:Down by the riverside"
2070 PRINT"4:La Cucaracha"
2080 PRINT"0:Autre type de musique"
2090 INPUT R:IF R<0 OR R>4 THEN 2020
2100 ON R GOTO 2130, 2210, 2300, 2440
2110 GOTO 40
2120 REM Oh!Suzanna
2130 CLEAR 500
2140 A$="O2T35F6G6O3 A12 C12C18D6C12 A12 O2 F18 G6 O3 A12A12 O2 G12F12G36"
2150 B$="F6G6O3 A12 C12C18D6C12 A12 O2 F18 G6 O3 A12A12 O2G12G12F36"
2160 C$="F6G6O3 A12C12C18D6C12A12 O2F18 G6 O3 A12A12O2 G12G12F48"
2170 D$="O3 B-24B-24D12D24D12C12C12A12 O2 F12 G36"
2180 PLAY A$+B$+A$:PLAY C$+D$+B$
2190 GOTO 2010
2200 REM Guantanam‚ra
2210 CLEAR 500
2220 A$="O3A24A12A12A12A36A48R O2F12 O3A12A12 O2G24 O3A12 O2E12G12"
2230 B$="G36G96E24F12G12 O3A48 O2G48G12 O3A12 O2F12D12C24C12B12A48 O1G96"
2240 C$="R48"
2250 D$="G12G12 O2C12C12D12C12D12D36D48RD12E12F12E12C12A12D12D36D48"
2260 E$="O1RG12G12 O2C12C12D12C12D12D36D48RG12G12G12G48G12F12E12D12D48RD12"
2270 F$="E12F12G24G12G12 O3A48 O2G48 O3A12 O2F12D12C24C12B12A48 O1G96"
2280 PLAY "T30"+A$+B$:PLAY A$+B$+C$:PLAY D$+E$+F$:PLAY A$+B$
2290 GOTO 2010
2300 REM Down by the riverside
2310 CLEAR 500
2320 A$="O2E24E24E18C6A24 O1G24 O2A18 O1G6 O2A12C36E-24E24E18C6A24"
2330 B$="D48E+36D+12"
2340 C$="E24 O1G48 O2A24C48D48RE24E36D+12E24D+12"
2350 D$="C12C12G36"
2360 E$="C48D24D12C+6D12F24E12E48D48C96C24C24D24E24F24F24F24F12F12F24F12F12"
2370 F$="F18F6C18D6E24E24E12D24C12C96D36C+12D12F36C+48D48E96E24G24E18D6C24"
2380 G$="D24C24F24C24F12F12F36C24D24E24E24E36C6D24C96D24D48F24E48D48"
2390 H$="C96C24 O1G24 O2A24C24"
2400 I$="C48 O1G18 O2A6C24E-18C6D24C48"
2410 PLAY "T30"+A$+B$:PLAY C$+D$+C$:PLAY E$+F$+G$+H$
2420 PLAY C$+D$+C$:PLAY E$+F$+G$+I$
2430 GOTO 2010
2440 REM La Coucaracha
2450 CLEAR 1000
2460 A$="O2G12G12G12"
2470 B$="O3C36E12E12 O2G12G12G12 O3C36E12E48RC24C12B12B12A12A12 O2G48"
2480 C$="R12G12G12G12 O3B36D12D12 O2G12G12G12B36D12D48R12F24 O4A12 O3"
2490 D$="G12F12E12D12C48R12 O2G12G12G12"
2500 E$="G12F12E12D12C24 O2G12G12 O3C12C12E12E12"
2510 F$="G36E12E24R24R24G12G12 O4A12 O3G12F12E12F36D12D24R24R24 O2G12G12"
2520 G$="O3B12B12D12D12F36D12D24R24R12G24 O4A12 O3G12F12E12D12"
2530 H$="E36C12C24R24R24 O2G12G12 O3C12C12E12E12"
2540 I$="C48R12 O2G12G12G12"
2550 PLAY "T20"+A$
2560 PLAY B$+C$+D$:PLAY B$+C$+E$
2570 PLAY F$+G$+H$:PLAY F$+G$+I$
2580 PLAY B$+C$+D$:PLAY B$+C$+E$
2590 PLAY F$+G$+H$:PLAY F$+G$+I$
2600 GOTO 2010
3000 REM Chansons enfantines
3010 INIT 3,4:TX0,0,0
3020 CURSORX 1:CURSORY 8
3030 PRINT "Quelle chanson:"
3040 PRINT"1:Au clair de la lune"
3050 PRINT"2:FrŠre Jacques"
3060 PRINT"3:La mŠre Michel"
3070 PRINT"4:Cadet Roussel"
3080 PRINT"5:Dansons la capucine"
3090 PRINT"6:Sur le pont d'Avignon"
3100 PRINT"7:Nous n'irons plus au bois"
3110 PRINT"8:Malb'rough s'en va en guerre"
3120 PRINT"9:Le roi Dagobert"
3130 PRINT"0:Autre type de musique"
3140 INPUT R:IF R<0 OR R>9 THEN 3020
3150 ON R GOTO 3170, 3230, 3290, 3380, 3450, 3510, 3580, 3650, 3720
3160 GOTO 40
3170 REM Au clair de la lune
3180 CLEAR 500
3190 A$="O2C24C24C24D24E48D48C24E24D24D24C48C24R"
3200 B$="C24C24C24C24A48A48D24C24B24A24 O1G72F24E24D24 O2"
3210 PLAY "T30"+A$+A$+B$+A$
3220 GOTO 3010
3230 REM FrŠre Jacques
3240 CLEAR 500
3250 A$="O1G24 O2A24B24 O1G24G24 O2A24B24 O1G24 O2B24C24D48B24C24D48"
3260 B$="D18E6D12C12B24 O1G24 O2D18E6D12C12B24 O1G24G24D24G48G24D24G48"
3270 PLAY "T30"+A$+B$:PLAY A$+B$
3280 GOTO 3010
3290 REM La mŠre michel
3300 CLEAR 500
3310 A$="O1F12F12F12F12F12C12F12G12 O2A24 O1G24F36F12E12D12E12F12G12"
3320 B$="O2 A12 O1G12F12E24D24C36C12G12G12G12 O2A12B-36B-12A12 O1F12 O2"
3330 C$="C12A12 O1G36G12 O2B-12B-12B-12 O1G12 O2A12A12A12 O1F24G24 O2"
3340 D$="C24 O1F18F6F12E12D24D18D6D12E12F12G12C24C18C6C36C12F24 O2A24C12B12"
3350 E$="A12 O1G12F24 O2C18C6 O1F24F12RRR"
3360 PLAY "T25"+A$+B$:PLAY C$+D$+E$:PLAY A$+B$:PLAY C$+D$+E$
3370 GOTO 3010
3380 REM Cadet Rousselle
3390 CLEAR 500
3400 A$="O1D12E12F12G24G12G24 O2B12 O1G24R O2A12A12A12A24 O1G12F24E12D24R"
3410 B$="O2A12A12A12A24B12C24D12C24B12A12A12A12A24B12C24D12C24B12"
3420 C$="O1G24RG24RG12F12E12D24RG12F12G12 O2A24A12 O1G24F12G24R"
3430 PLAY "T20"+A$+A$:PLAY B$+C$+C$:PLAY A$+A$:PLAY B$+C$+C$
3440 GOTO 3010
3450 REM Dansons la capucine
3460 CLEAR 500
3470 A$="O1F24G12G12 O2C12C12A12A12 O1F24G12G12 O2C12C12A24"
3480 B$="O2F24R"
3490 PLAY "T25"+A$+A$+B$:PLAY A$+A$+B$
3500 GOTO 3010
3510 REM Sur le pont d'Avignon
3520 CLEAR 500
3530 A$="O1F12F12F24G12G12G24 O2A12B-12C12 O1F12E12F12G12C12F12F12F24"
3540 B$="G12G12G24 O2A12B-12C12 O1F12G12E12F12R"
3550 C$="O1F12F12F12F12F12G24F12RF12F12F12F12G24F12R"
3560 PLAY "T25"+A$+B$+"T35"+C$:PLAY "T25"+A$+B$
3570 GOTO 3010
3580 REM Nous n'irons plus au bois
3590 CLEAR 500
3600 A$="O1F12 O2A12B-12C24F24C18D6C12B-12A24 O1G24F12RF12 O2A12B-12C24"
3610 B$="F24C18D6C12B-12A24 O1G24F24F12RF12F12F12G12F24C12RF12F12F12G12F24"
3620 C$="C12R O2C24A12RC24A12R O1G12 O2A12B-12A12 O1G12 O2C12 O1F12R"
3630 PLAY "T30"+A$+B$+C$:PLAY A$+B$+C$
3640 GOTO 3010
3650 REM Malb'rough s'en va en guerre
3660 CLEAR 500
3670 A$="O1D12 O2B24B12B24A12C36B12C12B12A12A12A12A12 O1G12 O2A12B36"
3680 B$="O1G24D12 O2B24B12B24A12C36B24D12B24 O1G12A24A12 O1G36G24"
3690 C$="O2D12D24B12E24E12D36D24D12D24B12E24E12D36D24R36"
3700 PLAY "T20"+A$+B$+C$:PLAY A$+B$+C$
3710 GOTO 3010
3720 REM Le roi Dagobert
3730 CLEAR 500
3740 A$="O2B12B24A12A24 O1G12G36 O2A36B12C12B12A12 O1G12 O2A12 O1G36R36"
3750 B$="G12 O2A12B24B12C12D12A24A12A12 O1G12 O2A12B24B12B12C12D12A24"
3760 C$="A12A24B12B24A12A24 O1G12G36 O2A36B12C12B12A12 O1G12 O2A12 O1G36"
3770 PLAY "T25"+A$+B$+C$:PLAY A$+B$+C$
3780 GOTO 3010
4000 REM Hymnes nationaux
4010 INIT 3,4:TX0,0,0
4020 CURSORX 1:CURSORY 8
4030 PRINT"Quel hymne national: "
4040 PRINT"1:La Marseillaise"
4050 PRINT"2:God save the Queen"
4060 PRINT"0:Autre type de musique"
4070 INPUT R:IF R<0 OR R>2 THEN 4070
4080 ON R GOTO 4100, 4210
4090 GOTO 40
4100 REM La Marseillaise
4110 CLEAR 500
4120 A$="O1G6G18G6 O2C24C24D24D24G36E12C18C6E18C6A24F48D18B6C48C12RC18D6"
4130 B$="E24E24E24F18E6E24D24D12RD18E6F24F24F24G18F6E48E12RG18G6G25E18C6G24"
4140 C$="E18C6 O1G48G12R6G6G18 O2B6D48F24D18B6D24C24B-48A24C18C6C24B+18C6"
4150 D$="D48D12RD12E-36E12E12E12F12G12D72E-18D6C36C12C12E-12D12C12C24B48R"
4160 E$="G6G48G18G6E18C6D48D12RRG6G48G18G6E18C6D48D12"
4170 F$="R O1G24 O2C72D24E96F48G24 O3A24 O2D48D6R O3A24 O2G48G18E6F18D6"
4180 G$="C24C18C6C12"
4190 PLAY "T30"+A$+B$+C$:PLAY D$+E$+F$+G$
4200 GOTO 4020
4210 REM God save the Queen
4220 CLEAR 500
4230 A$="O2C24C24D24B36B12D24E24E24F24E36D12C24D24C24B24C36D12E12F12G24G24"
4240 B$="G24G36F12E24F24F24F24F36E12D24E24F12E12D12C12E36F12G24 O3A12 O2"
4250 C$="G12F12E24D24C72"
4260 PLAY "T45"+A$+B$+C$:PLAY A$+B$+C$
4270 GOTO 4020
Avatar de l’utilisateur
Mokona
Messages : 1040
Inscription : 17 déc. 2016 22:01
Localisation : Nord Est des Yvelines
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Mokona »

Carl a écrit : 10 sept. 2018 21:02 Mokona, ton petit utilitaire serait dispo pour les Végéistes ?

Carl
Oui, bien sûr. Je rajoute deux trois commentaires et je partage ça.
Markerror
Messages : 2121
Inscription : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Markerror »

Bon, je pense compléter cette semaine les listings du "Guide du VG5000" de chez Edimicro. Sept programmes étaient présents dans l'archive de Carl. Il ne me reste qu'à débugger "Morceaux de musique" qui a quelques coquilles. Priez pour moi, ça va être dur pour mes oreilles :mrgreen: .

Les programmes sont assez variés, et essaient au moins d'utiliser certaines commandes du VG5000 comme PAGE, DISPLAY, etc... Ca n'en fait pas des merveilles, mais pour un ouvrage d'initiation, on sent quand même que les auteurs se sont un peu décarcassés.

Une partie des listings de l'archive pack01.K7 proviennent d'un troisième bouquin, "Jeux pour VG5000", des mêmes auteurs que le guide. Ca sera probablement la fin de mon périple (ce qu'il y a dans 102 programmes est à priori sans aucun intérêt, et puis 102, ça fait peur quand même... ).
Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: Listing, k7, petits programmes pour VG5000....

Message par Carl »

Hervé, tu avais déjà "Morceaux de musique" ?

Carl
Répondre