4 CLS:PRINT:PRINT" ***************( MENU )***************":PRINT" "FRE(0)"BYTES FREE":PRINT" [m]ake a song [p]layback":PRINT" [s]ave [f]iles":PRINT" [l]oad [q]uit
5 PRINT" ******( hit key in [] to choose )*****
6 K$=INKEY$:IFK$=""THEN6
7 IFK$="m"THENGOSUB14
8 IFK$="p"THENGOSUB47
9 IFK$="s"THENGOSUB50
10 IFK$="l"THENGOSUB53
11 IFK$="q"THENMENU
12 IFK$="f"THENGOSUB33
13 GOTO3
14 GOSUB31
15 GOSUB18:IFK$="."THENRETURN
16 GOSUB36:IFC=MTHENPRINT:PRINT"can only store"M"notes.":RETURN
27 IFERR=7THENPRINT"out of memory.please make space":END
28 IFERR=52THENPRINT"file not found.":RESUME3
29 IFERR=55THENPRINT"bad file name.":RESUME3
30 PRINT"error code "ERR"in line "ERL:STOP
31 C=0:CLS:PRINT"create a song upto"M"notes":PRINT"by pressing key of note to play.":PRINT"sharps: shift & the key":PRINT"done: type '.'":PRINT"[bksp] to change notes":PRINT"f1-f8 changes octave & length":PRINT"oct1 oct2 oct3 oct4 oct5 1/4 1/2 1/1
32 RETURN:PRINT"wait";
33 CLS:FILES:PRINT:PRINT"hit space bar to continue ";