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