Snout handing the shared second prize to Manuel for a oneline version of the game Kink

コメント (5)

Ascended (19677)

02-10-2005, 23:17

Enjoy:

1 DEFINTA-Z:OPEN"grp:"AS1:SCREEN5:LINE(0,10)-(255,212),,B:J=1:D=-1:Y=12:X=2:FORI=0TO1:I=0:
IFPOINT(X,Y)<>15THENPSET(X,Y):D=(D+J)MOD4:P=P+J:X=X-(D=0)+(D=2):Y=Y-(D=1)+(D=3):
IFJ=0THENJ=-(INKEY$<>""):NEXTELSEJ=0:PSET(0,0):PRINT#1,"P:",P:NEXTELSESCREEN0:PRINTP

By BiFi

Enlighted (4348)

11-10-2005, 10:50

ahwell, I'll add mine as well

1 POKE-609,199

enjoy!

By snout

Ascended (15187)

11-10-2005, 13:25

ey BiFi, can you explain why this code does state 'Ok' before hanging the MSX?

By Edwin

Paragon (1182)

11-10-2005, 16:50

It reboots at the first interrupt. Considering that your return was detected at an interrupt as well, it has plenty of time to execute the instruction and print ok until the next interrupt.

By BiFi

Enlighted (4348)

14-10-2005, 20:48

here's another one: