*** 088
1 MEMORY &AB79:FOR I=1 TO 3:READ A:POKE &AC00+I,A:NEXT I:FOR I=1 TO 5:READ A:POKE &AB79+I,A:NEXT I:DATA &C3,&7A,&AB,&AF,&32,&45,&AE,&C9
CLS:?"TYPE FICHIER:",CHR$(PEEK(&B819) XOR 36):?"ADRESSE CHARGEMENT:",PEEK(&B81D)*256+PEEK(&B81C)-(PEEK(&B020)*256+PEEK(&B81F)):?"LONGEUR FICHIER:",PEEK(&B820)*256+PEEK(&B81F):?"POINT D'ENTREE:",PEEK(&B822)*256+PEEK(&B821)
->Fonctionne sur un CPC 464 sans lecteur de disquette. (version CDT uniquement)