TAG.128
FILE INFORMATION
FILENAME(S): TAG.128
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-10-19 22:49:42
APPEARS ON: 1 disk(s)
FILE HASH
564182aa7e070881ace386955356e1d80e7b000fd6a96c0ad35e24c3e2d8e908
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 128 GAMES | TAG.128 | PRG | Radd Maxx | 21 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 0D 40 64 00 DE 31 2C 31 3A DE 30 00 26 40 |.@.@d..1,1:.0.&@|
00000010: 78 00 E8 20 30 20 3A 20 8F 20 43 4C 45 41 52 20 |x.. 0 : . CLEAR |
00000020: 53 43 52 45 45 4E 00 3D 40 82 00 99 C7 28 31 34 |SCREEN.=@....(14|
00000030: 29 3A 8F 20 4C 4F 57 45 52 43 41 53 45 00 5C 40 |):. LOWERCASE.\@|
00000040: 8C 00 E7 20 30 2C 31 20 3A 20 8F 20 42 4C 41 43 |... 0,1 : . BLAC|
00000050: 4B 20 42 41 43 4B 47 52 4F 55 4E 44 00 7C 40 96 |K BACKGROUND.|@.|
00000060: 00 E7 20 31 2C 38 20 3A 20 8F 20 59 45 4C 4C 4F |.. 1,8 : . YELLO|
00000070: 57 20 46 4F 52 45 47 52 4F 55 4E 44 00 97 40 A0 |W FOREGROUND..@.|
00000080: 00 E7 20 34 2C 31 20 3A 20 8F 20 42 4C 41 43 4B |.. 4,1 : . BLACK|
00000090: 20 42 4F 52 44 45 52 00 9D 40 AA 00 3A 00 B5 40 | BORDER..@..:..@|
000000A0: B4 00 96 20 A5 52 28 58 29 B2 B5 28 BB 28 31 29 |... .R(X)..(.(1)|
000000B0: AC 58 29 AA 31 00 BB 40 BE 00 3A 00 D0 40 C8 00 |.X).1..@..:..@..|
000000C0: 8F 20 43 52 45 41 54 45 20 53 50 52 49 54 45 53 |. CREATE SPRITES|
000000D0: 00 F6 40 D2 00 8B 20 C2 28 34 30 30 30 29 B2 32 |..@... .(4000).2|
000000E0: 35 32 20 A7 33 35 30 20 3A 20 8F 20 4F 4B 20 54 |52 .350 : . OK T|
000000F0: 4F 20 53 4B 49 50 00 12 41 DC 00 DE 20 31 2C 31 |O SKIP..A... 1,1|
00000100: 20 3A 20 8F 20 48 49 47 48 2D 52 45 53 20 4D 4F | : . HIGH-RES MO|
00000110: 44 45 00 32 41 E6 00 E0 20 31 2C 32 30 2C 31 2C |DE.2A... 1,20,1,|
00000120: 22 43 52 45 41 54 49 4E 47 20 53 50 52 49 54 45 |"CREATING SPRITE|
00000130: 53 22 00 42 41 F0 00 81 20 58 20 B2 20 32 20 A4 |S".BA... X . 2 .|
00000140: 20 38 00 64 41 FA 00 E2 20 31 2C 31 32 2C 31 32 | 8.dA... 1,12,12|
00000150: 2C 39 2C 37 20 3A 20 8F 20 44 52 41 57 20 43 49 |,9,7 : . DRAW CI|
00000160: 52 43 4C 45 00 81 41 04 01 DF 20 31 2C 31 32 2C |RCLE..A... 1,12,|
00000170: 31 32 20 3A 20 8F 20 46 49 4C 4C 20 49 54 20 49 |12 : . FILL IT I|
00000180: 4E 00 AF 41 0E 01 E0 20 31 2C 31 2C 31 2C C9 28 |N..A... 1,1,1,.(|
00000190: C4 28 58 AB 31 29 2C 31 29 2C 31 20 3A 20 8F 20 |.(X.1),1),1 : . |
000001A0: 50 4C 41 43 45 20 43 48 41 52 41 43 54 45 52 00 |PLACE CHARACTER.|
000001B0: CE 41 18 01 E4 20 41 24 2C 30 2C 30 2C 32 33 2C |.A... A$,0,0,23,|
000001C0: 32 31 20 3A 20 8F 20 43 4F 4E 56 45 52 54 00 ED |21 : . CONVERT..|
000001D0: 41 22 01 FE 16 20 41 24 2C 58 20 3A 20 8F 20 53 |A"... A$,X : . S|
000001E0: 41 56 45 20 41 53 20 53 50 52 49 54 45 00 F3 41 |AVE AS SPRITE..A|
000001F0: 2C 01 82 00 21 42 36 01 E0 20 31 2C 31 2C 31 2C |,...!B6.. 1,1,1,|
00000200: 22 2A 22 2C 31 20 3A 20 8F 20 55 53 45 20 22 2A |"*",1 : . USE "*|
00000210: 22 20 46 4F 52 20 59 4F 55 52 20 53 50 52 49 54 |" FOR YOUR SPRIT|
00000220: 45 00 34 42 40 01 E4 20 41 24 2C 30 2C 30 2C 32 |E.4B@.. A$,0,0,2|
00000230: 33 2C 32 31 00 40 42 4A 01 FE 16 20 41 24 2C 31 |3,21.@BJ... A$,1|
00000240: 00 46 42 54 01 3A 00 6E 42 5E 01 DE 20 30 20 3A |.FBT.:.nB^.. 0 :|
00000250: 20 E8 20 30 20 3A 20 8F 20 42 41 43 4B 20 54 4F | . 0 : . BACK TO|
00000260: 20 4E 4F 52 4D 41 4C 20 53 43 52 45 45 4E 00 74 | NORMAL SCREEN.t|
00000270: 42 68 01 3A 00 92 42 72 01 8F 20 43 4F 4C 4F 52 |Bh.:..Br.. COLOR|
00000280: 20 41 4E 44 20 50 4C 41 43 45 20 53 50 52 49 54 | AND PLACE SPRIT|
00000290: 45 53 00 A2 42 7C 01 81 20 58 20 B2 20 31 20 A4 |ES..B|.. X . 1 .|
000002A0: 20 38 00 B7 42 86 01 FE 07 20 58 2C 31 2C 58 AA | 8..B.... X,1,X.|
000002B0: 31 2C 31 2C 30 2C 30 00 CD 42 90 01 FE 06 20 58 |1,1,0,0..B.... X|
000002C0: 2C 34 30 AC 58 2C 32 30 AC 58 AA 32 30 00 D5 42 |,40.X,20.X.20..B|
000002D0: 9A 01 82 20 58 00 E5 42 A4 01 FE 06 20 31 2C 36 |... X..B.... 1,6|
000002E0: 30 2C 31 38 30 00 EB 42 AE 01 3A 00 FD 42 B8 01 |0,180..B..:..B..|
000002F0: 8F 20 52 45 41 44 20 42 49 4E 41 52 59 00 16 43 |. READ BINARY..C|
00000300: C2 01 81 20 58 B2 31 A4 38 20 3A 20 87 20 42 28 |... X.1.8 : . B(|
00000310: 58 29 20 3A 20 82 00 31 43 CC 01 83 20 31 2C 32 |X) : ..1C... 1,2|
00000320: 2C 34 2C 38 2C 31 36 2C 33 32 2C 36 34 2C 31 32 |,4,8,16,32,64,12|
00000330: 38 00 37 43 D6 01 3A 00 52 43 E0 01 8F 20 46 4F |8.7C..:.RC... FO|
00000340: 52 20 44 49 53 4B 20 55 53 45 52 53 20 4F 4E 4C |R DISK USERS ONL|
00000350: 59 21 00 68 43 EA 01 FE 0D 20 23 32 2C 22 54 41 |Y!.hC.... #2,"TA|
00000360: 47 2E 53 43 4F 52 45 22 00 89 43 F4 01 8B 20 44 |G.SCORE"..C... D|
00000370: 53 B3 B1 30 20 A7 20 48 53 B2 30 3A 48 53 24 B2 |S..0 . HS.0:HS$.|
00000380: 22 22 20 3A 20 89 35 33 30 00 93 43 FE 01 84 32 |"" : .530..C...2|
00000390: 2C 48 53 00 9E 43 08 02 84 32 2C 48 53 24 00 A8 |,HS..C...2,HS$..|
000003A0: 43 12 02 FE 0F 20 23 32 00 AE 43 1C 02 3A 00 CE |C.... #2..C..:..|
000003B0: 43 26 02 8F 20 50 52 49 4E 54 20 50 52 45 56 49 |C&.. PRINT PREVI|
000003C0: 4F 55 53 20 48 49 47 48 20 53 43 4F 52 45 00 DF |OUS HIGH SCORE..|
000003D0: 43 30 02 8B 20 48 53 B2 30 20 A7 36 30 30 20 00 |C0.. HS.0 .600 .|
000003E0: EA 43 3A 02 E7 20 35 2C 31 33 00 10 44 44 02 50 |.C:.. 5,13..DD.P|
000003F0: 24 B2 22 C2 45 53 54 20 D3 43 4F 52 45 3A 22 AA |$.".EST .CORE:".|
00000400: C4 28 48 53 29 AA 22 20 42 59 20 22 AA 48 53 24 |.(HS)." BY ".HS$|
00000410: 00 22 44 4E 02 E0 20 30 2C 35 2C 32 32 2C 50 24 |."DN.. 0,5,22,P$|
00000420: 2C 30 00 36 44 58 02 53 43 20 B2 20 30 20 3A 20 |,0.6DX.SC . 0 : |
00000430: 54 41 20 B2 20 31 00 3C 44 62 02 3A 00 5D 44 6C |TA . 1.<Db.:.]Dl|
00000440: 02 54 49 24 B2 22 30 30 30 30 30 30 22 20 3A 20 |.TI$."000000" : |
00000450: 8F 20 52 45 53 45 54 20 43 4C 4F 43 4B 00 63 44 |. RESET CLOCK.cD|
00000460: 76 02 3A 00 8D 44 80 02 8F 20 52 41 4E 44 4F 4D |v.:..D... RANDOM|
00000470: 20 54 41 47 20 2A 2A 2A 20 4D 41 49 4E 20 41 43 | TAG *** MAIN AC|
00000480: 54 49 4F 4E 20 4C 4F 4F 50 20 2A 2A 2A 00 B9 44 |TION LOOP ***..D|
00000490: 8A 02 8F 20 20 57 48 45 4E 20 59 4F 55 20 54 59 |... WHEN YOU TY|
000004A0: 50 45 20 54 48 49 53 20 49 4E 2C 20 45 4C 49 4D |PE THIS IN, ELIM|
000004B0: 49 4E 41 54 45 20 41 4C 4C 00 EB 44 94 02 8F 20 |INATE ALL..D... |
000004C0: 20 27 52 45 4D 27 20 53 54 41 54 45 4D 45 4E 54 | 'REM' STATEMENT|
000004D0: 53 20 42 45 54 57 45 45 4E 20 4C 49 4E 45 53 20 |S BETWEEN LINES |
000004E0: 36 37 30 20 41 4E 44 20 39 37 30 00 FA 44 9E 02 |670 AND 970..D..|
000004F0: EB 20 FD 20 4F 56 45 52 B2 30 00 12 45 A8 02 8F |. . OVER.0..E...|
00000500: 20 43 48 41 4E 47 45 20 44 49 52 45 43 54 49 4F | CHANGE DIRECTIO|
00000510: 4E 3F 00 34 45 B2 02 8B A5 52 28 31 30 29 B3 33 |N?.4E....R(10).3|
00000520: A7 FE 06 A5 52 28 37 29 AA 31 2C A5 52 28 33 36 |....R(7).1,.R(36|
00000530: 30 29 23 33 00 55 45 BC 02 4A B2 CF 28 31 29 3A |0)#3.UE..J..(1):|
00000540: 20 8F 20 47 45 54 20 4A 4F 59 53 54 49 43 4B 20 | . GET JOYSTICK |
00000550: 56 41 4C 55 45 00 74 45 C6 02 8B 4A B1 31 32 37 |VALUE.tE...J.127|
00000560: A7 4A B2 4A AB 31 32 38 3A 53 50 B2 37 3A D5 20 |.J.J.128:SP.7:. |
00000570: 53 50 B2 35 00 AC 45 D0 02 8B 4A A7 FE 06 31 2C |SP.5..E...J...1,|
00000580: 4A AC 34 35 AB 34 35 23 53 50 3A 89 37 33 30 3A |J.45.45#SP:.730:|
00000590: D5 3A FE 06 31 2C 30 23 30 3A 8F 20 43 48 41 4E |.:..1,0#0:. CHAN|
000005A0: 47 45 20 44 49 52 45 43 54 49 4F 4E 00 D0 45 DA |GE DIRECTION..E.|
000005B0: 02 42 B2 CE 03 28 31 29 3A 8F 20 53 45 45 20 49 |.B...(1):. SEE I|
000005C0: 46 20 53 50 52 49 54 45 53 20 42 55 4D 50 45 44 |F SPRITES BUMPED|
000005D0: 00 F2 45 E4 02 8B 28 42 AF 31 29 B2 30 A7 38 35 |..E...(B.1).0.85|
000005E0: 30 3A 20 8F 20 4E 4F 54 20 59 4F 55 52 20 42 55 |0: . NOT YOUR BU|
000005F0: 4D 50 00 22 46 EE 02 8B 28 42 AB 31 AF 42 28 54 |MP."F...(B.1.B(T|
00000600: 41 AA 31 29 29 B3 B1 42 28 54 41 AA 31 29 A7 38 |A.1))..B(TA.1).8|
00000610: 33 30 20 3A 20 8F 20 57 52 4F 4E 47 20 42 55 4D |30 : . WRONG BUM|
00000620: 50 21 00 52 46 F8 02 FE 06 54 41 AA 31 2C 30 2C |P!.RF....TA.1,0,|
00000630: 30 3A 20 8F 20 4D 4F 56 45 20 54 41 47 47 45 44 |0: . MOVE TAGGED|
00000640: 20 54 41 52 47 45 54 20 4F 55 54 20 4F 46 20 57 | TARGET OUT OF W|
00000650: 41 59 00 73 46 02 03 53 43 B2 53 43 AA 31 30 30 |AY.sF..SC.SC.100|
00000660: 20 3A 20 8F 20 49 4E 43 52 45 41 53 45 20 53 43 | : . INCREASE SC|
00000670: 4F 52 45 00 8F 46 0C 03 54 41 B2 54 41 AA 31 20 |ORE..F..TA.TA.1 |
00000680: 3A 20 8F 20 4E 45 58 54 20 54 41 52 47 45 54 00 |: . NEXT TARGET.|
00000690: 9E 46 16 03 8B 54 41 B1 37 A7 54 41 B2 31 00 BE |.F...TA.7.TA.1..|
000006A0: 46 20 03 DA 31 2C 54 41 AC 35 30 30 AA 32 30 30 |F ..1,TA.500.200|
000006B0: 30 30 2C 31 30 20 3A 20 8F 20 42 45 45 50 00 C7 |00,10 : . BEEP..|
000006C0: 46 2A 03 89 38 35 30 00 E2 46 34 03 8F 20 54 41 |F*..850..F4.. TA|
000006D0: 47 47 45 44 20 57 52 4F 4E 47 20 53 50 52 49 54 |GGED WRONG SPRIT|
000006E0: 45 21 00 FC 46 3E 03 53 43 B2 53 43 AB 31 30 30 |E!..F>.SC.SC.100|
000006F0: 20 3A 20 8F 20 50 45 4E 41 4C 54 59 00 13 47 48 | : . PENALTY..GH|
00000700: 03 DA 31 2C 35 30 30 30 2C 31 30 2C 30 2C 30 2C |..1,5000,10,0,0,|
00000710: 30 2C 33 00 37 47 52 03 42 B2 CE 03 28 31 29 20 |0,3.7GR.B...(1) |
00000720: 3A 20 8F 20 52 45 53 45 54 20 42 55 4D 50 20 52 |: . RESET BUMP R|
00000730: 45 47 49 53 54 45 52 00 54 47 5C 03 8F 20 50 52 |EGISTER.TG\.. PR|
00000740: 49 4E 54 20 53 43 4F 52 45 2C 20 54 49 4D 45 20 |INT SCORE, TIME |
00000750: 4C 45 46 54 00 68 47 66 03 99 22 13 05 12 D3 43 |LEFT.hGf.."....C|
00000760: 4F 52 45 92 20 22 3B 3A 00 7B 47 70 03 99 FB 22 |ORE. ";:.{Gp..."|
00000770: 23 23 23 23 23 23 22 3B 53 43 3B 00 91 47 7A 03 |######";SC;..Gz.|
00000780: 99 22 20 20 12 D4 41 52 47 45 54 92 20 22 3B 54 |." ..ARGET. ";T|
00000790: 41 00 A9 47 84 03 99 22 13 05 22 A3 32 35 29 22 |A..G..."..".25)"|
000007A0: 12 D4 49 4D 45 92 20 22 3B 00 BD 47 8E 03 4D B2 |..IME. ";..G..M.|
000007B0: C5 28 CA 28 54 49 24 2C 33 2C 32 29 29 00 CF 47 |.(.(TI$,3,2))..G|
000007C0: 98 03 53 B2 C5 28 C9 28 54 49 24 2C 32 29 29 00 |..S..(.(TI$,2)).|
000007D0: EE 47 A2 03 54 52 B2 31 32 30 AB 4D AC 36 30 AB |.G..TR.120.M.60.|
000007E0: 53 3A 8B 54 52 B3 30 A7 4F 56 45 52 B2 31 00 07 |S:.TR.0.OVER.1..|
000007F0: 48 AC 03 4D B2 B5 28 54 52 AD 36 30 29 3A 53 B2 |H..M..(TR.60):S.|
00000800: 54 52 AB 4D AC 36 30 00 1E 48 B6 03 99 FB 20 22 |TR.M.60..H.... "|
00000810: 23 23 2E 23 23 22 3B 4D AA 53 AD 31 30 30 00 35 |##.##";M.S.100.5|
00000820: 48 C0 03 A1 41 24 3A 8B 41 24 B2 22 51 22 A7 4F |H...A$:.A$."Q".O|
00000830: 56 45 52 B2 31 00 52 48 CA 03 EC 20 3A 20 8F 20 |VER.1.RH... : . |
00000840: 42 41 43 4B 20 54 4F 20 22 44 4F 20 57 48 49 4C |BACK TO "DO WHIL|
00000850: 45 22 00 58 48 D4 03 3A 00 68 48 DE 03 8F 20 47 |E".XH..:.hH... G|
00000860: 41 4D 45 20 4F 56 45 52 00 73 48 E8 03 81 58 B2 |AME OVER.sH...X.|
00000870: 31 A4 38 00 93 48 F2 03 FE 06 20 58 2C 30 23 30 |1.8..H.... X,0#0|
00000880: 20 3A 20 8F 20 46 52 45 45 5A 45 20 53 50 52 49 | : . FREEZE SPRI|
00000890: 54 45 53 00 99 48 FC 03 82 00 A4 48 06 04 E7 20 |TES..H.....H... |
000008A0: 35 2C 31 34 00 C0 48 10 04 E0 20 30 2C 31 36 2C |5,14..H... 0,16,|
000008B0: 31 32 2C 22 C7 41 4D 45 20 CF 56 45 52 22 2C 31 |12,".AME .VER",1|
000008C0: 00 D9 48 1A 04 E7 20 34 2C 37 20 3A 20 E7 20 30 |..H... 4,7 : . 0|
000008D0: 2C 37 20 3A 20 FE 0B 20 31 00 EB 48 24 04 E7 20 |,7 : .. 1..H$.. |
000008E0: 34 2C 31 20 3A 20 E7 20 30 2C 31 00 FB 48 2E 04 |4,1 : . 0,1..H..|
000008F0: 81 20 58 20 B2 20 31 20 A4 20 38 00 11 49 38 04 |. X . 1 . 8..I8.|
00000900: FE 07 20 58 2C 30 20 3A 20 FE 06 20 58 2C 30 23 |.. X,0 : .. X,0#|
00000910: 30 00 17 49 42 04 82 00 1D 49 4C 04 3A 00 31 49 |0..IB....IL.:.1I|
00000920: 56 04 8B 20 53 43 B3 B2 48 53 20 A7 31 32 36 30 |V.. SC..HS .1260|
00000930: 20 00 46 49 60 04 8F 20 4E 45 57 20 48 49 47 48 | .FI`.. NEW HIGH|
00000940: 20 53 43 4F 52 45 00 50 49 6A 04 48 53 B2 53 43 | SCORE.PIj.HS.SC|
00000950: 00 69 49 74 04 E7 20 30 2C 36 20 3A 20 E7 20 34 |.iIt.. 0,6 : . 4|
00000960: 2C 38 20 3A 20 FE 0B 20 31 00 7B 49 7E 04 E7 20 |,8 : .. 1.{I~.. |
00000970: 34 2C 31 20 3A 20 E7 20 30 2C 31 00 A4 49 88 04 |4,1 : . 0,1..I..|
00000980: E0 20 30 2C 30 2C 31 38 2C 22 2A 2A 2A 20 CE 45 |. 0,0,18,"*** .E|
00000990: 57 20 C8 49 47 48 20 D3 43 4F 52 45 21 20 2A 2A |W .IGH .CORE! **|
000009A0: 2A 22 2C 31 00 BE 49 92 04 99 20 3A 20 85 20 22 |*",1..I... : . "|
000009B0: D9 4F 55 52 20 CE 41 4D 45 22 3B 48 53 24 00 C4 |.OUR .AME";HS$..|
000009C0: 49 9C 04 3A 00 DF 49 A6 04 8F 20 46 4F 52 20 44 |I..:..I... FOR D|
000009D0: 49 53 4B 20 55 53 45 52 53 20 4F 4E 4C 59 21 00 |ISK USERS ONLY!.|
000009E0: F1 49 B0 04 F2 20 22 54 41 47 2E 53 43 4F 52 45 |.I... "TAG.SCORE|
000009F0: 22 00 0B 4A BA 04 FE 0D 20 23 32 2C 22 54 41 47 |"..J.... #2,"TAG|
00000A00: 2E 53 43 4F 52 45 2C 53 2C 57 22 00 15 4A C4 04 |.SCORE,S,W"..J..|
00000A10: 98 32 2C 48 53 00 20 4A CE 04 98 32 2C 48 53 24 |.2,HS. J...2,HS$|
00000A20: 00 2A 4A D8 04 FE 0F 20 23 32 00 30 4A E2 04 3A |.*J.... #2.0J..:|
00000A30: 00 61 4A EC 04 E0 20 30 2C 35 2C 32 32 2C 22 D0 |.aJ... 0,5,22,".|
00000A40: 52 45 53 53 20 27 D0 27 20 54 4F 20 50 4C 41 59 |RESS '.' TO PLAY|
00000A50: 2C 20 27 D1 27 20 54 4F 20 51 55 49 54 2E 22 2C |, '.' TO QUIT.",|
00000A60: 31 00 86 4A F6 04 A1 F9 20 41 24 20 3A 20 8B 20 |1..J.... A$ : . |
00000A70: 41 24 B3 B1 22 50 22 AF 41 24 B3 B1 22 51 22 20 |A$.."P".A$.."Q" |
00000A80: A7 31 32 37 30 20 00 97 4A 00 05 8B 20 41 24 B2 |.1270 ..J... A$.|
00000A90: 22 50 22 20 A7 20 8A 00 A3 4A 0A 05 E8 20 30 20 |"P" . ...J... 0 |
00000AA0: 3A 20 80 00 00 00 |: .... |
.@.@D..1,1:.0.&@X.. 0 : . CLEAR SCREEN.=
@...G(14):. LOWERCASE.\@... 0,1 : . BLAC
K BACKGROUND.|@... 1,8 : . YELLOW FOREGR
OUND..@ .. 4,1 : . BLACK BORDER..@..:..@
... .R(X)..(.(1).X).1..@..:.P@H.. CREATE
SPRITES..@R.. B(4000).252 .350 : . OK T
O SKIP..A... 1,1 : . HIGH-RES MODE.2A...
1,20,1,"CREATING SPRITES".BA... X . 2 .
8.DA... 1,12,12,9,7 : . DRAW CIRCLE..A.
.. 1,12,12 : . FILL IT IN..A... 1,1,1,I(
D(X.1),1),1 : . PLACE CHARACTER.NA... A$
,0,0,23,21 : . CONVERT..A"... A$,X : . S
AVE AS SPRITE..A,...!B6.. 1,1,1,"*",1 :
. USE "*" FOR YOUR SPRITE.4B@.. A$,0,0,2
3,21.@BJ... A$,1.FBT.:.NB^.. 0 : . 0 : .
BACK TO NORMAL SCREEN.TBH.:..BR.. COLOR
AND PLACE SPRITES..B|.. X . 1 . 8..B...
. X,1,X.1,1,0,0.MB.... X,40.X,20.X.20.UB
... X..B.... 1,60,180..B..:..B... READ B
INARY..CB.. X.1.8 : . B(X) : ..1CL.. 1,2
,4,8,16,32,64,128.7CV.:.RC... FOR DISK U
SERS ONLY!.HC.... #2,"TAG.SCORE"..C... D
S..0 . HS.0:HS$."" : .530..C...2,HS..C..
.2,HS$..C.... #2..C..:.NC&.. PRINT PREVI
OUS HIGH SCORE..C0.. HS.0 .600 ..C:.. 5,
13..DD.P$."BEST SCORE:".D(HS)." BY ".HS$
."DN.. 0,5,22,P$,0.6DX.SC . 0 : TA . 1.<
DB.:.]DL.TI$."000000" : . RESET CLOCK.CD
V.:..D... RANDOM TAG *** MAIN ACTION LOO
P ***..D... WHEN YOU TYPE THIS IN, ELIM
INATE ALL..D... 'REM' STATEMENTS BETWEE
N LINES 670 AND 970..D... . OVER.0..E...
CHANGE DIRECTION?.4E....R(10).3....R(7)
.1,.R(360)#3.UE..J.O(1): . GET JOYSTICK
VALUE.TEF..J.127.J.J.128:SP.7:U SP.5..EP
..J...1,J.45.45#SP:.730:U:..1,0#0:. CHAN
GE DIRECTION.PEZ.B.N.(1):. SEE IF SPRITE
S BUMPED..E...(B.1).0.850: . NOT YOUR BU
MP."F...(B.1.B(TA.1))..B(TA.1).830 : . W
RONG BUMP!.RF....TA.1,0,0: . MOVE TAGGED
TARGET OUT OF WAY.SF..SC.SC.100 : . INC
REASE SCORE..F..TA.TA.1 : . NEXT TARGET.
.F...TA.7.TA.1..F .Z1,TA.500.20000,10 :
. BEEP.GF*..850..F4.. TAGGED WRONG SPRIT
E!..F>.SC.SC.100 : . PENALTY..GH.Z1,5000
,10,0,0,0,3.7GR.B.N.(1) : . RESET BUMP R
EGISTER.TG\.. PRINT SCORE, TIME LEFT.HGF
.."...SCORE. ";:.{GP..."######";SC;..GZ.
." .TARGET. ";TA..G..."..".25)".TIME. "
;..G..M.E(J(TI$,3,2)).OG..S.E(I(TI$,2)).
.G..TR.120.M.60.S:.TR.0.OVER.1..H..M..(T
R.60):S.TR.M.60..H.... "##.##";M.S.100.5
H...A$:.A$."Q".OVER.1.RHJ.. : . BACK TO
"DO WHILE".XHT.:.HH... GAME OVER.SH...X.
1.8..H.... X,0#0 : . FREEZE SPRITES..H..
...H... 5,14..H... 0,16,12,"GAME OVER",1
.YH... 4,7 : . 0,7 : .. 1..H$.. 4,1 : .
0,1..H... X . 1 . 8..I8... X,0 : .. X,0#
0..IB....IL.:.1IV.. SC..HS .1260 .FI`..
NEW HIGH SCORE.PIJ.HS.SC.IIT.. 0,6 : . 4
,8 : .. 1.{I~.. 4,1 : . 0,1..I... 0,0,18
,"*** NEW HIGH SCORE! ***",1..I... : . "
YOUR NAME";HS$.DI..:..I... FOR DISK USER
S ONLY!..I... "TAG.SCORE"..J.... #2,"TAG
.SCORE,S,W"..JD..2,HS. JN..2,HS$.*JX...
#2.0J..:.AJ... 0,5,22,"PRESS 'P' TO PLAY
, 'Q' TO QUIT.",1..J.... A$ : . A$.."P".
A$.."Q" .1270 ..J... A$."P" . ...J... 0
: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL