Sorry your browser is not supported!

DBWrite v0.01
1 - Item chart
2 - Price chart
3 - Descrip chart
4 - Quit
Choice>1
Loading file 'media/item-08.dat
File opened...
Wrote succesfully!
1 - Item chart
2 - Price chart
3 - Descrip chart
4 - Quit

REM DBWrite
print "DBWrite v0.01"
`open to write 1, "media/item-08.dat"
`write string 1, "I'm an idiot"
`close file 1
`end
cmd:
print "1 - Item chart"
print "2 - Price chart"
print "3 - Descrip chart"
print "4 - Quit"
input "Choice>";cmd
if cmd=1 then goto item
if cmd=2 then goto price
if cmd=3 then goto descrip
if cmd=4 then end
print "invalid command"
goto cmd
item:
cat=1
ID=1
print "Loading file 'media/item-08.dat'"
open to write 1, "media/item-08.dat"
print "File opened..."
for cat=1 to cat=17
   for ID=1 to ID=64
      print "(";cat;",";ID;")"
      input ">";in$
      write string 1,in$
      next ID
      next cat
close file 1
print "Wrote succesfully!"
goto cmd
price:
descrip:
print "Not yet implemented..."
goto cmd
print "I am a complete moron!!!!!!! I can't even follow simple directions!!!!"
print "press any key to KILL ME!!"
suspend for key
end

set text font "Arial"
e=0
cls
repeat
print "Hello Tech fourmz please enter the amount of item name(s) you'll be entering"
input "Amount>";e
if e=0
cls
print "NOTE:0 is a invalid number please enter something more then 0"
endif
until e>0

dim cat$(e)
for N=1 to e
cat$(N)="0"
next N

for N=1 to e
cls

repeat
print "Please enter a name for Item ";N;"!"
input "Name>";cat$(N)
repeat
if right$(cat$(N),1)=" "
cat$(N)=left$(cat$(N),len(cat$(N))-1)
endif
until right$(cat$(N),1)<>" "
if cat$(N)=""
cls
print "Please enter Something"
endif
until cat$(N)<>""

next N

cls


repeat
print "Please enter a file name with the extension"
input "name>";fn$
if file exist(fn$)=1
cls
print "File with the same name already exists please choose another name"
endif
until file exist(fn$)=0

open to write 1,fn$
for N=1 to e
write string 1,cat$(N)
next N
close file 1
cls
print "DataBase Created!"
print "(Press enter)"
wait key
end

For cat = 1 to 17
    `Put code here
Next cat

For ID = 1 to 64
    `Put code here
Next ID