END SUB

''''StillWantsToPlay:
''''  Determines if users want to play game again.
FUNCTION StillWantsToPlay

    COLOR colorTable(5), colorTable(6)
    Center 10, "圻哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌?
    Center 11, "?      G A M E   O V E R       ?
    Center 12, "?                              ?
    Center 13, "?     Play Again?   (Y/N)      ?
    Center 14, "圮苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘?

    WHILE INKEY$ <> "": WEND
    DO
        kbd$ = UCASE$(INKEY$)
    LOOP UNTIL kbd$ = "Y" OR kbd$ = "N"

    COLOR 15, colorTable(4)
    Center 10, "                                 "
    Center 11, "                                 "
    Center 12, "                                 "
    Center 13, "                                 "
    Center 14, "                                 "

    IF kbd$ = "Y" THEN
        StillWantsToPlay = TRUE
    ELSE
        StillWantsToPlay = FALSE
        COLOR 7, 0
        CLS
    END IF

END FUNCTION

上一页  [1] [2] [3] [4] [5] [6]