image of READY prompt

Wang2200.org

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 "