home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / irq.bells (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  826b  |  17 lines
  1. 1 rem irq.bells
  2. 20 print"[147]"spc(14)"[201][210][209][160][194][197][204][204][211]":gosub 2000
  3. 30 sys 50000:print"     [212]he program will now stop...":fordl=1to1500:next
  4. 35 print"goto37: rem press <[210][197][212][213][210][206]> to continue.[145][145][145]":end
  5. 37 sys50000:print"[147]         [199]oing to the menu...":f$="irq.menu"
  6. 38 print"[152]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  7. 40 rem
  8. 2000 forj=50000to50126:reada:pokej,a:next:return
  9. 2010 data 173,78,195,201,1,240,18,120,169,123,141,20,3,169,195,141
  10. 2020 data 21,3,88,169,1,141,78,195,96,120,169,49,141,20,3,169
  11. 2030 data 234,141,21,3,88,169,0,141,78,195,96,32,129,195,76,49
  12. 2040 data 234,173,4,220,41,16,201,16,240,1,96,169,15,141,24,212
  13. 2050 data 173,4,220,41,3,201,3,240,247,170,232,224,1,240,11,224
  14. 2060 data 2,240,5,162,15,76,170,195,162,7,173,4,220,41,63,24
  15. 2070 data 105,80,157,0,212,232,232,232,232,169,9,157,0,212,232,157
  16. 2080 data 0,212,202,202,169,17,157,0,212,169,16,157,0,212,96
  17.