1540 résultats trouvés

par Ben
01 oct. 2023 16:07
Forum : Commodore 8bits
Sujet : Running Linux on a Commodore C-64
Réponses : 3
Vues : 492

Re: Running Linux on a Commodore C-64

Ce n'est pas le linux qui met 10 jours pour booter? (ou quelque chose comme ça)
par Ben
16 sept. 2023 17:14
Forum : Tous les Pockets
Sujet : Skeleton King PC-G850V
Réponses : 4
Vues : 645

Re: Skeleton King PC-G850V

J'ai imprimé le listing sur une CE-126P, j'ai environ 1m80 de code source :-)
par Ben
14 sept. 2023 17:57
Forum : Tous les Pockets
Sujet : Skeleton King PC-G850V
Réponses : 4
Vues : 645

Re: Skeleton King PC-G850V

Si ça peut donner des idées à d'autres :-)

J'ai un tableur Calc avec les graphiques aussi ...
par Ben
14 sept. 2023 16:39
Forum : Tous les Pockets
Sujet : Skeleton King PC-G850V
Réponses : 4
Vues : 645

Skeleton King PC-G850V

Bonjour à tous,

Ca fait un bout de temps que je n'ai plus donner de mes nouvelles.

J'ai passé quelque temps sur un Sharp PC-G850V. C'est vraiment une très belle machine (Merci Remy :-))

Du coup, comme j'avais un peu de temps devant moi, j'ai adapté, en partie, le jeu de Olivier Boisseau (Olipix). Le jeu d'origine est sur Kaypro. La vidéo est sur YouTube . Je vous invite à la regarder.

Dans la version Sharp, il manque les fantômes. Lorsque deux squelettes se rencontrent, ils se combinent en un fantôme qui ne tombe plus dans les pièges. Lors de la programmation, ces fantômes m'ont échappé (sales bestioles). C'est en regardant de nouveau la vidéo qui j'ai remarqué mon oubli.
S'il y a de l'intérêt, je les ajouterais volontiers !

Voici le code

Code : Tout sélectionner

