Listing of file='WCPD280A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 525, program filename = 'WCPD280A' 0010 REM . WCPD280A, 00-00 (06/28/75), 12002 : 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 0140 PACK(+##.##)B$(A)FROMI : NEXT I : PACK(-##.#)C$()FROMN() : UNPACK(+##.#)C$()TO N() 0170 FOR I=-10TO 21.5STEP .5 : A=I*2+21 : UNPACK(##)STR(A$,A)TO X : IF X<>INT(ABS(I))THEN 330 : UNPACK(+##.##)B$(A)TO X : IF X<>ITHEN 330 : IF N(A)<>ITHEN 330 : NEXT I : PACK(##.##^^^^)A$FROM0,-.01,12345,12.3E-5 : UNPACK(##.##^^^^)A$TO X,Y,I,A 0240 IF X<>0THEN 330 : IF Y<>10000THEN 330 : IF I<>12340THEN 330 : IF A<>12.3E+5THEN 330 0260 PACK(-####.#########^^^^)B$()FROMX,Y,I,A,-1234567890123E+12,.12345678E-20 : UNPACK(+####.#########^^^^)B$()TO N(1),N(2),N(3),N(4),N(5),N(6) : IF N(1)<>XTHEN 330 : IF N(2)<>YTHEN 330 0290 IF N(3)<>ITHEN 330 : IF N(4)<>ATHEN 330 : IF N(5)<>-1234567890123E+12THEN 330 0310 IF N(6)<>.12345678E-20THEN 330 : PRINT "OK" : GOTO 350 0330 E(1)=E(1)+1 0340 PRINT TAB(40);E(1);"ERRORS" 0350 LOAD DC T"WCPD290A" 0360 DEFFN'15 : LOAD DC T"START"50