home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1987 November / Antic_Magazine_1987_11_Antic_Side_B.atr / sttime.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  39 lines
  1. 1000  '
  2. 1010  GETTIME :
  3. 1020  '(c) 1987 Antic Publishing
  4. 1030  'Version 010887                                 *
  5. 1040  'Written by Stephen Oriold
  6. 1050  '
  7. 1060  Dim OPCODE%(23)
  8. 1070  '
  9. 1080  '
  10. 1090  restore 1340
  11. 1100  '
  12. 1110  for C%=0 to 23
  13. 1120  read OPCODE%(C%)
  14. 1130  next C%
  15. 1140  '
  16. 1150  ADDR = varptr(OPCODE%(0))
  17. 1160  call ADDR
  18. 1170  '
  19. 1180  HRS% = OPCODE%(23)
  20. 1190  MIN% = OPCODE%(22)
  21. 1200  SEC% = OPCODE%(21)
  22. 1210  '
  23. 1220  HRS$ = str$(HRS%)
  24. 1230  if len(HRS$) = 2 then HRS$ = " 0" + right$(HRS$, 1)
  25. 1240  MIN$ = str$(MIN%)
  26. 1250  if len(MIN$) = 2 then MIN$ = " 0" + right$(MIN$, 1)
  27. 1260  SEC$ = str$(SEC%)
  28. 1270  if len(SEC$) = 2 then SEC$ = " 0" + right$(SEC$, 1)
  29. 1280  '
  30. 1290  TIME$ = right$(HRS$, 2) + ":" + right$(MIN$, 2)
  31. 1300  TIME$ = TIME$ + ":" + right$(SEC$, 2)
  32. 1310  print TIME$
  33. 1320  input "- Hit [RETURN] to exit.", A$
  34. 1330  '
  35. 1340  data &H2248, &H3F3C, &H002C, &H4E41, &H548F, &H3200
  36. 1350  data -15748, &H001F,  -7351, &H3341, &H002A,  -5560
  37. 1360  data &H3340, &H002C, &H0269, &H003F, &H002C,  -5048
  38. 1370  data &H3340, &H002E, &H4E75, &H0000, &H0000, &H0000
  39. ə