start bastext 12289 start tok128 d64-e4hhbm 10 GOSUB9000 30 PRINT"{ct n} 40 SYS7930,91,102,0,60,102,126,102,102,0 50 SYS7930,92,102,0,60,102,102,102,60,0 60 SYS7930,93,24,36,60,102,126,102,102,0 100 END 110 SYS 7730 - ]terst[ll 120 SYS 7930,sk,x,x,x,x,x,x,x,x 130 - DEFinera 140 SYS 8150,mode,sk 150 - [ndra 160 modes: 0=upp]ner 1=spegl 2,3=90gr 2048 - 7680 [r fritt (block 32-119) 9000 REM *** s u p e r u d g *** 9010 REM 9020 REM ** by k brunzell 1989 ** 9030 REM 9040 REM 9050 IFPEEK(44)<>48THENPRINT"basic ska flyttas innan detta laddas!":END 9060 ad=7682 9070 FORn=9140TO9520STEP10 9080 s=0:FORi=1TO13 9090 READx:POKEad,x 9100 ad=ad+1:s=s+x 9110 NEXTi 9120 READk:IFk<>sTHENPRINT"fel i rad"n:END 9130 NEXTn:RETURN 9140 DATA102,0,60,102,126,102,102,0,102,0,60,102,102,960 9150 DATA102,60,0,24,36,60,102,126,102,102,0,54,0,768 9160 DATA60,6,62,102,62,0,102,0,60,102,102,102,60,820 9170 DATA0,24,0,60,6,62,102,62,0,165,44,201,48,774 9180 DATA240,3,76,116,164,169,127,141,13,220,169,51,133,1622 9190 DATA1,160,0,185,0,208,153,0,32,200,208,247,238,1632 9200 DATA72,30,238,75,30,169,48,205,75,30,208,234,169,1583 9210 DATA208,141,72,30,169,32,141,75,30,169,55,133,1,1256 9220 DATA169,129,141,13,220,169,25,141,24,208,160,0,185,1584 9230 DATA2,30,153,216,32,73,255,153,216,36,185,26,30,1407 9240 DATA153,216,40,73,255,153,216,44,200,192,24,208,229,2003 9250 DATA96,169,48,197,44,208,10,173,24,208,201,25,176,1579 9260 DATA6,76,50,30,76,116,164,96,32,253,174,32,158,1263 9270 DATA183,224,128,144,5,162,14,108,0,3,134,251,162,1518 9280 DATA8,134,252,24,169,0,106,102,251,144,3,24,101,1318 9290 DATA252,202,16,245,133,252,24,169,32,101,252,133,252,2063 9300 DATA165,251,133,253,24,165,252,105,4,133,254,173,24,1936 9310 DATA208,201,25,240,11,24,165,252,105,8,133,252,105,1729 9320 DATA4,133,254,96,240,240,240,240,15,15,15,15,234,1741 9330 DATA234,32,146,30,176,1,96,32,166,30,160,0,152,1255 9340 DATA72,32,253,174,32,158,183,104,168,138,153,240,30,1737 9350 DATA200,192,8,208,237,160,0,185,240,30,145,251,73,1929 9360 DATA255,145,253,200,192,8,208,242,96,32,146,30,176,1983 9370 DATA1,96,32,166,30,160,0,177,251,133,2,169,0,1217 9380 DATA162,8,6,2,106,202,208,250,145,251,73,255,145,1813 9390 DATA253,200,192,8,208,231,96,32,146,30,176,1,96,1669 9400 DATA32,166,30,160,0,140,240,30,162,7,142,241,30,1380 9410 DATA177,251,72,172,241,30,177,251,172,240,30,145,251,2209 9420 DATA73,255,145,253,104,172,241,30,145,251,73,255,145,2142 9430 DATA253,238,240,30,206,241,30,172,240,30,192,4,208,2084 9440 DATA216,96,32,146,30,32,166,30,162,0,160,0,169,1239 9450 DATA0,72,177,251,133,2,104,70,2,42,72,165,2,1092 9460 DATA145,251,104,200,192,8,208,236,157,240,30,232,224,2227 9470 DATA8,208,224,32,24,31,96,169,6,141,156,31,169,1295 9480 DATA106,141,158,31,32,138,31,96,169,70,141,156,31,1300 9490 DATA169,42,141,158,31,32,138,31,96,234,234,234,234,1774 9500 DATA32,253,174,32,158,183,224,4,144,5,162,14,108,1493 9510 DATA0,3,224,0,208,3,76,78,31,224,1,208,3,1059 9520 DATA76,41,31,224,2,208,3,76,182,31,76,196,31,1177 9530 REM forts dina datasatser... stop tok128 (bastext 1.0)