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