Keskustelu: Koodit: QB: Tekstipelin alku

1.
CLS
PRINT "OLET PIMEÄSSÄ HUONEESSA"
PRINT "MITÄ TEET?"
PRINT "1.PISTÄT VALOT PÄÄLLE"
PRINT "2.MENET NUKKUMAAN"
INPUT v$
if v$ = "1" THEN GOTO 2.
if v$ = "2" THEN GOTO 3.
2.
CLS
PRINT "LAITOIT VALOT PÄÄLLE"
PRINT "PÄÄSIT PELIN LÄPI"
END
3.
CLS
PRINT "MENIT NUKKUMAAN"
PRINT "GAME OVER"
END