5CLEAR :GOSUB 3000
10X=0:Y=7:A$="":S$="":WX=0:WY=0:V=5:O=0:T=0:B=0:B1=0:F=0:LV=0
11N=0:BO=0:VK=2:B2=0
20DIM EC$(13,6)
30DIM XS(9),YS(9)
40DIM XF(9),YF(9)
41DIM AH$(8)
50CLS :RANDOMIZE :WA=24:W2=20:B2=0
51IF VK<1 THEN 4300
52IF V<1 THEN 4200
54IF LV<9 THEN LV=LV+1
55LOCATE 8,3:PRINT "LEVEL:";LV
56FOR I=1 TO 1000:NEXT I
57CLS
60FOR I=1 TO 13:FOR J=1 TO 6:EC$(I,J)=" ":NEXT J:NEXT I
70LINE (105,0)-(105,47)
80AA$="000080407FCB1C00":AB$="001CCB7F40800000":AC$="1008C02B2BC00804":AD$="FCAAA981819182FC":AE$="FE85858D8585FE00":AF$="20247F2424FE2404"
81AG$="0000241818240000"
82AH$(1)="0004663F66040000":AH$(2)="20E0100A060E0000":AH$(3)="141C08083E1C0800":AH$(4)="080E10A0C0E00000"
83AH$(5)="0010337E33100000":AH$(6)="E0C0A0100E080000":AH$(7)="00081C3E08081C14":AH$(8)="0703050870100000"
84AI$="804F9A7F9A4F80F0":AJ$="80E03A2D3AE08007":AK$="06090906FB4848B0":AL$="000002027E020200"
90 BB$="0000000000000000"
100X= RND (13)-1:Y= RND (6):EC$(X,Y)="C":WX=X*8:WY=Y*8-1
110GCURSOR (WX,WY):GPRINT AA$
120NS= INT ( RND (LV-1)+.5)+1:N=NS:BO=0
121FOR I=1 TO NS
130XS(I)= RND (13)-1:YS(I)= RND (6)
140IF EC$(XS(I),YS(I))<>" " THEN 130
150EC$(XS(I),YS(I))="S"
160WX=XS(I)*8:WY=YS(I)*8-1
170GCURSOR (WX,WY):GPRINT AC$
180NEXT I
181IF LV<9 THEN 190
182XR= RND (12)-1:YR= RND (5)
183IF EC$(XR,YR)<>" " OR EC$(XR,YR+1)<>" " THEN 182
184EC$(XR,YR)="K":EC$(XR,YR+1)="K"
185WX=XR*8:WY=YR*8-1
186GCURSOR (WX,WY):GPRINT AI$:WY=(YR+1)*8-1:GCURSOR (WX,WY):GPRINT AJ$
187GOSUB 1600:GOTO 254
190NP= INT ( RND (LV)+.5)+1
191FOR I=1 TO NP
200XF(I)= RND (13)-1:YF(I)= RND (6)
210IF EC$(XF(I),YF(I))<>" " THEN 200
220EC$(XF(I),YF(I))="P"
230WX=XF(I)*8:WY=YF(I)*8-1
240GCURSOR (WX,WY):GPRINT AF$
250NEXT I
254AZ$=AA$
260FOR I=0 TO 24:GCURSOR (120+I,47):GPRINT "FF":NEXT I:W2=20:WA=24
270LOCATE 18,0:PRINT "V="; LEFT$ ("    ",4- LEN ( STR$ (V)))+ STR$ (V)
271LOCATE 18,1:PRINT "O="; LEFT$ ("    ",4- LEN ( STR$ (O)))+ STR$ (O)
272LOCATE 18,2:PRINT "T="; LEFT$ ("    ",4- LEN ( STR$ (T)))+ STR$ (T)
273LOCATE 18,3:PRINT "B="; LEFT$ ("    ",4- LEN ( STR$ (B)))+ STR$ (B)
274LOCATE 18,4:PRINT "F="; LEFT$ ("    ",4- LEN ( STR$ (F)))+ STR$ (F)
280A$= INKEY$ :GOSUB 1500 :IF A$=S$ THEN 280
282IF A$="" THEN S$="":GOTO 280
290S$=A$
300XV=X:YV=Y
310IF A$="O" AND X>0 THEN X=X-1:AZ$=AB$:GOTO 350
320IF A$="P" AND X<12 THEN X=X+1:AZ$=AA$:GOTO 350
330IF A$="Q" AND Y>1 THEN Y=Y-1:GOTO 350
340IF A$="Z" AND Y<6 THEN Y=Y+1:GOTO 350
341IF A$="T" THEN GOSUB 500:GOTO 350
342IF A$="B" THEN GOSUB 600:GOTO 350
343IF A$="F" THEN GOSUB 1000
350IF EC$(X,Y)=" " THEN 380
360IF EC$(X,Y)="P" THEN V=V-1:X=XV:Y=YV
370IF EC$(X,Y)="S" THEN X=XV:Y=YV
371IF EC$(X,Y)="T" THEN GOSUB 1800
372IF EC$(X,Y)="E" OR B2=1 THEN O=O+20:GOTO 50
380EC$(XV,YV)=" ":WX=XV*8:WY=YV*8-1:GCURSOR (WX,WY):GPRINT BB$
390EC$(X,Y)="C":WX=X*8:WY=Y*8-1:GCURSOR (WX,WY):GPRINT AZ$
400FOR I=1 TO NS
405IF XS(I)=-1 THEN 461
406EC$(XS(I),YS(I))=" ":WX=XS(I)*8:WY=YS(I)*8-1:GCURSOR (WX,WY):GPRINT BB$
410IF XS(I)>X THEN XS(I)=XS(I)-1:GOTO 450
420IF XS(I)<X THEN XS(I)=XS(I)+1:GOTO 450
430IF YS(I)>Y THEN YS(I)=YS(I)-1:GOTO 450
440IF YS(I)<Y THEN YS(I)=YS(I)+1
450IF EC$(XS(I),YS(I))="P" THEN XS(I)=-1:O=O+20:N=N-1:GOTO 461
455IF EC$(XS(I),YS(I))="C" THEN XS(I)=-1:V=V-1:N=N-1:GOTO 461
456IF EC$(XS(I),YS(I))="T" THEN B1=0:GOTO 461
460EC$(XS(I),YS(I))="S":WX=XS(I)*8:WY=YS(I)*8-1:GCURSOR (WX,WY):GPRINT AC$
461NEXT I
465IF V<1 THEN 4200
467IF N<1 AND BO=0 THEN GOSUB 1600
468IF LV=9 AND B1=0 THEN GOSUB 1600
469IF LV=9 THEN GOSUB 4100
470GOTO 260
500IF T=0 THEN 560
505XV=X:YV=Y
510X= RND (13)-1:Y= RND (6)
520IF EC$(X,Y)<>" " THEN 510
530EC$(XV,YV)=" ":WX=XV*8:WY=YV*8-1:GCURSOR (WX,WY):GPRINT BB$
540EC$(X,Y)="C":WX=X*8:WY=Y*8-1:GCURSOR (WX,WY):GPRINT AZ$
550T=T-1
560RETURN
600IF B=0 THEN 640
610XV=X:YV=Y:B=B-1
620Y=Y-1:GOSUB 650:GOSUB 920
621X=X+1:GOSUB 650:GOSUB 920
622Y=Y+1:GOSUB 650:GOSUB 920
623Y=Y+1:GOSUB 650:GOSUB 920
624X=X-1:GOSUB 650:GOSUB 920
625X=X-1:GOSUB 650:GOSUB 920
626Y=Y-1:GOSUB 650:GOSUB 920
627Y=Y-1:GOSUB 650:GOSUB 920
629FOR J=1 TO 9:X= RND (13)-1:Y= RND (6):GOSUB 650:GOSUB 920:NEXT J
630X=XV:Y=YV
640RETURN
650IF NOT (X>0 AND X<13 AND Y>1 AND Y<7) THEN 690
660GOSUB 700
690RETURN
700IF EC$(X,Y)="S" THEN O=O+20:N=N-1:EC$(X,Y)=" ":GOSUB 900
710IF EC$(X,Y)="P" OR EC$(X,Y)="E" THEN 740
715IF EC$(X,Y)="C" THEN EC$(X,Y)=" "
716IF EC$(X,Y)="K" THEN VK=VK-1:B2=1
720 WX=X*8:WY=Y*8-1:GCURSOR (WX,WY):GPRINT AG$
740RETURN
900FOR I=1 TO NS:IF XS(I)=X AND YS(I)=Y THEN XS(I)=-1
905NEXT I
910RETURN
920FOR I=1 TO 400:NEXT I
930GCURSOR (WX,WY):GPRINT BB$
940RETURN
1000IF F=0 THEN RETURN
1005XF=X:YF=Y:WX=-8:WY=-8:F=F-1
1010I=1:A$=""
1020GCURSOR (108,47):GPRINT AH$(I):J=0
1030A$= INKEY$ :IF A$<>"" AND A$<>"F" THEN 1070
1040J=J+1:IF J=15 THEN 1060
1050GOTO 1030
1060I=I+1:IF I>8 THEN 1010
1065GOTO 1020
1070IF I=1 THEN VX=0:VY=-1
1080IF I=2 THEN VX=1:VY=-1
1090IF I=3 THEN VX=1:VY=0
1100IF I=4 THEN VX=1:VY=1
1110IF I=5 THEN VX=0:VY=1
1120IF I=6 THEN VX=-1:VY=1
1130IF I=7 THEN VX=-1:VY=0
1140IF I=8 THEN VX=-1:VY=-1
1150XF=XF+VX:YF=YF+VY
1160IF XF<0 OR XF>12 THEN 1300
1170IF YF<1 OR YF>6 THEN 1300
1175GCURSOR (WX,WY):GPRINT BB$
1180WX=XF*8:WY=YF*8-1
1190GCURSOR (WX,WY):GPRINT AH$(I)
1195IF EC$(XF,YF)<>" " THEN 1210
1196FOR J=1 TO 100:NEXT J
1200GOTO 1150
1210IF EC$(XF,YF)="S" THEN O=O+20:N=N-1:EC$(XF,YF)=" ":GOSUB 1320
1220IF EC$(XF,YF)="K" THEN VK=VK-1:B2=1
1300GCURSOR (108,47):GPRINT BB$:GCURSOR (WX,WY):GPRINT BB$
1310RETURN
1320FOR I=1 TO NS:IF XS(I)=XF AND YS(I)=YF THEN XS(I)=-1
1330NEXT I
1340RETURN
1500W2=W2-1
1510IF W2>0 THEN 1580
1520W2=20
1530GCURSOR (120+WA,47):GPRINT "00"
1540WA=WA-1
1550IF WA>0 THEN 1580
1560A$="G"
1570FOR WA=0 TO 24:GCURSOR (120+WA,47):GPRINT "FF":NEXT WA
1580RETURN
1600XC= RND (13)-1:YC= RND (6):BO=1:B1=1
1610IF EC$(XC,YC)<>" " THEN 1600
1620EC$(XC,YC)="T"
1630WX=XC*8:WY=YC*8-1
1640GCURSOR (WX,WY):GPRINT AE$
1641IF LV=9 THEN 1700
1650XC= RND (13)-1:YC= RND (6)
1660IF EC$(XC,YC)<>" " THEN 1650
1670EC$(XC,YC)="E"
1680WX=XC*8:WY=YC*8-1
1690GCURSOR (WX,WY):GPRINT AD$
1700RETURN
1800W= INT ( RND (10))
1805LOCATE 18,5:PRINT W
1810WX=X*8:WY=Y*8-1
1820IF W=2 OR W=4 OR W>6 THEN F=F+1:GCURSOR (WX,WY):GPRINT AH$(1):GOSUB 1900
1830IF W=3 OR W=5 OR W=8 THEN T=T+1:GCURSOR (WX,WY):GPRINT AL$:GOSUB 1900
1840IF W=5 OR W>8 THEN V=V+1:GCURSOR (WX,WY):GPRINT AZ$:GOSUB 1900
1850IF W=1 OR W=10 THEN B=B+1:GCURSOR (WX,WY):GPRINT AG$:GOSUB 1900
1860GCURSOR (WX,WY):GPRINT AK$:GOSUB 1900:O=O+(W*10)
1870B1=0
1880RETURN
1900FOR J=1 TO 500:NEXT J
1910RETURN
2000CLS :FOR I=1 TO 6:FOR J=1 TO 13
2010PRINT EC$(J,I);
2020NEXT J
2030PRINT
2040NEXT I
2050GOTO 2050
3000CLS
3010GCURSOR (2,10):GPRINT "010103F70FF70FF7060EFCF000000000"
3020GCURSOR (2,18):GPRINT "8040205F607F707FF1E17F2F007E7E407E7E007E7E0C187E7E007E7E427A7A007E7E525242007E7E427E7E007E7E0C187E7E00464E4A7A72"
3030GCURSOR (61,18):GPRINT "7E7E427E7E007E7E121206"
3040GCURSOR (7,28):GPRINT "40B0ECC2C3C7DECCC380"
3050GCURSOR (7,36):GPRINT "0030789959393C1C0F07007E7E087E76007E7E525246007E7E404040007E7E52524600027E7E02007E7E427E7E007E7E0C187E7E"
3060GCURSOR (61,28):GPRINT "0402FBFF03FEC0F03F0F03"
3070GCURSOR (61,36):GPRINT "80407F4F605FC0C38F1F78E000427E7E42007E7E0C187E7E007E7E427A7A"
3089GCURSOR (1,47):GPRINT "E040E000C00020E0200000E040A000E0E0A00020C020"
3090IF INKEY$ ="" THEN 3090
3100RETURN
4000A$= INKEY$ :IF A$="" THEN 4000
4010RETURN
4100WX=XR*8:WY=YR*8-1
4110GCURSOR (WX,WY):GPRINT AI$:WY=(YR+1)*8-1:GCURSOR (WX,WY):GPRINT AJ$
4120EC$(XR,YR)="K":EC$(XR,YR+1)="K"
4130RETURN
4200CLS :PRINT "VOUS AVEZ PERDU!"
4210PRINT "VOUS LAISSEZ ";O;" PIECES D'OR SUR PLACE"
4220IF INKEY$ ="" THEN 4220
4230GOTO 5
4300CLS
4310PRINT "VOUS AVEZ TUE LE ROI!"
4320PRINT "VOUS AVEZ ";O;" PIECES D'OR"
4330END
Ben
par Ben
14 août 2023 18:12
Forum : Frimer - brag - dernières acquisitions
Sujet : HP-28C
Réponses : 12
Vues : 2126

