00000000: 00 80 0D 0D 20 20 20 20 20 20 20 20 20 20 20 C5 |.... .|
00000010: C1 D3 D9 C4 C1 D4 C1 2D 31 32 38 0D 20 20 20 20 |.......-128. |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 | BY. |
00000030: 20 20 20 20 20 20 20 20 D2 2E 20 C8 41 52 4F 4C | .. .AROL|
00000040: 44 20 C4 52 4F 49 44 0D 0D 0D C3 CF CD CD CF C4 |D .ROID.........|
00000050: CF D2 C5 20 CD C9 C3 D2 CF C3 CF CD D0 D5 D4 C5 |... ............|
00000060: D2 D3 20 CD C1 C7 C1 DA C9 CE C5 0D CE 4F 56 45 |.. ..........OVE|
00000070: 4D 42 45 52 2F C4 45 43 45 4D 42 45 52 20 31 39 |MBER/.ECEMBER 19|
00000080: 38 36 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |86..************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D CE CF D4 C5 3A 20 |*********.....: |
000000B0: C2 45 43 41 55 53 45 20 54 48 49 53 20 50 52 4F |.ECAUSE THIS PRO|
000000C0: 47 52 41 4D 20 49 53 20 57 52 49 54 54 45 4E 0D |GRAM IS WRITTEN.|
000000D0: 46 4F 52 20 54 48 45 20 C3 4F 4D 4D 4F 44 4F 52 |FOR THE .OMMODOR|
000000E0: 45 20 31 32 38 2C 20 49 54 20 43 41 4E 4E 4F 54 |E 128, IT CANNOT|
000000F0: 20 42 45 0D 52 55 4E 20 4C 49 4B 45 20 54 48 45 | BE.RUN LIKE THE|
00000100: 20 4F 54 48 45 52 20 50 52 4F 47 52 41 4D 53 20 | OTHER PROGRAMS |
00000110: 4F 4E 0D CC CF C1 C4 D3 D4 C1 D2 2E 20 20 D4 4F |ON.......... .O|
00000120: 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 | RUN THIS PROGRA|
00000130: 4D 2C 20 4D 41 4B 45 0D 53 55 52 45 20 D3 49 44 |M, MAKE.SURE .ID|
00000140: 45 20 32 20 49 53 20 49 4E 20 54 48 45 20 44 52 |E 2 IS IN THE DR|
00000150: 49 56 45 2C 20 54 48 45 4E 0D 50 52 45 53 53 20 |IVE, THEN.PRESS |
00000160: 59 4F 55 52 20 31 32 38 27 53 20 D2 C5 D3 C5 D4 |YOUR 128'S .....|
00000170: 20 42 55 54 54 4F 4E 2E 20 20 D4 48 49 53 0D 57 | BUTTON. .HIS.W|
00000180: 49 4C 4C 20 44 49 53 50 4C 41 59 20 41 20 4D 45 |ILL DISPLAY A ME|
00000190: 4E 55 20 4F 46 20 41 4C 4C 20 C3 2D 31 32 38 0D |NU OF ALL .-128.|
000001A0: 50 52 4F 47 52 41 4D 53 20 4F 46 20 54 48 49 53 |PROGRAMS OF THIS|
000001B0: 20 49 53 53 55 45 2E 20 20 C3 48 4F 4F 53 45 20 | ISSUE. .HOOSE |
000001C0: 54 48 45 0D 50 52 4F 47 52 41 4D 20 59 4F 55 20 |THE.PROGRAM YOU |
000001D0: 57 49 53 48 20 54 4F 20 52 55 4E 20 46 52 4F 4D |WISH TO RUN FROM|
000001E0: 20 54 48 49 53 0D 4D 45 4E 55 2E 0D 0D C1 4C 53 | THIS.MENU....LS|
000001F0: 4F 20 4E 4F 54 45 20 54 48 41 54 20 54 48 49 53 |O NOTE THAT THIS|
00000200: 20 50 52 4F 47 52 41 4D 20 44 4F 45 53 20 4E 4F | PROGRAM DOES NO|
00000210: 54 0D 52 45 4C 49 4E 4B 20 54 4F 20 CC CF C1 C4 |T.RELINK TO ....|
00000220: D3 D4 C1 D2 2E 20 20 D4 4F 20 52 45 54 55 52 4E |..... .O RETURN|
00000230: 20 54 4F 0D CC CF C1 C4 D3 D4 C1 D2 2C 20 59 4F | TO........., YO|
00000240: 55 20 4D 55 53 54 20 52 45 42 4F 4F 54 20 54 48 |U MUST REBOOT TH|
00000250: 45 20 CC CF C1 C4 2D 0D D3 D4 C1 D2 20 44 49 53 |E ....-..... DIS|
00000260: 4B 2E 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |K..*************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 0D 20 20 C5 C1 D3 |********... ...|
00000290: D9 C4 C1 D4 C1 2D 31 32 38 20 49 53 20 41 20 53 |.....-128 IS A S|
000002A0: 48 4F 52 54 20 50 52 4F 47 52 41 4D 0D 54 48 41 |HORT PROGRAM.THA|
000002B0: 54 20 52 45 44 45 46 49 4E 45 53 20 54 48 45 20 |T REDEFINES THE |
000002C0: 22 2B 22 20 41 4E 44 20 22 2D 22 20 4B 45 59 53 |"+" AND "-" KEYS|
000002D0: 0D 4F 4E 20 54 48 45 20 31 32 38 27 53 20 4E 55 |.ON THE 128'S NU|
000002E0: 4D 45 52 49 43 20 4B 45 59 42 4F 41 52 44 20 54 |MERIC KEYBOARD T|
000002F0: 4F 0D 50 52 49 4E 54 2C 20 52 45 53 50 45 43 54 |O.PRINT, RESPECT|
00000300: 49 56 45 4C 59 2C 20 22 44 41 54 41 22 20 41 4E |IVELY, "DATA" AN|
00000310: 44 20 22 2C 22 2E 0D 0D 20 20 22 CE 4F 57 2C 20 |D ","... ".OW, |
00000320: 57 41 49 54 20 41 20 4D 49 4E 55 54 45 2E 2E 2E |WAIT A MINUTE...|
00000330: 22 20 59 4F 55 20 53 41 59 20 41 53 0D 59 4F 55 |" YOU SAY AS.YOU|
00000340: 20 52 45 4D 45 4D 42 45 52 20 54 48 41 54 20 59 | REMEMBER THAT Y|
00000350: 4F 55 20 43 41 4E 20 52 45 44 45 46 49 4E 45 0D |OU CAN REDEFINE.|
00000360: 41 4E 59 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 |ANY FUNCTION KEY|
00000370: 20 49 4E 20 41 20 4A 49 46 46 59 20 42 59 20 4A | IN A JIFFY BY J|
00000380: 55 53 54 0D 54 59 50 49 4E 47 3A 20 CB C5 D9 20 |UST.TYPING: ... |
00000390: 28 31 2D 38 29 2C 20 22 C4 C1 D4 C1 22 2E 0D 0D |(1-8), "...."...|
000003A0: 20 20 D7 48 59 20 42 4F 54 48 45 52 20 54 4F 20 | .HY BOTHER TO |
000003B0: 57 52 49 54 45 20 41 20 50 52 4F 47 52 41 4D 20 |WRITE A PROGRAM |
000003C0: 57 48 45 4E 0D 4F 4E 45 20 4C 49 4E 45 20 4F 46 |WHEN.ONE LINE OF|
000003D0: 20 43 4F 44 45 20 57 49 4C 4C 20 47 49 56 45 20 | CODE WILL GIVE |
000003E0: 59 4F 55 20 54 48 45 0D 53 41 4D 45 20 52 45 53 |YOU THE.SAME RES|
000003F0: 55 4C 54 53 3F 20 20 D7 45 4C 4C 2C 20 54 48 49 |ULTS? .ELL, THI|
00000400: 53 20 50 52 4F 47 52 41 4D 20 49 53 0D 52 45 41 |S PROGRAM IS.REA|
00000410: 4C 4C 59 20 44 45 53 49 47 4E 45 44 20 46 4F 52 |LLY DESIGNED FOR|
00000420: 20 54 48 4F 53 45 20 50 52 4F 47 52 41 4D 4D 45 | THOSE PROGRAMME|
00000430: 52 53 0D 57 48 4F 20 4F 46 54 45 4E 20 54 59 50 |RS.WHO OFTEN TYP|
00000440: 45 20 49 4E 20 4D 41 43 48 49 4E 45 20 4C 41 4E |E IN MACHINE LAN|
00000450: 47 55 41 47 45 0D 50 52 4F 47 52 41 4D 53 20 53 |GUAGE.PROGRAMS S|
00000460: 54 4F 52 45 44 20 49 4E 20 C4 C1 D4 C1 20 53 54 |TORED IN .... ST|
00000470: 41 54 45 4D 45 4E 54 53 2E 0D D2 45 44 45 46 49 |ATEMENTS...EDEFI|
00000480: 4E 49 4E 47 20 54 48 45 20 22 2B 22 20 41 4E 44 |NING THE "+" AND|
00000490: 20 22 2D 22 20 4B 45 59 0D 41 4C 4C 4F 57 53 20 | "-" KEY.ALLOWS |
000004A0: 59 4F 55 52 20 46 49 4E 47 45 52 53 20 54 4F 20 |YOUR FINGERS TO |
000004B0: 53 54 41 59 20 4F 4E 20 54 48 45 0D 4E 55 4D 45 |STAY ON THE.NUME|
000004C0: 52 49 43 20 4B 45 59 50 41 44 2E 0D 0D 20 20 D4 |RIC KEYPAD... .|
000004D0: 4F 20 55 53 45 20 C5 C1 D3 D9 C4 C1 D4 C1 2D 31 |O USE ........-1|
000004E0: 32 38 2C 20 4C 4F 41 44 20 41 4E 44 20 52 55 4E |28, LOAD AND RUN|
000004F0: 0D 49 54 20 42 45 46 4F 52 45 20 59 4F 55 20 53 |.IT BEFORE YOU S|
00000500: 54 41 52 54 20 45 4E 54 45 52 49 4E 47 20 4C 49 |TART ENTERING LI|
00000510: 4E 45 53 2E 0D D4 48 45 4E 20 57 48 45 4E 20 59 |NES...HEN WHEN Y|
00000520: 4F 55 20 48 49 54 20 41 20 53 45 43 54 49 4F 4E |OU HIT A SECTION|
00000530: 20 4F 46 20 C4 C1 D4 C1 0D 53 54 41 54 45 4D 45 | OF .....STATEME|
00000540: 4E 54 53 2C 20 41 43 54 49 56 41 54 45 20 54 48 |NTS, ACTIVATE TH|
00000550: 45 20 50 52 4F 47 52 41 4D 20 42 59 0D 54 59 50 |E PROGRAM BY.TYP|
00000560: 49 4E 47 20 D3 D9 D3 20 36 31 34 34 2E 20 20 D4 |ING ... 6144. .|
00000570: 4F 20 44 49 53 41 42 4C 45 20 54 48 45 0D 50 52 |O DISABLE THE.PR|
00000580: 4F 47 52 41 4D 2C 20 55 53 45 20 54 48 45 20 D2 |OGRAM, USE THE .|
00000590: D5 CE 2F D3 D4 CF D0 2D D2 C5 D3 D4 CF D2 C5 0D |../....-........|
000005A0: 43 4F 4D 42 49 4E 41 54 49 4F 4E 2E 0D 0D 0D C4 |COMBINATION.....|
000005B0: C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 |... ..... .... .|
000005C0: D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 0D 0D C5 C1 D3 |...... .........|
000005D0: D9 C4 C1 D4 C1 2D 31 32 38 0D D4 2E C5 C1 D3 D9 |.....-128.......|
000005E0: C4 C1 D4 C1 2D 31 32 38 0D 0D 20 20 20 20 20 20 |....-128.. |
000005F0: 20 20 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 20 D4 45 | **** .ND .F .E|
00000600: 58 54 20 2A 2A 2A 2A 0D |XT ****. |
.... EASYDATA-128.
BY. R. HAROLD DROID...COMMOD
ORE MICROCOMPUTERS MAGAZINE.NOVEMBER/DEC
EMBER 1986..****************************
*********.NOTE: BECAUSE THIS PROGRAM IS
WRITTEN.FOR THE COMMODORE 128, IT CANNOT
BE.RUN LIKE THE OTHER PROGRAMS ON.LOADS
TAR. TO RUN THIS PROGRAM, MAKE.SURE SID
E 2 IS IN THE DRIVE, THEN.PRESS YOUR 128
'S RESET BUTTON. THIS.WILL DISPLAY A ME
NU OF ALL C-128.PROGRAMS OF THIS ISSUE.
CHOOSE THE.PROGRAM YOU WISH TO RUN FROM
THIS.MENU...ALSO NOTE THAT THIS PROGRAM
DOES NOT.RELINK TO LOADSTAR. TO RETURN
TO.LOADSTAR, YOU MUST REBOOT THE LOAD-.
STAR DISK..*****************************
********... EASYDATA-128 IS A SHORT PRO
GRAM.THAT REDEFINES THE "+" AND "-" KEYS
.ON THE 128'S NUMERIC KEYBOARD TO.PRINT,
RESPECTIVELY, "DATA" AND ","... "NOW,
WAIT A MINUTE..." YOU SAY AS.YOU REMEMBE
R THAT YOU CAN REDEFINE.ANY FUNCTION KEY
IN A JIFFY BY JUST.TYPING: KEY (1-8), "
DATA"... WHY BOTHER TO WRITE A PROGRAM
WHEN.ONE LINE OF CODE WILL GIVE YOU THE.
SAME RESULTS? WELL, THIS PROGRAM IS.REA
LLY DESIGNED FOR THOSE PROGRAMMERS.WHO O
FTEN TYPE IN MACHINE LANGUAGE.PROGRAMS S
TORED IN DATA STATEMENTS..REDEFINING THE
"+" AND "-" KEY.ALLOWS YOUR FINGERS TO
STAY ON THE.NUMERIC KEYPAD... TO USE EA
SYDATA-128, LOAD AND RUN.IT BEFORE YOU S
TART ENTERING LINES..THEN WHEN YOU HIT A
SECTION OF DATA.STATEMENTS, ACTIVATE TH
E PROGRAM BY.TYPING SYS 6144. TO DISABL
E THE.PROGRAM, USE THE RUN/STOP-RESTORE.
COMBINATION....DISK FILES THIS PROGRAM U
SES..EASYDATA-128.T.EASYDATA-128..
**** END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL