Listing of file='MENU.BAS;01' on disk='vmedia/intro_to_soundware-sector.ccvf'
100 REM ** SOUNDWARE MENU - MODIFIED JULY 19,79 **
110 REM COPYRIGHT 4-79
120 REM CAP ELECTRONICS
130 REM
140 TM= PEEK (32940)+ PEEK (32941)* 256:POKE 32936,1
150 IF TM> 64* 1024- 8THEN LOAD "PATCH":RUN
160 IF PEEK (TM+ 180)< > 241THEN LOAD "PATCH":RUN
170 DA= TM+ 8:AD= 33283:GOSUB 60010
180 CLEAR 100
190 BD$= " twtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwtwt"
200 BL$= " "
210 P= 100:D= 500:NS= 0:S1= 0:S2= 0
220 OUT 8,247
230 PLOT 6,7,12,15
240 GOSUB 790
250 TM= PEEK (32940)+ 256* PEEK (32941)+ 1
260 PRINT " "
270 PLOT 14,3,1,2
280 PRINT " cf tu ab pb nu ab ~| {d {e pq {e pb ab "
290 PLOT 3,1,4
300 PRINT " gd vw vw as lw rs no a| l ab l as vw "
310 PLOT 3,1,6
320 PRINT " "
330 PLOT 3,1,6,15
340 PRINT " BY CAP ELECTRONICS "
350 POKE TM,50:POKE TM+ 2,15:POKE TM+ 4,0
360 REM SCREEN FILLER
370 N= 15
380 PLOT 14,6,0,3,10,N
390 PRINT "D SOUNDWARE DEMO"
400 PLOT 3,10,N+ 2
410 PRINT "C SOUNDWARE COMPOSER"
420 PLOT 3,10,N+ 4
430 PRINT "I SOUNDWARE INFORMATION"
440 PLOT 3,10,N+ 6
450 PRINT "M MUSIC COMPOSER"
460 PLOT 3,10,N+ 8
470 PRINT "Q TO QUIT"
480 PLOT 3,2,26:PRINT BL$
490 PLOT 15,3,15,26:PRINT "PRESS YOUR CHOICE - ";
500 OUT 8,255:CH= CALL (2):OUT 8,247:CH$= CHR$ (CH)
510 PRINT CH$
520 REM CHOOSER
530 NN= VAL (CH$)
540 X= CALL (0)
550 IF CH$= "D"THEN GOSUB 620:GOTO 700
560 IF CH$= "C"THEN GOSUB 620:GOTO 730
570 IF CH$= "I"THEN GOSUB 620:GOTO 760
580 IF CH$= "M"THEN LOAD "MUSIC":RUN
590 IF CH$= "Q"THEN GOSUB 620:GOTO 670
600 GOTO 480
610 RETURN
620 REM SCROLL CENTER OF SCREEN
630 X= 2:Y= 10:H= 20:W= 60:C= 1:GOSUB 60030
640 FOR NN= 1TO 20:XC= CALL (1):NEXT
650 RETURN
660 REM ENDING
670 PLOT 3,22,19,14
680 PLOT 6,0:OUT 8,255
690 PRINT "BYE BYE, COME AGAIN":PLOT 27,11,15:END
700 REM GOTO DEMO
710 PLOT 3,19,19,14:PRINT "HERE COMES THE DEMO PROGRAM"
720 LOAD "SOUNDD":RUN
730 REM GOTO COMPOSER
740 PLOT 3,17,19,14:PRINT "HERE COMES THE SOUNDS COMPOSER"
750 LOAD "SOUNDC":RUN
760 REM GOTO INFO
770 PLOT 3,19,19,14:PRINT "HERE COMES SOME INFORMATION"
780 LOAD "SOUNDI":RUN
790 REM BORDER DRAWER
800 PLOT 6,0,12,15,3,0,0
810 PLOT 6,10,27,24
820 PRINT BD$:PLOT 3,0,8:PRINT BD$:PLOT 3,0,31:PRINT BD$
830 PLOT 27,10,3,0,0:PRINT BD$
840 PLOT 3,63,0:PRINT BD$
850 PLOT 27,24,3,1,1
860 POKE TM,50:POKE TM+ 2,15
870 RETURN
880 P= 1:D= 5:NS= 255:S1= 8:S2= 0
60000 REM
60010 Z1= INT (DA/ 256):Z2= DA- Z1* 256
60020 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN
60030 REM SCROLLING SUBROUTINE
60040 DA= 28672+ 128* Y+ X+ X:AD= TM+ 126:GOSUB 60010
60050 DA= 128- W- W:AD= TM+ 149:GOSUB 60010
60060 POKE TM+ 129,H- 1:POKE TM+ 131,W* (C+ 1)
60070 POKE TM+ 143,35* (1- C):RETURN