start tok64 d64-ZaodcJ
0 REM          {down}{reverse on} sys pd 1991 {return}                {down}{reverse on}24 sprites!{down}
1 FORa=49152TO49332:READx:POKEa,x:r=r+x:NEXT
2 IFr-24041THENPRINT"fel i data!":END
3 DATA120,169,43,141,20,3,169,192,141,21,3,169,,141,18,208,141,14,220,169
4 DATA1,141,26,208,169,1,141,25,208,173,17,208,41,127,141,17,208,169,193,133
5 DATA252,88,96,173,18,208,201,,208,249,169,,133,251,32,93,192,173,18,208
6 DATA201,101,208,249,169,64,133,251,32,93,192,173,18,208,201,190,208,249,169
7 DATA128,133,251,32,93,192,169,1,141,25,208,76,49,234,160,16,177,251,153,
8 DATA208,136,48,3,76,95,192,160,21,177,251,141,21,208,160,23,177,251,141,23
9 DATA208,160,27,177,251,141,27,208,200,177,251,141,28,208,200,177,251,141,29
10 DATA208,165,251,105,36,133,251,160,9,177,251,153,37,208,136,48,3,76,147
11 DATA192,165,251,105,11,133,251,160,7,177,251,153,248,7,136,48,3,76,166,192
12 DATA96,32,208,96
20 POKE53280,.:POKE53281,.
21 PRINT"{yellow}{clear}{cm n}{reverse on}{space*27}{reverse off}{cm h}{green}{R*11}";
22 PRINT"{yellow}{cm n}{reverse on}24 sprites f{pound}r commodore 64{reverse off}{cm h}{green}sys pd 1991";
23 PRINT"{yellow}{cm n}{reverse on}{space*27}{reverse off}{cm h}{green}{cm y*11}
24 PRINT"{156}progammerat av: fredrik karlsson,
25 PRINT"falk{pound}ping. oberoende computer #3, 1989
26 PRINT"{down}{yellow}gamla","spr 0-7","spr 8-15","spr 16-23
27 PRINT"{orange}v=53248","a=49408","b=49472","c=49536
28 PRINT"{light blue}v","a","b","c
29 PRINT"v+1","a+1","b+1","c+1
30 PRINT" {sh -}"," {sh -}"," {sh -}"," {sh -}
31 PRINT" {sh -}"," {sh -}"," {sh -}"," {sh -}
32 PRINT"v+46","a+46","b+46","c+46
33 PRINT"{down}2040","a+48","b+48","c+48
34 PRINT" {sh -}"," {sh -}"," {sh -}"," {sh -}
35 PRINT" {sh -}"," {sh -}"," {sh -}"," {sh -}
36 PRINT"2047","a+55","b+55","c+55
37 PRINT"{down}{light green}poke49213,{green}gr[ns f[lt 1 och 2 ({light green}0-225{green})
38 PRINT"{light green}poke49227,{green}dito 2 och 3
39 PRINT"{light green}poke49329,238{green}=m[rk gr[nser({light green}96{green}=normalt)
40 PRINT"{white}starta: {reverse on}sys49152
41 POKE198,.:WAIT198,1:POKE198,.:PRINT"{clear}
stop tok64
(bastext 1.0)