start tok64 d64-Fel0z3 2 GOTO 65 5 sc=0:OPEN 1,8,0,"$0:*=p":GET#1,g$,g$ 10 c$="":GET#1,g$,g$,g$,g$ 15 IF st THEN CLOSE 1:RETURN 20 GET#1,g$:IF g$<>CHR$(34) GOTO 15 25 GET#1,g$:IF g$<>CHR$(34) THEN c$=c$+g$:GOTO 25 30 GET#1,g$:IF g$>"" GOTO 30 35 IF RIGHT$(c$,4)=".mus" THEN tt=tt+1:f$(tt)=LEFT$(c$,LEN(c$)-4):rv$="{pink}{reverse on}" 40 PRINT"{up}"bl$:PRINT"{up}{right*6}{light green}"rv$;c$"{reverse off}":rv$="{light green}":GOTO10 50 REM sidplayer sing along by 55 REM bob huffman, munster in 60 REM with generous help from craig chamberlain 65 DIM f$(101),t$(101) 70 POKE 53281,0:POKE 53280,12:PRINTCHR$(142) 75 PRINT"{clear}{light blue}U{sh asterisk*38}I"; 80 PRINT"{sh -}{156}{cm +*8}{light blue} sidplayer sing along {156}{cm +*8}{light blue}{sh -}"; 85 PRINT"{sh -}{156}{cm +*8} {blue}{cm t*2}{cm y*2}{cm u}{reverse on}{cm i}{cm d}{cm p}{cm @}{space*2}{cm @}{cm p}{cm d}{cm i}{reverse off}{cm u}{cm y*2}{cm t*2} {156}{cm +*8}{light blue}{sh -}"; 90 PRINT"J{sh asterisk*38}K"; 92 bl$="{black}{reverse on}{space*39}{reverse off}" 94 PRINT"{down}" 120 dn=8:sa=780:sx=781:sy=782:sp=783 130 GOSUB 57000:REM load sidplayer 400 PRINT"{down}{cyan}{space*5}sidplayer, the music system in 410 PRINT"{space*6}"CHR$(34)"all about the commodore 64," 430 PRINT"{space*7}volume two"CHR$(34)", published by 440 PRINT"{space*12}compute! books. 450 PRINT"{down}{space*6}{yellow}searching for music files{.*3}{down*2}" 500 GOSUB 5 550 PRINT"{up}"bl$ 560 PRINT"{up*3}"bl$ 570 PRINT"{up}{yellow}{space*11}loading titles{.*3}{down*2}" 600 OPEN 15,8,15:dt=0 650 l=1 660 OPEN 8,8,8,f$(l)+".wds,p,r" 663 INPUT#15,a,b$:IF a=0 THEN 680 664 IF a<>62 THEN PRINTb$:STOP 666 PRINT"{up}"bl$:PRINT"{up}{space*2}{light green}missing words to "f$(l)+".mus" 670 tt=tt-1:CLOSE 8 671 IF tttt THEN p=0 703 PRINT"{home}{down*5}{space*17}{light blue}page";p+1:PRINT 704 tm=lp+p*lp:IF tm>tt THEN tm=tt 705 FOR l=lp*p+1 TO tm 706 as=l-(lp*p)+64 710 PRINT"{yellow}"CHR$(as)") "t$(l):NEXT 720 PRINT"{home}{down*19}{right*8}{cyan}make selection by letter" 723 PRINT"{down}{right*8}{pink}press{cm m}{reverse on}*{reverse off}{cm g}to play all, or" 725 IF px=1 THEN PRINT"{right*8}{pink}press{cm m}{reverse on}r{reverse off}{cm g}to repeat last song" 726 PRINT"{right*14}{light green}{cm @*5}" 727 PRINT"{right*8}{light green}press {reverse on}space{reverse off} for next page"; 730 POKE 198,0:WAIT 198,15:GET g$:cp=0:IF g$="*" THEN cp=1:GOTO 780 736 IFg$="r"ANDpx=1THENSYShk:POKEsx,lo:POKEsy,hi:SYSpl:rp=1:GOTO810 737 IF g$=" " THEN p=p+1:GOTO 700 740 IF ASC(g$)<65 THEN 730 750 IF ASC(g$)>as THEN 730 780 sg=ASC(g$)-64+lp*p 800 IF cp=1 THEN FOR sg=1 TO tt 810 PRINT"{home}{down*4}":FOR k=1 TO 19:PRINTbl$:NEXT:PRINTbl$; 815 PRINT"{home}{down*5}" 817 a$=t$(sg) 820 FOR j=1 TO 19-(LEN(a$)/2):PRINT" ";:NEXT 825 PRINT"{red}";:FOR j=1 TO LEN(a$)+2:PRINT"{cm @}";:NEXT:PRINT 830 FOR j=1 TO 19-(LEN(a$)/2):PRINT" ";:NEXT 835 PRINT"{reverse on}{red} {orange}"a$"{red} {reverse off}" 840 FOR j=1 TO 19-(LEN(a$)/2):PRINT" ";:NEXT 845 PRINT"{red}";:FOR j=1 TO LEN(a$)+2:PRINT"{cm t}";:NEXT:PRINT:PRINT 847 IF rp=1 THEN 1005 850 f$=f$(sg) 855 la=PEEK(49)+256*PEEK(50)+1000:GOSUB 57500 860 ta=la:f$=f$(sg) 870 POKE sa,1:POKE sx,dn:POKE sy,0:SYS 65466:f$=f$+".wds":GOSUB 59000 880 SYS hk:POKEsx,lo:POKEsy,hi:SYS pl 890 POKE sa,0:POKE sx,ta-256*INT(ta/256):POKE sy,INT(ta/256):SYS 65493 895 IF PEEK(sp)AND1 GOTO 59100 1005 PRINT"{down*9}{right*10}{gray}press space to stop" 1007 IF cp=1 THEN PRINT"{down}{right*11}press f7 for menu" 1010 PRINT"{home}{down*10}{light blue}"; 1020 IF PEEK(ta)<>13 THEN ta=ta+1:GOTO 1020 1030 POKE 198,0 1050 POKE ss,7:SYS 8042,ta 1080 SYS dp:SYS pl:fr=FRE(2) 1082 IF cp=0 THEN px=1:GOTO 700 1085 IF PEEK(198)=0 THEN NEXT sg:sg=sg-1 1087 GET g$:IF g$=" " THEN NEXT sg:sg=sg-1 1100 px=1:GOTO 700 57000 ss=6144:hk=6415:pl=6438:dp=6609:s1=ss+1:RETURN 57500 POKE sa,1:POKE sx,dn:POKE sy,0:SYS 65466:f$=f$+".mus":GOSUB 59000 57510 hi=INT(la/256):lo=la-256*hi 57520 POKE sa,0:POKE sx,lo:POKE sy,hi:SYS 65493:IF PEEK(sp)AND1 GOTO 59100 57530 la=PEEK(sx)+256*PEEK(sy):RETURN 59000 FOR k=1 TO LEN(f$):POKE 584+k,ASC(MID$(f$,k)):NEXT 59010 POKE sa,LEN(f$):POKE sx,73:POKE sy,2:SYS 65469:RETURN 59100 p=PEEK(sa):PRINT " error: ";:IF p=4 THEN PRINT "file not found":END 59110 IF p=5 THEN PRINT "device not present":END 59120 PRINT st:END stop tok64 (bastext 1.0)