Anypoint, day calculator, 12- and 24-hour clocks.
Content
Image Gallery
Source Code
1 LET Q=0
2 FAST
3 PRINT "SELECT"
5 INPUT C
6 PRINT "%S%T%A%R%T%I%N%G% %T%I%M%E"
7 INPUT H
8 INPUT M
9 IF C=1 THEN PRINT "1:AM 2:PM"
10 IF C=1 THEN INPUT Q
11 IF Q=2 THEN LET H=H+12
14 PRINT AT 8,8;"TIME-";
15 IF H>12 THEN PRINT H-12;":";
16 IF H<=12 THEN PRINT H;":";
17 IF M<10 THEN PRINT "0";M;
18 IF M>=10 THEN PRINT M;
19 IF C=1 AND H>11 AND H<=23 THEN PRINT " PM"
20 IF C=1 AND H<=11 OR H=24 THEN PRINT " AM"
21 PAUSE 3550
23 LET M=M+1
24 IF C=3 THEN LET M=M-2
25 CLS
26 IF C=3 AND M=-1 THEN LET H=H-1
27 IF C=3 AND M=-1 THEN LET M=59
28 IF C=3 AND H=0 AND M=0 THEN GOTO 40
29 IF M<60 THEN GOTO 14
30 LET M=0
31 LET H=H+1
32 IF H=25 THEN LET H=1
33 GOTO 14
40 PRINT AT 8,8;"%D%O%N%E"
41 PAUSE 20
42 GOTO 40
1 LET Q=0
2 FAST
3 PRINT "SELECT"
5 INPUT C
6 PRINT "%S%T%A%R%T%I%N%G% %T%I%M%E"
7 INPUT H
8 INPUT M
14 PRINT AT 8,8;"TIME-";
15 PRINT H;":";
17 IF M<10 THEN PRINT "0";M;
18 IF M>=10 THEN PRINT M;
21 PAUSE 3551
23 LET M=M+1
24 IF C=3 THEN LET M=M-2
25 CLS
26 IF C=3 AND M=-1 THEN LET H=H-1
27 IF H=24 AND M=1 THEN LET H=0
28 IF C=3 AND H=0 AND M=0 THEN GOTO 40
29 IF M<60 THEN GOTO 14
30 LET M=0
31 LET H=H+1
33 GOTO 14
40 PRINT AT 8,8;"%D%O%N%E"
41 PAUSE 15
42 GOTO 40
1 LET V=0
2 PRINT "NO."
3 INPUT N
4 PRINT "LOW"
5 INPUT L
6 PRINT "HIGH"
7 INPUT H
8 CLS
9 PRINT L;" TO ";H
10 FOR Q=1 TO 20
11 PRINT "\: "
12 NEXT Q
13 PRINT "\''1\''\''\''10\''\''\''20\''\''\''30\''\''\''40\''\''\''50\''\''\''60"
14 FOR I=1 TO N
15 PRINT AT 2,2;"ENTER ";I
16 INPUT D
17 LET X=H-L
18 LET V=V+D
19 LET D=D-L
20 PRINT AT 1,0;"SUM=";V;" MEAN=";V/I;" "
21 IF X>34 THEN GOTO 26
22 IF X>=22 AND X<=34 THEN GOTO 30
23 LET X=X*1.5
24 LET D=D*1.5
25 GOTO 21
26 LET X=X/1.5
27 LET D=D/1.5
28 GOTO 21
30 PLOT I+1,INT (D+2)
31 NEXT I
1 PRINT AT 8,3;"%M%O%N%T%H %D%A%Y %Y%E%A%R"
2 LET D=0
3 INPUT M
4 IF M=2 THEN LET D=31
5 IF M=3 THEN LET D=59
6 IF M=4 THEN LET D=90
7 IF M=5 THEN LET D=120
8 IF M=6 THEN LET D=151
9 IF M=7 THEN LET D=181
10 IF M=8 THEN LET D=212
11 IF M=9 THEN LET D=243
12 IF M=10 THEN LET D=273
13 IF M=11 THEN LET D=304
14 IF M=12 THEN LET D=334
17 INPUT E
18 LET D=D+E
20 INPUT Y
22 LET D=D+INT (365.25*Y)
23 IF INT (Y/4)=Y/4 AND M<3 THEN LET D=D-1
27 LET W=INT (D/7)
28 LET X=D-(7*W)
29 PRINT M;"/";E;"/";Y
30 IF X=0 THEN PRINT "%F%R%I"
31 IF X=1 THEN PRINT "%S%A%T"
32 IF X=2 THEN PRINT "%S%U%N"
33 IF X=3 THEN PRINT "%M%O%N"
34 IF X=4 THEN PRINT "%T%U%E%S"
35 IF X=5 THEN PRINT "%W%E%D"
36 IF X=6 THEN PRINT "%T%H%U%R"
50 INPUT K$
51 CLS
53 GOTO 1