home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Club 1
/
Computer_Club_1_1988_Systems_Editoriale.d64
/
borderkiller.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
793b
|
32 lines
1 rem *----------------*
2 rem * border killer *
3 rem * (c) by systems *
4 rem *----------------*
5 :
10 fori=0to99:reada:poke53097+i,a:next
15 :
20 fori=0to63:poke832+i,255:next
30 fori=0to7
40 :poke53248+i*2,85+24*i
50 :poke53248+i*2+1,20
60 :poke2040+i,13
70 next:poke53280,1:poke53281,0
80 poke53269,255
85 :
90 sys 53097:rem activate routine
95 :
100 rem ************* data ************
110 data 234,234,234,120,173,20,3
120 data 141,3,207,173,21,3,141,4
130 data 207,169,151,141,20,3,169,207
140 data 141,21,3,173,17,208,41,127
150 data 141,17,208,169,1,141,26,208
160 data 88,169,200,141,18,208,96,234
170 data 173,25,208,41,1,208,6,104
180 data 168,104,170,104,64,32,171,207
190 data 108,3,207,234,141,25,208,169
200 data 248,205,18,208,16,251,169,19
210 data 141,17,208,169,32,205,18,208
220 data 208,251,169,27,141,17,208,169
230 data 200,141,18,208,96