Listing of file='MENU.BAS;01' on disk='vmedia/nsw_ug_1-sideB-sector.ccvf'
5 REM 100 REM SUPER MENU PROGRAM 110 REM BY: GORDON P. RUSCH - BUFFALO, N.Y. 120 REM N O T E 130 REM DO NOT ALTER THIS PROGRAM IN 140 REM ANY WAY, OR IT WILL NOT WORK 150 REM @ 170 PRINT "DIR ":POKE 33283,096:POKE 33284,133:Y= CALL (X) 190 PG$= "MENU .BAS;01":TP$= MID$ (PG$,8,3):A= 0 200 READ K$:A= A+ 1 210 IF K$= TP$THEN 240 220 IF A> 5THEN 250 230 GOTO 200 240 ON AGOTO 310,320,320,330,330:REM <0xFF> <0xFF> 250 PRINT "INVALID LOAD PARAMETERS 260 PRINT " "PG$" 270 PRINT "REFER TO COMPUCOLOR II USER MANUAL ":END 280 FOR A= 1TO 13:T$= MID$ (PG$,A,1):IF T$= " "THEN 300 290 L$= L$+ T$ 300 NEXT A:RETURN 310 GOSUB 280:LOAD L$:RUN 320 POKE 33247,0:GOSUB 280:PRINT "RUN "L$ 330 GOSUB 280:PRINT "LOAD "L$" 7000 340 GOTO 340 350 DATA BAS,PRG,LDA,PIC,DSP,END