Keskustelu: Koodit: QB: Tekstipeli

Main:
CLS
PRINT "TEKSTIPELI"
PRINT ""
PRINT "1. ALOITA PELI"
PRINT "2. LOPETA"
PRINT ""
INPUT1:
INPUT V$
IF V$ = "1" THEN GOTO ALOITUS
IF V$ = "2" THEN END
GOTO INPUT1

ALOITUS:
CLS
PRINT "OLET HUONEESSASI. MITÄ TEET?"
PRINT ""
PRINT "1. JUO LIMU"
PRINT "2. SYTYTÄ VALOT"
PRINT ""
INPUT2:
INPUT V$
IF V$ = "1" THEN GOTO VOITTO2
IF V$ = "2" THEN GOTO VOITTO1
GOTO INPUT2

VOITTO1:
CLS
PRINT "LAITOIT VALOT PÄÄLLE"
PRINT "PÄÄSIT PELIN LÄPI"
PRINT ""
PRINT ""
SLEEP 3  'AIKA
END  'LOPETUS

VOITTO2:
PRINT "JOIT LIMUN"
PRINT "PÄÄSIT PELIN LÄPI"
PRINT ""
SLEEP 3
END