00000000: 01 1C 26 1C 0A 00 8F 20 50 55 54 20 4D 45 53 53 |..&.... PUT MESS|
00000010: 41 47 45 20 49 4E 20 44 41 54 41 20 53 54 41 54 |AGE IN DATA STAT|
00000020: 45 4D 45 4E 54 53 00 45 1C 14 00 8F 20 49 4E 20 |EMENTS.E.... IN |
00000030: 4C 49 4E 45 20 53 54 41 52 54 49 4E 47 20 41 54 |LINE STARTING AT|
00000040: 20 33 30 30 2E 00 6C 1C 1E 00 8F 20 45 4E 54 45 | 300..l.... ENTE|
00000050: 52 20 4D 45 53 53 41 47 45 20 49 4E 20 51 55 4F |R MESSAGE IN QUO|
00000060: 54 41 54 49 4F 4E 53 2C 20 41 4E 44 00 8E 1C 28 |TATIONS, AND...(|
00000070: 00 8F 20 4C 49 4D 49 54 20 4C 45 4E 47 54 48 20 |.. LIMIT LENGTH |
00000080: 4F 46 20 4C 49 4E 45 53 20 54 4F 20 34 30 00 B5 |OF LINES TO 40..|
00000090: 1C 32 00 8F 20 43 48 41 52 41 43 54 45 52 53 2E |.2.. CHARACTERS.|
000000A0: 20 45 4E 54 45 52 20 41 20 5E 20 28 55 50 20 41 | ENTER A ^ (UP A|
000000B0: 52 52 4F 57 29 00 D9 1C 3C 00 8F 20 46 4F 52 20 |RROW)...<.. FOR |
000000C0: 41 20 50 41 55 53 45 2C 20 41 4E 44 20 45 4E 54 |A PAUSE, AND ENT|
000000D0: 45 52 20 5E 5E 20 46 4F 52 00 F7 1C 46 00 8F 20 |ER ^^ FOR...F.. |
000000E0: 54 48 45 20 45 4E 44 20 4F 46 20 54 48 45 20 4D |THE END OF THE M|
000000F0: 45 53 53 41 47 45 2E 00 0E 1D 50 00 53 41 B2 33 |ESSAGE....P.SA.3|
00000100: 36 30 30 3A 97 35 36 33 33 33 2C 31 32 37 00 1C |600:.56333,127..|
00000110: 1D 5A 00 E7 30 2C 31 3A E7 34 2C 31 00 30 1D 64 |.Z..0,1:.4,1.0.d|
00000120: 00 99 22 93 0E 22 3A 97 32 33 35 2C 32 30 3A 99 |.."..":.235,20:.|
00000130: 00 49 1D 6E 00 81 44 B2 53 41 A4 44 AA 36 33 3A |.I.n..D.SA.D.63:|
00000140: 87 59 3A 97 44 2C 59 3A 82 00 51 1D 78 00 9E 53 |.Y:.D,Y:..Q.x..S|
00000150: 41 00 70 1D 82 00 87 43 24 3A 46 4C B2 30 3A 8B |A.p....C$:FL.0:.|
00000160: C8 28 43 24 2C 31 29 B3 B1 22 5E 22 A7 31 37 30 |.(C$,1).."^".170|
00000170: 00 8C 1D 8C 00 8B 43 24 B2 22 5E 22 A7 46 4C B2 |......C$."^".FL.|
00000180: 31 3A 43 24 B2 22 22 3A 89 31 37 30 00 AD 1D 96 |1:C$."":.170....|
00000190: 00 EB 3A EC FC C2 28 32 30 38 29 3A 97 35 36 33 |..:...(208):.563|
000001A0: 33 33 2C 31 32 39 3A 97 32 30 38 2C 2E 00 CD 1D |33,129:.208,....|
000001B0: A0 00 E7 30 2C 31 32 3A E7 34 2C 31 34 3A E8 3A |...0,12:.4,14:.:|
000001C0: 9E 35 31 33 34 36 3A 9E 31 36 33 38 37 00 EB 1D |.51346:.16387...|
000001D0: AA 00 58 B2 28 34 30 AB C3 28 43 24 29 29 AD 32 |..X.(40..(C$)).2|
000001E0: 3A 99 A3 58 29 43 24 3B 22 91 22 00 01 1E B4 00 |:..X)C$;".".....|
000001F0: 81 59 B2 31 A4 37 3A 9E 53 41 3A FE 0B 2E 35 3A |.Y.1.7:.SA:...5:|
00000200: 82 00 0D 1E BE 00 8B 46 4C A7 FE 0B 32 00 16 1E |.......FL...2...|
00000210: C8 00 89 31 32 30 00 3B 1E D2 00 83 20 31 37 33 |...120.;.... 173|
00000220: 2C 31 38 2C 32 30 38 2C 32 30 31 2C 32 32 36 2C |,18,208,201,226,|
00000230: 32 30 38 2C 32 34 39 2C 31 36 39 00 59 1E DC 00 |208,249,169.Y...|
00000240: 83 20 37 2C 34 34 2C 31 37 2C 32 30 38 2C 32 30 |. 7,44,17,208,20|
00000250: 38 2C 38 2C 31 33 2C 31 37 00 7B 1E E6 00 83 20 |8,8,13,17.{.... |
00000260: 32 30 38 2C 31 34 31 2C 31 37 2C 32 30 38 2C 32 |208,141,17,208,2|
00000270: 30 38 2C 34 2C 32 30 36 2C 31 37 00 9E 1E F0 00 |08,4,206,17.....|
00000280: 83 20 32 30 38 2C 39 36 2C 31 36 39 2C 33 2C 31 |. 208,96,169,3,1|
00000290: 33 33 2C 32 35 32 2C 31 33 33 2C 32 35 34 00 C4 |33,252,133,254..|
000002A0: 1E FA 00 83 20 31 36 39 2C 32 33 32 2C 31 33 33 |.... 169,232,133|
000002B0: 2C 32 35 31 2C 31 36 39 2C 31 39 32 2C 31 33 33 |,251,169,192,133|
000002C0: 2C 32 35 33 00 E7 1E 04 01 83 20 31 36 32 2C 34 |,253...... 162,4|
000002D0: 2C 31 36 30 2C 36 34 2C 31 37 37 2C 32 35 31 2C |,160,64,177,251,|
000002E0: 31 34 35 2C 32 35 33 00 0D 1F 0E 01 83 20 32 30 |145,253...... 20|
000002F0: 30 2C 32 30 38 2C 32 34 39 2C 32 33 30 2C 32 35 |0,208,249,230,25|
00000300: 32 2C 32 33 30 2C 32 35 34 2C 32 30 32 00 30 1F |2,230,254,202.0.|
00000310: 18 01 83 20 32 30 38 2C 32 34 32 2C 31 36 32 2C |... 208,242,162,|
00000320: 32 31 2C 33 32 2C 31 36 35 2C 31 39 36 2C 39 36 |21,32,165,196,96|
00000330: 00 45 1F 22 01 8F 20 44 41 54 41 20 47 4F 45 53 |.E.".. DATA GOES|
00000340: 20 48 45 52 45 00 8F 1F 2C 01 83 20 22 D4 48 49 | HERE...,.. ".HI|
00000350: 53 20 49 53 20 41 20 44 45 4D 4F 20 4F 46 20 41 |S IS A DEMO OF A|
00000360: 20 53 4D 4F 4F 54 48 22 2C 20 2C 22 56 45 52 54 | SMOOTH", ,"VERT|
00000370: 49 43 41 4C 20 53 43 52 45 45 4E 20 53 43 52 4F |ICAL SCREEN SCRO|
00000380: 4C 4C 20 52 4F 55 54 49 4E 45 22 2C 20 2C 2C 00 |LL ROUTINE", ,,.|
00000390: DD 1F 36 01 83 2C 20 2C 20 2C 5E 2C 22 C9 54 20 |..6.., , ,^,".T |
000003A0: 57 41 53 20 57 52 49 54 54 45 4E 20 42 59 22 2C |WAS WRITTEN BY",|
000003B0: 20 2C 22 C2 4F 42 20 4B 37 22 2C 20 2C 22 41 4E | ,".OB K7", ,"AN|
000003C0: 44 20 49 53 20 4E 4F 57 20 55 50 4C 4F 41 44 45 |D IS NOW UPLOADE|
000003D0: 44 20 42 59 20 52 45 51 55 45 53 54 22 00 0F 20 |D BY REQUEST".. |
000003E0: 40 01 83 2C 20 2C 20 2C 20 2C 20 2C 5E 2C 22 D4 |@.., , , , ,^,".|
000003F0: 48 45 20 CD CC 20 52 4F 55 54 49 4E 45 20 55 53 |HE .. ROUTINE US|
00000400: 45 44 20 49 53 20 49 4E 20 C4 C1 D4 C1 22 2C 00 |ED IS IN ....",.|
00000410: 3A 20 4A 01 83 22 53 54 41 54 45 4D 45 4E 54 53 |: J.."STATEMENTS|
00000420: 20 49 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 2C | IN THE PROGRAM,|
00000430: 20 41 4E 44 20 54 48 45 22 2C 00 66 20 54 01 83 | AND THE",.f T..|
00000440: 22 53 4F 55 52 43 45 20 43 4F 44 45 20 49 4E 20 |"SOURCE CODE IN |
00000450: C2 D5 C4 C4 D9 20 46 4F 52 4D 41 54 20 57 49 4C |..... FORMAT WIL|
00000460: 4C 20 42 45 22 2C 00 8C 20 5E 01 83 22 55 50 4C |L BE",.. ^.."UPL|
00000470: 4F 41 44 45 44 20 55 50 4F 4E 20 52 45 51 55 45 |OADED UPON REQUE|
00000480: 53 54 2E 22 2C 20 2C 20 2C 20 2C 5E 00 D9 20 68 |ST.", , , ,^.. h|
00000490: 01 83 22 12 20 D0 52 45 53 53 20 41 4E 59 20 4B |..". .RESS ANY K|
000004A0: 45 59 20 54 4F 20 45 58 49 54 20 22 2C 20 2C 20 |EY TO EXIT ", , |
000004B0: 2C 20 2C 20 2C 22 20 20 20 20 20 20 20 20 20 20 |, , ," |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 C2 4F 42 20 4B 37 22 00 E1 20 72 01 00 04 | .OB K7".. r...|
000004E0: 00 75 00 75 |.u.u |
..&.... PUT MESSAGE IN DATA STATEMENTS.E
.... IN LINE STARTING AT 300..L.... ENTE
R MESSAGE IN QUOTATIONS, AND...(.. LIMIT
LENGTH OF LINES TO 40...2.. CHARACTERS.
ENTER A ^ (UP ARROW).Y.<.. FOR A PAUSE,
AND ENTER ^^ FOR...F.. THE END OF THE M
ESSAGE....P.SA.3600:.56333,127...Z..0,1:
.4,1.0.D.."..":.235,20:..I.N..D.SA.D.63:
.Y:.D,Y:..Q.X..SA.P....C$:FL.0:.H(C$,1).
."^".170......C$."^".FL.1:C$."":.170....
..:..B(208):.56333,129:.208,..M. ..0,12:
.4,14:.:.51346:.16387.....X.(40.C(C$)).2
:..X)C$;"."......Y.1.7:.SA:...5:.......F
L...2...H..120.;.R.. 173,18,208,201,226,
208,249,169.Y.... 7,44,17,208,208,8,13,1
7.{.... 208,141,17,208,208,4,206,17.....
. 208,96,169,3,133,252,133,254.D.... 169
,232,133,251,169,192,133,253...... 162,4
,160,64,177,251,145,253...... 200,208,24
9,230,252,230,254,202.0.... 208,242,162,
21,32,165,196,96.E.".. DATA GOES HERE...
,.. "THIS IS A DEMO OF A SMOOTH", ,"VERT
ICAL SCREEN SCROLL ROUTINE", ,,...6.., ,
,^,"IT WAS WRITTEN BY", ,"BOB K7", ,"AN
D IS NOW UPLOADED BY REQUEST".. @.., , ,
, ,^,"THE ML ROUTINE USED IS IN DATA",.
: J.."STATEMENTS IN THE PROGRAM, AND THE
",.F T.."SOURCE CODE IN BUDDY FORMAT WIL
L BE",.. ^.."UPLOADED UPON REQUEST.", ,
, ,^.Y H..". PRESS ANY KEY TO EXIT ", ,
, , ," BOB K7
".. R....U.U
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL