DECLARE SUB IntroTxt ()
DECLARE SUB Introscrn ()
DECLARE SUB Waiting (SecondsToWait!)
DECLARE SUB KeyInput ()
DECLARE SUB BlankLines (NumberOfLines)


'General Variables

DIM SHARED cr AS STRING * 1     ' cariage return
cr = CHR$(13)                   'ASCII voor Enter, carriage return
DIM SHARED Reply$            ' returns key from KeyInput SUB

REM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Introscrn
Waiting 6
IntroTxt

SUB BlankLines (NumberOfLines)
' print (a number of) blank lines, for better screen layaut
FOR Counter = NumberOfLines TO 1 STEP -1
PRINT
NEXT
END SUB

SUB Introscrn
CLS
BlankLines 5
PRINT , "PAPER", "SCISSORS", "ROCK", cr
BlankLines 4
PRINT , , "ררררררררררר"
BlankLines 5
PRINT , , "by"; cr; , "Koen's Intelligent Software Sollutions"
END SUB

SUB IntroTxt
CLS
PRINT "uitleg over spelregels"
END SUB

SUB KeyInput
' Waits for a key and returns this key as a Reply$
DO
Reply$ = LCASE$(INKEY$)
LOOP UNTIL Reply$ <> ""
END SUB

SUB Waiting (SecondsToWait!)
REM Waits during a given number of seconds (Aantal Seconden!)
' TIMER wordt (in LOOP) gecontroleerd tot TIMER is toegenomen met SecondsToWait

ThisMoment = TIMER
DO UNTIL TIMER > ThisMoment! + SecondsToWait!
        IF TIMER < ThisMoment! THEN ThisMomemnt! = ThisMoment! - 86400
        REM this takes care of Waiting 'till past midnight
LOOP
END SUB