home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / time.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1983-01-20  |  640 b   |  16 lines
  1. 45000  PROG1$="T I M E"' DISPLAYS SYSTEM DATE AND TIME
  2. 45010  REV$="Rev: 830120"' By Robert Hamilton
  3. 45020  SCREEN 0,0,0:WIDTH 80:COLOR 2,0,0:KEY OFF:CLS:UP$=STRING$(1,30)
  4. 45030  LOCATE ,,1,12,13:DEF SEG=0:IF PEEK (&H410)= 109 THEN LOCATE ,,,6,7
  5. 45040  DEF SEG=64:POKE 23,128:DEF SEG:CL$=STRING$(79,0):Q$=CHR$(34)
  6. 45050  LOCATE 6,34:PRINT PROG1$:PRINT CHR$(10);TAB(32);REV$:COLOR 6,0
  7. 45060  GOSUB 45090:CLS:LOCATE 20,1:COLOR 6,0:PRINT "DONE";CHR$(10):KEY ON
  8. 45070  LOCATE ,,1:END
  9. 45080      REM: DEFDBLDEFDBL DATE/TIME
  10. 45090  LOCATE 25,1:COLOR 10,0:PRINT "Press SPACE key to abort";:COLOR 6,0
  11. 45100  LOCATE 22,1:PRINT"DATE IS: ";DATE$
  12. 45110  LOCATE 23,1,0:PRINT"TIME IS:  ";
  13. 45120  K$=INKEY$:LOCATE 23,10:PRINT TIME$+" ";
  14. 45130  IF K$="" THEN 45120
  15. 45140  RETURN
  16.