Listing of file='609INITQ' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1367, program filename = '609INITQ' 1000 DIM A$50,B$50,Q$10,Q$(4)64,Q1$2,Q1(2),Q2$2,Q4$4,Q5(7,3),Q5$(1)6,Q6(3,2),Q 7(9,2),Q7$(3)45,Q8$1,Q8$(1),Q9(8) 1050 PRINT HEX(0306) : GOSUB 3010 : PRINT AT(1,29);B$ : GOSUB 3020 : PRINT AT(22,0,);B$ : GOSUB 3030 : GOSUB 5010 : GOSUB 3050 : PRINT AT(22,0,);B$ : Q=0 : Q$="Pqueue" : Q1=250 : Q2$="0" : LIMITS T#Q,Q$,Q9(1),Q9(2),Q9(3) : ERRORQ2$=BIN(ERR) : GOTO 1410 1130 DATA LOAD DC OPEN T#Q,Q$ : ERRORQ2$=BIN(ERR) : RETURN 1140 Q3=Q9(2)-Q9(1) : Q9(4)=INT(250/Q1) : IF Q9(4)=0THEN STOP "RECORD SIZE TOO LARGE "# : ELSE Q9(5)=Q9(4)*(Q3) : Q2=INT(Q9(5)/25)+1 : Q9(5)=(Q9(4)*(Q3-Q2-1))-1 : MAT REDIM Q$(25)10 : STR(Q$(1),1,1)=BIN(#PART) : STR(Q$(1),2,2)=BIN(#ID,2) 1200 STR(Q$(1),4,1)=BIN(Q1) : STR(Q$(1),5,1)=BIN(Q9(4)) : STR(Q$(1),6,1)=BIN(Q2) : STR(Q$(1),7,2)=BIN(Q9(5),2) : STR(Q$(1),9,2)=HEX(0001) : IF Q9(5)>23THEN 1260 : FOR Q9=0TO Q9(5) 1230 STR(Q$(Q9+2),1,1)=HEX(FF) : STR(Q$(Q9+2),9,2)=BIN(Q9,2) : NEXT Q9 : DBACKSPACE #Q,BEG : MAT REDIM Q$(3)84 : DATA SAVE DC #Q,Q$(1),Q$(2),STR(Q$(3),1,82) : ERRORQ2$=BIN(ERR) : GOTO 1410 1250 MAT REDIM Q$(25)10 : IF Q9(5)>23THEN 1270 : ELSE GOTO 1370 1260 FOR Q9=0TO 23 : GOTO 1230 1270 Q1=-2 : FOR Q8=1TO (Q2-1) : Q1=Q1+25 : FOR Q9=1TO 25 : STR(Q$(Q9),1,1)=HEX(FF) : STR(Q$(Q9),9,2)=BIN(Q9+Q1,2) : IF (Q9+Q1)>Q9(5)THEN Q9=25 : NEXT Q9 : MAT REDIM Q$(3)84 : DATA SAVE DC #Q,Q$(1),Q$(2),STR(Q$(3),1,82) : ERRORQ2$=BIN(ERR) : GOTO 1410 1350 MAT REDIM Q$(25)10 : NEXT Q8 1370 MAT REDIM Q$(3)84 : FOR Q9=Q2TO Q3-2 : DATA SAVE DC #Q,Q$(1),Q$(2),STR(Q$(3),1,82) : NEXT Q9 : DATA SAVE DC #Q,END : ERRORQ2$=BIN(ERR) : GOTO 1410 1380 DBACKSPACE #Q,BEG : DATA LOAD DC #Q,Q$(1),Q$(2),STR(Q$(3),1,82) : ERRORQ2$=BIN(ERR) : GOTO 1410 1390 STR(Q$(1),1,1)=HEX(00) : DBACKSPACE #Q,BEG : DATA SAVE DC #Q,Q$(1),Q$(2),STR(Q$(3),1,82) : ERRORQ2$=BIN(ERR) 1400 GOSUB 3060 : PRINT AT(22,0,);B$ 1410 DATA SAVE DC CLOSE#Q 1420 GOSUB 3040 : GOSUB 5010 : GOTO 1420 3010 B$="Initialize Print Queue" : RETURN 3020 B$="Print Queue will be Initialized" : RETURN 3030 B$="Execute or Cancel" : RETURN 3040 B$="Please Cancel" : RETURN 3050 B$="Initializing" : RETURN 3060 B$="Print Queue Initialization Completed" : RETURN 5010 PRINT AT(23,60,);HEX(020402000E);B$;HEX(020402000F); 5020 KEYIN J0$,5030,5030 : GOTO 5020 5030 IF J0$=HEX(82)OR J0$=HEX(A1)THEN RETURN : IF J0$=HEX(F0)THEN 5080 : PRINT HEX(07); : GOTO 5020 5080 RETURN CLEAR ALL 5090 LOAD DC T"609menu" 7000 DEFFN'31 : GOTO 1410