> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 47 08 0A 00 8F 20 43 4F 50 59 52 49 47 48 |..G.... COPYRIGH|
00000010: 54 20 31 39 38 37 20 43 4F 4D 50 55 54 45 21 20 |T 1987 COMPUTE! |
00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 20 49 4E 43 |PUBLICATIONS INC|
00000030: 2E 20 2D 20 41 4C 4C 20 52 49 47 48 54 53 20 52 |. - ALL RIGHTS R|
00000040: 45 53 45 52 56 45 44 00 6A 08 14 00 8B C2 28 34 |ESERVED.j.....(4|
00000050: 39 31 37 39 29 B3 B1 35 36 A7 93 22 53 43 52 4F |9179)..56.."SCRO|
00000060: 4C 4C 2E 4D 4C 22 2C 38 2C 31 00 8D 08 1E 00 9E |LL.ML",8,1......|
00000070: 34 39 38 37 33 3A 97 35 33 32 38 30 2C 31 31 3A |49873:.53280,11:|
00000080: 97 35 33 32 38 31 2C 30 3A 99 22 93 22 00 BB 08 |.53281,0:."."...|
00000090: 28 00 99 22 20 20 20 05 43 4F 50 59 52 49 47 48 |(.." .COPYRIGH|
000000A0: 54 20 31 39 38 37 20 43 4F 4D 50 55 54 45 21 20 |T 1987 COMPUTE! |
000000B0: 50 55 42 2E 2C 20 49 4E 43 2E 22 00 DD 08 32 00 |PUB., INC."...2.|
000000C0: 99 A3 31 30 29 22 41 4C 4C 20 52 49 47 48 54 53 |..10)"ALL RIGHTS|
000000D0: 20 52 45 53 45 52 56 45 44 11 11 96 22 00 01 09 | RESERVED..."...|
000000E0: 3C 00 99 22 20 20 20 20 20 20 20 20 20 20 20 2E |<.." .|
000000F0: 2E 2E 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E |..PLEASE WAIT...|
00000100: 22 00 0A 09 46 00 8D 34 38 30 00 13 09 50 00 8D |"...F..480...P..|
00000110: 33 32 30 00 3D 09 5A 00 99 22 91 49 4E 54 52 4F |320.=.Z..".INTRO|
00000120: 44 55 43 49 4E 47 20 54 48 45 20 49 4D 50 4F 53 |DUCING THE IMPOS|
00000130: 53 49 42 4C 45 20 53 43 52 4F 4C 4C 22 00 67 09 |SIBLE SCROLL".g.|
00000140: 64 00 99 22 11 50 52 4F 47 52 41 4D 2E 20 4A 55 |d..".PROGRAM. JU|
00000150: 53 54 20 57 41 54 43 48 20 54 48 45 20 53 43 52 |ST WATCH THE SCR|
00000160: 4F 4C 4C 49 4E 47 22 00 92 09 6E 00 99 22 11 4D |OLLING"...n..".M|
00000170: 45 53 53 41 47 45 20 41 54 20 54 48 45 20 42 4F |ESSAGE AT THE BO|
00000180: 54 54 4F 4D 2E 20 4E 4F 54 45 20 48 4F 57 20 49 |TTOM. NOTE HOW I|
00000190: 54 22 00 BE 09 78 00 99 22 11 49 53 20 42 45 4C |T"...x..".IS BEL|
000001A0: 4F 57 20 54 48 45 20 4E 4F 52 4D 41 4C 20 44 41 |OW THE NORMAL DA|
000001B0: 54 41 20 41 52 45 41 2C 20 41 57 41 59 22 00 EC |TA AREA, AWAY"..|
000001C0: 09 82 00 99 22 11 46 52 4F 4D 20 49 4E 54 45 52 |....".FROM INTER|
000001D0: 46 45 52 49 4E 47 20 57 49 54 48 20 41 20 54 45 |FERING WITH A TE|
000001E0: 58 54 20 44 49 53 50 4C 41 59 2E 22 00 F5 09 8C |XT DISPLAY."....|
000001F0: 00 8D 34 33 30 00 00 0A 96 00 9E 34 39 31 35 32 |..430......49152|
00000200: 00 08 0A A0 00 A1 41 24 00 3A 0A AA 00 99 22 93 |......A$.:....".|
00000210: 11 11 11 99 54 48 45 20 53 43 52 4F 4C 4C 49 4E |....THE SCROLLIN|
00000220: 47 20 4D 45 53 53 41 47 45 20 43 41 4E 20 42 45 |G MESSAGE CAN BE|
00000230: 20 45 4E 4C 41 52 47 45 44 22 00 49 0A B4 00 97 | ENLARGED".I....|
00000240: 35 33 32 37 31 2C 32 35 35 00 78 0A BE 00 99 22 |53271,255.x...."|
00000250: 11 42 59 20 43 48 41 4E 47 49 4E 47 20 54 48 45 |.BY CHANGING THE|
00000260: 20 50 52 4F 47 52 41 4D 2C 20 4F 52 20 42 59 20 | PROGRAM, OR BY |
00000270: 53 45 54 54 49 4E 47 22 00 98 0A C8 00 99 22 11 |SETTING"......".|
00000280: 54 48 45 20 53 50 52 49 54 45 20 59 2D 45 58 50 |THE SPRITE Y-EXP|
00000290: 41 4E 53 49 4F 4E 2E 22 00 A1 0A D2 00 8D 34 33 |ANSION."......43|
000002A0: 30 00 B0 0A DC 00 9E 34 39 36 32 38 3A A1 41 24 |0......49628:.A$|
000002B0: 00 BF 0A E6 00 97 35 33 32 37 31 2C 31 37 30 00 |......53271,170.|
000002C0: FA 0A F0 00 99 22 11 11 11 11 11 11 11 11 11 9A |....."..........|
000002D0: 4F 52 20 48 4F 57 20 41 42 4F 55 54 20 27 55 50 |OR HOW ABOUT 'UP|
000002E0: 20 41 4E 44 20 44 4F 57 4E 20 53 43 52 4F 4C 4C | AND DOWN SCROLL|
000002F0: 27 3F 22 3A 9E 34 39 36 32 38 00 31 0B FA 00 99 |'?":.49628.1....|
00000300: 22 93 9A 11 11 11 11 11 11 11 11 20 20 20 2E 2E |".......... ..|
00000310: 2E 4F 52 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 |.OR COLOR CHANGE|
00000320: 53 20 54 4F 20 54 48 45 20 53 43 52 45 45 4E 3F |S TO THE SCREEN?|
00000330: 22 00 50 0B 04 01 81 41 B2 30 A4 32 34 30 3A 97 |".P....A.0.240:.|
00000340: 34 39 32 36 37 2C 41 3A 82 3A 97 31 39 38 2C 30 |49267,A:.:.198,0|
00000350: 00 81 0B 0E 01 99 22 93 11 11 11 9A 20 20 20 20 |......"..... |
00000360: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00000370: 20 53 54 41 52 54 20 44 45 4D 4F 20 4F 56 45 52 | START DEMO OVER|
00000380: 22 00 8E 0B 18 01 97 35 33 32 36 39 2C 30 00 B5 |"......53269,0..|
00000390: 0B 22 01 97 35 33 32 38 30 2C BB 28 31 29 AC 31 |."..53280,.(1).1|
000003A0: 35 3A A1 41 24 3A 91 AB 28 41 24 B2 22 22 29 89 |5:.A$:..(A$."").|
000003B0: 32 39 30 3A 8A 00 BB 0B 2C 01 80 00 DB 0B 36 01 |290:....,.....6.|
000003C0: 8F 20 50 4F 4B 45 20 49 4E 20 4D 45 53 53 41 47 |. POKE IN MESSAG|
000003D0: 45 20 46 52 4F 4D 20 44 41 54 41 00 E8 0B 40 01 |E FROM DATA...@.|
000003E0: 49 B2 37 AC 34 30 39 36 00 06 0C 4A 01 87 20 58 |I.7.4096...J.. X|
000003F0: 24 3A 8B 20 58 24 B2 22 45 4E 44 22 20 A7 20 97 |$:. X$."END" . .|
00000400: 20 49 2C 30 3A 8E 00 3D 0C 54 01 81 5A B2 31 A4 | I,0:..=.T..Z.1.|
00000410: C3 28 58 24 29 3A 47 B2 C6 28 CA 28 58 24 2C 5A |.(X$):G..(.(X$,Z|
00000420: 2C 31 29 29 3A 8B 47 B1 B2 36 34 AF 47 B3 B2 39 |,1)):.G..64.G..9|
00000430: 35 A7 47 B2 47 AB 36 34 3A 89 33 36 30 00 52 0C |5.G.G.64:.360.R.|
00000440: 5E 01 8B 47 B1 39 35 A7 47 B2 B5 28 47 AB 31 32 |^..G.95.G..(G.12|
00000450: 38 29 00 68 0C 68 01 97 49 2C 47 3A 49 B2 49 AA |8).h.h..I,G:I.I.|
00000460: 31 3A 82 3A 89 33 33 30 00 7F 0C 72 01 8F 20 44 |1:.:.330...r.. D|
00000470: 41 54 41 20 46 4F 52 20 4D 45 53 53 41 47 45 00 |ATA FOR MESSAGE.|
00000480: C8 0C 7C 01 83 22 54 48 49 53 20 49 53 20 54 48 |..|.."THIS IS TH|
00000490: 45 20 53 43 52 4F 4C 4C 20 50 52 4F 47 52 41 4D |E SCROLL PROGRAM|
000004A0: 20 57 48 49 43 48 20 44 45 46 49 45 53 20 54 48 | WHICH DEFIES TH|
000004B0: 45 20 4E 4F 52 4D 41 4C 20 50 48 59 53 49 43 53 |E NORMAL PHYSICS|
000004C0: 20 4F 46 20 54 48 45 22 00 12 0D 86 01 83 22 20 | OF THE"......" |
000004D0: 56 49 43 2D 49 49 20 43 48 49 50 2E 2E 2E 20 20 |VIC-II CHIP... |
000004E0: 20 20 42 59 20 55 53 49 4E 47 20 52 41 53 54 45 | BY USING RASTE|
000004F0: 52 20 49 4E 54 45 52 52 55 50 54 53 2C 20 54 48 |R INTERRUPTS, TH|
00000500: 45 20 50 52 4F 47 52 41 4D 20 54 52 49 43 4B 53 |E PROGRAM TRICKS|
00000510: 20 22 00 56 0D 90 01 83 22 54 48 45 20 43 4F 4D | ".V...."THE COM|
00000520: 50 55 54 45 52 20 49 4E 54 4F 20 44 49 53 50 4C |PUTER INTO DISPL|
00000530: 41 59 49 4E 47 20 53 50 52 49 54 45 53 20 42 45 |AYING SPRITES BE|
00000540: 4C 4F 57 20 54 48 45 20 42 4F 52 44 45 52 2E 20 |LOW THE BORDER. |
00000550: 54 48 49 53 20 22 00 A1 0D 9A 01 83 22 45 4E 41 |THIS "......"ENA|
00000560: 42 4C 45 53 20 54 48 45 20 55 53 45 52 20 54 4F |BLES THE USER TO|
00000570: 20 53 43 52 4F 4C 4C 20 4D 45 53 53 41 47 45 53 | SCROLL MESSAGES|
00000580: 20 49 4E 20 54 48 45 20 41 52 45 41 20 57 48 45 | IN THE AREA WHE|
00000590: 52 45 20 44 41 54 41 20 55 53 55 41 4C 4C 59 20 |RE DATA USUALLY |
000005A0: 22 00 C1 0D A4 01 83 22 44 4F 45 53 4E 27 54 20 |"......"DOESN'T |
000005B0: 42 45 4C 4F 4E 47 21 20 20 20 22 2C 22 45 4E 44 |BELONG! ","END|
000005C0: 22 00 EF 0D AE 01 99 22 13 11 11 11 11 11 11 11 |"......"........|
000005D0: 11 11 11 11 11 11 11 11 11 11 11 11 05 22 3B 3A |.............";:|
000005E0: 81 41 B2 31 A4 34 30 3A 99 22 2D 22 3B 3A 82 00 |.A.1.40:."-";:..|
000005F0: 18 0E B8 01 99 22 9E 20 20 20 20 20 20 20 50 52 |.....". PR|
00000600: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 |ESS ANY KEY TO S|
00000610: 45 45 20 4D 4F 52 45 22 00 34 0E C2 01 81 41 B2 |EE MORE".4....A.|
00000620: 31 A4 34 30 3A 99 22 05 2D 22 3B 3A 82 3A 99 22 |1.40:.".-";:.:."|
00000630: 13 22 3A 8E 00 3A 0E CC 01 80 00 55 0E D6 01 8F |.":..:.....U....|
00000640: 20 4C 4F 41 44 20 41 20 43 48 41 52 41 43 54 45 | LOAD A CHARACTE|
00000650: 52 20 53 45 54 00 94 0E E0 01 8E 3A 20 B3 AB AB |R SET......: ...|
00000660: AB AB AB AB AB 8F 20 45 52 41 53 45 20 54 48 49 |...... ERASE THI|
00000670: 53 20 4C 49 4E 45 20 54 4F 20 4C 4F 41 44 20 43 |S LINE TO LOAD C|
00000680: 55 53 54 4F 4D 49 5A 45 44 20 43 48 41 52 41 43 |USTOMIZED CHARAC|
00000690: 54 45 52 53 00 DE 0E EA 01 97 34 39 37 32 35 2C |TERS......49725,|
000006A0: 39 36 20 3A 8F 20 54 55 52 4E 20 4F 46 46 20 43 |96 :. TURN OFF C|
000006B0: 4F 50 59 20 53 55 42 52 4F 55 54 49 4E 45 20 28 |OPY SUBROUTINE (|
000006C0: 50 4F 4B 45 34 39 37 32 35 2C 32 33 34 20 54 4F |POKE49725,234 TO|
000006D0: 20 52 45 53 54 4F 52 45 20 43 4F 50 59 29 00 13 | RESTORE COPY)..|
000006E0: 0F F4 01 97 31 38 34 2C 32 3A 97 31 38 35 2C 30 |....184,2:.185,0|
000006F0: 3A 97 31 38 36 2C 38 3A 8F 20 50 4F 4B 45 20 31 |:.186,8:. POKE 1|
00000700: 38 36 2C 31 20 46 4F 52 20 44 41 54 41 53 53 45 |86,1 FOR DATASSE|
00000710: 54 54 45 00 44 0F FE 01 46 24 B2 22 43 48 41 52 |TTE.D...F$."CHAR|
00000720: 53 45 54 22 3A 8F 20 54 48 45 20 4E 41 4D 45 20 |SET":. THE NAME |
00000730: 4F 46 20 54 48 45 20 43 48 41 52 41 43 54 45 52 |OF THE CHARACTER|
00000740: 20 53 45 54 00 6C 0F 08 02 97 31 38 33 2C C3 28 | SET.l....183,.(|
00000750: 46 24 29 3A 97 31 38 37 2C 30 3A 97 31 38 38 2C |F$):.187,0:.188,|
00000760: 32 3A 81 49 B2 31 A4 C3 28 46 24 29 00 86 0F 12 |2:.I.1..(F$)....|
00000770: 02 97 35 31 31 AA 49 2C C6 28 CA 28 46 24 2C 49 |..511.I,.(.(F$,I|
00000780: 2C 31 29 29 3A 82 00 A8 0F 1C 02 97 37 38 30 2C |,1)):.......780,|
00000790: 30 3A 97 37 38 31 2C 30 3A 97 37 38 32 2C 31 36 |0:.781,0:.782,16|
000007A0: 30 3A 9E 36 35 34 39 33 00 AE 0F 26 02 8E 00 00 |0:.65493...&....|
000007B0: 00 |. |
..G.... COPYRIGHT 1987 COMPUTE! PUBLICAT
IONS INC. - ALL RIGHTS RESERVED.J....B(4
9179)..56.."SCROLL.ML",8,1......49873:.5
3280,11:.53281,0:."."...(.." .COPYRIGH
T 1987 COMPUTE! PUB., INC."...2...10)"AL
L RIGHTS RESERVED..."...<.." .
..PLEASE WAIT..."...F..480...P..320.=.Z.
.".INTRODUCING THE IMPOSSIBLE SCROLL".G.
D..".PROGRAM. JUST WATCH THE SCROLLING".
..N..".MESSAGE AT THE BOTTOM. NOTE HOW I
T"...X..".IS BELOW THE NORMAL DATA AREA,
AWAY"......".FROM INTERFERING WITH A TE
XT DISPLAY."......430......49152... ..A$
.:....".....THE SCROLLING MESSAGE CAN BE
ENLARGED".I....53271,255.X....".BY CHAN
GING THE PROGRAM, OR BY SETTING"...H..".
THE SPRITE Y-EXPANSION."...R..430......4
9628:.A$......53271,170......"..........
OR HOW ABOUT 'UP AND DOWN SCROLL'?":.496
28.1....".......... ...OR COLOR CHANGE
S TO THE SCREEN?".P....A.0.240:.49267,A:
.:.198,0......"..... PRESS ANY KEY TO
START DEMO OVER"......53269,0..."..5328
0,.(1).15:.A$:..(A$."").290:....,.....6.
. POKE IN MESSAGE FROM DATA...@.I.7.4096
...J.. X$:. X$."END" . . I,0:..=.T..Z.1.
C(X$):G.F(J(X$,Z,1)):.G..64.G..95.G.G.64
:.360.R.^..G.95.G..(G.128).H.H..I,G:I.I.
1:.:.330..R.. DATA FOR MESSAGE.H.|.."TH
IS IS THE SCROLL PROGRAM WHICH DEFIES TH
E NORMAL PHYSICS OF THE"......" VIC-II C
HIP... BY USING RASTER INTERRUPTS, TH
E PROGRAM TRICKS ".V...."THE COMPUTER IN
TO DISPLAYING SPRITES BELOW THE BORDER.
THIS "......"ENABLES THE USER TO SCROLL
MESSAGES IN THE AREA WHERE DATA USUALLY
".A...."DOESN'T BELONG! ","END"......"
.....................";:.A.1.40:."-";:..
.....". PRESS ANY KEY TO SEE MORE"
.4.B..A.1.40:.".-";:.:.".":..:.L...U.V..
LOAD A CHARACTER SET......: ......... E
RASE THIS LINE TO LOAD CUSTOMIZED CHARAC
TERS......49725,96 :. TURN OFF COPY SUBR
OUTINE (POKE49725,234 TO RESTORE COPY)..
....184,2:.185,0:.186,8:. POKE 186,1 FOR
DATASSETTE.D...F$."CHARSET":. THE NAME
OF THE CHARACTER SET.L....183,C(F$):.187
,0:.188,2:.I.1.C(F$)......511.I,F(J(F$,I
,1)):.......780,0:.781,0:.782,160:.65493
...&.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL