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
|
|