'                        Countdown To Graduation   (version 1.0)
'                             By Armadillo Programming, 1999
'                       "We don't have a cool slogan yet"
'
'
'                      This game rated Teen
'                       Press Shift+F5 to play
'
'
'               You are in your senior year of high school. Graduation
'               is one year away. You must juggle jobs, school, and
'               friends while at the same time trying to earn enough
'               money to get someone to streak at graduation!
'
'               (This is based loosely on CeJota)
'
'               Send comments to: dijonsrup@aol.com
'               Visit the website: http://members.aol.com/dijonsyrup

COLOR 3, 8
CLS
LOCATE 12, 25
PRINT "Countdown To Graduation"
LOCATE 23, 21
PRINT "Press any key to go back to school"
1 key$ = INKEY$: IF key$ = "" THEN GOTO 1

2 CLS
PRINT "Overview of the game"
LOCATE 5, 5
PRINT "The game is divided into 4 seasons. Each season contains 13 weeks,"
LOCATE 6, 5
PRINT "and each week contains 168 hours. You must juggle activities"
LOCATE 7, 5
PRINT "involving school, your job, and your friends. Each activity costs"
LOCATE 8, 5
PRINT "a certain amount of hours. Also, each activity affects your grades (GPA),"
LOCATE 9, 5
PRINT "your social level (SL), and your money ($). In order to win, you must"
LOCATE 10, 5
PRINT "have a GPA of at least 3.0, an SL of at least 80, and at least $3000"
LOCATE 11, 5
PRINT "so you can pay someone to streak during graduation. You must also have"
LOCATE 12, 5
PRINT "at least 2 extra-curricular activities."
LOCATE 13, 5
INPUT "What do you want to do? Get HELP or START the game?"; choose$
IF LCASE$(choose$) = "help" THEN GOTO 10
IF LCASE$(choose$) = "start" THEN GOTO 20
GOTO 2

10 CLS
LOCATE 5, 5
PRINT "Each season has different activities that affect your GPA, SL, and $"
LOCATE 6, 5
PRINT "Summer:"
LOCATE 7, 5
PRINT "You don't have to go to school, and therefore, there are no extra"
LOCATE 8, 5
PRINT "activities. Also, you sleep much more in summer, so sleeping takes 80"
LOCATE 9, 5
PRINT "hours of your time each week. Each item is a one-time deal, unless"
LOCATE 10, 5
PRINT "it is starred (*). Then it occurs every week until you quit."
LOCATE 11, 5
PRINT "*Summer school (-30 hours/wk), increases GPA by .1/wk, decreases SL by 5/wk"
LOCATE 12, 5
PRINT "*Get a job (-30 hours/wk), decreases SL by 5/wk, increases $ 300/wk"
LOCATE 13, 5
PRINT "Movie (-3 hours), increases SL by 1, decreases $ by 6"
LOCATE 14, 5
PRINT "Mini-golf (-4 hours), increases SL by 2, decreases $ by 5"
LOCATE 15, 5
PRINT "Mall (-5 hours), increases SL by 5, decreases $ by 100"
LOCATE 16, 5
PRINT "Hit a key for more..."
SLEEP

CLS
LOCATE 5, 5
PRINT "Fall:"
LOCATE 6, 5
PRINT "School takes up 40 hours a week. Homework takes another 15. Also,"
LOCATE 7, 5
PRINT "you only sleep 50 hours a week during school."
LOCATE 8, 5
PRINT "*Extra Curricular activities take up 20 hours a week"
LOCATE 9, 5
PRINT "   -football- inc. SL 5/wk, dec. GPA .1/wk, no chng. $"
LOCATE 10, 5
PRINT "   -soccer- inc.SL 4/wk, dec. GPA .07/wk, no chng. $"
LOCATE 11, 5
PRINT "   -band- no chng. SL, inc. GPA .1/wk, no chng. $"
LOCATE 12, 5
PRINT "   -knowledge bowl- dec. SL 3/wk, inc. GPA .15/wk, no chng. $"
LOCATE 13, 5
PRINT "*Get a job (-20 hours/wk), dec. SL 4/wk, dec. GPA .2/wk, inc. $ 150/wk"
LOCATE 14, 5
PRINT "Study, (-4 hours) dec. SL 5, inc. GPA .05, no chng. $"
LOCATE 15, 5
PRINT "Mini-golf (-4 hours), inc. SL 2, dec. GPA .1, dec. $ 5"
LOCATE 16, 5
PRINT "Mall (-5 hours), inc. SL 5, dec. GPA .2, dec. $ 100"
LOCATE 17, 5
PRINT "Party (-6 hours), inc. SL 7, dec. GPA .5, no chng. $"
LOCATE 18, 5
PRINT "Homecoming dance (-8 hours), inc. SL 10, no chng. GPA, dec. $ 100"
LOCATE 19, 5
PRINT "Note: You can only go to homecoming once during a game"
LOCATE 20, 5
PRINT "Hit a key for more..."
SLEEP

