10  REM WISH TO THANK J. LEUNG FOR WRITING THIS PROGRAM *******
20  REM REVISED MAR 22 77 BY KEVIN BAKER MCATEER*******
30  Y=0
40  DIM A$[72]
50  PRINT "                    ARE YOU AN ALCOHOLIC?"
60  PRINT 
70  PRINT "TO ANSWER THIS QUESTION ASK YOURSELF THE FOLLOWING QUESTIONS"
80  PRINT "AND ANSWER THEM AS HONESTLY AS YOU CAN."
90  PRINT "YOU MUST ANSWER EACH OF THESE 20 QUESTIONS WITH A YES OR NO ONLY."
100  PRINT 
110  PRINT "ARE YOU OVER 25 YEARS OLD?"
120  INPUT A$
130  IF A$[1,1]="Y" THEN 170
140  IF A$[1,1]="N" THEN 1000
150  PRINT "PLEASE TYPE YES OR NO ONLY!"
160  GOTO 120
170  Y=0
180  PRINT " 1.  DO YOU LOSE TIME FROM WORK DUE TO DRINKING?"
190  GOSUB 660
200  PRINT " 2.  IS DRINKING MAKING YOUR HOME LIFE UNHAPPY?"
210  GOSUB 660
220  PRINT " 3.  DO YOU DRINK BECAUSE YOU ARE SHY WITH OTHER PEOPLE?"
230  GOSUB 660
240  PRINT " 4.  IS DRINKING AFFECTING YOUR REPUTATION?"
250  GOSUB 660
270  PRINT " 5.  HAVE YOU EVER FELT REMORSE AFTER DRINKING?"
280  GOSUB 660
290  PRINT " 6.  HAVE YOU GOTTEN INTO FINANCIAL DIFFICULTIES AS A"
300  PRINT "     RESULT OF DRINKING?"
310  GOSUB 660
320  PRINT " 7.  DO YOU TURN TO LOWER COMPANIONS AND AN INFERIOR"
330  PRINT "     ENVIRONMENT WHEN DRINKING?"
340  GOSUB 660
350  PRINT " 8.  DOES YOUR DRINKING MAKE YOU CARELESS OF YOUR FAMILY'S"
360  PRINT "     WELFARE?"
370  GOSUB 660
380  PRINT " 9.  HAS YOUR AMBITION  "'25"DECREASED SINCE DRINKING?"
390  GOSUB 660
400  PRINT " 10.  "'25"DO YOU CRAVE A DRINK AT A DEFINATE TIME DAILY?"
410  GOSUB 660
420  PRINT " 11. DO YOU WANT A DRINK THE NEXT MORNING?"
430  GOSUB 660
440  PRINT " 12.DOES DRINKING CAUSE YOU TO HAVE DIFFICULTY IN SLEEPING?"
450  GOSUB 660
460  PRINT " 13. HAS YOUR EFFICIENCY DECREASED SINCE DRINKING?"
470  GOSUB 660
480  PRINT " 14. IS DRINKING JEOPARDIZING YOUR JOB OR BUSINESS?"
490  GOSUB 660
500  PRINT " 15. DO YOU DRINK TO ESCAPE FROM WORRIES OR TROUBLE?"
510  GOSUB 660
520  PRINT " 16. DO YOU DRINK ALONE?"
530  GOSUB 660
540  PRINT " 17. HAVE YOU EVER HAD A COMPLETE LOSS OF MEMORY AS A "
550  PRINT "     RESULT OF DRINKING?"
560  GOSUB 660
570  PRINT " 18. HAS YOUR PHYSICIAN EVER TREATED YOU FOR DRINKING?"
580  GOSUB 660
590  PRINT " 19. DO YOU DRINK TO BUILD UP YOUR SELF-CONFIDENCE?"
600  GOSUB 660
610  PRINT " 20. HAVE YOU EVER BEEN TO A HOSPITAL OR INSTITUTION"
620  PRINT "     ON ACCOUNT OF DRINKING?"
630  GOSUB 660
640  GOTO 720
650  STOP 
660  INPUT A$
670  IF A$[1,1]="Y" THEN 700
680  IF A$[1,1]="N" THEN 710
690  GOTO 660
700  Y=Y+1
710  RETURN 
720  IF Y=0 THEN 760
730  IF Y=1 THEN 800
740  IF Y=2 THEN 840
750  IF Y>2 THEN 880
760  PRINT 
770  PRINT "YOU HAVE ANSWERED NO TO ALL OF THE QUESTIONS,"
780  PRINT "CONGRATULATIONS! YOU ARE NOT AN ALCOHOLIC!"
790  GOTO 920
800  PRINT 
810  PRINT "YOU HAVE ANSWERED YES TO ONE OF THE QUESTIONS, THERE IS A"
820  PRINT "DEFINITE WARNING THAT YOU MAY BE ALCOHOLIC."
830  GOTO 950
840  PRINT 
850  PRINT "YOU HAVE ANSWERED YES TO TWO OF THE QUESTIONS, THE CHANCES"
860  PRINT "ARE THAT YOU ARE AN ALCOHOLIC."
870  GOTO 950
880  PRINT 
890  PRINT "YOU HAVE ANSWERED YES TO THREE OR MORE, YOU ARE CONSIDERED"
900  PRINT "AN ALCOHOLIC BY THIS TEST!  WHAT DO YOU THINK?"
910  GOTO 950
920  PRINT 
930  PRINT "FOR MORE INFORMATION CALL:"
940  GOTO 970
950  PRINT 
960  PRINT "FOR HELP CALL:"
970  PRINT "NATIONAL COUNCIL ON ALCOHOLISM        563-5400"
980  PRINT "ALCOHOLICS ANONYMOUS                  982-4473"
990  STOP 
1000  PRINT " 1.  DO YOU LOSE TIME FROM SCHOOL DUE TO DRINKING?"
1010  GOSUB 660
1020  PRINT "2. DO YOU DRINK TO BUILD UP YOUR SELF CONFIDENCE?"
1030  GOSUB 660
1040  PRINT "3. DO YOU DRINK FOR ANY REASON THAT YOU CAN THINK OF?"
1050  GOSUB 660
1060  PRINT " 4.  DO YOU DRINK ALONE?"
1070  GOSUB 660
1080  PRINT " 5.  IS DRINKING AFFECTING YOUR REPUTATION-OR DO YOU CARE?"
1090  GOSUB 660
1100  PRINT " 6.  DO YOU DRINK TO ESCAPE FROM STUDY OR HOME WORRIES?"
1110  GOSUB 660
1120  PRINT "7. DO YOU FEEL GUILTY OR BUMMED AFTER DRINKING?"
1130  GOSUB 660
1140  PRINT " 8.  DOES IT BOTHER YOU IF SOMEONE SAYS THAT MAYBE"
1150  PRINT "     YOU DRINK TOO MUCH?"
1160  GOSUB 660
1170  PRINT " 9.  DO YOU HAVE TO TAKE A DRINK WHEN YOU GO OUT ON A DATE?"
1180  GOSUB 660
1190  PRINT " 10. DO YOU MAKE OUT (IN GENERAL) BETTER WHEN YOU DRINK?"
1200  GOSUB 660
1210  PRINT "11. DO YOU EVER GET INTO FINANCIAL TROUBLES OVER"
1220  PRINT "BUYING LIQUOR?"
1230  GOSUB 660
1240  PRINT "12. DO YOU FEEL A SENSE OF POWER WHEN YOU DRINK?"
1250  GOSUB 660
1260  PRINT "13. HAVE YOU LOST FRIENDS SINCE YOU'VE STARTED DRINKING?"
1270  GOSUB 660
1280  PRINT "14. HAVE YOU STARTED HANGING OUT WITH A CROWD WHERE"
1290  PRINT "STUFF IS EASY TO GET?"
1300  GOSUB 660
1310  PRINT "15. DO YOUR FRIENDS DRINK LESS THAN YOU DO?"
1320  GOSUB 660
1330  PRINT "16. DO YOU DRINK TILL THE BOTTLE IS DONE?"
1340  GOSUB 660
1350  PRINT "17. HAVE YOU EVER HAD A COMPLETE LOSS OF MEMORY FROM"
1360  PRINT "DRINKING?"
1370  GOSUB 660
1380  PRINT "18. HAVE YOU EVER BEEN TO A HOSPITAL OR BEEN BUSTED"
1390  PRINT "DUE TO DRUNK DRIVING?"
1400  GOSUB 660
1410  PRINT "19. DO YOU TURN OFF TO ANY STUDIES OR LECTURES ABOUT"
1420  PRINT "DRINKING?"
1430  GOSUB 660
1440  PRINT "20. DO YOU THINK YOU HAVE A PROBLEM WITH LIQUOR?"
1450  GOSUB 660
1460  GOTO 720
1470  END 
