1: DECLARE SUB INTRO () 2: INTRO 3: START: 4: CLS 5: SCREEN 8 6: COLOR 1 7: LOCATE 1, 20: PRINT "M" 8: COLOR 2 9: LOCATE 1, 22: PRINT "A" 10: COLOR 3 11: LOCATE 1, 24: PRINT "S" 12: COLOR 4 13: LOCATE 1, 26: PRINT "H" 14: COLOR 6 15: PRINT 16: INPUT "G = GET SAVED RESULTS S = START THE GAME NOW E = EXIT NOW"; START$ 17: START$ = UCASE$(START$) 18: IF START$ = "E" THEN END 19: IF START$ = "G" THEN GOSUB GETSAVE 20: IF START$ = "S" THEN GOSUB GAME 21: PRINT 22: COLOR 10 23: PRINT "ENTER G OR S ACCORDINGLY TO CONTINUE" 24: SLEEP 1 25: GOSUB START 26: 27: 28: 29: 30: GAME: 31: CLS 32: SCREEN 8 33: COLOR 1 34: LOCATE 3: PRINT "ENTER YOUR NAME" 35: INPUT " ", NAME$ 36: 37: NAME$ = UCASE$(NAME$) 38: 39: 40: 41: 42: 43: CLS 44: LOCATE 3: PRINT "ENTER THREE PEOPLE YOU LIKE" 45: INPUT " A. ", PA$ 46: INPUT " B. ", PB$ 47: INPUT " C. ", PC$ 48: RANDOMIZE TIMER 49: A = INT(RND * 4) + 1 50: IF A = 1 THEN A$ = PA$ 51: IF A = 2 THEN A$ = PB$ 52: IF A = 3 THEN A$ = PC$ 53: IF A = 4 THEN A$ = PC$ 54: CLS 55: COLOR 1 56: LOCATE 3: PRINT "LIST THREE CARS YOU LIKE" 57: INPUT " A. ", CA$ 58: INPUT " B. ", CB$ 59: INPUT " C. ", CC$ 60: RANDOMIZE TIMER 61: B = INT(RND * 3) + 1 62: IF B = 1 THEN B$ = CA$ 63: IF B = 2 THEN B$ = CB$ 64: IF B = 3 THEN B$ = CC$ 65: CLS 66: COLOR 1 67: LOCATE 3: PRINT "LIST THREE JOBS" 68: INPUT " A. ", JA$ 69: INPUT " B. ", JB$ 70: INPUT " C. ", JC$ 71: RANDOMIZE TIMER 72: C = INT(RND * 3) + 1 73: IF C = 1 THEN C$ = JA$ 74: IF C = 2 THEN C$ = JB$ 75: IF C = 3 THEN C$ = JB$ 76: CLS 77: COLOR 1 78: LOCATE 3: PRINT "ENTER THREE NUMBERS" 79: INPUT " A. ", KA$ 80: INPUT " B. ", KB$ 81: INPUT " C. ", KC$ 82: RANDOMIZE TIMER 83: D = INT(RND * 3) + 1 84: IF D = 1 THEN D$ = KA$ 85: IF D = 2 THEN D$ = KB$ 86: IF D = 3 THEN D$ = KC$ 87: CLS 88: COLOR 1 89: LOCATE 3: PRINT "ENTER THREE LIVING QUARTERS (EXAMPLE = HOUSE, APARTMENT" 90: INPUT " A. ", LA$ 91: INPUT " B. ", LB$ 92: INPUT " C. ", LC$ 93: RANDOMIZE TIMER 94: E = INT(RND * 3) + 1 95: IF E = 1 THEN E$ = LA$ 96: IF E = 2 THEN E$ = LB$ 97: IF E = 3 THEN E$ = LC$ 98: GOSUB RESULTS 99: 100: 101: 102: 103: 104: 105: 106: 107: RESULTS: 108: CLS 109: COLOR 1 110: PRINT 111: PRINT 112: PRINT NAME$; " IS MARRIED TO "; A$; " AND IS A(AN) "; C$; "." 113: PRINT 114: PRINT NAME$; " AND "; A$; " HAVE "; D$; " KID(S)" 115: PRINT 116: PRINT NAME$; " DRIVES A(AN) "; B$; " AND LIVES IN A(AN) "; E$ 117: PRINT 118: PRINT "HAVE A NICE LIFE" 119: PRINT 120: PRINT 121: PRINT 122: PRINT 123: PRINT 124: PRINT "S = SAVE RESULTS" 125: PRINT 126: PRINT "G = GO BACK TO INTRODUCTION" 127: PRINT 128: PRINT "E = EXIT GAME NOW" 129: PRINT 130: INPUT "", R$ 131: R$ = UCASE$(R$) 132: IF R$ = "E" THEN END 133: IF R$ = "S" THEN GOSUB SAVE 134: IF R$ = "G" THEN GOSUB START 135: GOSUB RESULTS 136: 137: 138: 139: 140: 141: 142: SAVE: 143: CLS 144: SHELL "DEL MASH.DAT" 145: OPEN "MASH.DAT" FOR APPEND AS #1 146: WRITE #1, NAME$, A$, B$, C$, D$, E$ 147: CLOSE 148: PRINT "RESULTS HAVE BEEN SAVED" 149: SLEEP 1 150: GOSUB RESULTS 151: 152: GETSAVE: 153: OPEN "MASH.DAT" FOR INPUT AS #1 154: INPUT #1, NAME$, A$, B$, C$, D$, E$ 155: CLOSE 156: GOSUB RESULTS 157: 158: SUB INTRO 159: CLS 160: SCREEN 8 161: DO 162: RANDOMIZE TIMER 163: R = INT(RND * 25) + 1 164: C = INT(RND * 48) + 1 165: CLS 166: COLOR 1 167: LOCATE R, C: PRINT "M "; 168: COLOR 2 169: PRINT "A "; 170: COLOR 3 171: PRINT "S "; 172: COLOR 4 173: PRINT "H "; 174: SLEEP 1 175: LOOP WHILE INKEY$ = "" 176: 177: 178: 179: 180: 181: END SUB 182: |