迷路もどきパクってみました。
http://turkey-pc.hatenablog.com/entry/2017/07/30/163039
10 PRINT CHR$(205.5+RND(1)); : GOTO 10 pic.twitter.com/ExoMOmTZce
— Trammell Hudson™ (@qrs) 2017年7月29日
なつかしーなー、、と思い、Ichigjamなら簡単かと思いましたが、こちらもバックスラッシュが連続していないため、こんな感じにしました。配列がN-88B系BASICと違ってアレ?ってなりました
1 LET [0],46:LET[1],47:LET[2],92:FOR I = 0 TO 1000:PRINT CHR$([RND(3)]);:NEXT
実行には福野さんのサイトにあるWebで実行可能なIchigojamを使いました。
IchigoJam web
http://fukuno.jig.jp/app/IchigoJam/#10%20PRINT%20CHR%24(25%2BRND(2))%3B%3AGOTO%2010%0A
by WebAssembly