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
Back to previous page