  
			
				DEULIGNE 
 
Programmes exhumés de la revue Hebdogiciel par Yann Legrand 
 
 
 
 
 
Vous trouverez ci-dessous quelques programmes en deux lignes extraits de la revue Hebdogiciel. Lorsque cela s'avère applicable, une copie d'écran de ce que réalise le programme est jointe au listing. 
 
 
 
Hebdogiciel N°87 - 14 juin 1985 
 
10 T=#BD80:X=1:FORI=16TO23:FORJ=0TO560STEPX 
 
20 POKET+J,I:POKET-J,PEEK(T+J+X):NEXT:X=INT(RND(1)*30)+1:NEXT:GOTO10 
 
 
 
1 DOKE#A2,49080 
 
2 GETR$:GOTO2 
 
 
 
Hebdogiciel N°88 - 21 juin 1985 
 
 
 
0 A$="78A930A2069D02BCCAD0FAA206FE02BCBD02BCC939D0F6A9309D02BCCABD02BCC939F0F3" 
 
1 A$=A$+"FE02BC4C1B04" :FORI=1TO96STEP2: POKEI/2+#410,VAL("#"+MID$(A$,I,2)):NEXT 
 
 
 
Le listing ci-dessous ne fonctionne que sur un véritable Oric connecté à un moniteur via la prise péritel. 
 
1 PRINT"Au bip secouez votre oric" :WAIT100:SOUND1,60,15:SOUND1,0,0 
 
2 PRINTCHR$(27);"Z";CHR$(27);"Y";:GOTO2 
 
 
 
Hebdogiciel N°93 - 26 juillet 1985 
 
 
 
1 FORI=#E43ETO#E436STEP-1 :PRINT CHR$(PEEK(I)OR#40)AND#7F);:NEXTI 
 
 
 
Hebdogiciel N°94 à 97 - 02 août 1985 
 
 
 
1 HIRES:TEXT:FORI=46000TO46335:POKEI,255:NEXT:FORI=46352TO46384:POKEI,0:NEXT 
 
2 POKE704,3:FORI=1TO30:POKE48000,0:CURSETI,I,3:CIRCLEI,1:POKE48000,31:PRINTI;:NEXT 
 
 
 |  
			 
			  
		 |