MSXのスクリーン1で表示される、迷路15*15をさまよえる迷路表示サンプル下アドレスで、MSXPenのページで公開してます。https://msxpen.com/codes/-NyRBHghbd2hddJusxNd
[MSXpen用]前回の続き。壁判定をマシン語化。キーボードの左右で方向転換。壁の表示はBASICのまま。[Basic]10 CLEAR999:DEFINTA-Z:DIM P$(34)20 SCREEN1:KEYOFF:WIDTH3230 GETTIME T$:MID$(T$,3,1)="1":MID$(t$,6,1)="1":R=rnd(-Val(t$))40 BLOAD"PROGRAM.BIN
[msxpen用]前とは別のBASICの迷路用3Dプログラムのサンプル。表示部分の一部のみで、1画面表示に6秒かかる。----90 CLEAR999:DEFINTA-Z:DIM P$(34)91 SCREEN1:KEYOFF:WIDTH3295 GETTIME T$:MID$(T$,3,1)="1":MID$(t$,6,1)="1":R=RND(-VAL(t$)):TIME=0100 FORJ