SMOOTH SCR DEMO

00000000: 01 08 31 08 64 00 8F 22  20 D3 4D 4F 4F 54 48 20  |..1.d.." .MOOTH |
00000010: 53 43 52 4F 4C 4C 45 52  20 44 45 4D 4F 2C 20 28  |SCROLLER DEMO, (|
00000020: C3 29 20 C1 2E CD 49 4C  4C 45 54 54 20 31 39 39  |.) ...ILLETT 199|
00000030: 30 00 4B 08 78 00 8F 22  20 D4 41 4B 45 4E 20 46  |0.K.x.." .AKEN F|
00000040: 52 4F 4D 20 47 4F 4D 4F  4B 55 2E 00 6C 08 96 00  |ROM GOMOKU..l...|
00000050: 97 35 35 2C 30 3A 97 35  36 2C 31 32 38 3A 9C 3A  |.55,0:.56,128:.:|
00000060: 8F 22 20 54 4F 50 3D 33  32 37 36 38 00 95 08 C8  |." TOP=32768....|
00000070: 00 86 20 43 4E 56 25 28  36 34 29 20 3A 8F 22 20  |.. CNV%(64) :." |
00000080: 41 53 43 2D 53 50 52 49  54 45 20 43 4F 4E 56 45  |ASC-SPRITE CONVE|
00000090: 52 53 49 4F 4E 00 AE 08  2C 01 8D 20 39 30 30 30  |RSION...,.. 9000|
000000A0: 20 3A 8F 22 20 C9 4E 49  54 20 56 41 52 53 00 DF  | :." .NIT VARS..|
000000B0: 08 40 01 8D 20 33 32 35  30 30 3A 8F 22 20 46 49  |.@.. 32500:." FI|
000000C0: 4C 4C 20 43 4E 56 25 28  29 20 46 4F 52 20 53 50  |LL CNV%() FOR SP|
000000D0: 52 49 54 45 2D 43 4F 4E  56 45 52 53 49 4F 4E 00  |RITE-CONVERSION.|
000000E0: 1B 09 54 01 8D 20 33 30  30 30 30 3A 8F 22 20 D3  |..T.. 30000:." .|
000000F0: 45 54 20 56 44 55 20 54  4F 20 24 38 30 30 30 2C  |ET VDU TO $8000,|
00000100: 20 CC 4F 41 44 20 43 48  52 53 45 54 2C 53 50 52  | .OAD CHRSET,SPR|
00000110: 49 54 45 53 2C 4D 2F 43  4F 44 45 00 37 09 68 01  |ITES,M/CODE.7.h.|
00000120: 8D 20 33 31 30 30 30 3A  8F 22 20 D3 45 4C 45 43  |. 31000:." .ELEC|
00000130: 54 20 55 50 50 45 52 00  55 09 7C 01 8D 20 32 30  |T UPPER.U.|.. 20|
00000140: 30 30 30 3A 8F 22 20 C1  4E 44 20 44 4F 20 44 45  |000:." .ND DO DE|
00000150: 4D 4F 2E 2E 2E 00 5B 09  DE 03 80 00 61 09 E7 03  |MO....[.....a...|
00000160: 3A 00 7D 09 28 23 8F 22  20 C9 4E 49 54 49 41 4C  |:.}.(#." .NITIAL|
00000170: 49 53 45 20 56 41 52 49  41 42 4C 45 53 00 9D 09  |ISE VARIABLES...|
00000180: 32 23 53 B2 35 34 32 37  32 20 20 20 20 20 20 20  |2#S.54272       |
00000190: 20 20 20 20 20 20 3A 8F  22 20 D3 C9 C4 00 C2 09  |      :." ......|
000001A0: 50 23 56 49 43 20 B2 20  35 33 32 34 38 20 20 20  |P#VIC . 53248   |
000001B0: 20 20 20 20 20 20 3A 8F  22 20 D6 C9 C3 20 43 48  |      :." ... CH|
000001C0: 49 50 00 ED 09 5A 23 50  B2 33 32 37 36 38 20 3A  |IP...Z#P.32768 :|
000001D0: 20 43 4F 4C B2 35 35 32  39 36 20 3A 8F 22 20 D6  | COL.55296 :." .|
000001E0: C4 D5 2C 20 43 4F 4C 4F  52 20 52 41 4D 00 F3 09  |.., COLOR RAM...|
000001F0: 76 25 8E 00 F9 09 0F 27  3A 00 0E 0A 20 4E 8F 20  |v%.....':... N. |
00000200: 2A 20 49 4E 53 54 52 55  43 54 49 4F 4E 53 00 18  |* INSTRUCTIONS..|
00000210: 0A 25 4E 99 22 93 22 3B  00 2E 0A 2A 4E 97 35 33  |.%N.".";...*N.53|
00000220: 32 38 30 2C 34 3A 97 35  33 32 38 31 2C 32 00 3A  |280,4:.53281,2.:|
00000230: 0A 2F 4E 8D 20 32 39 30  30 30 00 6E 0A 34 4E 99  |./N. 29000.n.4N.|
00000240: 22 08 96 13 11 11 12 1D  1D 1D B0 C0 C0 C0 C0 C0  |"...............|
00000250: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000260: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 AE 22 00 A0  |............."..|
00000270: 0A 3E 4E 99 22 12 1D 1D  1D 96 DD 9E 20 20 D1 D1  |.>N.".......  ..|
00000280: D1 20 20 20 D1 D1 20 20  D1 20 20 20 D1 20 20 D1  |.   ..  .   .  .|
00000290: D1 20 20 D1 20 20 D1 20  D1 20 20 D1 20 96 DD 22  |.  .  . .  . .."|
000002A0: 00 D1 0A 48 4E 99 22 12  1D 1D 1D DD 9E 20 D1 20  |...HN."...... . |
000002B0: 20 20 D1 20 D1 20 20 D1  20 D1 D1 20 D1 D1 20 D1  |  . .  . .. .. .|
000002C0: 20 20 D1 20 D1 20 D1 20  20 D1 20 20 D1 20 96 DD  |  . . .  .  . ..|
000002D0: 22 00 02 0B 52 4E 99 22  12 1D 1D 1D DD 9E 20 D1  |"...RN."...... .|
000002E0: 20 20 20 20 20 D1 20 20  D1 20 D1 20 D1 20 D1 20  |     .  . . . . |
000002F0: D1 20 20 D1 20 D1 D1 20  20 20 D1 20 20 D1 20 96  |.  . ..   .  . .|
00000300: DD 22 00 33 0B 5C 4E 99  22 12 1D 1D 1D DD 9E 20  |.".3.\N."...... |
00000310: D1 20 D1 D1 D1 20 D1 20  20 D1 20 D1 20 20 20 D1  |. ... .  . .   .|
00000320: 20 D1 20 20 D1 20 D1 D1  20 20 20 D1 20 20 D1 20  | .  . ..   .  . |
00000330: 96 DD 22 00 64 0B 66 4E  99 22 12 1D 1D 1D DD 9E  |..".d.fN."......|
00000340: 20 D1 20 20 20 D1 20 D1  20 20 D1 20 D1 20 20 20  | .   . .  . .   |
00000350: D1 20 D1 20 20 D1 20 D1  20 D1 20 20 D1 20 20 D1  |. .  . . .  .  .|
00000360: 20 96 DD 22 00 95 0B 70  4E 99 22 12 1D 1D 1D DD  | .."...pN.".....|
00000370: 9E 20 20 D1 D1 D1 20 20  20 D1 D1 20 20 D1 20 20  |.  ...   ..  .  |
00000380: 20 D1 20 20 D1 D1 20 20  D1 20 20 D1 20 20 D1 D1  | .  ..  .  .  ..|
00000390: 20 20 96 DD 22 00 C4 0B  7A 4E 99 22 12 1D 1D 1D  |  .."...zN."....|
000003A0: AD C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000003B0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000003C0: C0 C0 BD 22 00 EF 0B 98  4E 99 22 11 11 11 05 1D  |..."....N.".....|
000003D0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 53 4D 4F 4F 54 48 20  |.........SMOOTH |
000003E0: 53 43 52 4F 4C 4C 45 52  20 44 45 4D 4F 2E 22 00  |SCROLLER DEMO.".|
000003F0: 16 0C AC 4E 99 22 11 1D  1D 1D 1D 1D 1D 1D 1D 1D  |...N."..........|
00000400: 1D 43 4F 50 59 52 49 47  48 54 20 41 2E 4D 49 4C  |.COPYRIGHT A.MIL|
00000410: 4C 45 54 54 2E 22 00 1C  0C 4B 4F 3A 00 28 0C 4C  |LETT."...KO:.(.L|
00000420: 4F 4B 59 24 B2 22 20 22  00 51 0C 56 4F 4D 50 54  |OKY$." ".Q.VOMPT|
00000430: 52 B2 30 20 3A 8F 22 20  D2 45 53 45 54 20 50 54  |R.0 :." .ESET PT|
00000440: 52 20 46 4F 52 20 4E 45  57 20 4D 45 53 53 41 47  |R FOR NEW MESSAG|
00000450: 45 00 7C 0C 60 4F 4D 53  47 24 B2 22 20 25 57 45  |E.|.`OMSG$." %WE|
00000460: 4C 43 4F 4D 45 20 54 4F  20 25 26 47 4F 4D 4F 4B  |LCOME TO %&GOMOK|
00000470: 55 21 20 22 3A 8D 20 33  32 37 30 30 00 BD 0C 6A  |U! ":. 32700...j|
00000480: 4F 4D 53 47 24 B2 22 20  25 26 42 52 4F 55 47 48  |OMSG$." %&BROUGH|
00000490: 54 20 54 4F 20 59 4F 55  20 42 59 20 25 26 43 4F  |T TO YOU BY %&CO|
000004A0: 4D 4D 4F 44 4F 52 45 20  44 49 53 4B 20 55 53 45  |MMODORE DISK USE|
000004B0: 52 20 25 26 22 3A 8D 20  33 32 37 30 30 00 07 0D  |R %&":. 32700...|
000004C0: 74 4F 4D 53 47 24 B2 22  4D 41 47 41 5A 49 4E 45  |tOMSG$."MAGAZINE|
000004D0: 2C 20 50 4F 53 53 49 42  4C 59 20 54 48 45 20 42  |, POSSIBLY THE B|
000004E0: 45 53 54 20 4D 41 47 20  49 4E 20 54 48 45 20 48  |EST MAG IN THE H|
000004F0: 49 53 54 4F 52 59 20 4F  46 20 54 49 4D 45 20 22  |ISTORY OF TIME "|
00000500: 3A 8D 33 32 37 30 30 00  4E 0D 7E 4F 4D 53 47 24  |:.32700.N.~OMSG$|
00000510: B2 22 49 54 53 45 4C 46  2E 20 49 20 48 4F 50 45  |."ITSELF. I HOPE|
00000520: 20 59 4F 55 20 4C 49 4B  45 20 54 48 45 20 25 26  | YOU LIKE THE %&|
00000530: 42 4F 55 4E 43 59 20 53  43 52 4F 4C 4C 2C 20 25  |BOUNCY SCROLL, %|
00000540: 26 20 49 54 20 22 3A 8D  20 33 32 37 30 30 00 96  |& IT ":. 32700..|
00000550: 0D 88 4F 4D 53 47 24 B2  22 4D 41 4B 45 53 20 41  |..OMSG$."MAKES A|
00000560: 20 43 48 41 4E 47 45 20  46 52 4F 4D 20 54 48 45  | CHANGE FROM THE|
00000570: 20 55 53 55 41 4C 20 53  4D 4F 4F 54 48 20 53 43  | USUAL SMOOTH SC|
00000580: 52 4F 4C 4C 20 45 46 46  45 43 54 2E 20 22 3A 8D  |ROLL EFFECT. ":.|
00000590: 20 33 32 37 30 30 00 DC  0D 92 4F 4D 53 47 24 B2  | 32700....OMSG$.|
000005A0: 22 49 20 48 41 56 45 20  49 4D 50 4C 45 4D 45 4E  |"I HAVE IMPLEMEN|
000005B0: 54 45 44 20 54 57 4F 20  56 41 52 49 45 54 59 53  |TED TWO VARIETYS|
000005C0: 20 4F 46 20 54 48 45 20  47 41 4D 45 20 48 45 52  | OF THE GAME HER|
000005D0: 45 2C 20 22 3A 8D 20 33  32 37 30 30 00 23 0E 9C  |E, ":. 32700.#..|
000005E0: 4F 4D 53 47 24 B2 22 53  49 4E 43 45 20 49 54 20  |OMSG$."SINCE IT |
000005F0: 49 53 20 54 4F 4F 20 45  41 53 59 20 46 4F 52 20  |IS TOO EASY FOR |
00000600: 54 48 45 20 46 49 52 53  54 20 50 4C 41 59 45 52  |THE FIRST PLAYER|
00000610: 20 54 4F 20 46 4F 52 43  45 20 22 3A 8D 20 33 32  | TO FORCE ":. 32|
00000620: 37 30 30 00 56 0E A6 4F  4D 53 47 24 B2 22 41 20  |700.V..OMSG$."A |
00000630: 57 49 4E 20 49 4E 20 54  52 41 44 49 54 49 4F 4E  |WIN IN TRADITION|
00000640: 41 4C 20 47 4F 4D 4F 4B  55 2E 20 20 25 22 3A 8D  |AL GOMOKU.  %":.|
00000650: 20 33 32 37 30 30 00 7F  0E AB 4F 99 22 11 1D 1D  | 32700....O."...|
00000660: 1D 1D 1D 1D 1D 1D 1D 1D  48 49 54 20 53 50 41 43  |........HIT SPAC|
00000670: 45 20 54 4F 20 43 4F 4E  54 49 4E 55 45 2E 22 00  |E TO CONTINUE.".|
00000680: 9F 0E B0 4F 8D 20 33 32  31 30 30 3A 8F 22 20 53  |...O. 32100:." S|
00000690: 43 52 4F 4C 4C 20 41 20  4D 45 53 53 41 47 45 00  |CROLL A MESSAGE.|
000006A0: BE 0E E2 4F 8D 20 33 31  32 30 30 3A 8F 22 20 54  |...O. 31200:." T|
000006B0: 4F 20 4C 4F 57 45 52 20  43 41 53 45 2E 2E 00 D5  |O LOWER CASE....|
000006C0: 0E 14 50 99 22 93 CF 4B  2C 20 44 45 4D 4F 20 4F  |..P."..K, DEMO O|
000006D0: 56 45 52 2E 22 00 DB 0E  FE 51 8E 00 E1 0E 07 52  |VER."....Q.....R|
000006E0: 3A 00 02 0F 48 71 8F 22  20 46 49 4C 4C 20 53 43  |:...Hq." FILL SC|
000006F0: 52 45 45 4E 20 57 49 54  48 20 42 4C 41 43 4B 20  |REEN WITH BLACK |
00000700: 38 37 00 23 0F 70 71 97  20 33 39 39 38 34 AA 31  |87.#.pq. 39984.1|
00000710: 37 2C 38 37 3A 8F 22 20  53 45 54 20 46 49 4C 4C  |7,87:." SET FILL|
00000720: 43 48 52 00 3B 0F 84 71  9E 20 33 39 39 35 31 20  |CHR.;..q. 39951 |
00000730: 3A 8F 22 20 46 49 4C 4C  56 44 55 00 41 0F AC 71  |:." FILLVDU.A..q|
00000740: 8E 00 47 0F 2F 75 3A 00  81 0F 30 75 8F 22 20 C9  |..G./u:...0u." .|
00000750: 4E 49 54 49 41 4C 49 53  45 20 55 44 47 20 40 20  |NITIALISE UDG @ |
00000760: 24 38 30 30 30 2C 20 CC  4F 41 44 20 43 48 52 53  |$8000, .OAD CHRS|
00000770: 45 54 2C 53 50 52 49 54  45 53 2C 4D 2F 43 4F 44  |ET,SPRITES,M/COD|
00000780: 45 00 9C 0F 44 75 8B 20  C2 28 38 32 38 29 20 B2  |E...Du. .(828) .|
00000790: 20 31 32 33 20 A7 20 33  30 35 30 30 00 AA 0F 4E  | 123 . 30500...N|
000007A0: 75 97 20 38 32 38 2C 31  32 33 00 C8 0F 58 75 8F  |u. 828,123...Xu.|
000007B0: 22 20 C5 4E 53 55 52 45  20 42 49 54 53 20 30 2C  |" .NSURE BITS 0,|
000007C0: 31 20 4F 55 54 50 55 54  00 E1 0F 6C 75 97 20 35  |1 OUTPUT...lu. 5|
000007D0: 36 35 37 38 2C C2 28 35  36 35 37 38 29 20 B0 20  |6578,.(56578) . |
000007E0: 33 00 14 10 80 75 97 20  35 36 35 37 36 2C 28 C2  |3....u. 56576,(.|
000007F0: 28 35 36 35 37 36 29 20  AF 20 32 35 32 29 20 B0  |(56576) . 252) .|
00000800: 20 31 3A 8F 22 20 D3 45  4C 20 42 41 4E 4B 20 24  | 1:." .EL BANK $|
00000810: 38 30 30 30 00 3D 10 94  75 97 20 35 33 32 37 32  |8000.=..u. 53272|
00000820: 2C 34 3A 8F 22 20 D6 44  55 20 24 38 30 30 30 2C  |,4:." .DU $8000,|
00000830: 20 C3 48 52 53 45 54 20  24 38 38 30 30 00 68 10  | .HRSET $8800.h.|
00000840: A8 75 97 20 36 34 38 2C  31 32 38 3A 8F 22 20 D4  |.u. 648,128:." .|
00000850: 45 4C 4C 20 4B 45 52 4E  41 4C 20 57 48 45 52 45  |ELL KERNAL WHERE|
00000860: 20 D6 44 55 20 49 53 2E  00 72 10 B2 75 99 22 93  | .DU IS..r..u.".|
00000870: 22 3B 00 86 10 BC 75 93  22 53 45 54 2E 47 4F 4D  |";....u."SET.GOM|
00000880: 2A 22 2C 38 2C 31 00 8C  10 D0 75 8E 00 92 10 23  |*",8,1....u....#|
00000890: 77 3A 00 AB 10 24 77 8F  22 20 CC 4F 41 44 20 53  |w:...$w." .OAD S|
000008A0: 50 52 49 54 45 20 43 48  41 52 53 00 C6 10 38 77  |PRITE CHARS...8w|
000008B0: 8B 20 C2 28 38 32 39 29  20 B2 20 31 32 33 20 A7  |. .(829) . 123 .|
000008C0: 20 33 30 37 30 30 00 D4  10 4C 77 97 20 38 32 39  | 30700...Lw. 829|
000008D0: 2C 31 32 33 00 E9 10 60  77 93 22 4C 45 54 2E 24  |,123...`w."LET.$|
000008E0: 41 30 30 30 22 2C 38 2C  31 00 EF 10 74 77 90 00  |A000",8,1...tw..|
000008F0: F5 10 EB 77 3A 00 0F 11  EC 77 8F 22 20 4C 4F 41  |...w:....w." LOA|
00000900: 44 20 53 4D 4F 4F 54 48  20 4D 2F 43 4F 44 45 00  |D SMOOTH M/CODE.|
00000910: 26 11 00 78 8B 20 C2 28  38 33 30 29 20 B2 20 31  |&..x. .(830) . 1|
00000920: 32 33 20 A7 20 8E 00 34  11 14 78 97 20 38 33 30  |23 . ..4..x. 830|
00000930: 2C 31 32 33 00 4D 11 28  78 93 22 53 4D 4F 4F 54  |,123.M.(x."SMOOT|
00000940: 48 3F 3F 2E 45 58 45 2A  22 2C 38 2C 31 00 53 11  |H??.EXE*",8,1.S.|
00000950: 3C 78 90 00 59 11 4F 78  3A 00 5F 11 17 79 3A 00  |<x..Y.Ox:._..y:.|
00000960: 7E 11 18 79 8F 22 20 D3  57 49 54 43 48 20 54 4F  |~..y." .WITCH TO|
00000970: 20 55 50 50 45 52 20 55  44 47 20 53 45 54 00 A7  | UPPER UDG SET..|
00000980: 11 40 79 97 20 35 33 32  37 32 2C 32 3A 8F 22 20  |.@y. 53272,2:." |
00000990: D6 44 55 20 24 38 30 30  30 2C 20 C3 48 52 53 45  |.DU $8000, .HRSE|
000009A0: 54 20 24 38 38 30 30 00  AD 11 72 79 8E 00 B3 11  |T $8800...ry....|
000009B0: 7B 79 3A 00 D5 11 E0 79  8F 22 20 D3 57 49 54 43  |{y:....y." .WITC|
000009C0: 48 20 54 4F 20 4E 4F 52  4D 20 4C 4F 57 45 52 2F  |H TO NORM LOWER/|
000009D0: 55 50 50 45 52 00 FD 11  08 7A 97 20 35 33 32 37  |UPPER....z. 5327|
000009E0: 32 2C 36 3A 8F 22 20 D6  44 55 20 24 38 30 30 30  |2,6:." .DU $8000|
000009F0: 2C 20 C3 48 52 53 45 54  20 4E 4F 52 4D 00 03 12  |, .HRSET NORM...|
00000A00: 3A 7A 8E 00 09 12 FF 7C  3A 00 2F 12 00 7D 8F 22  |:z.....|:./..}."|
00000A10: 20 D3 4D 4F 4F 54 48 20  D3 43 52 4F 4C 4C 20 28  | .MOOTH .CROLL (|
00000A20: 4D 53 47 24 29 20 54 49  4C 20 28 4B 59 24 29 00  |MSG$) TIL (KY$).|
00000A30: 35 12 28 7D 8F 00 40 12  3C 7D 4D 50 54 52 B2 30  |5.(}..@.<}MPTR.0|
00000A40: 00 5E 12 50 7D 8D 20 33  32 37 30 30 20 3A 8F 22  |.^.P}. 32700 :."|
00000A50: 20 C2 55 49 4C 44 20 4D  45 53 53 41 47 45 00 64  | .UILD MESSAGE.d|
00000A60: 12 63 7D 3A 00 87 12 64  7D 8F 22 20 43 41 4C 4C  |.c}:...d}." CALL|
00000A70: 20 48 45 52 45 20 49 46  20 41 4C 52 45 41 44 59  | HERE IF ALREADY|
00000A80: 20 42 55 49 4C 54 2E 00  8D 12 C7 7D 3A 00 AD 12  | BUILT.....}:...|
00000A90: C8 7D 46 4C B2 33 39 39  38 34 20 3A 8F 22 20 D3  |.}FL.39984 :." .|
00000AA0: 54 41 52 54 20 4F 46 20  46 4C 41 47 53 00 CC 12  |TART OF FLAGS...|
00000AB0: FA 7D 97 20 46 4C AA 31  35 2C 32 32 34 20 20 3A  |.}. FL.15,224  :|
00000AC0: 8F 22 20 56 45 52 54 20  4C 49 4E 45 00 EB 12 04  |." VERT LINE....|
00000AD0: 7E 97 20 46 4C AA 31 30  2C 31 20 20 20 20 3A 8F  |~. FL.10,1    :.|
00000AE0: 22 20 D3 50 52 20 43 4F  4C 4F 52 00 08 13 2C 7E  |" .PR COLOR...,~|
00000AF0: 9E 20 33 39 39 33 39 20  20 3A 8F 22 20 52 45 53  |. 39939  :." RES|
00000B00: 45 54 53 4D 4F 4F 54 48  00 22 13 54 7E 9E 20 33  |ETSMOOTH.".T~. 3|
00000B10: 39 39 33 36 20 20 3A 8F  22 20 44 4F 53 4D 4F 4F  |9936  :." DOSMOO|
00000B20: 54 48 00 28 13 8F 7E 3A  00 33 13 90 7E A1 20 43  |TH.(..~:.3..~. C|
00000B30: 4B 59 24 00 46 13 A4 7E  81 20 58 B2 31 20 A4 20  |KY$.F..~. X.1 . |
00000B40: C3 28 4B 59 24 29 00 6D  13 B8 7E 3A 20 8B 20 43  |.(KY$).m..~: . C|
00000B50: 4B 59 24 B2 CA 28 4B 59  24 2C 58 2C 31 29 20 A7  |KY$..(KY$,X,1) .|
00000B60: 20 97 20 56 49 43 AA 32  31 2C 30 3A 8E 00 75 13  | . VIC.21,0:..u.|
00000B70: CC 7E 82 20 58 00 A7 13  E0 7E 89 20 33 32 33 34  |.~. X....~. 3234|
00000B80: 30 20 3A 8F 22 20 C9 4E  43 4F 52 52 45 43 54 20  |0 :." .NCORRECT |
00000B90: 4B 45 59 2C 20 43 4F 4E  54 20 57 49 54 48 20 53  |KEY, CONT WITH S|
00000BA0: 4D 4F 4F 54 48 2E 2E 00  AD 13 F3 7E 3A 00 E0 13  |MOOTH......~:...|
00000BB0: F4 7E 8F 22 20 C9 4E 49  54 49 41 4C 49 53 45 20  |.~." .NITIALISE |
00000BC0: 43 4E 56 25 28 29 20 46  4F 52 20 41 53 43 2F 53  |CNV%() FOR ASC/S|
00000BD0: 50 52 49 54 45 20 43 4F  4E 56 45 52 53 49 4F 4E  |PRITE CONVERSION|
00000BE0: 00 EF 13 08 7F 81 20 58  B2 30 20 A4 20 36 33 00  |...... X.0 . 63.|
00000BF0: FF 13 12 7F 3A 20 43 4E  56 25 28 58 29 B2 30 00  |....: CNV%(X).0.|
00000C00: 07 14 1C 7F 82 20 58 00  16 14 30 7F 81 20 58 B2  |..... X...0.. X.|
00000C10: 31 20 A4 20 32 36 00 28  14 3A 7F 3A 20 43 4E 56  |1 . 26.(.:.: CNV|
00000C20: 25 28 58 29 B2 58 AA 31  00 30 14 44 7F 82 20 58  |%(X).X.1.0.D.. X|
00000C30: 00 3F 14 58 7F 43 4E 56  25 28 33 32 29 B2 31 00  |.?.X.CNV%(32).1.|
00000C40: 5D 14 62 7F 43 4E 56 25  28 33 38 29 B2 31 32 38  |].b.CNV%(38).128|
00000C50: 20 3A 8F 22 20 26 20 57  49 47 47 4C 45 00 79 14  | :." & WIGGLE.y.|
00000C60: 6C 7F 43 4E 56 25 28 33  37 29 B2 31 32 39 20 3A  |l.CNV%(37).129 :|
00000C70: 8F 22 20 25 20 46 41 53  54 00 89 14 76 7F 43 4E  |." % FAST...v.CN|
00000C80: 56 25 28 34 36 29 B2 32  38 00 99 14 80 7F 43 4E  |V%(46).28.....CN|
00000C90: 56 25 28 33 33 29 B2 32  39 00 A9 14 94 7F 43 4E  |V%(33).29.....CN|
00000CA0: 56 25 28 36 33 29 B2 33  30 00 B9 14 9E 7F 43 4E  |V%(63).30.....CN|
00000CB0: 56 25 28 33 39 29 B2 33  31 00 C9 14 A8 7F 43 4E  |V%(39).31.....CN|
00000CC0: 56 25 28 34 34 29 B2 33  32 00 CF 14 B2 7F 8E 00  |V%(44).32.......|
00000CD0: D5 14 BB 7F 3A 00 F1 14  BC 7F 8F 22 20 C2 55 49  |....:......" .UI|
00000CE0: 4C 44 20 4D 45 53 53 41  47 45 20 28 4D 53 47 24  |LD MESSAGE (MSG$|
00000CF0: 29 00 07 15 D0 7F 4D 4C  4F 43 B2 33 36 38 36 34  |).....MLOC.36864|
00000D00: AA 4D 50 54 52 AB 31 00  1C 15 E4 7F 81 20 43 4D  |.MPTR.1...... CM|
00000D10: B2 31 20 A4 20 C3 28 4D  53 47 24 29 00 36 15 F8  |.1 . .(MSG$).6..|
00000D20: 7F 3A 20 43 48 25 B2 C6  28 CA 28 4D 53 47 24 2C  |.: CH%..(.(MSG$,|
00000D30: 43 4D 2C 31 29 29 00 55  15 84 80 3A 20 97 20 4D  |CM,1)).U...: . M|
00000D40: 4C 4F 43 AA 43 4D 2C 43  4E 56 25 28 43 48 25 20  |LOC.CM,CNV%(CH% |
00000D50: AF 20 36 33 29 00 5E 15  98 80 82 20 43 4D 00 7D  |. 63).^.... CM.}|
00000D60: 15 AC 80 97 20 4D 4C 4F  43 AA 43 4D 2C 30 20 20  |.... MLOC.CM,0  |
00000D70: 3A 8F 22 20 4E 55 4C 4C  20 54 45 52 4D 00 90 15  |:." NULL TERM...|
00000D80: C0 80 4D 50 54 52 B2 4D  50 54 52 AA 43 4D AB 31  |..MPTR.MPTR.CM.1|
00000D90: 00 96 15 DE 80 8E 00 9C  15 E7 80 3A 00 00 00     |...........:... |

