image of READY prompt

Wang2200.org

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

# Sector sector 93, program filename = '609EFRMT'
0010 REM ********************* 609EFRMT ************************************
0979 DEFFN'47
   : D8=3
   : I6=D1
   : D1=FNJ(1)
0985 GOSUB '33(D1-1)
   : D8=MAX(D8,D9)
   : IF D1>1THEN 985
   : GOSUB '33(I6)
   : RETURN