image of READY prompt

Wang2200.org

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

# Sector sector 919, program filename = '609FR020'
0010 REM '609FR020' - I/O SUBROUTINES FOR RETRIEVE/DELETE
0030 $PACK(F=HEX(A019A005A009))U1$()FROMA6$(),D4$,HEX(000000000000003130)
   : GOSUB '235(A1,U1$())
   : A5$()="609FR030609FG070609FG080REC-GEN REC-RD"
   : LOAD T<5>A5$()