Atari 8-bit Source code

1 DIM K$(1):​DIM Y$(13):​Y$="FINAL SCORE:​ ":​DIM U$(13):​U$="HIGH SCORE:​ ":​B=0:​S=0:​H=100:​P=4:​E=100:​GOTO 9
2 OPEN #5,​4,​0,​"K:​":​I=PEEK(764):​IF I=255:​CLOSE #5:​GOTO 2:​ENDIF:​GET #5,​I:​CLOSE #5:​K$=CHR$(I):​RETURN
3 PRINT:​PRINT "HEALTH:​ ";H:​PRINT "SCORE:​ ";S:​PRINT "POTIONS:​ ";P:​PRINT:​PRINT "(A)TTACK OR (H)EAL?":​D=RAND(48):​M=RAND(25)
4 GOSUB 2:​IF K$="H" AND P>0 THEN Z=D+M:​H=H+Z:​PRINT "HEALED FOR ";Z;" HIT POINTS":​P=P-1
5 IF K$="A" THEN E=E-D:​H=H-M:​PRINT:​PRINT "YOU DID ";D;" DAMAGE,​ BUT WERE HIT FOR ";M:​IF D>40 THEN 10
6 IF E<1 AND H>0 THEN PRINT:​PRINT "YOU HAVE DEFEATED THE GRUE!":​S=S+100:​E=100:​IF D>40 THEN P=P+1:​PRINT "FOUND A POTION!"
7 IF H<1 THEN PRINT:​PRINT "SORRY,​ YOU DIED!":​PRINT Y$;S:​PRINT U$;B:​GOSUB 2:​S=0:​H=100:​P=4:​E=100:​GRAPHICS 0:​SETCOLOR 2,​0,​0:​GOTO 9
8 IF H>99:​H=100:​ENDIF:​PRINT:​PRINT "PRESS ANY KEY TO CONTINUE":​GOSUB 2
9 IF S>B:​B=S:​ENDIF:​GRAPHICS 0:​SETCOLOR 2,​0,​0:​PRINT "IT IS PITCH BLACK.":​PRINT "YOU ARE LIKELY TO BE EATEN BY A GRUE.":​GOTO 3
10 PRINT "CRITICAL HIT!":​SETCOLOR 2,​3,​4:​SOUND 0,​150,​8,​4:​FOR L=1 TO 499:​NEXT L:​SOUND 0,​0,​0,​0:​SETCOLOR 2,​0,​0:​GOTO 6