MAX01
FILE INFORMATION
FILENAME(S): MAX01
FILE TYPE(S): PRG
FILE SIZE: 832b
FIRST SEEN: 2025-11-30 21:07:03
APPEARS ON: 1 disk(s)
FILE HASH
b1eafef546d4dd486e44c94860c8e46e2e1ef2b6779c197c1004129bb47e1e58
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY PET 05 | MAX01 | PRG | DuncanTwain | 10 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: B9 02 F5 02 39 03 00 0A 25 00 50 52 4F 47 52 41 |....9...%.PROGRA|
00000010: 4D 20 53 55 47 47 45 53 54 45 44 20 42 59 20 4D |M SUGGESTED BY M|
00000020: 41 58 20 42 52 41 4D 45 52 2F 2F 00 14 21 00 49 |AX BRAMER//..!.I|
00000030: 4D 50 4C 45 4D 45 4E 54 45 44 20 49 4E 20 43 42 |MPLEMENTED IN CB|
00000040: 4D 20 43 4F 4D 41 4C 2D 38 30 2F 2F 00 1E 26 00 |M COMAL-80//..&.|
00000050: 42 59 20 42 4F 52 47 45 20 52 2E 20 43 48 52 49 |BY BORGE R. CHRI|
00000060: 53 54 45 4E 53 45 4E 2C 20 4E 4F 56 2E 20 38 30 |STENSEN, NOV. 80|
00000070: 2F 2F 00 28 04 00 00 32 42 00 49 4E 50 55 54 20 |//.(...2B.INPUT |
00000080: 53 54 52 49 4E 47 53 2C 20 46 49 4E 49 53 48 49 |STRINGS, FINISHI|
00000090: 4E 47 20 57 49 54 48 20 27 45 4E 44 27 2C 20 53 |NG WITH 'END', S|
000000A0: 54 4F 52 45 20 49 4E 20 41 20 53 54 52 49 4E 47 |TORE IN A STRING|
000000B0: 20 41 52 52 41 59 2F 2F 00 3C 3D 00 41 4E 44 20 | ARRAY//.<=.AND |
000000C0: 50 52 49 4E 54 20 4F 55 54 20 57 49 54 48 20 41 |PRINT OUT WITH A|
000000D0: 4C 4C 20 44 49 47 49 54 53 20 30 2D 39 20 52 45 |LL DIGITS 0-9 RE|
000000E0: 50 4C 41 43 45 44 20 42 59 20 41 53 54 45 52 49 |PLACED BY ASTERI|
000000F0: 53 4B 53 2F 2F 00 46 04 00 00 64 23 B5 03 18 48 |SKS//.F...d#...H|
00000100: 4F 57 20 4D 41 4E 59 20 57 4F 52 44 53 20 41 54 |OW MANY WORDS AT|
00000110: 20 4D 4F 53 54 3F 20 B7 07 01 B8 BB 00 6E 23 B5 | MOST? ......n#.|
00000120: 03 18 48 4F 57 20 4C 4F 4E 47 20 4D 41 59 20 41 |..HOW LONG MAY A|
00000130: 20 57 4F 52 44 20 42 45 3F 20 B7 07 02 B8 BB 00 | WORD BE? ......|
00000140: 78 1C 8C 8F 03 01 04 01 92 04 02 93 8F 04 00 04 |x...............|
00000150: 02 93 94 8F 0C 00 02 00 0A 93 94 00 7D 12 09 0C |............}...|
00000160: 03 0A 31 32 33 34 35 36 37 38 39 30 3C 00 82 06 |..1234567890<...|
00000170: 7F 05 81 00 8C 18 82 06 0F 00 02 00 01 84 04 07 |................|
00000180: 85 88 7F 08 0C 03 07 06 1C 18 89 00 96 19 82 06 |................|
00000190: 0F 00 02 00 01 84 04 07 85 88 5F 0C 03 07 06 16 |.........._.....|
000001A0: 65 60 61 89 00 9B 04 9F 00 A0 04 00 00 AA 09 70 |e`a............p|
000001B0: 05 B3 6E 00 7B 00 B4 09 07 06 02 00 00 3A 00 BE |..n.{........:..|
000001C0: 17 B5 03 0C 46 49 52 53 54 20 57 4F 52 44 3A 20 |....FIRST WORD: |
000001D0: B7 09 04 BA BB 00 C8 0F 97 06 04 03 03 45 4E 44 |.............END|
000001E0: 33 98 A5 6E 00 D2 12 07 06 02 00 01 3D 0C 03 07 |3..n........=...|
000001F0: 06 1C 06 04 3C 42 00 DC 16 B5 03 0B 4E 45 58 54 |....<B......NEXT|
00000200: 20 57 4F 52 44 3A 20 B7 09 04 BA BB 00 E6 06 9B | WORD: .........|
00000210: 6E 6E 00 F0 08 07 07 04 06 3A 00 FA 05 7D 05 01 |nn.......:...}..|
00000220: 04 04 00 01 0E 0B 70 08 4F 6F 01 77 09 7B 01 18 |......p.Oo.w.{..|
00000230: 09 07 0A 09 09 51 3A 01 22 0F 82 0B 48 6F 02 00 |.....Q:."...Ho..|
00000240: 01 84 04 0A 85 87 01 2C 0C A1 0C 09 07 0B 16 A3 |.......,........|
00000250: EB 6E 01 2E 31 A4 44 6F 03 01 30 A6 03 01 31 A6 |.n..1.Do..0...1.|
00000260: 03 01 32 A6 03 01 33 A6 03 01 34 A6 03 01 35 A6 |..2...3...4...5.|
00000270: 03 01 36 A6 03 01 37 A6 03 01 38 A6 03 01 39 A6 |..6...7...8...9.|
00000280: A7 28 6F 01 30 0C 0C 09 07 0B 1C 03 01 2A 3C 01 |.(o.0........*<.|
00000290: 32 06 A8 44 6F 01 34 16 00 54 4F 20 50 52 45 56 |2..Do.4..TO PREV|
000002A0: 45 4E 54 20 45 52 52 4F 52 2F 2F 01 36 04 A9 01 |ENT ERROR//.6...|
000002B0: 3B 07 8A 0B D0 6E 01 40 05 7D 08 01 4A 04 00 10 |;....n.@.}..J...|
000002C0: FB 7F 00 00 10 F6 7F 00 00 92 EF 7F 00 00 12 B7 |................|
000002D0: 7F 00 00 14 45 6E 00 00 10 A4 7F 00 00 10 9F 7F |....En..........|
000002E0: 00 00 14 BC 6E 00 00 00 00 00 00 00 10 9A 7F 00 |....n...........|
000002F0: 00 10 95 7F 00 00 12 A9 7F 00 00 01 4E 01 4C 04 |............N.L.|
00000300: 57 4F 52 44 07 4F 4E 45 57 4F 52 44 06 54 41 4B |WORD.ONEWORD.TAK|
00000310: 45 49 4E 01 49 03 4D 41 58 07 52 45 50 4C 41 43 |EIN.I.MAX.REPLAC|
00000320: 45 08 54 48 49 53 57 4F 52 44 06 4E 43 48 41 52 |E.THISWORD.NCHAR|
00000330: 53 05 49 4E 44 45 58 06 44 49 47 49 54 53 00 00 |S.INDEX.DIGITS..|
....9...%.PROGRAM SUGGESTED BY MAX BRAME
R//..!.IMPLEMENTED IN CBM COMAL-80//..&.
BY BORGE R. CHRISTENSEN, NOV. 80//.(...2
B.INPUT STRINGS, FINISHING WITH 'END', S
TORE IN A STRING ARRAY//.<=.AND PRINT OU
T WITH ALL DIGITS 0-9 REPLACED BY ASTERI
SKS//.F...D#...HOW MANY WORDS AT MOST? .
.....N#...HOW LONG MAY A WORD BE? ......
X...........................}.....123456
7890<.................................
.........._.....E`A...... .....P..N.{...
.....:......FIRST WORD: ......H......END
3..N.R......=.......<B......NEXT WORD: .
........NN.......:...}........P.OO.W.{..
.....Q:."...HO.........,.........N..1.DO
..0...1...2...3...4...5...6...7...8...9.
.(O.0........*<.2..DO.4..TO PREVENT ERRO
R//.6...;...PN.@.}..J................
...EN............N.................
...N.L.WORD.ONEWORD.TAKEIN.I.MAX.REPLAC
E.THISWORD.NCHARS.INDEX.DIGITS..
> CLICK IMAGE PREVIEW FOR FULL MODAL