Listing of file='WCPD280A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 671, program filename = 'WCPD280A' 0010 REM . WCPD280A, 00-00 (6/28/75), 12002 0100 DIM A$64,B$(64)3,N(64),C$(64)2 : PRINT " TESTING PACK,UNPACK ................."; : FOR I=-10TO 21.5STEP .5 : A=I*2+21 : N(A)=I : PACK(##)STR(A$,A,1)FROMI : PACK(+##.##)B$(A)FROMI : NEXT I : PACK(-##.#)C$()FROMN() 0190 UNPACK(+##.#)C$()TO N() : FOR I=-10TO 21.5STEP .5 : A=I*2+21 : UNPACK(##)STR(A$,A)TO X : IF X<>INT(ABS(I))THEN 450 : UNPACK(+##.##)B$(A)TO X : IF X<>ITHEN 450 : IF N(A)<>ITHEN 450 : NEXT I : PACK(##.##^^^^)A$FROM0,-.01,12345,12.3E-5 : UNPACK(##.##^^^^)A$TO X,Y,I,A 0300 IF X<>0THEN 450 : IF Y<>10000THEN 450 : IF I<>12340THEN 450 : IF A<>12.3E+5THEN 450 : PACK(-####.#########^^^^)B$()FROMX,Y,I,A,-1234567890123E+12,.12345678E-20 0350 UNPACK(+####.#########^^^^)B$()TO N(1),N(2),N(3),N(4),N(5),N(6) : IF N(1)<>XTHEN 450 : IF N(2)<>YTHEN 450 : IF N(3)<>ITHEN 450 : IF N(4)<>ATHEN 450 : IF N(5)<>-1234567890123E+12THEN 450 : IF N(6)<>.12345678E-20THEN 450 0420 IF E(9)<>0THEN 470 : PRINT "OK" : GOTO 480 0450 E(9)=E(9)+1 : E9$(P9)="NG" 0470 PRINT TAB(40);E(9);"ERRORS" 0480 LOAD DC T#6,"WCPD290A" 0490 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"