home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1987 November
/
Antic_Magazine_1987_11_Antic_Side_B.atr
/
sttime.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
39 lines
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
ə