1000  '
1010  GETTIME :
1020  '(c) 1987 Antic Publishing
1030  'Version 010887                                 *
1040  'Written by Stephen Oriold
1050  '
1060  Dim OPCODE%(23)
1070  '
1080  '
1090  restore 1340
1100  '
1110  for C%=0 to 23
1120  read OPCODE%(C%)
1130  next C%
1140  '
1150  ADDR = varptr(OPCODE%(0))
1160  call ADDR
1170  '
1180  HRS% = OPCODE%(23)
1190  MIN% = OPCODE%(22)
1200  SEC% = OPCODE%(21)
1210  '
1220  HRS$ = str$(HRS%)
1230  if len(HRS$) = 2 then HRS$ = " 0" + right$(HRS$, 1)
1240  MIN$ = str$(MIN%)
1250  if len(MIN$) = 2 then MIN$ = " 0" + right$(MIN$, 1)
1260  SEC$ = str$(SEC%)
1270  if len(SEC$) = 2 then SEC$ = " 0" + right$(SEC$, 1)
1280  '
1290  TIME$ = right$(HRS$, 2) + ":" + right$(MIN$, 2)
1300  TIME$ = TIME$ + ":" + right$(SEC$, 2)
1310  print TIME$
1320  input "- Hit [RETURN] to exit.", A$
1330  '
1340  data &H2248, &H3F3C, &H002C, &H4E41, &H548F, &H3200
1350  data -15748, &H001F,  -7351, &H3341, &H002A,  -5560
1360  data &H3340, &H002C, &H0269, &H003F, &H002C,  -5048
1370  data &H3340, &H002E, &H4E75, &H0000, &H0000, &H0000