REM PROGRAMMED BY TRAVIS SCHULTZ
SCREEN 11
CLS
PRINT ""
PRINT ""
PRINT ""
PRINT "кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП"
PRINT "Г                                 УФФФФФФФФФФФФФП"
PRINT "Г                                 Г             Г"
PRINT "Г                                 Г             Г"
PRINT "Г                                 Г             РФФФФФФФФФФФП"
PRINT "Г                                 Г                         Г"
PRINT "Г                                 Г                         Г"
PRINT "Г                                 Г                         Г"
PRINT "Г                                 Г                         Г"
PRINT "Г      кФФФФФФФФФФФП              Г            кФФФФФФП     Г"
PRINT "Г     кй           Г              Г            Г       \ФФФФД"
PRINT "РФФФФФй            РФФФФФФФФФФФФФФСФФФФФФФФФФФФй         ФФФй"
LOCATE 6, 10: PRINT "     л"
LOCATE 7, 10: PRINT "     л  "
LOCATE 8, 10: PRINT "ллллллллллл"
LOCATE 9, 10: PRINT "     л"
LOCATE 10, 10: PRINT "     л"
LOCATE 12, 7: PRINT "EMERGENCY CALL 911"
CIRCLE (100, 242), 40
PAINT (100, 240), 15
CIRCLE (415, 240), 35
PAINT (415, 240), 15
CIRCLE (315, 60), 9
PAINT (315, 60), 15
PSET (290, 90)
DRAW "R70D50L70U50"
DO
PLAY "fc"
LOOP UNTIL INKEY$ = "9"
DO
PLAY "fc"
LOOP UNTIL INKEY$ = "1"
DO
PLAY "fc"
LOOP UNTIL INKEY$ = "1"
RUN "a:\WITCH.BAS"