Keskustelu: Koodit: QB: "soitin"

1000 CLS
COLOR 13
PRINT "-------------------"
PRINT "|     Player      |"
PRINT "-------------------"
PRINT "|   1. Start      |"
PRINT "|   2. Help       |"
PRINT "|   3. Exit       |"
PRINT "|                 |
PRINT "-------------------"
LOCATE 7, 5: INPUT z$
IF z$ = "1" THEN GOTO 700
IF z$ = "2" THEN GOTO 900
IF z$ = "3" THEN END ELSE 1000

0
DO
SELECT CASE INKEY$
 CASE CHR$(97): GOTO 10
 CASE CHR$(115): GOTO 20
 CASE CHR$(100): GOTO 30
 CASE CHR$(102): GOTO 40
 CASE CHR$(103): GOTO 50
 CASE CHR$(104): GOTO 60
 CASE CHR$(106): GOTO 70
 CASE CHR$(107): GOTO 80
 CASE CHR$(119): GOTO 90
 CASE CHR$(101): GOTO 100
 CASE CHR$(116): GOTO 110
 CASE CHR$(121): GOTO 120
 CASE CHR$(117): GOTO 130
 CASE CHR$(122): GOTO 140
 CASE CHR$(120): GOTO 150
 CASE CHR$(32): GOTO 1000
10 C$ = "l32c"
PLAY C$
GOTO 0
20 D$ = "l32d"
PLAY D$
GOTO 0
30 E$ = "l32e"
PLAY E$
GOTO 0
40 F$ = "l32f"
PLAY F$
GOTO 0
50 G$ = "l32g"
PLAY G$
GOTO 0
60 A$ = "l32a"
PLAY A$
GOTO 0
70 H$ = "l32b"
PLAY H$
GOTO 0
80 CC$ = "l32>c<"
PLAY CC$
GOTO 0
90 CIS$ = "l32 c+"
PLAY CIS$
GOTO 0
100 DIS$ = "l32 d+"
PLAY DIS$
GOTO 0
110 FIS$ = "l32 f+"
PLAY FIS$
GOTO 0
120 GIS$ = "l32 g+"
PLAY GIS$
GOTO 0
130 AIS$ = "l32 a+"
PLAY AIS$
GOTO 0
140 P$ = "<"
PLAY P$
GOTO 0
150 O$ = ">"
PLAY O$
GOTO 0

END SELECT
LOOP
700 GOTO 0
900
CLS
PRINT "---------------------------------------------"
PRINT "|    Player       |          HELP           |"
PRINT "---------------------------------------------"
PRINT "|   1. Start      | Play using buttons:     |"
PRINT "|   2. Help       | ASDFGHJK, WETYU and ZX  |"
PRINT "|   3. Exit       | Press space to reset    |"
PRINT "|                 | Made By: Tore :)        |"
PRINT "---------------------------------------------"

LOCATE 7, 5: INPUT z$
IF z$ = "1" THEN GOTO 700
IF z$ = "2" THEN GOTO 900
IF z$ = "3" THEN END ELSE 1000