SUPERSPRITE
FILE INFORMATION
FILENAME(S): SUPERSPRITE
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 18:07:04
APPEARS ON: 1 disk(s)
FILE HASH
f065b2620145ac949cbf07d46845d6e0cb586349d07f4e270602e037702dbc09
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE MAY 84 | SUPERSPRITE | PRG | Xii | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 0A 00 8F 41 3A 00 0F 08 14 00 3A 00 |.......A:.....:.| 00000010: 2F 08 15 00 8F 20 20 20 20 20 20 20 20 20 4C 49 |/.... LI| 00000020: 53 54 20 4F 46 20 56 41 52 49 41 42 4C 45 53 00 |ST OF VARIABLES.| 00000030: 44 08 16 00 8F 20 53 50 20 53 50 52 49 54 45 20 |D.... SP SPRITE | 00000040: 50 41 47 45 00 60 08 17 00 8F 20 56 20 20 42 41 |PAGE.`.... V BA| 00000050: 53 45 20 4F 46 20 56 49 44 45 4F 20 43 48 49 50 |SE OF VIDEO CHIP| 00000060: 00 7C 08 18 00 8F 20 43 20 20 42 41 53 45 20 4F |.|.... C BASE O| 00000070: 46 20 43 4F 4C 4F 55 52 20 52 41 4D 00 98 08 19 |F COLOUR RAM....| 00000080: 00 8F 20 53 44 20 42 41 53 45 20 4F 46 20 53 4F |.. SD BASE OF SO| 00000090: 55 4E 44 20 43 48 49 50 00 B0 08 1A 00 8F 20 53 |UND CHIP...... S| 000000A0: 20 20 42 41 53 45 20 4F 46 20 53 43 52 45 45 4E | BASE OF SCREEN| 000000B0: 00 D1 08 1B 00 8F 20 48 53 20 42 59 54 45 20 54 |...... HS BYTE T| 000000C0: 4F 20 53 41 56 45 20 48 49 47 48 20 53 43 4F 52 |O SAVE HIGH SCOR| 000000D0: 45 00 F8 08 1C 00 8F 20 43 48 20 4B 45 52 4E 41 |E...... CH KERNA| 000000E0: 4C 20 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 20 |L PRINT ROUTINE | 000000F0: 28 43 48 52 4F 55 54 29 00 1F 09 1D 00 8F 20 41 |(CHROUT)...... A| 00000100: 52 20 49 4D 41 47 45 20 4F 46 20 41 43 43 55 4D |R IMAGE OF ACCUM| 00000110: 55 4C 41 54 4F 52 20 52 45 47 49 53 54 45 52 00 |ULATOR REGISTER.| 00000120: 42 09 1E 00 8F 20 42 53 20 42 45 53 54 20 53 43 |B.... BS BEST SC| 00000130: 4F 52 45 20 59 45 54 20 41 54 20 52 55 4E 54 49 |ORE YET AT RUNTI| 00000140: 4D 45 00 68 09 1F 00 8F 20 5A 53 20 4F 4C 44 20 |ME.h.... ZS OLD | 00000150: 53 43 52 45 45 4E 20 42 41 53 45 20 41 4E 44 20 |SCREEN BASE AND | 00000160: 43 48 41 52 20 53 45 54 00 87 09 20 00 8F 20 5A |CHAR SET... .. Z| 00000170: 43 20 4F 4C 44 20 42 41 43 4B 47 52 4F 55 4E 44 |C OLD BACKGROUND| 00000180: 20 43 4F 4C 4F 55 52 00 A2 09 21 00 8F 20 5A 45 | COLOUR...!.. ZE| 00000190: 20 4F 4C 44 20 42 4F 52 44 45 52 20 43 4F 4C 4F | OLD BORDER COLO| 000001A0: 55 52 00 C4 09 22 00 8F 20 5A 52 20 4F 4C 44 20 |UR...".. ZR OLD | 000001B0: 56 41 4C 55 45 20 4F 46 20 52 45 50 45 41 54 20 |VALUE OF REPEAT | 000001C0: 46 4C 41 47 00 DE 09 23 00 8F 20 5A 4C 20 4F 4C |FLAG...#.. ZL OL| 000001D0: 44 20 50 52 49 4E 54 20 43 4F 4C 4F 55 52 00 00 |D PRINT COLOUR..| 000001E0: 0A 24 00 8F 20 47 4C 20 54 55 52 4E 20 4E 55 4D |.$.. GL TURN NUM| 000001F0: 42 45 52 20 49 4E 20 47 41 4D 45 20 4C 4F 4F 50 |BER IN GAME LOOP| 00000200: 00 20 0A 25 00 8F 20 49 20 41 4E 44 20 4A 20 20 |. .%.. I AND J | 00000210: 46 4F 52 2D 4E 45 58 54 20 49 4E 44 49 43 45 53 |FOR-NEXT INDICES| 00000220: 00 3E 0A 26 00 8F 20 55 2C 20 55 32 20 41 4E 44 |.>.&.. U, U2 AND| 00000230: 20 55 24 20 57 4F 52 4B 48 4F 52 53 45 53 00 62 | U$ WORKHORSES.b| 00000240: 0A 27 00 8F 20 54 31 2D 54 39 20 20 43 4F 4E 53 |.'.. T1-T9 CONS| 00000250: 54 41 4E 54 53 20 49 4E 20 47 41 4D 45 20 4C 4F |TANTS IN GAME LO| 00000260: 4F 50 00 86 0A 28 00 8F 20 42 24 20 47 41 4D 45 |OP...(.. B$ GAME| 00000270: 20 53 43 52 45 45 4E 20 42 55 49 4C 44 49 4E 47 | SCREEN BUILDING| 00000280: 20 42 4C 4F 43 4B 00 9F 0A 29 00 8F 20 54 24 20 | BLOCK...).. T$ | 00000290: 31 36 20 53 50 41 43 45 20 49 4E 44 45 4E 54 00 |16 SPACE INDENT.| 000002A0: C6 0A 2A 00 8F 20 57 20 20 45 49 54 48 45 52 20 |..*.. W EITHER | 000002B0: 56 20 4F 52 20 56 2B 31 20 28 53 50 52 49 54 45 |V OR V+1 (SPRITE| 000002C0: 20 50 4F 53 2E 29 00 E5 0A 2B 00 8F 20 50 53 20 | POS.)...+.. PS | 000002D0: 50 41 52 54 2D 53 43 4F 52 45 20 28 4F 4E 45 20 |PART-SCORE (ONE | 000002E0: 54 55 52 4E 29 00 01 0B 2C 00 8F 20 54 53 20 54 |TURN)...,.. TS T| 000002F0: 4F 54 41 4C 20 53 43 4F 52 45 20 53 4F 20 46 41 |OTAL SCORE SO FA| 00000300: 52 00 27 0B 2D 00 8F 20 46 51 20 51 55 49 54 20 |R.'.-.. FQ QUIT | 00000310: 46 4C 41 47 2C 20 53 45 54 20 42 59 20 50 52 45 |FLAG, SET BY PRE| 00000320: 53 53 49 4E 47 20 2A 00 2D 0B 2E 00 3A 00 47 0B |SSING *.-...:.G.| 00000330: 2F 00 8F 20 20 20 20 20 20 20 20 20 53 55 42 52 |/.. SUBR| 00000340: 4F 55 54 49 4E 45 53 00 68 0B 30 00 8F 20 20 31 |OUTINES.h.0.. 1| 00000350: 30 30 30 20 4F 4E 45 20 54 55 52 4E 20 4F 46 20 |000 ONE TURN OF | 00000360: 54 48 45 20 47 41 4D 45 00 86 0B 31 00 8F 20 20 |THE GAME...1.. | 00000370: 32 30 30 30 20 50 52 49 4E 54 20 47 41 4D 45 20 |2000 PRINT GAME | 00000380: 53 43 52 45 45 4E 00 A7 0B 32 00 8F 20 20 33 30 |SCREEN...2.. 30| 00000390: 30 30 20 45 58 49 54 20 28 4F 52 20 50 4C 41 59 |00 EXIT (OR PLAY| 000003A0: 20 41 47 41 49 4E 29 00 C0 0B 33 00 8F 20 20 34 | AGAIN)...3.. 4| 000003B0: 30 30 30 20 42 55 49 4C 44 20 53 50 52 49 54 45 |000 BUILD SPRITE| 000003C0: 00 E6 0B 34 00 8F 20 20 35 30 30 30 20 49 4E 53 |...4.. 5000 INS| 000003D0: 54 52 55 43 54 49 4F 4E 53 20 44 41 54 41 20 53 |TRUCTIONS DATA S| 000003E0: 54 52 49 4E 47 53 00 05 0C 35 00 8F 20 20 36 30 |TRINGS...5.. 60| 000003F0: 30 30 20 50 52 49 4E 54 20 49 4E 53 54 52 55 43 |00 PRINT INSTRUC| 00000400: 54 49 4F 4E 53 00 2C 0C 36 00 8F 20 20 37 30 30 |TIONS.,.6.. 700| 00000410: 30 20 46 4C 59 20 53 50 52 49 54 45 20 41 48 45 |0 FLY SPRITE AHE| 00000420: 41 44 20 4F 46 20 49 4E 53 54 52 2E 00 4C 0C 37 |AD OF INSTR..L.7| 00000430: 00 8F 20 20 38 30 30 30 20 57 41 49 54 20 54 4F |.. 8000 WAIT TO| 00000440: 20 52 45 53 55 4D 45 20 47 41 4D 45 00 52 0C 38 | RESUME GAME.R.8| 00000450: 00 3A 00 93 0C 64 00 8F 20 53 45 45 44 20 52 41 |.:...d.. SEED RA| 00000460: 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 47 45 4E 45 |NDOM NUMBER GENE| 00000470: 52 41 54 4F 52 2C 20 44 49 53 41 42 4C 45 20 43 |RATOR, DISABLE C| 00000480: 48 41 52 41 43 54 45 52 20 53 45 54 20 53 48 49 |HARACTER SET SHI| 00000490: 46 54 53 00 A9 0C 6E 00 55 B2 BB 28 AB 54 49 29 |FTS...n.U..(.TI)| 000004A0: 3A 97 36 35 37 2C 31 32 38 00 F5 0C 78 00 8F 20 |:.657,128...x.. | 000004B0: 53 41 56 45 20 4F 4C 44 20 45 4E 56 49 52 4F 4E |SAVE OLD ENVIRON| 000004C0: 4D 45 4E 54 2C 20 42 55 49 4C 44 20 4E 45 57 20 |MENT, BUILD NEW | 000004D0: 4F 4E 45 2C 20 42 55 49 4C 44 20 53 50 52 49 54 |ONE, BUILD SPRIT| 000004E0: 45 2C 20 50 52 49 4E 54 20 49 4E 53 54 52 55 43 |E, PRINT INSTRUC| 000004F0: 54 49 4F 4E 53 00 07 0D 82 00 53 50 B2 31 33 3A |TIONS.....SP.13:| 00000500: 56 B2 35 33 32 34 38 00 22 0D 8C 00 97 32 30 34 |V.53248."....204| 00000510: 31 2C C2 28 56 AA 32 34 29 3A 97 56 AA 32 34 2C |1,.(V.24):.V.24,| 00000520: 32 32 00 3C 0D 96 00 97 32 30 34 32 2C C2 28 56 |22.<....2042,.(V| 00000530: AA 33 32 29 3A 97 56 AA 33 32 2C 37 00 56 0D A0 |.32):.V.32,7.V..| 00000540: 00 97 32 30 34 33 2C C2 28 56 AA 33 33 29 3A 97 |..2043,.(V.33):.| 00000550: 56 AA 33 33 2C 37 00 6E 0D AA 00 97 32 30 34 34 |V.33,7.n....2044| 00000560: 2C C2 28 36 34 36 29 3A 97 36 34 36 2C 30 00 88 |,.(646):.646,0..| 00000570: 0D B4 00 97 32 30 34 35 2C C2 28 36 35 30 29 3A |....2045,.(650):| 00000580: 97 36 35 30 2C 31 32 38 00 97 0D BE 00 99 22 93 |.650,128......".| 00000590: 22 3A 8D 34 30 30 30 00 AF 0D C8 00 8D 36 30 30 |":.4000......600| 000005A0: 30 3A 99 22 93 22 3A 97 56 AA 32 34 2C 32 30 00 |0:.".":.V.24,20.| 000005B0: C8 0D D2 00 96 A5 53 43 28 55 29 B2 B5 28 55 AA |......SC(U)..(U.| 000005C0: 55 AC 47 4C AD 31 30 29 00 E1 0D DC 00 81 49 B2 |U.GL.10)......I.| 000005D0: 31 A4 31 36 3A 54 24 B2 54 24 AA 22 1D 22 3A 82 |1.16:T$.T$.".":.| 000005E0: 49 00 0D 0E E6 00 42 24 B2 22 11 11 11 22 AA C7 |I.....B$."..."..| 000005F0: 28 31 33 29 AA 22 12 22 3A 81 49 B2 30 A4 33 39 |(13).".":.I.0.39| 00000600: 3A 42 24 B2 42 24 AA 22 20 22 3A 82 49 00 31 0E |:B$.B$." ":.I.1.| 00000610: F0 00 56 B2 35 33 32 34 38 3A 43 B2 35 35 32 39 |..V.53248:C.5529| 00000620: 36 3A 53 B2 31 30 32 34 3A 53 44 B2 35 34 32 37 |6:S.1024:SD.5427| 00000630: 32 00 4A 0E FA 00 48 53 B2 C2 28 34 33 29 AA C2 |2.J...HS..(43)..| 00000640: 28 34 34 29 AC 32 35 36 AA 35 00 6A 0E 04 01 54 |(44).256.5.j...T| 00000650: 31 B2 31 33 35 3A 54 32 B2 32 35 35 3A 54 33 B2 |1.135:T2.255:T3.| 00000660: 32 33 30 3A 54 34 B2 31 33 33 00 8C 0E 0E 01 54 |230:T4.133.....T| 00000670: 35 B2 35 3A 54 36 B2 39 3A 54 37 B2 2E 39 39 32 |5.5:T6.9:T7..992| 00000680: 3A 54 38 B2 34 32 3A 54 39 B2 33 32 00 A9 0E 18 |:T8.42:T9.32....| 00000690: 01 42 53 B2 C2 28 48 53 29 3A 43 48 B2 36 35 35 |.BS..(HS):CH.655| 000006A0: 30 38 3A 41 52 B2 37 38 30 00 D5 0E 22 01 8F 20 |08:AR.780...".. | 000006B0: 49 4E 49 54 49 41 4C 49 5A 45 20 43 55 52 53 4F |INITIALIZE CURSO| 000006C0: 52 53 2C 20 50 52 49 4E 54 20 47 41 4D 45 20 53 |RS, PRINT GAME S| 000006D0: 43 52 45 45 4E 00 01 0F 2C 01 45 28 31 29 B2 31 |CREEN...,.E(1).1| 000006E0: 32 36 39 3A 45 28 32 29 B2 31 34 37 35 3A 45 28 |269:E(2).1475:E(| 000006F0: 33 29 B2 31 36 38 32 3A 45 28 34 29 B2 31 38 38 |3).1682:E(4).188| 00000700: 38 00 13 0F 36 01 97 56 AA 32 31 2C 30 3A 8D 32 |8...6..V.21,0:.2| 00000710: 30 30 30 00 5F 0F 40 01 8F 20 4D 41 4B 45 20 53 |000._.@.. MAKE S| 00000720: 50 41 43 45 20 46 4F 52 20 53 43 4F 52 45 20 4F |PACE FOR SCORE O| 00000730: 4E 20 53 43 52 45 45 4E 2C 20 53 45 54 20 53 4F |N SCREEN, SET SO| 00000740: 55 4E 44 20 43 48 49 50 2C 20 43 4C 45 41 52 20 |UND CHIP, CLEAR | 00000750: 4B 45 59 42 4F 41 52 44 20 42 55 46 46 45 52 00 |KEYBOARD BUFFER.| 00000760: 78 0F 4A 01 81 49 B2 31 30 38 30 A4 31 31 30 30 |x.J..I.1080.1100| 00000770: 3A 97 49 2C 33 32 3A 82 00 99 0F 54 01 97 53 44 |:.I,32:....T..SD| 00000780: AA 34 2C 31 36 3A 97 53 44 AA 31 31 2C 31 36 3A |.4,16:.SD.11,16:| 00000790: 97 53 44 AA 31 38 2C 31 36 00 BD 0F 5E 01 97 53 |.SD.18,16...^..S| 000007A0: 44 AA 36 2C 32 34 30 3A 97 53 44 AA 31 33 2C 32 |D.6,240:.SD.13,2| 000007B0: 34 30 3A 97 53 44 AA 32 30 2C 32 34 30 00 CB 0F |40:.SD.20,240...| 000007C0: 68 01 97 53 44 AA 32 34 2C 31 35 00 DF 0F 72 01 |h..SD.24,15...r.| 000007D0: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 33 37 30 00 |.A$:.A$.."".370.| 000007E0: E5 0F 7C 01 3A 00 1A 10 86 01 8F 20 42 45 47 49 |..|.:...... BEGI| 000007F0: 4E 20 32 30 2D 54 55 52 4E 20 47 41 4D 45 20 4C |N 20-TURN GAME L| 00000800: 4F 4F 50 2C 53 45 54 20 50 41 52 54 20 53 43 4F |OOP,SET PART SCO| 00000810: 52 45 20 54 4F 20 5A 45 52 4F 00 2C 10 90 01 81 |RE TO ZERO.,....| 00000820: 47 4C B2 31 A4 32 30 3A 50 53 B2 30 00 73 10 9A |GL.1.20:PS.0.s..| 00000830: 01 8F 20 50 4F 53 49 54 49 4F 4E 20 53 50 52 49 |.. POSITION SPRI| 00000840: 54 45 2C 20 55 4E 45 58 50 41 4E 44 20 49 54 2C |TE, UNEXPAND IT,| 00000850: 20 5A 45 52 4F 20 54 48 45 20 43 4F 4C 4C 49 53 | ZERO THE COLLIS| 00000860: 49 4F 4E 20 44 45 54 45 43 54 20 52 45 47 49 53 |ION DETECT REGIS| 00000870: 54 45 52 00 85 10 A4 01 97 56 2C 32 33 3A 97 56 |TER......V,23:.V| 00000880: AA 31 2C 34 39 00 99 10 AE 01 97 56 AA 32 33 2C |.1,49......V.23,| 00000890: 30 3A 97 56 AA 33 31 2C 30 00 BF 10 B8 01 8F 20 |0:.V.31,0...... | 000008A0: 50 52 49 4E 54 20 53 43 4F 52 45 20 49 4E 46 4F |PRINT SCORE INFO| 000008B0: 2C 20 54 55 52 4E 20 4F 4E 20 53 4F 55 4E 44 00 |, TURN ON SOUND.| 000008C0: E0 10 C2 01 99 22 13 11 22 54 24 22 54 55 52 4E |.....".."T$"TURN| 000008D0: 3A 22 47 4C 22 20 20 53 43 4F 52 45 3A 22 54 53 |:"GL" SCORE:"TS| 000008E0: 00 02 11 CC 01 99 22 11 22 54 24 22 1D 1D 1D 1D |......"."T$"....| 000008F0: 1D 42 45 53 54 20 59 45 54 3A 22 C2 28 48 53 29 |.BEST YET:".(HS)| 00000900: AB 31 00 23 11 D6 01 97 53 44 AA 34 2C 31 37 3A |.1.#....SD.4,17:| 00000910: 97 53 44 AA 31 31 2C 31 37 3A 97 53 44 AA 31 38 |.SD.11,17:.SD.18| 00000920: 2C 31 37 00 68 11 E0 01 8F 20 54 55 52 4E 20 4F |,17.h.... TURN O| 00000930: 4E 20 53 50 52 49 54 45 2C 20 54 41 4B 45 20 31 |N SPRITE, TAKE 1| 00000940: 20 54 55 52 4E 2C 20 47 4F 54 4F 20 35 37 30 20 | TURN, GOTO 570 | 00000950: 49 46 20 47 41 4D 45 20 41 42 4F 52 54 45 44 20 |IF GAME ABORTED | 00000960: 28 46 51 20 53 45 54 29 00 84 11 EA 01 97 56 AA |(FQ SET)......V.| 00000970: 32 31 2C 31 3A 8D 31 30 30 30 3A 8B 46 51 B2 31 |21,1:.1000:.FQ.1| 00000980: A7 35 35 30 00 D0 11 F4 01 8F 20 53 43 52 4F 4C |.550...... SCROL| 00000990: 4C 20 53 50 52 49 54 45 20 4F 46 46 20 53 43 52 |L SPRITE OFF SCR| 000009A0: 45 45 4E 20 49 46 20 4E 4F 20 43 4F 4C 4C 49 53 |EEN IF NO COLLIS| 000009B0: 49 4F 4E 2C 20 4F 54 48 45 52 57 49 53 45 20 53 |ION, OTHERWISE S| 000009C0: 43 52 45 45 43 48 20 54 4F 20 41 20 48 41 4C 54 |CREECH TO A HALT| 000009D0: 00 FC 11 FE 01 8B C2 28 56 AA 31 29 B1 54 33 A7 |.......(V.1).T3.| 000009E0: 81 49 B2 C2 28 56 AA 31 29 A4 32 35 30 3A 97 56 |.I..(V.1).250:.V| 000009F0: AA 31 2C 49 3A 82 49 3A 89 35 35 30 00 1E 12 08 |.1,I:.I:.550....| 00000A00: 02 97 53 44 AA 34 2C 31 32 39 3A 97 53 44 AA 31 |..SD.4,129:.SD.1| 00000A10: 31 2C 33 33 3A 97 53 44 AA 31 38 2C 33 33 00 4F |1,33:.SD.18,33.O| 00000A20: 12 12 02 81 20 49 B2 37 32 A4 32 30 A9 AB 32 3A |.... I.72.20..2:| 00000A30: 97 53 44 AA 31 2C 49 3A 97 53 44 AA 38 2C 49 AB |.SD.1,I:.SD.8,I.| 00000A40: 33 3A 97 53 44 AA 31 35 2C 49 AB 32 3A 82 49 00 |3:.SD.15,I.2:.I.| 00000A50: 7C 12 1C 02 8F 20 54 55 52 4E 20 4F 46 46 20 53 ||.... TURN OFF S| 00000A60: 4F 55 4E 44 2E 20 4A 55 4D 50 20 54 4F 20 45 58 |OUND. JUMP TO EX| 00000A70: 49 54 20 49 46 20 46 51 20 53 45 54 00 9D 12 26 |IT IF FQ SET...&| 00000A80: 02 97 53 44 AA 34 2C 31 36 3A 97 53 44 AA 31 31 |..SD.4,16:.SD.11| 00000A90: 2C 31 36 3A 97 53 44 AA 31 38 2C 31 36 00 BA 12 |,16:.SD.18,16...| 00000AA0: 30 02 97 53 44 AA 31 2C 30 3A 97 53 44 AA 38 2C |0..SD.1,0:.SD.8,| 00000AB0: 30 3A 97 53 44 AA 31 35 2C 30 00 DE 12 3A 02 8B |0:.SD.15,0...:..| 00000AC0: 46 51 B2 31 A7 46 51 B2 30 3A 47 4C B2 32 30 3A |FQ.1.FQ.0:GL.20:| 00000AD0: 82 3A 97 56 AA 32 31 2C 30 3A 89 36 37 30 00 2C |.:.V.21,0:.670.,| 00000AE0: 13 44 02 8F 20 43 41 4C 43 55 4C 41 54 45 20 50 |.D.. CALCULATE P| 00000AF0: 41 52 54 20 53 43 4F 52 45 20 46 52 4F 4D 20 53 |ART SCORE FROM S| 00000B00: 50 52 49 54 45 20 59 20 50 4F 53 49 54 49 4F 4E |PRITE Y POSITION| 00000B10: 2C 20 4D 4F 44 49 46 59 2C 20 41 44 44 20 54 4F |, MODIFY, ADD TO| 00000B20: 20 54 4F 54 41 4C 20 53 43 4F 52 45 00 4A 13 4E | TOTAL SCORE.J.N| 00000B30: 02 50 53 B2 A5 53 43 28 B5 28 28 C2 28 56 AA 31 |.PS..SC(.((.(V.1| 00000B40: 29 AB 37 31 29 AD 34 30 29 29 00 65 13 58 02 54 |).71).40)).e.X.T| 00000B50: 53 B2 54 53 AA B5 28 28 50 53 AE 31 2E 34 AA 50 |S.TS..((PS.1.4.P| 00000B60: 53 29 AD 32 29 00 79 13 62 02 97 56 AA 32 31 2C |S).2).y.b..V.21,| 00000B70: 30 3A 97 56 AA 31 36 2C 30 00 81 13 6C 02 82 47 |0:.V.16,0...l..G| 00000B80: 4C 00 C4 13 76 02 8F 20 55 50 44 41 54 45 20 48 |L...v.. UPDATE H| 00000B90: 49 47 48 20 53 43 4F 52 45 20 52 45 43 4F 52 44 |IGH SCORE RECORD| 00000BA0: 2C 20 5A 45 52 4F 20 53 4F 55 4E 44 20 43 48 49 |, ZERO SOUND CHI| 00000BB0: 50 2C 20 47 4F 20 54 4F 20 45 58 49 54 20 28 33 |P, GO TO EXIT (3| 00000BC0: 30 30 30 29 00 DD 13 80 02 8B C2 28 48 53 29 B3 |000).......(HS).| 00000BD0: 54 53 AA 31 A7 97 48 53 2C 54 53 AA 31 00 F5 13 |TS.1..HS,TS.1...| 00000BE0: 8A 02 81 49 B2 30 A4 32 34 3A 97 20 53 44 AA 49 |...I.0.24:. SD.I| 00000BF0: 2C 30 3A 82 49 00 05 14 94 02 81 49 B2 31 A4 35 |,0:.I......I.1.5| 00000C00: 30 30 3A 82 49 00 16 14 9E 02 8D 33 30 30 30 3A |00:.I......3000:| 00000C10: 9C 3A 89 32 31 30 00 1C 14 A8 02 3A 00 43 14 CA |.:.210.....:.C..| 00000C20: 03 8F 20 53 55 42 52 4F 55 54 49 4E 45 2D 2D 4F |.. SUBROUTINE--O| 00000C30: 4E 45 20 54 55 52 4E 20 4F 46 20 54 48 45 20 47 |NE TURN OF THE G| 00000C40: 41 4D 45 00 49 14 D4 03 3A 00 96 14 DE 03 8F 20 |AME.I...:...... | 00000C50: 44 45 43 49 44 45 20 57 48 49 43 48 20 53 50 52 |DECIDE WHICH SPR| 00000C60: 49 54 45 20 50 4F 53 49 54 49 4F 4E 20 52 45 47 |ITE POSITION REG| 00000C70: 49 53 54 45 52 20 54 4F 20 41 4C 54 45 52 20 28 |ISTER TO ALTER (| 00000C80: 57 29 20 41 4E 44 20 42 59 20 48 4F 57 20 4D 55 |W) AND BY HOW MU| 00000C90: 43 48 20 28 55 29 00 B7 14 E8 03 55 32 B2 BB 28 |CH (U).....U2..(| 00000CA0: 31 29 3A 57 B2 56 AA B5 28 55 32 AC 32 29 3A 55 |1):W.V..(U2.2):U| 00000CB0: B2 47 4C AD 37 AA 32 00 E0 14 F2 03 8F 20 59 2D |.GL.7.2...... Y-| 00000CC0: 45 58 50 41 4E 44 20 53 50 52 49 54 45 20 49 46 |EXPAND SPRITE IF| 00000CD0: 20 45 58 50 52 45 53 53 49 4F 4E 20 54 52 55 45 | EXPRESSION TRUE| 00000CE0: 00 FD 14 FC 03 8B 55 32 B1 54 37 AF C2 28 56 AA |......U2.T7..(V.| 00000CF0: 31 29 B3 54 31 A7 97 56 AA 32 33 2C 31 00 2D 15 |1).T1..V.23,1.-.| 00000D00: 06 04 8F 20 53 45 54 20 4D 53 42 20 4F 46 20 53 |... SET MSB OF S| 00000D10: 50 52 49 54 45 20 58 2D 50 4F 53 49 54 49 4F 4E |PRITE X-POSITION| 00000D20: 20 49 46 20 4E 45 43 45 53 53 41 52 59 00 57 15 | IF NECESSARY.W.| 00000D30: 10 04 8B C2 28 57 29 AA 55 B1 54 32 A7 97 56 AA |....(W).U.T2..V.| 00000D40: 31 36 2C 31 3A 97 56 2C C2 28 56 29 AA 55 AB 54 |16,1:.V,.(V).U.T| 00000D50: 32 3A 89 31 30 37 30 00 A4 15 1A 04 8F 20 55 50 |2:.1070...... UP| 00000D60: 44 41 54 45 20 53 50 52 49 54 45 20 50 4F 53 49 |DATE SPRITE POSI| 00000D70: 54 49 4F 4E 2E 20 20 45 58 49 54 20 49 46 20 43 |TION. EXIT IF C| 00000D80: 4F 4C 4C 49 53 49 4F 4E 20 44 45 54 45 43 54 45 |OLLISION DETECTE| 00000D90: 44 20 4F 52 20 34 54 48 20 47 41 50 20 43 52 4F |D OR 4TH GAP CRO| 00000DA0: 53 53 45 44 00 B2 15 24 04 97 57 2C C2 28 57 29 |SSED...$..W,.(W)| 00000DB0: AA 55 00 CF 15 2E 04 8B 28 C2 28 56 AA 33 31 29 |.U......(.(V.31)| 00000DC0: AF 31 29 B0 C2 28 56 AA 31 29 B1 54 33 A7 8E 00 |.1)..(V.1).T3...| 00000DD0: 1C 16 38 04 8F 20 43 48 41 4E 47 45 20 46 52 45 |..8.. CHANGE FRE| 00000DE0: 51 55 45 4E 43 49 45 53 20 41 43 43 4F 52 44 49 |QUENCIES ACCORDI| 00000DF0: 4E 47 20 54 4F 20 53 50 52 49 54 45 20 59 20 50 |NG TO SPRITE Y P| 00000E00: 4F 53 49 54 49 4F 4E 20 41 4E 44 20 52 41 4E 44 |OSITION AND RAND| 00000E10: 4F 4D 20 4E 55 4D 42 45 52 20 55 32 00 51 16 42 |OM NUMBER U2.Q.B| 00000E20: 04 55 B2 32 33 32 AB C2 28 56 AA 31 29 3A 97 53 |.U.232..(V.1):.S| 00000E30: 44 AA 31 2C 55 AC 32 AD 33 3A 97 53 44 AA 38 2C |D.1,U.2.3:.SD.8,| 00000E40: 55 AA 33 AC 55 32 3A 97 53 44 AA 31 35 2C 55 AA |U.3.U2:.SD.15,U.| 00000E50: 33 00 9E 16 4C 04 8F 20 50 4F 4C 4C 20 4B 45 59 |3...L.. POLL KEY| 00000E60: 42 4F 41 52 44 2E 20 45 58 49 54 20 4F 4E 20 2A |BOARD. EXIT ON *| 00000E70: 3B 20 50 41 55 53 45 20 4F 4E 20 27 20 27 3B 20 |; PAUSE ON ' '; | 00000E80: 47 4F 54 4F 31 30 30 30 20 49 46 20 4E 4F 54 20 |GOTO1000 IF NOT | 00000E90: 41 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 00 D8 |A FUNCTION KEY..| 00000EA0: 16 56 04 9E 43 48 3A 55 B2 C2 28 41 52 29 3A 8B |.V..CH:U..(AR):.| 00000EB0: 55 B2 54 38 A7 54 53 B2 30 3A 46 51 B2 31 3A 8E |U.T8.TS.0:FQ.1:.| 00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000ED0: 20 3A 8F 20 45 58 49 54 00 F1 16 60 04 8B 55 B2 | :. EXIT...`..U.| 00000EE0: 54 39 A7 8D 38 30 30 30 3A 8F 20 54 41 4B 45 20 |T9..8000:. TAKE | 00000EF0: 35 00 0B 17 6A 04 8B 55 B3 54 34 A7 31 30 30 30 |5...j..U.T4.1000| 00000F00: 3A 8F 20 49 4E 50 55 54 3C 46 31 00 53 17 74 04 |:. INPUT<F1.S.t.| 00000F10: 8F 20 4D 4F 56 45 20 4C 49 4E 45 20 52 49 47 48 |. MOVE LINE RIGH| 00000F20: 54 20 49 46 20 4B 45 59 20 4E 4F 54 20 53 48 49 |T IF KEY NOT SHI| 00000F30: 46 54 45 44 20 28 31 31 32 30 29 2C 20 4C 45 46 |FTED (1120), LEF| 00000F40: 54 20 49 46 20 53 48 49 46 54 45 44 20 28 31 31 |T IF SHIFTED (11| 00000F50: 34 30 29 00 78 17 7E 04 55 B2 55 AB 31 33 32 3A |40).x.~.U.U.132:| 00000F60: 8B 55 B3 54 35 A7 31 31 38 30 3A 8F 20 49 4E 50 |.U.T5.1180:. INP| 00000F70: 55 54 20 46 31 2D 46 34 00 95 17 88 04 8B 55 B3 |UT F1-F4......U.| 00000F80: 54 36 A7 31 32 30 30 3A 8F 20 49 4E 50 55 54 20 |T6.1200:. INPUT | 00000F90: 46 35 2D 46 38 00 AA 17 92 04 89 31 30 30 30 3A |F5-F8......1000:| 00000FA0: 8F 20 49 4E 50 55 54 3E 46 38 00 E6 17 9C 04 45 |. INPUT>F8.....E| 00000FB0: 28 55 29 B2 45 28 55 29 AA 28 45 28 55 29 B2 31 |(U).E(U).(E(U).1| 00000FC0: 31 30 30 AA 32 30 30 AC 55 AB 28 55 B1 32 29 29 |100.200.U.(U.2))| 00000FD0: 3A 97 45 28 55 29 2C 32 32 33 3A 97 45 28 55 29 |:.E(U),223:.E(U)| 00000FE0: AB 31 2C 31 36 30 2D 0A 4F 23 6C FF 33 FF 1B FF |.1,160-.O#l.3...| 00000FF0: 46 FF 66 FF 1B EA FF FF FF FF FF FF 6C B3 FF 1B |F.f.........l...| 00001000: FF 46 FF E6 2E FF FF FF FF FF FF FF FF FF 2E FF |.F..............| 00001010: 37 FF FF 2E FF 3F FF FF FF FF FF FF FF FF FF 26 |7....?.........&| 00001020: 36 FF FF FF FF FF FF FF FF FF 2E FF 37 FF FF 2E |6...........7...| 00001030: FF 3F FF FF FF 2E FF 37 FF FF FF FF DF FF FF FF |.?.....7........| 00001040: FF FF 2E FF FF FF F3 FF FF 2E FF 3F FF FF FF 2E |...........?....| 00001050: FF FF FF FF FF FF FF F3 46 37 FF D3 FF FF 2E FF |........F7......| 00001060: 3F FF DF FF 2E FF FF FF FF FF FF FF FF F3 FF FF |?...............| 00001070: 2E FF 3F FF FF FF FF FF F3 FF FF 2E FF 3F FF FF |..?..........?..| 00001080: FF FF FF FF FF FF 2E FF 37 FF FF 2E FF 3F FF FF |........7....?..| 00001090: FF FF FF FF FF FF DF FF FF FF A9 FF 97 77 FF FF |.............w..| 000010A0: 07 77 FF FF FF FF 49 47 FF FF FF FF 78 FF 17 FF |.w....IG....x...| 000010B0: 47 FF FF 97 87 FF FF FF FF FF FF FF 6F 19 FF FF |G...........o...| 000010C0: FF FF FF FF A9 FF FF FF FF FF FF 87 07 FF 07 77 |...............w| 000010D0: FF 99 FF 97 FF 78 FF FF 58 FF FF FF BF FF 4E 45 |.....x..X.....NE| 000010E0: 20 32 30 30 30 2E 20 4C 41 53 54 20 43 4F 4C 4F | 2000. LAST COLO| 000010F0: 55 52 20 49 53 20 46 4F 52 20 50 52 49 4E 54 45 |UR IS FOR PRINTE| 00001100: 44 20 4D 45 53 53 41 47 45 53 00 2B 19 D0 07 99 |D MESSAGES.+....| 00001110: 22 93 11 11 9C 22 42 24 22 1E 22 42 24 22 9A 22 |"...."B$"."B$"."| 00001120: 42 24 22 96 22 42 24 22 13 90 22 00 68 19 DA 07 |B$"."B$"..".h...| 00001130: 81 49 B2 31 A4 34 3A 97 45 28 49 29 AB 31 2C 32 |.I.1.4:.E(I).1,2| 00001140: 32 33 3A 97 45 28 49 29 AA 33 AB 28 49 B3 33 29 |23:.E(I).3.(I.3)| 00001150: 2C 39 35 3A 81 4A B2 45 28 49 29 A4 45 28 49 29 |,95:.J.E(I).E(I)| 00001160: AA 32 AB 28 49 B3 33 29 00 80 19 E4 07 97 4A 2C |.2.(I.3)......J,| 00001170: 33 32 3A 82 4A 2C 49 3A 8E 20 20 20 20 20 20 20 |32:.J,I:. | 00001180: 00 86 19 EE 07 3A 00 A9 19 A4 0B 8F 20 53 55 42 |.....:...... SUB| 00001190: 52 4F 55 54 49 4E 45 2D 2D 45 58 49 54 20 4F 52 |ROUTINE--EXIT OR| 000011A0: 20 52 45 2D 45 4E 54 52 59 00 AF 19 AE 0B 3A 00 | RE-ENTRY.....:.| 000011B0: CC 19 B8 0B 99 22 93 11 22 54 24 22 1D 1D 59 4F |.....".."T$"..YO| 000011C0: 55 52 20 53 43 4F 52 45 3A 22 54 53 00 EE 19 C2 |UR SCORE:"TS....| 000011D0: 0B 99 22 11 22 54 24 22 1D 1D 1D 1D 42 45 53 54 |.."."T$"....BEST| 000011E0: 20 59 45 54 3A 22 3B C2 28 48 53 29 AB 31 00 0A | YET:";.(HS).1..| 000011F0: 1A CC 0B 99 22 11 11 11 1D 50 4C 41 59 20 41 47 |...."....PLAY AG| 00001200: 41 49 4E 20 28 59 2F 4E 29 3F 00 1E 1A D6 0B A1 |AIN (Y/N)?......| 00001210: 41 24 3A 8B 41 24 B2 22 22 A7 33 30 33 30 00 2C |A$:.A$."".3030.,| 00001220: 1A E0 0B 8B 41 24 B2 22 59 22 A7 8E 00 3D 1A EA |....A$."Y"...=..| 00001230: 0B 8B 41 24 B2 22 4E 22 A7 33 30 37 30 00 47 1A |..A$."N".3070.G.| 00001240: F4 0B 89 33 30 33 30 00 5E 1A FE 0B 8B 20 A8 28 |...3030.^.... .(| 00001250: 42 53 B3 C2 28 48 53 29 29 A7 33 31 30 30 00 8E |BS..(HS)).3100..| 00001260: 1A 08 0C 99 3A 99 22 20 43 4F 4E 47 52 41 54 55 |....:." CONGRATU| 00001270: 4C 41 54 49 4F 4E 53 2C 20 59 4F 55 20 42 52 4F |LATIONS, YOU BRO| 00001280: 4B 45 20 54 48 45 20 52 45 43 4F 52 44 2E 00 B4 |KE THE RECORD...| 00001290: 1A 12 0C 99 3A 99 22 20 42 45 20 53 55 52 45 20 |....:." BE SURE | 000012A0: 54 4F 20 53 41 56 45 20 54 48 45 20 50 52 4F 47 |TO SAVE THE PROG| 000012B0: 52 41 4D 2E 00 CD 1A 1C 0C 99 3A 99 22 20 53 45 |RAM.......:." SE| 000012C0: 45 20 59 4F 55 20 41 52 4F 55 4E 44 2E 00 D9 1A |E YOU AROUND....| 000012D0: 26 0C 99 22 11 11 11 11 22 00 FC 1A 30 0C 8F 20 |&.."...."...0.. | 000012E0: 52 45 53 54 4F 52 45 20 50 52 45 56 49 4F 55 53 |RESTORE PREVIOUS| 000012F0: 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 00 2A 1B 3A | ENVIRONMENT.*.:| 00001300: 0C 97 56 AA 32 34 2C C2 28 32 30 34 31 29 3A 97 |..V.24,.(2041):.| 00001310: 56 AA 33 32 2C C2 28 32 30 34 32 29 3A 97 56 AA |V.32,.(2042):.V.| 00001320: 33 33 2C C2 28 32 30 34 33 29 00 4F 1B 44 0C 97 |33,.(2043).O.D..| 00001330: 36 34 36 2C C2 28 32 30 34 34 29 3A 97 36 35 30 |646,.(2044):.650| 00001340: 2C C2 28 32 30 34 35 29 3A 97 36 35 37 2C 30 00 |,.(2045):.657,0.| 00001350: 55 1B 4E 0C 80 00 5B 1B 58 0C 3A 00 A8 1B 8C 0F |U.N...[.X.:.....| 00001360: 8F 20 53 55 42 52 4F 55 54 49 4E 45 2D 2D 42 55 |. SUBROUTINE--BU| 00001370: 49 4C 44 20 53 50 52 49 54 45 20 41 54 20 50 41 |ILD SPRITE AT PA| 00001380: 47 45 20 31 33 20 28 4C 4F 43 41 54 49 4F 4E 53 |GE 13 (LOCATIONS| 00001390: 20 38 33 32 2D 38 39 35 20 49 4E 20 54 41 50 45 | 832-895 IN TAPE| 000013A0: 20 42 55 46 46 45 52 29 00 AE 1B 96 0F 3A 00 CD | BUFFER).....:..| 000013B0: 1B A0 0F 81 20 49 B2 30 A4 34 31 3A 87 55 3A 97 |.... I.0.41:.U:.| 000013C0: 28 36 34 AC 53 50 29 AA 49 2C 55 3A 82 00 E9 1B |(64.SP).I,U:....| 000013D0: AA 0F 81 49 B2 34 32 A4 36 33 3A 97 28 36 34 AC |...I.42.63:.(64.| 000013E0: 53 50 29 AA 49 2C 30 3A 82 00 10 1C B4 0F 97 32 |SP).I,0:.......2| 000013F0: 30 34 30 2C 53 50 3A 97 56 AA 32 33 2C 31 3A 97 |040,SP:.V.23,1:.| 00001400: 56 AA 32 39 2C 31 3A 97 56 AA 33 39 2C 30 3A 8E |V.29,1:.V.39,0:.| 00001410: 00 16 1C BE 0F 8E 00 39 1C C8 0F 83 20 32 34 38 |.......9.... 248| 00001420: 2C 30 2C 30 2C 36 32 2C 30 2C 30 2C 37 2C 31 32 |,0,0,62,0,0,7,12| 00001430: 38 2C 30 2C 31 2C 32 32 34 00 59 1C D2 0F 83 20 |8,0,1,224.Y.... | 00001440: 30 2C 30 2C 31 32 30 2C 30 2C 30 2C 36 32 2C 30 |0,0,120,0,0,62,0| 00001450: 2C 30 2C 31 35 2C 31 31 32 00 79 1C DC 0F 83 20 |,0,15,112.y.... | 00001460: 30 2C 37 2C 32 34 38 2C 30 2C 37 2C 32 34 38 2C |0,7,248,0,7,248,| 00001470: 30 2C 36 2C 31 32 30 2C 30 00 98 1C E6 0F 83 20 |0,6,120,0...... | 00001480: 36 2C 31 32 2C 30 2C 36 2C 36 2C 30 2C 33 2C 36 |6,12,0,6,6,0,3,6| 00001490: 2C 30 2C 31 2C 31 32 38 00 9E 1C F0 0F 3A 00 BF |,0,1,128.....:..| 000014A0: 1C 74 13 8F 20 44 41 54 41 20 46 4F 52 20 49 4E |.t.. DATA FOR IN| 000014B0: 53 54 52 55 43 54 49 4F 4E 53 20 50 41 47 45 00 |STRUCTIONS PAGE.| 000014C0: C5 1C 7E 13 3A 00 ED 1C 88 13 83 22 D9 4F 55 52 |..~.:......".OUR| 000014D0: 20 4F 42 4A 45 43 54 49 56 45 20 49 53 20 54 4F | OBJECTIVE IS TO| 000014E0: 20 4D 41 4E 45 55 56 45 52 20 54 48 45 00 18 1D | MANEUVER THE...| 000014F0: 92 13 83 22 48 4F 52 49 5A 4F 4E 54 41 4C 20 4C |..."HORIZONTAL L| 00001500: 49 4E 45 53 20 53 4F 20 54 48 41 54 20 D3 55 50 |INES SO THAT .UP| 00001510: 45 52 D3 50 52 49 54 45 00 3F 1D 9C 13 83 22 4D |ER.PRITE.?...."M| 00001520: 41 59 20 46 4C 59 20 53 41 46 45 4C 59 20 54 48 |AY FLY SAFELY TH| 00001530: 52 4F 55 47 48 20 54 48 45 20 47 41 50 53 2E 00 |ROUGH THE GAPS..| 00001540: 6A 1D A6 13 83 22 D4 48 45 20 46 4F 55 52 20 4C |j....".HE FOUR L| 00001550: 49 4E 45 53 20 41 52 45 20 43 4F 4E 54 52 4F 4C |INES ARE CONTROL| 00001560: 4C 45 44 20 42 59 20 54 48 45 00 92 1D B0 13 83 |LED BY THE......| 00001570: 22 46 4F 55 52 20 46 55 4E 43 54 49 4F 4E 20 4B |"FOUR FUNCTION K| 00001580: 45 59 53 20 4F 4E 20 59 4F 55 52 20 52 49 47 48 |EYS ON YOUR RIGH| 00001590: 54 2E 00 99 1D BA 13 83 22 00 C5 1D C4 13 83 22 |T......."......"| 000015A0: D0 52 45 53 53 49 4E 47 20 4F 4E 45 20 4F 46 20 |.RESSING ONE OF | 000015B0: 54 48 45 53 45 20 4B 45 59 53 20 57 49 4C 4C 20 |THESE KEYS WILL | 000015C0: 43 41 55 53 45 00 F2 1D CE 13 83 22 54 48 45 20 |CAUSE......"THE | 000015D0: 43 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 4C 49 |CORRESPONDING LI| 000015E0: 4E 45 20 54 4F 20 53 4C 49 44 45 20 52 49 47 48 |NE TO SLIDE RIGH| 000015F0: 54 2E 00 1C 1E D8 13 83 22 D4 48 45 20 53 41 4D |T.......".HE SAM| 00001600: 45 20 4B 45 59 20 53 48 49 46 54 45 44 20 57 49 |E KEY SHIFTED WI| 00001610: 4C 4C 20 43 41 55 53 45 20 49 54 53 00 47 1E E2 |LL CAUSE ITS.G..| 00001620: 13 83 22 4C 49 4E 45 20 54 4F 20 53 4C 49 44 45 |.."LINE TO SLIDE| 00001630: 20 4C 45 46 54 2E 20 20 D0 52 45 53 53 20 54 48 | LEFT. .RESS TH| 00001640: 45 20 53 50 41 43 45 00 69 1E EC 13 83 22 42 41 |E SPACE.i...."BA| 00001650: 52 20 54 4F 20 50 41 55 53 45 2C 20 27 2A 27 20 |R TO PAUSE, '*' | 00001660: 54 4F 20 41 42 4F 52 54 2E 00 70 1E F6 13 83 22 |TO ABORT..p...."| 00001670: 00 9E 1E 00 14 83 22 C1 20 47 41 4D 45 20 43 4F |......". GAME CO| 00001680: 4E 53 49 53 54 53 20 4F 46 20 32 30 20 54 55 52 |NSISTS OF 20 TUR| 00001690: 4E 53 2E 20 D0 4F 49 4E 54 53 20 41 52 45 00 CC |NS. .OINTS ARE..| 000016A0: 1E 0A 14 83 22 41 57 41 52 44 45 44 20 46 4F 52 |...."AWARDED FOR| 000016B0: 20 45 56 45 52 59 20 47 41 50 20 53 41 46 45 4C | EVERY GAP SAFEL| 000016C0: 59 20 54 52 41 56 45 52 53 45 44 2E 00 FA 1E 14 |Y TRAVERSED.....| 000016D0: 14 83 22 D4 48 45 20 50 41 59 4F 46 46 53 20 49 |..".HE PAYOFFS I| 000016E0: 4E 43 52 45 41 53 45 20 57 49 54 48 20 54 48 45 |NCREASE WITH THE| 000016F0: 20 4E 55 4D 42 45 52 20 4F 46 00 27 1F 1E 14 83 | NUMBER OF.'....| 00001700: 22 47 41 50 53 20 54 52 41 56 45 52 53 45 44 20 |"GAPS TRAVERSED | 00001710: 4F 4E 20 41 20 54 55 52 4E 2C 20 41 4E 44 20 57 |ON A TURN, AND W| 00001720: 49 54 48 20 54 48 45 00 53 1F 28 14 83 22 4E 55 |ITH THE.S.(.."NU| 00001730: 4D 42 45 52 20 4F 46 20 54 55 52 4E 53 20 54 41 |MBER OF TURNS TA| 00001740: 4B 45 4E 2E 20 20 D3 55 50 45 52 D3 50 52 49 54 |KEN. .UPER.PRIT| 00001750: 45 27 53 00 7E 1F 32 14 83 22 46 4C 49 47 48 54 |E'S.~.2.."FLIGHT| 00001760: 20 53 50 45 45 44 20 41 4E 44 20 4E 41 54 55 52 | SPEED AND NATUR| 00001770: 41 4C 20 57 41 59 57 41 52 44 4E 45 53 53 00 AB |AL WAYWARDNESS..| 00001780: 1F 3C 14 83 22 41 4C 53 4F 20 49 4E 43 52 45 41 |.<.."ALSO INCREA| 00001790: 53 45 20 41 53 20 54 48 45 20 47 41 4D 45 20 50 |SE AS THE GAME P| 000017A0: 52 4F 47 52 45 53 53 45 53 2E 22 00 B2 1F 46 14 |ROGRESSES."...F.| 000017B0: 83 22 00 DD 1F 50 14 83 22 D4 48 45 20 4D 41 58 |."...P..".HE MAX| 000017C0: 49 4D 55 4D 20 53 43 4F 52 45 20 49 53 20 32 35 |IMUM SCORE IS 25| 000017D0: 33 2E 20 C7 4F 4F 44 20 4C 55 43 4B 2E 00 E4 1F |3. .OOD LUCK....| 000017E0: 5A 14 83 22 00 0D 20 64 14 83 22 20 20 20 20 D0 |Z..".. d.." .| 000017F0: D2 C5 D3 D3 A0 D3 D0 C1 C3 C5 A0 C2 C1 D2 A0 D4 |................| 00001800: CF 20 D3 D4 C1 D2 D4 A0 C7 C1 CD C5 2E 00 13 20 |. ............. | 00001810: 6E 14 3A 00 38 20 5C 17 8F 20 53 55 42 52 4F 55 |n.:.8 \.. SUBROU| 00001820: 54 49 4E 45 2D 2D 50 52 49 4E 54 20 49 4E 53 54 |TINE--PRINT INST| 00001830: 52 55 43 54 49 4F 4E 53 00 3E 20 66 17 3A 00 58 |RUCTIONS.> f.:.X| 00001840: 20 70 17 97 56 2C 32 33 3A 97 56 AA 31 2C 34 39 | p..V,23:.V.1,49| 00001850: 3A 97 56 AA 32 31 2C 31 00 68 20 7A 17 8D 37 30 |:.V.21,1.h z..70| 00001860: 30 30 3A 8D 37 30 30 30 00 85 20 84 17 81 57 B2 |00:.7000.. ...W.| 00001870: 31 A4 32 33 3A 87 55 24 3A 99 55 24 3A 8D 37 30 |1.23:.U$:.U$:.70| 00001880: 30 30 3A 82 57 00 AF 20 8E 17 97 56 AA 32 31 2C |00:.W.. ...V.21,| 00001890: 30 3A 97 56 2C 32 33 3A 97 56 AA 31 2C 34 39 3A |0:.V,23:.V.1,49:| 000018A0: 97 56 AA 32 33 2C 30 3A 97 56 AA 32 39 2C 30 00 |.V.23,0:.V.29,0.| 000018B0: C8 20 98 17 A1 41 24 3A 8B 41 24 B3 B1 C7 28 33 |. ...A$:.A$...(3| 000018C0: 32 29 A7 20 36 30 34 30 00 CE 20 A2 17 8E 00 D4 |2). 6040.. .....| 000018D0: 20 AC 17 3A 00 1B 21 44 1B 8F 20 53 55 42 52 4F | ..:..!D.. SUBRO| 000018E0: 55 54 49 4E 45 2D 2D 46 4C 59 20 53 50 52 49 54 |UTINE--FLY SPRIT| 000018F0: 45 20 44 4F 57 4E 20 31 20 50 52 49 4E 54 20 4C |E DOWN 1 PRINT L| 00001900: 49 4E 45 20 28 41 48 45 41 44 20 4F 46 20 49 4E |INE (AHEAD OF IN| 00001910: 53 54 52 55 43 54 49 4F 4E 53 29 00 21 21 4E 1B |STRUCTIONS).!!N.| 00001920: 3A 00 36 21 58 1B 81 49 B2 31 A4 38 3A 97 56 2C |:.6!X..I.1.8:.V,| 00001930: C2 28 56 29 AA 31 00 4A 21 62 1B 97 56 AA 31 2C |.(V).1.J!b..V.1,| 00001940: C2 28 56 AA 31 29 AA 31 3A 82 00 5A 21 6C 1B 97 |.(V.1).1:..Z!l..| 00001950: 56 2C C2 28 56 29 AA 31 3A 8E 00 60 21 76 1B 3A |V,.(V).1:..`!v.:| 00001960: 00 83 21 2C 1F 8F 20 53 55 42 52 4F 55 54 49 4E |..!,.. SUBROUTIN| 00001970: 45 2D 2D 41 4E 53 57 45 52 20 54 48 45 20 50 48 |E--ANSWER THE PH| 00001980: 4F 4E 45 00 89 21 36 1F 3A 00 97 21 40 1F 97 20 |ONE..!6.:..!@.. | 00001990: 53 44 AA 32 34 2C 30 00 AF 21 4A 1F 9E 43 48 3A |SD.24,0..!J..CH:| 000019A0: 8B C2 28 41 52 29 B3 B1 33 32 A7 38 30 31 30 00 |..(AR)..32.8010.| 000019B0: BE 21 54 1F 97 20 53 44 AA 32 34 2C 31 35 00 C4 |.!T.. SD.24,15..| 000019C0: 21 5E 1F 8E 00 00 00 |!^..... |
.......A:.....:./.... LIST OF VA RIABLES.D.... SP SPRITE PAGE.`.... V BA SE OF VIDEO CHIP.|.... C BASE OF COLOUR RAM...... SD BASE OF SOUND CHIP...... S BASE OF SCREEN.Q.... HS BYTE TO SAVE H IGH SCORE...... CH KERNAL PRINT ROUTINE (CHROUT)...... AR IMAGE OF ACCUMULATOR R EGISTER.B.... BS BEST SCORE YET AT RUNTI ME.H.... ZS OLD SCREEN BASE AND CHAR SET ... .. ZC OLD BACKGROUND COLOUR...!.. ZE OLD BORDER COLOUR.D.".. ZR OLD VALUE OF REPEAT FLAG...#.. ZL OLD PRINT COLOUR.. .$.. GL TURN NUMBER IN GAME LOOP. .%.. I AND J FOR-NEXT INDICES.>.&.. U, U2 AND U$ WORKHORSES.B.'.. T1-T9 CONSTANTS IN GAME LOOP...(.. B$ GAME SCREEN BUILDING BLOCK...).. T$ 16 SPACE INDENT.F.*.. W EITHER V OR V+1 (SPRITE POS.)...+.. PS PART-SCORE (ONE TURN)...,.. TS TOTAL SCO RE SO FAR.'.-.. FQ QUIT FLAG, SET BY PRE SSING *.-...:.G./.. SUBROUTINES. H.0.. 1000 ONE TURN OF THE GAME...1.. 2000 PRINT GAME SCREEN...2.. 3000 EXIT (OR PLAY AGAIN)...3.. 4000 BUILD SPRITE ...4.. 5000 INSTRUCTIONS DATA STRINGS.. .5.. 6000 PRINT INSTRUCTIONS.,.6.. 700 0 FLY SPRITE AHEAD OF INSTR..L.7.. 8000 WAIT TO RESUME GAME.R.8.:...D.. SEED RA NDOM NUMBER GENERATOR, DISABLE CHARACTER SET SHIFTS...N.U..(.TI):.657,128...X.. SAVE OLD ENVIRONMENT, BUILD NEW ONE, BUI LD SPRITE, PRINT INSTRUCTIONS.....SP.13: V.53248."....2041,B(V.24):.V.24,22.<.... 2042,B(V.32):.V.32,7.V. ..2043,B(V.33):. V.33,7.N....2044,B(646):.646,0......2045 ,B(650):.650,128......".":.4000...H..600 0:.".":.V.24,20.H.R...SC(U)..(U.U.GL.10) ......I.1.16:T$.T$.".":.I.....B$."...".G (13).".":.I.0.39:B$.B$." ":.I.1...V.5324 8:C.55296:S.1024:SD.54272.J...HS.B(43).B (44).256.5.J...T1.135:T2.255:T3.230:T4.1 33.....T5.5:T6.9:T7..992:T8.42:T9.32.... .BS.B(HS):CH.65508:AR.780.U.".. INITIALI ZE CURSORS, PRINT GAME SCREEN...,.E(1).1 269:E(2).1475:E(3).1682:E(4).1888...6..V .21,0:.2000._.@.. MAKE SPACE FOR SCORE O N SCREEN, SET SOUND CHIP, CLEAR KEYBOARD BUFFER.X.J..I.1080.1100:.I,32:....T..SD .4,16:.SD.11,16:.SD.18,16...^..SD.6,240: .SD.13,240:.SD.20,240.K.H..SD.24,15...R. .A$:.A$.."".370...|.:...... BEGIN 20-TUR N GAME LOOP,SET PART SCORE TO ZERO.,.... GL.1.20:PS.0.S.... POSITION SPRITE, UNEX PAND IT, ZERO THE COLLISION DETECT REGIS TER......V,23:.V.1,49......V.23,0:.V.31, 0...... PRINT SCORE INFO, TURN ON SOUND. ..B..".."T$"TURN:"GL" SCORE:"TS...L..". "T$".....BEST YET:"B(HS).1.#.V..SD.4,17: .SD.11,17:.SD.18,17.H.... TURN ON SPRITE , TAKE 1 TURN, GOTO 570 IF GAME ABORTED (FQ SET)......V.21,1:.1000:.FQ.1.550.P.. .. SCROLL SPRITE OFF SCREEN IF NO COLLIS ION, OTHERWISE SCREECH TO A HALT......B( V.1).T3..I.B(V.1).250:.V.1,I:.I:.550.... ..SD.4,129:.SD.11,33:.SD.18,33.O.... I.7 2.20..2:.SD.1,I:.SD.8,I.3:.SD.15,I.2:.I. |.... TURN OFF SOUND. JUMP TO EXIT IF FQ SET...&..SD.4,16:.SD.11,16:.SD.18,16... 0..SD.1,0:.SD.8,0:.SD.15,0...:..FQ.1.FQ. 0:GL.20:.:.V.21,0:.670.,.D.. CALCULATE P ART SCORE FROM SPRITE Y POSITION, MODIFY , ADD TO TOTAL SCORE.J.N.PS..SC(.((B(V.1 ).71).40)).E.X.TS.TS..((PS.1.4.PS).2).Y. B..V.21,0:.V.16,0...L..GL.D.V.. UPDATE H IGH SCORE RECORD, ZERO SOUND CHIP, GO TO EXIT (3000)......B(HS).TS.1..HS,TS.1... ...I.0.24:. SD.I,0:.I......I.1.500:.I... ...3000:.:.210.....:.C.J.. SUBROUTINE--O NE TURN OF THE GAME.I.T.:...... DECIDE W HICH SPRITE POSITION REGISTER TO ALTER ( W) AND BY HOW MUCH (U).....U2..(1):W.V.. (U2.2):U.GL.7.2...... Y-EXPAND SPRITE IF EXPRESSION TRUE......U2.T7.B(V.1).T1..V .23,1.-.... SET MSB OF SPRITE X-POSITION IF NECESSARY.W....B(W).U.T2..V.16,1:.V, B(V).U.T2:.1070...... UPDATE SPRITE POSI TION. EXIT IF COLLISION DETECTED OR 4TH GAP CROSSED...$..W,B(W).U.O....(B(V.31) .1).B(V.1).T3.....8.. CHANGE FREQUENCIES ACCORDING TO SPRITE Y POSITION AND RAND OM NUMBER U2.Q.B.U.232.B(V.1):.SD.1,U.2. 3:.SD.8,U.3.U2:.SD.15,U.3...L.. POLL KEY BOARD. EXIT ON *; PAUSE ON ' '; GOTO1000 IF NOT A FUNCTION KEY.X.V..CH:U.B(AR):. U.T8.TS.0:FQ.1:. :. EXIT ...`..U.T9..8000:. TAKE 5...J..U.T4.1000 :. INPUT<F1.S.T.. MOVE LINE RIGHT IF KEY NOT SHIFTED (1120), LEFT IF SHIFTED (11 40).X.~.U.U.132:.U.T5.1180:. INPUT F1-F4 ......U.T6.1200:. INPUT F5-F8......1000: . INPUT>F8.....E(U).E(U).(E(U).1100.200. U.(U.2)):.E(U),223:.E(U).1,160-.O#L.3... F.F.........L....F..............7....?.. .......&6...........7....?.....7........ ...........?............F7.S....?....... ..........?..........?..........7....?.. .............W...W....IG....X...G....... ....O..................W.....X..X.....NE 2000. LAST COLOUR IS FOR PRINTED MESSAG ES.+.P.."...."B$"."B$"."B$"."B$"..".H.Z. .I.1.4:.E(I).1,223:.E(I).3.(I.3),95:.J.E (I).E(I).2.(I.3)......J,32:.J,I:. .....:...... SUBROUTINE--EXIT OR RE-ENTR Y.....:.L....".."T$"..YOUR SCORE:"TS...B .."."T$"....BEST YET:";B(HS).1...L.."... .PLAY AGAIN (Y/N)?...V..A$:.A$."".3030., ....A$."Y"...=....A$."N".3070.G....3030. ^.... .(BS.B(HS)).3100......:." CONGRATU LATIONS, YOU BROKE THE RECORD.......:." BE SURE TO SAVE THE PROGRAM..M....:." SE E YOU AROUND..Y.&.."...."...0.. RESTORE PREVIOUS ENVIRONMENT.*.:..V.24,B(2041):. V.32,B(2042):.V.33,B(2043).O.D..646,B(20 44):.650,B(2045):.657,0.U.N...[.X.:..... . SUBROUTINE--BUILD SPRITE AT PAGE 13 (L OCATIONS 832-895 IN TAPE BUFFER).....:.M . .. I.0.41:.U:.(64.SP).I,U:.......I.42. 63:.(64.SP).I,0:.......2040,SP:.V.23,1:. V.29,1:.V.39,0:........9.H.. 248,0,0,62, 0,0,7,128,0,1,224.Y.R.. 0,0,120,0,0,62,0 ,0,15,112.Y.... 0,7,248,0,7,248,0,6,120, 0...... 6,12,0,6,6,0,3,6,0,1,128.....:.. .T.. DATA FOR INSTRUCTIONS PAGE.E.~.:... ..."YOUR OBJECTIVE IS TO MANEUVER THE... ..."HORIZONTAL LINES SO THAT SUPERSPRITE .?...."MAY FLY SAFELY THROUGH THE GAPS.. J...."THE FOUR LINES ARE CONTROLLED BY T HE......"FOUR FUNCTION KEYS ON YOUR RIGH T.......".E.D.."PRESSING ONE OF THESE KE YS WILL CAUSE...N.."THE CORRESPONDING LI NE TO SLIDE RIGHT....X.."THE SAME KEY SH IFTED WILL CAUSE ITS.G...."LINE TO SLIDE LEFT. PRESS THE SPACE.I...."BAR TO PAU SE, '*' TO ABORT..P...."......"A GAME CO NSISTS OF 20 TURNS. POINTS ARE.L...."AWA RDED FOR EVERY GAP SAFELY TRAVERSED..... .."THE PAYOFFS INCREASE WITH THE NUMBER OF.'...."GAPS TRAVERSED ON A TURN, AND W ITH THE.S.(.."NUMBER OF TURNS TAKEN. SU PERSPRITE'S.~.2.."FLIGHT SPEED AND NATUR AL WAYWARDNESS...<.."ALSO INCREASE AS TH E GAME PROGRESSES."...F.."...P.."THE MAX IMUM SCORE IS 253. GOOD LUCK....Z..".. D .." PRESS SPACE BAR TO START GAME... N.:.8 \.. SUBROUTINE--PRINT INSTRUCTIONS .> F.:.X P..V,23:.V.1,49:.V.21,1.H Z..70 00:.7000.. ...W.1.23:.U$:.U$:.7000:.W.. ...V.21,0:.V,23:.V.1,49:.V.23,0:.V.29,0. H ...A$:.A$..G(32). 6040.N ....T ..:..!D .. SUBROUTINE--FLY SPRITE DOWN 1 PRINT L INE (AHEAD OF INSTRUCTIONS).!!N.:.6!X..I .1.8:.V,B(V).1.J!B..V.1,B(V.1).1:..Z!L.. V,B(V).1:..`!V.:..!,.. SUBROUTINE--ANSWE R THE PHONE..!6.:..!@.. SD.24,0..!J..CH: .B(AR)..32.8010..!T.. SD.24,15.D!^.....
> CLICK IMAGE PREVIEW FOR FULL MODAL