CLS
LOCATE 5, 5
PRINT "Winter:"
LOCATE 6, 5
PRINT "School takes up 40 hours a week. Homework takes another 15. Also,"
LOCATE 7, 5
PRINT "you only sleep 50 hours a week during school."
LOCATE 8, 5
PRINT "*Extra Curricular activities take up 20 hours a week"
LOCATE 9, 5
PRINT "   -wrestling- inc. SL 5/wk, dec. GPA .1/wk, no chng. $"
LOCATE 10, 5
PRINT "   -drama- no chng. SL, inc. GPA .1/wk, no chng. $"
LOCATE 11, 5
PRINT "   -band- no chng. SL, inc. GPA .1/wk, no chng. $"
LOCATE 12, 5
PRINT "   -knowledge bowl- dec. SL 3/wk, inc. GPA .15/wk, no chng. $"
LOCATE 13, 5
PRINT "*Get a job (-25 hours/wk), dec. SL 4/wk, dec. GPA .2/wk, inc. $ 200/wk"
LOCATE 14, 5
PRINT "Study, (-4 hours) dec. SL 5, inc. GPA .05, no chng. $ 6"
LOCATE 15, 5
PRINT "Mini-golf (-4 hours), inc. SL 2, dec. GPA .1, dec. $ 5"
LOCATE 16, 5
PRINT "Mall (-5 hours), inc. SL 5, dec. GPA .2, dec. $ 100"
LOCATE 17, 5
PRINT "Party (-6 hours), inc. SL 7, dec. GPA .5, no chng. $"
LOCATE 18, 5
PRINT "Hit a key for more..."
SLEEP

CLS
LOCATE 5, 5
PRINT "Spring:"
LOCATE 6, 5
PRINT "School takes up 40 hours a week. Homework takes another 15. Also,"
LOCATE 7, 5
PRINT "you only sleep 50 hours a week during school."
LOCATE 8, 5
PRINT "*Extra Curricular activities take up 20 hours a week"
LOCATE 9, 5
PRINT "   -lacrosse- inc. SL 5/wk, dec. GPA .1/wk, no chng. $"
LOCATE 10, 5
PRINT "   -swimming- inc.SL 4/wk, dec. GPA .07/wk, no chng. $"
LOCATE 11, 5
PRINT "   -drama- no chng. SL, inc. GPA .1/wk, no chng. $"
LOCATE 12, 5
PRINT "   -band- no chng. SL, inc. GPA .1/wk, no chng. $"
LOCATE 13, 5
PRINT "*Get a job (-20 hours/wk), dec. SL 4/wk, dec. GPA .2/wk, inc. $ 150/wk"
LOCATE 14, 5
PRINT "Study, (-4 hours) dec. SL 5, inc. GPA .05, no chng. $ 6"
LOCATE 15, 5
PRINT "Mini-golf (-4 hours), inc. SL 2, dec. GPA .1, dec. $ 5"
LOCATE 16, 5
PRINT "Mall (-5 hours), inc. SL 5, dec. GPA .2, dec. $ 100"
LOCATE 17, 5
PRINT "Party (-6 hours), inc. SL 10, dec. GPA .2, no chng. $"
LOCATE 18, 5
PRINT "Senior Prom (-10 hours), inc. SL 10, no chng. GPA, dec. $ 300"
LOCATE 19, 5
PRINT "Note: You can only go to homecoming once during a game"
LOCATE 20, 5
PRINT "Hit a key for more..."
SLEEP
GOTO 2

20 CLS
gpa = 3
sl = 0
cash = 0
week = 1
hours = 168
sschool = 0
job = 0
ec = 0

