-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathDESCOD.BAS
More file actions
executable file
·34 lines (33 loc) · 862 Bytes
/
DESCOD.BAS
File metadata and controls
executable file
·34 lines (33 loc) · 862 Bytes
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 " DESCODIFICADOR 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 140
PRINT
PRINT "ESCREVA O N£MERO QUE VOCE QUER DESCODIFICAR E O COMPUTADOR LHE DAR A"
PRINT "LETRA QUE ELE REPRESENTA"
140 PRINT
LET C = 27
PRINT "PRIMEIRO N£MERO"
170 INPUT X
IF X = 5559 THEN GOTO 220
LET X$ = CHR$(X - C)
190 PRINT X$
200 PRINT "NéMERO SEGUINTE"
GOTO 170
220 PRINT "VOCE QUER MESMO SAIR? (S) ou (N)?"
INPUT B$
IF B$ = "S" THEN GOTO 290
IF B$ = "N" THEN GOTO 200
GOTO 190
290 END