home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dimension 64 14
/
Dimension_64_Nr.14_19xx_-_de_Side_B.d64
/
skateboard sam
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
86 lines
5 fori=54272to54296:pokei,0:next
10 poke53265,peek(53265)and239:poke657,128
20 si=54272:pokesi+24,8:pokesi+6,240:pokesi,193:pokesi+1,44
100 fori=0to57:reada
110 poke49152+i,a:next:sys49152
120 fori=0to207:reada:poke14344+i,a:poke15368+i,255-a:next
122 fori=0to79:reada:poke14720+i,a:poke15744+i,255-a:next
124 fori=0to119:reada:poke14856+i,a:next
126 fori=49152to49213:reada:pokei,a:next
130 print"[147][152]":poke53280,0:poke53281,12
135 fori=0to39:poke1024+i,42:poke55296+i,0:next
138 fori=0to39:poke1984+i,42:poke56256+i,0:next
140 print" ***** m&m soft presents *****"
150 print" skateboard sam"
160 print" written in 1985 by marc doinet"
170 print" please wait for loading main-program"
200 poke53265,peek(53265)or16
205 fori=0to650:ifpeek(1184+i)<>32thenpoke55456+i,0:pokesi+4,17:forj=0to20:next
206 pokesi+4,0:next
208 fori=0to1200:next
210 poke53281,0:print"[147][144]load"chr$(34)"sam b"chr$(34)",8"
220 poke631,19:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5
230 poke2816,0:poke44,11:poke56,127:new
1000 data120,169,0,141,250,0,141,252,0,169,51,141,1,0,169,208,141,251,0,169
1010 data56,141,253,0,162,0,160,0,177,250,145,252,200,208,249,238,251,0,238
1020 data253,0,232,224,8,208,236,169,55,141,1,0,88,169,31,141,24,208,96
1050 data126,70,66,126,66,66,66,0:rem a
1060 data124,110,102,124,102,102,124,0:remb
1070 data126,70,64,64,64,66,126,0:rem c
1080 data124,70,66,66,66,70,124,0:rem d
1090 data126,70,64,120,64,66,126,0:rem e
1100 data126,70,64,120,64,64,64,0:rem f
1110 data126,70,64,78,66,66,126,0:rem g
1120 data67,67,66,126,66,66,66,0:rem h
1130 data24,0,24,24,24,24,24,0:rem i
1140 data6,6,4,4,68,100,60,0:rem j
1150 data76,92,112,96,112,88,76,0:rem k
1160 data96,96,64,64,64,66,126,0:rem l
1170 data131,199,238,186,130,130,130,0:rem m
1180 data67,99,114,90,78,70,66,0:rem n
1190 data62,102,66,66,66,102,60,0:rem o
1200 data126,70,70,124,64,64,64,0:rem p
1210 data62,102,66,66,74,102,62,0:rem q
1220 data126,70,70,124,88,76,70,0:rem r
1230 data126,70,64,126,2,66,126,0:rem s
1240 data126,22,16,16,16,16,16,0:rem t
1250 data67,67,66,66,66,102,60,0:rem u
1260 data67,99,34,54,20,20,28,0:rem v
1270 data131,131,130,130,146,186,238,0:rem w
1280 data238,126,56,16,56,126,238,0:rem x
1290 data67,67,102,60,24,48,96,0:rem y
1300 data126,70,12,24,48,98,126,0:rem z
1310 data126,70,66,66,66,66,126,0:rem 0
1320 data24,8,8,8,8,8,28,0:rem 1
1330 data126,6,2,126,64,64,126,0:rem 2
1340 data126,6,2,14,2,2,126,0:rem 3
1350 data66,70,126,2,2,2,2,0:rem 4
1360 data126,70,64,124,6,70,60,0:rem 5
1370 data126,70,64,126,66,66,126,0:rem 6
1380 data124,12,4,14,4,4,4,0:rem 7
1390 data126,110,102,60,102,102,126,0:rem 8
1400 data126,110,102,126,2,2,2,0:rem 9
1410 data1,1,3,3,7,29,59,222
1420 data128,128,192,192,96,216,188,247
1430 data255,127,237,127,255,255,125,255
1440 data254,191,246,251,254,255,251,254
1450 data255,253,223,255,255,247,191,255
1460 data255,255,189,247,255,255,125,255
1470 data255,255,7,255,255,131,127,255
1480 data255,191,254,243,207,254,251,231
1490 data0,56,95,95,95,63,7,0
1500 data0,0,224,248,252,250,26,4
1510 data102,255,255,255,255,255,255,255
1520 data253,255,239,255,61,31,7,1
1530 data255,31,3,0,0,0,0,0
1540 data191,255,239,255,124,248,224,128
1550 data255,248,192,0,0,0,0,0
1560 data120,169,23,141,20,3,169,192
1570 data141,21,3,169,255,141,14,208
1580 data160,0,140,250,0,88,96,206
1590 data14,208,172,250,0,200,140,250
1600 data0,192,8,208,5,169,38,141
1610 data255,7,192,16,240,3,76,49
1620 data234,169,39,141,255,7,160,0
1630 data140,250,0,76,49,234