Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 10!----------------------------- 20!BEISPIEL FUER NUTZUNG DES 30!SPRACHEINGABE-MODUL 690 032.4 40! 50!VERSION 3 STAND 24.4.87 60!----------------------------- 70 CLEAR 500,24000 80 DIM A$(30) 90 DATA VEB,ROBOTRON,MESSELEKTRONIK,'OTTO SCHOEN',DRESDEN 100 DATA STELLT VOR,EIN,KLEINCOMPUTER,KC 87,MIT,SPRACHEINGABE-MODUL 105 DATA IN,VERSTEHT,MENSCHLICHE,SPRACHE,WIRKLICH,?,. 110 FOR I=1 TO 18:READ A$(I):NEXT I 120!------------------------------ 130! TITELBILD 140 ZL$=CHR$(142):ZR$=CHR$(191) 150 WINDOW:INK 7:PAPER 1:BORDER 1:CLS:PRINT AT(0,0);" " 160 PRINT AT(0,12);" " 170 PRINT AT(1,2);" " 180 PRINT AT(2,2);" " 190 PRINT AT(3,2);" " 200 INK 3 210 PRINT AT(6,7);" ",ZL$," " 220 PRINT AT(7,7);" ",ZL$," ",ZL$,"" 230 PRINT AT(8,7);"",ZL$," " 240 PRINT AT(9,7);"",ZR$," " 250 PRINT AT(10,7);" ",ZR$," ",ZR$,"",ZL$," ",ZR$,"" 255 PRINT AT(10,22);ZL$," ",ZR$,"",ZL$," " 260 INK 2 270 PRINT AT(13,3);" " 280 PRINT AT(14,3);" " 290 PRINT AT(15,3);" " 300 PRINT AT(16,6);" ",ZR$," " 310 PRINT AT(17,3);" " 320 PRINT AT(19,3);" " 330 PRINT AT(20,3);" ",ZR$," " 340 PRINT AT(21,3);" ",ZR$," " 350 PRINT AT(22,3);" " 360 PRINT AT(23,3);" " 361 PRINT AT(0,0);" " 362 TW$=INKEY$ 364 IF TW$="" THEN 362 365 IF ASC(TW$)=13 THEN TW=255:GOTO 390 366 IF (ASC(TW$)<49) OR (ASC(TW$)>53) THEN 362 368 TW=ASC(TW$) 390 INK 4:CLS 400 WINDOW 5,22,0,39 410 PRINT INK 3;AT(1,0);"ICH HOERE !" 420 PRINT INK 8;AT(2,0);STRING$(40,"") 430 POKE 80,TW 440 CALL DEEK(76) 450 A=PEEK(81) 460 IF A=0 THEN 430 470 IF A=36 THEN INK 2:B$=CHR$(9)+CHR$(8):GOTO 590 480 IF A=37 THEN INK 3:B$=CHR$(9)+CHR$(8):GOTO 590 490 IF A=38 THEN INK 7:B$=CHR$(9)+CHR$(8):GOTO 590 500 IF A=39 THEN INK 5:B$=CHR$(9)+CHR$(8):GOTO 590 510 IF(A>45)AND(A<51)THEN 430 520 IF A>127 THEN END 530 IF A=40 THEN PRINT:PRINT:GOTO 440 540 IF A=41 THEN 390 550 IF A=42 THEN B$=":":GOTO 590 560 IF A=43 THEN 10 565 IF A=44 THEN 650 570 IF A=45 THEN END 580 B$=A$(A)+" " 590 IF POS(0)+LEN(B$)<41 THEN 610 600 PRINT:PRINT 610 PRINT B$; 620!C$=C$+B$ 630 GOTO 440 640!---------------------------- 650 PRINT:PRINT:PRINT:PRINT TAB(3)"B I T T E, KEINE U R S A C H E ." 660 PRINT AT(PEEK(44)-1,PEEK(43)-1);" ":PAUSE 50:RUN