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

   10 CLEAR:CLS
   14 PRINT "    ";:PRINT CHR$(155);:PRINT "  ";:PRINT CHR$(157);:PRINT " ";
   16 PRINT "  ";:PRINT CHR$(155);:PRINT ""
   20 PRINT "    ";:PRINT CHR$(156);:PRINT " ";:PRINT CHR$(154);:PRINT "  ";
   22 PRINT " ";:PRINT CHR$(156);:PRINT ""
   24 PRINT AT(15,12);"COPRYRIGHT BY":PRINT AT(16,15);"A.P.ERFURT  "
   26 FOR I=0 TO 31
   28 PRINT AT(4,I);"":PRINT AT(21,I);""
   30 NEXT
   32 FOR I=4 TO 21
   34 PRINT AT(I,0);"":PRINT AT(I,31);""
   36 NEXT
   40 PRINT "VERTEIDIGUNGSSTAERKE ?(1-10)"
   42 PRINT:PRINT "SCHWIERIGKEITSGRAD   ?(1- 6)"
   48 INPUT ")";VS:IF VS>10 OR VS<1 GOTO 44
   50 VS=VS*10
   54 INPUT ")";Y:IF Y>6 OR Y<1 GOTO 52
  150 CLS
  160 X=2
  170 PRINT AT(30,3);"SCHUSS:"
  180 PRINT AT(30,18);"TREFFER:"
  190 PRINT AT(28,0);""
  200 PRINT AT(1,0);""
  205 PRINT AT(0,0);""
  210 L=15:PRINT AT(27,L);"#^#" 
  220 Q=0
  230 PRINT AT(X,ZZ);" "
  240 ZZ=INT(RND(1)*29)+1
  250 FJ=FJ+1
  260 IF FJ=40 THEN 670
  270 IF ZZ<2 OR ZZ>30 THEN 240
  280 X=X+Y
  290 IF X>27 THEN 630
  300 PRINT  AT(X,ZZ);""
  310 K$=INKEY$:QQ=QQ+1
  320 IF K$=CHR$(8)THEN 380 
  330 IF K$=CHR$(9)THEN 390
  340 IF K$=CHR$(32)THEN 500
  350 Q=Q+1
  360 IF Q>VS THEN 220
  370 GOTO 310
  380 L=L-1:GOTO 460
  390 IF L<29 THEN L=L+1
  400 BL=L-3:IF L<3 THEN 420
  410 GOTO 430
  420 BL=0
  430 PRINT AT(27,BL);"   "
  440 PRINT AT(27,L);"#^#"
  450 GOTO 310
  460 CL=L+3:IF L<0 THEN L=0
  465 PRINT AT(27,CL);"   "
  466 PRINT AT(28,0);""
  470 PRINT AT(27,L);"#^#"
  480 GOTO 310
  500 FOR I=26 TO X STEP-1
  510 PRINT AT(I+1,L+1);" "
  520 PRINT AT(I,L+1);"."
  530 NEXT
  535 PRINT AT(I+1,L+1);" "
  540 SC=SC+1
  550 IF ZZ<>L+1 THEN 590
  560 X=2
  570 TZ=TZ+1
  590 PRINT AT(30,10);SC
  600 PRINT AT(30,26);TZ
  610 GOTO 310
  630 PRINT AT(10,10);"INVASION GEGLUECKT"
  640 BEEP 6
  660 IF SC=0 THEN SC=1
  670 PR=INT(100-(100*TZ/SC))
  680 IF FJJ=40 THEN 1270
  700 IF PR>90 AND PR<110 THEN 747
  710 IF PR>70 AND PR<91 THEN 830
  720 IF PR>50 AND PR<71 THEN 890
  730 IF PR>30 AND PR<51 THEN 960
  740 IF PR=>0 AND PR<31 THEN 1030
  745 GOSUB 750
  746 GOTO 780
  747 GOSUB 750:GOTO 780
  750 CLS
  760 PRINT:PRINT:PRINT:PRINT "   TREFFER:";TZ
  770 PRINT "   VORBEI :";PR;"%"
  775 RETURN
  780 PRINT:PRINT:PRINT "   SIE BLINDES HUHN !!!"
  790 PRINT:PRINT "   SIE WERDEN VOR'S KRIEGS-"
  800 PRINT:PRINT "   GERICHT GESTELLT."
  810 PRINT:PRINT "   WEGEN FEIGHEIT VOR DEM"
  820 PRINT:PRINT "   FEIND !!!"
  825 GOTO 1200
  830 GOSUB 750
  840 PRINT:PRINT "   NA,JA FUER DEN ANFANG" 
  850 PRINT:PRINT "   GANZ GUT,VIELEICHT"
  860 PRINT:PRINT "   WECHSELN SIE TROTZDEM"
  870 PRINT:PRINT "   MAL DEN OPTIKER !!!"
  880 GOTO 1200
  890 GOSUB 750
  900 PRINT:PRINT "   SCHON BESSER ...WEITER SO!"
  910 PRINT:PRINT "   VIELEICHT KLAPPT ES JA"
  920 PRINT:PRINT "   BEIM NAECHSTEN MAL."
  930 PRINT:PRINT "   VIEL GLUECK !!!"
  940 GOTO 1200
  960 GOSUB 750
  970 PRINT:PRINT "   OHO,...FAST PROFFESIONNEL"
  980 PRINT:PRINT "   LEIDER IST DIE INVASION"
  990 PRINT:PRINT "   TROTZDEM GEGLUECKT."
  999 REM ROST-DEZ.86
 1000 PRINT:PRINT "   RUHE IN FRIEDEN .....!"
 1020 GOTO 1200 
 1030 GOSUB 750
 1040 PRINT:PRINT "   HIERMIT VERLEIHE ICH"
 1050 PRINT:PRINT "   IHNEN DEN ORDEN FUER" 
 1060 PRINT:PRINT "   RATIONELLEN MUNITONS-"
 1070 PRINT:PRINT "   VERBRAUCH."
 1080 PRINT:PRINT:PRINT "   F A N F A H R E"
 1200 QQ=INT(QQ/100)
 1210 PRINT AT(20,3);"SIE HIELTEN IHRE STELLUNG"
 1220 PRINT AT(22,3);QQ,"MINUTEN"                                             
 1225 B=28:C=3
 1240 INPUT "NOCH EIN MAL ?(J/N):";A$
 1250 IF A$="J"GOTO 10
 1260 GOTO 1410
 1270 PRINT AT(8,4);"INVASION ABGEWEHRT"
 1280 PRINT AT(11,4);"G R A T U L I E R E"
 1380 PRINT AT(13,4);"TREFFER:",TZ
 1390 PRINT AT(14,4);"VORBEI :",PR,"%"
 1400 C=4:B=18:GOTO 1240
 1410 CLS