REM 944BASIC 'ALIAS RUNNER' REM ファイルにエイリアスとアプリ名を REM 登録しておき、エイリアスを入力す REM るとアプリが実行されるという趣向 EVENT 100,999,1 SCREEN 160,0,80,48 COLORBG 192,255,128:COLORFG 0,0,0 FONT 80: CLS TOTAL=99 :REM 最大登録件数 REM エイリアスとアプリ名 DIM AP(1,TOTAL) LOADCSV 'KALFALR.CSV',AP *LOOP SYNC PRINT '>'; S='' REM Sにエイリアスが入る(8文字) INPUT S,8,3 FOR I=0 TO TOTAL IF STRCMP(AP(0,I),S)=0 THEN R=STR(AP(1,I)): I=TOTAL ELSE R='@@@@' NEXT I GOSUB *RUNAP GOTO *LOOP *RUNAP REM リストに無いときに・・・ REM 何もしない場合は下行のREMを削除 REM IF STRCMP(R,'@@@@')=0 THEN CLS:RETURN REM リストに無いときに・・・ REM とりあえずAPLで実行してみる場合 IF STRCMP(R,'@@@@')=0 THEN APL S REM BASファイルかどうか判定して実行 RR=RIGHT(R,4) IF STRCMP(RR,'.BAS')=0 THEN SCREEN 0,0,240,320:RUN R ELSE APL R GOSUB *MINIMIZE GOSUB *SLEEP RETURN *MINIMIZE REM 最小化 SCREEN 200,0,80,12 COLORBG 0,0,0: COLORFG 192,211,96 CLS: RETURN *SLEEP REM 入力待ち状態で待機 SYNC LOCATE 0,0:PRINT ' ...' REM ペンまたは決定キーで復帰 IF (PEN)+(PADA) THEN SCREEN 160,0,80,48:COLORBG 192,255,128:COLORFG 0,0,0:CLS:RETURN GOTO *SLEEP