PROGRAMS

[pap@dana.ucc.nau.edu (Paul Allen Panks)]

Try the following programs for your Apple II/IIe computers:

10 CLR : VTAB 10 : PRINT "APPLE II GAME"
20 HTAB 5 : VTAB 3 : PRINT "I AM THINKING OF A NUMBER BETWEEN 1 AND 100."
30 VTAB 3 : PRINT "TRY TO GUESS MY NUMBER IN THE FEWEST TRIES POSSIBLE."
40 VTAB 1 : PRINT ">WHAT IS MY NUMBER";
50 N = INT (RND (1) * 100) : A = VAL (A$)
60 INPUT A$
70 IF A > N THEN PRINT "NUMBER IS TOO HIGH." : T = T + 1 : GOTO 60
80 IF A < N THEN PRINT "NUMBER IS TOO LOW." : T = T + 1 : GOTO 60
90 PRINT "YOU GUESSED MY NUMBER! (" ; N ;")" : PRINT "IT TOOK YOU" ; T ; 
"TRIES!"
100 PRINT : PRINT "PLAY AGAIN? (Y/N)"
110 GET K$ : IF K$ = "" THEN GOTO 110
120 IF K$ = "Y" THEN RUN
130 IF K$ = "N" THEN PRINT "HAVE A NICE DAY!" : END
140 GOTO 110

Here is another program for you to try:

10 CLR : VTAB 15 : HTAB 1 : PRINT "APPLE II FUN"
20 VTAB 3 : HTAB 3 : INPUT "WHAT IS YOUR NAME?" ; N$
30 INPUT "WHAT IS YOUR AGE?" ; A$
40 INPUT "WHAT MONTH WERE YOU BORN IN?" ; M$
50 INPUT "WHAT MONTH IS TODAY IN?" ; MT$
60 PRINT : PRINT "YOUR NAME IS" ; N$ ; ". YOU ARE"; A$ ;"YEARS OLD."
70 M = VAL (M$) : IF M$ = "JANUARY" THEN M = 1 : GOTO 100
71 IF M$ = "FEBRUARY" THEN M = 2 : GOTO 100
72 IF M$ = "MARCH" THEN M = 3 : GOTO 100
73 IF M$ = "APRIL" THEN M = 4 : GOTO 100
74 IF M$ = "MAY" THEN M = 5 : GOTO 100
75 IF M$ = "JUNE" THEN M = 6 : GOTO 100
76 IF M$ = "JULY" THEN M = 7 : GOTO 100
77 IF M$ = "AUGUST" THEN M = 8 : GOTO 100
78 IF M$ = "SEPTEMBER" THEN M = 9 : GOTO 100
79 IF M$ = "OCTOBER" THEN M = 10 : GOTO 100
80 IF M$ = "NOVEMBER" THEN M = 11 : GOTO 100
81 IF M$ = "DECEMBER" THEN M = 12 : GOTO 100
82 PRINT "THAT'S NOT A VALID MONTH. TRY AGAIN." : FOR X = 1 TO 2000 : 
NEXT : RUN
100 MT = VAL (MT$) : IF MT$ = "JANUARY" THEN MT = 1 : GOTO 200
101 IF MT$ = "FEBRUARY" THEN MT = 2 : GOTO 200
102 IF MT$ = "MARCH" THEN MT = 3 : GOTO 200
103 IF MT$ = "APRIL" THEN MT = 4 : GOTO 200
104 IF MT$ = "MAY" THEN MT = 5 : GOTO 200
105 IF MT$ = "JUNE" THEN MT = 6 : GOTO 200
106 IF MT$ = "JULY" THEN MT = 7 : GOTO 200
107 IF MT$ = "AUGUST" THEN MT = 8 : GOTO 200
108 IF MT$ = "SEPTEMBER" THEN MT = 9 : GOTO 200
109 IF MT$ = "OCTOBER" THEN MT = 10 : GOTO 200
110 IF MT$ = "NOVEMBER" THEN MT = 11 : GOTO 200
111 IF MT$ = "DECEMBER" THEN MT = 12 : GOTO 200
112 PRINT "THAT'S NOT A VALID MONTH. TRY AGAIN." : FOR X = 1 TO 2000 : 
NEXT : RUN
200 IF MT>M THEN PRINT "YOU WERE BORN IN" ; M$ ;" OF " ;: A = VAL (A$) 
: PRINT 1995-A : GOTO 250
210 IF MT<M THEN PRINT "YOU WERE BORN IN"; M$ ;" OF ";: A = VAL (A$) : A 
= A - 1 : PRINT 1995-A : GOTO 250
220 IF MT = M THEN PRINT "HAPPY BIRTHDAY! (BEFORE OR BELATED)" : GOTO 300
250 PRINT : PRINT "PLAY AGAIN? (Y/N)"
251 GET K$ : IF K$ = "" THEN 251
252 IF K$ = "Y" THEN RUN
253 IF K$ = "N" THEN PRINT "HAVE A NICE DAY!" : END
254 GOTO 251
300 PRINT : PRINT"HAPPY BIRTHDAY TO YOU!" : FOR X = 1 TO 1000 : NEXT
305 PRINT "HAPPY BIRTHDAY TO YOU!" : FOR X = 1 TO 1000 : NEXT
306 PRINT "HAPPY";
307 FOR X=1 TO 500 : NEXT : PRINT "BIRTH";
308 FOR X=1 TO 500 : NEXT : PRINT "DAY, DEAR "; N$ ;"..."
309 FOR X=1 TO 500 : NEXT : PRINT "HAPPY BIRTHDAY TO...";
310 FOR X-1 TO 500 : NEXT : PRINT "YOU!" : END
320 END

