4 REM ิศษำ ะาฯวามอ ษำ ะมาิ ฯฦ ม ฦฯีาญ ะมาิ ำลาษลำ รมฬฬลฤ งฯฤฤอมฮง ษฮ ฮฯึฎ ญ ฦลยฎ มฮฤ ืษฬฬ ฮฯิ าีฮ ฯฮ ษิำ ฯืฮฎ     ›5 REM ANTIC MAGAZINE›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 ****************************›120 DIM RAM$(1),ROM$(1),OBJECT$(264),GEO$(264),E$(264),BOX$(16),INDEX(8)›140 DIM Z$(1)›200 MEMTOP=PEEK(106):GRTOP=MEMTOP-8:POKE 106,GRTOP:GRTOP=GRTOP+4:GRAPHICS 2›220 SETCOLOR 2,4,4:SETCOLOR 4,4,4:SETCOLOR 0,0,14:SETCOLOR 1,0,14:POKE 752,1›240 POSITION 4,2:? #6;"ODD MAN OUT"›260 POSITION 9,4:? #6;"BY"›280 POSITION 0,6:? #6;"JOHN & MARY HARRISON"›300 ? "Setting up the game, please wait."›340 AT=PEEK(140)+256*PEEK(141):VT=PEEK(134)+256*PEEK(135)›360 RAMLOC=GRTOP*256:OFFRAM=RAMLOC-AT:OFFROM=(14*4096)-AT›380 LENHI=INT(1025/256):LENLO=INT(1025-(LENHI*256))›400 OFFRAMH=INT(OFFRAM/256):OFFRAML=INT(OFFRAM-(256*OFFRAMH))›420 OFFROMH=INT(OFFROM/256):OFFROML=INT(OFFROM-(256*OFFROMH))›440 POKE VT+2,OFFRAML:POKE VT+3,OFFRAMH›460 POKE VT+4,LENLO:POKE VT+5,LENHI›480 POKE VT+6,LENLO:POKE VT+7,LENHI›500 POKE VT+10,OFFROML:POKE VT+11,OFFROMH›520 POKE VT+12,LENLO:POKE VT+13,LENHI›540 POKE VT+14,LENLO:POKE VT+15,LENHI›580 FOR I=1 TO 16:READ X:BOX$(I,I)=CHR$(X):NEXT I›620 FOR I=1 TO 256:READ X:OBJECT$(I,I)=CHR$(X):NEXT I›640 FOR I=1 TO 256:READ X:GEO$(I,I)=CHR$(X):NEXT I›660 FOR I=1 TO 256:READ X:E$(I,I)=CHR$(X):NEXT I›680 FOR I=0 TO 7:READ X:INDEX(I)=X:NEXT I›1320 RAM$=ROM$›1340 RAM$(473,488)=BOX$›1440 CHOICE=1›1460 REM SETUP GAME LEVELS I,II,III›1480 RAM$(145,208)=OBJECT$(1,64):RAM$(257,448)=OBJECT$(65,256):GOTO 1540›1540 REM PLAY GAME FOR LEVELS 1,2,3›1560 GRAPHICS 2:POKE 756,GRTOP:REM CALLUP ALTERNATE CHARACTER SET›1580 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,8›1600 SETCOLOR 2,CHOICE*2,8›1620 REM POKE 16,112:POKE 53774,112›1700 FOR K=1 TO 3›1720 FOR J=0 TO 1›1740 FOR I=0 TO 3›1760 P=INDEX(I+J*4)+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 INPUT Z$:NEXT J›1840 IF K=1 THEN RAM$(145,208)=GEO$(1,64):RAM$(257,448)=GEO$(65,256):GOTO 1880›1860 IF K=2 THEN RAM$(145,208)=E$(1,64):RAM$(257,448)=E$(65,256)›1880 NEXT K›1900 GRAPHICS 0:END ›4440 REM BITMAPS›4460 DATA 255,129,129,129,129,129,129,255›4480 DATA 255,255,255,255,255,255,255,255›4620 DATA 1,1,3,3,7,255,63,31›4640 DATA 128,128,192,192,224,255,252,248›4660 DATA 15,31,63,62,120,112,64,128›4680 DATA 240,248,252,124,30,14,2,1›4700 DATA 0,1,1,3,7,3,3,7›4720 DATA 0,128,128,192,224,192,192,224›4740 DATA 31,3,7,31,127,1,1,1›4760 DATA 248,192,224,248,254,128,128,128›4780 DATA 1,2,4,8,16,32,63,32›4800 DATA 128,64,32,16,8,4,252,4›4820 DATA 32,32,35,34,34,34,34,62›4840 DATA 4,4,196,68,68,68,68,124›4860 DATA 0,1,3,5,5,9,9,17›4880 DATA 0,0,0,128,128,64,64,32›4900 DATA 17,33,63,1,63,16,8,15›4920 DATA 32,240,0,0,252,8,16,240›4940 DATA 1,1,2,2,2,2,2,2›4960 DATA 128,128,64,64,64,64,64,64›4980 DATA 2,2,2,6,10,18,18,34›5000 DATA 64,64,64,96,80,72,72,68›5020 DATA 0,3,3,1,1,1,7,1›5040 DATA 0,128,128,0,0,0,192,0›5060 DATA 1,1,1,33,97,17,9,7›5080 DATA 0,0,0,8,12,16,32,192›5100 DATA 0,0,0,0,16,32,64,255›5120 DATA 0,0,0,0,0,7,8,255›5140 DATA 255,64,32,16,0,0,0,0›5160 DATA 255,8,7,0,0,0,0,0›5180 DATA 0,60,66,129,128,128,128,128›5200 DATA 0,60,66,129,1,1,1,1›5220 DATA 64,64,32,16,8,4,2,1›5240 DATA 2,2,4,8,16,32,64,128›5260 DATA 1,2,4,8,16,32,64,128›5280 DATA 128,64,32,16,8,4,2,1›5300 DATA 128,64,32,16,8,4,2,1›5320 DATA 1,2,4,8,16,32,64,128›5340 DATA 255,128,128,128,128,128,128,128›5360 DATA 255,1,1,1,1,1,1,1›5380 DATA 128,128,128,128,128,128,128,255›5400 DATA 1,1,1,1,1,1,1,255›5420 DATA 15,16,32,64,128,128,128,128›5440 DATA 240,8,4,2,1,1,1,1›5460 DATA 128,128,128,128,64,32,16,15›5480 DATA 1,1,1,1,2,4,8,240›5500 DATA 0,0,0,0,0,0,0,0›5520 DATA 1,3,5,9,17,33,65,129›5540 DATA 1,2,4,8,16,32,64,255›5560 DATA 1,1,1,1,1,1,1,255›5580 DATA 3,4,8,8,8,16,16,16›5600 DATA 192,32,16,16,16,8,8,8›5620 DATA 16,16,16,8,8,8,4,3›5640 DATA 8,8,8,16,16,16,32,192›5660 DATA 0,0,0,7,8,16,32,64›5680 DATA 0,0,0,224,16,8,4,2›5700 DATA 64,32,16,8,7,0,0,0›5720 DATA 2,4,8,16,224,0,0,0›5740 DATA 15,8,8,8,8,8,8,8›5760 DATA 240,16,16,16,16,16,16,16›5780 DATA 8,8,8,8,8,8,8,15›5800 DATA 16,16,16,16,16,16,16,240›5820 DATA 1,1,1,1,1,1,1,255›5840 DATA 128,128,128,128,128,128,128,255›5860 DATA 255,1,1,1,1,1,1,1›5880 DATA 255,128,128,128,128,128,128,128›5900 DATA 63,32,32,32,32,32,32,63›5920 DATA 252,0,0,0,0,0,0,252›5940 DATA 32,32,32,32,32,32,32,63›5960 DATA 0,0,0,0,0,0,0,252›5980 DATA 0,0,255,129,129,129,129,129›6000 DATA 0,0,255,1,1,1,1,1›6020 DATA 129,129,129,129,129,129,0,0›6040 DATA 1,1,1,1,1,1,0,0›6060 DATA 0,0,129,129,129,129,129,129›6080 DATA 0,0,1,1,1,1,1,1›6100 DATA 129,129,129,129,129,255,0,0›6120 DATA 1,1,1,1,1,255,0,0›6140 DATA 63,0,0,0,0,0,0,63›6160 DATA 252,4,4,4,4,4,4,252›6180 DATA 0,0,0,0,0,0,0,63›6200 DATA 4,4,4,4,4,4,4,252›6220 DATA 63,32,32,32,32,32,32,32›6240 DATA 252,0,0,0,0,0,0,0›6260 DATA 32,32,32,32,32,32,32,63›6280 DATA 0,0,0,0,0,0,0,252›6300 DATA 0,0,255,128,128,128,128,128›6320 DATA 0,0,255,1,1,1,1,1›6340 DATA 128,128,128,128,128,128,0,0›6360 DATA 1,1,1,1,1,1,0,0›6380 DATA 0,0,128,128,128,128,128,128›6400 DATA 0,0,1,1,1,1,1,1›6420 DATA 128,128,128,128,128,255,0,0›6440 DATA 1,1,1,1,1,255,0,0›6460 DATA 255,0,0,0,0,0,0,0›6480 DATA 252,4,4,4,4,4,4,4›6500 DATA 0,0,0,0,0,0,0,255›6520 DATA 4,4,4,4,4,4,4,252›6540 DATA 18,22,32,36,40,44,48,52›