コメント (5)

By Manuel

Ascended (18783)

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

By BiFi

Enlighted (4348)

BiFi さんの画像

11-10-2005, 10:50

ahwell, I'll add mine as well Smile

1 POKE-609,199

enjoy! Wink

By snout

Ascended (15187)

snout さんの画像

11-10-2005, 13:25

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

By Edwin

Paragon (1182)

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.

By BiFi

Enlighted (4348)

BiFi さんの画像

14-10-2005, 20:48

here's another one:

1 poke-609,118

Wink