30 CLS
IF week = 14 THEN GOTO 120
PRINT "You lose 80 hours due to sleeping"
hours = hours - 80
SLEEP
IF sschool = 1 THEN gpa = (gpa + .1)
IF sschool = 1 THEN sl = (sl - 5)
IF sschool = 1 THEN hours = (hours - 30)
IF job = 1 THEN sl = (sl - 5)
IF job = 1 THEN cash = (cash + 300)
IF job = 1 THEN hours = (hours - 30)
IF gpa > 5 THEN gpa = 5
31 CLS
LOCATE 5, 50
PRINT "Summer:"
LOCATE 6, 50
PRINT "Week #"; week; "; Hours left:"; hours
LOCATE 7, 50
PRINT "GPA"; gpa
LOCATE 8, 50
PRINT "Social Level:"; sl
LOCATE 9, 50
PRINT "$"; cash
LOCATE 10, 50
PRINT "Extra Curricular Activities:"; ec
LOCATE 5, 5
PRINT "(1) Attend Summer School"
LOCATE 6, 5
PRINT "(2) Get a Job"
LOCATE 7, 5
PRINT "(3) Go to a Movie"
LOCATE 8, 5
PRINT "(4) Go to Mini-Golf"
LOCATE 9, 5
PRINT "(5) Go to the Mall"
LOCATE 10, 5
PRINT "(6) End Turn"
LOCATE 11, 5
PRINT "(7) Exit Game"
INPUT "What do you want to do?"; schose
IF schose = 1 THEN GOTO 40
IF schose = 2 THEN GOTO 50
IF schose = 3 THEN GOTO 60
IF schose = 4 THEN GOTO 70
IF schose = 5 THEN GOTO 80
IF schose = 6 THEN GOTO 90
IF schose = 7 THEN END
GOTO 31

40 CLS
IF sschool = 1 THEN GOTO 41
LOCATE 5, 5
PRINT "You attend summer school. It takes 30 hours each week. Your starting"
LOCATE 6, 5
PRINT "GPA increases by .1/wk, but your Social Level decreases by 5/wk."
sschool = 1
SLEEP
GOTO 31

41 CLS
LOCATE 5, 5
PRINT "You are already attending summer school."
LOCATE 6, 5
INPUT "Would you like to quit (y/n)?"; sschoolc$
IF LCASE$(sschoolc$) = "y" THEN sschool = 0: PRINT " Okay": SLEEP: GOTO 31
IF LCASE$(sschoolc$) = "n" THEN SLEEP: PRINT "Okay": GOTO 31
GOTO 41

50 CLS
IF job = 1 THEN GOTO 51
LOCATE 5, 5
PRINT "You get a job. It takes 30 hours each week. Your"
LOCATE 6, 5
PRINT "Social Level decreases by 5/wk, but you cash increases by $300/wk."
job = 1
SLEEP
GOTO 31

51 CLS
LOCATE 5, 5
PRINT "You already have a job."
LOCATE 6, 5
INPUT "Would you like to quit (y/n)?"; sjobc$
IF LCASE$(sjobc$) = "y" THEN job = 0: PRINT " Okay": SLEEP: GOTO 31
IF LCASE$(sjobc$) = "n" THEN SLEEP: PRINT "Okay": GOTO 31
GOTO 51

60 CLS
LOCATE 5, 5
IF cash < 6 THEN PRINT "You don't have enough money!": SLEEP: GOTO 31
IF hours < 2 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 31
LOCATE 5, 5
INPUT "Do you want to go to a movie (y/n)?"; smovie$
IF LCASE$(smovie$) = "y" THEN PRINT "Okay": hours = (hours - 3): sl = (sl + 1): cash = (cash - 6): SLEEP: GOTO 31
IF LCASE$(smovie$) = "n" THEN PRINT "Okay": SLEEP: GOTO 31
GOTO 60

70 CLS
LOCATE 5, 5
IF cash < 5 THEN PRINT "You don't have enough money!": SLEEP: GOTO 31
IF hours < 4 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 31
LOCATE 5, 5
INPUT "Do you want to go to mini-golf (y/n)?"; sgolf$
IF LCASE$(sgolf$) = "y" THEN PRINT "Okay": hours = (hours - 4): sl = (sl + 2): cash = (cash - 5): SLEEP: GOTO 31
IF LCASE$(sgolf$) = "n" THEN PRINT "Okay": SLEEP: GOTO 31
GOTO 70

80 CLS
LOCATE 5, 5
IF cash < 100 THEN PRINT "You don't have enough money!": SLEEP: GOTO 31
IF hours < 5 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 31
LOCATE 5, 5
INPUT "Do you want to go to the mall (y/n)?"; small$
IF LCASE$(small$) = "y" THEN PRINT "Okay": hours = (hours - 5): sl = (sl + 5): cash = (cash - 100): SLEEP: GOTO 31
IF LCASE$(small$) = "n" THEN PRINT "Okay": SLEEP: GOTO 31
GOTO 80

90 CLS
week = (week + 1)
hours = 168
GOTO 30

120
week = 1
job = 0
home = 0
fex$ = "none"
GOTO 130

130 CLS
IF week = 14 THEN GOTO 220
PRINT "You lose 50 hours due to sleeping"
PRINT "You lose 40 hours due to school"
PRINT "You lose 15 hours doing homework"
hours = hours - 105
IF gpa > 5 THEN gpa = 5
SLEEP
IF job = 1 THEN sl = (sl - 4)
IF job = 1 THEN cash = (cash + 150)
IF job = 1 THEN gpa = (gpa - .2)
IF job = 1 THEN hours = (hours - 20)
IF fex$ = "football" THEN sl = (sl + 5)
IF fex$ = "football" THEN gpa = (gpa - .1)
IF fex$ = "soccer" THEN sl = (sl + 4)
IF fex$ = "soccer" THEN gpa = (gpa - .07)
IF fex$ = "band" THEN gpa = (gpa + .1)
IF fex$ = "kbowl" THEN sl = (sl - 3)
IF fex$ = "kbowl" THEN gpa = (gpa + .15)

