Listing of file='MENU.BAS;01' on disk='vmedia/soundware_II-sector.ccvf'
100 REM K COMPOSER PLUS MENU BY PATRICK LEABO 101 POKE 32940,255:POKE 32941,159:CLEAR 1000 102 POKE 33283,7:POKE 33284,160 105 LOAD "NEWML5.DAT;1" 107 DIM MT(25),DT(25) 110 TM= PEEK (32940)+ PEEK (32941)* 256+ 1 120 POKE TM,50:POKE TM+ 1,0 150 PLOT 6,4,12,15,27,11 155 PLOT 27,24 200 PLOT 12 210 PLOT 6,1,12 220 A= 31:B= 15:X1= 16:Y1= 8 225 A= INT (RND (1)* 20+ 29):B= INT (RND (1)* 10+ 14) 230 RESTORE 250 240 FOR N= 0TO 7:READ DX(N):READ DY(N):NEXT 250 DATA 1,0,1,1,0,1,-1,1,-1,0,-1,-1,0,-1,1,-1 252 FOR N= 0TO 7:READ NT(N) 253 DU(N)= INT (8000/ NT(N)) 254 NEXT 255 DATA 77,68,60,57,51,45,39,37 256 FOR N= 0TO 24:READ MT(N):DT(N)= INT (8000/ MT(N)):NEXT 258 DATA 154,146,138,130,122,115,109,103,97,91,86,81,77,72,68,64,60,57,54,51,48,45,42,39,37 275 GOTO 5000 900 REM SOUNDS 910 NS= 0+ CC:GOSUB 950 915 NS= 4+ CC:GOSUB 950 920 NS= 7+ CC:GOSUB 950 925 NS= 12+ CC:GOSUB 950 930 RETURN 950 POKE TM,MT(NS):POKE TM+ 2,DT(NS):X= CALL (0):RETURN 1000 ON DI+ 1GOTO 1010,1010,1030,1030,1050,1050,1080,1080 1010 NS= 0+ CC:GOSUB 950:RETURN 1020 NS= 2+ CC:GOSUB 950:RETURN 1030 NS= 4+ CC:GOSUB 950:RETURN 1040 NS= 5+ CC:GOSUB 950:RETURN 1050 NS= 7+ CC:GOSUB 950:RETURN 1060 NS= 9+ CC:GOSUB 950:RETURN 1070 NS= 11+ CC:GOSUB 950:RETURN 1080 NS= 12+ CC:GOSUB 950:RETURN 5000 REM PERSPECTIVE SQUARES 5010 REM BY PATRICK LEABO 5027 PLOT 27,24 5030 A$= CHR$ (10) 5040 FOR N= 1TO 64 5050 A$= A$+ CHR$ (26) 5060 NEXT 5070 B$= "" 5080 FOR N= 1TO 64 5090 B$= B$+ "`" 5100 NEXT 5110 CA$= "":GOSUB 5470 5120 CC$= "" 5130 X= 10:Y= 6:PLOT 29,6,1,15,12:GOSUB 5150:GOTO 5260 5150 FOR YY= 1TO Y 5160 CC$= CC$+ LEFT$ (B$,X)+ LEFT$ (A$,X+ 1) 5170 NEXT :RETURN 5260 PLOT 6,0,12 5270 X= 4:Y= 4:CC$= "":GOSUB 5150 5280 PLOT 3,30,0:PRINT "CAP 5290 PLOT 3,24,2:PRINT "P R E S E N T S" 5295 FOR CC= 0TO 7:GOSUB 900:NEXT 5300 M= 6:FOR N= 1TO 8 5305 NS= N:GOSUB 950 5310 PLOT 6,(N* 9)AND 63 5320 PLOT 3,30,M+ N:PRINT CC$ 5330 PLOT 3,34+ N,M+ N- 1:PRINT CC$ 5340 PLOT 3,26- N,M- 1+ N:PRINT CC$ 5350 PLOT 3,22- N* 2,M- 3+ N:PRINT CC$ 5360 PLOT 3,38+ N* 2,M- 3+ N:PRINT CC$ 5370 NEXT :PLOT 6,0 5380 PLOT 3,9,20 5390 PRINT "cf tu ab pb nu ab ~| {d {e" 5400 PLOT 3,9,22 5410 PRINT "gd vw vw as lw rs no a| l" 5420 PRINT "" 5430 PLOT 3,0,17:PRINT CA$; 5435 NS= 12:GOSUB 950 5440 PLOT 3,56,17:PRINT CA$; 5445 FOR N= 1TO 200:NEXT :NS= 13:GOSUB 950 5450 PLOT 8:PRINT "" 5460 GOTO 6000 5470 A1$= "dd dd dd" 5480 A2$= " lmlm " 5490 A3$= " ba " 5500 A4$= " eeeeee " 5510 CU$= LEFT$ (A$,9) 5520 CA$= A1$+ CU$+ A2$+ CU$+ A3$+ CU$+ A4$ 5530 RETURN 6000 REM MENU CHOOSER 6010 FOR N= 1TO 500:NEXT 6020 PLOT 3,0,27 6030 PRINT " 1. COMPOSER 2. KALEIDOSCOPE 3. HARPSICORD" 6040 PRINT " PRESS YOUR CHOICE ! ";:OUT 8,255:X= CALL (2) 6050 XX= CALL (0):X$= CHR$ (X):PRINT X$:IF X< 49OR X> 51THEN 6020 6060 CH= VAL (X$) 6070 ON CHGOTO 6100,6200,6300 6100 LOAD "NEWCMP":RUN 6200 LOAD "KALSOU":RUN 6300 LOAD "KEYBRD":RUN