..1.D.." SMOOTH SCROLLER DEMO, (C) A.MIL
LETT 1990.K.X.." TAKEN FROM GOMOKU..L...
.55,0:.56,128:.:." TOP=32768...H.. CNV%(
64) :." ASC-SPRITE CONVERSION...,.. 9000
 :." INIT VARS...@.. 32500:." FILL CNV%(
) FOR SPRITE-CONVERSION...T.. 30000:." S
ET VDU TO $8000, LOAD CHRSET,SPRITES,M/C
ODE.7.H.. 31000:." SELECT UPPER.U.|.. 20
000:." AND DO DEMO....[.....A...:.}.(#."
 INITIALISE VARIABLES...2#S.54272       
      :." SID.B.P#VIC . 53248         :.
" VIC CHIP...Z#P.32768 : COL.55296 :." V
DU, COLOR RAM...V%.....':... N. * INSTRU
CTIONS...%N.".";...*N.53280,4:.53281,2.:
./N. 29000.N.4N.".......................
.....................". .>N.".......  QQ
Q   QQ  Q   Q  QQ  Q  Q Q  Q ..".Q.HN.".
..... Q   Q Q  Q QQ QQ Q  Q Q Q  Q  Q ..
"...RN."...... Q     Q  Q Q Q Q Q  Q QQ 
  Q  Q ..".3.\N."...... Q QQQ Q  Q Q   Q
 Q  Q QQ   Q  Q ..".D.FN."...... Q   Q Q
  Q Q   Q Q  Q Q Q  Q  Q .."...PN.".....
