Zombie Horde

In this Haloween theamed text game, you have to fight zombies to survive the zompolious. There are many health and horde number options (including 'hidden' ones). Can you survive?

1 @TITLEPAGE 2 CLS:COLOR 12: PRINT 3 PRINT " ZZZZ OOO M  M BB  III EEE" 4 PRINT "  Z  O O MM MM B B  I  E" 5 PRINT "  Z   O O M M M BB   I  EEE" 6 PRINT " Z   O O M   M B B  I  E" 7 PRINT " ZZZZ OOO M   M BB  III EEE" 8 PRINT 9 PRINT " H H OOO RR DD  EEE" 10 PRINT " H H O O R R D D E" 11 PRINT " HHH O O RR D D EEE" 12 PRINT " H H O O R R D D E" 13 PRINT " H H OOO R R DD EEE" 14 COLOR 15 15 PRINT 16 PRINT "To keep from fainting" 17 PRINT " while playing, keep" 18 PRINT " saying to yourself:" 19 TALK "IT IS ONLY A VIDEO GAME": PRINT "It is only a video game!" 20 WAIT 60: TALK "IT IS ONLY A VIDEO GAME": PRINT "It is only a video game!" 21 WAIT 60: TALK "IT IS ONLY A VIDEO GAME": PRINT "It is only a video game!" 22 WAIT 60: PRINT 23 PRINT " By Stanley R. Teriaca" 24 PRINT " Uncopyright (UC) 2012" 25 LINPUT "ANY KEY=NEXT SCREEN"; NS$ 26 GOTO @NEXTSCREEN 27 28 @NEXTSCREEN 29 CLS 30 PRINT 31 PRINT " 1) Try to survive the" 32 PRINT "   Zombie Horde." 33 PRINT 34 PRINT " 2) How to survive the" 35 PRINT "   Zombie Horde." 36 PRINT 37 PRINT " 3) Something about the" 38 PRINT "   Programer." 39 PRINT 40 PRINT " 4) Mommie, I'm afrade" 41 PRINT     of the Zombie Horde." 42 PRINT "    Take me home!" 43 PRINT 44 INPUT "1, 2, 3, or 4, which will it be"; A 45 IF A==1 THEN GOTO @POWERSELECT 46 IF A==2 THEN GOSUB @INS 47 IF A==3 THEN GOSUB @PRO 48 IF A==4 THEN END 49 IF A!=1 OR A!=2 OR A!=3 OR A!=4 THEN GOTO @NEXTSCREEN 50 51 @POWERSELECT 52 CLS 53 TALK "CHOKE ON THEM!": PRINT "Choke on 'em!" 54 PRINT 55 PRINT " 1) Health: Maximum Well (1600)" 56 PRINT 57 PRINT " 2) Health: Extremly Well (800)" 58 PRINT 59 PRINT " 3) Health: Healthy (400)" 60 PRINT 61 PRINT " 4) Health: Normal (200)" 62 PRINT 63 PRINT " 5) Health: Sickly (100)" 64 PRINT 65 PRINT " 6) Health: Infected (50)" 66 PRINT 67 INPUT "Your health is"; HE 68 IF HE==0 THEN GOTO @3200H 69 IF HE==1 THEN GOTO @1600H 70 IF HE==2 THEN GOTO @800H 71 IF HE==3 THEN GOTO @400H 72 IF HE==4 THEN GOTO @200H 73 IF HE==5 THEN GOTO @100H 74 IF HE==6 THEN GOTO @50H 75 IF HE==7 THEN GOTO @1H 76 IF HE!=0 OR HE!=1 OR HE!=2 OR HE!=3 OR HE!=4 OR HE!=5 OR HE!=6 OR HE!=7 THEN GOTO @POWERSELECT 77 78 @3200H 79 HEALTH=3200 80 GOTO @LEVELSELECT 81 82 @1600H 83 HEALTH=1600 84 GOTO @LEVELSELECT 85 86 @800H 87 HEALTH=800 88 GOTO @LEVELSELECT 89 90 @400H 91 HEALTH=400 92 GOTO @LEVELSELECT 93 94 @200H 95 HEALTH=200 96 GOTO @LEVELSELECT 97 98 @100H 99 HEALTH=100 100 GOTO @LEVELSELECT 101 102 @50H 103 HEALTH=50 104 GOTO @LEVELSELECT 105 106 @1H 107 HEALTH=1 108 GOTO @LEVELSELECT 109 110 @LEVELSELECT 111 CLS 112 PRINT 113 TALK "WHEN THERE IS NO ROOM IN HELL!": PRINT "When there is no room in Hell." 114 PRINT 115 PRINT " 1) 50 ZOMBIE HORDE RUSH!" 116 PRINT 117 PRINT " 2) 100 ZOMBIE HORDE RUSH!" 118 PRINT 119 PRINT " 3) 250 ZOMBIE HORDE RUSH!" 120 PRINT 121 PRINT " 4) 500 ZOMBIE HORDE RUSH!" 122 PRINT 123 PRINT " 5) 1000 ZOMBIE HORDE RUSH!" 124 PRINT 125 PRINT " 6) 2000 ZOMBIE HORDE RUSH!" 126 PRINT 127 PRINT " 7) 4000 ZOMBIE HORDE RUSH!" 128 PRINT 129 PRINT " 8) 8000 ZOMBIE HORDE RUSH!" 130 PRINT 131 PRINT " 9) ENDLESS ZOMBIE HORDE RUSH!" 132 PRINT 133 PRINT INPUT "Which level";B 134 IF B==0 THEN GOTO @25ZH 135 IF B==1 THEN GOTO @50ZH 136 IF B==2 THEN GOTO @100ZH 137 IF B==3 THEN GOTO @250ZH 138 IF B==4 THEN GOTO @500ZH 139 IF B==5 THEN GOTO @1000ZH 140 IF B==6 THEN GOTO @2000ZH 141 IF B==7 THEN GOTO @4000ZH 142 IF B==8 THEN GOTO @8000ZH 143 IF B==9 THEN GOTO @ENDLESS COMBAT1 144 IF B!=0 OR B!=1 OR B!=2 OR B!=3 OR B!=4 OR B!=5 OR B!=6 OR B!=7 OR B!=8 OR B!=9 THEN GOTO @LEVELSELECT 145 146 @25ZH 147 TZH=25 148 GOTO @MAINLINE 149 150 @50ZH 151 TZH=50 152 GOTO @MAINLINE 153 154 @100ZH 155 TZH=100 156 GOTO @MAINLINE 157 158 @250ZH 159 TZH=250 160 GOTO @MAINLINE 161 162 @500ZH 163 TZH=500 164 GOTO @MAINLINE 165 166 @1000ZH 167 TZH=1000 168 GOTO @MAINLINE 169 170 @2000ZH 171 TZH=2000 172 GOTO @MAINLINE 173 174 @4000ZH 175 TZH=4000 176 GOTO @MAINLINE 177 178 @8000ZH 179 TZH=8000 180 GOTO @MAINLINE 181 182 @MAINLINE 183 ZKILL=0 184 TALK "THERE COMMING FOR YOU BARBRA!": PRINT "There comming for you, Barbra!" 185 WAIT 60 186 GOTO @COMBAT 187 188 @COMBAT 189 CLS 190 HIT=RND(4)+1 191 ZOMHIT=RND(4)+1 192 PRINT 193 PRINT " Your Health: "HEALTH 194 PRINT 195 PRINT " Zombies Redead: "ZKILL 196 PRINT " Zombies in the Horde: "TZH 197 PRINT 198 PRINT " 1) Attack the zombies" 199 PRINT 200 PRINT " 2) Defend yourself" 201 PRINT 202 PRINT " 3) End it all" 203 PRINT 204 INPUT " Can you survive";C 205 IF C==1 THEN GOTO @ATTACK 206 IF C==2 THEN GOTO @DEF 207 IF C==3 THEN GOTO @ENDITALL 208 IF C!=1 OR C!=2 OR C!=3 THEN GOTO @COMBAT