start tok64 d64-M7iU2b
10 REM ******************************
20 REM *     vis anv[nt memory      *
30 REM * -------------------------- *
40 REM * gjort av t i               *
50 REM * tecknen [r gjort av sprites*
60 REM * och ligger fr]n r1027,tal  *
70 REM * nr 3 (254), och fram]t     *
80 REM * definerat 0-f              *
90 REM ******************************
99 :
100 t=0
110 FORn=49152TO49480
120 READa
130 POKEn,a
140 t=t+a
150 NEXT
160 IFt<>41968THENPRINT"datafel":STOP
186 FORi=13*64TO14*64+63:POKEi,.:NEXT
190 PRINT"{clear}{down*2}{right}sys pd 1991
200 PRINT"{down*2}{right}sys 49152 startar
210 PRINT"{down}{right}om det inte funkar, stop+restore och{space*4}{down}f{pound}rs{pound}k igen.
1000 DATA 169,78,141,20,3,169,192,141
1001 DATA 21,3,169,1,141,13,220,169
1002 DATA 129,141,26,208,173,25,208
1003 DATA 141,25,208,169,0,141,18,208
1004 DATA 169,19,141,17,208,88,160
1005 DATA 13,140,248,7,200,140,249
1006 DATA 7,169,42,141,1,208,141,3
1007 DATA 208,169,1,141,39,208,141
1008 DATA 40,208,169,200,141,0,208
1009 DATA 169,224,141,2,208,169,3,141
1010 DATA 21,208,96,169,19,141,17,208
1011 DATA 173,25,208,141,25,208,169
1012 DATA 253,205,18,208,208,251,169
1013 DATA 27,141,17,208,32,112,192
1014 DATA 169,249,141,18,208,76,49
1015 DATA 234,165,49,56,229,43,141
1016 DATA 199,192,165,50,56,229,44
1017 DATA 141,200,192,41,240,74,168
1018 DATA 162,1,32,178,192,173,200
1019 DATA 192,41,15,10,10,10,168,162
1020 DATA 2,32,178,192,173,199,192
1021 DATA 41,240,74,168,162,64,32,178
1022 DATA 192,173,199,192,41,15,10
1023 DATA 10,10,168,162,65,32,178,192
1024 DATA 96,169,7,141,73,193,185,201
1025 DATA 192,157,64,3,200,232,232
1026 DATA 232,206,73,193,16,241,96
1027 DATA 2,0,254,130,130,130,130,130
1028 DATA 130,254,16,16,16,16,16,16
1029 DATA 16,16,254,2,2,254,128,128
1030 DATA 128,254,254,2,2,254,2,2,2
1031 DATA 254,130,130,130,254,2,2,2
1032 DATA 2,254,128,128,254,2,2,2,254
1033 DATA 254,128,128,254,130,130,130
1034 DATA 254,254,2,4,8,16,32,64,128
1035 DATA 254,130,130,254,130,130,130
1036 DATA 254,254,130,130,254,2,2,2
1037 DATA 2,254,130,130,254,130,130
1038 DATA 130,130,252,130,130,252,130
1039 DATA 130,130,252,254,128,128,128
1040 DATA 128,128,128,254,252,132,130
1041 DATA 130,130,130,132,252,254,128
1042 DATA 128,254,128,128,128,254,254
1043 DATA 128,128,254,128,128,128,128
1050 REM f{pound}re load/save:runstop/restore
1051 REM ([ven f{pound}re start av rutinen)
stop tok64
(bastext 1.0)