0 REM TAG PROGRAM BY GERALD CODDINGTON (214-725-5489)
10 PRINTCHR$(142):PRINTCHR$(8):POKE53280,0:POKE53281,0:SR=1:GOTO90
20 POKEV+16,16:POKEV+43,FF:POKEV+8,40:POKEV+9,150
30 PRINT"                             IT";
40 PRINT"                                 [163][163]"
50 PRINT"                                 TIME[157][157][157][157]NOT[157][157][157]IT:[157][157][157]"RIGHT$(TI$,3)
60 IFH1$>"000200"ORH2$>"000200"THEN620
70 FORL=54272TO54296:POKEL,0:NEXT:S=54272
80 POKES+24,15:POKES+19,138:POKES+15,XX:POKES+18,17:POKEV+30,0:RETURN
90 PRINT"[147]":FF=5:POKE53280,254:TI$="000000":H1$="000000":H2$="000000"
100 V=53248:X=15:Y=47:Z=255:POKEV+30,0:
110 POKEV+21,19
120 POKE2040,13:POKE2041,13:POKE2044,13
130 POKEV+23,255:POKEV+29,255
140 FORN=0TO62:READQ:POKE832+N,Q:NEXT:GOTO900
150 POKEV+39,2:POKEV+40,5
160 IFSR=1THEN310
170 POKEV+0,255:POKEV+1,215:POKEV+2,15:POKEV+3,47:POKE53280,5
180 FORI=1TO25:PRINT"[152] ":NEXT:Q=215
190 GOSUB20
200 POKE2018,160
210 IFFF=2THENH1$=TI$
220 PRINT"                                 TIME[157][157][157][157]NOT[157][157][157]IT:[157][157][157][153]"RIGHT$(H1$,3)
230 IFH1$>"000199"ORH2$>"000199"THEN620
240 IFPEEK(V+30)AND3=3ANDFF=5THENFF=2:XX=30:TI$=H1$:POKE53280,2:GOSUB20
250 IFFF=5THENH2$=TI$
260 PRINT""
270 PRINT"                                 TIME[157][157][157][157]NOT[157][157][157]IT:[157][157][157]"RIGHT$(H2$,3)
280 IFPEEK(V+30)AND3=3ANDFF=2THENFF=5:XX=68:TI$=H2$:POKE53280,5:GOSUB20
290 IFH1$>"000199"ORH2$>"000199"THEN620
300 GOTO210
310 V=53248:POKEV+30,0:PRINT"[147]       [166][166][166][166][166][166][166][166] [153]  [166][166][166][166][166]   [166][166][166][166][166][166][166]
320 [153]"          SPC(SPC(  PRINT   SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(
330 PRINT"          [166][166]  [153]   [166][166]   [166][166]  [166][166]
340 [153]"          SPC(SPC(  PRINT   SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(  SPC(SPC(SPC(
350 PRINT"          [166][166]  [153]   [166][166]   [166][166]  [166][166]   [166][166]
360 [153]"          SPC(SPC(  PRINT   SPC(SPC(   SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(
370 PRINT"           BY GERALD  CODDINGTON"
380 PRINT""TAB(4)"DO YOU NEED INSTRUCTIONS? Y OR N"
390 AA=-35:FORI=35TO245
400 POKEV+0,I:POKEV+1,180
410 POKEV+2,I-AA:POKEV+3,180
420 GETA$:IFA$=""THEN450
430 IFA$="N"THENRESTORE:CLR:GOTO90
440 IFA$="Y"THEN770
450 AA=AA+.07:POKEV+30,0
460 IFPEEK(V+30)AND3=3THENPRINT""TAB(22)"GOT YOU!":GOTO480
470 NEXT
480 FORI=1TO1000:NEXT:PRINTTAB(11)"[145][145]YEA BUT NOW I AM CHASING YOU!"
490 AA=-30:FORI=1TO1800:NEXT:PRINT"[145][145]                                        "
500 PRINT"[145]                                    "
510 FORI=245TO35STEP-1
520 POKEV+0,I+AA:POKEV+1,180
530 POKEV+2,I:POKEV+3,180
540 GETA$:IFA$=""THEN570
550 IFA$="N"THENRESTORE:CLR:GOTO90
560 IFA$="Y"THEN770
570 POKEV+30,0
580 IFPEEK(V+30)AND3=3THENPRINTTAB(9)"[145]DARN YOU GOT ME.":GOTO610
590 AA=AA+.06
600 NEXT
610 FORI=1TO1000:NEXT:PRINT"[145]                                      [145]":RUN310
620 FORI=VTOV+9:POKEI,0:NEXT:PRINT"[147]              [152]GAME OVER"
630 PRINT"TIME:":PRINT"[153]PLAYER 1 TIME-"H1$:PRINT"PLAYER 2 TIME-"H2$
640 HS=1:IFH2$>H1$THENHS=2
650 PRINT"PLAYER"HS"WINS!"
660 PRINT"PRESS BUTTON ON JOYSTICK 1 TO PLAY AGAIN[157][145]"
670 WAIT56321,16,16:CLR:RESTORE:GOTO90
680 END
690 RESTORE:CLR:GOTO90
700 DATA0,0,0,0,126,0,0,255,0
710 DATA1,255,128,3,255,192,3,255,192
720 DATA3,153,192,3,153,192,3,153,192
730 DATA3,255,192,1,255,128,0,255,0
740 DATA0,255,0,0,66,0,0,66,0
750 DATA0,66,0,0,231,0,0,0,0
760 DATA0,0,0,0,0,0,0,0,0
770 FORI=VTOV+9:POKEI,0:NEXT:PRINT"[147]"TAB(12)"WELCOME TO TAG!"
780 PRINT"[150] THE OBJECT OF THE GAME IS TO NOT BE    "CHR$(34)"IT"CHR$(34);
790 PRINT" FOR 2 MINUTES. THE FIRST PERSON    TO DO SO WINS."
800 PRINT"[151] YOU GET THE OTHER PERSON "CHR$(34)"IT"CHR$(34)" BY "
810 PRINT"RUNNING IN";
820 PRINT"TO HIS MAN. WHEN YOU DO,      YOUR TIMER STARTS COUNTING. IF THE "
830 PRINT"OTHER PERSON TAGS YOU BACK THEN YOUR    TIMER STOPS AND HIS STARTS.
840 [153]"THIS KEEPS GOING ON UNTIL ONE OF THE":[153]"TIMERS REACHES 2 MINUTES."
850 [153]"PRINT THIS GAME REQUIRES TWO JOYSTICKS,ONE   TO MOVE EACH MAN."
860 [153]"CONT IF YOU FORGET WHO IS IT,LOOK UNDER     THE TIMERS ";
870 [153]"OR AT THE BORDER COLOR.":[153]"LIST"[163]7)"GOOD LUCK TO BOTH OF YOU!"
880 [153]"   PRESS BUTTON ON JOYSTICK 1 TO PLAY"
890 [137]670
900 [129]ADRES[178]49152[164]49305:[135]DATTA:[151]ADRES,DATTA:[130]ADRES
909 [143]***DATA FOR MACHINE LANGUAGE***
910 [131] 120, 173, 21, 3, 201, 234
920 [131] 208, 13, 169, 33, 141, 20
930 [131] 3, 169, 192, 141, 21, 3
940 [131] 76, 31, 192, 169, 49, 141
950 [131] 20, 3, 169, 234, 141, 21
960 [131] 3, 88, 96, 173, 0, 220
970 [131] 201, 123, 240, 15, 201, 119
980 [131] 240, 20, 201, 126, 240, 25
990 [131] 201, 125, 240, 30, 76, 94
1000 [131] 192, 206, 0, 208, 206, 0
1010 [131] 208, 76, 94, 192, 238, 0
1020 [131] 208, 238, 0, 208, 76, 94
1030 [131] 192, 206, 1, 208, 206, 1
1040 [131] 208, 76, 94, 192, 238, 1
1050 [131] 208, 238, 1, 208, 238, 7
1060 [131] 208, 76, 94, 192, 173, 1
1070 [131] 220, 201, 251, 240, 15, 201
1080 [131] 247, 240, 20, 201, 254, 240
1090 [131] 25, 201, 253, 240, 30, 76
1100 [131] 49, 234, 206, 2, 208, 206
1110 [131] 2, 208, 76, 49, 234, 238
1120 [131] 2, 208, 238, 2, 208, 76
1130 [131] 49, 234, 206, 3, 208, 206
1140 [131] 3, 208, 76, 49, 234, 238
1150 [131] 3, 208, 238, 3, 208, 76
1160 [131] 49, 234, 96, 0,0,0
1170 [139][194](789)[178]234[167][158]49152
1180 [137]150