home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 22 / 022.d81 / jukebox (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  825 b   |  30 lines
  1. 1 ifl=0thenl=1:load"bload.o",8,1
  2. 2 sys828,32768,"q&d player 32768"
  3. 10 sg$(1)="scarborough fair"
  4. 15 sg$(2)="sonatina #2"
  5. 20 sg$(3)="ease on down the road"
  6. 25 sg$(4)="prelude and fugue":ns=4
  7. 27 print"[147]"chr$(142)chr$(8):poke53280,0:poke53281,0
  8. 30 print"[147][158]loadstar jukebox"
  9. 35 fort=1 to ns:print"[154]("t") " sg$(t):next
  10. 40 print"enter your selection (1-4)  "
  11. 41 print"or x to exit: ";
  12. 42 get t$:ift$="" then42
  13. 43 if t$="x" then print"[147]see you, bye!":goto190
  14. 44 if t$<"1" or t$>"4" then 42
  15. 45 sn=val(t$)
  16. 50 sg$="d."+left$(sg$(sn),14)
  17. 55 print t$
  18. 60 print"[145]   loading...           "
  19. 90 sys828,8192,sg$
  20. 95 sys828,32771,"v."+sg$
  21. 97 print"[145]   space bar to stop.        "
  22. 100 poke253,0:poke254,32:sys32768
  23. 150 if peek(198)=0then27
  24. 160 if peek(198)<>0thengetk$
  25. 170 print"[147]more(y/n)???";
  26. 175 get mr$: if mr$="" then 175
  27. 180 if mr$="y" then 27
  28. 185 if mr$<>"n" then 170
  29. 190 poke928,0:load"hello connect",8
  30.