10 REM SET UP SW10 FUNCTION KEYS FIRST SET TO VT100
12 PRINT CHR$(27);"<" : BREAK
15 DIM A$[3]
16 A$=CHR$(27)+CHR$(91)+CHR$(62)
20 PRINT A$;CHR$(97);"/";"DAMMIT";CHR$(13);"/" : BREAK
30 PRINT A$;CHR$(98);"/";"COOKIE";CHR$(13);"/" : BREAK
40 PRINT A$;CHR$(99);"/";"WHO";CHR$(13);"/" : BREAK
50 PRINT A$;CHR$(100);"/";"WHERE";CHR$(13);"/" : BREAK
60 PRINT A$;CHR$(101);"?";"DEM";CHR$(13);"?" : BREAK
70 PRINT A$;CHR$(102);"/";"CLV";CHR$(13);"/" : BREAK
80 PRINT A$;CHR$(103);"/";"UTX";CHR$(13);"/" : BREAK
90 PRINT A$;CHR$(104);"/";"SEV";CHR$(13);"/" : BREAK
100 PRINT A$;CHR$(105);"?";"QUE /AL";CHR$(13);"?" : BREAK
110 PRINT A$;CHR$(106);"?";"QUX /TI/EC";CHR$(13);"?" : BREAK
120 PRINT A$;CHR$(107);"?BAS LB:[1,1]VT52/RN";CHR$(13); : BREAK
130 PRINT A$;CHR$(108);"?";"BAS LB:[1,1]V100/RN";CHR$(13); : BREAK
135 PRINT CHR$(27);"[?2";CHR$(108) : BREAK
140 EXIT