Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

   10!
   30! 
   40 A$= ""
   50 B$= "  "
   60 C$= "  "
   70 D$= "  "
   80 E$= "  "
   90 F$= "  "
  100 G$= " "
  110 H$= " "
  120 I$= " "
  130 J$=" "
  140 K$=""
  150 L$=""
  160 M$=""
  170 N$=""
  180 O$=" "
  190 P$=" "
  200 Q$=" "
  210 R$=""
  220 S$="   "
  230 T$=" HINDERNISSE :"
  240 U$=" SPRUENGE :"
  250 V$=" ZUSAMMENSTOESSE :"
  260 C=0
  270 CLS
  280 PRINT " DER MANN SOLL UEBER DIE HINDERNISSE"
  290 PRINT
  300 PRINT " SPRINGEN"
  310 PRINT
  320 PRINT " DAZU MUSS MAN DIE >ENTER<-TASTE"
  330 PRINT
  340 PRINT " BETAETIGEN"
  350 PRINT " "
  360 PRINT " BEI MOD=1 LAEUFT ER NUR BEI GEDRUECKTER"
  370 PRINT " X-TASTE"
  380 PRINT
  390 INPUT " MOD :";MOD
  400 CLS
  410 PRINT AT (2,0);T$
  420 PRINT AT (4,0);U$
  430 PRINT AT (6,0);V$
  440 M=1:N=0:P=0
  450 PRINT AT (2,20);M
  460 FOR A=1 TO 38 
  470 PRINT AT(18,A);""
  480 NEXT A
  490 PRINT AT(12,25);A$
  500 PRINT AT(13,25);B$
  510 PRINT AT(14,25);C$
  520 PRINT AT(15,25);D$
  530 PRINT AT(16,25);E$
  540 PRINT AT(17,25);F$
  550 IF J0YST(1)=0 THEN GOSUB 750
  560 IF JOYST$(1)>8 THEN GOTO 930
  570 GOSUB 810
  580 PRINT AT(14,25);G$
  590 PRINT AT(15,25);H$
  600 PRINT AT(16,25);I$
  610 PRINT AT(17,25);J$
  620 IF JOYST$(1)=0 THEN GOSUB 750
  630 PRINT AT(14,25);K$
  640 PRINT AT(15,25);L$
  650 PRINT AT(16,25);M$
  660 PRINT AT(17,25);N$
  670 IF JOYST$(1)=0 THEN GOSUB 750
  680 GOSUB 810
  690 PRINT AT(14,25);O$
  700 PRINT AT(15,25);P$
  710 PRINT AT(16,25);Q$
  720 PRINT AT(17,25);R$
  730 IF JOYST$(1)=0 THEN GOSUB 750
  740 GOTO 490
  750 IF MOD=0 THEN RETURN
  760 IF JOYST$(1)>0 THEN GOTO 790
  770 PRINT AT(0,10);"TASTE DRUECKEN ! ! !"
  780 GOTO 760
  790 PRINT AT(0,10);STRING$(25," ")
  800 RETURN
  810 PRINT AT (17,C);""
  820 IF C>0 THEN PRINT AT (17,C-1);" "
  830 C=C+1
  840 IF C<26 THEN GOTO 870
  850 IF C>27 THEN GOTO 870
  860 IF A>4 THEN GOTO 1100
  870 IF C<40 THEN RETURN 
  880 C=C-40
  890 M=M+1 
  900 PRINT AT (2,20);M
  910 PRINT AT (17,39);" "
  920 RETURN
  930 A=1
  940 N=N+1
  950 PRINT AT (4,20);N
  960 PRINT AT (10,25);A$
  970 PRINT AT (11,25);B$
  980 PRINT AT (12,25);K$
  990 PRINT AT (13,25);L$
 1000 PRINT AT (14,25);M$
 1010 PRINT AT (15,25);N$
 1020 PRINT AT (16,25);S$
 1030 PRINT AT (17,25);S$
 1040 A=A+1
 1050 GOSUB 810
 1060 IF A<5 THEN GOTO 960
 1070 PRINT AT (10,25);S$
 1080 PRINT AT (11,25);S$
 1090 GOTO 490
 1100 BEEP
 1110 GOTO 1200
 1120 PRINT AT (10,25);S$
 1130 PRINT AT (11,25);S$
 1140 C=C+1
 1150 P=P+1
 1160 PRINT AT (6,20);P
 1170 PRINT AT (15,22);S$
 1180 PRINT AT (16,22);S$
 1190 GOTO 490
 1200 FOR Z=10 TO 16
 1210 PRINT AT (Z,25);S$
 1220 NEXT Z
 1230 PRINT AT (15,23);""
 1240 PRINT AT (16,23);"   "
 1250 BEEP:PAUSE 5
 1260 GOTO 1120