Listing of file='CIO*110' on disk='vmedia/731-0111.wvd.zip'
# Sector 316, program filename = 'CIO*110'
0010 REM CIO*110, 09/29/81, PRINTER OUTPUT, COPYRIGHT WANG LABS,1978
0100 GOTO 9900
: ON AGOTO 140,3000,6259,6260
0140 COM X9$(3)50,X8,X9
3000 ON VAL(A1$(2))-1GOTO 3390,3390
: B$=STR(A1$(3),2)
: IF B$="@"THEN 3510
: $GIO#5(A200,Z$)I$()<,A1$(5)>
3030 ON VAL(B$)-46GOTO 100,3050,3060,3060,3060,3060,3060,3060,3060,3060,3060,3
040,3040,3040,3040,3040,3040,3510,3140,3170,3170,3170,3170,3170,3170,3170
,3170,3170,3170,3170
3040 STOP "ERROR -- 3040"
3050 X8=X8+1
3060 IF X8+VAL(B$)-48>=X9THEN 3140
: $GIO#5(400D,Z$)
: IF B$<"2"THEN 3120
: FOR A=1TO VAL(B$)-49
: $GIO#5(400A,Z$)
: NEXT A
3120 X8=X8+VAL(B$)-48
: RETURN
3140 X8=1
: $GIO#5(400D400C,Z$)
: RETURN
3170 IF X8>149THEN 3270
: MAT SEARCHX9$()<X8+1,150-X8>,=B$TO A1$()
: IF A1$(1)=HEX(0000)THEN 3270
: X8=X8+VAL(STR(A1$(1),2))
: IF X8>=X9THEN 3140
: $GIO#5(400D,Z$)
: IF A1$(1)=HEX(0001)THEN 100
: FOR A=1TO VAL(STR(A1$(1),2))-1
: $GIO#5(400A,Z$)
: NEXT A
: RETURN
3270 MAT SEARCHX9$(),=B$TO A1$()
: IF A1$(1)=HEX(0000)THEN 3360
: $GIO#5(400D400C,Z$)
: X8=VAL(STR(A1$(1),2))
: IF X8=1THEN 100
: FOR A=1TO X8-1
: $GIO#5(400A,Z$)
: NEXT A
: RETURN
3360 IF B$<>"B"THEN 100
: $GIO#5(4009,Z$)
: RETURN
3390 IF A1$(5)=HEX(0000)THEN 3030
: SELECT PRINT 215(132)
: A=1
: B=VAL(STR(A1$(5),2))
3430 IF B<65THEN 3480
: HEXPRINT I$(A);
: A=A+1
: B=B-64
: GOTO 3430
3480 HEXPRINT STR(I$(A),1,B)
: SELECT PRINT 005(64)
: RETURN
3510 A=VAL(STR(A1$(5),2))
: MAT COPY I$()<1,A>TO X9$()<1,A>
: B$="M"
: MAT SEARCHX9$()<1,150>,=B$TO A1$()
: IF A1$(1)=HEX(0000)THEN 100
: X9=VAL(STR(A1$(1),2))
: RETURN
4500 DEFFN'80
: IF X8<>0THEN 4506
: X8=1
4506 IF X9>0THEN 4510
: X9=1E99
: INIT(20)X9$()
4510 $GIO#5(0100020112124000,Z$)
: IF STR(Z$,8,1)=HEX(10)THEN 4560
: PRINT D$(3);TAB(64)
: B$(3)="0"
: RETURN
4560 PRINT D$(3);,"PRINTER NOT READY"
: B$(3)="1"
: RETURN
6000 DEFFN'83
: PRINT HEX(0D010A0A0A);
: FOR A=1TO 4
: PRINT TAB(63)
: NEXT A
: PRINT HEX(010A);TAB(63);HEX(0D);"'0=CONTROL '12=PRT FMT TAPE '13=FF '1
4=VT '15=LF"
6040 KEYIN C$,6040,6060
: GOTO 6040
6060 AND (C$,0F)
: C=VAL(C$)+1
: ON CGOTO 100
: ON C-12GOTO 6200
: $GIO#5(0100020112124000,Z$)
: IF STR(Z$,8,1)=HEX(10)THEN 100
: ON C-13GOTO 6190,6180,6160
: GOTO 6040
6160 $GIO#5(400D,Z$)
: RETURN
6180 $GIO#5(400B,Z$)
: RETURN
6190 $GIO#5(400D400C,Z$)
: RETURN
6200 PRINT HEX(0D010A0A0A);
: FOR A=1TO 4
: PRINT TAB(80)
: NEXT A
: PRINT HEX(010A);TAB(80);HEX(0D)
6259 %REM ....!....1....!....2....!....3....!....4....!....5....!....6
6260 % " A B C D F M"
6264 PRINT " 0= Default printer tape 2= User format tape 2"
: PRINT " 1= User format tape 1 3= User format tape 3"
6266 PRINT
: PRINT "See lines 6272, 6274, and 6276 for user tape formats."
: PRINT "Refer to user manual for instructions."
: PRINT "Key 0, 1, 2, or 3 for printer format tape."
: LINPUT ?Z1$
: ON VAL(Z1$)-47GOSUB 6270,6272,6274,6276,6270
: X9=POS(STR(X9$(),1)="M")
: RETURN
6270 STR(X9$(),1)=" "
: RETURN
6272 STR(X9$(),1)=" A B C D E F M"
: RETURN
6274 STR(X9$(),1)=" A B C D E F M"
: RETURN
6276 STR(X9$(),1)=" A B C D E F M"
: RETURN