home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_88-03_1988_-_de_Side_B.d64
/
sprechprobe
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
669b
|
21 lines
0 goto10
1 @l:print"[147]";:list100-2900
10 print"[147] test of sp0256 al2 expansion "
20 print" brought to you by magic disk 64
30 [153]"(chip should be talking now!)on
100 u=56577:pokeu,0:pokeu+2,255:pokeu+1,peek(u+1)or4
110 pokeu-1,151
120 fori=0to100:reada,b:ifa=-1then200
130 x=a:gosub1000:forj=0tob*5:next:next
200 print"the test sentence was: "
210 printchr$(34)"isn't it magic to let a chip speak?"chr$(34)
999 poke198,0:wait198,1:run
1000 rem
1010 pokeu-1,151:pokeu,x:pokeu-1,147:return
2000 data49,4,43,10,44,10,13,20,0,20,49,4,13,5,0,20:rem isn't it
2010 data35,5,26,15,38,05,49,10,42,4,0,10:rem 'magic'
2020 data13,5,31,03,0,10,45,5,7,10,13,10,0,10:rem 'to let'
2030 data26,8,0,10,10,10,49,4,9,10,0,10:rem 'a chip'
2040 data55,5,9,10,49,10,42,10,0,20
2999 data-1,0