: Start of menu programz PATRICK LEABO--TUSCON 3-14-82 ..MODIFIED FOR PCJR BY H.HUBSCH --------TUCSON 2-25-85 ,: ,,: P AZ: MENU! : TI$(),FINAME$(),GRA():TI$()"Switch Displays":GRA():TI$()"Next Menu":GRA():TI$()"Quit":GRA()L SEG: ,:NOMENU : ,,: j,b MENU MENU: :DEF SEG=0:IF (PEEK(&H410) AND &H30) = &H30 THEN DSPMODE = 1 ELSE DSPMODE = 2 SEG @: ,@: SEG DEF SEG :POKE 106,0:IF DSPMODE = 1 THEN WIDTH 80 ELSE WIDTH 802 ,,: ,,G MENU , T ,,r ,:"";(%,"");""; N  : N,':"";: N N  : N,:"";: N ,:"";(%,"");"";$ , :"PCJR GAME DISK #1". ,: TI$()(3L : DSPMODE  (#88 N :{B N ,L: GRA(N) " "; : GRA(N) "* "; : "@ ";G (N@);". ";TI$(N)LQ ,:"* color required @ joystick required";*V ,:" ": ,: "Press Your Choice ";: ,:"?";: ,: "":l[CH$: CH$"" [ : CH$:CH(CH$): CH N CH CH ` CH@ CHN ,:"SORRY-INVALID CHOICE !!!!!! ":: N :: Q3e CHA GRA(CH@) DSPMODE ,:"WHOOPS-WRONG DISPLAY !!!!!!! ":: N :: QJj CH@ t,~l CHN ,:"Bye. See you later !!!!!!!! ";::m FINAME$(CH@)"" ,:"NO PROGRAM YET !!!!!!!!!!!!! ":: N :: Qs FINAME$(CH@),t `:: D~MENU MENU : MENU NOMENU MENU N g: Menu # 1 Entriest ,,TI$()"Menu # 1"TI$()"ANIMAL":FINAME$()"ANIMAL":GRA()TI$()"BABYZAP":FINAME$()"BABYZAP":GRA()$TI$()"BACKGAMMON":FINAME$()"BACKGAM":GRA()S TI$()"CHESS":FINAME$()"CHESS":GRA()TI$()"CRAPS":FINAME$()"CRAPS":GRA() TI$()"ELIZA":FINAME$()"ELIZA":GRA()*TI$()"FLIPPER":FINAME$()"FLIPPER":GRA()4TI$( )"FRANKENSTEIN":FINAME$( )"FRANK":GRA( )Q>TI$( )"GUNNER":FINAME$( )"GUNNER":GRA( )HTI$( )"HEARTS":FINAME$( )"HEARTS":GRA( )RTI$( )"MASTERMIND":FINAME$( )"MASTMIND":GRA( )f : Menu # 2 Entries ,, TI$()"Menu # 2". TI$()"MOON":FINAME$()"MOON":GRA()c TI$()"MOUNTAIN":FINAME$()"MOUNTAIN":GRA() TI$()"NIM":FINAME$()"NIM":GRA() TI$()"SCRAMBLE":FINAME$()"SCRAMBLE":GRA() TI$()"STARLANE":FINAME$()"STARLANE":GRA()- TI$()"STARWARS":FINAME$()"STARWARS":GRA()b TI$()"SUPERMAN":FINAME$()"SUPERMAN":GRA() TI$( )"SUPERTREK":FINAME$( )"SUPRTREK":GRA( )& TI$( )"SURROUND":FINAME$( )"SURROUND":GRA( )0 TI$( )"TANK":FINAME$( )"TANK":GRA( )9: TI$( )"TRUCKER":FINAME$( )"TRUCKER":GRA( )?N V(# 80 COLUMN FILLERi-#YY:XX,:Mv.# ,,2# YY,XXM:" "<# YY,XXM:" "F# YY,XXM:" "RP# YY,XXM:" "Z# YY,XXM:" "d# YY,XXM:" "n# YY,XXM:" ". x# YY,XXM:" "R # YY ,5:"PERSONAL COMPUTER"X #b _ _ `: PROGRAM TO SWITCH BETWEEN MONO AND COLOR DISPLAY e SEG: (( ) 0) 0 DSPMODE  : DSPMODE $!jADAPTER : SEG : ,?: () ? ADAPTER ADAPTER `!o SEG : ,?: () ? ADAPTER ADAPTER j!t SEG!y ADAPTER  :"Sorry--other display isn't installed!!": :!~ DSPMODE ,:! switch to color/graphics adapterD" ::  ,:"using other screen--PRESS the A key to get back here!": ,,u" SEG : ,( ( ) ) : SEG" ,: ,: ,: (: ," ,,,,:" switch to monochrome adapter%# :: ,:"Using other screen.":  ,:"PRESS the A key to get back here!": ,,O# SEG : ,(( ) 0): SEGj# : P: ,,, , :# N   ::::DELAY