数年前に作った、REM文マシン語のプログラム。
WebMSX上に「ALT＋B」でコピペ可。
他の方が作ったSCREEN1.5のプログラムをマシン語化したもの。

バイナリを99Basic上でプログラムに変換。


100 '3E0F32E9F321010F22EAF3CD7200CDCC003E2032AFF3CD6F00CD7E002100187D
110 'CD4D00237CFE1B20F62100207DE607C60507070707C601CD4D00237CFE3820EC
120 '210000E5E51160F5010800CD590006082160F57E4FCB3FB1772310F72160F57E
130 'E6F80F0F0F772306027ECB3FCB3F772310F706037ECB3F772310F92160F5D1D5
140 '010800CD5C00210008D119E5D1D52160F5010800CD5C00210008D119E5D12160
150 'F5010800CD5C00E1110800197CFE082092C9X
160 AD%=&HD000:CLEAR 200,AD%:DEFINT A-Z:AD=PEEK(&HFC4A)+PEEK(&HFC4B)*256-65536!
170 FOR I=0 TO 52:POKE &HF55E+I,VAL("&H"+MID$("2A76F62BED5BF8F7D57EFE582826B720060108000918F2FE3A3802D607D6300707070747237EFE3A3802D607D6308012231318D5C9",I*2+1,2)):NEXT
180 DEFUSR=&HF55E:A=USR(AD):DEFUSR=AD:KEY 1,"A=USR(0)"+CHR$(13)