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 D0 CF C9 CE D4 C5 D2 | .......|
00000020: 20 C4 C5 CD CF 20 31 32 38 0D 20 20 20 20 20 20 | .... 128. |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 | BY. |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 C2 52 55 43 | .RUC|
00000050: 45 20 CA 41 45 47 45 52 0D 0D C3 CF CD CD CF C4 |E .AEGER........|
00000060: CF D2 C5 20 CD C1 C7 C1 DA C9 CE C5 0D CA 55 4E |... ..........UN|
00000070: 45 20 31 39 38 37 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A |E 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 2A 0D CE CF |*************...|
000000A0: D4 C5 3A 20 C2 45 43 41 55 53 45 20 54 48 49 53 |..: .ECAUSE THIS|
000000B0: 20 50 52 4F 47 52 41 4D 20 49 53 20 57 52 49 54 | PROGRAM IS WRIT|
000000C0: 54 45 4E 0D 46 4F 52 20 54 48 45 20 C3 2D 31 32 |TEN.FOR THE .-12|
000000D0: 38 2C 20 49 54 20 43 41 4E 4E 4F 54 20 42 45 20 |8, IT CANNOT BE |
000000E0: 52 55 4E 20 4C 49 4B 45 0D 4F 54 48 45 52 20 50 |RUN LIKE.OTHER P|
000000F0: 52 4F 47 52 41 4D 53 20 4F 4E 20 CC CF C1 C4 D3 |ROGRAMS ON .....|
00000100: D4 C1 D2 2E 20 20 D4 4F 20 52 55 4E 0D 54 48 45 |.... .O RUN.THE|
00000110: 20 50 52 4F 47 52 41 4D 2C 20 50 52 45 53 53 20 | PROGRAM, PRESS |
00000120: D2 C5 D3 C5 D4 20 4F 4E 20 54 48 45 0D C3 2D 31 |..... ON THE..-1|
00000130: 32 38 2E 20 20 D4 48 49 53 20 50 55 54 53 20 54 |28. .HIS PUTS T|
00000140: 48 45 20 43 4F 4D 50 55 54 45 52 20 49 4E 54 4F |HE COMPUTER INTO|
00000150: 0D 31 32 38 20 4D 4F 44 45 20 41 4E 44 20 44 49 |.128 MODE AND DI|
00000160: 53 50 4C 41 59 53 20 41 20 4D 45 4E 55 20 4F 46 |SPLAYS A MENU OF|
00000170: 20 41 4C 4C 0D 31 32 38 20 50 52 4F 47 52 41 4D | ALL.128 PROGRAM|
00000180: 53 20 4F 4E 20 D3 49 44 45 20 32 20 4F 46 20 54 |S ON .IDE 2 OF T|
00000190: 48 45 20 44 49 53 4B 2E 0D C3 48 4F 4F 53 45 20 |HE DISK...HOOSE |
000001A0: 54 48 45 20 50 52 4F 47 52 41 4D 20 54 4F 20 52 |THE PROGRAM TO R|
000001B0: 55 4E 20 46 52 4F 4D 20 54 48 49 53 0D 4D 45 4E |UN FROM THIS.MEN|
000001C0: 55 2E 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |U..*************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 20 20 C2 C1 D3 C9 |********.. ....|
000001F0: C3 20 37 2E 30 27 53 20 D0 CF C9 CE D4 C5 D2 20 |. 7.0'S ....... |
00000200: 46 55 4E 43 54 49 4F 4E 20 46 49 4E 44 53 0D 56 |FUNCTION FINDS.V|
00000210: 41 52 49 41 42 4C 45 53 20 53 54 4F 52 45 44 20 |ARIABLES STORED |
00000220: 49 4E 20 4D 45 4D 4F 52 59 2E 20 D7 48 41 54 20 |IN MEMORY. .HAT |
00000230: 43 41 4E 0D 42 45 20 44 4F 4E 45 20 57 49 54 48 |CAN.BE DONE WITH|
00000240: 20 54 48 49 53 20 49 4E 46 4F 52 4D 41 54 49 4F | THIS INFORMATIO|
00000250: 4E 3F 0D D0 CF C9 CE D4 C5 D2 20 43 41 4E 20 53 |N?........ CAN S|
00000260: 4F 4D 45 54 49 4D 45 53 20 42 45 20 55 53 45 44 |OMETIMES BE USED|
00000270: 20 54 4F 0D 53 50 45 45 44 20 53 4C 4F 57 20 50 | TO.SPEED SLOW P|
00000280: 41 52 54 53 20 4F 46 20 50 52 4F 47 52 41 4D 53 |ARTS OF PROGRAMS|
00000290: 20 4F 52 0D 50 45 52 46 4F 52 4D 20 43 48 41 52 | OR.PERFORM CHAR|
000002A0: 41 43 54 45 52 2D 53 54 52 49 4E 47 20 4D 41 4E |ACTER-STRING MAN|
000002B0: 49 50 55 4C 41 54 49 4F 4E 53 0D 54 48 41 54 20 |IPULATIONS.THAT |
000002C0: 41 52 45 20 43 4C 55 4D 53 59 20 49 4E 20 C2 C1 |ARE CLUMSY IN ..|
000002D0: D3 C9 C3 2E 0D 0D 20 20 C2 52 55 43 45 20 CA 41 |...... .RUCE .A|
000002E0: 45 47 45 52 27 53 20 D0 CF C9 CE D4 C5 D2 20 C4 |EGER'S ....... .|
000002F0: C5 CD CF 0D 50 52 45 53 45 4E 54 53 20 54 57 4F |....PRESENTS TWO|
00000300: 20 50 52 4F 47 52 41 4D 53 20 54 48 41 54 20 50 | PROGRAMS THAT P|
00000310: 45 52 46 4F 52 4D 0D 54 48 45 20 53 41 4D 45 20 |ERFORM.THE SAME |
00000320: 54 41 53 4B 20 2D 2D 20 45 41 43 48 20 54 41 4B |TASK -- EACH TAK|
00000330: 45 53 20 41 0D 43 48 41 52 41 43 54 45 52 20 53 |ES A.CHARACTER S|
00000340: 54 52 49 4E 47 20 4F 46 20 43 41 50 49 54 41 4C |TRING OF CAPITAL|
00000350: 49 5A 45 44 0D 4C 45 54 54 45 52 53 20 41 4E 44 |IZED.LETTERS AND|
00000360: 20 43 48 41 4E 47 45 53 20 54 48 45 20 4C 45 54 | CHANGES THE LET|
00000370: 54 45 52 53 20 54 4F 0D 54 48 45 49 52 20 4C 4F |TERS TO.THEIR LO|
00000380: 57 45 52 2D 43 41 53 45 20 45 51 55 49 56 41 4C |WER-CASE EQUIVAL|
00000390: 45 4E 54 53 2E 0D 0D 20 20 D4 48 45 20 46 49 52 |ENTS... .HE FIR|
000003A0: 53 54 20 50 52 4F 47 52 41 4D 20 55 54 49 4C 49 |ST PROGRAM UTILI|
000003B0: 5A 45 53 20 54 48 45 0D D0 CF C9 CE D4 C5 D2 20 |ZES THE........ |
000003C0: 46 55 4E 43 54 49 4F 4E 2E 20 20 D4 48 45 20 53 |FUNCTION. .HE S|
000003D0: 45 43 4F 4E 44 20 50 52 4F 47 52 41 4D 0D 55 53 |ECOND PROGRAM.US|
000003E0: 45 53 20 41 20 43 4F 4D 4D 4F 4E 20 53 54 52 49 |ES A COMMON STRI|
000003F0: 4E 47 2D 4D 41 4E 49 50 55 4C 41 54 49 4F 4E 0D |NG-MANIPULATION.|
00000400: 4D 45 54 48 4F 44 2E 20 20 C1 53 20 4D 41 59 20 |METHOD. .S MAY |
00000410: 42 45 20 53 45 45 4E 2C 20 54 48 45 20 46 49 52 |BE SEEN, THE FIR|
00000420: 53 54 0D 50 52 4F 47 52 41 4D 20 49 53 20 4F 56 |ST.PROGRAM IS OV|
00000430: 45 52 20 4F 4E 45 20 41 4E 44 20 4F 4E 45 2D 48 |ER ONE AND ONE-H|
00000440: 41 4C 46 20 54 49 4D 45 53 0D 46 41 53 54 45 52 |ALF TIMES.FASTER|
00000450: 20 54 48 41 4E 20 54 48 45 20 53 45 43 4F 4E 44 | THAN THE SECOND|
00000460: 20 50 52 4F 47 52 41 4D 2E 0D 0D 20 20 D4 4F 20 | PROGRAM... .O |
00000470: 4C 45 41 52 4E 20 4D 4F 52 45 20 41 42 4F 55 54 |LEARN MORE ABOUT|
00000480: 20 54 48 45 20 D0 CF C9 CE D4 C5 D2 0D 46 55 4E | THE ........FUN|
00000490: 43 54 49 4F 4E 2C 20 54 41 4B 45 20 41 20 4C 4F |CTION, TAKE A LO|
000004A0: 4F 4B 20 41 54 20 54 48 45 20 D0 CF C9 CE D4 C5 |OK AT THE ......|
000004B0: D2 0D C4 C5 CD CF 20 50 52 4F 47 52 41 4D 20 4C |...... PROGRAM L|
000004C0: 49 53 54 49 4E 47 20 4F 52 20 43 4F 4E 53 55 4C |ISTING OR CONSUL|
000004D0: 54 20 C2 52 55 43 45 0D CA 41 45 47 45 52 27 53 |T .RUCE..AEGER'S|
000004E0: 20 C3 4F 4D 4D 4F 44 4F 52 45 20 CD 41 47 41 5A | .OMMODORE .AGAZ|
000004F0: 49 4E 45 20 41 52 54 49 43 4C 45 2E 0D 0D 0D C4 |INE ARTICLE.....|
00000500: C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 |... ..... .... .|
00000510: D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 3A 0D 0D D0 CF |...... ....:....|
00000520: C9 CE D4 C5 D2 20 C4 C5 CD CF 2E 31 32 38 20 20 |..... .....128 |
00000530: 20 D4 2E D0 CF C9 CE D4 C5 D2 20 C4 C5 CD CF 2E | ......... .....|
00000540: 31 0D 0D 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 |1.. **** |
00000550: C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A 2A 2A 2A |.ND .F .EXT ****|
00000560: 0D |. |
..^U:HACKER... POINTER DEMO 12
8. BY. BRUC
E JAEGER..COMMODORE MAGAZINE.JUNE 1987..
*************************************.NO
TE: BECAUSE THIS PROGRAM IS WRITTEN.FOR
THE C-128, IT CANNOT BE RUN LIKE.OTHER P
ROGRAMS ON LOADSTAR. TO RUN.THE PROGRAM
, PRESS RESET ON THE.C-128. THIS PUTS T
HE COMPUTER INTO.128 MODE AND DISPLAYS A
MENU OF ALL.128 PROGRAMS ON SIDE 2 OF T
HE DISK..CHOOSE THE PROGRAM TO RUN FROM
THIS.MENU..*****************************
********.. BASIC 7.0'S POINTER FUNCTION
FINDS.VARIABLES STORED IN MEMORY. WHAT
CAN.BE DONE WITH THIS INFORMATION?.POINT
ER CAN SOMETIMES BE USED TO.SPEED SLOW P
ARTS OF PROGRAMS OR.PERFORM CHARACTER-ST
RING MANIPULATIONS.THAT ARE CLUMSY IN BA
SIC... BRUCE JAEGER'S POINTER DEMO.PRES
ENTS TWO PROGRAMS THAT PERFORM.THE SAME
TASK -- EACH TAKES A.CHARACTER STRING OF
CAPITALIZED.LETTERS AND CHANGES THE LET
TERS TO.THEIR LOWER-CASE EQUIVALENTS...
THE FIRST PROGRAM UTILIZES THE.POINTER
FUNCTION. THE SECOND PROGRAM.USES A COM
MON STRING-MANIPULATION.METHOD. AS MAY
BE SEEN, THE FIRST.PROGRAM IS OVER ONE A
ND ONE-HALF TIMES.FASTER THAN THE SECOND
PROGRAM... TO LEARN MORE ABOUT THE POI
NTER.FUNCTION, TAKE A LOOK AT THE POINTE
R.DEMO PROGRAM LISTING OR CONSULT BRUCE.
JAEGER'S COMMODORE MAGAZINE ARTICLE....D
ISK FILES THIS PROGRAM USES:..POINTER DE
MO.128 T.POINTER DEMO.1.. ****
END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL