Keskustelu: Koodit: QB: Käyntikortin teko ohjelma

CLS
1 :
LINE INPUT "Firmasi nimi: "; nimi$
IF nimi$ = "" THEN CLS : GOTO 1
2 :
LINE INPUT "Muuta tietoa: "; tieto$
IF tieto$ = "" THEN CLS : GOTO 2
CLS
PRINT nimi$
PRINT tieto$
PRINT
PRINT "Onko hyvä? (K/E)"
kyssi:
y$ = ""
WHILE y$ = ""
y$ = INKEY$
WEND

IF y$ = "K" OR y$ = "k" THEN GOTO tulosta
IF y$ = "E" OR y$ = "e" THEN END
GOTO kyssi

tulosta:
CLS
INPUT "Montako korttia pistetään? "; num%
CLS
FOR juttu% = 1 TO num%
LPRINT nimi$
LPRINT tieto$
LPRINT "-----leikkaa tästä-----"
NEXT juttu%
PRINT "Tulostetaan..."
SLEEP
END