]B] menu options ] C$(4)(]C$(1)="Create New File"2(]C$(2)="Add a record to existing file"<]C$(3)="View existing file"F]C$(4)="Exit to system"P^:Z"^ esc codesd(^:n'.^E$=(27)::REVN$=E$+"p":REVOF$=E$+"q"xg^ down acrossm^CURN$=E$+"e":CUROF$=E$+"f"^^: ^ draw box^:&^LNG=40: this the length of the box!^ @(8,0)(150)(LNG,154)(156)4^ I=1 4: @(8,I)(149)REVN$(LNG)REVOF$(149):!N_ @(8,5)(147)(LNG,154)(153)a_ @(8,12)REVN$" Select the "REVOF$" dark-lit "REVN$" option by pressing "REVOF$CUROF$ _"menu"_:5_ @(20,14)CURN$;: CH "one","two","three","four"_ 10000:  `: `"menu""`:,%`CH=1: ch=vertical choice position6+` OPT=1 47F`@(10,OPT)REVN$C$(OPT)REVOF$8y`@ `"start"J` @(10,CH)C$(CH)T`@(10,10)!&1,;" ";IN$^`:h` IN$="s" IN$="S" ra:| a IN$="" +#a (IN$)=31 CH>1 :CH=CH-1: J5Wa (IN$)=30 CH<4 : CH<4 CH=CH+1: Ja T a @(10,CH)REVN$C$(CH)REVOF$:a:a menu destinationsa:a"one" a C$(1): b:b"two" b C$(2):7b: =b"three" Cb C$(3): ab"four"&gb:0 mb C$(4):ba:a"one" a C$(1): b:b"two" b C$(2):7b: =