Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 10 CLS:CLEAR 1500 20 DIM A$(50):DIM B$(30):DIM G$(18):GOSUB 300 30 PRINT " start tape" 40 IF INKEY$="" THEN 40 50 CLOAD*"GALGEN";A$ 60 CLS:I=INT(51*RND(1)):WINDOW 0,11,0,20:Z=0:K=-2 70 L=LEN(A$(I)) 80 FOR C=1 TO L 90 PRINT AT (23,5+C);"." 100 NEXT 110 FOR C=1 TO L 120 B$(C)=MID$(A$(I),C,1) 130 NEXT 140 INPUT V$:T=Z 150 FOR C=1 TO L 160 IF V$=B$(C) THEN PRINT AT(23,5+C);V$:Z=Z+1 170 IF Z=L THEN 210 180 NEXT 190 IF Z=T THEN 240 200 GOTO 140 210 WINDOW:PRINT AT(23,32);">ENTER<" 220 IF INKEY$="" THEN 220 221 CLS:PRINT "NOCH EINMAL ((J)/N) ?" 222 T$=INKEY$:IF T$="" THEN 222 223 IF T$<>"N" THEN 60 230 END 240 K=K+3:IF K=19 THEN 500 260 PRINT AT(K,20);G$(K):PRINT AT(K+1,20);G$(K+1):PRINT AT(K+2,20);G$(K+2) 290 GOTO 140 300 G$(1)=" " 310 G$(2)=" " 320 G$(3)=" " 330 G$(4)=" " 340 G$(5)=" " 350 G$(6)=" " 360 G$(7)=" " 370 G$(8)=" " 380 G$(9)=" " 390 G$(10)=" " 400 G$(11)=" " 410 G$(12)=" " 420 G$(13)=" " 430 G$(14)=" " 440 G$(15)=" " 450 G$(16)=" " 460 G$(17)=" " 470 G$(18)=" " 480 RETURN 500 PRINT AT(1,20);" " 510 PRINT AT(2,20);" " 520 PRINT AT(3,20);" " 530 PRINT AT(4,20);" " 540 PRINT AT(5,20);" " 550 PRINT AT(6,20);" " 560 PRINT AT(7,20);" " 570 PRINT AT(8,20);" " 580 PRINT AT(9,20);" " 590 PRINT AT(10,20);" " 600 PRINT AT(11,20);" " 610 PRINT AT(12,20);" " 620 PRINT AT(13,20);" " 630 PRINT AT(14,20);" " 640 PRINT AT(15,20);" " 650 PRINT AT(16,20);" " 660 PRINT AT(17,20);" " 670 PRINT AT(18,20);" " 680 WINDOW:PRINT AT(23,32);">ENTER<":GOTO 220