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

  100 WINDOW:CLS
  110 PRINT "          WUERFELN":PRINT "        ____________":PRINT
  120 INPUT "WUERFELUMFANG";N:PRINT AT(23,0);" 1  2  3  4  5  6":WINDOW 0,0,0,0
  130 PRINT AT(3,30);"":PRINT AT(4,30);"   ":PRINT AT(5,30);"   "
  140 PRINT AT(6,30);"   ":PRINT AT(7,30);"":PAUSE 10
  150 FOR I=12 TO 23:PRINT AT(I,32);"":NEXT I
  160 Z1=0:Z2=0:Z3=0:Z4=0:Z5=0:Z6=0
  170 PRINT AT(11,26);"":PRINT AT(10,32);""
  180 PRINT AT(10,26);"ZAHL":PRINT AT(10,33);"ANZAHL"
  190 FOR I=1 TO 6:PRINT AT(11+2*I,27);I:NEXT I
  195 FOR I=1 TO 6:PRINT AT(11+2*I,35);"0":NEXT I
  200 FOR I=1 TO N
  210 Y=INT(RND(1)*6)+1
  220 ON Y GOTO 230,250,270,290,310,330
  230 Z1=Z1+1:PRINT AT(4,31);"   ":PRINT AT(5,31);"  ":PRINT AT(6,31);"   "
  240 PRINT AT(13,34);Z1:GOTO 350
  250 Z2=Z2+1:PRINT AT(4,31);"  ":PRINT AT(5,31);"   ":PRINT AT(6,31);"  "
  260 PRINT AT(15,34);Z2:GOTO 350
  270 Z3=Z3+1:PRINT AT(4,31);"  ":PRINT AT(5,31);"  ":PRINT AT(6,31);"  "
  280 PRINT AT(17,34);Z3:GOTO 350
  290 Z4=Z4+1:PRINT AT(4,31);" ":PRINT AT(5,31);"   ":PRINT AT(6,31);" "
  300 PRINT AT(19,34);Z4:GOTO 350
  310 Z5=Z5+1:PRINT AT(4,31);" ":PRINT AT(5,31);"  ":PRINT AT(6,31);" "
  320 PRINT AT(21,34);Z5:GOTO 350
  330 Z6=Z6+1:PRINT AT(4,31);" ":PRINT AT(5,31);" ":PRINT AT(6,31);" "  
  340 PRINT AT(23,34);Z6
  350 PAUSE 5:PRINT AT(4,31);"   ":PRINT AT(5,31);"   ":PRINT AT(6,31);"   ":NEXT I
  360 X=Z1:GOSUB 1000:IF G=0 THEN 361 ELSE FOR I=1 TO G:PRINT AT(22-I,1);Y$:NEXT I
  361 PRINT AT(22-I,1);X$
  370 X=Z2:GOSUB 1000:IF G=0 THEN 371 ELSE FOR I=1 TO G:PRINT AT(22-I,4);Y$:NEXT I
  371 PRINT AT(22-I,4);X$
  380 X=Z3:GOSUB 1000:IF G=0 THEN 381 ELSE FOR I=1 TO G:PRINT AT(22-I,7);Y$:NEXT I
  381 PRINT AT(22-I,7);X$
  390 X=Z4:GOSUB 1000:IF G=0 THEN 391 ELSE FOR I=1 TO G:PRINT AT(22-I,10);Y$:NEXT I
  391 PRINT AT(22-I,10);X$
  400 X=Z5:GOSUB 1000:IF G=0 THEN 401 ELSE FOR I=1 TO G:PRINT AT(22-I,13);Y$:NEXT I
  401 PRINT AT(22-I,13);X$
  410 X=Z6:GOSUB 1000:IF G=0 THEN 411 ELSE FOR I=1 TO G:PRINT AT(22-I,16);Y$:NEXT I
  411 PRINT AT(22-I,16);X$:END
 1000 T=INT(X*160/N):G=INT(T/8):R=T-G*8:R=R+1 
 1010 ON R GOTO 1020,1030,1040,1050,1060,1070,1080,1090 
 1020 X$="  ":GOTO 1100
 1030 X$="":GOTO 1100
 1040 X$="":GOTO 1100
 1050 X$="":GOTO 1100
 1060 X$="":GOTO 1100 
 1070 X$="":GOTO 1100
 1080 X$="":GOTO 1100
 1090 X$="":GOTO 1100
 1100 Y$="":RETURN