Commentaires (5)

Par Manuel

Ascended (15763)

Portrait de Manuel

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

Par BiFi

Enlighted (4348)

Portrait de BiFi

11-10-2005, 10:50

ahwell, I'll add mine as well Smile

1 POKE-609,199

enjoy! Wink

Par snout

Ascended (15187)

Portrait de snout

11-10-2005, 13:25

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

Par Edwin

Paragon (1182)

Portrait de Edwin

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.

Par BiFi

Enlighted (4348)

Portrait de BiFi

14-10-2005, 20:48

here's another one:

1 poke-609,118

Wink