.  QQQ   QQ  Q   Q  QQ  Q  Q  QQ  ..".D.
ZN."....................................
..."....N."..............SMOOTH SCROLLER
 DEMO."....N."...........COPYRIGHT A.MIL
LETT."...KO:.(.LOKY$." ".Q.VOMPTR.0 :." 
RESET PTR FOR NEW MESSAGE.|.`OMSG$." %WE
LCOME TO %&GOMOKU! ":. 32700...JOMSG$." 
%&BROUGHT TO YOU BY %&COMMODORE DISK USE
R %&":. 32700...TOMSG$."MAGAZINE, POSSIB
LY THE BEST MAG IN THE HISTORY OF TIME "
:.32700.N.~OMSG$."ITSELF. I HOPE YOU LIK
E THE %&BOUNCY SCROLL, %& IT ":. 32700..
..OMSG$."MAKES A CHANGE FROM THE USUAL S
MOOTH SCROLL EFFECT. ":. 32700....OMSG$.
"I HAVE IMPLEMENTED TWO VARIETYS OF THE 
GAME HERE, ":. 32700.#..OMSG$."SINCE IT 
IS TOO EASY FOR THE FIRST PLAYER TO FORC
E ":. 32700.V..OMSG$."A WIN IN TRADITION
AL GOMOKU.  %":. 32700...O."...........
HIT SPACE TO CONTINUE."....O. 32100:." S
CROLL A MESSAGE....O. 31200:." TO LOWER 
CASE...U..P.".OK, DEMO OVER."....Q.....R
:...HQ." FILL SCREEN WITH BLACK 87.#.PQ.
 39984.17,87:." SET FILLCHR.;..Q. 39951 
:." FILLVDU.A..Q..G./U:...0U." INITIALIS
E UDG @ $8000, LOAD CHRSET,SPRITES,M/COD
E...DU. B(828) . 123 . 30500...NU. 828,1
23.H.XU." ENSURE BITS 0,1 OUTPUT...LU. 5
6578,B(56578) . 3....U. 56576,(B(56576) 
. 252) . 1:." SEL BANK $8000.=..U. 53272
,4:." VDU $8000, CHRSET $8800.H..U. 648,
128:." TELL KERNAL WHERE VDU IS..R..U.".
";....U."SET.GOM*",8,1...PU....#W:...$W.
" LOAD SPRITE CHARS.F.8W. B(829) . 123 .
 30700.T.LW. 829,123...`W."LET.$A000",8,
