home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
COMMODOR
/
BOHEMIAN.MSW
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2000-06-30
|
14KB
|
35 lines
100 PRINT CHR$(147):PRINT " SIDPLAYER SONG, WORDS,
105 [153] " AND STEREO DISSOLVER
110 PRINT " BY CHAMBERLAINnOGLESBY 8/87":PRINT:SP=783:DN=8
130 WR=3290:WU=WR+70:A=WU+77
135 L=PEEK(A):FOR K=1 TO L:F$=F$+CHR$(PEEK(A+K)):NEXT:A=A+K
140 ML=PEEK(A)+256*PEEK(A+1):MA=A+2:A=MA+ML:WL=PEEK(A)+256*PEEK(A+1):WA=A+2
150 PA=WA+WL:A=WA+1
155 P=PEEK(A):IF P<>34 THEN T$=T$+CHR$(P):A=A+1:GOTO 155
300 PRINT " THIS PROGRAM WRITES TO DISK":PRINT " THE MUSIC, WORD, AND STEREO
305 [153] " FILES FOR THE FOLLOWING SONG:":[153]
310 [153] " " T$:[153]
320 [153] " INSERT A DISK TO RECEIVE THE
325 PRINT " MUSIC, WORD, AND STEREO FILES,":PRINT " AND PRESS ANY KEY":PRINT
330 POKE 198,0:WAIT 198,15:GET G$
400 OPEN 2,DN,15:INPUT#2,A,B$,C,D:IF A GOTO 710
410 PRINT " WRITING " F$ ".MUS"
420 OPEN 1,DN,2,F$+".MUS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
430 SYS WR,MA,MA+ML:IF PEEK(SP)AND1 GOTO 700
440 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
510 PRINT " WRITING " F$ ".WDS"
520 OPEN 1,DN,2,F$+".WDS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
530 SYS WR,WA,WA+WL:IF PEEK(SP)AND1 GOTO 700
540 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
560 PRINT " WRITING " F$ ".STR"
570 OPEN 1,DN,2,F$+".STR,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
580 SYS WU,PA:IF PEEK(SP)AND1 GOTO 700
590 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
600 PRINT:PRINT " SCRATCH " F$ ".MSW? ";
610 WAIT 198,15:GET G$:IF G$="N" THEN PRINT "NO":GOTO 690
620 IF G$<>"Y" GOTO 610
630 PRINT "YES":PRINT#2,"S0:"+F$+".MSW":INPUT#2,A,B$,C,D:IF A>1 GOTO 710
690 CLOSE 2:END
700 INPUT#2,A,B$,C,D
710 PRINT:PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END