scott@geowhiz.UUCP (Scott Kempf) (08/13/87)
Some people have wanted to know how to read the //gs clock from BASIC. The only "correct" way to read the //gs clock is by using one of two //gs tools. They are both in the Miscellaneous Tool set (#3) and are functions number 13 and 15. ReadTimeHex and ReadASCIITime respectively. The following is a short BASIC program that pokes a machine language program into memory. The machine language program is used to call ReadASCIITime. The ASCII time is stored at address 00/0200 which is the text buffer (safe for temporary use) in the format selected from the control panel. The time has been moved to 00/0200 the BASIC program must more it byte by byte into a variable (T$). The machine language program is completely relocatable, if you don't have page 3 free. Just execute this and it will save itself: --------------------------------< Cut Here >--------------------------------- NEW 10A=768 20REMThe variable A can be any address where there are 20 free bytes. 100FORI=ATOA+19 110READX:POKEI,X 120NEXT 130DATA24,251,194,48,244,0,0,244,0,2,162,3,15,34,0,0,225,56, 251,96 200HOME 210GOSUB10000 220PRINT"It is now ";T$ 230END 999STOP 10000REMThis routine calls the tool ReadASCIITime 10010CALLA 10100T$="" 10110FORI=512TO531 10120T$=T$+CHR$(PEEK(I)) 10130NEXT 10140RETURN SAVEREAD.CLOCK.DEMO --------------------------------< Cut Here >--------------------------------- Scott Kempf uwvax!geowhiz!scott (The only address I know will work.) p.s. Is APW a figment of my imagination? I haven't written Apple, yet. I thought asking by news would be faster. Was I wrong?