image of READY prompt

Wang2200.org

Listing of file='OP2D020A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 215, program filename = 'OP2D020A'
0010 REM .   OP2D020A,   00-00 (06/28/75),   12002
   : DIM A$(16),B$1,C$5,D$17
   : PRINT "TESTING $TRAN ... ";
   : B$=HEX(FF)
   : FOR I=1TO 16
   : FOR J=1TO 16
   : STR(A$(I),J,1)=B$
   : ADD(B$,FF)
   : NEXT J
   : NEXT I
0150 FOR I=0TO 255
   : BIN(B$)=I
   : $TRAN(B$,A$())
   : IF VAL(B$)<>255-ITHEN 360
   : $TRAN(STR(B$,1,1),A$())3F
0170 IF VAL(B$)<>192+I-INT(I/64)*64THEN 360
   : NEXT I
   : X=16
   : $TRAN(A$(),A$()<6/6,X^2>)
   : FOR I=9TO 16
   : XOR (A$(I),FF)
   : NEXT I
   : GOSUB 330
   : $TRAN(C$,A$())00
   : IF C$<>HEX(0000000000)THEN 360
   : C$=HEX(F00F)
   : $TRAN(A$()<1,256>,C$)R
0230 IF STR(A$(1),16,1)<>HEX(F0)THEN 360
   : STR(A$(1),16,1)=HEX(0F)
   : GOSUB 330
0250 D$="12$.ABE/F-H465+"
   : $TRAN(A$(),D$)0F
   : FOR I=1TO 16
   : IF A$(I)<>D$THEN 360
   : NEXT I
   : D$="ABCDEFGHIJKLMN"
   : $TRAN(D$,STR(D$,2,15))R
   : IF D$<>"ABBDDFFHHJJLLNN"THEN 360
0290 C$=" "
   : $TRAN(D$,C$)R
   : IF D$<>"ABBDDFFHHJJLLNN"THEN 360
   : D$=" A BC  DE "
   : F$="ABCDEF"
   : $TRAN(F$,STR(D$,1,14))R
0310 IF F$<>"  C EFCCCCCCCCCC"THEN 360
   : GOTO 370
0330 B$=HEX(00)
   : FOR I=1TO 16
   : FOR J=1TO 16
   : IF STR(A$(I),J,1)<>B$THEN 360
   : ADD(B$,01)
   : NEXT J
   : NEXT I
   : RETURN
0360 E(3)=E(3)+1
   : GOTO 380
0370 PRINT "OK"
   : GOTO 390
0380 PRINT TAB(40);E(3);"ERRORS"
0390 LOAD DC T"OP2D030A"
0400 DEFFN'15
   : LOAD DC T"START"50