Sharp PC-1500 Anwenderhandbuch Seite 202

[ Programmlisting ]
18:"AQ":CLEAR :
WAIT @
ie eran alee
38: 0=TIME
46:K=INT ¢0/188)
. 38:0=CO-K¥IBB*K1B
Bea
6@:N=TIME
7@:K=INT ¢N/182)
80: N=(N-K¥198)*18
aae@
98:1F O=NGOTO 2a
95:GO0SUB 982
198:PRINT "NOW-TIM
E";USING "H##"
3H3"H"3USING "* :
RRR SMS UM
USING "#HH"3S;.
Wom
120:1F T=NBEEP 20: _
GOTO 32a
208: O=N
218:G0T0 62 |
388:END
490:"D":CLEAR :
WAIT @
41Q: INPUT "TIMER?" '
iN
1
415:GOSUB 32a
426: U=CH*K6O029+ 0M
-GBd+5. * ;
440: S=8
445: Ag=""
458: AS=INKEY$
468: 1F As<>" "GOTO
445
4782 0=TIME +K=INT
(07198)!0=t0-K -
*100)*iBgaa
48Q:N=TIME :K=INT
(N/18):N=<N-K
*198)* 19088
490: 1F O=NGOTO 482
509: S=S+1 |
585: U=U- 1
S1@:2=$ we
529: 1F Z<6@G0TO 55
5
338: Y=INT ¢€2768):2
=2-Y¥X6S
54a: 1F Y<6@GoTo 55
— =Y-X*68
555:PRINT "TIME LQ
PSE";USING "##
"5X3 "H"5USING.
fay, MEH VEE
USING "HHH"3Z3
wou Fi ae
560:1F U-@GoTO 599.—"™"
37@:0=N: GOTO 482
338: BEEP 298
668: END :
630: "S": CLEAR :
WAIT @ )
655:PRINT ""STOPPUH
au -
(670: ag=""
688: A$=INKEYS$
698:1F AS$<>" "GOTO
_ 678. Bs
696: U=TIME
730: U=U+2
235: A=8:0=0
740: IF U<IBLET S=S
+0: 0=9
75@:1F U=1BLET S=S
+12U=8
768:1F S<6@LET Man
+9: O=0
(2@: INPUT "ALARMZE = 5S@:X=INT ¢Y/6@>:¥
668: H=8: M=8: S=@: US.
8
778: 1F °S=6BLET M=M_
: +1: 5=6
819:PRINT M3"M"3
USING "###"35S;
"S"; USING a
; U5 "Ss" 6
815: Ag=""
820: AS=INKEYS
830: IF AS<>" "GOTO:
730
840:WAIT USING:
PRINT "STOP";M
Ss"
85@:END.
S988:H=INT (N71a8008
d
Si@:M=INT ¢¢N-Hx1@
800)/ 18a)
326:S=INT (N/+128@):
S=N-S*198
$3@:RETURN
948: END
STATUS 1
1034
— 196 —
M3 S5"S"5 U3
= |e
'-[ Speicherinhalt ]
't Timer-Funktion
'Timer-Zeit a
(Minute)
Timer-Zeit:
Verstrichene Zeit
(jetzt) |
Verstrichene Zeit (Stunden)
Timer-Zeit
(Sekunde)
Timer-Zeitumwandlung
in Sekunden
pe 4
Sele
Verstrichene Zeit (vorher) u
Verstrichene Zeit
(Minuten)
Verstrichene Zeit
(Sekunden)
Ean ea