NR? 9
MENOR
MAYOR
MAYOR
CORRECTO=7.
PUNTOS=4.
NR? 7
MAYOR
MAYOR
CORRECTO=10.
PUNTOS=3.
00 { 178-Byte Prgm }
01▸LBL "NRO→"
02 CLST
03 CLMENU
04 MENU
05 RAN
06 10
07 ×
08 1
09 +
10 IP
11 STO "CO"
12 0
13 STO "NR"
14 0
15 STO "PUN"
16▸LBL "EN"
17 FIX 00
18 INPUT "NR"
19 RCL ST X
20 RCL "CO"
21 X=Y?
22 XEQ "BIEN"
23 RCL "PUN"
24 1
25 +
26 STO "PUN"
27 RCL "CO"
28 RCL "NR"
29 X>Y?
30 GTO "ME"
31 GTO "MA"
32▸LBL "ME"
33 CLST
34 "MENOR"
35 AVIEW
36 PSE
37 GTO "EN"
38▸LBL "MA"
39 CLST
40 "MAYOR"
41 AVIEW
42 PSE
43 GTO "EN"
44▸LBL "BIEN"
45 CLST
46 "CORRECTO="
47 ARCL "NR"
48 AVIEW
49 STOP
50 "PUNTOS="
51 RCL "PUN"
52 1
53 +
54 ARCL ST X
55 AVIEW
56 STOP
57 .END.
Reescribo el mismo programa en Quick Basic (QB64)
Randomize Timer
correcto = Int(Rnd * 10) + 1
nro = 0
puntuaje = 0
Do While correcto <> nro
Input "Ingrese Nro:? ", nro
If nro = correcto Then
Print "Bien"
Print puntuaje
Else
puntuaje = puntuaje + 1
If nro > correcto Then
Print " es menor"
Else
Print " Es mayor"
End If
End If
Loop