Economy Trio

Products: The Economy Trio
Developer(s): Al Bandy
Date: 1982
Type: Cassette
Platform(s): TS 1000

Anypoint, day calculator, 12- and 24-hour clocks.

Related Products

Three programs available on separate cassettes combined onto one cassette: Clocks and Timers, Your Special Day and Anypoint Plotter. 1K.

Gallery

Economy Trio

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
Scroll to Top