home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / toccata (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  798b  |  29 lines
  1. 0 ifp=0thenp=1:load"bload.o",8,1
  2. 5 gosub20000
  3. 10 sys828,8192,"d.toccata&fugue"
  4. 20 sys828,32768,"q&d player.32768"
  5. 30 sys828,32771,"v.t&f"
  6. 40 rem
  7. 50 poke253,0:poke254,32
  8. 60 sys32768
  9. 61 poke198,0
  10. 62 print"[147]  [196]o you want to hear it again? (y/n)"
  11. 63 getk$:ifk$=""then63
  12. 64 ifk$<>"y"thenifk$<>"n"thenpoke53280,rnd(1)*15:goto63
  13. 65 ifk$="y"thengosub20000:goto40
  14. 70 load"hello connect",8
  15. 20000 print"[147][158]";:poke53281,0:poke53280,0
  16. 30000 forc=1to13
  17. 30010 print"                                        ";
  18. 30020 next
  19. 30030 print"[212]occata and [198]ugue    by   [202]. [211]. [194]ach"
  20. 30040 print"[210]ecorded by:  [203]en [198]ehrmann"
  21. 30045 print"[210]ecorded on: [160][197]lectric [196]uet"
  22. 30046 print"by [208]aul [204]utus"
  23. 30050 print"[212]ranscribed by:  [202]im [215]eiler"
  24. 30060 print"[195]opyright 1985, [204]oadstar"
  25. 30070 print"[208]laying time: 6 minutes"
  26. 30080 print"[208]ress any key to quit early."
  27. 30100 print"";
  28. 40000 return
  29.