Code : Tout sélectionner
0 Z$="DUKI-DUC-29/08/1983-VERSION DEFINITIVE":CLEAR,,20:CONSOLE0,24,0,0:CLOSE:DEFGR$(0)=0,0,0,129,127,126,28,56:DEFGR$(1)=0,64,240,128,0,0,0,0:DEFGR$(2)=0,0,3,9,7,1,0,0:DEFGR$(3)=0,4,143,216,240,224,0,0:DEFGR$(4)=4,100,244,100,100,76,252,248:DEFGR$(5)=120,120,120,48,48,48,48,120:DEFGR$(6)=7,31,63,127,127,255,255,255:DEFGR$(7)=224,248,252,254,254,255,255,255:DEFGR$(8)=60,90,24,60,60,60,126,255:DEFGR$(9)=0,1,6,15,0,0,0,0:DEFGR$(10)=192,129,129,255,255,255,129,129:DEFGR$(11)=12,24,104,127,15,15,4,2:DEFGR$(12)=0,16,16,240,240,240,32,64:DEFGR$(13)=0,131,128,255,255,97,33,18:DEFGR$(14)=0,192,176,240,192,128,0,0:DEFGR$(15)=0,8,8,4,7,3,5,8:DEFGR$(16)=0,60,11,15,248,252,242,1:DEFGR$(17)=48,80,216,254,94,79,4,7:DEFGR$(18)=255,255,255,127,127,63,31,7:DEFGR$(19)=255,255,255,254,254,252,248,224
1 GOSUB19
2 GOSUB18:O0=0:FORO=1TO15:T=-1:P=19:H=RND*9+4:CONSOLEH-1,H:E=ABS(RND<D0):B=-1:V0=RND*30:FORI=1TO35:COLOR4:ATTRBE,E:LOCATEI,H:PRINT" ";GR$(0);GR$(1);:IFTTHENFORK=0TOV0:NEXTK:T=NOTPTRIG:IFNOTTTHENPLAY"A4L2T1O1SILASOFAMIREDOO2SILASOFAMIREDOO3SILASOFAMIREDOO5SILASOFAMIREDO"::ELSEGOTO6
3 IFSCREEN(20,P-1)=0THENI0=2+I:I=35:B=0:GOTO10
4 ATTRB0,1:LOCATE20,P:IFP<19THENPRINT" ";
5 P=P-1:LOCATE20,P:COLOR1:PRINT".";:IFP=1THENT=-1:P=19:LOCATE20,1:PRINT" ";:O=O+1
6 COLOR4:ATTRBE,E::LOCATEI,H:PRINT" ";GR$(2);GR$(3);:IFTTHENFORK=0TOV0:NEXTK:T=NOTPTRIG:IFNOTTTHENPLAY"A20L2T1O4SILASOFAMIREDOO3SILASOFAMIREDOO2SILASOFAMIREDOO1SILASOFAMIREDO"::ELSEGOTO10
7 IFSCREEN(20,P-1)=0THENI0=2+I:I=35:B=0:GOTO10
8 ATTRB0,1:LOCATE20,P:IFP<19THENPRINT" ";
9 P=P-1:LOCATE20,P:COLOR1:PRINT".";:IFP=1THENT=-1:P=19:LOCATE20,1:PRINT" ";:O=O+1
10 NEXTI:IFP<17THENLOCATE20,P:PRINT" ";
11 IFBTHENCLS:GOTO13
12 CLS:ATTRBE,E:COLOR4:FORI=I0TO36:LOCATEI,H:PRINTGR$(0);GR$(1);:FORK=1TO60:NEXT:LOCATEI,H:PRINTGR$(2);GR$(3);:PLAY"T5A2O3L5FA":LOCATEI,H:PRINT" ";:H=H+.5:NEXTI:COLOR0:ATTRB1,1:FORI=22TO36:LOCATEI,22:PRINTGR$(13);GR$(14);:FORK=1TO30:NEXT:LOCATEI,22:PRINTGR$(15);GR$(16);:FORK=1TO30:NEXT:NEXTI:LOCATE36,22:PRINT" ":FORK=1TO200:NEXTK:FORI=36TO22STEP-1:LOCATEI,22:ATTRB1,1:COLOR0:PRINTGR$(9);GR$(10);:LOCATEI+1,22:ATTRB0,0:COLOR4:PRINTGR$(17);:FORK=1TO40:NEXT:LOCATEI,22:ATTRB1,1:COLOR0:PRINTGR$(11);GR$(12);:LOCATEI,22:ATTRB0,0:COLOR4:PRINTGR$(17);:FORK=1TO40:NEXT:NEXTI:LOCATE22,22:ATTRB1,1:COLOR0:PRINT" ":LOCATE22,22:PRINTGR$(8);:LOCATEO0*2,23:ATTRB0,0:COLOR4,3:PRINTGR$(2);GR$(3);:COLOR,6:O0=O0+1
13 ATTRB0,1:LOCATE20,P:IFP<19THENPRINT" ";
14 NEXTO:X$=INKEY$:GOSUB17:LOCATE0,0,0:CONSOLE0,24:ATTRB0,0
15 IFPTRIGTHEN2
16 X$=INKEY$:IFX$=""THEN15:ELSEIFX$=CHR$(12)THENEXEC&HE82D:ELSE1
17 PLAY"T4A2O4L24DOFAPFASOFASOL48LAL24O5DODOP":PLAY"O4LA#LAPLASOLASOL48FAL24DODOP":PLAY"DOFAPFASOFASOL48LAL24O5DODOP":PLAY"O4LA#LAPLASOLASOL96FAO3FA":RETURN
18 CONSOLE0,24,0:CLS:SCREEN7,6,1:ATTRB1,0:COLOR7,6:LOCATE22,0:PRINTGR$(18);:FORI=1TO8:PRINTCHR$(127);:NEXT:LOCATE24,1:PRINTGR$(18);:FORI=1TO5:PRINTCHR$(127);:NEXT:PRINTGR$(19):LOCATE27,2:PRINTGR$(18);:FORI=1TO3:PRINTCHR$(127);:NEXT:PRINTGR$(19):ATTRB0,0:COLOR2,6:LOCATE1,22:PRINTGR$(6);:FORI=1TO10:PRINTCHR$(127);:NEXTI:PRINTGR$(7):LOCATE2,21:PRINTGR$(6);GR$(7);GR$(6);:FORI=1TO6:PRINTCHR$(127);:NEXTI:PRINTGR$(7):LOCATE5,20:PRINTGR$(6);:FORI=1TO4:PRINTCHR$(127);:NEXTI:PRINTGR$(7):LOCATE6,19:PRINTGR$(6);GR$(7);GR$(6);GR$(7):BOXF(0,184)-(319,199),-4:ATTRB1,1:COLOR0:LOCATE19,20,0:PRINTGR$(4):LOCATE19,22:PRINTGR$(5);:LOCATE22,22:PRINTGR$(8);:RETURN
19 I=134:I1=-1:C=3:CLS:ATTRB1,1:SCREEN3,4,4:LOCATE23,7:PRINT"5":LOCATE23,16:PRINT"1":LOCATE26,12,1:PRINT"?";:N0=1
20 IFPTRIGTHEN28:ELSER$=INKEY$
21 IFR$=""GOTO24
22 IFASC(R$)=13GOTO28
23 IFR$>"0"ANDR$<"6"THENN0=VAL(R$):GOTO28
24 LINE(74+143-I,I)-(167,I),C:I=I+I1:IFC=3THENC=1:ELSEIFC=1THENC=3
25 IFI=49THENI1=1:C=-5
26 IFI=134THENI1=-1:C=3
27 GOTO20
28 LOCATE28,12:PRINTN0:D0=(5-VAL(R$))/4:LOCATE0,0,0:ATTRB0,0:RETURN
Code : Tout sélectionner
0 Z$="METEOR-29/08/1983-VERSION DEFINITIVE":CLOSE:CLEAR,,22:DEFINTA-Z:DIMM$(3,3),L(38),C(7):V$=" "+CHR$(8)+CHR$(8)+CHR$(10)+GR$(0):GOSUB23:Z$=STR$(Z):D0=8-Z:GOSUB17:GOSUB15:FORI=1TO50:PLAY"A1O5T2L3LASI":NEXT
1 GOSUB14:CLS:LOCATE0,0,0:Z=0:U=1:T0=38:T=3:J=2:V0=26:V1=22
2 X=L(T0*RND):B=XANDU:FORA=ZTOT:IFPTRIGTHENK=C+U:ELSEK=C-U
3 K=L(K):IFSCREEN(K,L+U)*SCREEN(K+U,L+U)=ZTHEN9
4 LOCATEC,L:PRINT" ":LOCATEX,16:PRINTM$(A,B):LOCATEK,L:PRINTGR$(0):C=K:NEXT:LOCATEV0,V1:PRINTD1;:Y=D0*RND+D0:FORA=UTOY:IFPTRIGTHENK=C+U:ELSEK=C-U
5 K=L(K):IFSCREEN(K,L+U)*SCREEN(K+U,L+U)=ZTHEN9
6 LOCATEC,L:PRINT" ":LOCATEX,16:PRINT:LOCATEK,L:PRINTGR$(0):C=K:NEXT:D1=D1+4+INT(Y):IFD1-D2<100THEN2
7 D2=100+D2:C0!=C0!-.5:IFC0!<1THEN2
8 SCREENC(C0!):LOCATEC,L:PRINTV$:L=L+U:GOTO2
9 LOCATEC,L:PRINT" ":LOCATEX,16:PRINT:LOCATEK,L:PRINTGR$(0):IFL<3THENL=3
10 FORA=0TO3:BOX(C-A,L-A)-(C+A,L+A)".":NEXTA:FORA=0TO3:BOX(C-A,L-A)-(C+A,L+A)" ":NEXTA:LOCATE26,22:PRINTD1;:IFR<D1THENR=D1:LOCATE11,24:PRINT"MAX =";R;
11 X$=INKEY$:FORI=1TO50:PLAY"A1O5T2L3LASI":NEXT:IFL<3THENL=3
12 X$=INKEY$:IFX$=CHR$(12)THENEXEC&HE82D:ELSEIFX$<>""THENRUN
13 IFNOTPTRIGTHEN12::ELSE1
14 C=20:L=1:D1=0:D2=0:C0!=7:LOCATE18,22:ATTRB0:PRINT" PARSECS ":ATTRB1:CONSOLE0,16:SCREEN3:RETURN
15 CONSOLE0,24:COLOR7,0:CLS:SCREEN,,4:CONSOLE17,20,1:SCREEN7,4:LOCATE13,19,0:ATTRB1,1:PRINTGR$(17)GR$(18)GR$(19)GR$(18)GR$(20)GR$(21);:CONSOLE21,24,1:SCREEN0,6:FORC0=0TO7:READC(C0):NEXT:DATA0,2,1,4,5,6,7,3
16 FORI=1TO35:L(I)=I:NEXT:L(0)=4:L(1)=4:L(2)=3:L(36)=35:L(37)=34:L(38)=34:DEFGR$(17)=3,3,15,15,63,63,255,255:LOCATE6,22:ATTRB,0:PRINTGR$(17);" "Z:RETURN
17 DEFGR$(0)=24,36,126,255,255,60,0,0:DEFGR$(1)=0,1,3,7,15,31,31,59:DEFGR$(2)=0,192,224,240,248,252,252,254:DEFGR$(3)=49,49,99,127,127,127,254,254:DEFGR$(4)=194,194,129,1,1,1,1,3:DEFGR$(5)=254,254,254,254,254,254,126,127:DEFGR$(6)=5,9,5,5,3,1,2,2:DEFGR$(7)=127,127,127,63,31,15,7,3:DEFGR$(8)=2,4,132,136,208,224,192,128:DEFGR$(9)=1,3,7,15,31,63,63,127:DEFGR$(10)=192,224,240,248,252,252,226,194:DEFGR$(11)=127,127,255,249,241,224,240,241:DEFGR$(12)=130,2,1,1,1,129,129,1:DEFGR$(13)=250,248,248,248,248,248,108,68:DEFGR$(14)=1,65,65,33,34,18,2,2:DEFGR$(15)=70,66,46,63,31,15,7,3:DEFGR$(16)=4,4,8,8,144,224,192,128:DEFGR$(17)=126,86,82,82,214,214,214,0:DEFGR$(18)=126,70,64,112,192,194,254,0:DEFGR$(19)=254,22,16,16,48,48,48,0:DEFGR$(20)=126,70,70,66,194,194,254,0:DEFGR$(21)=126,70,66,126,204,198,198,0:M$(0,0)=GR$(1)+GR$(2):M$(1,0)=GR$(3)+GR$(4):M$(2,0)=GR$(5)+GR$(6):M$(3,0)=GR$(7)+GR$(8):M$(0,1)=GR$(9)+GR$(10):M$(1,1)=GR$(11)+GR$(12):M$(2,1)=GR$(13)+GR$(14):M$(3,1)=GR$(15)+GR$(16):RETURN
18 LOCATE26,22:PRINTD1;:IFD1-D2<100THEN2
19 CONSOLE0,24,0:CLS:SCREEN7,4,4:FORI=1TO12:IFIAND1THENC0=0:ELSEC0=3
20 BOXF((20-I)*8,(6+I)*8)-(160,(7+I)*8),C0:NEXT:ATTRB1,0:LOCATE23,7:PRINT"8":FORI=1TO10:LOCATE23,7+I:PRINT".":NEXT:LOCATE23,18:PRINT"1":LOCATE26,13,1:PRINT"? ";
21 Z$=INPUT$(1):IFVAL(Z$)<1ORVAL(Z$)>8THEN21
22 D0=8-VAL(Z$):ATTRB1:PRINTZ$;:LOCATE0,0,0:RETURN
23 CONSOLE0,24,0:I=134:I0=-1:C=3:CLS:ATTRB1,1:SCREEN3,4,4:LOCATE23,7:PRINT"8":LOCATE23,16:PRINT"1":LOCATE26,12,1:PRINT"?";:Z=1:Z$="1"
24 IFPTRIGTHEN32:ELSEZ$=INKEY$
25 IFZ$=""GOTO28
26 IFASC(Z$)=13GOTO32
27 IFZ$>"0"ANDZ$<"9"THENZ=VAL(Z$):GOTO32
28 LINE(74+143-I,I)-(167,I),C:I=I+I0:IFC=3THENC=1:ELSEIFC=1THENC=3
29 IFI=49THENI0=1:C=-5
30 IFI=134THENI0=-1:C=3
31 GOTO24
32 LOCATE28,12:PRINTZ:RETURN
Code : Tout sélectionner
0 Z$="TELL-29/08/1983-VERSION DEFINITIVE":CONSOLE0,24,0,0:CLOSE:A$=INKEY$:CLEAR,,37:DEFINTA-Z:DIMV(6),F(6),F$(6):GOSUB44:F$(0)=GR$(0):F$(1)=CHR$(10)+GR$(36):F$(2)=GR$(31):F$(3)=CHR$(10)+GR$(35):F$(4)=GR$(32):F$(5)=CHR$(10)+GR$(34):F$(6)=GR$(33)
1 R0=0:GOSUB45:CONSOLE0,24,0:COLOR0,3:CLS:SCREEN,,0:CONSOLE22,24:SCREEN7,4:LINE(0,176)-(64,176),0:LINE(0,176)-(64,176),-5:LINE(0,177)-(64,177),0:LINE(0,177)-(64,177),-5:LINE(280,48)-(280,176),0:LOCATE34,8:COLOR0,5:PRINT" ":LOCATE34,9:PRINT" ":LOCATE34,10:COLOR,7:PRINT" ":LOCATE34,11:PRINT" ":LOCATE34,12:COLOR,1:PRINT" ":LOCATE34,13:PRINT" ":LOCATE34,14:COLOR,7:PRINT" ":LOCATE34,15:PRINT" ":LOCATE34,16:COLOR,5:PRINT" ":LOCATE34,17:PRINT" ":COLOR,3:CONSOLE0,24,1:LOCATE4,13,0:PRINTGR$(8);GR$(10):PRINTTAB4);GR$(9);GR$(11);GR$(12):PRINTTAB5);GR$(13);GR$(14):PRINTTAB3);GR$(15);GR$(16):PRINTTAB2);GR$(17);" ";GR$(18):PRINTTAB4);GR$(18);GR$(19):PRINTTAB4);GR$(18);GR$(20):PRINTTAB4);GR$(15);GR$(18):PRINTTAB3);GR$(15);" ";GR$(18):PRINTTAB3);GR$(21);" ";GR$(21):CONSOLE,,0:FORI=2TO6STEP2:BOX(16-I,32-I)-(232+I,40+I),5:NEXT:CONSOLE,,1:LOCATE3,4:PRINT"SCORE: * MAX:"
2 S0=0:ATTRB1:LOCATE0,23:FORI=1TO10:PRINTGR$(30);GR$(29);:NEXT:ATTRB0:V(1)=10:V(5)=10:V(2)=25:V(4)=25:V(3)=50:FORI=0TO6:F(I)=0:NEXT:FORC0=1TO10
3 IFPTRIGTHEN3
4 IFD0>8THEN7
5 V0=INT(5*RND+1)*10:FORV=1TO5:V(V)=V0:V0=V0+10:IFV0>50THENV0=10
6 NEXT
7 ATTRB,1:FORV=1TO5:LOCATE34,7+2*V:IFV(V)=50THENPRINT"*";:ELSEPRINT" ";
8 PRINTV(V):NEXTV:ATTRB,0:LOCATE6,14:PRINTGR$(12);" ":LOCATE6,15:PRINTGR$(14);" "
9 IFNOTPTRIGTHEN9
10 PLAY"DO":LOCATE40-4*C0,23:PRINT" ";:LOCATE6,14:PRINTGR$(14):A=0:FORI=1TOD0:IFNOTPTRIGTHEN17
11 NEXT:LOCATE6,14:PRINTGR$(22);CHR$(8);CHR$(10);GR$(23):A=1:FORI=1TOD0:IFNOTPTRIGTHEN17
12 NEXT:LOCATE6,14:PRINTGR$(24);CHR$(8);CHR$(10);GR$(23):A=2:FORI=1TOD0:IFNOTPTRIGTHEN17
13 NEXT:LOCATE6,14:PRINT" ";GR$(15);CHR$(8);CHR$(8);CHR$(10);GR$(15):A=3:FORI=1TOD0:IFNOTPTRIGTHEN17
14 NEXT:LOCATE6,14:PRINT" ";CHR$(8);CHR$(8);CHR$(10);GR$(25);GR$(26):A=4:FORI=1TOD0:IFNOTPTRIGTHEN17
15 NEXT:LOCATE6,14:PRINTCHR$(10);GR$(0);GR$(25):A=5:FORI=1TOD0:IFNOTPTRIGTHEN17
16 NEXT:LOCATE6,14:PRINTCHR$(10);GR$(0);GR$(0):A=6
17 ONA+1GOSUB18,19,20,21,22,23,24:GOTO25
18 RESTORE:RETURN
19 RESTORE37:RETURN
20 RESTORE38:RETURN
21 RESTORE39:RETURN
22 RESTORE40:RETURN
23 RESTORE41:RETURN
24 RESTORE42:RETURN
25 LOCATE8,14,0:FORI=1TO86:READC:PRINTCHR$(C);:NEXT:PRINTF$(F(A)):PLAY"T2O5L6LAO4T5L24":IFF(A)<6THENF(A)=F(A)+1
26 S0=S0+V(A):LOCATE10,4:PRINTUSING"###";S0:LOCATE5,13:IFV(A)>20THENPRINTGR$(10);CHR$(8);CHR$(10);GR$(11):ELSEPRINTGR$(27);CHR$(8);CHR$(10);GR$(28)
27 IFD0<2ANDV(A)=50THENC0=C0-1:IFC0<0THENC0=0
28 IFC0<10THENLOCATE36-4*C0,23:ATTRB1:PRINTGR$(30);GR$(29);:ATTRB0
29 FORI=1TO500:NEXTI,C0
30 IFPTRIGTHEN30
31 IFS0>R0THENR0=S0:LOCATE24,4:PRINTUSING"####";R0::ELSEPLAY"T7O2":GOTO33
32 X$=INKEY$:PLAY"L12DODOL24DOL12DODOL24DOL12DODOL24FASOLAL48"
33 PLAY"L12DODOL24DOL12DODOL24DOL12FALAL24SOMIDOO4T5":FORI=6TO19:LOCATE33,I:PRINT" ":NEXT
34 X$=INKEY$:IFPTRIGTHENLOCATE5,13:PRINTGR$(10);CHR$(8);CHR$(10);GR$(11):GOTO2
35 X$=INKEY$:IFX$=""THEN34:ELSEIFX$=CHR$(12)THENEXEC&HE82D:ELSE1
36 DATA128,8,32,132,8,32,11,128,8,32,132,8,32,11,128,8,32,132,8,32,11,128,8,32,132,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,133,8,32,132,8,32,131,8,32,130,8,32
37 DATA128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,131,8,32,134,8,32,11,128,8,32,130,8,32,131,8,32,132,8,32,131,8,32,130,8,32,129,8,32,0,0,0,0,0
38 DATA128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,132,8,32,134,8,32,11,128,8,32,130,8,32,131,8,32,132,8,32,133,8,32,133,8,32,132,8,32,131,8,32,130,8,32,0,0,0,0,0,0,0
39 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,130,8,32,131,8,32,132,8,32,133,8,32,133,8,32,132,8,32,131,8,32,130,8,32,0,0,0,0,0,0,0,0,0
40 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,132,8,32,131,8,32,130,8,32,129,8,32,128,8,32,10,135,8,32,134,8,32,133,8,32,132,8,32,131,8,32,130,8,32,129,8,32,0,0,0,0,0,0,0,0,0
41 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,11,128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,131,8,32,130,8,32,129,8,32,128,8,32,10,135,8,32,133,8,32,131,8,32,129,8,32,10,134,8,32,131,8,32,128,8,32,10,132,8,32,0,0,0,0,0,0,0
42 DATA128,8,32,129,8,32,130,8,32,131,8,32,132,8,32,133,8,32,134,8,32,135,8,32,135,8,32,134,8,32,133,8,32,132,8,32,131,8,32,130,8,32,129,8,32,128,8,32,10,135,8,32,133,8,32,131,8,32,129,8,32,10,134,8,32,131,8,32,128,8,32,10,132,8,32,128,8,32,10,132,8,32,0,0,0,0,0,0
43 END
44 DEFGR$(0)=0,0,0,0,0,0,0,255:DEFGR$(1)=0,0,0,0,0,0,255,0:DEFGR$(2)=0,0,0,0,0,255,0,0:DEFGR$(3)=0,0,0,0,255,0,0,0:DEFGR$(4)=0,0,0,255,0,0,0,0:DEFGR$(5)=0,0,255,0,0,0,0,0:DEFGR$(6)=0,255,0,0,0,0,0,0:DEFGR$(7)=255,0,0,0,0,0,0,0:DEFGR$(8)=3,12,16,32,32,64,64,64:DEFGR$(9)=64,64,64,32,32,16,12,3:DEFGR$(10)=192,48,8,4,20,42,18,2:DEFGR$(11)=2,2,66,60,4,8,48,192:DEFGR$(12)=255,128,128,128,128,128,128,128:DEFGR$(13)=128,128,128,128,128,128,128,255:DEFGR$(14)=128,128,128,128,128,128,128,128:DEFGR$(15)=1,2,4,8,16,32,64,128:DEFGR$(16)=255,1,1,1,1,1,1,1:DEFGR$(17)=1,1,2,2,4,4,8,8:DEFGR$(18)=1,1,1,1,1,1,1,1:DEFGR$(19)=128,128,64,64,32,32,16,16:DEFGR$(20)=8,8,4,4,2,2,1,1:DEFGR$(21)=255,255,0,0,0,0,0,0:DEFGR$(22)=8,8,8,8,8,8,8,8:DEFGR$(23)=16,16,32,32,64,64,128,128:DEFGR$(24)=1,1,2,2,4,4,8,8:DEFGR$(25)=0,0,0,0,3,12,48,192:DEFGR$(26)=3,12,48,192,0,0,0,0:DEFGR$(27)=192,48,8,4,36,18,42,2:DEFGR$(28)=2,2,26,36,68,8,48,192:DEFGR$(29)=0,0,224,252,224,0,0,0:DEFGR$(30)=0,160,208,127,208,160,0,0:DEFGR$(31)=0,0,0,0,0,255,0,255:DEFGR$(32)=0,0,0,255,0,255,0,255:DEFGR$(33)=0,255,0,255,0,255,0,255:DEFGR$(34)=0,255,0,255,0,255,0,0:DEFGR$(35)=0,255,0,255,0,0,0,0:DEFGR$(36)=0,255,0,0,0,0,0,0:RETURN
45 I=134:I0=-1:C=3:CLS:ATTRB1,1:SCREEN3,4,4:LOCATE23,7:PRINT"5":LOCATE23,16:PRINT"1":LOCATE26,12,1:PRINT"?";:N0=1
46 IFPTRIGTHEN54:ELSER$=INKEY$
47 IFR$=""GOTO50
48 IFASC(R$)=13GOTO54
49 IFR$>"0"ANDR$<"6"THENN0=VAL(R$):GOTO54
50 LINE(74+143-I,I)-(167,I),C:I=I+I0:IFC=3THENC=1:ELSEIFC=1THENC=3
51 IFI=49THENI0=1:C=-5
52 IFI=134THENI0=-1:C=3
53 GOTO46
54 LOCATE28,12:PRINTN0:D0=11-2*VAL(R$):LOCATE0,0,0:ATTRB0,0:RETURN
Je note qu'il faudra étudier pourquoi Beach Head ne fonctionne pas en version .sd.
Probablement pas avant quelques semaines car j'ai peu de temps libre ce mois-ci.