image of READY prompt

Wang2200.org

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"