10 DEFFNS="KeyLoad" 20 REPEAT 30 MODE0 40 PRINT'''"1. Edword" 50 PRINT"2. Interword" 60 PRINT"3. Messaging System" 70 PRINT"4. ABZ Teletext Editor" 80 PRINT"5. View" 90 *FX21 100 A$=GET$ 110 UNTILINSTR("12345",A$) 120 IF A$="1" CHAIN"EDWKEYS" 130 IF A$="2" CHAIN"IntKeys" 140 IF A$="3" CHAIN"MsgKeys" 150 IF A$="4" CHAIN"TelKey" 160 IF A$="5" CHAIN"VIEWKEY"