Programming Can Be Fun

You can duplicate the following programs in the TIMEX Personal Computer to find out just how much fun programming can be. We are indebted to the T/S users identified by the first program REM for submitting the programs to RAMBLINGS.

CALCULATOR

This easy-to-use “adding machine” program makes quick work of repetitious additions and lines-up totals at the right margin. To continue the program from the last total, press the K and then the ENTER keys. After entering the program, RUN to execute; BREAK to stop.

  4 REM BY EDGAR E. CLARK, ST. PETERSBURG, FL.
  5 REM CALCULATOR
 10 DIM Z$(20,10)
 15 LET T = 0
 20 LET ZZ = 0
 30 FOR N = 1 to 20
 40 PRINT TAB 7; "CALCULATING ROUTINE"; TAB 32; "ENTER FIRST NBR";
 50 PRINT "--OR TO USE LST TOTAL AS NEW ENTRY PRESS K AND ENTER"
 60 INPUT Z$(N)
 70 LET T = T + VAL Z$(N)
 80 PRINT TAB 18; N; TAB 21 ;Z$(N)
 90 PRINT TAB 20; "T = ";T;
100 LET K = T
110 IF VAL Z$(N) = ZZ THEN PRINT TAB 18; "FINAL     ";T;
120 IF VAL Z$(N) = ZZ THEN GOTO 15
130 PRINT TAB 0;"NEXT NBR";
140 LET N = N + 1
150 GOTO 60
160 REM
170 REM

BOBSLED

Fast-action 2K Bobsled game challenges your reflexes and tests your ability to transverse a winding course. To get the Bobsled (V) to the finish line without crashing into the walls, press key 1 to move left, or key 0 to ski to the right. A scoreboard keeps track of how well you’ve done.

Enter the program listed below:

   5 REM BY ROBERT J. MIDURA, WORCESTER, MA.
   7 REM BOBSLED
  10 SCROLL
  15 PRINT AT 9,C;" "
  20 LET C = C + (INKEY$ = "0") - (INKEY$ = "1")
  25 PRINT TAB C;
  30 IF PEEK (PEEK 16398 + 256*PEEK 16399) <> 14 THEN GOTO 65
  35 PRINT "V"
  38 LET S = S + 1
  40 LET P = P + RND*2-1
  45 LET P = P + (NOT P) - (P > 27)
  50 PRINT AT 21,P;S$(S/30 + 1)
  60 GOTO 10
  65 FOR L = 1 TO 10
  70 PRINT AT 10,C;"V";AT 10,C;"▒"
  75 PRINT AT 10,C;"  "
  80 NEXT L
  85 PRINT TAB 10; "SCORE";S
  90 STOP
1000 LET P = 14
1005 FOR L = 1 TO 22
1010 PRINT TAB P;S$(1)
1015 NEXT L
1025 LET C = 16
1030 PRINT AT 10,C;"V"
1035 LET S = 0
1040 GOTO 10

Then, type the following commands without line numbers; be sure to press the ENTER key after each command:

DIM S$(5,5)
LET S$(1) = "▒   ▒"
LET S$(2) = "▒  ▒ "
LET S$(3) = "▒ ▒"
LET S$(4) = "▒  ▒ "
LET S$(5) = "FINI"

Press RUN to execute the program and BREAK to stop it.