H: Start of menu program PATRICK LEABO--TUSCON 3-14-82 ..MODIFIED FOR PCJR BY H.HUBSCH --------TUCSON 2-25-85 ,: ,,: P AZ: MENUP : TI$(),FINAME$(),GRA():TI$()"Switch Displays":GRA():TI$()"Next Menu":GRA():TI$()"Quit":GRA(){ SEG: ,:NOMENU : ,,: j, MENU MENU: :DEF SEG=0:IF (PEEK(&H410) AND &H30) = &H30 THEN DSPMODE = 1 ELSE DSPMODE = 2  SEG @: ,@: SEGN DEF SEG :POKE 106,0:IF DSPMODE = 1 THEN WIDTH 80 ELSE WIDTH 80a ,,: ,,v MENU ,  ,, ,:"";(%,"");""; N  : N,':"";: N N  : N,:"";: N ,:"";(%,"");"";#$ , :"PCJR GAME DISK #1"7. ,: TI$()W3L : DSPMODE  (#g8 N :B N ,L: GRA(N) " "; : GRA(N) "* "; : "@ ";G (N@);". ";TI$(N)LQ ,:"* color required @ joystick required";YV ,:" ": ,: "Press Your Choice ";: ,:"?";: ,: "":[CH$: CH$"" [ : CH$:CH(CH$): CH N CH CH ` CH@ CHN ,:"SORRY-INVALID CHOICE !!!!!! ":: N :: Qbe CHA GRA(CH@) DSPMODE ,:"WHOOPS-WRONG DISPLAY !!!!!!! ":: N :: Qyj CH@ t,~l CHN ,:"Bye. See you later !!!!!!!! ";::m FINAME$(CH@)"" ,:"NO PROGRAM YET !!!!!!!!!!!!! ":: N :: Q1s FINAME$(CH@),Ct `:: r~MENU MENU : MENU NOMENU MENU | : Menu # 1 Entries ,,TI$()"Menu # 1"TI$()"ANIMAL":FINAME$()"animal":GRA()TI$()"BABYZAP":FINAME$()"babyzap":GRA()RTI$()"BACKGAMMON":FINAME$()"backgam":GRA() TI$()"CHESS":FINAME$()"chess":GRA()TI$()"CRAPS":FINAME$()"craps":GRA() TI$()"ELIZA":FINAME$()"eliza":GRA()*TI$()"FLIPPER":FINAME$()"flipper":GRA()K4TI$( )"FRANKENSTEIN":FINAME$( )"FRANK":GRA( )>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() 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() TI$()"SUPERMAN":FINAME$()"SUPERMAN":GRA() TI$( )"SUPRTREK":FINAME$( )"SUPRTREK":GRA( )& TI$( )"SURROUND":FINAME$( )"SURROUND":GRA( )00 TI$( )"TANK":FINAME$( )"TANK":GRA( )f: TI$( )"TRUCKER":FINAME$( )"TRUCKER":GRA( )lN (# 80 COLUMN FILLER-#YY:XX,:M.# ,,2# YY,XXM:" "<# YY,XXM:" "HF# YY,XXM:" "P# YY,XXM:" "Z# YY,XXM:" "d# YY,XXM:" "$n# YY,XXM:" "[x# YY,XXM:" "# YY ,5:"PERSONAL COMPUTER"#_ _`: PROGRAM TO SWITCH BETWEEN MONO AND COLOR DISPLAY e SEG: (( ) 0) 0 DSPMODE  : DSPMODE QjADAPTER : SEG : ,?: () ? ADAPTER ADAPTER o SEG : ,?: () ? ADAPTER ADAPTER t SEGy ADAPTER  :"Sorry--other display isn't installed!!": :~ DSPMODE ,:  switch to color/graphics adapterq ::  ,:"using other screen--PRESS the A key to get back here!": ,, SEG : ,( ( ) ) : SEG ,: ,: ,: (: , ,,,,: switch to monochrome adapterR :: ,:"Using other screen.":  ,:"PRESS the A key to get back here!": ,,| SEG : ,(( ) 0): SEG : P: ,,, , : N   ::::DELAY