Short Programs

“INFLATION” – 1K

Here is a program that tells you what you can expect to pay in a future year for an individual item. You can also use it to calculate what your wages may be in the future.

The first prompt asks you what the item is that you want to calculate the future price for. The second prompt asks for the current cost of the item. The third prompt asks what year you want to see the cost for this item and the fourth asks for the average yearly inflation rate. A sample set of inputs might be:

WHAT IS THE ITEM? (gasoline)
CURRENT COST OF ITEM? (1.45)
WHAT YEAR?               (1987)
YEARLY INFLATION RATE?  (10)

GASOLINE THAT COST 1.45
IN 1982 WILL COST 2.3352395
IN 1987

Use it to calculate the cost of food items, wages, automobiles, real estate, rent, etc.

80 PRINT "WHAT IS THE ITEM?"
90 INPUT I$
100 PRINT "CURRENT COST OF
    ITEM?"
110 INPUT C
120 PRINT "WHAT YEAR?"
130 INPUT Y
140 PRINT "YEARLY INFLATION RATE?"
150 INPUT R
160 LET F = C * ((1 + (R / 100))
    ** (Y - 1982))
170 PRINT , , I$ ;" THAT COST ";
    C; TAB 32; "IN THE YEAR ";Y;
    "."
180 INPUT A$
190 CLS
200 RUN

Syntactic Sum = 15108

---

“PYRAMID” – 2K

This program builds a pyramid and then removes all but the outline and then removes the outline also. This is an excellent example of how a programmer might want to have an introduction to a game or use the generated graphics as a base to build a game around.

Experiment by changing some of the values of the numeric variables and by introducing the FAST and SLOW commands into the program

10 LET A = 1
20 LET B = 1
30 FOR N = A TO 63 - A
40 PLOT N,B
50 NEXT N
60 LET A = A + 1
70 LET B = B + 1
80 IF A = 33 THEN GOTO 100
90 GOTO 30
100 LET A = 2
110 LET B = 1
120 FOR N = A TO 63 - A
130 UNPLOT N,B
140 NEXT N
150 LET A = A + 1
160 LET B = B + 1
170 IF A = 32 THEN GOTO 200
180 GOTO 120
200 LET B = 1
210 FOR A = 1 TO 32
220 UNPLOT A,B
230 LET B = B + 1
240 NEXT A
250 LET B = 32
260 FOR A = 31 TO 62
270 UNPLOT A,B
280 LET B = B - 1
290 NEXT A
300 RUN

Syntactic Sum = 26246