Listing of file='609@devc' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1915, program filename = '609@devc'
0010 REM "609@devc" Maintain Peripheral Device Assignments 11/03/88 2.5.0 KKB
0240 LOAD T"Prime 62"6100,BEG 320
0260 DIM S4,S5(8),S0(8),T5(8),T1$(16)80,S3(8)
: DIM S5,T1(65),S6(65),S1(65),T2$(65)80
: DIM S6,T2(16),S7(16),S2(16),S4(16),T5$(16)25
: DIM S2$1,S1$(16)2,S2$(400)2,S1$100,T1$80,T2$2
0310 DIM C8$(8)5,C6
0320 C8$()="015016017215216217204715716717704004"
: GOSUB '61
: DATA LOAD DC OPEN T#0,"609@DEVC"
: DSKIP #0,1S
: FOR C0=1TO 4
: DATA LOAD DC #0,A0$()
: D1=6+3*C0
: T1(S5+C0)=4
: S6(S5+C0)=D1
: S1(S5+C0)=11
: CONVERT C0TO T2$(S5+C0),(#)
: D0=2*C0-1
: T2(D0)=2
: S7(D0)=D1
: S2(D0)=22
: S4(D0)=3
: T5$(D0)=STR(A0$(),2,3)
0430 S5(C0)=D1
: S0(C0)=30
: S3(C0)=2
: T5(C0)=VAL(STR(A0$(),5,1))
: IF T5(C0)>S3(C0)THEN T5(C0)=S3(C0)
: GOSUB 2000
: D0=D0+1
: T2(D0)=2
: S7(D0)=D1
: S2(D0)=45
: S4(D0)=25
: T5$(D0)=STR(A0$(),6,25)
: NEXT C0
: S4=4
: S5=S5+4
: S6=8
: S1$="TOTTOTTOTTOT"
0520 PRINT HEX(0306);AT(22,5);HEX(020404000E);"Device Type '7xy' is Required b
y the Printers Using Printer Drivers ";HEX(020400000F);AT(0,0);
0530 GOSUB '62
: IF T5=2OR T5=3THEN 520
: IF T5=0THEN GOTO 740
: C6=0
: FOR C0=1TO 4
: MAT SEARCHC8$(),=STR(T5$(2*C0-1),1,3)TO T2$STEP 3
: IF T2$<>HEX(0000)THEN 630
: C6=C6+1
0630 IF C6=0THEN 679
: GOSUB 2010
: PRINT HEX(0706020402020E);AT(22,0,79);T1$;" ";C6;
: GOSUB 2020
: SELECT P6
: PRINT T1$;
: SELECT P0
: RESTORE
: GOTO 520
0679 NEXT C0
0680 DBACKSPACE #0,BEG
: DSKIP #0,1S
: FOR C0=1TO 4
: D0=2*C0-1
: A0$()="P"&STR(T5$(D0),1,3)&BIN(T5(C0))&STR(T5$(D0+1),1,25)
: DATA SAVE DC #0,A0$()
: SELECT #C0<STR(T5$(D0),1,3)>
: NEXT C0
0740 DATA SAVE DC CLOSE#0
: LOAD DC T"609menu"
2000 T1$(2*C0-1)="Character"
: T1$(2*C0)="Line"
: RETURN
2010 T1$="Printer addresses must be X15, X16, X17, or X04; [X=2,0 or 7]"
: RETURN
2020 IF C6=1THEN T1$="address is invalid"
: ELSE T1$="addresses are invalid"
: RETURN
2030 DATA 3,0,0,"P E R I P H E R A L D E V I C E S E L E C T I O N S"
: DATA 3,1,35,"PRINTERS"
: DATA 4,3,1,"Enter requested data"
: DATA 4,4,4,"Press EXECUTE or CANCEL"
: DATA 3,7,3,"Printer Number"
: DATA 3,7,20,"Address"
: DATA 3,7,30,"Type"
: DATA 3,7,45,"Comment"
: DATA 0