HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0221
名無三ソフト内で仮想ディレクトリなどを構成できるようにすればOS問題も解決するのでは?3解決


名無三

リンク

2019/2/21(Thu) 12:14:03|NO.86628

exe内で完結するようにすりゃ文句もないと思うしMSDOSクラスでも賞賛されると思うの



この記事に返信する


KA

リンク

2019/2/21(Thu) 18:41:32|NO.86632

古くはアーカイバのディレクトリ構成保存や画像ソフトの
レイヤー管理など、やろうと思えばすぐ出来ると思うの



名無三

リンク

2019/2/21(Thu) 19:09:16|NO.86633


#include "d3m.hsp" osname="OS_H" osver="0.1.0" year=gettime(0) month=gettime(1) day=gettime(3) hour=gettime(4) mimute=gettime(5) second=gettime(6) milliseconds=gettime(7) gettimenow=d3timer() cdir="A:\\" screen 0,640,480,0,(ginfo_dispx-640)/2,(ginfo_dispy-480)/2 *start cls 4 color 0,255,0 gosub *setupos //----------------------------- stop *setupos mes mes osname+" "+osver+" start" mes "-----------------------" mes mes " Press F3 to start COMMAND" onkey gosub*setupkey stop *setupkey onkey 0 if wparam=114 { goto*cmdline } onkey 1 return *exitsetupos color 128,128,128 boxf ginfo_sx*1/7, ginfo_sy*1/7, ginfo_sx*6/7, ginfo_sy*6/7 color 0,0,0 pos ginfo_sx*1/7, ginfo_sy*1/7 mes "Exiting Setup" mes mes osname+" "+osver+" is not completely installed. If you exit" mes "Setup now, you will need to run the Setup program" mes "again." mes mes " ・ To exit, make sure Setup Disk 1 is in drive A." mes " and then press F3." mes mes " ・ To return to the previous screen, press ESC." onkey gosub*exitsetupkey stop *exitsetupkey onkey 0 if wparam=114 { goto*cmdline } if wparam=27 { goto*start } onkey 1 return *hintsetupos color 128,128,128 boxf ginfo_sx*1/7, ginfo_sy*1/7, ginfo_sx*6/7, ginfo_sy*6/7 color 0,0,0 pos ginfo_sx*1/7, ginfo_sy*1/7 mes "Hint Setup" onkey gosub*hintsetupkey stop *hintsetupkey onkey 0 if wparam=112 { goto*start } onkey 1 return //---------------------------------------------------------------------- *cmdline cls 4 sdim cmand onkey gosub*cmdin repeat redraw 0 color 255,255,255 repeat 1,nexts pos 0,18*cnt mes cdir+">"+cmand loop redraw 1 if checkend=1{ nexts+1 sdim cmand checkend=0 } await 0 loop *cmdin onkey 0 if wparam='A' { cmand+"A" } if wparam='B' { cmand+"B" } if wparam='C' { cmand+"C" } if wparam='D' { cmand+"D" } if wparam='E' { cmand+"E" } if wparam='F' { cmand+"F" } if wparam='G' { cmand+"G" } if wparam='H' { cmand+"H" } if wparam='I' { cmand+"I" } if wparam='J' { cmand+"J" } if wparam='K' { cmand+"K" } if wparam='L' { cmand+"L" } if wparam='M' { cmand+"M" } if wparam='N' { cmand+"N" } if wparam='O' { cmand+"O" } if wparam='P' { cmand+"P" } if wparam='Q' { cmand+"Q" } if wparam='R' { cmand+"R" } if wparam='S' { cmand+"S" } if wparam='T' { cmand+"T" } if wparam='U' { cmand+"U" } if wparam='V' { cmand+"V" } if wparam='W' { cmand+"W" } if wparam='X' { cmand+"X" } if wparam='Y' { cmand+"Y" } if wparam='Z' { cmand+"Z" } if wparam=' ' { cmand+" " } if iparam='\\' { cmand+"\\" } if iparam=':' { cmand+":" } if iparam='/' { cmand+"/" } if wparam=13 { gosub*checkcmd} onkey 1 return *checkcmd checkend=1 nexts+1 //break ディスク書き込みの中断の可不可 if strmid(cmand,0,5)="BREAK"{cok=1 // } //cd カレントディレクトリの変更 if strmid(cmand,0,2)="CD"{cok=1 if instr(cmand,3,":\\")!-1{ cdir=strmid(cmand,3,100) cmand="変更後のカレントディレクトリ "+cdir }else{ cok=2 } } //CHKDSK ディスクの状況 if strmid(cmand,0,6)="CHKDSK"{cok=1 if instr(cmand,7,"/F")!-1{ //ディスクの修復 } if instr(cmand,7,"/V")!-1{ //ディスクの検査 } } //cls コマンドラインのリセット if strmid(cmand,0,3)="CLS"{ nexts=0 checkend=0 goto*cmdline } //copy aをbにコピー if strmid(cmand,0,4)="COPY"{cok=1 // } //Cvt fat16をfat32に書き換え if strmid(cmand,0,3)="CVT"{cok=1 // } //date 日付の表示 if strmid(cmand,0,4)="DATE"{cok=1 cmand=""+year+"-"+month+"-"+day } //debug デバッグ if strmid(cmand,0,6)="DEBUG"{cok=1 // } //exit 終了 if strmid(cmand,0,4)="EXIT"{cok=1 nexts=0 cok=0 checkend=0 goto *start } //fdisk if strmid(cmand,0,5)="FDISK"{ sdim cmand nexts=0 checkend=0 goto*fixdisksetup } //unknown if cok=0{cmand="このコマンドは有効ではありません : "+cmand} if cok=2{cmand="コマンド記述が間違っています : "+cmand} cok=0 return //---------------------------------------------------------------------- *fixdisksetup cls 4 color 255,255,255 mes "FDISK Options" mes mes "Chooce one of the following:" mes mes "1. Create DOS partition or Logical DOS Drive" mes "2. Set active partition" mes "3. Delete partition or Logical DOS Drive" mes "4. Display partition information" mes mes "Press Esc to exit FDISK" onkey gosub*fixdisksetupkey stop *fixdisksetupkey onkey 0 if wparam='1' { goto*cmdline } if wparam='2' { goto*cmdline } if wparam='3' { goto*cmdline } if wparam='4' { goto*cmdline } if wparam=27 { goto*cmdline } onkey 1 return
形だけ作ってみたけど確かにosもどき作るの楽しいな…
隗より始めよ、自分はこれ作ろうかな



f(缶詰中)

リンク

2019/2/22(Fri) 14:32:10|NO.86639

むしろ仮想のCPU作って仮想のIOポート上に接続された体の仮想のハードウェアを…とかどうなんかのう…



記事削除

記事NO.パスワード
(質問が解決したスレッドは他の利用者に活用してもらうため、削除しないようお願いします)

NO.86628への返信

マスコット

好きなマスコットを選んでください。

名前

e-mail
HOME
  1. 初めて利用する方は、HSP3掲示板の使い方をお読みください。
  2. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
  3. 書き込みは自動改行されません。適度に改行を入れてください。
  4. スクリプトは小文字の<pre>〜</pre>で囲むと見やすく表示できます。

削除用パスワード

エラー発生時、再送信すると二重送信になることがあります。
回答が得られたら、お礼書き込み時に[解決]チェックしてください。
SPAM防止のためURLから始まる文章は投稿できません。
SPAM防止のため英文字のみの本文を投稿することはできません。

ONION software Copyright 1997-2018(c) All rights reserved.