voor de mensen met verstand van basic

[Asmodeus]

heel lang geleden toen ik nogt klein was (van 10/14)
ben ik wezen programeren ik heb toen me eigen besturings systeem ontworpen..
Maar omdat k verder ga in een nieuwe taal met een andere naam en hopelijk meer mensen, geef ik de source code vrij van het besturings systeem zelf (niet extra files enzow)

het is gemaakt in Quick basic 4.5 (dos)
verder was het een grafisch systeem

waarom ik niet er mee verder ben gegaan?
want de laatst uitgebrachte versie was eind 2000 begin 2001

door een storing ben ik alle backup kwijt geraakt
jaja ik heb een backup server en die ging kapot

maar verder laat ik nog wel ff weten waneer ik verder ga

ik heb geen zin om de source code hier onder te plakken dus hier is de link

Source code

[Chimera]

FF ter info: Dat is een shell, geen besturingssysteem. Een OS zorgt voor het beheren van de files en het geheugen, en dat doet jouw programma dus niet.

[Asmodeus]

Chimera schreef:
FF ter info: Dat is een shell, geen besturingssysteem. Een OS zorgt voor het beheren van de files en het geheugen, en dat doet jouw programma dus niet.

omdat ik er nog mee bezig was
ja
dit is 1 van de eerste versies
andere versies konde da wel

[DEChengst]

Asmodeus schreef:
omdat ik er nog mee bezig was
ja
dit is 1 van de eerste versies
andere versies konde da wel

Luxe hoe bootstrap je dan een Basic programma ?

-Desecrator

[Marcade]

Dit vind ik een machtig stukje, deed Microsoft dit maar. (Oh wacht, doen ze ws. ook)

LOCATE 15, 10: PRINT "BEZIG MET RE-LOADEN VAN HET SYSTEEM EEN MOMENT A.U.B."
COLOR 7, 0
LOCATE 25, 2: PRINT "(C) 1998 - 2000 S.P.@.M.S(R) CORP"
LOCATE 16, 10: PRINT "9%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 15: PRINT "18%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 20: PRINT "27%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 25: PRINT "36%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 30: PRINT "45%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 35: PRINT "54%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 40: PRINT "63%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 45: PRINT "72%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 50: PRINT "81%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 55: PRINT "90%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
LOCATE 16, 60: PRINT "99%"
SLEEP 1
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SLEEP 1
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
LOCATE 16, 60: PRINT "100%"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
CLS
mouse 0
mouse 2
mouse 3
mouse 2
updatemouse
mouse 2
GOTO 1
SHELL "MKDIR C:\123"
SHELL "MKDIR C:\1123"
SHELL "MKDIR C:\2123"
SHELL "MKDIR C:\3123"
SHELL "MKDIR C:\4123"
SHELL "RMDIR C:\123"
SHELL "RMDIR C:\1123"
SHELL "RMDIR C:\2123"
SHELL "RMDIR C:\3123"
SHELL "RMDIR C:\4123"
END IF

[Chimera]

Desecrator schreef:

Luxe hoe bootstrap je dan een Basic programma ?

Om het nog maar niet te hebben over het alloceren van geheugen en FATxx toegang

[L@CuTu$]

De heer Asmodeus kwam ons nog melden dat hij dit hele systeem had uitgewerkt samen met 2 andere personen tot een in C++ geschreven OS wat zelf bootend was.

Naar een discussie met mij en Desecrator en Asmodeus is het dus gebleken dat De Heer zichzelf schuldig heeft gemaakt aan "uit de nek lullen"


Met Vriendenlijke groet , L@CuTu$

[Dit bericht is aangepast door L@CuTu$ (23-03-2002).]

[Chimera]

Hehehehe:

PRINT "Het Software product dat u gebruikt van ,"
PRINT "S.P.@.M.S(R) CORP mag op geen een weizen gekopieert worden,"
PRINT "buiten de setup om."
PRINT "Bij het niet goed gebruik van het Softwareproduct(en) diend uw,"
PRINT "uw het Softwareproduct(en) zospoedig mogenlijk terug te brengen,"
PRINT "of op te sturen naar S.P.@.M.S(R) CORP"
PRINT " er kan u als u het product"
PRINT "niet opstuurt een boete van f30.000 op het hooftstaan"
PRINT "Bij het te proberen te veranderen (editen) van het"
PRINT "Softwareproduct(en) kunt u een gevangenis straf krijgen van maximaal"
PRINT "3 jaar."

Behalve een 'eigen' DOS, hebben ze ook nog een eigen rechtssysteem gemaakt, en bovendien een eigen grammatica uitgevonden

[Chimera]

CASE "": GOTO 210000
CASE "dir": SHELL "dir"
CASE "dir/w": SHELL "dir/w"
CASE "dir/p": SHELL "dir/p"
CASE "cd\": SHELL "cd\"
CASE "cd..": SHELL "cd.."
CASE "a:": SHELL "a:": drv = 1
CASE "a:\": SHELL "a:": drv = 1

CASE "b:": SHELL "b:": drv = 2
CASE "b:\": SHELL "b:": drv = 2

