Listing of file='OP2D040A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 463, program filename = 'OP2D040A'
0010 REM . OP2D040A, 00-00 (6/28/75), 12002
0100 DIM I$64,R2$10,A$3,C$(3,4)10
: PRINT "TESTING $GIO (0XYZ,11YZ,14YZ,15YZ,16YZ,17YZ)... ";
: FOR L=1TO 2
: $GIO(0131023203330434053506360737,R2$)
: IF R2$<>HEX(31323334353637000000)THEN 690
: A$="AB"
: R2$=" "
0170 FOR I=1TO 7
: BIN(A$)=I
: $GIOABC(A$,R2$)
: IF STR(R2$,I,1)<>"B"THEN 690
: STR(R2$,I)=" "
: IF STR(R2$,1,7)<>" "THEN 690
: $GIO(01471117014611160145111501441114014311130142111201411111,B$)C$
0240 IF B$<>HEX(41424344454647000000)THEN 690
: INIT(" ")C$()
: C$(2,3)=HEX(01FE1111)
: A$=" "
: FOR I=1TO 7
: $GIOABCDE0101(C$(2,3),C$())A$
: IF STR(C$(1,1),I,1)<>HEX(FE)THEN 690
: STR(C$(1,1),I,1)=" "
: IF STR(C$(1,1),2,6)<>" "THEN 690
0330 IF C$(1,2)<>" "THEN 690
: IF A$<>" "THEN 690
: ADDC(STR(C$(2,3),1,4),01)
: NEXT I
: R2$="1111113"
: $GIO(1411141214131414141514161417,R2$)
: IF R2$<>HEX(31313131313133080000)THEN 690
0400 $GIO(1411142214121421146614561465073114711477147601001411020014121421,R2$
)A$
: IF R2$<>HEX(00003131313131000000)THEN 690
: C$(1,2)="AAAAAAB"
: C$(1,1)=HEX(1411)
: FOR I=1TO 7
0450 $GIO(STR(C$(1,1),1,3),C$(1,2))C$()<>
: IF I=7THEN 490
: IF C$(1,2)<>HEX(41414141414142000000)THEN 690
: ADDC(STR(C$(1,1),1,2),01)
0490 NEXT I
: IF C$(1,2)<>HEX(41414141414142080000)THEN 690
: R2$=" "
: $GIO(01000201141203FF,R2$)
: IF R2$<>HEX(0001FF20202020080000)THEN 690
: R2$=" "
: $GIO(01000201151203FF,R2$)
0560 IF R2$<>HEX(00012020202020080000)THEN 690
: I$=HEX(010115110202152203031533040115141541040405051555060615660707157715
1201FF)
: $GIO(I$,R2$)
: IF R2$<>HEX(01020304050607080000)THEN 690
: R2$=" "
0610 $GIO(16000101020214121608030316010404,R2$)
: IF R2$<>HEX(01020320202020080000)THEN 690
: I$=HEX(17FF17F0170F01010202141217F703031708)
: R2$=" "
: $GIO(I$,R2$)
: IF R2$<>HEX(01020320202020080000)THEN 690
: NEXT L
0680 GOTO 700
0690 E(4)=E(4)+1
0700 IF E(4)>0THEN 730
: PRINT "OK"
: GOTO 750
0730 PRINT TAB(40);E(4);"ERRORS"
: E9$(P9)="NG"
0750 LOAD DC T#6,"OP5D010A"
0760 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"