Listing of file='609.VPRT' on disk='vmedia/701-2738G.wvd.zip'
# Sector 391, program filename = '609.VPRT'
1600 REM % DO NOT RENUMBER ANY OF THE FOLLOWING CODE
1601 REM 609.VPRT 237-08/04/86
1610 SELECT PRINT 005(80)
: IF I3>0THEN 1705
: PRINT HEX(030D);
: PRINT AT(0,22);STR(J9$,,29)
: PRINT AT(3,1);STR(J9$,30,60);TAB(71)
1640 SELECT PRINT <STR(A0$(1),2,3)>
: D1=0
: C2=C2+1
: IF C2>1THEN PRINT HEX(0C)
: PRINT TAB(25);STR(J9$,,29)
: PRINT HEX(0A)
: PRINT TAB(10);STR(J9$,30,60);
: PRINT TAB(70);"PAGE ";C2
: PRINT HEX(0A)
: D1=D1+5
: RETURN
1685 SELECT PRINT 005(80)
: PRINT AT(22,0,);B2$
: RETURN
1705 SELECT PRINT <STR(A0$(1),2,3)>
: IF D1+8>=J8THEN GOSUB 1640
: GOSUB 2210
: PRINT STR(B2$,,6);A+J0-1;STR(B2$,7,47);HEX(0A)
1725 I4=POS(C4$()<20)
: IF I4=0THEN 1745
: STR(C4$(),I4,1)=STR(C4$(),I4,1)ADDCHEX(B0)
: GOTO 1725
1745 FOR I2=1TO 5
: PRINT TAB(05);C4$(I2)
: NEXT I2
: PRINT HEX(0A)
: D1=D1+8
: RETURN
1805 SELECT PRINT <STR(A0$(1),2,3)>
: IF D1>=J8OR D1+1>=J8THEN GOSUB 1640
: GOSUB 2170
: PRINT TAB(6);B2$
: D1=D1+1
: FOR I2=1TO C5
: PRINT TAB(10);HEXOF(STR(D9$(I2),,2));" ";HEXOF(STR(D9$(I2),3,2));" ";HEXO
F(STR(D9$(I2),5,1))
: D1=D1+1
: IF D1>=J8THEN GOSUB 1640
: NEXT I2
: IF D1>=J8OR D1+1>=J8THEN GOSUB 1640
: GOSUB 2180
: PRINT HEX(0A)
: D1=D1+1
: PRINT TAB(6);B2$
: D1=D1+1
: FOR I2=1TO T
1880 PRINT TAB(10);HEXOF(STR(D6$(I2),,1));" ";HEXOF(STR(D6$(I2),2,1));" ";HEXO
F(STR(D6$(I2),3,2));" ";HEXOF(STR(D6$(I2),5,2));" ";HEXOF(STR(D6$(I2),7,2
));" ";HEXOF(STR(D6$(I2),9,2))
: D1=D1+1
: IF D1>=J8THEN GOSUB 1640
: NEXT I2
: PRINT HEX(0A)
: D1=D1+1
: RETURN
1910 SELECT PRINT <STR(A0$(1),2,3)>
: IF D1>=J8OR D1+1>=J8THEN GOSUB 1640
: GOSUB 2190
: PRINT TAB(6);B2$
: D1=D1+1
: FOR I2=1TO P
: PRINT TAB(10);HEXOF(STR(D1$(I2),,2));" ";HEXOF(STR(D1$(I2),3,2));" ";HEXO
F(STR(D1$(I2),5,2));" ";HEXOF(STR(D1$(I2),7,2))
: D1=D1+1
: IF D1>=J8THEN GOSUB 1640
: NEXT I2
: IF D1>=J8OR D1+1>=J8THEN GOSUB 1640
: PRINT HEX(0A)
: D1=D1+1
: GOSUB 2200
: PRINT TAB(6);B2$
: D1=D1+1
: FOR I2=1TO Q
1985 PRINT TAB(10);HEXOF(STR(D2$(I2),,2));" ";HEXOF(STR(D2$(I2),3,2));" ";HEXO
F(STR(D2$(I2),5,16));" ";STR(D2$(I2),5,16)
: D1=D1+1
: IF D1>=J8THEN GOSUB 1640
: NEXT I2
: PRINT HEX(0A)
: D1=D1+1
: RETURN
2170 B2$="Name Tree Error Array D9$"
: RETURN
2180 B2$="Name Tree Error Array D6$"
: RETURN
2190 B2$="Vau Map Error Array D1$"
: RETURN
2200 B2$="Vau Map Error Array D2$"
: RETURN
2210 B2$="Sector is being deleted, this sector is unrecoverable"
: RETURN