131 CLS
LOCATE 5, 50
PRINT "Fall:"
LOCATE 6, 50
PRINT "Week #"; week; "; Hours left:"; hours
LOCATE 7, 50
PRINT "GPA"; gpa
LOCATE 8, 50
PRINT "Social Level:"; sl
LOCATE 9, 50
PRINT "$"; cash
LOCATE 10, 50
PRINT "Extra Curricular Activities:"; ec
LOCATE 5, 5
PRINT "(1) Extra Curricular Activities"
LOCATE 6, 5
PRINT "(2) Get a Job"
LOCATE 7, 5
PRINT "(3) Study"
LOCATE 8, 5
PRINT "(4) Go to Mini-Golf"
LOCATE 9, 5
PRINT "(5) Go to the Mall"
LOCATE 10, 5
PRINT "(6) Go to a Party"
LOCATE 11, 5
PRINT "(7) Go to the Homecoming Dance"
LOCATE 12, 5
PRINT "(8) End Turn"
LOCATE 13, 5
PRINT "(9) Exit Game"
INPUT "What do you want to do?"; fchose
IF fchose = 1 THEN GOTO 140
IF fchose = 2 THEN GOTO 150
IF fchose = 3 THEN GOTO 160
IF fchose = 4 THEN GOTO 170
IF fchose = 5 THEN GOTO 180
IF fchose = 6 THEN GOTO 190
IF fchose = 7 THEN GOTO 195
IF fchose = 8 THEN GOTO 199
IF fchose = 9 THEN END
GOTO 131

140 CLS
LOCATE 5, 5
IF fex$ = "football" THEN PRINT "You already have an activity!": SLEEP: GOTO 131
IF fex$ = "soccer" THEN PRINT "You already have an activity!": SLEEP: GOTO 131
IF fex$ = "band" THEN PRINT "You already have an activity!": SLEEP: GOTO 131
IF fex$ = "kbowl" THEN PRINT "You already have an activity!": SLEEP: GOTO 131
LOCATE 5, 5
PRINT "(1) Football"
LOCATE 6, 5
PRINT "(2) Soccer"
LOCATE 7, 5
PRINT "(3) Band"
LOCATE 8, 5
PRINT "(4) Knowledge Bowl"
LOCATE 9, 5
INPUT "Which activity do you want to participate in?"; fec
IF fec = 1 THEN GOTO 141
IF fec = 2 THEN GOTO 142
IF fec = 3 THEN GOTO 143
IF fec = 4 THEN GOTO 144
GOTO 140

141 CLS
LOCATE 5, 5
PRINT "Okay"
fex$ = "football"
ec = (ec + 1)
SLEEP
GOTO 131

142
LOCATE 5, 5
PRINT "Okay"
fex$ = "soccer"
ec = (ec + 1)
SLEEP
GOTO 131

143
LOCATE 5, 5
PRINT "Okay"
fex$ = "band"
ec = (ec + 1)
SLEEP
GOTO 131

144
LOCATE 5, 5
PRINT "Okay"
fex$ = "kbowl"
ec = (ec + 1)
SLEEP
GOTO 131

150 CLS
IF job = 1 THEN GOTO 151
LOCATE 5, 5
PRINT "You get a job. It takes 20 hours each week. Your"
LOCATE 6, 5
PRINT "Social Level decreases by 5/wk, but you cash increases by $150/wk."
job = 1
SLEEP
GOTO 131

151 CLS
LOCATE 5, 5
PRINT "You already have a job."
LOCATE 6, 5
INPUT "Would you like to quit (y/n)?"; sjobc$
IF LCASE$(sjobc$) = "y" THEN job = 0: PRINT " Okay": SLEEP: GOTO 131
IF LCASE$(sjobc$) = "n" THEN SLEEP: PRINT "Okay": GOTO 131
GOTO 151

160 CLS
LOCATE 5, 5
IF hours < 3 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 131
LOCATE 5, 5
INPUT "Do you want to study tonight? (y/n)?"; smovie$
IF LCASE$(smovie$) = "y" THEN PRINT "Okay": hours = (hours - 4): sl = (sl - 5): gpa = (gpa + .5): SLEEP: GOTO 131
IF LCASE$(smovie$) = "n" THEN PRINT "Okay": SLEEP: GOTO 131
GOTO 160

