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 ****************************›140 DIM ANM$(104),NAME$(20),PMPY$(48),FRAME$(12),ERASE$(12),DISP$(20)›180 AF=77›320 FRAMES=4:FRMSZE=10:POKE AF,0›560 FOR I=1 TO 104:READ X:ANM$(I,I)=CHR$(X):NEXT I›880 GRAPHICS 17:SETCOLOR 4,2,8:SETCOLOR 0,0,14›900 ? #6:? #6;"EVERYDAY OBJECTS":? #6›920 ? #6;"SIMPLE SHAPES":? #6›940 ? #6;"E AND [":? #6›960 ? #6;"CAPITAL LETTERS":? #6›980 ? #6;"SMALL LETTERS":? #6›1000 ? #6;"DIGITS":? #6›1020 ? #6;"THREE DIGITS":? #6›1040 ? #6;"EXIT"›1060 POSITION 18,1:? #6;"<"›1080 CHOICE=1›1100 POKE AF,0:JOY=STICK(0):POS=0›1120 POS=(JOY=9 OR JOY=13 OR JOY=5)+2*(JOY=10 OR JOY=14 OR JOY=6)+1›1140 ON POS GOTO 1300,1160,1220›1160 POSITION 18,CHOICE*2-1:? #6;" "›1180 CHOICE=(CHOICE=8)*1+(CHOICE<8)*(CHOICE+1)›1200 POSITION 18,CHOICE*2-1:? #6;"<":SETCOLOR 4,CHOICE*2,8:GOTO 1280›1220 POSITION 18,CHOICE*2-1:? #6;" "›1240 CHOICE=(CHOICE=1)*8+(CHOICE>1)*(CHOICE-1)›1260 POSITION 18,CHOICE*2-1:? #6;"<":SETCOLOR 4,CHOICE*2,8›1280 FOR DEL=1 TO 100:NEXT DEL›1300 IF STRIG(0)<>0 THEN 1100›1320 RAM$=ROM$:RAM$(25,128)=ANM$(1,104)›1340 RAM$(473,488)=BOX$›1380 PMPY$="#$%&'()*%+,-"›1400 PMPY$(21)="#$%&'(#./+,-"›1420 ERASE$="   "›1440 ON CHOICE GOTO 1480,1500,1520,1960,1940,2240,2240,4140›1500 RAM$(145,208)=GEO$(1,64):RAM$(257,448)=GEO$(65,256):GOTO 1540›1520 RAM$(145,208)=E$(1,64):RAM$(257,448)=E$(65,256)›1640 WRONG=0›1660 FOR LOOP=1 TO 10›1680 SAME=INT(8*RND(0))›1700 DIFF=INT(8*RND(0)):IF DIFF=SAME THEN 1700›1720 ODD=INT(4*RND(0))›1740 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I<>ODD)*SAME›1760 P=INDEX(P)+32›1780 POSITION I*4+3,5:? #6;CHR$(P);CHR$(P+1)›1800 POSITION I*4+3,6:? #6;CHR$(P+2);CHR$(P+3):POSITION I*4+3,8:? #6;"[":NEXT I›1820 GOSUB 2500:REM JUMP TO INPUT ROUTINE›1840 NEXT LOOP›1860 GOTO 3100›1880 REM SET UP FOR LEVELS IV, V›1940 RAM$(265,472)=RAM$(777,984)›1960 GRAPHICS 2:POKE 756,GRTOP›1980 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,8›2000 SETCOLOR 2,CHOICE*2,8›2020 REM POKE 16,112:POKE 53774,112›2040 WRONG=0›2060 FOR LOOP=1 TO 10:SAME=INT(26*RND(0))›2080 DIFF=INT(26*RND(0)):IF SAME=DIFF THEN 2080›2100 ODD=INT(4*RND(0))›2120 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I<>ODD)*SAME+65›2140 POSITION I*4+3,6:? #6;CHR$(P):POSITION I*4+3,8:? #6;"[":NEXT I›2160 GOSUB 2500:REM JUMP TO INPUT ROUTINE›2180 NEXT LOOP›2200 GOTO 3100›2220 REM SET UP FOR LEVELS VI, VII›2240 GRAPHICS 2:POKE 756,GRTOP:GOTO 2260›2260 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,8›2280 SETCOLOR 2,CHOICE*2,8›2300 REM POKE 16,112:POKE 53774,112›2320 WRONG=0:M=10:N=0:IF CHOICE=7 THEN M=900:N=100›2340 FOR LOOP=1 TO 10:SAME=INT(M*RND(0))+N›2360 DIFF=INT(M*RND(0))+N:IF SAME=DIFF THEN 2360›2380 ODD=INT(4*RND(0))›2400 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I<>ODD)*SAME›2420 POSITION I*4+3,6:? #6;P:POSITION I*4+3+(CHOICE=7),8:? #6;"[":NEXT I›2440 GOSUB 2500:REM JUMP TO INPUT ROUTINE›2460 NEXT LOOP›2480 GOTO 3100›2500 REM JOYSTICK MOVE AND INPUT ROUTINE›2520 POKE 752,1:FLAG=0›2540 POS=3:POKE 656,0:POKE 657,POS+1›2560 ? PMPY$(1,10)›2580 JOY=STICK(0):POKE AF,0›2600 IF JOY>7 THEN 2660:REM JOYSTICK RIGHT ROUTINE›2620 POS=POS+1:IF POS>34 THEN ? "}":POS=3›2640 GOTO 2700›2660 IF JOY>11 THEN 2800:REM JOYSTICK LEFT ROUTINE›2680 POS=POS-1:IF POS<4 THEN ? "}":POS=34›2700 FOR I=1 TO FRAMES:FRAME$=PMPY$(I*FRMSZE-(FRMSZE-1),I*FRMSZE)›2720 POKE 656,2:POKE 657,POS:? ERASE$;FRAME$;ERASE$;›2740 IF I/2<>INT(I/2) THEN SOUND 1,4,0,14›2760 IF I/2=INT(I/2) THEN SOUND 1,4,16,14›2780 SOUND 1,0,0,0:NEXT I›2800 IF STRIG(0)=1 THEN 2580›2820 RE=(POS-5-(CHOICE=7)*2)/8:LE=(POS-4-(CHOICE=7)*2)/8›2840 IF RE<>INT(RE) AND LE<>INT(LE) THEN 2580›2860 RETURN ›4180 DATA 0,8,24,124,252,255,31,31›4200 DATA 0,0,0,0,0,129,255,255›4220 DATA 0,16,24,62,63,255,248,248›4240 DATA 31,15,7,3,3,3,3,3›4260 DATA 255,255,129,0,0,0,0,0›4280 DATA 248,240,224,192,192,192,192,192›4300 DATA 8,60,124,252,28,28,31,31›4320 DATA 0,0,0,0,0,0,255,255›4340 DATA 31,15,7,7,13,24,48,48›4360 DATA 255,255,129,0,129,195,102,102›4380 DATA 248,240,224,224,176,24,12,12›4400 DATA 0,0,0,0,0,128,255,255›4420 DATA 16,60,62,63,56,56,248,248›