00000000: 00 80 5E 55 3A 48 41 43 4B 45 52 0D 0D 0D 20 20 |..^U:HACKER... |
00000010: 20 20 20 20 20 20 20 20 20 CC C9 CE C5 20 CC CF | .... ..|
00000020: C3 CB C5 D2 2E 31 32 38 0D 20 20 20 20 20 20 20 |.....128. |
00000030: 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 20 | BY. |
00000040: 20 20 20 20 20 20 20 20 20 20 C4 4F 4E 41 4C 44 | .ONALD|
00000050: 20 C7 52 41 48 41 4D 0D 0D C3 CF CD CD CF C4 CF | .RAHAM.........|
00000060: D2 C5 20 CD C1 C7 C1 DA C9 CE C5 0D CA 55 4E 45 |.. ..........UNE|
00000070: 20 31 39 38 37 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A | 1987..*********|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D CE CF D4 |************....|
000000A0: C5 3A 20 C2 45 43 41 55 53 45 20 54 48 49 53 20 |.: .ECAUSE THIS |
000000B0: 50 52 4F 47 52 41 4D 20 49 53 20 57 52 49 54 54 |PROGRAM IS WRITT|
000000C0: 45 4E 0D 46 4F 52 20 54 48 45 20 C3 2D 31 32 38 |EN.FOR THE .-128|
000000D0: 2C 20 49 54 20 43 41 4E 4E 4F 54 20 42 45 20 52 |, IT CANNOT BE R|
000000E0: 55 4E 20 4C 49 4B 45 0D 4F 54 48 45 52 20 50 52 |UN LIKE.OTHER PR|
000000F0: 4F 47 52 41 4D 53 20 4F 4E 20 CC CF C1 C4 D3 D4 |OGRAMS ON ......|
00000100: C1 D2 2E 20 20 D4 4F 20 52 55 4E 0D 54 48 45 20 |... .O RUN.THE |
00000110: 50 52 4F 47 52 41 4D 2C 20 50 52 45 53 53 20 D2 |PROGRAM, PRESS .|
00000120: C5 D3 C5 D4 20 4F 4E 20 54 48 45 0D C3 2D 31 32 |.... ON THE..-12|
00000130: 38 2E 20 20 D4 48 49 53 20 50 55 54 53 20 54 48 |8. .HIS PUTS TH|
00000140: 45 20 43 4F 4D 50 55 54 45 52 20 49 4E 0D 31 32 |E COMPUTER IN.12|
00000150: 38 20 4D 4F 44 45 20 41 4E 44 20 44 49 53 50 4C |8 MODE AND DISPL|
00000160: 41 59 53 20 41 20 4D 45 4E 55 20 4F 46 20 41 4C |AYS A MENU OF AL|
00000170: 4C 0D 31 32 38 20 50 52 4F 47 52 41 4D 53 20 4F |L.128 PROGRAMS O|
00000180: 4E 20 D3 49 44 45 20 32 20 4F 46 20 54 48 45 20 |N .IDE 2 OF THE |
00000190: 44 49 53 4B 2E 0D C3 48 4F 4F 53 45 20 54 48 45 |DISK...HOOSE THE|
000001A0: 20 50 52 4F 47 52 41 4D 20 54 4F 20 52 55 4E 20 | PROGRAM TO RUN |
000001B0: 46 52 4F 4D 20 54 48 49 53 0D 4D 45 4E 55 2E 0D |FROM THIS.MENU..|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 0D 0D 20 20 CC C9 CE C5 20 CC CF |*****.. .... ..|
000001F0: C3 CB C5 D2 2E 31 32 38 20 50 52 4F 56 49 44 45 |.....128 PROVIDE|
00000200: 53 20 41 4E 0D 49 4E 54 45 52 52 55 50 54 2D 44 |S AN.INTERRUPT-D|
00000210: 52 49 56 45 4E 20 52 4F 55 54 49 4E 45 20 54 48 |RIVEN ROUTINE TH|
00000220: 41 54 20 4C 4F 43 4B 53 0D 41 20 54 45 58 54 20 |AT LOCKS.A TEXT |
00000230: 4C 49 4E 45 20 41 54 20 54 48 45 20 54 4F 50 20 |LINE AT THE TOP |
00000240: 4F 46 20 54 48 45 20 53 43 52 45 45 4E 2C 0D 50 |OF THE SCREEN,.P|
00000250: 52 45 56 45 4E 54 49 4E 47 20 49 54 20 46 52 4F |REVENTING IT FRO|
00000260: 4D 20 53 43 52 4F 4C 4C 49 4E 47 2E 20 20 D9 4F |M SCROLLING. .O|
00000270: 55 0D 43 41 4E 20 55 53 45 20 54 48 49 53 20 52 |U.CAN USE THIS R|
00000280: 4F 55 54 49 4E 45 20 49 4E 20 59 4F 55 52 20 4F |OUTINE IN YOUR O|
00000290: 57 4E 0D 50 52 4F 47 52 41 4D 53 20 54 4F 20 44 |WN.PROGRAMS TO D|
000002A0: 49 53 50 4C 41 59 20 4D 45 53 53 41 47 45 53 2C |ISPLAY MESSAGES,|
000002B0: 20 43 4F 4D 4D 41 4E 44 0D 50 52 4F 4D 50 54 53 | COMMAND.PROMPTS|
000002C0: 2C 20 4F 52 20 4F 54 48 45 52 20 49 4E 46 4F 52 |, OR OTHER INFOR|
000002D0: 4D 41 54 49 4F 4E 2E 0D 0D 20 20 D7 45 27 56 45 |MATION... .E'VE|
000002E0: 20 50 52 4F 56 49 44 45 44 20 54 57 4F 20 45 58 | PROVIDED TWO EX|
000002F0: 41 4D 50 4C 45 53 20 4F 46 0D 4C 4F 43 4B 45 44 |AMPLES OF.LOCKED|
00000300: 20 54 45 58 54 20 4C 49 4E 45 53 2E 20 20 CF 4E | TEXT LINES. .N|
00000310: 45 20 44 45 4D 4F 20 55 53 45 53 20 54 48 45 0D |E DEMO USES THE.|
00000320: CC C9 CE C5 20 CC CF C3 CB C5 D2 2E 31 32 38 20 |.... .......128 |
00000330: 52 4F 55 54 49 4E 45 3B 20 54 48 45 20 4F 54 48 |ROUTINE; THE OTH|
00000340: 45 52 0D 55 53 45 53 20 45 58 49 53 54 49 4E 47 |ER.USES EXISTING|
00000350: 20 C3 2D 31 32 38 20 57 49 4E 44 4F 57 20 52 4F | .-128 WINDOW RO|
00000360: 55 54 49 4E 45 53 2E 0D 28 C3 4F 4E 53 55 4C 54 |UTINES..(.ONSULT|
00000370: 20 54 48 45 20 44 45 4D 4F 20 54 4F 20 4C 45 41 | THE DEMO TO LEA|
00000380: 52 4E 20 48 4F 57 20 54 4F 20 55 53 45 0D 54 48 |RN HOW TO USE.TH|
00000390: 45 20 C3 2D 31 32 38 20 57 49 4E 44 4F 57 20 52 |E .-128 WINDOW R|
000003A0: 4F 55 54 49 4E 45 53 2E 29 0D 0D 20 20 D4 4F 20 |OUTINES.).. .O |
000003B0: 55 53 45 20 C4 4F 4E 41 4C 44 20 C7 52 41 48 41 |USE .ONALD .RAHA|
000003C0: 4D 27 53 20 52 4F 55 54 49 4E 45 20 49 4E 0D 59 |M'S ROUTINE IN.Y|
000003D0: 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 4D 2C |OUR OWN PROGRAM,|
000003E0: 20 46 4F 4C 4C 4F 57 20 54 48 45 53 45 20 53 54 | FOLLOW THESE ST|
000003F0: 45 50 53 3A 0D 0D 2D 2D 20 CC 4F 41 44 20 CC 49 |EPS:..-- .OAD .I|
00000400: 4E 45 20 CC 4F 43 4B 45 52 2E 31 32 38 2E 0D 0D |NE .OCKER.128...|
00000410: 2D 2D 20 CC 49 53 54 20 4C 49 4E 45 53 20 30 2D |-- .IST LINES 0-|
00000420: 31 31 2E 0D 0D 2D 2D 20 C5 4E 54 45 52 20 CE C5 |11...-- .NTER ..|
00000430: D7 2E 0D 0D 2D 2D 20 D0 52 45 53 53 20 D2 C5 D4 |....-- .RESS ...|
00000440: D5 D2 CE 20 4F 56 45 52 20 4C 49 4E 45 53 20 30 |... OVER LINES 0|
00000450: 2C 20 37 2C 20 38 2C 0D 20 20 20 39 2C 20 31 30 |, 7, 8,. 9, 10|
00000460: 2C 20 41 4E 44 20 31 31 2E 0D 0D 2D 2D 20 D0 55 |, AND 11...-- .U|
00000470: 54 20 59 4F 55 52 20 4D 45 53 53 41 47 45 20 49 |T YOUR MESSAGE I|
00000480: 4E 20 4C 49 4E 45 20 30 2E 0D 0D 2D 2D 20 D3 54 |N LINE 0...-- .T|
00000490: 41 52 54 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F |ART YOUR OWN PRO|
000004A0: 47 52 41 4D 20 41 54 20 4C 49 4E 45 20 32 30 2E |GRAM AT LINE 20.|
000004B0: 0D 0D D3 D9 D3 20 32 38 31 36 20 41 43 54 49 56 |..... 2816 ACTIV|
000004C0: 41 54 45 53 20 CC C9 CE C5 20 CC CF C3 CB C5 D2 |ATES .... ......|
000004D0: 2E 31 32 38 3B 0D C2 C1 CE CB 20 31 35 3A 20 D3 |.128;..... 15: .|
000004E0: D9 D3 20 36 35 34 31 38 20 44 45 41 43 54 49 56 |.. 65418 DEACTIV|
000004F0: 41 54 45 53 20 49 54 2E 0D 0D 0D C4 C9 D3 CB 20 |ATES IT........ |
00000500: C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 CF C7 D2 |..... .... .....|
00000510: C1 CD 20 D5 D3 C5 D3 3A 0D 0D CC C9 CE C5 20 CC |.. ....:...... .|
00000520: CF C3 CB C5 D2 2E 31 32 38 20 20 20 20 D4 2E CC |......128 ...|
00000530: C9 CE C5 20 CC CF C3 CB C5 D2 2E 31 32 0D 0D 20 |... .......12.. |
00000540: 20 20 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 | **** .ND |
00000550: CF 46 20 D4 45 58 54 20 2A 2A 2A 2A 0D |.F .EXT ****. |
..^U:HACKER... LINE LOCKER.128
. BY. DONALD
GRAHAM..COMMODORE MAGAZINE.JUNE 1987..*
************************************.NOT
E: BECAUSE THIS PROGRAM IS WRITTEN.FOR T
HE C-128, IT CANNOT BE RUN LIKE.OTHER PR
OGRAMS ON LOADSTAR. TO RUN.THE PROGRAM,
PRESS RESET ON THE.C-128. THIS PUTS TH
E COMPUTER IN.128 MODE AND DISPLAYS A ME
NU OF ALL.128 PROGRAMS ON SIDE 2 OF THE
DISK..CHOOSE THE PROGRAM TO RUN FROM THI
S.MENU..********************************
*****.. LINE LOCKER.128 PROVIDES AN.INT
ERRUPT-DRIVEN ROUTINE THAT LOCKS.A TEXT
LINE AT THE TOP OF THE SCREEN,.PREVENTIN
G IT FROM SCROLLING. YOU.CAN USE THIS R
OUTINE IN YOUR OWN.PROGRAMS TO DISPLAY M
ESSAGES, COMMAND.PROMPTS, OR OTHER INFOR
MATION... WE'VE PROVIDED TWO EXAMPLES O
F.LOCKED TEXT LINES. ONE DEMO USES THE.
LINE LOCKER.128 ROUTINE; THE OTHER.USES
EXISTING C-128 WINDOW ROUTINES..(CONSULT
THE DEMO TO LEARN HOW TO USE.THE C-128
WINDOW ROUTINES.).. TO USE DONALD GRAHA
M'S ROUTINE IN.YOUR OWN PROGRAM, FOLLOW
THESE STEPS:..-- LOAD LINE LOCKER.128...
-- LIST LINES 0-11...-- ENTER NEW...-- P
RESS RETURN OVER LINES 0, 7, 8,. 9, 10
, AND 11...-- PUT YOUR MESSAGE IN LINE 0
...-- START YOUR OWN PROGRAM AT LINE 20.
..SYS 2816 ACTIVATES LINE LOCKER.128;.BA
NK 15: SYS 65418 DEACTIVATES IT....DISK
FILES THIS PROGRAM USES:..LINE LOCKER.12
8 T.LINE LOCKER.12.. **** END
OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL