Listing of file='\$P/U11' on disk='vmedia/732-0050A.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"