ゆるプロ準備室

ON ～ GOTO / ON ～ GOSUB を実装してみました。

------------------------
M5Z-80 BASIC Ver.0.3
------------------------
Largest Internal = 110580(107.988KByte)
Largest PSRAM = 0(0)
Stack Free = 6428 bytes
READY.

list
10 SW = 1
20 PRINT "=====":ON SW GOSUB 100,200,300:PRINT "-----"
30 END
100 PRINT "100"
110 RETURN
200 PRINT "200"
210 RETURN
300 PRINT "300"
310 RETURN
READY.

run
=====
100
-----

list
10 SW = 1
20 PRINT "=====":ON SW+1 GOTO 100,200,300:PRINT "-----"
30 END
100 PRINT "100"
110 END
200 PRINT "200"
210 END
300 PRINT "300"
310 END
READY.

run
=====
200
READY.

ここまでの成果

• ON～GOTOが使えるようになった
• ON～GOSUBが使えるようになった