Listing of file='PERIPH-1' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 734, program filename = 'PERIPH-1' 0010 DIM A$8 0020 A$="PERIPH- " 0030 STOP 0040 DEFFN'00 0050 X=X+1 : CONVERT X TO STR(A$,8,1),(#) : PRINT A$ 0060 RETURN 0100 DEFFN'15"SAVE DC F$(5)A$";HEX(0D)