Here is a final program your your enjoyment:

10 CLR : VTAB 15 : HTAB 1 : PRINT "APPLE II WEATHER"
15 VTAB 3 : HTAB 3 : INPUT "WHAT WAS THE HIGH TEMPERATURE TODAY (IN 
FAHRENHEIGHT)"; HT$
17 INPUT "WHAT WAS THE LOW TEMPERATURE?" ; LT$
20 INPUT "WHAT WAS THE DEW POINT?"; DP$
25 INPUT "WHAT WAS THE HUMIDITY? (IN PER CENT)"; HM$
30 INPUT "WHAT WAS THE BAROMETRIC PRESSURE?"; BP$ : INPUT "WHAT WAS THE 
WIND? (IN M.P.H.)"; WI$
35 HT = VAL (HT$) : DP = VAL (DP$) : HM = VAL (HM$) : BP = VAL (BP$) : LT 
= VAL (LT$) : WI = VAL (WI$)
40 IF HT>32 THEN X <.095 : GOTO 50 
41 IF HT<32 THEN X >.095 : GOTO 50
50 IF DP>32 THEN Y <.015 : GOTO 60
51 IF DP<32 THEN Y >.015 : GOTO 60
60 IF HM>50 THEN Z >.195 : GOTO 70
61 IF HM<50 THEN Z <.095 : GOTO 70
70 IF BP>29 THEN W <.045 : GOTO 80
71 IF BP<29 THEN W >.095 : GOTO 80
80 IF LT>32 THEN V <.001 : GOTO 90
81 IF LT<32 THEN V >.455 : GOTO 90
90 IF WI>15 THEN U >.195 : GOTO 95
91 IF WI<15 THEN U <.095 : GOTO 95
95 R = INT (RND (1) * 10) : IF X<.095 AND Y<.015 AND Z<.095 AND W<.045 AND 
V<.001 AND U <.095 THEN PRINT "FORCAST: TOMORROW...SUNNY..." ; HT + R ; 
"FOR A HIGH AND EXPECT "; LT + R ; "FOR A LOW...LESS THAN 10% CHANCE OF 
PERCIPITATION."
97 IF X>.095 AND Y>.015 AND Z>.195 AND W>.095 AND V>.455 AND U >.195 THEN 
PRINT "FORCAST: TOMORROW...MOSTLY CLOUDY..." ; HT - R ; "FOR A HIGH AND 
EXPECT "; LT - R ; "FOR A LOW...MORE THAN A 20% CHANCE OF PERCIPITATION 
(A MIXTURE OF RAIN AND/OR SNOW)."
99 IF X<.095 AND Y>.015 AND Z>.195 AND W>.095 AND V<.001 AND U >.195 THEN 
PRINT "FORCAST: TOMORROW...MOSTLY CLOUDY..." ; HT + R ; "FOR A HIGH AND 
EXPECT "; LT + R ; "FOR A LOW...MORE THAN A 20% CHANCE OF PERCIPITATION 
(RAIN AND/OR HAIL)."
100 PRINT "FORCAST: VERY LITTLE CHANGE PREDICTED...EXPECT HIGH TO BE 
AROUND "; HT + R ; "WITH THE LOW REACHING DOWN TO ABOUT "; LT + R ;"."
101 PRINT "NO MEASURABLE AMOUNT OF PERCIPITATION IS EXPECTED WITHIN THE 
NEXT FEW DAYS."
102 PRINT : PRINT "HAVE A NICE DAY."
103 PRINT " --- APPLE WEATHER SERVICE (AWS) --- "

Have fun!

Regards,

Paul Allen Panks
E-mail: pap@dana.ucc.nau.edu

 --
------------------------------------------------------------------------------
This signature file was brought to you by Paul Panks, not Micro$oft, IBM, 
or any of those other money-sapping, machine-wasting companies bent on world 
domination. Did you here that Micro$oft wants to purchase the Catholic 
Church? I don't think Bill Gates would make a very good choir boy. I think 
its time to put our foots down and stop this maniac before he declares his 
campaign for the Presidency!
*** Check out Jim Brain's WWW Page at: Http://www.msen.com/~brain/ ***
(You'll be glad you did!)
E-mail: pap@dana.ucc.nau.edu

"If you quote me on this, I'll have to deny it. Besides, my memory is 
*terrible*. I forget things often. Also, my memory is *horrible*."
------------------------------------------------------------------------------