Reprinted with permission from "The Solar Cat Book" by Jim Augustyn,
copyright 1979, Ten Spreed Press, Berkeley, California.

0005 DIM V$(40), Z$(25)
0006 PRINT
0007 PRINT
0010 PRINT "Welcome to SOLCAT-Version 1.0"
0020 PRINT
0030 PRINT "This program aids in selecting a solar cat."
0040 PRINT "Answer the foloowing questions about the cat"
0050 PRINT "under evaluation.  After answering all questions"
0060 PRINT "the program will automatically tell you how good"
0070 PRINT "or bad the cat is.  It then allows you to start"
0080 PRINT "all over again in case you want to get a"
0090 PRINT "different answer, or have another cat to"
0100 PRINT "evaluate."
0105 PRINT
0100 PRINT
0120 PRINT "All questions should be answered with a number"
0130 PRINT "from 1 to 10 unless otherwise indicated."
0140 PRINT
0150 PRINT
1000 INPUT "Name of cat (spell it out)                         =", V$
1001 PRINT
1002 INPUT "Is it really a cat? (10 is very much a cat)        =", A
1010 INPUT "Number of paws                                     =", B
1020 INPUT "Width of left front paw (in inches)                =", C
1030 INPUT "Length of tail (in paws)                           =", D
1040 INPUT "Maximum cross sectional area (in square paws)      =", E
1050 INPUT "Weight of cat (in pounds, undressed and dry)       =", F
1060 INPUT "Fur color (black = 10, white = 1, transparent = 0) =", G
1070 INPUT "Number of stripes (if no stripes, use 1)           =", H
1080 INPUT "Width of stripes (in paws)                         =", I
1090 INPUT "Number of fur colors                               =", J
1100 INPUT "Maximum purr rate (in purrs per minute)            =", K
1110 INPUT "Average fur length (in paws)                       =", L
1120 INPUT "Fear of dogs                                       =", M
1130 INPUT "How much it likes to eat                           =", N
1140 INPUT "How much it likes to lie in the sun                =", O
1150 Q7 = 0
1200 PRINT
1220 PRINT
2010 S1 = A*E*F*G*O*(B+C+D+H+I+J+K+L+(1/(1+M))+N)
3000 IF S1 = 0 THEN Z$ = "VERY BAD"
3010 IF S1 < 0 THEN Z$ = "VERY BAD"
3020 IF S1 > 0 THEN GOTO 5000
3100 PRINT USING "SOLAR CAT EVALUATION NO = ###,###,###,###,###,###.##", S1
3110 PRINT
3120 PRINT "SOLAR CAT STANDARD RATING =", Z$
3124 IF Q7 = 0 THEN GOTO 3130
3125 PRINT
3126 PRINT "Unbelievable! (but not unique)"
3127 PRINT
3128 PRINT "Nevertheless, GET IT QUICK"
3130 PRINT
3150 INPUT "Do you want to start over again? (Y or N)", Y$
3155 PRINT
3156 PRINT
3157 PRINT
3160 IF Y$ = "Y" THEN GOTO 1000
3170 IF Y$ = "y" THEN GOTO 1000
3180 IF Y$ = "YES" THEN GOTO 1000
3190 IF Y$ = "yes" THEN GOTO 1000
3200 IF Y$ = "Yes" THEN GOTO 1000
3210 GOTO 9999
5000 IF S1 = 10000 THEN GOTO 6000
5010 IF S1 < 10000 THEN GOTO 6000
5020 IF S1 = 1000000 THEN GOTO 6100
5030 IF S1 < 1000000 THEN GOTO 6100
5040 IF S1 = 10000000 THEN GOTO 6200
5050 IF S1 < 10000000 THEN GOTO 6200
5060 IF S1 = 100000000 THEN GOTO 6300
5070 IF S1 < 100000000 THEN GOTO 6300
5080 IF S1 = 1000000000 THEN GOTO 6400
5090 IF S1 < 1000000000 THEN GOTO 6400
5090 GOTO 6500
6000 Z$ = "NOT SO BAD, NOT SO GOOD"
6010 GOTO 3100
6100 Z$ = "FAIR"
6110 GOTO 3100
6200 Z$ = "PRETTY GOOD"
6210 GOTO 3100
6300 Z$ = "VERY GOOD"
6310 GOTO 3100
6400 Z$ = "VERY VERY GOOD"
6410 GOTO 3100
6500 Q7 = 1
6520 GOTO 3100
9999 END