Keskustelu: Koodit: QB: Pa2 (Keskeneräinen!)

CLS
FILES "C:\PA2\"
PRINT ""
PRINT "Required start WINDOWS mode and press any key you for ready."
SLEEP
COLOR 0, 15
CLS
FOR I = 1 TO 20
PRINT
NEXT I
PRINT "  -------------------------"
PRINT "         WELCOME"
PRINT ""
PRINT "         TO"
PRINT ""
PRINT "         PRINT A2"
PRINT "  -------------------------"
PRINT "     THE SPECIAL THANKS:"
PRINT "  -------------------------"
PRINT ""
PRINT "            Aleksi"
PRINT "                  "
PRINT "             AND"
PRINT ""
PRINT "            Tapio"
PRINT ""
PRINT "  -------------------------"
FOR J = 1 TO 25
PRINT
FOR K = 1 TO 1000000
NEXT K
NEXT J
CLS
    OPEN "USER.TXT" FOR OUTPUT AS #1
    DO
        INPUT "   NAME:       ", name$
        INPUT "   LAST NAME:        ", Lname$
        WRITE #1, name$, Lname$
    LOOP WHILE UCASE$(r$) = "Y"
    CLOSE #1
    'Print the file to the screen.
    OPEN "USER.TXT" FOR INPUT AS #1
    CLS
    PRINT "Entries in USER LOG IN file:": PRINT
    DO WHILE NOT EOF(1)
        INPUT #1, Rec1$, Rec2$   'Read entries from file.
        PRINT Rec1$, Rec2$       'Print the entries on the screen.
    LOOP
    CLOSE #1

        PRINT "PLEASE WAIT:::"
        PRINT "OK"

GOTO menu:
menu:
        PRINT "PLEASE WAIT:::"
        PRINT "OK"
GOTO sele:
sele:
        CLS
GOTO snd:
snd:
        CLS
GOTO vali:
vali:
COLOR 0, 0
CLS

A = 9
B = 0
Choose = 1

DO
W$ = INKEY$

IF W$ = CHR$(0) + "H" THEN Choose = Choose - 1: Set = 1
IF W$ = CHR$(0) + "P" THEN Choose = Choose + 1: Set = 1

IF Choose <= 0 THEN Choose = 2
IF Set = 1 AND Choose = 1 THEN A = 9: B = 0: Set = 0: SOUND 200, 1
IF Set = 1 AND Choose = 2 THEN A = 0: B = 9: Set = 0: SOUND 200, 1
IF Choose >= 3 THEN Choose = 1

IF W$ = CHR$(13) AND Choose = 1 THEN COLOR 7, 0: CLS : GOTO virhe:
IF W$ = CHR$(13) AND Choose = 2 THEN COLOR 7, 0: CLS : PRINT "Thanks!"; name$: END

COLOR A, 1
LOCATE 10, 35: PRINT "Calculator"
COLOR B, 1
LOCATE 12, 35: PRINT "Exit"

LOOP
PRINT "                                                                "; Lname$; name$
virhe:
CLS
PRINT ""
PRINT "ERROR!    press up key or down key to contiue..."
SLEEP
GOTO vali:
calc:
GOTO virhe:
SLEEP
GOTO vali:

SUB Delay (A AS SINGLE) STATIC

END SUB