home *** CD-ROM | disk | FTP | other *** search
- 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)
-