10   REM HAUPTPROGRAMM BTX TASTATUREMULATION
14   WIDTH LPRINT 255
15   WIDTH 80
16   LFK0$ = CHR$(27)+"|"+"Z"+"1"+CHR$(21)+CHR$(25)
20   LFK16$ = CHR$(27)+"|"+"Z"+"1"+"16"+CHR$(13)+CHR$(25)
25   LFKCAR$ = CHR$(27)+"|"+"Z"+"1"+CHR$(4)+CHR$(25)
26   DEF FNCURSOR$(X,Y) = CHR$(27)+"="+CHR$(32+X)+CHR$(32+Y)
27   EINGABE% = 0
28   ENDE% = 16
30   CLS$ = CHR$(12)
35   PRINT LFK16$
40   WAHL% = 0
45   WHILE WAHL% <> ENDE%
47    WAHL% = 0
50    WHILE WAHL% <1 OR WAHL% >ENDE%
60     PRINT CLS$
62     PRINT TAB(18) "B T X  -  T A S T A T U R E M U L A T I O N"
63     PRINT
64     PRINT TAB(29) "   H A U P T M E N ]  "
65     PRINT 
70     PRINT TAB(29) " 1 = Alpha        Mode"
80     PRINT TAB(29) " 2 = Special      Mode"
90     PRINT TAB(29) " 3 = Mosaic       Mode"
100    PRINT TAB(29) " 4 = Smooth       Mode"
110    PRINT TAB(29) " 5 = Line         Mode"
120    PRINT TAB(29) " 6 = DRCS         Mode"
130    PRINT TAB(29) " 7 = Color        Mode"
140    PRINT TAB(29) " 8 = Display      Mode"
150    PRINT TAB(29) " 9 = Flash        Mode"
160    PRINT TAB(29) "10 = Area         Mode"
170    PRINT TAB(29) "11 = Full Screen  Mode"
180    PRINT TAB(29) "12 = Full Row     Mode"
190    PRINT TAB(29) "13 = Color Define Mode"
200    PRINT TAB(29) "14 = DRCS Define  Mode"
210    PRINT TAB(29) "15 = Men} Fortsetzung "
215    PRINT
220    PRINT TAB(29) "ABBRUCH = Programmende"
230    PRINT
240    PRINT TAB(34):INPUT; "Ihre Wahl: ", WAHL%
250   WEND
260   ON WAHL% GOSUB 510,710,1010,1210,1410,1610,1910,2110,2310,2510,2710,2810,3010,3210,3310,410
265  WEND
280  SYSTEM
400  REM UP VORBEREITUNG ZUM PROGRAMMABBRUCH
410  PRINT LFK0$
415  PRINT CLS$
420  RETURN
500  REM UP ALPHA MODE
510  PRINT CLS$
512  PRINT TAB(31) "A L P H A  -  M O D E"
515  EINGABE% = 1
520  GOSUB 5010
560  LPRINT CHR$(&H19) CHR$(&H3F) CHR$(&H20);
570  GOSUB 5510
575  EINGABE% = 0
580  RETURN
700  REM UP SPECIAL MODE    
710  MENU$ = "S P E C I A L  -  M O D E "
720  UNTERMENU$ = "Special"
730  STCODE% = &H21
740  MAX% = 6
750  GOSUB 4800
900  RETURN
1000 REM UP MOSAIC MODE
1010 MENU$ = "M O S A I C  -  M O D E"
1020 UNTERMENU$ = "Mosaic"
1030 STCODE% = &H22
1040 MAX% = 4
1050 GOSUB 4800
1196 RETURN
1200 REM UP SMOOTH MODE
1210 MENU$ = "S M O O T H  -  M O D E"
1220 UNTERMENU$ = "Smooth"
1230 STCODE% = &H23
1240 MAX% = 4
1250 GOSUB 4800
1396 RETURN
1400 REM UP LINE MODE
1410 MENU$ = "L I N E  -  M O D E"
1420 UNTERMENU$ = "Line"
1430 STCODE% = &H24
1440 MAX% = 2
1450 GOSUB 4800
1590 RETURN
1600 REM UP DRCS MODE
1610 MENU$ = "D R C S  -  M O D E"
1620 UNTERMENU$ = "DRCS"
1630 STCODE% = &H25
1640 MAX% = 6
1650 GOSUB 4800
1830 RETURN
1900 REM UP COLOR MODE
1910 MENU$ = "C O L O R  -  M O D E"
1920 UNTERMENU$ = "Color"
1930 STCODE% = &H26
1940 MAX% = 2
1950 GOSUB 4800
2090 RETURN
2100 REM UP DISPLAY MODE
2110 MENU$ = "D I S P L A Y  -  M O D E"
2120 UNTERMENU$ = "Display"
2130 STCODE% = &H27
2140 MAX% = 2
2150 GOSUB 4800
2290 RETURN
2300 REM UP FLASH MODE
2310 MENU$ = "F L A S H  -  M O D E"
2320 UNTERMENU$ = "Flash"
2330 STCODE% = &H28
2340 MAX% = 2
2350 GOSUB 4800
2480 RETURN
2500 REM UP AREA MODE
2510 MENU$ = "A R E A  -  M O D E"
2520 UNTERMENU$ = "Area"
2530 STCODE% = &H29
2560 MAX% = 3 
2570 GOSUB 4800
2690 RETURN
2700 REM UP FULLSCREEN MODE
2710 PRINT CLS$
2715 PRINT TAB(25) "F U L L S C R E E N  -  M O D E"
2720 EINGABE% = 1
2730 GOSUB 5010
2740 LPRINT CHR$(&H19) CHR$(&H3F) CHR$(&H2A);
2750 GOSUB 5510
2760 EINGABE% = 0
2770 RETURN
2800 REM UP FULL ROW MODE
2810 MENU$ = "F U L L  -  R O W  -  M O D E"
2820 UNTERMENU$ = "Full Row"
2830 STCODE% = &H2B
2840 MAX% = 5
2850 GOSUB 4800
2996 RETURN
3000 REM UP COLOR DEFINE MODE
3010 MENU$ = "C O L O R  -  D E F I N E  -  M O D E"
3020 UNTERMENU$ = "Color Define"
3030 STCODE% = &H2C
3050 MAX% = 2
3060 GOSUB 4800
3180 RETURN
3200 REM UP DRCS DEFINE MODE
3210 PRINT CLS$
3215 PRINT TAB(22) "D R C S  -  D E F I N E  -  M O D E"
3220 EINGABE% = 1
3230 GOSUB 5010
3240 LPRINT CHR$(&H19) CHR$(&H3F) CHR$(&H2D);
3250 GOSUB 5510
3260 EINGABE% = 0
3270 RETURN
3310 RETURN
4800 REM UP AUSGABE ZENTRIERTER ]BERSCHRIFTEN
4810 REM AUSGABE UNTERMEN]S
4820 WAHL1% = 0
4830 WHILE WAHL1% <> ENDE%
4840  WAHL1% = 0
4850  WHILE (WAHL1% <1 OR WAHL1% >MAX%) AND WAHL1% <> ENDE%
4860   PRINT CLS$
4870   VOR% = INT((80-LEN(MENU$))/2)
4890   PRINT STRING$(VOR%,32);
4900   PRINT MENU$
4910   PRINT
4920   PRINT
4930   FOR I = 1 TO MAX%
4940    VOR% = INT((80-LEN(STR$(I)+" = "+UNTERMENU$+" "+STR$(I)))/2)
4950    PRINT STRING$(VOR%,32);
4960    PRINT I;"= ";UNTERMENU$;I
4970   NEXT
5010   PRINT FNCURSOR$(18,34) "    Mit    "
5020   PRINT FNCURSOR$(19,34) "  ABBRUCH  "
5030   PRINT FNCURSOR$(20,34) "zur}ck  zum"
5040   PRINT FNCURSOR$(21,34) " Hauptmen} "
5045   IF EINGABE% = 1 THEN RETURN
5046   PRINT
5047   PRINT TAB(35):INPUT;   "Ihre Wahl: ", WAHL1%
5050  WEND
5060  IF WAHL1% <> ENDE% THEN GOSUB 5230
5070 WEND
5080 RETURN
 
