RUN（プログラムローダ）( program loader, use: SHIFT+F2 -> F5 -> F5 ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/run-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%83%AD%E3%83%BC%E3%83%80/

RUN

' move cursor with a mouse | MSX-BASIC
' Copyright (c) 1991 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#1991
10 SCREEN0:KEYOFF:WIDTH40:FILES
20 X=POS(0):IFX<>0THENPRINT
30 J=CSRLIN-1:X=0:Y=0
40 LOCATEX*13,Y,1
50 IFSTRIG(0)+STRIG(1)=-1THEN110
60 S=STICK(0)+STICK(1):IFSMOD2=0THEN50
70 X=X+(S=3)*(X<2)-(S=7)*(X>0)
80 Y=Y+(S=5)*(Y<J)-(S=1)*(Y>0)
90 S=STICK(0)+STICK(1)
100 IFSMOD2=1THEN90ELSE40
110 LOCATE,,0:FORI=0TO11
120 N$=N$+CHR$(VPEEK(X*13+Y*40+I)):NEXT
130 CLS:PRINT"RUN ";N$:RUNN$