' Braun's Nifty Keyboard Clock Setter
'
' Use this file in the auto folder to set your IKBD clock from your
' system clock.  This file is usefull to those of you who have a
' clockcard that sets the system clock but not the IKBD clock.
'
' This file is written in compiled GFA Basic and is released to the
' public domain by;
'
' Braun Tacon
' Marysville, CA.
' CIS (74736,2613)
' GENIE (XTA 02273)
'
Dim Title$(25)
Dim Title2$(25)
Dim Title3$(25)
Dim Title4$(25)
Title$="SETTING YOUR CLOCK WITH,"
Title2$="THE MAGIC OF 'GFA'."
Title3$="This is my first GFA Hack,"
Title4$="I LIKE it!!! (GFA of course)."
Print At(5,5);Title$
Print At(5,10);Title2$
Print At(5,15);Title3$
Print At(5,20);Title4$
' GETTING THE DATE FROM THE SYSTEM
D=Gemdos(42)
' NOW LETS GRAB THE TIME
T=Gemdos(44)
' OK...DO IT!!!
Void Xbios(22,D,T)
End