GW Basic HOMELESS - surviving the streets

[ron77]

10   REM HOMELESS GAME BY SOLO88 (RON77)
50   RANDOMIZE TIMER
60   DIM SENARIO$(2), STATUS$(2), ACTION$(4), HOME$(5)
70   DIM SHELTER$(5), MONEY$(4), JOB$(2), DRUG$(3)
100  FOR I = 0 TO 2
110      READ SENARIO$(I)
120  NEXT I
130  FOR I = 0 TO 2
140      READ STATUS$(I)
150  NEXT I
160  FOR I = 0 TO 4
170      READ ACTION$(I)
180  NEXT I
190  FOR I = 0 TO 5
200      READ HOME$(I)
210  NEXT I
220  FOR I = 0 TO 5
230      READ SHELTER$(I)
240  NEXT I
250  FOR I = 0 TO 4
260      READ MONEY$(I)
270  NEXT I
280  FOR I = 0 TO 2
290      READ JOB$(I)
300  NEXT I
310  FOR I = 0 TO 3
320      READ DRUG$(I)
330  NEXT I
335  CLS 0
340  S$ = "HOMELESSNESS - SURVIVING THE STREETS"
350  LOCATE 4, (80 - LEN(S$)) / 2: PRINT S$
360  S$ = "A MIND SIMULATION GAME"
361  LOCATE 6, (80 - LEN(S$)) / 2: PRINT S$
370  S$ = "IMPORTENT NOTE:"
371  LOCATE 10, (80 - LEN(S$)) / 2: PRINT S$
372  S$ = "THIS GAME COMES TO BRING TO AWARENESS THE PROBLEM OF HOMLESSNESS"
373  LOCATE 11, (80 - LEN(S$)) / 2: PRINT S$
374     S$ = "I DO NOT MEAN TO MOCK OR INSULT ANYONE! PLEASE HELP PUT AN END TO HOMELESSNESS"
375  LOCATE 12, (80 - LEN(S$)) / 2: PRINT S$
376  T! = TIMER + 15: WHILE TIMER < T!: WEND
377  CLS 0
378     LOCATE 6, 14: INPUT "PLEASE ENTER YOUR NAME: "; NAM$
380  PRINT NAM$ + " " + SENARIO$(INT(RND * 2) + 1): PRINT: T! = TIMER + 10: WHILE TIMER < T!: WEND
390  PRINT "GOOD LUCK!"
400  D2% = 0: HEALTH2% = 50: DOLLARS2% = 40
410  CLS 0
420  HEALTH2% = HEALTH2% - 10: DOLLARS2% = DOLLARS2% - 10 : D2% = D2% + 1 
425  S$ = "day: " + STR$(D2%) + " health (0-100%): " + STR$(HEALTH2%) + "%  money: " + STR$(DOLLARS2%) + "$"
430  LOCATE 2, (80 - LEN(S$)) / 2: PRINT S$
440  LOCATE 4, 10: PRINT STATUS$(INT(RND*3))
450  FOR I = 0 TO 4: PRINT ACTION$(I): PRINT: NEXT I
455  IF HEALTH2% < 1 THEN GOTO 660
460  INPUT "CHOOSE WHAT TO DO?: ", AC$
470  IF AC$ = "1" THEN GOTO 610
480  IF AC$ = "2" THEN GOTO 630
490  IF AC$ = "3" THEN GOTO 580
500  IF AC$ = "4" THEN GOTO 560
510  IF AC$ = "5" THEN GOTO 540
540  IF DOLLARS2%<19 THEN GOTO 550 ELSE X = INT(RND*4): PRINT DRUG$(X): HEALTH2% = HEALTH2% - 20: T! = TIMER + 10: WHILE TIMER < T!: WEND: IF X = 3 THEN GOTO 660 ELSE GOTO 410
550  PRINT "YOU DON'T HAVE ENOUGH MONEY CHOOSE OTHER OPTION": T! = TIMER + 10: WHILE TIMER < T!: WEND: GOTO 410
560  IF HEALTH2%<20 THEN GOTO 570 ELSE X = INT(RND*3): PRINT JOB$(X): T! = TIMER + 10: WHILE TIMER < T!: WEND: IF X =1 THEN GOTO 670 ELSE: GOTO 410
570  PRINT "NOBODY WILL HIYER YOU UNTIL YOUR HEALTH GETS BETTER CHOOSE OTHER OPTION": T! = TIMER + 10: WHILE TIMER < T!: WEND: GOTO 410
580  X = INT(RND*6): PRINT HOME$(X): T! = TIMER + 10: WHILE TIMER < T!: WEND: IF X = 4 THEN GOTO 670 ELSE GOTO 410
610  X = INT(RND*5): PRINT MONEY$(X): T! = TIMER + 10: WHILE TIMER < T!: WEND: IF X = 3 THEN GOTO 660 ELSE DOLLARS2% = DOLLARS2% + 20: HEALTH2% = HEALTH2% + 25: GOTO 410       
630  X = INT(RND*6): PRINT SHELTER$(X): T! = TIMER + 10: WHILE TIMER < T!: WEND: IF X = 3 THEN GOTO 660 ELSE GOTO 410            
660  PRINT "YOU DIED ON THE STREETS - GAME OVER": PRINT "YOU SURVIVED ON THE STREETS FOR: " + STR$(D2%) + " DAYS":T! = TIMER + 10: WHILE TIMER < T!: WEND: GOTO 680
670  PRINT "YOU SURVIVED THE STREETS - GAME OVER": PRINT "YOU SURVIVED ON THE STREETS FOR: " + STR$(D2%) + " DAYS": T! = TIMER + 10: WHILE TIMER < T!: WEND: GOTO 680
680  INPUT "ANOTHER ROUND?(lowercase y/n only): ", C$: IF C$ = "y" THEN GOTO 335 ELSE END
1940 REM senarios:
1950 DATA " you are runaway teenager that run from home... you need to survive on the streets till you can find a home."
1960 DATA " you are a middle age person who's wife filed for divorce and throwed you from your house... you live in your old car till you get a new place to live."
1970 DATA " you are brock with no job and no family... you have been kick out of your home now you have to find a solution to your problem."
1990 REM status
2000 DATA "it's morning rise and shine... you almost don't have any money and you are hungry"
2010 DATA "it's noon you have been sitting and begging for change from passing people some have given you some money"
2020 DATA "it's night you are tired and need to find a safe place to sleep"
2040 REM actions
2050 DATA "press 1 to: go beg or look for food or money"
2060 DATA "press 2 to: find help and/or shelter"
2070 DATA "press 3 to: call from a street phone to a family member or a friend to ask for help"
2080 DATA "press 4 to: try to find a job or work"
2090 DATA "press 5 to: do drugs or drink alcohol to forget the pain suffering and loneliness"
2110 REM CALL home
2120 DATA "you call your grandma and you both cry... she promises to try to get you some help... she sends you her love... you promise to keep in touch with her"
2130 DATA "you call a friend and she gives you some money and lets you stay at her place for the night... you get to have a good shower some clean cloths and eat a good meal and your back on the streets again"
2140 DATA "you call a number of a hot-line for aid to homeless persons... the come and pick you up give some food and shelter for the night you talk to a social worker and he gives you his number just in case you need it"
2150 DATA "you call a relative but no one answers... you are left alone on the streets"
2160 DATA "you call your family and they pick you up and let you stay for as long as you need... you are off the streets"
2170 DATA "you call but there is no answer"
2190 REM help OR shelter
2200 DATA "you go to a shelter for homeless people... you are robed from you money by violent addicts... you succeed to run away from there and spend the rest of the night at a park crying"
2210 DATA "you try to sleep at the park but you get arrested by a policeman... you spend few hours in jail where you are beaten by inmates... by morning you are on the street again"
2220 DATA "you have enough money to rent a motel room for the night... you shower and wash you cloths and sleep in a warm bed and dream you have a home"
2230 DATA "you sleep at the park on a bench where you freeze to death cause of the cold weather... you are now in heaven RIP"
2240 DATA "you sleep on the street on a corner when you wake up you find a 20 dollar bill and a note that says 'may god help you this is the little i can do'"
2250 DATA "you are arrested by the police and now instead surviving on the street you have to survive being in jail"
2270 REM beg FOR money
2280 DATA "you sit for hours and people pass you by as if you are invisible then some kind lady comes and invite you to eat at a dinner on her expense... you talk with her for two hours and tell her your story... then she says 'bye'"
2290 DATA "you sit at a corner and people give you coins and dollars you get enough money to go by for a few days"
2300 DATA "you sit and some men offers you work for some money and a meal you accept... you go to his house and help him paint his house then he gives you 10 dollars and a home cooked meal"
2310 DATA "no one gives you nothing! your hungry and you have no choice but to look for food in the garbage... you get sick... very sick and you die on the streets from food poison... RIP"
2320 DATA "you sit all day for nothing nobody gives you anything"
2340 REM job
2350 DATA "you try to find work but nobody is interested"
2360 DATA "you find work as a dishwasher at a dinner after a week you can afford a place to call home. you are off the street!"
2370 DATA "you find work but you are fired really quick"
2390 REM drugs AND alcohol
2400 DATA "you get drunk and stone from cheep alcohol and for a few hours you forget about all your problems"
2410 DATA "you do cheep street drugs and you get sick and collapse on the street... you wake up at the hospital and when you are better you are out on the street again"
2420 DATA "you get stones and passed out when you wake in the morning everything you had is gone - you gut mugged"
2430 DATA "you do drugs and over dose and die on the streets RIP"

Play Online on Archive.org the game Homeless