Carousel Volume 2 #1/carousel.iso/comdore/64music/maker.pil

Commodore BASIC | 1988-12-26 | 2KB | 33 lines

100 PRINT CHR$(147):PRINT " SONG AND PICTURE LIBRARY MAKER"
110 PRINT " BY CRAIG CHAMBERLAIN 6/25/86":PRINT:SP=783
130 RE=3289:WR=3334:BA=3404:BE=4389:MA=PEEK(49)+256*PEEK(50)+500
300 PRINT " THIS PROGRAM WRITES TO DISK
302 [153] " THE SONG AND PICTURE LIBRARY FILE
304 PRINT " FOR ONE SIDPLAYER SONG":PRINT
310 F$="":INPUT " NAME OF SIDPLAYER SONG";F$:IF F$="" OR LEN(F$)>12 GOTO 310
320 PRINT:PRINT " READING " F$ ".MUS"
325 OPEN 2,8,15,"I0:":INPUT#2,A,B$,C,D:IF A GOTO 710
330 OPEN 1,8,2,F$+".MUS,R,P":INPUT#2,A,B$,C,D:IF A GOTO 710
340 SYS RE,MA:IF PEEK(SP)AND1 GOTO 700
350 PA=PEEK(251)+256*PEEK(252):ML=PA-MA:CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
360 PRINT " READING " F$ ".PIC"
370 OPEN 1,8,2,F$+".PIC,R,P":INPUT#2,A,B$,C,D:IF A GOTO 710
380 SYS RE,PA:IF PEEK(SP)AND1 GOTO 700
390 EA=PEEK(251)+256*PEEK(252):PL=EA-PA:CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
500 PRINT:PRINT " INSERT A DISK TO RECEIVE THE
505 [153] " LIBRARY FILE AND PRESS ANY KEY":[153]:[151] 198,0:[146] 198,15:[161] G$
520 [153] " WRITING " F$ ".PIL"
525 [152]2,"S0:"[170]F$[170]".PIL":[132]2,A,B$,C,D:[139] A[177]2 [137] 710
530 [159] 1,8,2,F$[170]".PIL,W,P":[132]2,A,B$,C,D:[139] A [137] 710
540 [158] WR,BA,BE:[139] [194](SP)[175]1 [137] 700
550 [158] WR,WR,BA:[139] [194](SP)[175]1 [137] 700
560 [152]1,[199]([195](F$)) F$;
570 [152]1,[199](ML[171]256[172][181](ML[173]256)) [199](ML[173]256);
575 [158] WR,MA,PA:[139] [194](SP)[175]1 [137] 700
580 [152]1,[199](PL[171]256[172][181](PL[173]256)) [199](PL[173]256);
585 [158] WR,PA,EA:[139] [194](SP)[175]1 [137] 700
590 [160] 1:[132]2,A,B$,C,D:[139] A [137] 710
595 [160] 2:[128]
700 [132]2,A,B$,C,D
710 [153]:[153] " ERROR: " B$:[160] 1:[160] 2:[128]