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