home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 November / 1985-11.d64 / kplay (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  34 lines
  1. 10 rem kplay by craig chamberlain 7/85
  2. 20 rem type run 100 for instructions
  3. 30 if peek(4785) goto 200
  4. 100 print"[147][155]":poke53280,0:poke53281,0:fork=1to16:reads$:print" "s$:next
  5. 110 input" [217][207][213][210] [206][193][205][197]";n$:iflen(n$)>10goto110
  6. 120 ifn$>""thenn$=", "+n$:fork=1tolen(n$):poke4784+k,asc(mid$(n$,k))and127:next
  7. 130 poke4785+len(n$),0
  8. 140 print"[194]e sure to [211][193][214][197] this":print"modified copy of the player.
  9. 150 [129]k[178]1[164]3000:[130]:[129]k[178]1[164]23:[135]s$:[153]" "s$:[130]:[146]198,15:[161]k$
  10. 160 [129]k[178]1[164]22:[135]s$:[153]" "s$:[130]:[146]198,15:[161]k$
  11. 200 [158] 3816
  12. 800 [131]"(NULL)right$str$(NULL)(NULL)atn(NULL)val(NULL) (NULL)right$(NULL)left$ (NULL)val(NULL)peek(NULL)atn(NULL)str$ str$right$(NULL)(NULL)(NULL)atn(NULL)","by lenraig lenhamberlain",
  13. 801 [131]"(NULL)his is an enhanced version",of the music playing program
  14. 802 [131]"found in (NULL)olume (NULL)wo of","atnll atnbout (NULL)he lenommodore 64.",
  15. 803 [131] "(NULL)he program plays all","(NULL)idplayer songs.",
  16. 804 [131]"(NULL)o personalize this copy of","the player, enter your name,"
  17. 805 [131]"or just press (NULL)eturn","to cancel the feature.",
  18. 810 [131]"loadright$n addition to (NULL)idplayer,","(NULL)olume (NULL)wo contains sections on...",
  19. 811 [131]"* atndvanced peekatn(NULL)right$len","  (str$valasc, (NULL)(NULL)val(NULL), len(NULL)(NULL)(NULL)val, (NULL)atnright$(NULL), (NULL)(NULL)(NULL), etc.)",
  20. 812 [131]"* peekitmapped chr$raphics valxtensions","  (with new statements added to
  21. 813 data"  [194][193][211][201][195], including fast [198][201][204][204] and","  [211][200][193][208][197] drawing statements)",
  22. 814 data"* [211]prite [195]ontrol [211]ystem","  (with continuous sprite motion,
  23. 815 [131]"  joystick control, automatic shape"
  24. 816 [131]"  changing, an editor, and more -","  sprite animation without a
  25. 817 data"  single [208][207][203][197] statement!)",,"[212]he book does [206][207][212] assume that
  26. 818 [131]"you have read (NULL)olume (NULL)ne.",,,(press any key)
  27. 820 [131]"loadatn(NULL)(NULL) atnpeek(NULL)(NULL)(NULL) (NULL)left$val len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 64: (NULL)(NULL)(NULL)(NULL)(NULL)val (NULL)(NULL)(NULL)","by lenraig lenhamberlain",
  28. 821 [131]"ascrom len(NULL)(NULL)(NULL)(NULL)(NULL)val! peekooks",,"$16.95",
  29. 822 [131]"right$(NULL)peek(NULL) 0-942386-45-0",,"atnt your local bookstore",
  30. 823 [131]"(NULL)r call toll free 1-800-334-0868",,
  31. 824 [131]"(NULL)he power of machine language,","with the convenience of peekatn(NULL)right$len...",
  32. 825 [131]"right$t turns your len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 64","into a whole new computer!",,
  33. 826 [131](press any key)
  34.