Re: HP-28C

L'étui est de couleur bordeaux. Par contre, je ne sais pas si c'est vraiment d'origine avec le HP-28, il n'y a que l'inscription Hewlett-Packard.
par Ben
12 août 2023 18:27
Forum : Frimer - brag - dernières acquisitions
Sujet : HP-28C
Réponses : 12
Vues : 2126

HP-28C

Salut,

Ca faisait longtemps que je n'avais plus rien trouvé d'intéressant. Je viens d'acheter une magnifique HP-28C, dans un état presque neuf, avec le boite d'origine et l’étui en cuir. Et toute une série de livres :-)

De quoi passer quelques bons week-ends :-)

Ben
par Ben
12 août 2023 18:18
Forum : Frimer - brag - dernières acquisitions
Sujet : SHARP PC-1500D
Réponses : 16
Vues : 4356

Re: SHARP PC-1500D

Une belle acquisition! Félicitations! :-)
par Ben
13 juil. 2023 17:02
Forum : Présentation
Sujet : Bonjour à tous
Réponses : 7
Vues : 8117

Re: Bonjour à tous

bienvenue :-)
par Ben
02 juil. 2023 15:15
Forum : Tous les Pockets
Sujet : Sharp CE-158X 'Extreme'
Réponses : 3
Vues : 1231

