Listing of file='609INITQ' on disk='vmedia/701-2739G.wvd.zip'
# Sector 725, 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