image of READY prompt

Wang2200.org

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

# Sector 866, program filename = '609FG110'
0010 REM '609FG110' - SEE IF LIBRARY EXISTS
0030 B2$=" "
   : J$=HEX(0D)
   : R5$="0000"&STR(B0$,10,1)
   : GOSUB '110(R5$," ")
   : IF B2$<>" "THEN 170
   : GOSUB '217(1,1,STR(B0$,1,10),B9$)
   : IF V1=0THEN GOSUB 2505
0170 LOAD TA5$
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="Library "&STR(R5$,5,1)&" is empty"
   : RETURN