5200 REM UP UNTER-UNTERMEN]AUSGABE AN RECHNER TERMINAL
5210 REM CTRL-CODE AUSGABE AN BTX TERMINAL
5220 REM ZEICHENAUSGABE AN BTX TERMINAL
5230 PRINT CLS$
5240 VOR% = INT((80-LEN(MENU$+"  "+STR$(WAHL1%)))/2)
5242 PRINT STRING$(VOR%,32);
5244 PRINT MENU$;"  ";WAHL1%
5250 PRINT FNCURSOR$(18,34) "    Mit    "
5260 PRINT FNCURSOR$(19,34) "  ABBRUCH  "
5270 PRINT FNCURSOR$(20,34) "zur}ck  zum"
5280 VOR% = INT((80-LEN(UNTERMENU$+" Men}"))/2)
5282 PRINT STRING$(VOR%,32);
5284 PRINT UNTERMENU$;" Men}"
5285 LPRINT CHR$(&H19) CHR$(&H3F) CHR$(&H20);
5290 FOR I = 1 TO WAHL1%
5300  LPRINT CHR$(&H19) CHR$(&H3F) CHR$(STCODE%);
5310 NEXT
5500 REM ZEICHENAUSGABE
5510 PRINT LFKCAR$
5520 C$ = ""
5530 WHILE C$ <> CHR$(4)
5540  C$ = INPUT$(1)
5550  LPRINT C$;
5555 WEND
5560 PRINT LFK16$
5570 RETURN
    