?

Log in

apple_ii

Previous Entry Share Next Entry
mookieghana @ 03:07 pm: NASCAR picks..
For my weekly NASCAR picks, I like to make the fantasy league administrator work a bit. For a couple weeks, I sent in Apple //e related puzzles:

WEEK THREE:
pick #1: 03, 0C, 09, 0E, 14, 02, 0F, 17, 19, 05, 12
pick #2: 07, 12, 05, 07, 02, 09, 06, 06, 0C, 05

WEEK FIVE:
10 HOME
20 ?"WELCOME ROB!"
30 INPUT "Driver #1: ";X$
40 INPUT "Driver #2: ";Y$
50 IF LEN(X$)=11 THEN Z$=X$:X$=Y$:Y$=Z$
55 Z$=""
60 FOR T=1 TO 12
70 READ X
80 Y=ASC(MID$(X$,T,1))
90 Z$=Z$+CHR$(Y-X)
100 NEXT T
110 ? Z$
120 Z$=""
130 FOR T=1 TO 11
140 READ X
150 Y=ASC(MID$(Y$,T,1))
160 Z$=Z$+CHR$(Y-X)
170 NEXT T
180 ? Z$
190 END

300 DATA 15,8,-9,-2,-5,0,-4,8,-6,0,-4,11
310 DATA 2,-4,12,13,0,0,0,-4,1,-16,-45

DRIVER #1 is "SMELT DIGLEY" (all caps)
DRIVER #2 is "LARS GONE?!" (all caps, include the exclaimation point
and question mark)

WEEK SIX:
10 GR
20 HOME
30 COLOR=1
40 FOR Q=1 TO 2
50 FOR T=1 TO 3
60 READ X,Y,Z
70 IF T<>2 THEN VLIN X,Y AT Z
80 IF T=2 THEN HLIN X,Y AT Z
90 NEXT T
95 NEXT Q
100 DATA 10,30,10
110 DATA 5,10,30
120 DATA 25,30,5
130 DATA 10,30,30
140 DATA 25,30,30
150 DATA 25,30,25
190 ?"DRIVER #1":?"PRESS ANY KEY TO CONTINUE"
200 GET X$
500 HGR
510 HCOLOR=3
520 HPLOT 10,10 TO 10,80
530 HPLOT 80,10 TO 10,40
540 HPLOT TO 80,80
550 HPLOT 90,10 TO 100,50
560 HPLOT TO 110,10
570 HPLOT 100,50 TO 100,80
580 HPLOT 120,10 TO 120,80
590 HPLOT TO 145,80
600 HPLOT 155,10 TO 155,80
610 HPLOT TO 175,80
620 HPLOT 155,10 TO 175,10
630 HPLOT 155,50 TO 175,50
640 HOME
650 ?"DRIVER #2":?"PRESS ANY KEY TO CONTINUE"

Rest of the puzzles on my blog.

Powered by LiveJournal.com