マップを表示するときに PRINT A$[YPOS+I]としているためYPOS+Iが0以下になったり 文字配列変数A$[n]の要素で指定できる数値を超えると エラーになってしまいます。YPOSを加算するときは 文字配列変数A$の要素数(LEN(A$)で求められます)-29 以下であるときに加算、減算するときは0以上の時と 条件を増やすとSubscript out of rangeは出なくなります。