1...TW.....W:....W." LOAD SMOOTH M/CODE.
&..X. B(830) . 123 . ..4..X. 830,123.M.(
X."SMOOTH??.EXE*",8,1.S.<X..Y.OX:._..Y:.
~..Y." SWITCH TO UPPER UDG SET...@Y. 532
72,2:." VDU $8000, CHRSET $8800...RY....
{Y:.U..Y." SWITCH TO NORM LOWER/UPPER...
.Z. 53272,6:." VDU $8000, CHRSET NORM...
:Z.....|:./..}." SMOOTH SCROLL (MSG$) TI
L (KY$).5.(}..@.<}MPTR.0.^.P}. 32700 :."
 BUILD MESSAGE.D.C}:...D}." CALL HERE IF
 ALREADY BUILT....G}:...H}FL.39984 :." S
TART OF FLAGS.L..}. FL.15,224  :." VERT 
LINE....~. FL.10,1    :." SPR COLOR...,~
. 39939  :." RESETSMOOTH.".T~. 39936  :.
" DOSMOOTH.(..~:.3..~. CKY$.F..~. X.1 . 
C(KY$).M..~: . CKY$.J(KY$,X,1) . . VIC.2
1,0:..U.L~. X....~. 32340 :." INCORRECT 
KEY, CONT WITH SMOOTH......~:....~." INI
TIALISE CNV%() FOR ASC/SPRITE CONVERSION
..... X.0 . 63....: CNV%(X).0..... X.
..0. X.1 . 26.(.:: CNV%(X).X.1.0.D. X
.?.XCNV%(32).1.].BCNV%(38).128 :." & W
IGGLE.Y.LCNV%(37).129 :." % FAST...VCN
V%(46).28....CNV%(33).29....CNV%(63).3
0....CNV%(39).31.I..CNV%(44).32.O....
U..:....." BUILD MESSAGE (MSG$)...PML
OC.36864.MPTR.1..... CM.1 . C(MSG$).6..
: CH%.F(J(MSG$,CM,1)).U...: . MLOC.CM,C
NV%(CH% . 63).^.... CM.}.... MLOC.CM,0  
:." NULL TERM.....MPTR.MPTR.CM.1........
...:...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL