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