Re

voici déja quelques deulignes

(souvenir souvenir)
* Applause
0 FORT=1TO30: H=RND(1)*32: W=RND(1)*4+10: SOUND4,H,0: PLAY0,1,1,750: WAITW: NEXT
(Hebdogiciel no 73, March 8, 1985)
* Windows
10 LORES0: PRINT@0,0;: POKE#2F2,128: LIST: PRINT: PRINT: INPUT"F (5-19)";F: H=27-F: PRINT@0,0;
20 DOKE632,48040+H*40: DOKE634,48E3+H*40: DOKE636,F*40: POKE638,F: CLS: LIST: LIST
(Hebdogiciel no 84, May 25, 1985)
* Bytes free (Atmos version) screen
0 DATA20,B0,CC,A5,A2,38,E5,A0,AA,A5,A3,E5,A1,20,C5,E0,A9,88, A0,ED,20,B0,CC,60
1 FORT=400TO423: READX$: X=VAL("#"+X$): POKET,X: NEXT: DOKE#1B,400
* Funny background screen
0 INPUT"ENTER 32<N<96";N: FORT=0TO7: POKE#B500+T,PEEK(#B800+N*8+T): NEXT
1 CALL#E5F5: INK2: PAPER0: REM CALL#E563 for ORIC-1
and try N=53, 44, 85 and 32.
* Chronometer
0 DOKE#276,0: REPEAT: UNTILKEY$<>"": A=(#FFFF-DEEK(#276))/100: C=A-INT(A)
1 C=INT(C*100+.5): M%=INT(A)/60: S=INT(A)-M%*60: PRINTM%"min"S"sec"C"cent",,A
* Clouds screen
0 HIRES: CURSET100,30,1: PAPER4: INK7: FORT=1TO3: FORR=1TO8+RND(1)*7: CIRCLER,1
1 NEXT: CURMOV4^T+6/T,RND(1)*5,3: NEXT
* Waves sound
0 PLAY 0, N, 4, 6000 (with N odd)
* Banner
1 T$="*** TITLE (20 cha.) ": T$=T$+T$+T$+T$: FORX=1TO40: B$=RIGHT$(T$,X)
2 PLOT0,0,B$: WAIT9: NEXT: FORX=40TO1STEP-1: C$=MID$(T$,X,40): PLOT0,0,C$: WAIT9: NEXT
* Jingle
1 Y=3: FORT=1TO6: X=INT(RND(1)*6+3): IFX=4THENX=12: IFX=6THENX=10: IFX=7THENY=4
2 MUSIC1,Y,N,0: PLAY1,0,1,500: WAIT10: NEXT: WAIT100: GOTO1
* Protection
1 DOKE#BFE0,#820: DOKE#BFE2,#4CC7: DOKE#BFE4,#C8C1: DOKE#1B,#BFE0: C=RND(1)*7
2 PLOT2,10,C: PLOT4,10,"This program is over protected!": END
Bibliothèque de documentation oric :
http://www.defence-force.org/computing/oric/library/index.htmProgrammation sur oric :
http://www.defence-force.org/computing/oric/coding/index.htmL'hardware de l'oric :
http://www.defence-force.org/computing/oric/hardware/index.htmPour finir une petite page avec plusieur liens qui peuvent être utiles. :
http://andre.cheramy.net/liens/software.htmSinon, sur pc (windows) je n'ai trouvé que euphoric, mais j'ai vu qu'il existait aussi sur des ému pour accorn, amiga atari, pocketpc et palm.
Voilà, si tu as besoin d'autres docs, dit moi et je verrai pour les scans si besoin.
Cordialement