Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/utility_2-sector.ccvf'

0 REM 
			 SUPER MENU PROGRAM

				 BY
1 REM 		GORDON P. RUSCH - BUFFALO, N.Y. 14224

2 REM 		DO NOT ALTER THIS PROGRAM IN ANY WAY!
3 REM 			(OR IT WILL NOT WORK)@
4 PRINT "DIR
":X= 33283:POKE X,9:POKE X+ 1,133:X= CALL (X):P$= "RED2.PRG;01":::REM
5 T$= LEFT$ (RIGHT$ (P$,6),3):FOR I= 0TO 4:READ K$:IF K$= T$GOTO 7
6 NEXT I:PRINT "INVALID LOAD PARAMETERS":PRINT "	"P$:PRINT "REFER TO CCII USER MANUAL":END :REM Z
7 ON IGOTO 9,9,10,10
8 LOAD P$:RUN
9 POKE X,0:PRINT "RUN ";P$
10 PRINT "LOA "P$"

11 GOTO 11:DATA BAS,PRG,LDA,DSP,PIC