Différences
Cette page vous donne les différences entre la révision choisie et la version actuelle de la page.
| lib2p9 2008/11/05 13:44 | lib2p9 2008/11/05 13:48 version actuelle | ||
|---|---|---|---|
| Ligne 31: | Ligne 31: | ||
| ===== Listing ===== | ===== Listing ===== | ||
| + | |||
| + | Affichage sur 32 colonnes (présentation identique à celle affichée à l'écran). | ||
| <code:basic4gl> | <code:basic4gl> | ||
| 1 'OISAC' | 1 'OISAC' | ||
| - | 10 DEFSEG=0:R=PEEK1715+PEEK1716*256+PEEK1717*65536:P=PEEK1858+PEEK1859*256:DEFSEG=20480:L$=CHR$(13)+"DUMP ":FORJ=7TO12:L$=L$+CHR$(PEEK(P+J)):NEXT:GOSUB100:AD=X:S=PEEK(P+2)*4096:P=P+3:GOSUB100:AF=X:D=AF-AD | + | 10 DEFSEG=0:R=PEEK1715+PEEK1716* |
| - | 15 CLS:PRINT" [ OISAC 2008 ]-[ LIB -> P9 ]";L$;"(";D\128+1;") -> P9 (Y/N):";:INPUT@1;R$ | + | 256+PEEK1717*65536:P=PEEK1858+PE |
| - | 20 IFR$<>"Y"THEN99ELSEDEFSEG=0:P=R-150:GOSUB100:D9=X:IFD>FRE1THENPRINT"RAM < LIB":END | + | EK1859*256:DEFSEG=20480:L$=CHR$( |
| - | 30 P=1703:GOSUB100:DM=X:a=D9+D:X=a:GOSUB200:P=R-147:GOSUB200:P=R-165:GOSUB200:P=1706:GOSUB100:FM=X:I=FM-DM:X=D9+D+I:GOSUB200 | + | 13)+"DUMP ":FORJ=7TO12:L$=L$+CHR |
| - | 35 P=R-162:GOSUB200:P=1771:GOSUB100:A=X:f=DM-1:e=I+f:o=a+I-1:POKEP,204:POKEP+1,247:POKEP+2,5:GOSUB2090 | + | $(PEEK(P+J)):NEXT:GOSUB100:AD=X: |
| - | 40 POKEP,A MOD256:POKEP+1,A\256:POKEP+2,0 | + | S=PEEK(P+2)*4096:P=P+3:GOSUB100: |
| - | 45 FORI=0TOD-1:DEFSEG=S:B=PEEK(AD+I):DEFSEG=0:POKED9+I,B:IFI MOD128=0THENPRINT"*"; | + | AF=X:D=AF-AD |
| + | 15 CLS:PRINT" [ OISAC 2008 ]-[ | ||
| + | LIB -> P9 ]";L$;"(";D\128+1;") - | ||
| + | > P9 (Y/N):";:INPUT@1;R$ | ||
| + | 20 IFR$<>"Y"THEN99ELSEDEFSEG=0:P | ||
| + | =R-150:GOSUB100:D9=X:IFD>FRE1THE | ||
| + | NPRINT"RAM < LIB":END | ||
| + | 30 P=1703:GOSUB100:DM=X:a=D9+D:X | ||
| + | =a:GOSUB200:P=R-147:GOSUB200:P=R | ||
| + | -165:GOSUB200:P=1706:GOSUB100:FM | ||
| + | =X:I=FM-DM:X=D9+D+I:GOSUB200 | ||
| + | 35 P=R-162:GOSUB200:P=1771:GOSUB | ||
| + | 100:A=X:f=DM-1:e=I+f:o=a+I-1:POK | ||
| + | EP,204:POKEP+1,247:POKEP+2,5:GOS | ||
| + | UB2090 | ||
| + | 40 POKEP,A MOD256:POKEP+1,A\256: | ||
| + | POKEP+2,0 | ||
| + | 45 FORI=0TOD-1:DEFSEG=S:B=PEEK(A | ||
| + | D+I):DEFSEG=0:POKED9+I,B:IFI MOD | ||
| + | 128=0THENPRINT"*"; | ||
| 50 NEXT | 50 NEXT | ||
| 99 BEEP:END | 99 BEEP:END | ||
| 100 X=PEEKP+PEEK(P+1)*256:RETURN | 100 X=PEEKP+PEEK(P+1)*256:RETURN | ||
| - | 200 POKEP,X MOD256:POKEP+1,X\256:RETURN | + | 200 POKEP,X MOD256:POKEP+1,X\256 |
| + | :RETURN | ||
| </code> | </code> | ||
lib2p9.txt · Dernière modification: 2008/11/05 13:48 par chrix · [Anciennes révisions]
