home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib27b.dsk
/
TIMESTAMP.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
36 lines
30 REM ************************
40 REM * TIMESTAMP *
50 REM * BY PHILIP CHIEN *
60 REM * COPYRIGHT (C) 1986 *
70 REM * MICROSPARC, INC. *
80 REM * CONCORD, MA 01742 *
90 REM ************************
100 D$ = CHR$(4)
110 PRINT D$"OPEN TIMESTAMP.EXE"
120 PRINT D$"WEITE TIMESTAMP.EXE"
130 LIST 30000,30220
140 PRINT "RUN 30000"
150 PRINT D$"CLOSE": END
30000 PRINT "TIMESTAMP 1.0"
30010 D$ = CHR$(4)
30020 PRINT D$"CLOSE"
30030 FOR SL = 1 TO 7
30040 IF PEEK( -16384 +SL *256 +5) = 255 AND PEEK( -16384 +SL *256 +7) = 5 THEN 30070
30050 NEXT SL
30060 PRINT "NO CLOCK FOUND.": END
30070 PRINT D$"PR#"SL
30080 IF PEEK( -8192) = 32 THEN PRINT ">"
30090 IF PEEK( -8192) = 76 THEN PRINT "%"
30100 PRINT D$"PR#0"
30110 PRINT D$"IN#"SL
30120 INPUT A$
30130 PRINT D$"IN#0"
30140 PRINT "TIME IS NOW ";A$
30150 PRINT D$"OPEN TEMP"
30160 PRINT D$"WRITE TEMP"
30170 PRINT "32010 REM LAST MOD ";A$
30180 PRINT "DEL 30000,30220"
30190 PRINT "DELETE TEMP"
30200 PRINT D$"CLOSE"
30210 PRINT D$"EXEC TEMP"
30220 END