Wang 2200 Virtual Media

Listing of file='WCPD250A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 144, program filename = 'WCPD250A'
0010 REM .     WCPD250A,  00-00 (6/28/75),   12002
0100 DIM A$1,B$1,C$64
   : PRINT " TESTING VAL,BIN .....................";
   : A$=HEX(00)
   : FOR I=0TO 255
   : IF VAL(A$)<>ITHEN 260
   : BIN(B$)=I
   : IF B$<>A$THEN 260
   : ADD(A$,01)
   : NEXT I
   : FOR I=1TO 64
   : BIN(STR(C$,I,1))=I
   : IF I<>(VAL(STR(C$,I)))+1-1THEN 260
   : NEXT I
0230 IF E(6)<>0THEN 280
   : PRINT "OK"
   : GOTO 290
0260 E(6)=E(6)+1
   : E9$(P9)="NG"
0280 PRINT TAB(40);E(6);"ERRORS"
0290 LOAD DC T#6,"WCPD260A"
0300 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"