#11 Article 1409 Posted at 1988/05/08 13:27:13 by BAN! (MAP455) [PRG.NL3]
Subject: NLOADER3 ﾉ FILE LOADER (88)
いちいち、ＲＢＹＴＥってやるのがめんどいので作ってしまいました。
すでに載っているかもわかりませんが、ＢＡＳＩＣがわからない人の為に。
効率、使い安さなんてどーでもよく、ただたんに使えるというだけ・・。
FILE=? で”１”，”２”を入力するとそのドライブに切り替えます。
ＦＩＬＥ ＮＡＭの"******.NL3"の”．ＮＬ３”は入力不可です。
もっといいプログラムがあるっていう方は教えてちょ。
BAN!
10 ' N-LOADER-3 ﾉ LOAD ｽﾙ FILE ﾉ LOADER PROGRAM
20 ' MAP455 BAN!
30 ' PS. 88 ﾖｳﾃﾞｽ｡ ｶﾝﾀﾝﾅ ｶｲｿﾞｳﾃﾞﾀ ﾉ ｷｼｭﾓ ﾃﾞｷﾙﾉﾃﾞﾊ?
40 ' PPS. "N88BASIC.LIB" ｶﾞ 85ﾈﾝﾉｼｶ ﾅｲｶﾗ 98ﾃﾞ LOAD ﾃﾞｷﾅｲ!!
50 KEY 1,"CLS 2"+CHR$(13):WIDTH 80,25:CONSOLE 0,25,0,1:DRI=1
60 ON ERROR GOTO *ER
70 FILES DRI
80 COLOR 6:INPUT "FILE=";F$:COLOR 7
90 IF F$="1" THEN DRI=1:GOTO 70 ELSE IF F$="2" THEN DRI=2:GOTO 70
100 D$=STR$(DRI):D$=RIGHT$(D$,1):FILE$=D$+":"+F$+".NL3"
110 RBYTE FILE$:CLS
120 COLOR 1:PRINT "HIT SPACE KEY!":COLOR 7
130 A$=INKEY$:IF A$=CHR$(&H20) THEN CLS 2:GOTO 70 ELSE 130
140 *ER:COLOR 2
150 IF ERR=15 THEN CLS:PRINT "ｿﾘｬ ｱﾝﾀ､ﾓｼﾞ ｶﾞ ﾅｶﾞｽｷﾞ ﾃﾞｯｾ"
160 IF ERR=7 THEN PRINT "ﾁｮｯﾄ､ﾒﾓﾘ ｶﾞ ﾀﾘﾅｲﾖｰ"
170 IF ERR=53 THEN PRINT "ｴ? ｿﾝﾅ FILE ﾊ ﾅｲﾖ"
180 IF ERR=64 THEN PRINT "ｷﾞｮｴｰ I/O ｴﾗｰﾀﾞｧｰ"
190 IF ERR=56 THEN PRINT "FILE ﾉ ﾅﾏｴ ﾊ ﾁｬﾝﾄ ｲﾚﾏｾｳ"
200 COLOR 7:RESUME 120