Game can be played online at Internet Archive:
https://archive.org/details/monkeys_202409
This is a game that fits into the space of an unexpanded TRS-80 MC-10, which is 3142 bytes.
0 CLEAR100:DIMR(4):M=16384:Q=16831
5 CLS:P=0:PP=0:T=0:S=0:TI=0:C=0:A=0:K=0:F=0
10 PRINTTAB(5)"M A D M O N K E Y S"
20 PRINT"ßß"
30 PRINT"ÿÿßßÿÿ"
40 PRINT"ÿŸŸÿ"
50 PRINT"ÿÿ"
60 PRINT"ÿÿÿÿÿÿÿ"
70 PRINT"ÿÿ€Ÿ€ÿÿ"
80 PRINT"ÿÿŸŸŸÿŸÿ"
85 PRINT"ÿÿÿÿÿÿ":PRINT"ÿÿÿÿ":PRINT"ÿÿÿÿÿÿ"
90 PRINT"ÿÿÿ":PRINT"ŸŸÿ"
95 IFL<>0THENPRINTTAB(8)"HIGH SCORE:"HS:GOTO180
100 PRINTTAB(9)"INSTRUCTIONS";
110 INPUTA$:IFA$="Y"THEN120
111 GOTO180
120 CLS:PRINT"MONKIES HAVE BEEN UNLEASHED","ON THE CITY BY A MADMAN WHO HAS"
122 PRINT"EQUIPPED THEM WITH TIME BOMBS.","YOUR JOB IS TO TRACK THEM DOWN"
124 PRINT"AND TRANQUILIZE THEM, SO THE","BOMBS CAN BE DEFUSED."
126 PRINT"I MUST WARN YOU-- THEY CAN JUMP!THE BOMBS WILL GO OFF IN THIRTY"
141 PRINT"MINUTES.":PRINT:PRINT"MOVE USING wasz AND SHOOT WITH":PRINT"THE space KEY. WATCH OUT!"
170 PRINT:PRINTTAB(8)"**-GOOD LUCK-**"
180 PRINT@453,;:INPUT"STARTING LEVEL (1-9)";L:IFL>9ORL<1THEN180
190 CLS:FORT=1TO10+9*L:POKERND(447)+M,32:NEXT
200 FORT=448+MTO479+M:POKET,32:NEXT:N=0:NN=INT(L/3+.67)+1:PRINT@480,"TIME LEFT:";:PRINT@32," ";
210 P=M:PP=P:S=94:FORT=1TONN:R(T)=Q-T:NEXT:TI=309
220 FORC=1TONN:POKEPP,96:POKEP,S:PP=P:PRINT@490,INT(TI/10);:TI=TI-1:IFTI<=.THEN390
250 IFRND(99)<8THENIFR(C)THENPOKER(C),96:FORT=.TO1STEP.:R(C)=RND(447)+M:T=-(PEEK(R(C))=96):NEXT:SOUND100,1:SOUND1,1:POKER(C),88
260 IFPEEK(2)THENIF4ANDNOTPEEK(16948)THENS=126:P=P+1:GOTO310
270 IFPEEK(2)THENIF1ANDNOTPEEK(16946)THENS=124:P=P-1:GOTO310
280 IFPEEK(2)THENIF8ANDNOTPEEK(16947)THENS=86:P=P+32:GOTO310
290 IFPEEK(2)THENIF4ANDNOTPEEK(16952)THENS=94:P=P-32:GOTO310
300 IFPEEK(2)THENIF8ANDNOTPEEK(16952)THEN400
310 IFP=PPTHEN350
320 T=PEEK(P):IFT=88THEN340
330 IFP>QORP<MORT<>96THENP=PP
331 NEXT:GOTO220
340 POKEPP,96:POKEP,191:TI=0:GOTO390
350 IFR(C)THENONRND(4)GOTO370,370,371,380
360 NEXT:GOTO220
370 IFPEEK(R(C)+1)=96THENPOKER(C),96:R(C)=R(C)+1:GOTO385
371 IFPEEK(R(C)-1)=96THENPOKER(C),96:R(C)=R(C)-1:GOTO385
380 IFPEEK(R(C)+32)=96THENIFR(C)+32<QTHENPOKER(C),96:R(C)=R(C)+32:GOTO385
381 IFPEEK(R(C)-32)=96THENIFR(C)-32>MTHENPOKER(C),96:R(C)=R(C)-32
385 POKER(C),88:NEXT:GOTO220
390 FORT=1TO10:POKE49151,64:FORK=1TO50:NEXT:SOUND9,1:NEXT:FORK=1TO50:NEXT:GOTO500
400 A=.:IF(P+32>QANDS=86)OR(P-32<MANDS=94)THENNEXT:GOTO220
401 F=P:IFS=94THENK=-32:T=97:GOTO430
410 IFS=86THENK=32:T=97:GOTO430
420 IFS=124THENK=-1:T=109:GOTO430
421 K=1:T=109
430 IFPEEK(F+K)<>96ORF+K<MTHEN460
440 POKEF+K,T:POKEP,S:F=F+K:A=A+1:REM DELAY IN SHOT
441 IFA<16THENPOKEF,96:POKEP,S:GOTO430
450 POKEF,96:POKEP,S:NEXT:GOTO22...
Read more »
>unexpanded TRS-80 MC-10, which is 3142 kilobytes
You mean 3142 bytes of course.