Wang 2200 Virtual Media

Listing of file='609FG170' on disk='vmedia/701-2738G.wvd.zip'

# Sector 895, program filename = '609FG170'
0010 REM '609FG170' - READ AND SAVE CURRENT VTOC INTO K2$()
0020 COM J2$(84)6
   : B2$=" "
   : J$=HEX(0D)
   : GOSUB '40
   : J2$()=D0$()
   : LOAD TA5$