image of READY prompt

Wang2200.org

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

# Sector 349, program filename = 'OP2D030A'
0010 REM .     OP2D030A,  00-00 (6/28/75),   12002
0100 DIM A$(3,4)5,B$(1)64,C$64,D$20,D$(102,2)20
   : PRINT "TESTING 'A$()<A,B,C>'... ";
   : T$="A  A"
   : $TRAN(A$(),T$)R
   : GOSUB 480
   : $TRAN(A$()<>,T$)R
   : GOSUB 480
   : $TRAN(A$()<1,>,T$)R
   : GOSUB 480
   : $TRAN(A$()<,60,>,T$)R
0200 GOSUB 480
   : $TRAN(A$()<,60,1>,T$)R
   : GOSUB 480
   : FOR I=1TO 64
   : B$(1)=" "
   : $TRAN(B$()<,I,>,T$)R
   : IF LEN(B$(1))<>ITHEN 550
   : NEXT I
   : INIT("A")C$,D$
   : E$=HEX(00)
   : FOR I=2TO 31
   : B$(1)=" "
   : BIN(STR(E$,2))=I
   : $TRAN(B$()<E$,E$>,T$)R
0340 IF STR(B$(1),1,I-1)<>" "THEN 550
   : IF STR(B$(1),I,I)<>STR(C$,1,I)THEN 550
   : IF STR(B$(1),2*I+1)<>" "THEN 550
   : NEXT I
   : $TRAN(D$()<100/5+1,20*202,>,T$)R
   : IF D$(1,1)<>" "THEN 550
   : IF D$(102,2)<>" "THEN 550
   : D$(1,1),D$(102,2)=D$
0420 FOR I=1TO 102
   : FOR J=1TO 2
   : IF D$(I,J)<>D$THEN 550
   : NEXT J
   : NEXT I
   : GOTO 560
0480 FOR I=1TO 3
   : FOR J=1TO 4
   : IF A$(I,J)<>"AAAAA"THEN 550
   : NEXT J
   : NEXT I
   : INIT(" ")A$()
   : RETURN
0550 E(3)=E(3)+1
0560 IF E(3)>0THEN 590
   : PRINT "OK"
   : GOTO 610
0590 PRINT TAB(40);E(3);"ERRORS"
   : E9$(P9)="NG"
0610 LOAD DC T#6,"OP2D040A"
0620 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"