DIM GLOBAL OPT$(4) GAMEPAD 1 SEL=0 START: CLW PRINT "HELLO!" PRINT "WHERE DO YOU WANT" PRINT "TO GO?" OPT$(1)="NORTH" OPT$(2)="SOUTH" OPT$(3)="EAST" OPT$(4)="WEST" CALL CHOOSE(4,SEL) IF SEL=1 THEN GOTO NORTH IF SEL=2 THEN GOTO SOUTH IF SEL=3 THEN GOTO NOWAY IF SEL=4 THEN GOTO NOWAY NORTH: CLW PRINT "YOU WENT TO THE" PRINT "NORTH." OPT$(1)="CONTINUE" OPT$(2)="LEAVE" CALL CHOOSE(2,SEL) IF SEL=1 THEN GOTO START IF SEL=2 THEN GOTO LEAVE SOUTH: CLW PRINT "YOU WENT TO THE" PRINT "SOUTH." OPT$(1)="CONTINUE" OPT$(2)="LEAVE" CALL CHOOSE(2,SEL) IF SEL=1 THEN GOTO START IF SEL=2 THEN GOTO LEAVE NOWAY: CLW PRINT "YOU CANNOT GO" PRINT "THERE." CALL WAITCLICK GOTO START LEAVE: CLW PRINT "BYE!" END SUB CHOOSE(NUM,RESULT) RESULT=1 REDRAW: LOCATE 0,15-NUM FOR I=1 TO NUM IF I=RESULT THEN PAL 1 ELSE PAL 0 PRINT OPT$(I) NEXT I PAL 0 WAIT VBL DO IF UP TAP(0) AND RESULT>1 THEN DEC RESULT GOTO REDRAW END IF IF DOWN TAP(0) AND RESULT