5 REM ÔÈÉÓ ÐÒÏÇÒÁÍ ×ÉÌÌ ÎÏÔ ÒÕΠÏΠÉÔÓÏ×ή ÉÔ ÉÓ ÐÁÒÔ ÏÆ Á ÆÏÕÒ­ÐÁÒÔ ÓÅÒÉÅÓ ÃÁÌÌÅÄ §ÏÄÄÍÁΧ ÉΠÎÏÖ® ÔÈÒÕ ÆÅ®     ›10 REM ****************************›20 REM *                          *›30 REM *       ODD MAN OUT        *›40 REM *            BY            *›50 REM *  JOHN AND MARY HARRISON  *›60 REM *                          *›70 REM *            FOR           *›80 REM *      ANTIC MAGAZINE      *›90 REM *                          *›95 REM ****************************›160 DIM FACE$(48)›600 FOR I=1 TO 48:READ X:FACE$(I,I)=CHR$(X):NEXT I›700 TRAP 720:OPEN #4,9,0,"D:RECORD.DAT":GOTO 760›720 REM TRAP ROUTINE IF RECORD.DAT DOES NOT EXIST›740 CLOSE #4:OPEN #4,8,0,"D:RECORD.DAT"›760 TRAP 40000›780 REM INPUT CHILD'S NAME›800 GRAPHICS 0:OPEN #5,4,0,"E:"›820 POSITION 2,5:? "Hello.  What is your name? ";:INPUT #5;NAME$›840 POSITION 2,7:? "Plug your joystick into port number 1 and press the fire button to begin."›860 IF STRIG(0)<>0 THEN 860›1070 FOR DEL=1 TO 25:NEXT DEL›1360 RAM$(209,256)=FACE$(1,48)›2860 POSITION INT(LE)*4+3+(CHOICE=7),8:? #6;"\"›2880 POSITION 9,1:? #6;":;"›2900 IF INT(LE)<>ODD THEN 3000›2920 POSITION 9,2:? #6;"<="›2940 FOR K=121 TO 0 STEP -5:SOUND 0,K,12,8:SOUND 1,K+5,12,8:NEXT K:SOUND 0,0,0,0:SOUND 1,0,0,0›2960 FOR DEL=1 TO 75:NEXT DEL›2980 POSITION 9,1:? #6;"  ":POSITION 9,2:? #6;"  ":? "}":RETURN ›3000 POSITION 9,2:? #6;">?"›3020 FOR K=1 TO 30:SOUND 0,60,12,7:SOUND 0,60,12,8:NEXT K:SOUND 0,0,0,0›3040 IF FLAG=0 THEN WRONG=WRONG+1:FLAG=1›3060 POSITION 9,1:? #6;"  ":POSITION 9,2:? #6;"  "›3080 POSITION INT(LE)*4+3+(CHOICE=7),8:? #6;"[":? "}":GOTO 2540›3100 REM REWARD ROUTINE›3120 POKE AF,0›3140 GRAPHICS 21:FOR I=0 TO 2:SETCOLOR I,4,6:NEXT I:SETCOLOR 4,7,0:C=1›3160 DISP$="YEAH":PYO=22:GOSUB 3760›3180 DISP$=NAME$:PYO=31:GOSUB 3760›3200 IF WRONG=0 THEN 3240›3220 DISP$="  RIGHT":DISP$(1,1)=STR$(10-WRONG):GOTO 3260›3240 DISP$="PERFECT"›3260 PYO=40:GOSUB 3760›3280 REM ROUTINE FOR ATLEAST 8 RIGHT›3300 IF WRONG>2 THEN 4060›3320 COLOR 1:PLOT 40,0:DRAWTO 40,10:PLOT 35,5:DRAWTO 45,5›3340 COLOR 2:PLOT 42,3:DRAWTO 38,7:PLOT 38,3:DRAWTO 42,7›3360 REM ROUTINE FOR ATLEAST 9 RIGHT›3380 IF WRONG>1 THEN 4060›3400 COLOR 1:PLOT 10,12:DRAWTO 20,12:PLOT 15,7:DRAWTO 15,17›3420 COLOR 2:PLOT 17,9:DRAWTO 13,15:PLOT 13,9:DRAWTO 17,15›3440 COLOR 1:PLOT 60,12:DRAWTO 70,12:PLOT 65,7:DRAWTO 65,17›3460 COLOR 2:PLOT 67,9:DRAWTO 63,15:PLOT 63,9:DRAWTO 67,15›3480 REM ROUTINE FOR 10 RIGHT›3500 IF WRONG>0 THEN 4060›3520 SETCOLOR 2,3,4:COLOR 3›3540 FOR LP=1 TO 15:X=INT(80*RND(0)):Y=INT(20*RND(0))›3560 GOSUB 3940:PLOT X,Y:NEXT LP›3580 REM SOUND EFFECTS FOR PERFECT SCORE›3600 LO=50›3620 FOR I=1 TO 20:FOR J=0 TO 13›3640 SETCOLOR 0,J,8›3660 SETCOLOR 1,J+1,8›3680 SETCOLOR 2,J+2,8›3700 SOUND 0,LO,10,14:LO=LO-1:IF LO<35 THEN LO=50›3720 NEXT J:NEXT I:SOUND 0,0,0,0›3740 GOTO 4060›3760 PXO=(80-LEN(DISP$)*10)/2:PX=PXO:C=1:COLOR C›3780 FOR I=1 TO LEN(DISP$):PY=PYO›3800 CHAR=ASC(DISP$(I,I))-32:PTR=CHAR*8+1›3820 FOR J=PTR TO PTR+7:BITM=ASC(ROM$(J,J)):DIV=128›3840 FOR K=1 TO 8›3860 IF BITM/DIV>=1 THEN PLOT PX,PY:BITM=BITM-DIV›3880 DIV=DIV/2:PX=PX+1:NEXT K:PX=PXO:PY=PY+1›3900 C=3-C›3920 COLOR C:NEXT J:PXO=PXO+10:PY=14:COLOR 1:NEXT I:RETURN ›3940 REM EXPLOSION SOUND›3960 SOUND 2,75,8,15:V1=15:V2=15:V3=15:ICR=0.079›3980 SOUND 0,20,8,V1:SOUND 1,40,8,V2:SOUND 2,70,8,V3›4000 V1=V1*ICR:V2=V2*(ICR+0.05):V3=V3*(ICR+0.08)›4020 IF V3>1 THEN 3980›4040 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:RETURN ›4060 REM CONDUCT RECORD KEEPING AND LOOK FOR JOYSTICK INPUT TO CONTINUE›4080 ? #4;NAME$:? #4;CHOICE:? #4;10-WRONG›4100 IF STRIG(0)<>0 THEN 4100›4120 GOTO 880›4140 GRAPHICS 0:CLOSE #4:END ›4160 REM ›4500 DATA 0,7,24,32,76,76,64,64›4520 DATA 0,224,24,4,50,50,2,2›4540 DATA 64,72,68,67,32,24,7,0›4560 DATA 2,10,18,226,4,24,224,0›4580 DATA 64,67,68,70,32,24,7,0›4600 DATA 2,194,34,18,4,24,224,0›