start tok64 d64-gDUEfb
10 REM kplay by craig chamberlain 7/85
20 REM type run 100 for instructions
30 IF PEEK(4785) GOTO 200
100 PRINT"{clear}{ct n}{ct h}{light gray}":POKE53280,0:POKE53281,0:FORk=1TO16:READs$:PRINT" "s$:NEXT
110 INPUT" YOUR NAME";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"{down}{right}Be sure to SAVE this":PRINT"{right}modified copy of the player.
150 FORk=1TO3000:NEXT:FORk=1TO23:READs$:PRINT" "s$:NEXT:WAIT198,15:GETk$
160 FORk=1TO22:READs$:PRINT" "s$:NEXT:WAIT198,15:GETk$
200 SYS 3816
800 DATA"SIDPLAYER WITH KEYBOARD DISPLAY","by Craig Chamberlain",
801 DATA"This is an enhanced version",of the music playing program
802 DATA"found in Volume Two of","All About The Commodore 64.",
803 DATA "The program plays all","Sidplayer songs.",
804 DATA"To personalize this copy of","the player, enter your name,"
805 DATA"or just press Return","to cancel the feature.",
810 DATA"{clear}{down}{right}In addition to Sidplayer,","Volume Two contains sections on{.*3}",
811 DATA"* Advanced BASIC","{space*2}(DEF, OPEN, CLOSE, WAIT, SYS, etc.)",
812 DATA"* Bitmapped Graphics Extensions","{space*2}(with new statements added to
813 DATA"{space*2}BASIC, including fast FILL and","{space*2}SHAPE drawing statements)",
814 DATA"* Sprite Control System","{space*2}(with continuous sprite motion,
815 DATA"{space*2}joystick control, automatic shape"
816 DATA"{space*2}changing, an editor, and more -","{space*2}sprite animation without a
817 DATA"{space*2}single POKE statement!)",,"The book does NOT assume that
818 DATA"you have read Volume One.",,,(press any key)
820 DATA"{clear}{down}{right}ALL ABOUT THE COMMODORE 64: VOLUME TWO","by Craig Chamberlain",
821 DATA"From COMPUTE! Books",,"$16.95",
822 DATA"ISBN 0-942386-45-0",,"At your local bookstore",
823 DATA"Or call toll free 1-800-334-0868",,
824 DATA"The power of machine language,","with the convenience of BASIC{.*3}",
825 DATA"It turns your COMMODORE 64","into a whole new computer!",,
826 DATA(press any key)
stop tok64
(bastext 1.0)