170 CLS
LOCATE 5, 5
IF cash < 5 THEN PRINT "You don't have enough money!": SLEEP: GOTO 131
IF hours < 4 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 131
LOCATE 5, 5
INPUT "Do you want to go to mini-golf (y/n)?"; sgolf$
IF LCASE$(sgolf$) = "y" THEN PRINT "Okay": hours = (hours - 4): sl = (sl + 2): cash = (cash - 5): gpa = (gpa - .1): SLEEP: GOTO 131
IF LCASE$(sgolf$) = "n" THEN PRINT "Okay": SLEEP: GOTO 131
GOTO 170

180 CLS
LOCATE 5, 5
IF cash < 100 THEN PRINT "You don't have enough money!": SLEEP: GOTO 131
IF hours < 5 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 131
LOCATE 5, 5
INPUT "Do you want to go to the mall (y/n)?"; small$
IF LCASE$(small$) = "y" THEN PRINT "Okay": hours = (hours - 5): sl = (sl + 5): cash = (cash - 100): gpa = (gpa - .2): SLEEP: GOTO 131
IF LCASE$(small$) = "n" THEN PRINT "Okay": SLEEP: GOTO 131
GOTO 180

190 CLS
LOCATE 5, 5
IF hours < 6 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 131
LOCATE 5, 5
INPUT "Do you want to go to a party (y/n)?"; sparty$
IF LCASE$(sparty$) = "y" THEN PRINT "Okay": hours = (hours - 6): sl = (sl + 7): gpa = (gpa - .5): SLEEP: GOTO 131
IF LCASE$(sparty$) = "n" THEN PRINT "Okay": SLEEP: GOTO 131
GOTO 190

195 CLS
LOCATE 5, 5
IF home = 1 THEN PRINT "You've already gone to Homecoming Dance!": SLEEP: GOTO 131
IF hours < 7 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 131
IF cash < 100 THEN PRINT "You don't have enough money!": SLEEP: GOTO 131
LOCATE 5, 5
INPUT "Do you want to go to the Homecoming Dance (y/n)?"; fdance$
IF LCASE$(fdance$) = "y" THEN PRINT "Okay": hours = (hours - 8): sl = (sl + 10): cash = (cash - 100): home = 1: SLEEP: GOTO 131
IF LCASE$(fdance$) = "n" THEN PRINT "Okay": SLEEP: GOTO 131

199 CLS
week = (week + 1)
hours = 168
GOTO 130

220
week = 1
job = 0
prom = 0
wex$ = "none"
GOTO 230

230 CLS
IF week = 14 THEN GOTO 320
PRINT "You lose 50 hours due to sleeping"
PRINT "You lose 40 hours due to school"
PRINT "You lose 15 hours doing homework"
hours = hours - 105
IF gpa > 5 THEN gpa = 5
SLEEP
IF job = 1 THEN sl = (sl - 4)
IF job = 1 THEN cash = (cash + 250)
IF job = 1 THEN gpa = (gpa - .2)
IF job = 1 THEN hours = (hours - 20)
IF wex$ = "wrestling" THEN sl = (sl + 5)
IF wex$ = "wrestling" THEN gpa = (gpa - .1)
IF wex$ = "band" THEN gpa = (gpa + .1)
IF wex$ = "drama" THEN gpa = (gpa + .1)
IF wex$ = "kbowl" THEN sl = (sl - 3)
IF wex$ = "kbowl" THEN gpa = (gpa + .15)

231 CLS
LOCATE 5, 50
PRINT "Spring:"
LOCATE 6, 50
PRINT "Week #"; week; "; Hours left:"; hours
LOCATE 7, 50
PRINT "GPA"; gpa
LOCATE 8, 50
PRINT "Social Level:"; sl
LOCATE 9, 50
PRINT "$"; cash
LOCATE 10, 50
PRINT "Extra Curricular Activities:"; ec
LOCATE 5, 5
PRINT "(1) Extra Curricular Activities"
LOCATE 6, 5
PRINT "(2) Get a Job"
LOCATE 7, 5
PRINT "(3) Study"
LOCATE 8, 5
PRINT "(4) Go to Mini-Golf"
LOCATE 9, 5
PRINT "(5) Go to the Mall"
LOCATE 10, 5
PRINT "(6) Go to a Party"
LOCATE 11, 5
PRINT "(7) End Turn"
LOCATE 12, 5
PRINT "(8) Exit Game"
INPUT "What do you want to do?"; spchose
IF spchose = 1 THEN GOTO 240
IF spchose = 2 THEN GOTO 250
IF spchose = 3 THEN GOTO 260
IF spchose = 4 THEN GOTO 270
IF spchose = 5 THEN GOTO 280
IF spchose = 6 THEN GOTO 290
IF spchose = 7 THEN GOTO 299
IF spchose = 8 THEN END
GOTO 231

