Listing of file='BDIAG28' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 1028, program filename = 'BDIAG28' 0020 PRINT AT(13,32);"HEXPACK/UNPACK. <-- TESTING", 0080 S=SPACE 0090 DIM A$22,B$11,D$16,E$1,F$3,G$2 0100 A$="0123456789ABCDEF:;<=>?" : HEXPACKB$FROMA$ : IF B$<>HEX(0123456789ABCDEFABCDEF)THEN 8990 0110 C$="5A" : FOR I=1TO 11 : A$=ALL(FF) : HEXPACKSTR(A$,I,1)FROMC$ : IF POS(A$=5A)<>ITHEN 8990 : STR(A$,I,1)=HEX(FF) : IF POS(A$<>FF)<>0THEN 8990 : NEXT I 0120 C$=":;" : B$=ALL(FF) : HEXPACKB$FROMC$ : IF B$<>HEX(ABFFFFFFFFFFFFFFFFFFFF)THEN 8990 0210 B$=HEX(0123456789ABCDEF) : HEXUNPACKSTR(B$,1,8)TO D$ : IF D$<>"0123456789ABCDEF"THEN 8990 0220 E$=HEX(5A) : F$="ABC" : HEXUNPACKE$TO F$ : IF F$<>"5AC"THEN 8990 0230 FOR I=0TO 255 : E$=BIN(I) : HEXUNPACKE$TO G$ : HEXPACKE$FROMG$ : IF VAL(E$)<>ITHEN 8990 : NEXT I 8980 I=SPACE : IF I=STHEN 9000 8990 E(28)=E(28)+1 9000 PRINT AT(13,48,16); : IF E(28)=0THEN PRINT "OK"; : ELSE PRINT E(28);"ERRORS" 9010 LOAD DC T"BDIAG29 "