home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 May
/
64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64
/
starkstrom
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
510b
|
23 lines
1 rem sound
2 rem*************************
3 rem*joern donges *
4 rem*homrighaeuserweg 52 *
5 rem*5920 bad berleburg *
6 rem*************************
7 :
8 fori=3000to3010:reada:pokei,a:next
9 :
10 print"bitte lautstaerke aufdrehen!!"
11 poke198,0:wait198,1:poke198,0
12 :
13 si=54272:forn=0to24:poke si+n,0:next n:
14 poke si+6 ,250
16 poke si+1 ,14:pokesi+2,0
18 poke si+4,129
19 :
20 print" starkstromentladung"
21 :
22 :sys3000:::::::::::::::::::::goto22
24 :
100 data169,255,141,24,212,169,0,141,24,212,96