User-Mag 1990 July/User_Mag_1990_07___de_Side_A.atr/clock.qik

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¢¢¯