Listing of file='CIO*180' on disk='vmedia/731-0110A.wvd.zip'
# Sector 346, program filename = 'CIO*180'
0010 REM CIO*180, 00-00 (12/16/82), 12014,MEMORY TEST SEND, COPYRIGHT WANG LAB
S,1976
0100 GOTO 9900
0130 COM Y0$(1)2,Y1$(8)62,Y8,Y9,Y
4000 A2$(2)=Y0$(1)
: CONVERT Y+1TO STR(Y1$(1),6,5),(#####)
: MAT COPY Y1$()<1,Y8>TO O$()<1,Y8>
: Y=Y+1
: PRINT D$(2);"SENDING RECORD";Y;" OF ";Y9
: IF Y>=Y9THEN 4035
: RETURN
4035 E$=HEX(01)
: OR (A2$(1),05)
: RETURN
4100 PRINT D$(2);TAB(63);HEX(0D);
: INPUT "RECORD LENGTH",Y8
: IF Y8<0THEN 4100
: IF Y8>255THEN 4100
: GOSUB 4170
: PRINT D$(2);TAB(63);HEX(0D);
: INPUT "ENTER NUMBER OF RECORDS TO SEND",Y9
: Y9=INT(Y9)
: PRINT HEX(0C);TAB(63);HEX(0D);
: Y=0
: RETURN
4170 FOR Y9=1TO 8
: Y1$(Y9)="ATHE.QUICK.BROWN.FOX.JUMPED.OVER.THE.LAZY.DOGS.BACK.123456789."
: NEXT Y9
: MAT COPY Y1$()<1,Y8>TO O$()<1,Y8>
: Y0$(1)=HEX(0000)
: BIN(STR(Y0$(1),2))=Y8
: RETURN