image of READY prompt

Wang2200.org

Listing of file='\$P/U11' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 1009, program filename = '$P/U11'
0020 PRINT AT(11,0);"$FORMAT................................. <--- TESTING"
0030 DIM F$2,G$124
0040 $FORMATF$=SKIP 1
   : IF F$<>HEX(0001)THEN 9000
   : $FORMATF$=SKIP 255
   : IF F$<>HEX(00FF)THEN 9000
0050 G$=" "
   : $FORMATG$=SKIP 01,SKIP 02,SKIP 49,SKIP 128,SKIP 255
   : IF G$<>HEX(000100020031008000FF)THEN 9000
0060 G$=" "
   : $FORMATG$=F1,F02,F003,F127,F255
   : IF G$<>HEX(100110021003107F10FF)THEN 9000
0070 G$=" "
   : $FORMATG$=A001,A255,A002,A016
   : IF G$<>HEX(A001A0FFA002A010)THEN 9000
0080 G$=" "
   : $FORMATG$=I001,I255,I1.5,I7.8,I10.2,I1.1,I32.15
   : IF G$<>HEX(200120FF25012807220A21012F20)THEN 9000
0090 G$=" "
   : $FORMATG$=D001,D255,D1.5,D7.8,D10.2,D1.1,D32.15
   : IF G$<>HEX(300130FF35013807320A31013F20)THEN 9000
0100 G$=" "
   : $FORMATG$=U001,U255,U1.5,U7.8,U10.2,U1.1,U32.15
   : IF G$<>HEX(400140FF45014807420A41014F20)THEN 9000
0110 G$=" "
   : $FORMATG$=P001,P255,P1.5,P7.8,P10.2,P1.1,P32.15
   : IF G$<>HEX(600160FF65016807620A61016F20)THEN 9000
0120 G$=" "
   : $FORMATG$=P+001,P+255,P+1.5,P+7.8,P+10.2,P+1.1,P+32.15
   : IF G$<>HEX(500150FF55015807520A51015F20)THEN 9000
0130 G$=" "
   : $FORMATSTR(G$,2)=SKIP 1,F002,I003,D004,U005,P+006,P07,A8
   : IF G$<>HEX(200001100220033004400550066007A008)THEN 9000
8990 GOTO 9020
9000 E(10)=E(10)+1
9010 PRINT AT(11,41,15);E(10);"ERRORS"
   : GOTO 9030
9020 IF E(10)>0THEN 9010
   : PRINT AT(11,41,15);"OK"
9030 LOAD DC T"$P/UEND"