Stap 1: De code.
####################################
# Het orakel
#
#===============================
# Functies
#--------------------------------
# pc = cursorpositie
functie pc () {}
tput cup $1 $2
}
functie kop () {}
wissen
PC 2 10; echo "The Oracle"
}
functie footer() {}
PC 24 0
}
# einde functies
#=================================
# Toewijzingen
# --------------------------------
datafile = "odata"
betalen = 5
een = 1
m = "niet gedaan"
d=" "
# einde toewijzingen
#=================================
#
# De gegevensinvoer
#---------------------------------
terwijl lees lijn
doen fdata [$a] = $line
laat een = a + 1
gedaan < $datafile
#===================================
# lokale variabelen
#--------------------------------
laat nodf = $een
verklaren -i X = $nodf
# NUM = $[($RANDOM %$X) + 1]
#====================================
# Header
#-----------------------------------
koptekst
#=====================================
# Begin logica
#--------------------------------------
terwijl true; doen
laat bochten = beurten + 1
wissen
PC 4 1
echo "T H E O R A C L E!"
PC 2 25
echo "Computothought:(c) 1980-2011"
PC 7 1
echo "Voer uw vraag"
PC 8 1
echo "["
PC 8 2
Lees de q
PC 10 1
echo "het orakel zal u tonen het is gedachten, dan roepen uw antwoord."
PC 12 1
echo "dus wees geduldig!"
PC 15 1
echo "***********************************************************************"
PC 16 1
# kan hebben spaties moeten worden toegevoegd
echo "* *"
PC 17 1
echo "***********************************************************************"
voor ((y = 1; y < = 100; y += 1)); doen
PC 16 1
# kan hebben spaties moeten worden toegevoegd
echo "* *"
PC 16 3
NUM = $[($RANDOM %$X) + 1]
ECHO ${fdata [$NUM]}
gedaan
PC 18 1
echo "Spel opnieuw (J/n)"
lezen -s-n1 d
ECHO
$d in geval
[nN]) breken;
ESAC
gedaan
laat verschuldigd = $pay * $turns
echo "Please de kassier $owed dollars betalen!"
lezen
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# einde van de baan:
ECHO
wissen
PC 4 1
echo "T H E O R A C L E!"
PC 23 1
echo "Computothought: (c) 1980-2011"
PC 6 1
ECHO
echo "als u dit programma meer dan verschillende keren gebruiken en wil graag"
echo "om te zien meer programma's zoals het orakel en de Cartomancer, please"
ECHO laat"de auteur weten!"
ECHO
# EINDE
# einde logica
#-----------------------------------
# voettekst
voettekst
#===================================
# Einde.
####################################