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