image of READY prompt

Wang2200.org

Listing of file='CIO*180' on disk='vmedia/701-2358C.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