mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 05:17:49 +00:00
9ee89d6ff4
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
32 lines
No EOL
834 B
QBasic
32 lines
No EOL
834 B
QBasic
CLS
|
|
DO
|
|
Y = VAL(MID$(DATE$, 7, 4))
|
|
M = VAL(MID$(DATE$, 1, 2))
|
|
EM$ = "TH"
|
|
IF M = 1 THEN EM$ = "ST"
|
|
IF M = 2 THEN EM$ = "ND"
|
|
IF M = 3 THEN EM$ = "RD"
|
|
M$ = STR$(M) + EM$
|
|
FOR K = 1 TO M
|
|
READ MO$
|
|
NEXT
|
|
D = VAL(MID$(DATE$, 4, 2))
|
|
ED$ = "TH"
|
|
IF D = 1 THEN EM$ = "ST"
|
|
IF D = 2 THEN EM$ = "ND"
|
|
IF D = 3 THEN EM$ = "RD"
|
|
D$ = STR$(D) + ED$
|
|
H = INT(VAL(MID$(TIME$, 1, 2)) / 2) - 1
|
|
HH = VAL(MID$(TIME$, 1, 2))
|
|
IF HH < 12 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " A.M."
|
|
IF HH > 11 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " P.M."
|
|
RESTORE
|
|
LOCATE 5, 1
|
|
PRINT "THE YEAR IS"; Y
|
|
PRINT "IT'S "; MO$
|
|
PRINT "WHICH IS THE"; M$; " MONTH"
|
|
PRINT "IT'S THE"; D$
|
|
PRINT "AND THE TIME IS"; T$
|
|
PRINT "THE MILITARY TIME IS "; TIME$
|
|
LOOP UNTIL INKEY$ <> ""
|
|
DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER" |