Use CHIBIT.BA to decode ASCII character codes 128-255 to their 8 bit high equivalent.  You will find CHIBIT.BA and CHIBIT.DO in the Telcom category of the Club 100 online library.

0 'GATOR.BA  ^171H.J.SCHITTKE'87
5 CLS:CLEAR:CLEAR256,HIMEM-320:DEFSTRI,N,O:N=CHR$(27)+"p":O=CHR$(27)+"q":CALL16959
10 GOTO1000
20 I=INKEY$:IFI<>""THEN20ELSERETURN
30 I=INKEY$:IFI=""THENJ=RND(1):GOTO30ELSERETURN
40 I=INKEY$:IFI=""THENRETURN
50 J=ASC(I)-26:IFJ>0THENONJGOTO70,80,90,100,110,120
60 RETURN
70 STOP
80 DP=1:RETURN
90 DP=-1:RETURN
100 DP=-2:RETURN
110 DP=2:RETURN
120 DP=0:RETURN
130 PRINT@193,N" LIVES "O;:PRINT@235,LV;:PRINT@273,N" SCORE "O;:PRINT@314,USING"#####";SC;:RETURN
1000 LINE(92,16)-(140,38),1,BF:PRINT@137,N"GATOR"O;
1010 A!=HIMEM+1:MC!=A!+189:GOSUB4000
1020 B$="^239":P$="^147":Q$="~":X$=N+"^144"+O:Y$=N+"^145"+O:W$="-"
1030 FORJ=1TOPEEK(63791):SS=RND(1):NEXTJ
1040 LV=3:R!=.3:SC=0
1050 CLS:PRINT@33,N;STRING$(7,241);:PRINT@73," GATOR ";:PRINT@113,STRING$(7,241);O;:GOSUB130
1060 FORJ=0TO31:PRINT@J,B$;:NEXT:FORJ=32TO272STEP40:PRINT@J,B$;:NEXT:FORJ=312TO281STEP-1:PRINT@J,B$;:NEXT:FORJ=280TO40STEP-40:PRINT@J,B$;:NEXT:FORK=1TO6:FORJ=1TO31:PRINT@J+40*K,W$;:NEXTJ,K:PRINT@281,N;" Fence him in! ";
1070 DX=-1:SX=311:DY=-2:SY=272:PRINT@SX,X$;:PRINT@SY,Y$;:DP=0:SP=0:PRINT@SP,P$;
1080 SQ=4+INT(24*RND(1))+40*(1+INT(5*RND(1))):PRINT@SQ,Q$;:GOSUB20:PRINT@296,N"use arrow keys"O;:GOSUB30:GOSUB50:PRINT@281,N;SPACE$(32);O:GOTO1110
1100 GOSUB40
1110 PRINT@SP,B$;:IFDP=1THENIF(SPMOD40<32)THENSP=SP+1:GOTO1150ELSE1150
1120 IFDP=-1THENIF(SPMOD40>0)THENSP=SP-1:GOTO1150ELSE1150
1130 IFDP=2THENIFSP<280THENSP=SP+40:GOTO1150ELSE1150
1140 IFDP=-2THENIFSP>32THENSP=SP-40
1150 PRINT@SP,P$;
1200 PRINT@SX,B$;:SS=0
1210 IFDX=1THENIF(SXMOD40<32)THENSX=SX+1:IFPEEK(65024+SX)=147THENSS=SP+40:GOTO1250ELSEELSEDX=2:GOTO1250
1220 IFDX=-1THENIF(SXMOD40>0)THENSX=SX-1:IFPEEK(65024+SX)=147THENSS=SP-40:GOTO1250ELSEELSEDX=-2:GOTO1250
1230 IFDX=2THENIFSX<312THENSX=SX+40:IFPEEK(65024+SX)=147THENSS=SP-1:GOTO1250ELSEELSEDX=-1:GOTO1250
1240 IFDX=-2THENIFSX>0THENSX=SX-40:IFPEEK(65024+SX)=147THENSS=SP+1:GOTO1250ELSEELSEDX=1
1250 PRINT@SX,X$;:IFSS>0THENPRINT@SP,B$;:SP=SS:DP=0:PRINT@SP,P$;
1300 PRINT@SY,B$;:SS=0
1310 IFDY=1THENIF(SYMOD40<32)THENSY=SY+1:IFPEEK(65024+SY)=147THENSS=SP-40:GOTO1350ELSEELSEDY=-2:GOTO1350
1320 IFDY=-1THENIF(SYMOD40>0)THENSY=SY-1:IFPEEK(65024+SY)=147THENSS=SP+40:GOTO1350ELSEELSEDY=2:GOTO1350
1330 IFDY=2THENIFSY<280THENSY=SY+40:IFPEEK(65024+SY)=147THENSS=SP+1:GOTO1350ELSEELSEDY=1:GOTO1350
1340 IFDY=-2THENIFSY>32THENSY=SY-40:IFPEEK(65024+SY)=147THENSS=SP-1:GOTO1350ELSEELSEDY=-1
1350 PRINT@SY,Y$;:IFSS>0THENPRINT@SP,B$;:SP=SS:DP=0:PRINT@SP,P$;
1400 PRINT@SQ,W$;
1410 IFRND(1)<R!THENDQ=-2+5*RND(1)ELSEYP=SP\40:XP=SP-40*YP:YQ=SQ\40:XQ=SQ-40*YQ:IFABS(XP-XQ)>ABS(YP-YQ)THENDQ=SGN(XP-XQ)ELSEDQ=2*SGN(YP-YQ)
1420 IFDQ=0THEN1480
1430 IFDQ=1THENQ=PEEK(65025+SQ):IFQ=45THENSQ=SQ+1:GOTO1480ELSE1470
1440 IFDQ=-1THENQ=PEEK(65023+SQ):IFQ=45THENSQ=SQ-1:GOTO1480ELSE1470
1450 IFDQ=2THENQ=PEEK(65064+SQ):IFQ=45THENSQ=SQ+40:GOTO1480ELSE1470
1460 IFDQ=-2THENQ=PEEK(64984+SQ):IFQ=45THENSQ=SQ-40:GOTO1480
1470 IFQ=147THEN2000
1480 PRINT@SQ,Q$;
1490 GOTO1100
2000 CALLMC!,0,SQ+256*(SP+40*(SP>255)):K=PEEK(A!)::IFK<170THENSC=SC+INT((170-K)/R!)
2110 PRINT@SP,N"*"O;:PRINT@296,N" GATOR GOT YOU!"O;
2120 R!=R!-.1:LV=LV-1:GOSUB130:IFLVTHENFORJ=1TO2000:NEXT:GOTO1050
2150 GOSUB20:PRINT@295,N"PLAY AGAIN (Y/N)?"O;
2160 GOSUB30:IFI="Y"ORI="y"THENPRINTN;I;O;:GOTO1040ELSEIFI="N"ORI="n"THENCLEAR256,HIMEM+320:MENUELSE2160
3999 STOP
4000 READK,CS:C=0:PRINT@200,"^143";
4001 FORJ=0TOK-1:PRINT"^143";
4002 READQ:C=C+Q:IFQ<256THENPOKEMC!+J,Q:NEXTELSEQ=Q-256:READQH:C=C+QH:IFQH<256THENPRINT"TROUBLE - CODING ERROR":STOPELSEQH=QH-256:B!=Q+256*QH+A!:QH=INT(B!/256):Q=B!-256*QH:POKEMC!+J,Q:J=J+1:POKEMC!+J,QH:NEXTJ
4010 IFC=CSTHENBEEP:BEEP:BEEP:RETURNELSEPRINT"TROUBLE - CHECKSUM ERROR":STOP
4020 DATA 129,23022
4030 DATA 68,77,33,257,256,112,35,113,120,205,306,257,121,205,306,257,6,1,62,2,50,256,256,4,58,256,256,184,216,120,205,298
4050 DATA 257,126,245,61,205,506,256,241,245,60,205,506,256,241,245,214,40,205,506,256,241,198,40,205,506,256,195,468,256,50,444,256
4070 DATA 33,0,254,95,22,0,25,126,254,45,192,14,1,121,205,298,257,58,444,256,190,200,12,58,256,256,185,210,266,257,60,50
4090 DATA 256,256,205,298,257,58,444,256,119,205,306,257,201,095,22,0,33,256,256,25,201,197,95,22,0,205,100,29,62,32,231,193
4099 DATA 201