240 CLS
LOCATE 5, 5
IF wex$ = "wrestling" THEN PRINT "You already have an activity!": SLEEP: GOTO 231
IF wex$ = "kbowl" THEN PRINT "You already have an activity!": SLEEP: GOTO 231
IF wex$ = "band" THEN PRINT "You already have an activity!": SLEEP: GOTO 231
IF wex$ = "drama" THEN PRINT "You already have an activity!": SLEEP: GOTO 231
LOCATE 5, 5
PRINT "(1) Wrestling"
LOCATE 6, 5
PRINT "(2) Knowledge Bowl"
LOCATE 7, 5
PRINT "(3) Band"
LOCATE 8, 5
PRINT "(4) Drama"
LOCATE 9, 5
INPUT "Which activity do you want to participate in?"; wec
IF wec = 1 THEN GOTO 241
IF wec = 2 THEN GOTO 242
IF wec = 3 THEN GOTO 243
IF wec = 4 THEN GOTO 244
GOTO 240

241 CLS
LOCATE 5, 5
PRINT "Okay"
wex$ = "wrestling"
ec = (ec + 1)
SLEEP
GOTO 231

242 CLS
LOCATE 5, 5
PRINT "Okay"
wex$ = "kbowl"
ec = (ec + 1)
SLEEP
GOTO 231

243 CLS
LOCATE 5, 5
PRINT "Okay"
wex$ = "band"
ec = (ec + 1)
SLEEP
GOTO 231

244 CLS
LOCATE 5, 5
PRINT "Okay"
wex$ = "drama"
ec = (ec + 1)
SLEEP
GOTO 231

250 CLS
IF job = 1 THEN GOTO 251
LOCATE 5, 5
PRINT "You get a job. It takes 20 hours each week. Your"
LOCATE 6, 5
PRINT "Social Level decreases by 5/wk, but you cash increases by $250/wk."
job = 1
SLEEP
GOTO 231

251 CLS
LOCATE 5, 5
PRINT "You already have a job."
LOCATE 6, 5
INPUT "Would you like to quit (y/n)?"; sjobc$
IF LCASE$(sjobc$) = "y" THEN job = 0: PRINT " Okay": SLEEP: GOTO 231
IF LCASE$(sjobc$) = "n" THEN SLEEP: PRINT "Okay": GOTO 231
GOTO 251

260 CLS
LOCATE 5, 5
IF hours < 3 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 231
LOCATE 5, 5
INPUT "Do you want to study tonight? (y/n)?"; smovie$
IF LCASE$(smovie$) = "y" THEN PRINT "Okay": hours = (hours - 4): sl = (sl - 5): gpa = (gpa + .5): SLEEP: GOTO 231
IF LCASE$(smovie$) = "n" THEN PRINT "Okay": SLEEP: GOTO 231
GOTO 260

270 CLS
LOCATE 5, 5
IF cash < 5 THEN PRINT "You don't have enough money!": SLEEP: GOTO 231
IF hours < 4 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 231
LOCATE 5, 5
INPUT "Do you want to go to mini-golf (y/n)?"; sgolf$
IF LCASE$(sgolf$) = "y" THEN PRINT "Okay": hours = (hours - 4): sl = (sl + 2): cash = (cash - 5): gpa = (gpa - .1): SLEEP: GOTO 231
IF LCASE$(sgolf$) = "n" THEN PRINT "Okay": SLEEP: GOTO 231
GOTO 270

280 CLS
LOCATE 5, 5
IF cash < 100 THEN PRINT "You don't have enough money!": SLEEP: GOTO 231
IF hours < 5 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 231
LOCATE 5, 5
INPUT "Do you want to go to the mall (y/n)?"; small$
IF LCASE$(small$) = "y" THEN PRINT "Okay": hours = (hours - 5): sl = (sl + 5): cash = (cash - 100): gpa = (gpa - .2): SLEEP: GOTO 231
IF LCASE$(small$) = "n" THEN PRINT "Okay": SLEEP: GOTO 231
GOTO 280

290 CLS
LOCATE 5, 5
IF hours < 6 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 231
LOCATE 5, 5
INPUT "Do you want to go to a party? (y/n)?"; sparty$
IF LCASE$(sparty$) = "y" THEN PRINT "Okay": hours = (hours - 6): sl = (sl + 7): gpa = (gpa - .5): SLEEP: GOTO 231
IF LCASE$(sparty$) = "n" THEN PRINT "Okay": SLEEP: GOTO 231
GOTO 290

299 CLS
week = (week + 1)
hours = 168
GOTO 230

320
week = 1
job = 0
prom = 0
spex$ = "none"
GOTO 330

