POINTER DEMO
FILE INFORMATION
FILENAME(S): POINTER DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 18:12:05
APPEARS ON: 1 disk(s)
FILE HASH
c0e4e4517af211d38853cc0bc97c57e18fbbfa16df251e1e2e92b36b0ae294d0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 36 S 2 | POINTER DEMO | PRG | Sailor, Ganheden | 13 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0E 1C 0A 00 8D 36 30 31 30 30 3A 9C 00 3F |.......60100:..?| 00000010: 1C 14 00 99 22 93 1C 20 C4 C5 CD CF 20 23 31 20 |....".. .... #1 | 00000020: 2D 20 D5 53 49 4E 47 20 D0 CF C9 CE D4 C5 D2 20 |- .SING ....... | 00000030: 54 4F 20 43 48 41 4E 47 45 20 43 41 53 45 22 00 |TO CHANGE CASE".| 00000040: 4F 1C 1E 00 81 41 B2 31 A4 32 30 30 30 3A 82 00 |O....A.1.2000:..| 00000050: 60 1C 64 00 54 49 24 B2 22 30 30 30 30 30 30 22 |`.d.TI$."000000"| 00000060: 00 84 1C 6E 00 41 24 B2 22 C1 C2 C3 C4 C5 C6 C7 |...n.A$.".......| 00000070: C8 C9 CA CB CC CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 |................| 00000080: D8 D9 DA 22 00 97 1C 78 00 41 24 B2 41 24 AA 41 |..."...x.A$.A$.A| 00000090: 24 AA 41 24 AA 41 24 00 C0 1C 82 00 99 22 11 1F |$.A$.A$......"..| 000000A0: C1 24 3D 22 C7 28 33 34 29 3B 3A 97 32 34 34 2C |.$=".(34);:.244,| 000000B0: 2E 3A 99 22 81 22 41 24 22 1F 22 C7 28 33 34 29 |.:."."A$".".(34)| 000000C0: 00 E8 1C 87 00 99 22 11 20 20 20 20 20 20 20 20 |......". | 000000D0: C3 48 41 4E 47 49 4E 47 20 43 41 53 45 20 4F 46 |.HANGING CASE OF| 000000E0: 20 C1 24 20 2E 2E 2E 22 00 F5 1C 8C 00 58 B2 CE | .$ ...".....X..| 000000F0: 0A 28 41 24 29 00 FD 1C 96 00 FE 02 31 00 1A 1D |.(A$).......1...| 00000100: A0 00 4C 45 B2 C2 28 58 29 20 20 3A 8F 20 4C 45 |..LE..(X) :. LE| 00000110: 4E 47 54 48 20 4F 46 20 41 24 00 3E 1D AA 00 4C |NGTH OF A$.>...L| 00000120: 42 B2 C2 28 58 AA 31 29 3A 8F 20 4C 4F 57 20 42 |B..(X.1):. LOW B| 00000130: 59 54 45 20 4F 46 20 41 44 44 52 45 53 53 00 58 |YTE OF ADDRESS.X| 00000140: 1D B4 00 48 42 B2 C2 28 58 AA 32 29 3A 8F 20 48 |...HB..(X.2):. H| 00000150: 49 47 48 20 42 59 54 45 00 69 1D BE 00 41 44 B2 |IGH BYTE.i...AD.| 00000160: 48 42 AC 32 35 36 AA 4C 42 00 79 1D C8 00 81 58 |HB.256.LB.y....X| 00000170: B2 41 44 A4 41 44 AA 4C 45 00 8D 1D D2 00 50 B2 |.AD.AD.LE.....P.| 00000180: C2 28 58 29 3A 8F 20 4C 45 54 54 45 52 00 A3 1D |.(X):. LETTER...| 00000190: DC 00 8B 28 50 AF 31 32 38 29 A7 97 58 2C 50 AB |...(P.128)..X,P.| 000001A0: 31 32 38 00 A9 1D E6 00 82 00 D1 1D F0 00 99 22 |128............"| 000001B0: 11 C1 24 3D 22 C7 28 33 34 29 3B 3A 97 32 34 34 |..$=".(34);:.244| 000001C0: 2C 2E 3A 99 22 81 22 41 24 22 1F 22 C7 28 33 34 |,.:."."A$".".(34| 000001D0: 29 00 F8 1D FA 00 54 31 B2 54 49 AC 2E 30 31 36 |).....T1.TI..016| 000001E0: 36 37 3A 99 22 11 1E D4 49 4D 45 3A 22 54 31 22 |67:."...IME:"T1"| 000001F0: 53 45 43 4F 4E 44 53 22 00 2A 1E 04 01 99 22 11 |SECONDS".*....".| 00000200: 20 20 20 20 20 20 90 D0 52 45 53 53 20 D3 D0 C1 | ..RESS ...| 00000210: C3 C5 20 46 4F 52 20 C4 C5 CD CF 20 23 32 20 2E |.. FOR .... #2 .| 00000220: 2E 2E 22 3A 97 32 30 38 2C 2E 00 3F 1E 0E 01 A1 |..":.208,..?....| 00000230: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 32 37 30 00 |A$:.A$.." ".270.| 00000240: 6E 1E 10 01 99 22 93 1C 20 20 C4 C5 CD CF 20 23 |n....".. .... #| 00000250: 32 20 2D 20 D5 53 49 4E 47 20 CD C9 C4 24 20 54 |2 - .SING ...$ T| 00000260: 4F 20 43 48 41 4E 47 45 20 43 41 53 45 22 00 7E |O CHANGE CASE".~| 00000270: 1E 12 01 81 41 B2 31 A4 32 30 30 30 3A 82 00 8F |....A.1.2000:...| 00000280: 1E F4 01 54 49 24 B2 22 30 30 30 30 30 30 22 00 |...TI$."000000".| 00000290: B3 1E FE 01 41 24 B2 22 C1 C2 C3 C4 C5 C6 C7 C8 |....A$."........| 000002A0: C9 CA CB CC CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 D8 |................| 000002B0: D9 DA 22 00 C6 1E 08 02 41 24 B2 41 24 AA 41 24 |..".....A$.A$.A$| 000002C0: AA 41 24 AA 41 24 00 EF 1E 12 02 99 22 11 1F C1 |.A$.A$......"...| 000002D0: 24 3D 22 C7 28 33 34 29 3B 3A 97 32 34 34 2C 2E |$=".(34);:.244,.| 000002E0: 3A 99 22 81 22 41 24 22 1F 22 C7 28 33 34 29 00 |:."."A$".".(34).| 000002F0: FA 1E 1C 02 41 41 24 B2 22 22 00 22 1F 21 02 99 |....AA$."".".!..| 00000300: 22 11 20 20 20 20 20 20 20 20 C3 48 41 4E 47 49 |". .HANGI| 00000310: 4E 47 20 43 41 53 45 20 4F 46 20 C1 24 20 2E 2E |NG CASE OF .$ ..| 00000320: 2E 22 00 31 1F 26 02 81 58 B2 31 A4 C3 28 41 24 |.".1.&..X.1..(A$| 00000330: 29 00 42 1F 30 02 54 24 B2 CA 28 41 24 2C 58 2C |).B.0.T$..(A$,X,| 00000340: 31 29 00 59 1F 3A 02 8B 54 24 B3 22 C1 22 B0 54 |1).Y.:..T$.".".T| 00000350: 24 B1 22 DA 22 A7 35 39 30 00 6D 1F 44 02 54 24 |$.".".590.m.D.T$| 00000360: B2 C7 28 C6 28 54 24 29 AB 31 32 38 29 00 7C 1F |..(.(T$).128).|.| 00000370: 4E 02 41 41 24 B2 41 41 24 AA 54 24 00 89 1F 58 |N.AA$.AA$.T$...X| 00000380: 02 82 3A 41 24 B2 41 41 24 00 B2 1F 62 02 99 22 |..:A$.AA$...b.."| 00000390: 11 1F C1 24 3D 22 C7 28 33 34 29 3B 3A 97 32 34 |...$=".(34);:.24| 000003A0: 34 2C 2E 3A 99 22 81 22 41 24 22 1F 22 C7 28 33 |4,.:."."A$".".(3| 000003B0: 34 29 00 D9 1F 6C 02 54 32 B2 54 49 AC 2E 30 31 |4)...l.T2.TI..01| 000003C0: 36 36 37 3A 99 22 11 1E D4 49 4D 45 3A 22 54 32 |667:."...IME:"T2| 000003D0: 22 53 45 43 4F 4E 44 53 22 00 0D 20 76 02 99 22 |"SECONDS".. v.."| 000003E0: 11 20 20 20 90 D0 52 45 53 53 20 D3 D0 C1 C3 C5 |. ..RESS .....| 000003F0: 20 54 4F 20 43 4F 4D 50 41 52 45 20 54 49 4D 45 | TO COMPARE TIME| 00000400: 53 20 2E 2E 2E 22 3A 97 32 30 38 2C 2E 00 22 20 |S ...":.208,.." | 00000410: 80 02 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 36 |...A$:.A$.." ".6| 00000420: 34 30 00 54 20 8A 02 99 22 93 11 11 CD 45 54 48 |40.T ..."....ETH| 00000430: 4F 44 20 55 53 45 44 20 2D 2D 2D 2D 2D 2D 2D 2D |OD USED --------| 00000440: 2D 20 CE 55 4D 42 45 52 20 4F 46 20 53 45 43 4F |- .UMBER OF SECO| 00000450: 4E 44 53 22 00 83 20 94 02 99 22 C0 C0 C0 C0 C0 |NDS".. ...".....| 00000460: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000470: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000480: C0 C0 22 00 98 20 9E 02 99 22 D0 CF C9 CE D4 C5 |..".. ..."......| 00000490: D2 22 A3 32 32 29 54 31 00 AB 20 A8 02 99 22 20 |.".22)T1.. ..." | 000004A0: CD C9 C4 24 22 A3 32 32 29 54 32 00 DA 20 B2 02 |...$".22)T2.. ..| 000004B0: 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............| 000004C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000004D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 06 21 BC 02 99 |........."..!...| 000004E0: 22 11 D5 53 49 4E 47 20 54 48 45 20 C3 31 32 38 |"..SING THE .128| 000004F0: 27 53 20 D0 CF C9 CE D4 C5 D2 20 43 4F 4D 4D 41 |'S ....... COMMA| 00000500: 4E 44 20 49 53 22 00 42 21 C6 02 99 22 41 50 50 |ND IS".B!..."APP| 00000510: 52 4F 58 49 4D 41 54 45 4C 59 22 54 32 AB 54 31 |ROXIMATELY"T2.T1| 00000520: 22 54 49 4D 45 53 20 46 41 53 54 45 52 22 3A 99 |"TIMES FASTER":.| 00000530: 22 54 48 41 4E 20 55 53 49 4E 47 20 CD C9 C4 24 |"THAN USING ...$| 00000540: 2E 22 00 6E 21 D0 02 99 22 11 11 D0 52 45 53 53 |.".n!..."...RESS| 00000550: 20 D3 D0 C1 C3 C5 20 54 4F 20 53 45 45 20 54 48 | ..... TO SEE TH| 00000560: 45 20 C4 C5 CD CF 20 41 47 41 49 4E 2C 22 00 8C |E .... AGAIN,"..| 00000570: 21 DA 02 99 22 D2 C5 D4 D5 D2 CE 20 54 4F 20 51 |!..."...... TO Q| 00000580: 55 49 54 2E 22 3A 97 32 30 38 2C 2E 00 AB 21 E4 |UIT.":.208,...!.| 00000590: 02 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 AF 41 24 |..A$:.A$.." ".A$| 000005A0: B3 B1 C7 28 31 33 29 A7 37 34 30 00 BA 21 EE 02 |...(13).740..!..| 000005B0: 8B 41 24 B2 22 20 22 A7 32 30 00 E2 21 F8 02 F5 |.A$." ".20..!...| 000005C0: 20 22 31 32 38 20 4D 45 4E 55 22 20 A4 20 22 31 | "128 MENU" . "1| 000005D0: 32 38 20 4D 45 4E 55 22 3A 8B 44 53 B3 B1 36 33 |28 MENU":.DS..63| 000005E0: A7 80 00 F3 21 02 03 8A 20 22 31 32 38 20 4D 45 |....!... "128 ME| 000005F0: 4E 55 22 00 F9 21 5F EA 90 00 08 22 C4 EA E7 34 |NU"..!_...."...4| 00000600: 2C 31 35 3A E7 30 2C 32 00 3D 22 CE EA 99 22 93 |,15:.0,2.="...".| 00000610: 0B 0E 1F B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000620: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000630: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 3B 00 58 22 |...........";.X"| 00000640: D8 EA 81 41 B2 31 A4 32 33 3A 99 22 DD 22 A6 33 |...A.1.23:.".".3| 00000650: 38 29 22 DD 22 3B 3A 82 00 8D 22 E2 EA 99 22 AD |8)".";:..."...".| 00000660: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000670: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000680: C0 C0 C0 C0 C0 BD 9D 94 C0 13 13 22 3B 00 B6 22 |...........";.."| 00000690: EC EA 99 22 13 13 11 1D 96 20 20 20 20 20 20 20 |..."..... | 000006A0: 20 20 20 CC CF C1 C4 D3 D4 C1 D2 20 D0 52 45 53 | ........ .RES| 000006B0: 45 4E 54 53 3A 22 00 E5 22 F6 EA 99 22 11 11 11 |ENTS:".."..."...| 000006C0: 11 11 11 1D 20 20 20 20 20 20 20 20 20 81 12 20 |.... .. | 000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006E0: 20 20 20 20 22 00 10 23 00 EB 99 22 1D 20 20 20 | "..#...". | 000006F0: 20 20 20 20 20 20 81 12 20 20 20 20 D0 CF C9 CE | .. ....| 00000700: D4 C5 D2 20 20 C4 C5 CD CF 20 20 20 20 9B 20 22 |... .... . "| 00000710: 00 3B 23 0A EB 99 22 1D 20 20 20 20 20 20 20 20 |.;#...". | 00000720: 20 81 12 20 20 20 20 20 20 20 20 20 20 20 20 20 | .. | 00000730: 20 20 20 20 20 20 20 20 9B 20 22 00 66 23 14 EB | . ".f#..| 00000740: 99 22 1D 20 20 20 20 20 20 20 20 20 81 12 20 20 |.". .. | 00000750: 20 42 59 20 C2 52 55 43 45 20 CA 41 45 47 45 52 | BY .RUCE .AEGER| 00000760: 20 20 20 9B 20 22 00 91 23 1E EB 99 22 1D 20 20 | . "..#...". | 00000770: 20 20 20 20 20 20 20 81 12 20 20 20 20 20 20 20 | .. | 00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9B 20 | . | 00000790: 22 00 BC 23 28 EB 99 22 1D 20 20 20 20 20 20 20 |"..#(..". | 000007A0: 20 20 81 12 20 20 28 C3 29 4F 50 59 52 49 47 48 | .. (.)OPYRIGH| 000007B0: 54 20 20 31 39 38 37 20 20 9B 20 22 00 E7 23 32 |T 1987 . "..#2| 000007C0: EB 99 22 1D 20 20 20 20 20 20 20 20 20 81 12 20 |..". .. | 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007E0: 20 20 20 20 9B 20 22 00 10 24 3C EB 99 22 1D 20 | . "..$<..". | 000007F0: 20 20 20 20 20 20 20 20 20 12 20 20 20 20 20 20 | . | 00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000810: 00 48 24 46 EB 99 22 11 11 11 11 11 11 11 1D 96 |.H$F..".........| 00000820: 20 20 20 20 20 20 20 20 D0 52 45 53 53 20 D3 D0 | .RESS ..| 00000830: C1 C3 C5 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |... TO CONTINUE.| 00000840: 22 3A 97 32 30 38 2C 2E 00 5F 24 50 EB A1 41 24 |":.208,.._$P..A$| 00000850: 3A 8B 41 24 B3 B1 22 20 22 A7 36 30 32 34 30 00 |:.A$.." ".60240.| 00000860: 65 24 5A EB 8E 00 00 00 |e$Z..... |
.......60100:..?....".. DEMO #1 - USING
POINTER TO CHANGE CASE".O....A.1.2000:..
`.D.TI$."000000"...N.A$."ABCDEFGHIJKLMNO
PQRSTUVWXYZ"...X.A$.A$.A$.A$.A$......"..
A$="G(34);:.244,.:."."A$"."G(34)......".
CHANGING CASE OF A$ ...".....X.N
.(A$).......1... .LE.B(X) :. LENGTH OF
A$.>...LB.B(X.1):. LOW BYTE OF ADDRESS.X
...HB.B(X.2):. HIGH BYTE.I...AD.HB.256.L
B.Y.H..X.AD.AD.LE...R.P.B(X):. LETTER...
...(P.128)..X,P.128.......Q....".A$="G(3
4);:.244,.:."."A$"."G(34).....T1.TI..016
67:."..TIME:"T1"SECONDS".*....". .P
RESS SPACE FOR DEMO #2 ...":.208,..?....
A$:.A$.." ".270.N....".. DEMO #2 - USIN
G MID$ TO CHANGE CASE".~....A.1.2000:...
...TI$."000000".....A$."ABCDEFGHIJKLMNOP
QRSTUVWXYZ".F...A$.A$.A$.A$.A$......"..A
$="G(34);:.244,.:."."A$"."G(34).....AA$.
"".".!..". CHANGING CASE OF A$ ..
.".1.&..X.1.C(A$).B.0.T$.J(A$,X,1).Y.:..
T$."A".T$."Z".590.M.D.T$.G(F(T$).128).|.
N.AA$.AA$.T$...X..:A$.AA$...B.."..A$="G(
34);:.244,.:."."A$"."G(34).Y.L.T2.TI..01
667:."..TIME:"T2"SECONDS".. V..". .PRE
SS SPACE TO COMPARE TIMES ...":.208,.."
...A$:.A$.." ".640.T ..."...METHOD USED
--------- NUMBER OF SECONDS".. ...".....
..................................".. ..
."POINTER".22)T1.. ..." MID$".22)T2.Z ..
."......................................
."..!...".USING THE C128'S POINTER COMMA
ND IS".B!F.."APPROXIMATELY"T2.T1"TIMES F
ASTER":."THAN USING MID$.".N!P.."..PRESS
SPACE TO SEE THE DEMO AGAIN,"..!Z.."RET
URN TO QUIT.":.208,...!...A$:.A$.." ".A$
..G(13).740..!...A$." ".20..!... "128 ME
NU" . "128 MENU":.DS..63....!... "128 ME
NU"..!_...."D..4,15:.0,2.="N..".........
...................................";.X"
X..A.1.23:.".".38)".";:..."...".........
...................................";.."
..."..... LOADSTAR PRESENTS:"..
"..."....... ..
"..#...". .. POINTER DEM
O . ".;#...". ..
. ".F#...". .. BY BRUC
E JAEGER . "..#...". ..
. "..#(..". .. (C
)OPYRIGHT 1987 . "..#2..". ..
. "..$<..".
. ".H$F..".........
PRESS SPACE TO CONTINUE.":.208,.
._$P..A$:.A$.." ".60240.E$Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL