Close
0%
0%

Mad Monkeys

New 4K Game for the TRS-80 MC-10

Similar projects worth following
106 views
0 followers
The TRS-80 MC-10 computer was an early 80s low-cost introductory computer, something like the Sinclair ZX-81. In its basic configuration it came with only 4Ks of memory. This project is an effort to create a simple but engaging "text game" that fits into 4K.

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 »

VMC10GameJolt.zip

x-zip-compressed - 6.57 MB - 09/03/2024 at 00:05

Download

VMC10_073I.zip

x-zip-compressed - 7.30 MB - 09/03/2024 at 00:05

Download

View all 3 project logs

  • 1
    How to play

    The game can also be played online from my Gamejolt page:

    Jim Gerrie's Game on GameJolt

    Just hit the "Play" button.

    Select the menu item "Our Original Micro Color Games"

    Select MONKEYS from the Cassette menu of the emulator.

    Type "RUN" in the green main emulator screen and then hit Enter. 

View all instructions

Enjoy this project?

Share

Discussions

Ken Yap wrote 09/03/2024 at 00:04 point

>unexpanded TRS-80 MC-10, which is 3142 kilobytes

You mean 3142 bytes of course.

  Are you sure? yes | no

Jim Gerrie wrote 09/03/2024 at 10:57 point

Good eye. Yes. Thanks

  Are you sure? yes | no

Similar Projects

Does this project spark your interest?

Become a member to follow this project and never miss any updates