qbasic/CODNUM.BAS at master · davilima6/qbasic · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
   CLS
    Musica$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
    PLAY Musica$
   WHILE PLAY(0) > 5: WEND
    PRINT "Quase pronto!"
SLEEP 2
CLS
PRINT "              CODIFICADOR SECRETO DE NéMEROS"
   PRINT
   PRINT
   PRINT "INSTRU€™ES DE USO"
   PRINT
    PRINT "SE VOCE QUISER INSTRU€™ES DE USO APERTE (S) SE NŽO QUISER APERTE (N)"
    INPUT D$
    IF D$ = "N" THEN GOTO 150
    PRINT
    PRINT "ESCREVA A LETRA QUE DESEJA CODIFICAR E O COMPUTADOR LHE DAR  O"
    PRINT "N£MERO QUE ELA REPRESENTA"
150 LET C = 27
    PRINT
    PRINT "PRIMEIRA LETRA"
180 INPUT X$
    IF X$ = "THAU" THEN GOTO 240
    LET X = ASC(X$) + C
    PRINT X
220 PRINT "LETRA SEGUINTE"
    GOTO 180
240 PRINT "VOCE QUER MESMO SAIR? (S) ou (N)"
    INPUT B$
    PRINT
    IF B$ = "S" THEN GOTO 290
    GOTO 220
290 END