home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 5
/
64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64
/
basic-switch
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
42 lines
1 rem *********************************
2 rem * *
3 rem * programm 1 *
4 rem * *
5 rem * c.sauers basic-switch fuer *
6 rem * den c-64 umgeschrieben von *
7 rem * h.ponnath hamburg 1985 *
8 rem * *
9 rem *********************************
10 rem
15 s=0:m=0:a=0:p=49152:k=0
20 reada:printchr$(147)a:ifa=-1then50
25 pokep,a
30 s=s+a:p=p+1:goto20
50 readk:m=m+1:ifs<>kthenprint"data-fehler in block "m:end
55 s=0:ifm=4thenclr:end
60 goto20
99 rem ******* data-block 1 ***********
100 data230,122,208,2,230,123,32,121,0,201,255,240,3,76,121,0,32,115,0,201
101 data69,208,3,76,168,192,201,83,240,3,76,8,175,32,155,183,165,101,240
102 data4,228,251,144,3,76,72,178,134,252,32,133,192,166,252,202,138,10,10
103 data10,168,162,0,185,23,193,149,43,200,232,224,-1,8756
109 rem ******* data-block 2 **********
110 data4,208,245,162,0,185,23
111 data193,149,55,200,232,224,2,208,245,165,252,133,250,32,96,166,32,142
112 data166,32,115,0,240,6,201,143,240,16,208,245,160,1,177,122,208,239,200
113 data192,2,208,234,76,116,164,32,215,170,165,122,164,123,32,30,171,240
114 data241,166,250,202,138,10,10,10,-1,9805
119 rem ******* data-block 3 **********
120 data168,162,0,181,43,153,23,193,200,232
121 data224,4,208,245,162,0,181,55,153,23,193,200,232,224,2,208,245,96,32
122 data133,192,32,115,0,32,138,173,32,191,177,165,253,133,43,165,254,133
123 data44,165,101,24,133,253,165,100,101,254,133,254,165,251,133,252,230
124 data251,32,22,228,165,254,-1,10113
129 rem ******* data-block 4 **********
130 data205,132,2,144,16,208,7,165,253,205,131,2,144
131 data7,169,12,160,173,76,30,171,165,253,133,55,165,254,133,56,32,68,166
132 data165,252,133,250,76,49,192,162,0,134,250,142,116,0,232,134,251,134
133 data252,165,43,133,253,165,44,133,254,169,76,133,115,169,192,133,117
134 data96,255,0,-1,9461
135 rem ******* ende der datas ********