image of READY prompt

Wang2200.org

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

# Sector 152, program filename = 'OP5D060A'
0010 REM .     OP5D060A,  00-00 (6/28/75),   12002
0100 DIM A$(255)1,B$(255)2,T$1,C$(2)2,Q$(1,1)64,Q$64,F$(6,4)
   : DIM P$(4,5)2,P$2,R$(1,1)2,Y1$19
   : PRINT "MAT SEARCH",
   : FOR I=0TO 254
   : BIN(A$(I+1))=I
   : NEXT I
   : GOSUB '40(0)
   : GOSUB '40(254)
   : GOSUB '40(100)
   : FOR I=1TO 20
   : GOSUB '40(I)
   : NEXT I
0220 T$=HEX(FF)
   : MAT SEARCHA$(),=STR(T$,1,1)TO C$()STEP 1
   : IF C$(1)<>HEX(0000)THEN 1630
   : IF C$(2)<>" "THEN 1630
   : GOSUB '41(0)
   : GOSUB '41(6)
   : GOSUB '41(253)
   : GOSUB '42(1)
   : GOSUB '42(17)
   : GOSUB '43(254)
   : GOSUB '43(245)
   : GOSUB '43(1)
   : GOSUB '44(253)
   : GOSUB '44(200)
   : T$=HEX(FE)
0370 MAT SEARCHA$(),<>T$TO B$()
   : X=253
   : GOSUB 1530
   : Q$="A12345A"
   : FOR I=1TO 6
   : FOR J=1TO 4
   : F$(I,J)=Q$
   : ADD(STR(Q$,1,1),01)
   : ADD(STR(Q$,7,1),01)
   : NEXT J
   : NEXT I
   : Y1$="G12345G"
   : MAT SEARCHF$(),=STR(Y1$,1,7)TO P$()
   : IF P$(1,1)<>HEX(0061)THEN 1630
0510 IF P$(1,2)<>HEX(0000)THEN 1630
   : MAT SEARCHF$(),=STR(Y1$,2,5)TO P$()
   : P$=HEX(0002)
   : GOSUB '51(4)
   : Y1$="F12345F"
   : MAT SEARCHF$(),>STR(Y1$,1,7)TO R$()
   : IF R$(1,1)<>HEX(0061)THEN 1630
   : INIT(FF)C$()
   : Y1$=" "
0600 MAT SEARCHA$()<80,0>,>STR(Y1$,1,1)TO C$()
   : IF C$(1)<>HEX(0000)THEN 1630
   : IF C$(2)<>HEX(FFFF)THEN 1630
   : Y1$=HEX(10)
   : FOR I=1TO 17
   : INIT(FF)C$()
   : MAT SEARCHA$()<I,18-I>,=Y1$TO C$()
   : IF STR(C$(1),1,1)<>HEX(00)THEN 1630
   : IF C$(2)<>HEX(0000)THEN 1630
0690 IF VAL(STR(C$(1),2,1))<>18-ITHEN 1630
   : NEXT I
   : INIT("X")A$()
   : Y1$="XXX"
   : MAT SEARCHA$(),=STR(Y1$,1,3)TO B$()
   : P$=HEX(0001)
   : FOR I=1TO 253
   : IF B$(I)<>P$THEN 1630
   : ADDC(P$,01)
   : NEXT I
   : IF B$(254)<>HEX(0000)THEN 1630
   : F$(6,2)=F$(1,1)
0810 F$(6,3)=F$(1,2)
   : F$(6,4)=F$(1,3)
   : Y1$="  B12345B         C"
   : MAT SEARCHF$(),=Y1$TO B$()
   : IF B$(1)<>HEX(000F)THEN 1630
   : IF B$(2)<>HEX(015F)THEN 1630
   : IF B$(3)<>HEX(0000)THEN 1630
   : INIT(FF)A$(),B$()
   : Y1$=" "
0900 MAT SEARCHA$()<250,6>,>=STR(Y1$,1,4)TO B$()
   : IF B$(1)<>HEX(0001)THEN 1630
   : IF B$(2)<>HEX(0002)THEN 1630
   : IF B$(3)<>HEX(0003)THEN 1630
   : IF B$(4)<>HEX(0000)THEN 1630
   : IF B$(5)<>HEX(FFFF)THEN 1630
   : INIT(FF)F$(),B$()
   : Q$=HEX(FFFE)
0980 MAT SEARCHF$(),<=Q$TO B$()STEP 3
   : IF B$(1)<>HEX(0000)THEN 1630
   : IF B$(2)<>HEX(FFFF)THEN 1630
   : Q$=HEX(FF)
   : FOR J=2TO 20
   : INIT(FF)B$()
   : MAT SEARCHF$(),=Q$TO B$()STEP J
   : I=0
   : P$=HEX(0001)
   : BIN(T$)=J
   : FOR K=1TO 384STEP J
   : I=I+1
   : NEXT K
   : IF B$(I+1)<>HEX(0000)THEN 1630
1120 IF B$(I+2)<>HEX(FFFF)THEN 1630
   : NEXT J
   : INIT(30)B$()
   : B$(255)="12"
   : Q$="11"
   : FOR S=1TO 20STEP 2
   : MAT SEARCHB$()<S,511-S>,>Q$TO C$()STEP 2
   : C=VAL(C$(1))*256+VAL(STR(C$(1),2))
   : IF C<>510-STHEN 1630
   : IF C$(2)<>HEX(0000)THEN 1630
   : NEXT S
   : GOTO 1640
1240 DEFFN'51(I1)
   : FOR I=1TO I1
   : FOR J=1TO 5
   : IF P$(I,J)<>P$THEN 1630
   : ADDC(P$,10)
   : NEXT J
   : NEXT I
   : RETURN
1320 DEFFN'43(X)
   : BIN(T$)=X
   : MAT SEARCHA$(),>=T$TO B$()STEP 2/2
1350 FOR J=1TO 255-X
   : IF VAL(B$(J))*256+VAL(STR(B$(J),2))<>J+XTHEN 1630
   : NEXT J
   : IF B$(J+1)<>HEX(0000)THEN 1630
   : RETURN
1400 DEFFN'44(X)
   : BIN(T$)=X-1
   : MAT SEARCHA$(),>T$TO B$()
   : GOTO 1350
1440 DEFFN'40(X)
   : BIN(T$)=X
   : MAT SEARCHA$(),=T$TO B$()
   : IF VAL(B$(1))*256+VAL(STR(B$(1),2))<>X+1THEN 1630
   : IF B$(2)<>HEX(0000)THEN 1630
   : RETURN
1500 DEFFN'41(X)
   : BIN(T$)=X
   : MAT SEARCHA$(),<=T$TO B$()
1530 FOR J=1TO X+1
   : IF VAL(B$(J))*256+VAL(STR(B$(J),2))<>JTHEN 1630
   : NEXT J
   : IF B$(X+2)<>HEX(0000)THEN 1630
   : RETURN
1580 DEFFN'42(X)
   : BIN(T$)=X
   : X=X-1
   : MAT SEARCHA$(),<T$TO B$()
   : GOTO 1530
1630 E(7)=E(7)+1
1640 IF E(7)>0THEN 1670
   : PRINT "OK"
   : GOTO 1690
1670 PRINT TAB(40);E(7);"ERRORS"
   : E9$(P9)="NG"
1690 LOAD DC T#6,"OP5D070A"
1700 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"