image of READY prompt

Wang2200.org

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)