mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-19 20:16:24 +00:00
b586eafd3b
LINE INPUT will now use the faster method if passed a file handle that has been opened FOR BINARY. As such, the _BLINEINPUT command has been removed. qb64.bas now takes advantage of this for reading from '$include files, at least in Include Manager 1. Some tweaking of internal/source/main.txt was required to get things into a sane state, so I'm holing off changing the compiler any further so the auto-builder can make sure everything's smoothed over. Note: Everything should still compile as normal; I'm just being overcautious.
32 lines
No EOL
865 B
QBasic
32 lines
No EOL
865 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" |