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

    1! Dresdner Zwinger
    5 GOTO 200
   10 CLS
   20 PRINT AT(5,24);"":PRINT AT(6,24);"":PRINT AT(7,23);""
   30 PRINT AT(8,22);" ":PRINT AT(9,21);"   "
   40 PRINT AT(10,21);"   ":PRINT AT(11,20);"":PRINT AT(12,21);" "
   50 PRINT AT(13,21);" ":PRINT AT(14,21);" "
   60 PRINT AT(15,2);" "
   70 PRINT AT(16,2);""
   80 PRINT AT(17,2);" "
   90 PRINT AT(18,2);" "
  100 PRINT AT(19,2);" "
  110 PRINT AT(20,2);" "
  120 PRINT AT(21,2);" "
  130 PRINT AT(22,2);"   "
  140 RETURN
  200 CLS
  210 INPUT "Drucken (J/(N)) ?";A$
  230 GOSUB 10:PRINT AT(0,0);" "
  240 IF A$="J" THEN 270
  250 A$=INKEY$:IF A$="" THEN 250
  260 END
  270 PRINT CHR$(16);CHR$(14);CHR$(16)
  280 END