image of READY prompt

Wang2200.org

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