330 CLS
IF week = 14 THEN GOTO 420
PRINT "You lose 50 hours due to sleeping"
PRINT "You lose 40 hours due to school"
PRINT "You lose 15 hours doing homework"
hours = hours - 105
IF gpa > 5 THEN gpa = 5
SLEEP
IF job = 1 THEN sl = (sl - 4)
IF job = 1 THEN cash = (cash + 350)
IF job = 1 THEN gpa = (gpa - .2)
IF job = 1 THEN hours = (hours - 20)
IF spex$ = "lacrosse" THEN sl = (sl + 5)
IF spex$ = "lacrosse" THEN gpa = (gpa - .1)
IF spex$ = "swimming" THEN sl = (sl + 4)
IF spex$ = "swimming" THEN gpa = (gpa - .07)
IF spex$ = "drama" THEN gpa = (gpa + .1)
IF spex$ = "band" THEN gpa = (gpa + .1)

331 CLS
LOCATE 5, 50
PRINT "Spring:"
LOCATE 6, 50
PRINT "Week #"; week; "; Hours left:"; hours
LOCATE 7, 50
PRINT "GPA"; gpa
LOCATE 8, 50
PRINT "Social Level:"; sl
LOCATE 9, 50
PRINT "$"; cash
LOCATE 10, 50
PRINT "Extra Curricular Activities:"; ec
LOCATE 5, 5
PRINT "(1) Extra Curricular Activities"
LOCATE 6, 5
PRINT "(2) Get a Job"
LOCATE 7, 5
PRINT "(3) Study"
LOCATE 8, 5
PRINT "(4) Go to Mini-Golf"
LOCATE 9, 5
PRINT "(5) Go to the Mall"
LOCATE 10, 5
PRINT "(6) Go to a Party"
LOCATE 11, 5
PRINT "(7) Go to the Prom"
LOCATE 12, 5
PRINT "(8) End Turn"
LOCATE 13, 5
PRINT "(9) Exit Game"
INPUT "What do you want to do?"; spchose
IF spchose = 1 THEN GOTO 340
IF spchose = 2 THEN GOTO 350
IF spchose = 3 THEN GOTO 360
IF spchose = 4 THEN GOTO 370
IF spchose = 5 THEN GOTO 380
IF spchose = 6 THEN GOTO 390
IF spchose = 7 THEN GOTO 395
IF spchose = 8 THEN GOTO 399
IF spchose = 9 THEN END
GOTO 331

340 CLS
LOCATE 5, 5
IF spex$ = "lacrosse" THEN PRINT "You already have an activity!": SLEEP: GOTO 331
IF spex$ = "swimming" THEN PRINT "You already have an activity!": SLEEP: GOTO 331
IF spex$ = "band" THEN PRINT "You already have an activity!": SLEEP: GOTO 331
IF spex$ = "drama" THEN PRINT "You already have an activity!": SLEEP: GOTO 331
LOCATE 5, 5
PRINT "(1) Lacrosse"
LOCATE 6, 5
PRINT "(2) Swimming"
LOCATE 7, 5
PRINT "(3) Band"
LOCATE 8, 5
PRINT "(4) Knowledge Bowl"
LOCATE 9, 5
INPUT "Which activity do you want to participate in?"; sec
IF sec = 1 THEN GOTO 341
IF sec = 2 THEN GOTO 342
IF sec = 3 THEN GOTO 343
IF sec = 4 THEN GOTO 344
GOTO 340

341 CLS
LOCATE 5, 5
PRINT "Okay"
spex$ = "lacrosse"
ec = (ec + 1)
SLEEP
GOTO 331

342 CLS
LOCATE 5, 5
PRINT "Okay"
spex$ = "swimming"
ec = (ec + 1)
SLEEP
GOTO 331

343 CLS
LOCATE 5, 5
PRINT "Okay"
spex$ = "band"
ec = (ec + 1)
SLEEP
GOTO 331

344 CLS
LOCATE 5, 5
PRINT "Okay"
spex$ = "drama"
ec = (ec + 1)
SLEEP
GOTO 331

350 CLS
IF job = 1 THEN GOTO 351
LOCATE 5, 5
PRINT "You get a job. It takes 20 hours each week. Your"
LOCATE 6, 5
PRINT "Social Level decreases by 5/wk, but you cash increases by $350/wk."
job = 1
SLEEP
GOTO 331

351 CLS
LOCATE 5, 5
PRINT "You already have a job."
LOCATE 6, 5
INPUT "Would you like to quit (y/n)?"; sjobc$
IF LCASE$(sjobc$) = "y" THEN job = 0: PRINT " Okay": SLEEP: GOTO 331
IF LCASE$(sjobc$) = "n" THEN SLEEP: PRINT "Okay": GOTO 331
GOTO 351

