image of READY prompt

Wang2200.org

Listing of file='609FG070' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 301, program filename = '609FG070'
1500 REM '609FG070' - '33,'34
1505 DIM J9$29
1515 DEFFN'33(J9$)
   : PRINT HEX(0601);AT(23,0,59);J9$;HEX(07);
   : RETURN
1535 DEFFN'34(J)
1540 GOSUB 1605
   : PRINT B5$(2);AT(23,60);J9$;AT(23,0);B5$(1);
   : PRINT AT(23,0);HEX(05);
1555 KEYIN J$,1560,1560
   : GOTO 1555
1560 PRINT AT(23,0,59);HEX(06);
   : IF J=2AND J$=HEX(01)THEN 1585
   : IF J$=HEX(0D)OR J$=HEX(82)AND J<>1THEN 1585
   : IF J$=HEX(F0)THEN 1584
   : GOSUB '33(J9$)
   : GOTO 1540
1584 B4$=J7$
1585 IF J$=HEX(82)THEN J$=HEX(0D)
   : PRINT AT(23,60,19);
   : RETURN
1600 % DO NOT RENUMBER THE FOLLOWING
1605 IF J=1THEN J9$="Please Cancel"
   : ELSE J9$="Execute or Cancel"
   : IF J=2THEN J9$="PAGE/EXECUTE/CANCEL"
   : RETURN
1610 J9$="Invalid Character"
   : RETURN