10 '
   20 ' ＦＥＮＩＸ Ｖｅｒ０．２ インストールツール
   30 '
   40 '                     programmed by S.Uchida
   50 '
   60 init "crt:":cls 3:kmode 1:option screen 3
   70 clear $4000
   80 DAT$=chr$(4):CWD$=pwd$:INSTDIR$="FD1:"
   90 FENIX$="FENIX02":KERNEL$="ＦＥＮＩＸ":SHELL$="fsh"
  100 on error goto *ERROR
  110 '
  120 print [5] "ＦＥＮＩＸ Ｖｅｒ０．２ をインストールします":print
  130 print [6] "ドライブ１に新しいシステムディスクを入れて下さい。":print
  140 print [6] "カレントドライブに ";chr$(34);FENIX$;chr$(34);" の入ったディスクを入れて下さい。":print
  150 repeat
  160   input "よろしいですか ? (y/n)",A$
  170 until (A$="y" or A$="Y" or A$="ﾝ")
  180 '
  190 print
  200 devi$ INSTDIR$,0,A$,B$
  210 CHK$=left$(A$,7):CMP$=chr$(1)+"IPLPRO"
  220 if CHK$<>CMP$ then error 71
  230 '
  240 bload FENIX$,$6000
  250 chdir INSTDIR$:call $6000
  260 '
  270 bload KERNEL$,$4000
  280 poke $80C,0:poke $816,0,$20,0,$20
  290 for ADR=$801 to $81F
  300   S$=chr$(peek(ADR))
  310   DAT$=DAT$+S$
  320 next ADR
  330 '
  340 DAT$=DAT$+hexchr$("0809FF")+string$(13,chr$(0))
  350 DAT$=DAT$+hexchr$("000809")+string$(77,chr$(0))
  360 DAT2$=string$(128,chr$($BF))
  370 devo$ "",3,DAT$,DAT2$
  380 '
  390 devi$ "",$19,DAT$,DAT2$
  400 mid$(DAT$,1,1)=chr$(3)
  410 devo$ "",$19,DAT$,DAT2$
  420 '
  430 set INSTDIR$+KERNEL$,"P":set INSTDIR$+SHELL$,"P"
  440 '
  450 print:print
  460 print [6] "完了しました。"
  470 goto *END
  480 '
  490 *ERROR
  500 if err=71 then
  510    print [3] "システムディスクではありません。"
  520 else
  530    print [3] "失敗しました。"
  540 end if
  550 beep:beep:beep:print:print [3] "異常終了しました。"
  560 *END
  570 chdir CWD$:clear max:end