image of READY prompt

Wang2200.org

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

# Sector 201, program filename = 'OP2D020A'
0010 REM .     OP2D020A,  00-00 (6/28/75),   12002
0100 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
   : FOR I=0TO 255
   : BIN(B$)=I
   : $TRAN(B$,A$())
   : IF VAL(B$)<>255-ITHEN 630
   : $TRAN(STR(B$,1,1),A$())3F
0240 IF VAL(B$)<>192+I-INT(I/64)*64THEN 630
   : NEXT I
   : X=16
   : $TRAN(A$(),A$()<6/6,X^2>)
   : FOR I=9TO 16
   : XOR (A$(I),FF)
   : NEXT I
   : GOSUB 550
   : $TRAN(C$,A$())00
   : IF C$<>HEX(0000000000)THEN 630
   : C$=HEX(F00F)
   : $TRAN(A$()<1,256>,C$)R
0360 IF STR(A$(1),16,1)<>HEX(F0)THEN 630
   : STR(A$(1),16,1)=HEX(0F)
   : GOSUB 550
   : D$="12$.ABE/F-H465+"
   : $TRAN(A$(),D$)0F
   : FOR I=1TO 16
   : IF A$(I)<>D$THEN 630
   : NEXT I
   : D$="ABCDEFGHIJKLMN"
   : $TRAN(D$,STR(D$,2,15))R
0460 IF D$<>"ABBDDFFHHJJLLNN"THEN 630
   : C$=" "
   : $TRAN(D$,C$)R
   : IF D$<>"ABBDDFFHHJJLLNN"THEN 630
   : D$=" A BC  DE "
   : F$="ABCDEF"
   : $TRAN(F$,STR(D$,1,14))R
   : IF F$<>"  C EFCCCCCCCCCC"THEN 630
   : GOTO 640
0550 B$=HEX(00)
   : FOR I=1TO 16
   : FOR J=1TO 16
   : IF STR(A$(I),J,1)<>B$THEN 630
   : ADD(B$,01)
   : NEXT J
   : NEXT I
   : RETURN
0630 E(2)=E(2)+1
0640 IF E(2)>0THEN 670
   : PRINT "OK"
   : GOTO 690
0670 PRINT TAB(40);E(2);"ERRORS"
   : E9$(P9)="NG"
0690 LOAD DC T#6,"OP2D030A"
0700 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"