Listing of file='\$P/U4' on disk='vmedia/732-0050A.wvd.zip'
# Sector 350, program filename = '$P/U4'
0020 PRINT AT(4,0);"$PACK (DELIMITER FORM).................. <--- TESTING"
0030 DIM B$2,E$64,F$(64)1,B$(64,2)1,X(5),L$(3)3
0040 FOR J=1TO 2
: D$=HEX(002C)
0050 X=1
: $PACK(D=D$)B$FROMX
: IF B$<>" 1"THEN 310
0060 INIT(00)C$
: D$=HEX(01FF)
0070 $PACK(D=D$)C$FROMX
: IF STR(C$,1,2)<>" 1"THEN 310
0080 IF STR(C$,3)<>HEX(0000000000000000000000000000)THEN 310
0090 X=-1234567890123
: D$=HEX(FF0200)
: INIT(00)C$
0100 $PACK(D=STR(D$,2))STR(C$,2,14)FROMX
0110 IF STR(C$,1,1)<>HEX(00)THEN 310
0120 IF STR(C$,2,14)<>"-1234567890123"THEN 310
0130 IF STR(C$,16,1)<>HEX(00)THEN 310
0140 X=-1.23456789E-52
: INIT(41)C$
: D$=HEX(0300)
0150 $PACK(D=D$)C$FROMX
: IF C$<>"-1.23456789E-52A"THEN 310
0160 $PACK(D=D$)STR(C$,1,1)FROMSTR(C$,2,1)
0170 IF C$<>"11.23456789E-52A"THEN 310
0180 FOR I=1TO 64
: BIN(STR(E$,I,1))=I
: NEXT I
0190 $PACK(D=D$)F$()FROME$
0200 FOR I=1TO 64
: IF VAL(F$(I))<>ITHEN 310
: NEXT I
0210 D$=HEX(002C)
: $PACK(D=D$)B$()FROMF$()
0220 FOR I=1TO 63
: IF B$(I,1)<>F$(I)THEN 310
: NEXT I
0230 IF B$(64,1)<>HEX(40)THEN 310
: IF B$(64,2)<>" "THEN 310
0240 E$=" "
: X(1)=1
: X(2)=12
: X(3)=123
: X(4)=1234
: X(5)=12345
0250 $PACK(D=D$)E$FROMX()
0260 IF E$<>" 1, 12, 123, 1234, 12345"THEN 310
0270 L$(1)="A"
: L$(2)="BC"
: L$(3)="DEF"
: C$="YES"
: D$=HEX(005A)
0280 $PACK(D=D$)E$FROMC$,X(),STR(D$,2,1),X(1),L$(),I
0290 IF E$<>"YES Z 1Z 12Z 123Z 1234Z 12345ZZZ 1ZA ZBC ZDEFZ 63"TH
EN 310
0300 NEXT J
: GOTO 330
0310 E(3)=E(3)+1
0320 PRINT AT(4,41,15);E(3);"ERRORS"
: GOTO 340
0330 IF E(3)>0THEN 320
: PRINT AT(4,41,15);"OK"
0340 LOAD DC T"$P/U5"