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