02/09/10 22:57.net
チョっと凝った嫌がらせ :-P
0 stop on:on stop gosub 50
10 ?"Ready"
20 k$=inout$(1)
30 if k$<>chr$(13) then ?k$:goto 20
40 ?k$:goto 10
50 ?chr$(13);"Break";chr$(13)"Ready":beep:return
02/09/10 22:57.net
チョっと凝った嫌がらせ :-P
0 stop on:on stop gosub 50
10 ?"Ready"
20 k$=inout$(1)
30 if k$<>chr$(13) then ?k$:goto 20
40 ?k$:goto 10
50 ?chr$(13);"Break";chr$(13)"Ready":beep:return