360 CLS
LOCATE 5, 5
IF hours < 3 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 331
LOCATE 5, 5
INPUT "Do you want to study tonight? (y/n)?"; smovie$
IF LCASE$(smovie$) = "y" THEN PRINT "Okay": hours = (hours - 4): sl = (sl - 5): gpa = (gpa + .5): SLEEP: GOTO 331
IF LCASE$(smovie$) = "n" THEN PRINT "Okay": SLEEP: GOTO 331
GOTO 360

370 CLS
LOCATE 5, 5
IF cash < 5 THEN PRINT "You don't have enough money!": SLEEP: GOTO 331
IF hours < 4 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 331
LOCATE 5, 5
INPUT "Do you want to go to mini-golf (y/n)?"; sgolf$
IF LCASE$(sgolf$) = "y" THEN PRINT "Okay": hours = (hours - 4): sl = (sl + 2): cash = (cash - 5): gpa = (gpa - .1): SLEEP: GOTO 331
IF LCASE$(sgolf$) = "n" THEN PRINT "Okay": SLEEP: GOTO 331
GOTO 370

380 CLS
LOCATE 5, 5
IF cash < 100 THEN PRINT "You don't have enough money!": SLEEP: GOTO 331
IF hours < 5 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 331
LOCATE 5, 5
INPUT "Do you want to go to the mall (y/n)?"; small$
IF LCASE$(small$) = "y" THEN PRINT "Okay": hours = (hours - 5): sl = (sl + 5): cash = (cash - 100): gpa = (gpa - .2): SLEEP: GOTO 331
IF LCASE$(small$) = "n" THEN PRINT "Okay": SLEEP: GOTO 331
GOTO 380

390 CLS
LOCATE 5, 5
IF hours < 6 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 331
LOCATE 5, 5
INPUT "Do you want to go to a party (y/n)?"; sparty$
IF LCASE$(sparty$) = "y" THEN PRINT "Okay": hours = (hours - 6): sl = (sl + 10): gpa = (gpa - .2): SLEEP: GOTO 331
IF LCASE$(sparty$) = "n" THEN PRINT "Okay": SLEEP: GOTO 331
GOTO 390

395 CLS
LOCATE 5, 5
IF home = 1 THEN PRINT "You've already gone to Senior Prom!": SLEEP: GOTO 331
IF hours < 7 THEN PRINT "You don't have enough hours!": SLEEP: GOTO 331
IF cash < 100 THEN PRINT "You don't have enough money!": SLEEP: GOTO 331
LOCATE 5, 5
INPUT "Do you want to go to the Senior Prom (y/n)?"; spdance$
IF LCASE$(fdancd$) = "y" THEN PRINT "Okay": hours = (hours - 10): sl = (sl + 10): cash = (cash - 300): home = 1: SLEEP: GOTO 331
IF LCASE$(fdancd$) = "y" THEN PRINT "Okay": SLEEP: GOTO 331

399 CLS
week = (week + 1)
hours = 168
GOTO 330

420 CLS
LOCATE 5, 5
PRINT gpa
LOCATE 6, 5
PRINT sl
LOCATE 7, 5
PRINT cash
LOCATE 8, 5
PRINT ec
LOCATE 15, 5
IF gpa < 3 THEN PRINT "Sorry, your GPA was not high enough to win. Try again": SLEEP: END
IF sl < 80 THEN PRINT "Sorry, your SL was not high enough to win. Try again": SLEEP: END
IF cash < 3000 THEN PRINT "Sorry, you didn't have enough money to win. Try again": SLEEP: END
IF sl < 2 THEN PRINT "Sorry, you didn't have enough extra-curricular activities to win. Try again": SLEEP: END
PRINT "Congratulations! You have survived your senior year of high school!"
LOCATE 16, 5
PRINT "You got good grades, balanced social life with extra-curricular"
LOCATE 17, 5
PRINT "activities, and hired enough money to hire an underclassman to streak"
LOCATE 18, 5
PRINT "at graduation! Good job!"
LOCATE 20, 5
PRINT "Hit a key to continue..."
421 key$ = INKEY$: IF key$ = "" THEN GOTO 421
GOTO 999

999
LOCATE 1, 15
PRINT "Countdown To Graduation"
LOCATE 2, 15
PRINT "By Armadillo Programming"
PRINT ""
PRINT "Lead Programmer: CeJota"
PRINT "Concept: DijonSyrup"
PRINT "Bug Fixing: CeJota, Frostorm"
PRINT "Play Balancing: DijonSyrup, Frostorm"
PRINT ""
PRINT "Play Testing: CeJota, DijonSyrup, Frostorm"
PRINT "Special Thanks to: Froware Software"
END
GOTO 999