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)
30   CLS$ = CHR$(12)
35   PRINT LFK16$
40   WAHL% = 0
45   WHILE WAHL% <> 16
47    WAHL% = 0
50    WHILE WAHL% <1 OR WAHL% >16
60     PRINT CLS$
62     PRINT TAB(14) "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(25) "   H A U P T M E N ]  "
65     PRINT 
70     PRINT TAB(25) " 1 = Alpha        Mode"
80     PRINT TAB(25) " 2 = Special      Mode"
90     PRINT TAB(25) " 3 = Mosaic       Mode"
100    PRINT TAB(25) " 4 = Smooth       Mode"
110    PRINT TAB(25) " 5 = Line         Mode"
120    PRINT TAB(25) " 6 = DRCS         Mode"
130    PRINT TAB(25) " 7 = Color        Mode"
140    PRINT TAB(25) " 8 = Display      Mode"
150    PRINT TAB(25) " 9 = Flash        Mode"
160    PRINT TAB(25) "10 = Area         Mode"
170    PRINT TAB(25) "11 = Full Screen  Mode"
180    PRINT TAB(25) "12 = Full Row     Mode"
190    PRINT TAB(25) "13 = Color Define Mode"
200    PRINT TAB(25) "14 = DRCS Define  Mode"
210    PRINT TAB(25) "15 = Men} Fortsetzung"
215    PRINT
220    PRINT TAB(25) "ABBRUCH = Programmende"
230    PRINT
240    PRINT TAB(30):INPUT; "Ihre Wahl: ", WAHL%
250   WEND
255   PRINT CLS$
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$
420  RETURN
500  REM UP ALPHA MODE
510  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  WAHL1% = 0
750  WHILE WAHL1% <> 16
760   WAHL1% = 0
770   WHILE (WAHL1% <1 OR WAHL1% >6) AND WAHL1% <> 16
775    PRINT CLS$
776    PRINT TAB(28) MENU$
777    PRINT
778    PRINT
780    PRINT TAB(34) "1 = Special 1"
790    PRINT TAB(34) "2 = Special 2"
800    PRINT TAB(34) "3 = Special 3"
810    PRINT TAB(34) "4 = Special 4"
820    PRINT TAB(34) "5 = Special 5"
830    PRINT TAB(34) "6 = Special 6"
850    GOSUB 5000
870   WEND
880   IF WAHL1% <> 16 THEN GOSUB 5230
890  WEND
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 WAHL1% = 0
1050 WHILE WAHL1% <> 16
1060  WAHL1% = 0
1070  WHILE (WAHL1% <1 OR WAHL1% >4) AND WAHL1% <> 16
1080   PRINT CLS$
1090   PRINT TAB(29) MENU$
1100   PRINT
1110   PRINT
1120   PRINT TAB(35) "1 = Mosaic 1"
1130   PRINT TAB(35) "2 = Mosaic 2"
1140   PRINT TAB(35) "3 = Mosaic 3"
1150   PRINT TAB(35) "4 = Mosaic 4"
1160   GOSUB 5000
1180  WEND
1190  IF WAHL1% <> 16 THEN GOSUB 5230
1195 WEND
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 WAHL1% = 0
1250 WHILE WAHL1% <> 16
1260  WAHL1% = 0
1270  WHILE (WAHL1% <1 OR WAHL1% >16) AND WAHL1% <> 16
1280   PRINT CLS$
1290   PRINT TAB(29) MENU$
1300   PRINT
1310   PRINT
1320   PRINT TAB(35) "1 = Smooth 1"
1330   PRINT TAB(35) "2 = Smooth 2"
1340   PRINT TAB(35) "3 = Smooth 3"
1350   PRINT TAB(35) "4 = Smooth 4"
1360   GOSUB 5000
1380  WEND
1390  IF WAHL1% <> 16 THEN GOSUB 5230
1395 WEND
1396 RETURN
1400 REM UP LINE MODE
1410 MENU$ = "L I N E  -  M O D E"
1420 UNTERMENU$ = "Line"
1430 STCODE% = &H24
1440 WAHL1% = 0
1450 WHILE WAHL1% <> 16
1460  WAHL1% = 0
1470  WHILE (WAHL1% <1 OR WAHL1% >2) AND WAHL1% <> 16
1480   PRINT CLS$
1490   PRINT TAB(32) MENU$
1500   PRINT
1510   PRINT
1520   PRINT TAB(37) "1 = Line 1"
1530   PRINT TAB(37) "2 = Line 2"
1540   GOSUB 5000
1560  WEND
1570  IF WAHL1% <> 16 THEN GOSUB 5230
1580 WEND
1590 RETURN
1600 REM UP DRCS MODE
1610 MENU$ = "D R C S  -  M O D E"
1620 UNTERMENU$ = "DRCS"
1630 STCODE% = &H25
1640 WAHL1% = 0
1650 WHILE WAHL1% <> 16
1660  WAHL1% = 0
1670  WHILE (WAHL1% <1 OR WAHL1% >6) AND WAHL1% <> 16
1680   PRINT CLS$
1690   PRINT TAB(32) MENU$
1700   PRINT
1710   PRINT
1720   PRINT TAB(37) "1 = DRCS 1"
1730   PRINT TAB(37) "2 = DRCS 2"
1740   PRINT TAB(37) "3 = DRCS 3"
1750   PRINT TAB(37) "4 = DRCS 4"
1760   PRINT TAB(37) "5 = DRCS 5"
1770   PRINT TAB(37) "6 = DRCS 6"
1780   GOSUB 5000
1800  WEND
1810  IF WAHL1% <> 16 THEN GOSUB 5230
1820 WEND
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 WAHL1% = 0
1950 WHILE WAHL1% <> 16
1960  WAHL1% = 0
1970  WHILE (WAHL1% <1 OR WAHL1% >2) AND WAHL1% <> 16
1980   PRINT CLS$
1990   PRINT TAB(30) MENU$
2000   PRINT
2010   PRINT
2020   PRINT TAB(36) "1 = Color 1"
2030   PRINT TAB(36) "2 = Color 2"
2040   GOSUB 5000
2060  WEND
2070  IF WAHL1% <> 16 THEN GOSUB 5230
2080 WEND
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 WAHL1% = 0
2150 WHILE WAHL1% <> 16
2160  WAHL1% = 0
2170  WHILE (WAHL1% <1 OR WAHL1% >2) AND WAHL1% <> 16
2180   PRINT CLS$
2190   PRINT TAB(28) MENU$
2200   PRINT
2210   PRINT
2220   PRINT TAB(34) "1 = Display 1"
2230   PRINT TAB(34) "2 = Display 2"
2240   GOSUB 5000
2260  WEND
2270  IF WAHL1% <> 16 THEN GOSUB 5230
2280 WEND
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 WAHL1% = 0
2350 WHILE WAHL1% <> 16
2360  WAHL1% = 0
2370  WHILE (WAHL1% <1 OR WAHL1% >2) AND WAHL1% <> 16
2380   PRINT CLS$
2390   PRINT TAB(30) MENU$
2400   PRINT
2410   PRINT
2420   PRINT TAB(36) "1 = Flash 1"
2430   PRINT TAB(36) "2 = Flash 2"
2440   GOSUB 5000
2450  WEND
2460  IF WAHL1% <> 16 THEN GOSUB 5230
2470 WEND
2480 RETURN
2500 REM UP AREA MODE
2510 MENU$ = "A R E A  -  M O D E"
2520 UNTERMENU$ = "Area"
2530 STCODE% = &H29
2540 WAHL1% = 0
2550 WHILE WAHL1% <> 16
2560  WAHL1% = 0
2570  WHILE (WAHL1% <1 OR WAHL1% >3) AND WAHL1% <> 16
2580   PRINT CLS$
2590   PRINT TAB(31) MENU$
2600   PRINT
2610   PRINT
2620   PRINT TAB(35) "1 = Area 1"
2630   PRINT TAB(35) "2 = Area 2"
2640   PRINT TAB(35) "3 = Area 3"
2650   GOSUB 5000
2660  WEND
2670  IF WAHL1% <> 16 THEN GOSUB 5230
2680 WEND
2690 RETURN
2700 REM UP FULLSCREEN MODE
2710 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 FULL ROW MODE
2810 MENU$ = "F U L L  -  R O W  -  M O D E"
2820 UNTERMENU$ = "Full Row"
2830 STCODE% = &H2B
2840 WAHL1% = 0
2850 WHILE WAHL1% <> 16
2860  WAHL1% = 0
2870  WHILE (WAHL1% <1 OR WAHL1% >5) AND WAHL1% <> 16
2880   PRINT CLS$
2890   PRINT TAB(25) MENU$
2900   PRINT
2910   PRINT
2920   PRINT TAB(33) "1 = Full Row 1  Foreground"
2930   PRINT TAB(33) "2 = Full Row 2  Background"
2940   PRINT TAB(33) "3 = Full Row 3"
2950   PRINT TAB(33) "4 = Full Row 4"
2960   PRINT TAB(33) "5 = Full Row 5"
2970   GOSUB 5000
2980  WEND
2990  IF WAHL1% <> 16 THEN GOSUB 5230
2995 WEND
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
3040 WAHL1% = 0
3050 WHILE WAHL1% <> 16
3060  WAHL1% = 0
3070  WHILE (WAHL1% <1 OR WAHL1% >2) AND WAHL1% <> 16
3080   PRINT CLS$
3090   PRINT TAB(21) MENU$
3100   PRINT
3110   PRINT
3120   PRINT TAB(36) "1 = C16"
3130   PRINT TAB(36) "2 = C 4"
3140   GOSUB 5000
3150  WEND
3160  IF WAHL1% <> 16 THEN GOSUB 5230
3170 WEND
3180 RETURN

3210 RETURN
3310 RETURN
5000 REM UP AUSGABE ABBRUCHMEN] UND WAHLEINGABE
5010 PRINT FNCURSOR$(18,35) "    Mit    "
5020 PRINT FNCURSOR$(19,35) "  ABBRUCH  "
5030 PRINT FNCURSOR$(20,35) "zur}ck  zum"
5040 PRINT FNCURSOR$(21,35) " Hauptmen} "
5045 IF EINGABE% = 1 THEN RETURN
5046 PRINT
5047 PRINT TAB(35):INPUT;   "Ihre Wahl: ", WAHL1%
5050 RETURN
5200 REM UP UNTERMEN]AUSGABE AN RECHNER TERMINAL
5210 REM CTRL-CODE AUSGABE AN BTX TERMINAL
5220 REM ZEICHENAUSGABE AN BTX TERMINAL
5230 PRINT CLS$
5240 PRINT TAB(25) MENU$;WAHL1%
5250 PRINT  FNCURSOR$(18,35) "    Mit    "
5260 PRINT FNCURSOR$(19,35) "  ABBRUCH  "
5270 PRINT FNCURSOR$(20,35) "zur}ck  zum"
5280 PRINT FNCURSOR$(21,35) 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
    