2bc0 3545 0000 B ... SINTERKL.B
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

 1000 A=200:GOTO 20:REM SINTERKLAAS
 1010 CC(0)=7:CC(1)=1:CN=0:R=0
 1020 GOSUB 600
 1030 FOR N=1 TO 170
 1040 READ T,X,Y:IF R=1 THEN X=100-X
 1050 HO=X/100:VE=Y/100
 1060 IF T=1 THEN GOSUB 620
 1070 IF T=2 THEN GOSUB 630
 1080 NEXT N
 1090 SV=10:FOR N=1 TO 56
 1100 READ SP,SD:SP=SP+7*R:GOSUB 400
 1110 NEXT N:SR$="nog eens? j/n":EO=.1:VE=.95:GOSUB 650
 1120 GOSUB 210:IF IN=74 THEN RESTORE:R=1-R:GOTO 1020
 1130 IF IN<>78 THEN GOSUB 250:GOTO 1120
 1140 GOTO 950
25000 REM DE TEKENING
25010 DATA 1,16,36,2,15,40,2,13,44,2,11,44,2,10,40,2,10,29
25020 DATA 2,13,27,2,13,22,2,15,26,2,19,26,2,23,29,2,28,38
25030 DATA 1,43,44,2,48,42,2,54,44,2,56,50,2,55,62,2,56,67
25040 DATA 2,57,72,2,51,89,2,51,89,2,51,93,2,46,93,2,49,90
25050 DATA 2,53,73,2,46,66,2,43,61,2,44,54,1,43,61,2,32,65
25060 DATA 2,28,65,2,24,78,2,23,90,2,23,92,2,19,92,2,21,88
25070 DATA 2,21,79,2,21,78,2,21,75,2,21,63,2,19,59,2,20,50
25080 DATA 2,20,41,2,16,37,1,13,34,2,13,34,1,19,61,2,15,75
25090 DATA 2,21,81,1,25,82,2,27,80,2,26,77,2,25,78,1,20,77
25100 DATA 2,18,74,2,20,68,1,53,84,2,54,90,2,57,90,2,55,80
25110 DATA 1,54,43,2,59,39,2,63,40,2,65,47,2,64,58,2,60,55
25120 DATA 2,62,48,2,61,44,2,58,43,2,55,44,1,35,24,2,34,17
25130 DATA 2,38,10,2,38,18,2,41,11,2,41,21,2,40,25,2,35,25
25140 DATA 2,36,32,2,41,29,2,40,25,1,35,25,2,33,28,2,34,28
25150 DATA 2,31,36,1,37,33,2,27,40,2,30,44,2,39,38,1,40,31
25160 DATA 2,42,40,2,42,47,2,36,63,2,25,55,2,31,43,1,26,57
25170 DATA 2,25,59,2,34,65,2,35,63,1,30,63,2,30,65,2,26,62
25180 DATA 1,13,41,2,26,39,2,26,41,2,26,43,2,28,42,1,42,78
25190 DATA 2,33,43,1,31,36,2,26,19,2,23,19,2,21,17,2,20,13
25200 DATA 2,22,10,2,25,9,2,27,11,2,27,14,2,26,15,2,24,14
25210 DATA 1,75,43,2,76,40,2,76,38,2,74,37,2,69,41,2,72,47
25220 DATA 2,70,47,2,68,44,2,68,42,1,68,46,2,67,47,2,67,50
25230 DATA 2,68,50,2,71,50,2,68,56,2,66,62,2,67,63,2,74,57
25240 DATA 1,70,57,2,73,52,1,74,50,2,75,46,2,80,41,2,83,43
25250 DATA 2,87,59,2,79,62,2,74,51,1,71,61,2,73,66,2,78,64
25260 DATA 2,81,71,2,80,74,2,76,74,2,73,71,2,73,67,1,73,72
25270 DATA 2,69,89,2,65,91,2,65,93,2,71,93,2,71,90,2,74,83
25280 DATA 2,74,79,2,79,75,2,83,93,2,76,93,2,76,91,2,80,90
25290 DATA 2,76,78,2,76,78
25300 REM MUZIEK
25310 DATA 67,4,67,2,69,4,69,2,67,6,64,6
25320 DATA 67,4,67,2,69,4,69,2,67,6,64,6
25330 DATA 65,4,65,2,65,4,62,2,65,6,65,6
25340 DATA 69,4,67,2,65,4,64,2,62,6,60,6
25350 DATA 67,2,67,2,69,2,69,2,67,1,69,1,67,1,65,1,64,2,60,2
25360 DATA 67,2,67,2,69,2,69,2,67,1,69,1,67,1,65,1,64,2,60,2
25370 DATA 65,2,65,2,65,2,62,2,65,4,65,4
25380 DATA 69,2,67,2,65,2,64,2,62,4,60,4
32000 REM------------------------------
32010 REM CH.W.BREDERODE            MSX
32020 REM VON BONNINGHAUSENLAAN 33
32030 REM 2161 ES  LISSE 9/1992
32040 REM------------------------------
32050 REM TROS-RADIO DD 920930