9 M%=VAL(INKEY$):IFM%<1ORM%>8GOTO9ELSERETURN 17 PRINT@40,"INPUT FROM DISK?":ONINSTR(" NnYy",INKEY$)+1GOTO17,17,19,19,18,18 18 OPEN"0:STKLST.DO"FORINPUTAS1":GOTO25 600 CLS:GOSUB10:PRINTP$;:PRINT@9,"OUTPUT MENU":PRINT"1. SCREEN";TAB(20);"5. DISK":PRINT"2. PRINTER";TAB(20);"6. ADD TO HISTORY":PRINT"3. CASSETTE";TAB(20);"7. HISTORIC OUTPUT":PRINT"4. RAM FILE";TAB(20);"8. END";:PRINTQ$;:GOSUB9 605 CLS:ONM%GOTO610,700,800,950,940,975,999,900 940 OPEN"0:STKLST.DO"FOROUTPUTAS1":GOTO955 9106 T0="HIT ENTER TO CONTINUE":T6="LIQUIDATED":T5=" UN"+T6:T6=""+T6:T4=" PROFIT":T3="LOSS":T2=" TOTAL"::T=T9+" PORTFOLIO"+T4+"/"+T3+"REPORT":TD=DATE$:CLS:SCREEN0,0:GOTO17