home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 5
/
Commodore_Disc_05_19xx_-_de.d64
/
multi-screen.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
28 lines
1 rem multi screen =============64
2 rem (p) 10/86 cbm revue team =
3 rem ============================
4 rem (c) 09/86 joerg tuttas =
5 rem =
6 rem c-64 =
7 rem ============================
10 for t=49152 to 49310
11 read a:poke t,a:s=s+a:next
12 cl$=chr$(147)
13 if s=18460 then printcl$"programm ok":new
14 printcl$"fehler in datas":end
15 *******************************
16 start: sys 49152,y oben,y unten
17 ****** y von 1 bis 25
18 ende: sys 49260
19 *******************************
1000 data 32,253,174, 32,158,183,134,250, 32,253,174, 32,158,183,134,251, 32
1010 data126,192,120,169, 51,141, 20, 3,169,192,141, 21, 3,173, 60, 3,141
1020 data 18,208,173, 17,208, 41,127,141, 17,208,169,129,141, 26,208, 88, 96
1030 data173, 25,208,141, 25,208, 48, 7,173, 13,220, 88, 76, 49,234,173, 18
1040 data208,205, 61, 3,176, 17,173, 24,208, 73, 2,141, 24,208,173, 61, 3
1050 data141, 18,208, 76,129,234,173, 24,208, 73, 2,141, 24,208,173, 60, 3
1060 data141, 18,208, 76,129,234,120,169, 0,141, 26,208,169, 49,141, 20, 3
1070 data169,234,141, 21, 3, 88, 96,165,250, 32,145,192,141, 60, 3,230,251
1080 data165,251, 32,145,192,141, 61, 3, 96,170,169, 50,202,240, 6, 24,105
1090 data 8, 76,148,192, 96, 76