Listing of file='609@devc' on disk='vmedia/701-2737G.wvd.zip'
# Sector 727, 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