Listing of file='609FG070' on disk='vmedia/701-2738G.wvd.zip'
# Sector 835, 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