Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/11/29 18:14:30

MixJuice GET URL : kidspod.club/mj/682

イチゴローダー　EEPROM FILE LOADER

EEPROMに保存したプログラムを表示して、実行するローダーです。
1～　FILES　10個表示
L00～　LRUN
0 FILES 0,3 を表示して　0 1 2 3 をLRUN

SOURCE CODE

10 'ICHIGO LOADER
20 N=1
30 @I:CLS:?"ICHIGO LOADER":?:IFN<0END:ELSEIFN=0GOTO@Z:ELSEIFN>99LRUNN
40 @F:?"No.";N:?:N=90+N*10:FILESN,N+10:?:INPUT"No.",N:GOTO@I
50 @Z:FILES:PRINT:INPUT"No.",N:IF(N>=0)AND(N<=3)THEN LRUN N:ELSEPRINT:END

COMMENT