Compucolor.org – Virtual Media

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