PC1 DEGAS ELITE

par **Shadow272** Sam 21 Nov - 11:29

PC1 DEGAS ELITE

[Vous devez être inscrit et connecté pour voir ce lien] :

Code:: FILESELECT "\*.PC1","",f$ OPEN "i",#1,f$,1 l=LOF(#1) c$=SPACE$(32) SEEK #1,2 BGET #1,VARPTR(c$),32 CLOSE l%=l-34 OPEN "R",#1,f$,l FIELD #1,l AS ada$ GET #1,1 CLOSE add%=VARPTR(ada$)+34 ada%=XBIOS(2) HIDEM VOID XBIOS(6,L:VARPTR(c$)) GOSUB unpack(add%,ada%,l%) ~INP(2) ' ' PROCEDURE unpack(add%,ada%,l%) FOR y%=0 TO 199 FOR p%=0 TO 3 cl%=-1 REPEAT cde%=PEEK(add%) ADD cde%,256*BTST(cde%,7) FOR lo%=0 TO ABS(cde%) INC cl% SUB add%,(cde%>=0) OR (lo%=0) POKE ada%+y%*160+p%*2+DIV(cl%,2)*8-ODD(cl%),PEEK(add%) ! One line... NEXT lo% INC add% UNTIL cl%=39 NEXT p% NEXT y% RETURN