Re: Sharp CE-158X 'Extreme'

Elle est vraiment intéressante cette interface! :-)
par Ben
02 juil. 2023 15:10
Forum : Présentation
Sujet : Petit nouveau
Réponses : 8
Vues : 1416

Re: Petit nouveau

Salut, Bienvenue :-)
par Ben
31 mars 2023 13:30
Forum : Présentation
Sujet : [TEXAS] Petit hallo des Etats-Unis.
Réponses : 20
Vues : 4368

Re: [TEXAS] Petit hallo des Etats-Unis.

Bienvenue à toi
Tu as tous les modèles de TRS? Modèle 2, 12,16?
par Ben
20 mars 2023 16:22
Forum : Présentation
Sujet : Présentation
Réponses : 8
Vues : 2480

Re: Présentation

Salut à toi :-)
par Ben
20 mars 2023 15:36
Forum : Présentation
Sujet : un moyen vieux de plus
Réponses : 12
Vues : 2556

Re: un moyen vieux de plus

Salut à toi
par Ben
20 mars 2023 15:35
Forum : Présentation
Sujet : Présentation
Réponses : 8
Vues : 2484

Re: Présentation

Salut à toi
par Ben
12 mars 2023 15:20
Forum : Présentation
Sujet : Je ressors la bête
Réponses : 8
Vues : 1971

Re: Je ressors la bête

Bienvenue

Aller à la recherche avancée