image of READY prompt

Wang2200.org

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