CASE "c:": SHELL "c:": drv = 3
CASE "c:\": SHELL "c:": drv = 3

CASE "d:": SHELL "d:": drv = 4
CASE "d:\": SHELL "d:": drv = 4

CASE "e:": SHELL "e:": drv = 5
CASE "e:\": SHELL "e:": drv = 5

CASE "f:": SHELL "f:": drv = 6
CASE "f:\": SHELL "f:": drv = 6

CASE "g:": SHELL "g:": drv = 7
CASE "g:\": SHELL "g:": drv = 7

CASE "h:": SHELL "h:": drv = 8
CASE "h:\": SHELL "h:": drv = 8

CASE "i:": SHELL "i:": drv = 9
CASE "i:\": SHELL "i:": drv = 9

CASE "j:": SHELL "j:": drv = 10
CASE "j:\": SHELL "j:": drv = 10

CASE "k:": SHELL "k:": drv = 11
CASE "k:\": SHELL "k:": drv = 11

CASE "l:": SHELL "l:": drv = 12
CASE "l:\": SHELL "l:": drv = 12

CASE "m:": SHELL "m:": drv = 13
CASE "m:\": SHELL "m:": drv = 13

CASE "n:": SHELL "n:": drv = 14
CASE "n:\": SHELL "n:": drv = 14

CASE "o:": SHELL "o:": drv = 15
CASE "o:\": SHELL "o:": drv = 15


CASE "p:": SHELL "p:": drv = 16
CASE "p:\": SHELL "p:": drv = 16

CASE "q:": SHELL "q:": drv = 17
CASE "q:\": SHELL "q:": drv = 17

CASE "r:": SHELL "r:": drv = 18
CASE "r:\": SHELL "r:": drv = 18

CASE "s:": SHELL "s:": drv = 19
CASE "s:\": SHELL "s:": drv = 19

CASE "t:": SHELL "t:": drv = 20
CASE "t:\": SHELL "t:": drv = 20

CASE "u:": SHELL "u:": drv = 21
CASE "u:\": SHELL "u:": drv = 21

CASE "v:": SHELL "v:": drv = 22
CASE "v:\": SHELL "v:": drv = 22

CASE "w:": SHELL "w:": drv = 23
CASE "w:\": SHELL "w:": drv = 23

CASE "x:": SHELL "x:": drv = 24
CASE "x:\": SHELL "x:": drv = 24

CASE "y:": SHELL "y:": drv = 25
CASE "y:\": SHELL "y:": drv = 25

CASE "z:": SHELL "z:": drv = 26
CASE "z:\": SHELL "z:": drv = 26

CASE "del.": SHELL "del."
CASE "del *.*": SHELL " del *.*"
CASE "cls": SHELL "cls"
CASE "cd": SHELL "cd"
CASE "ver": SHELL "ver"
CASE "dir/ah": SHELL "dir/ah"

Ghehehe. Hoe wil je dit werkend krijgen zonder OS?

Ik bedoel, ik heb in m'n BASIC-tijd een eigen shell gemaakt die iets dergelijks deed, en gebruikersrechten simuleerde. Maar loop dan niet te blaten dat je een eigen OS hebt geschreven, want dat is gewoon bullshit.

[Chimera]

L@CuTu$ schreef:

Naar een discussie met mij en Desecrator en Asmodeus is het dus gebleken dat De Heer zichzelf schuldig heeft gemaakt aan "uit de nek lullen"

Wat betreft uit je nek lullen moet jij je snater houden, laat eerst maar eens fotos van je cluster zien.

[DEChengst]

Jaja mensen Asmodeus is werkelijk een fantastisch coder.

Hij wist op zijn 12de met een paar vriendjes, binnen een paar maanden 30MB aan C++ code te produceren. Coden deed ie toen in de vakantie 23 uur per dag


<locutus> hoegroot was die source bdw ?
<Asmodeus> locutus welke versie?
<Asmodeus> welke van de 1000
<locutus> gewoon
<locutus> de laatste
<Asmodeus> hmmz 30mb ofzo

<Desecrator> hoelang ben je er meer bezig geweest ?
<Asmodeus> Desecrator tot alle tests gedaan waren enz een paar maanden en toen maakte iemand anders gelijk updates enz
<locutus> dan zijn jullie wereld record coders
<Asmodeus> hoezo
<Desecrator> een paar maanden ?
<Desecrator> hoeveel uren per dag ?
<locutus> 30MB SOURCE in een paar maanden
<locutus> OMFG !
<Asmodeus> het was vakantie dus ong 23uur per dag
<Asmodeus> en als het school was was et ma 10 uur

LOL een zeer grappig mannetje dus.

-Desecrator

[DEChengst]

De thread is niet langer op Sesamstraat niveau dus Asmodeus zegt:

HOEI !

Ik snap het niet meer



-Desecrator

[DEChengst]

Zodat Asmodeus hem ook snapt:







-Desecrator

[Koen]

Ik heb geen uren IRC sessie nodig om te verzinnen dat iemand van 14 jaar niet zulke code kan proggen.

Asmodeus: Ga in de zandbak je vrienden voor de gek houden; hier maak je echt geen hond wijs dat jij zoiets kan.

Gesloten.