Listing of file='PERIPH-4' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 742, program filename = 'PERIPH-4' 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)