okay here is one thats works.
start:
pres#=1
disable escapekey
do
if pres#=1
set cursor 2,2
print "waht to do-(a)"
set cursor 2,15
print "date & time-(s)"
set cursor 2,28
print "start a wahtch-(d)"
set cursor 2,41
print "if you have no ider- (z)"
set cursor 2,54
print "and this is danis- (x)"
if keystate(1)
gosub the_end
endif
if inkey$()="x"
do
cls
print " englis danish"
print " hi = hej"
print " cool = sejt"
print " money = penge"
print " life = live"
print " fire = ild"
print " dark = sort"
print " water = vand"
print " earth = jord"
print " air = luft"
print " "
print " and some boy names:"
print " Jens"
print " Ole"
print " Jakob"
print " Frederik"
print " Bent"
print " "
print " and some girl names:"
print " Maria"
print " Dorte"
print " Anne"
print " Liv"
print ""
loop
endif
if inkey$()="z"
cls
enable escapekey
print "if you dont have an ider":sync
sleep 2000
print "if it is boring to do waht ever you do":sync
sleep 2000
print "if you even do somting":sync
sleep 2000
print "fear not, the help is here":sync
sleep 2000
print "a you ready preas any key":sync
sleep 250
wait key
cls
print "okay first i will find aut how to help":sync
print "hmmmmm":sync
sleep 3000
cls
print "okay first i will find aut how to help":sync
print "no no on":sync
sleep 3000
cls
print "okay first i will find aut how to help":sync
print "not that":sync
sleep 3000
cls
print "okay first i will find aut how to help":sync
print "thats the one":sync
sleep 3000
cls
the_help=rnd(2)
if the_help=1
print "i have chosen help way number 1 for you"
print "follow thos 3 steps and you wil start to have fun"
sleep 250
wait key
cls
print "step 1:"
print "okay first you shal set the bedst music"
print "you have on"
print "wehn thats is don preas any key."
sleep 250
wait key
cls
print "step 2:"
print "lock arund"
print "when thats done preas any key"
sleep 250
wait key
cls
print "step 3:"
print "clean op, take anything you have seen from step 2"
print "thats not on its right plase and put the tings on ther right plase"
print "if you have clent the plase"
print "before you askt me for help im sorry"
print "preas any key wehn thats done"
sleep 250
wait key
cls
print "good you a findish see you later"
wait key
cls
gosub start
endif
if the_help=2
print "i have chosen help way number 2 for you"
print "follow thos 3 steps and you wil start to have fun"
sleep 250
wait key
cls
print "step 1:"
print "open as many windows ther a in the room"
print "when thats done preas any key"
sleep 250
wait key
cls
print "step 2:"
print "set you computer to defragtmentering"
print "when thats done preas any key"
sleep 250
wait key
cls
print "step 3:"
print " go anf take a long bath"
print "when thats done preas any key"
sleep 250
wait key
cls
print "good you a findish see you later"
wait key
cls
gosub start
endif
if the_help=0
print "i have chosen help way number 3 for you"
print "follow thos 3 steps and you wil start to have fun"
sleep 250
wait key
cls
print "step 1:"
print "take a glass of water"
print "when thats done preas any key"
sleep 250
wait key
cls
print "step 2:"
print "drink the water"
print "when thats done preas any key"
sleep 250
wait key
cls
print "step 3:"
print "turn off the computer and go out side"
print "for 1 to 3 houers"
print "bye"
sleep 5000
gosub the_end
endif
disable escapekey
endif
if inkey$()="d"
sek=00
min=00
tim=00
do
cls
sek=sek+1
if sek=60
sek=0
min=min+1
endif
if min=60
min=0
tim=tim+1
endif
if keystate(1)
gosub the_end
endif
if inkey$()="r"
gosub start
endif
print tim;"";min;"";sek:sync
print "to exit hold down the esc in a shot time"
sleep 1000
loop
endif
if inkey$()="a"
pres#=0
how_many:
cls
input "how many things do you want to du :";antal#
print "max 9"
if antal#=>10
gosub how_many
endif
if antal#=<0
gosub how_many
endif
if antal#=>1
if antal#=<9
antal_valt#=1
endif
endif
if antal_valt#=1
for x =1 to antal#
cls
if x=1
input "first ting can do :";ting1$
endif
if x=2
input "secont thing you can do :";ting2$
endif
if x=3
input "and the next thing you can do :";ting3$
endif
if x=4
input "and next thing you can do :";ting4$
endif
if x=5
input "and next thing you can do :";ting5$
endif
if x=6
input "and next thing you can do :";ting6$
endif
if x=7
input "and next thing you can do :";ting7$
endif
if x=8
input "and next thing you can do :";ting8$
endif
if x=9
input "and next thing you can do :";ting9$
endif
if keystate(1)
gosub the_end
endif
if inkey$()="r"
cls
gosub start
endif
next x
and_fanaly_you_sal=rnd(antal#)
if and_fanaly_you_sal=1
print " you shal :"+ting1$:sync
endif
if and_fanaly_you_sal=2
print " you shal :"+ting2$:sync
endif
if and_fanaly_you_sal=3
print " you shal :"+ting3$:sync
endif
if and_fanaly_you_sal=4
print " you shal :"+ting4$:sync
endif
if and_fanaly_you_sal=5
print " you shal :"+ting5$:sync
endif
if and_fanaly_you_sal=6
print " you shal :"+ting6$:sync
endif
if and_fanaly_you_sal=7
print " you shal :"+ting7$:sync
endif
if and_fanaly_you_sal=8
print " you shal :"+ting8$:sync
endif
if and_fanaly_you_sal=9
print " you shal :"+ting9$:sync
endif
wait key
cls
gosub start
endif
endif
if keystate(1)
gosub the_end
endif
if inkey$()="r"
gosub start
endif
endif
if inkey$()="s"
do
pres#=0
cls
timer$=get time$()
dater$=get date$()
print timer$
print dater$
if keystate(1)
gosub the_end
endif
if inkey$()="r"
cls
gosub start
endif
sync
loop
endif
loop
the_end:
remember how it is to live...
or you will die..
Darkn Version- The fire army.
