Pomoc s jednoduchým operačním systémem

[faraon]

Stačí přidat tyhle řádky do INPUT.BAS a nastaví ti to tyhle proměnné při každém použití:

Kód: Vybrat vše

51 d$=MID$(DATE$,4,2)+"."+LEFT$(DATE$,2)+"."+RIGHT$(DATE$,4)
52 PRINT #1,"set date="+d$
53 PRINT #1,"set time="+LEFT$(TIME$,5)

a nebo si na to udělat speciální příkaz:

CLOCK.BAT

Kód: Vybrat vše

@gwbasic clock.bas

CLOCK.BAS

Kód: Vybrat vše

10 OPEN "clock.bat" FOR OUTPUT AS #1
20 PRINT #1,"@gwbasic clock.bas"
30 d$=MID$(DATE$,4,2)+"."+LEFT$(DATE$,2)+"."+RIGHT$(DATE$,4)
40 PRINT #1,"@set date="+d$
50 PRINT #1,"@set time="+LEFT$(TIME$,5)
60 CLOSE #1
70 SYSTEM

Pak stačí příkaz clock a máš v %date% a %time% aktuální systémový čas. Nevýhoda je, že ti to smaže obrazovku.
Hlavně se nespleť na řádku 10 a neotevři si CLOCK.BAS, ať ho nepíšeš znova!
Všiml jsem si že v tom MAIN.BAT tady výše máš qwbasic místo gwbasic, takhle ho nespustíš :)

Minimalistická verze z Didaktiku s obrazovkou 32x22:

Kód: Vybrat vše

. AA  H  H  OO     J
.A  A H  H O  O    J
.AAAA HHHH O  O J  J
.A  A H  H  OO   JJ 

[mar00m]

Aha! Díky... Poidívám se.
Nalezen problém:

Soubor: clock.bas
Umístění: 70
Hodnota: SYSTEM
Popis Problemu: Hodnota SYSTEM je neplatna

[faraon]

V čem to spouštíš?

[mar00m]

No, v tom gwbasicu ne?
Ten výpis jsem ti udělal přes takovou moji malou utilitku, kterou jsem si udělal. Kontroluje soubory jestli obsahují nějaký problém. Ale ještě ji dolazuju. Max problémů je 100× a 1 na 1 řádek. Víc errorlevelů se mi psát nechtělo....

Prostě se to nevrátí do dávky zpět...

[faraon]

Jo tak, mě by teda spíš víc pomohlo původní chybové hlášení
Na posledním řádku musí být
70 SYSTEM
s mezerou mezi číslem a slovem a odentrovaným koncem řádku. Některé programy ho jinak nevezmou.

[mar00m]

HMM. Podívám se. Ale hlášení je

ok

a pak musím napsat SYSTEM manuálně.

--- Doplnění předchozího příspěvku (29 Čer 2011 21:48) ---

YEAH! Dal jsem na konec Enter a Mezerník a už jede krásně. Zítra tady hodím odkaz. Pak můžeš testnout.
Nastavení datum sem hodil přímo do Autoexec.bat

Very Thanks!

[faraon]

Ukázka jak by mohl vypadat ten basicový instalátor:

Kód: Vybrat vše

10 source$="A:\"
20 topdrive=66
100 ON ERROR GOTO 10
110 INPUT "Na ktery disk? ",drive$
120 drive=ASC(LEFT$(drive$,1))
130 IF (drive<65 OR drive>topdrive) AND (drive<97 OR drive>topdrive+32) THEN PRINT "Neplatna jednotka!":goto 100
140 drive$=CHR$(drive)+":\"
200 PRINT "Zadej cestu k cilovemu adresari: ";drive$;
210 INPUT "",path$
220 destiny$=drive$+path$
300 ON ERROR GOTO 1000
310 CHDIR destiny$
320 prikaz$="copy "+source$+"*.* "+destiny$
330 SHELL prikaz$
340 CLS:PRINT "Kopirovani dokonceno."
350 GOTO 9000
1000 PRINT "Adresar ";destiny$;" neexistuje, mam ho vytvorit? [Ano/Ne] ";
1010 INPUT "",volba$:volba$=LEFT$(volba$,1)
1020 IF volba$="a" OR volba$="A" THEN GOTO 1100
1030 INPUT "Ukoncit instalaci nebo zadat novou cestu? [Konec/Nova] ",volba$
1040 IF LEFT$(volba$,1)="n" OR LEFT$(volba$,1)="N" THEN GOTO 100
1050 GOTO 9000
1100 ON ERROR GOTO 1200
1110 MKDIR destiny$
1120 GOTO 300
1200 INPUT "Adresar nelze vytvorit, ukoncit instalaci nebo novou cestu? [Konec/Nova] ",volba$
1210 IF LEFT$(volba$,1)="n" OR LEFT$(volba$,1)="N" THEN GOTO 100
1220 GOTO 9000
9000 PRINT "Konec instalace."
9010 SYSTEM

Je to jen prototyp, některé věci nefungují úplně tak jak by měly, třeba to odchytávání chyb. A snad tam nejsou překlepy

[mar00m]

Zkoušel jsem už rozjet ty hry. Vytvořil jsem úplně novej GAME.bat. Zatím tam fahčí 4 hry
Ještě upravím ty nesrovnalosti s "call". Zatím.

\\EDIT
Nesrovnalosti byly opraveny. Ještě jsem našel pár her pro DOS. Takže ještě systém dolazuju.

\\EDIT
Už jsem vytvořil konečnývýsledek. Nyní je i možnost doinstalovat další hry.

[mar00m]

Jsem zpět...
faraon: zatím jen zkouším...
A ještě zháním nové jméno pro svůj (OS). Myslím...PhoenixOS
Už mám i pekne logo..

[faraon]

Nezní to špatně, i když nejsi první koho ten název napadl: http://en.wikipedia.org/wiki/Doscore
A dokonce to mají také založené na DOSu

[mar00m]

AAAch jo! Něco mě napadne a teď zjístím, že to někoho už napadlo. A co HydraOS X

[faraon]

Jo, všechno tu už dávno bylo, dokonce často navržené a zpracované mnohem lépe než dnes
Operační systém HYDRA z roku 1971, navržený pro multiprocesorové systémy!

On ten původní projekt PhoenixOS je dost starý, a už před lety změnil název, takže je tak trochu volný A co třeba pro odlišení PhoenixDOS?

Jinak s tím písmenem X opatrně, protože tím se vyznačují systémy ideově založené na Unixu (například AIX, HP UX, Minix, Xenix, Linux...) což DOS tedy ani náhodou není.