home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User-Mag 1990 July
/
User_Mag_1990_07___de_Side_A.atr
/
clock.qik
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
1 lines
¢³¢¢Quick-Sourcetext¢D1:CLOCK.QIK ¢----------------¢Length: $06C5¢¢Free : $70A6¢----------------¢¢¢¢* VBI-Uhr in QUICK¢* kann in eigenen Prgs. verwendet¢* werden¢*¢* (c) H.Schoenfeld '90¢* fuer USER MAG¢¢BYTE¢[¢SEK_50,SEK,MIN,STD ;VBI-Zeitspeicher¢]¢ARRAY¢[¢ZEIT_ANZ(8)=44128 ;String "im" Bild-¢* schirm¢]¢¢MAIN¢¢ CLOSE(6)¢ OPEN(6,12,0,"E:") ;Graphics 0¢¢ SEK_50=0 ;Zeit auf 00:00:00¢ SEK=0¢ MIN=0¢ STD=0¢ VBI(ZEIT) ;Uhr einschalten¢¢ POS(0,8)¢ ?¢ ?("Nun laeuft der VBI von alleine.")¢ ?("Im Hauptprogramm kann man nun")¢ ?("machen was man will.")¢¢ENDMAIN¢¢¢INTER ZEIT¢LOCAL¢BYTE¢[¢CH1,CH2 ;Ein-Zeichen Speicher¢]¢BEGIN¢ IPUSH ;Register retten¢ ZPUSH¢¢ SEK_50+ ;VBI zaehlt nun¢ IF SEK_50=50 ;automatische jede¢ SEK+ ;1/50 Sekunde die¢ SEK_50=0 ;Zeit hoch und setzt¢ IF SEK=60 ;SEK, MIN, STD¢ MIN+ ;entsprechend¢ SEK=0¢ IF MIN=60¢ STD+¢ MIN=0¢ ENDIF¢ ENDIF¢ ENDIF¢¢ ZEIT_ANZ(2)=26 ; 2 mal ":" in String¢ ZEIT_ANZ(5)=26 ; im BS schreiben¢¢ .BY_TO_ASC(STD,CH1,CH2) ;BYTEs in¢ ZEIT_ANZ(0)=CH1 ;2 Zeichen¢ ZEIT_ANZ(1)=CH2 ;wandeln¢ .BY_TO_ASC(MIN,CH1,CH2) ;und in¢ ZEIT_ANZ(3)=CH1 ;String im¢ ZEIT_ANZ(4)=CH2 ;BS eintragen¢ .BY_TO_ASC(SEK,CH1,CH2)¢ ZEIT_ANZ(6)=CH1¢ ZEIT_ANZ(7)=CH2 ;=>"HH:MM:SS"¢ ¢ IPULL ;Register restaurieren¢ ZPULL¢ENDVBI¢¢¢PROC BY_TO_ASC¢IN¢BYTE¢[¢BY ;Uebergabevar. ans Unterprog.¢]¢OUT¢BYTE¢[¢C1,C2 ;Rueckgabe ans rufende Prg.¢]¢LOCAL¢BYTE¢[¢B1,B2 ;lokal nur im Unterprg.¢]¢BEGIN¢¢ DIV(BY,10,B1) ;Zehnerstellen in B1¢ ADD(B1,16,C1) ;in Bildschirmcode¢ MULT(B1,10,B1) ;Zehnerstellen mal 10¢ SUB(BY,B1,B2) ;von Gesamtzahl sub-¢ ADD(B2,16,C2) ;trahieren und als¢* ;Einerstelle in BScode¢ENDPROC¢¢¯