CRUNCH BASIC
FILE INFORMATION
FILENAME(S): CRUNCH BASIC
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 21:10:58
APPEARS ON: 2 disk(s)
FILE HASH
c6d5930cd0b81349031144ec9dfc45a777f34e22fc765b40028d766584be9bc5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | CRUNCH BASIC | PRG | DuncanTwain | 2 | 5 | DOWNLOAD FILE |
| D 64016 | CRUNCH BASIC | PRG | DuncanTwain | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 F6 08 0A 00 99 C7 28 31 34 29 3B 22 93 12 |........(14);"..|
00000010: 2A 20 2A 20 2A 20 2A 20 2A 20 20 20 C3 20 20 D2 |* * * * * . .|
00000020: 20 20 D5 20 20 CE 20 20 C3 20 20 C8 20 20 20 2A | . . . . *|
00000030: 20 2A 20 2A 20 2A 20 2A 22 3A 99 22 20 C3 D2 D5 | * * * *":." ...|
00000040: CE C3 C8 20 43 4F 4D 50 52 49 4D 45 45 52 54 20 |... COMPRIMEERT |
00000050: C2 C1 D3 C9 C3 2D 50 52 4F 47 52 41 4D 4D 41 27 |.....-PROGRAMMA'|
00000060: 53 22 3A 99 22 20 45 4E 20 4C 41 41 54 20 5A 45 |S":." EN LAAT ZE|
00000070: 20 28 49 45 54 53 29 20 53 4E 45 4C 4C 45 52 20 | (IETS) SNELLER |
00000080: 4C 4F 50 45 4E 3A 11 22 3A 99 22 20 2A 20 52 45 |LOPEN:.":." * RE|
00000090: 47 45 4C 4C 45 4E 47 54 45 20 54 4F 54 20 32 35 |GELLENGTE TOT 25|
000000A0: 35 20 42 59 54 45 53 3B 22 3A 99 22 20 2A 20 4F |5 BYTES;":." * O|
000000B0: 56 45 52 42 4F 44 49 47 45 20 53 50 41 54 49 45 |VERBODIGE SPATIE|
000000C0: 53 2C 20 D2 C5 CD 27 53 2C 20 CC C5 D4 27 53 22 |S, ...'S, ...'S"|
000000D0: 3A 99 22 20 20 20 45 4E 20 45 4E 44 20 51 55 4F |:." EN END QUO|
000000E0: 54 45 53 20 57 4F 52 44 45 4E 20 56 45 52 57 49 |TES WORDEN VERWI|
000000F0: 4A 44 45 52 44 3B 00 EA 09 46 00 99 22 20 2A 20 |JDERD;...F.." * |
00000100: 56 41 52 49 41 42 45 4C 45 20 4E 41 4D 45 4E 20 |VARIABELE NAMEN |
00000110: 57 4F 52 44 45 4E 20 41 46 47 45 4B 4F 52 54 22 |WORDEN AFGEKORT"|
00000120: 3A 99 22 20 20 20 54 4F 54 20 54 57 45 45 20 4B |:." TOT TWEE K|
00000130: 41 52 41 4B 54 45 52 53 3B 22 3A 99 22 20 2A 20 |ARAKTERS;":." * |
00000140: 56 41 52 49 41 42 45 4C 45 4E 20 4E 41 20 CE C5 |VARIABELEN NA ..|
00000150: D8 D4 20 56 45 52 56 41 4C 4C 45 4E 2E 11 22 3A |.. VERVALLEN..":|
00000160: 99 22 20 D4 45 56 45 4E 53 20 57 4F 52 44 54 20 |." .EVENS WORDT |
00000170: 47 45 43 48 45 43 4B 45 44 20 4F 50 20 56 45 52 |GECHECKED OP VER|
00000180: 57 49 4A 5A 49 4E 47 22 3A 99 22 20 4E 41 41 52 |WIJZING":." NAAR|
00000190: 20 4E 49 45 54 2D 42 45 53 54 41 41 4E 44 45 20 | NIET-BESTAANDE |
000001A0: 52 45 47 45 4C 4E 55 4D 4D 45 52 53 2E 11 22 3A |REGELNUMMERS..":|
000001B0: 99 22 20 C7 C5 C2 D2 D5 C9 CB D3 C1 C1 CE D7 C9 |." .............|
000001C0: CA DA C9 CE C7 3A 22 3A 99 22 20 4C 41 41 44 54 |.....:":." LAADT|
000001D0: 20 48 45 54 20 54 45 20 43 52 55 4E 43 48 45 4E | HET TE CRUNCHEN|
000001E0: 20 50 52 4F 47 52 41 4D 4D 41 00 7C 0A 8C 00 99 | PROGRAMMA.|....|
000001F0: 22 20 45 4E 20 54 59 50 45 3A 20 12 53 59 53 20 |" EN TYPE: .SYS |
00000200: 33 32 37 36 38 20 3C D2 C5 D4 D5 D2 CE 3E 11 22 |32768 <......>."|
00000210: 3A 99 22 20 55 49 54 3A 20 C3 CF CD D0 D5 D4 C5 |:." UIT: .......|
00000220: 21 27 53 20 C7 C1 DA C5 D4 D4 C5 20 41 55 47 2E |!'S ....... AUG.|
00000230: 20 31 39 38 35 22 3A 99 22 20 42 45 57 45 52 4B | 1985":." BEWERK|
00000240: 54 20 56 4F 4F 52 20 D6 2E C3 2E C7 2E CE 2E 20 |T VOOR ........ |
00000250: 44 4F 4F 52 3A 20 11 D4 4F 4E 20 C4 41 52 4F 11 |DOOR: ..ON .ARO.|
00000260: 9D 9D 9D 9D 9D 9D 9D 9D A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000270: 22 3B 3A 9E 28 32 36 38 38 29 3A A2 00 00 00 00 |";:.(2688):.....|
00000280: 00 A2 00 86 FB 86 FD A2 0B 86 FC A2 80 86 FE A0 |................|
00000290: 00 B1 FB 91 FD C8 D0 F9 E6 FC E6 FE A5 FE C9 87 |................|
000002A0: D0 ED 60 00 00 00 00 00 00 00 00 00 00 00 00 00 |..`.............|
000002B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000002C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000002D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000002E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000002F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000300: 00 A0 02 B9 7C 00 99 34 03 88 10 F7 A9 C9 85 7C |....|..4.......||
00000310: A9 3A 85 7D A9 B0 85 7E A9 01 8D 20 D0 8D 21 D0 |.:.}...~... ..!.|
00000320: A9 A9 A0 85 20 EB 84 20 E4 FF F0 FB C9 85 D0 04 |.... .. ........|
00000330: A9 FF D0 0E C9 86 D0 04 A9 50 D0 06 C9 87 D0 E7 |.........P......|
00000340: A9 00 85 FA A9 37 A0 86 20 EB 84 A9 00 85 A3 85 |.....7.. .......|
00000350: A9 20 A0 80 A5 A3 F0 2B A5 2B 85 5F A5 2C 85 60 |. .....+.+._.,.`|
00000360: A2 00 20 3F 81 A0 01 B1 5F AA C8 B1 5F 85 60 86 |.. ?...._..._.`.|
00000370: 5F 88 B1 5F D0 EA A9 46 A0 86 20 EB 84 20 02 85 |_.._...F.. .. ..|
00000380: 6C 02 A0 A5 2D 85 B4 A5 2E 85 B5 20 4D 81 A5 FA |l...-...... M...|
00000390: 85 A9 20 A0 80 20 4D 81 20 71 83 20 02 85 6C 02 |.. .. M. q. ..l.|
000003A0: A0 20 DD 84 20 EE 83 20 EE 83 A0 00 B1 7A D0 01 |. .. .. .....z..|
000003B0: 60 20 EE 83 B1 7A 85 FB 20 EE 83 B1 7A 85 FC 20 |` ...z.. ...z.. |
000003C0: 73 00 C9 00 F0 DE C9 02 F0 DA C9 22 D0 0F 20 73 |s..........".. s|
000003D0: 00 C9 00 F0 CF C9 02 F0 CB C9 22 D0 F1 C9 89 F0 |..........".....|
000003E0: 10 C9 8D F0 0C C9 8A F0 08 C9 9B F0 04 C9 A7 D0 |................|
000003F0: CE 20 73 00 90 06 20 00 84 4C BE 80 20 23 84 A5 |. s... ..L.. #..|
00000400: 14 A4 15 85 FD 84 FE 20 AE 84 90 0E A2 02 20 3F |....... ...... ?|
00000410: 81 20 79 00 C9 2C F0 D9 D0 DC E6 A3 A9 0D 20 D2 |. y..,........ .|
00000420: FF A5 FC A6 FB 20 5A 84 A9 31 A0 85 20 EB 84 A5 |..... Z..1.. ...|
00000430: FE A6 FD 20 5A 84 A9 39 A0 85 20 EB 84 4C 10 81 |... Z..9.. ..L..|
00000440: A5 5F D0 02 C6 60 C6 5F 8A A0 00 91 5F 60 20 BF |._...`._...._` .|
00000450: 83 A9 00 85 A4 85 AA 85 AB A8 B1 7A 85 B6 20 F5 |...........z.. .|
00000460: 83 20 CB 83 20 04 83 20 73 00 C9 02 F0 04 C9 00 |. .. .. s.......|
00000470: D0 08 20 FB 81 90 F0 4C 48 83 C9 3A D0 08 20 09 |.. ....LH..:.. .|
00000480: 84 85 B6 4C 66 81 C9 88 F0 DD C9 8F D0 06 20 43 |...Lf......... C|
00000490: 82 4C 74 81 C9 82 D0 1F 20 09 84 20 73 00 F0 11 |.Lt..... .. s...|
000004A0: C9 02 F0 0D C9 2C D0 F3 A9 3A 20 09 84 A9 82 D0 |.....,...: .....|
000004B0: E7 20 00 84 4C 66 81 C9 22 D0 06 20 D7 82 4C 74 |. ..Lf..".. ..Lt|
000004C0: 81 C9 83 D0 06 20 7D 82 4C 74 81 20 17 84 90 20 |..... }.Lt. ... |
000004D0: 20 09 84 20 73 00 90 05 20 17 84 90 0D 20 09 84 | .. s... .... ..|
000004E0: 20 73 00 90 FB 20 17 84 B0 F6 20 00 84 4C 66 81 | s... .... ..Lf.|
000004F0: C9 8B D0 02 85 A4 20 09 84 4C 66 81 85 B6 C9 02 |...... ..Lf.....|
00000500: D0 1C A0 00 B1 A7 C9 22 D0 03 20 F5 83 A9 00 85 |.......".. .....|
00000510: AA 20 09 84 20 CB 83 B0 04 20 04 83 18 60 A5 A4 |. .. .... ...`..|
00000520: D0 E0 A0 04 C8 B1 7A C9 00 F0 04 C9 02 D0 F5 88 |......z.........|
00000530: 88 88 88 C4 F9 B0 CB 20 CB 83 B0 C6 A9 3A 85 B6 |....... .....:..|
00000540: 20 09 84 60 20 73 00 C9 00 F0 04 C9 02 D0 F5 AA | ..` s..........|
00000550: A5 B6 C9 3A D0 07 20 F5 83 8A 4C FB 81 C9 02 F0 |...:.. ...L.....|
00000560: 0D A0 04 20 F5 83 88 D0 FA 86 B6 4C 13 82 E0 02 |... .......L....|
00000570: D0 08 A9 8F 20 09 84 4C 58 82 20 CB 83 60 C5 AA |.... ..LX. ..`..|
00000580: D0 05 20 F5 83 A9 2C 20 09 84 20 73 00 A0 00 B1 |.. ..., .. s....|
00000590: 7A C9 22 D0 05 20 E0 82 90 F0 C9 00 F0 1D C9 02 |z.".. ..........|
000005A0: F0 29 C9 3A F0 0D C9 2C F0 DD 20 09 84 20 EE 83 |.).:...,.. .. ..|
000005B0: 4C 8C 82 20 D0 82 20 00 84 18 60 A0 05 B1 7A C9 |L.. .. ...`...z.|
000005C0: 83 D0 08 85 AA A9 00 85 AB F0 03 20 D0 82 4C FB |........... ..L.|
000005D0: 81 A0 00 84 AA 84 AB 60 20 E0 82 B0 01 60 4C FB |.......` ....`L.|
000005E0: 81 20 09 84 20 EE 83 A0 00 B1 7A C9 00 F0 0D C9 |. .. .....z.....|
000005F0: 02 F0 09 C9 22 D0 EA 20 09 84 18 60 AA A9 22 20 |....".. ...`.." |
00000600: 09 84 8A 38 60 A9 00 85 A4 A5 A9 85 F9 A9 FF 20 |...8`.......... |
00000610: 09 84 20 09 84 A5 FB 20 09 84 A5 FC 20 09 84 60 |.. .... .... ..`|
00000620: 20 BF 83 20 CB 83 B0 20 20 73 00 C9 00 D0 F9 20 | .. ... s..... |
00000630: EE 83 A5 7A AA A0 00 91 A7 C8 A5 7B 91 A7 85 A8 |...z.......{....|
00000640: 86 A7 20 00 84 4C 22 83 60 20 E7 83 20 DD 84 A9 |.. ..L".` .. ...|
00000650: 00 A8 91 7A 91 A7 20 E7 83 91 A7 20 E7 83 A5 A7 |...z.. .... ....|
00000660: 85 2D 85 2F 85 31 A5 A8 85 2E 85 30 85 32 20 1F |.-./.1.....0.2 .|
00000670: 83 60 A9 49 A0 85 20 EB 84 38 A5 B4 E5 2B AA A5 |.`.I.. ..8...+..|
00000680: B5 E5 2C 20 5A 84 20 B7 83 A9 6B A0 85 20 EB 84 |.., Z. ...k.. ..|
00000690: 38 A5 2D E5 2B AA A5 2E E5 2C 20 5A 84 20 B7 83 |8.-.+...., Z. ..|
000006A0: A9 86 A0 85 20 EB 84 38 A5 B4 E5 2D AA A5 B5 E5 |.... ..8...-....|
000006B0: 2E 20 5A 84 20 B7 83 60 A9 A1 A0 85 20 EB 84 60 |. Z. ..`.... ..`|
000006C0: A5 2B 85 A7 A5 2C 85 A8 20 DD 84 60 A0 02 B1 7A |.+...,.. ..`...z|
000006D0: F0 14 C8 B1 7A 85 FB C8 B1 7A 85 FC A2 04 20 EE |....z....z.... .|
000006E0: 83 CA D0 FA 18 60 38 60 E6 A7 D0 02 E6 A8 60 E6 |.....`8`......`.|
000006F0: 7A D0 02 E6 7B 60 A5 A7 D0 02 C6 A8 C6 A7 E6 F9 |z...{`..........|
00000700: 60 A5 7A D0 02 C6 7B C6 7A 60 20 E7 83 A0 00 91 |`.z...{.z` .....|
00000710: A7 C4 F9 F0 02 C6 F9 60 C9 41 90 05 E9 5B 38 E9 |.......`.A...[8.|
00000720: A5 60 18 60 A2 00 86 14 86 15 B0 2E E9 2F 85 61 |.`.`........./.a|
00000730: A5 15 85 62 A5 14 0A 26 62 0A 26 62 65 14 85 14 |...b...&b.&be...|
00000740: A5 62 65 15 85 15 06 14 26 15 A5 14 65 61 85 14 |.be.....&...ea..|
00000750: 90 02 E6 15 20 73 00 4C 29 84 60 86 61 85 62 A2 |.... s.L).`.a.b.|
00000760: 03 A9 00 95 63 CA 10 FB A0 0F 06 61 26 62 78 F8 |....c......a&bx.|
00000770: A5 63 65 63 85 63 A5 64 65 64 85 64 A5 65 65 65 |.cec.c.ded.d.eee|
00000780: 85 65 D8 58 88 10 E3 A2 02 B5 63 48 4A 4A 4A 4A |.e.X......cHJJJJ|
00000790: 20 A3 84 68 29 0F 20 A3 84 CA 10 ED A5 66 D0 03 | ..h). ......f..|
000007A0: 20 A7 84 60 C5 66 F0 FB 09 30 85 66 4C D2 FF A5 | ..`.f...0.fL...|
000007B0: 2B A6 2C A0 01 85 5F 86 60 B1 5F F0 1F C8 C8 A5 |+.,..._.`._.....|
000007C0: 15 D1 5F 90 18 F0 03 88 D0 09 A5 14 88 D1 5F 90 |.._..........._.|
000007D0: 0C F0 0A 88 B1 5F AA 88 B1 5F B0 D7 18 60 18 A5 |....._..._...`..|
000007E0: 2B 69 FF 85 7A A5 2C 69 FF 85 7B 60 85 61 84 62 |+i..z.,i..{`.a.b|
000007F0: A0 00 B1 61 F0 0C 20 D2 FF E6 61 D0 F3 E6 62 4C |...a.. ...a...bL|
00000800: EF 84 60 A0 02 B9 34 03 99 7C 00 88 10 F7 60 20 |..`...4..|....` |
00000810: 47 4F 54 4F 20 00 20 47 4F 53 55 42 20 00 20 54 |GOTO . GOSUB . T|
00000820: 48 45 4E 20 00 20 52 55 4E 20 00 20 4C 49 53 54 |HEN . RUN . LIST|
00000830: 20 00 20 4C 49 4E 45 20 23 00 20 44 4F 45 53 4E | . LINE #. DOESN|
00000840: 27 54 20 45 58 49 53 54 0D 00 93 11 11 11 11 11 |'T EXIST........|
00000850: 11 11 20 20 20 20 4F 4C 44 20 50 52 4F 47 52 41 |.. OLD PROGRA|
00000860: 4D 20 4C 45 4E 47 54 48 3A 20 20 00 0D 20 20 20 |M LENGTH: .. |
00000870: 20 4E 45 57 20 50 52 4F 47 52 41 4D 20 4C 45 4E | NEW PROGRAM LEN|
00000880: 47 54 48 3A 20 20 00 0D 20 20 20 20 50 52 4F 47 |GTH: .. PROG|
00000890: 52 41 4D 20 52 45 44 55 43 45 44 20 42 59 3A 20 |RAM REDUCED BY: |
000008A0: 20 00 20 42 59 54 45 53 0D 00 93 98 11 11 11 11 | . BYTES........|
000008B0: 20 20 20 20 53 45 4C 45 43 54 20 44 45 53 49 52 | SELECT DESIR|
000008C0: 45 44 20 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 45 |ED MAXIMUM NUMBE|
000008D0: 52 20 4F 46 0D 20 20 20 20 42 59 54 45 53 20 50 |R OF. BYTES P|
000008E0: 45 52 20 4C 49 4E 45 3A 0D 11 11 11 20 20 20 20 |ER LINE:.... |
000008F0: 20 20 20 20 12 46 31 92 20 3D 20 32 35 35 0D 11 | .F1. = 255..|
00000900: 20 20 20 20 20 20 20 20 12 46 33 92 20 3D 20 38 | .F3. = 8|
00000910: 30 0D 11 20 20 20 20 20 20 20 20 12 46 35 92 20 |0.. .F5. |
00000920: 3D 20 4F 52 49 47 49 4E 41 4C 20 4C 49 4E 45 20 |= ORIGINAL LINE |
00000930: 4C 45 4E 47 54 48 0D 00 0D 11 43 52 55 4E 43 48 |LENGTH....CRUNCH|
00000940: 49 4E 47 2E 2E 2E 00 0D 11 20 20 20 20 20 20 2D |ING...... -|
00000950: 2D 2D 20 50 52 4F 47 52 41 4D 20 4E 4F 54 20 43 |-- PROGRAM NOT C|
00000960: 52 55 4E 43 48 45 44 20 2D 2D 2D 00 79 00 48 4A |RUNCHED ---.y.HJ|
00000970: 4A C0 |J. |
.......G(14);"..* * * * * C R U N
C H * * * * *":." CRUNCH COMPRIMEERT
BASIC-PROGRAMMA'S":." EN LAAT ZE (IETS)
SNELLER LOPEN:.":." * REGELLENGTE TOT 25
5 BYTES;":." * OVERBODIGE SPATIES, REM'S
, LET'S":." EN END QUOTES WORDEN VERWI
JDERD;...F.." * VARIABELE NAMEN WORDEN A
FGEKORT":." TOT TWEE KARAKTERS;":." *
VARIABELEN NA NEXT VERVALLEN..":." TEVEN
S WORDT GECHECKED OP VERWIJZING":." NAAR
NIET-BESTAANDE REGELNUMMERS..":." GEBRU
IKSAANWIJZING:":." LAADT HET TE CRUNCHEN
PROGRAMMA.|...." EN TYPE: .SYS 32768 <R
ETURN>.":." UIT: COMPUTE!'S GAZETTE AUG.
1985":." BEWERKT VOOR V.C.G.N. DOOR: .T
ON DARO.................";:.(2688):.....
............... .....HP.......I.P.`.....
........................................
........................................
......... ..|..4.....I.|.:.}...~... P.!P
.. . .. ....I.P...P.I.P..PP.I.P......7 .
........ ....+.+._.,.`.. ?. .._.H._.`.
_.._P..F . .. ..L. .-...... M..... . M.
Q. ..L. .. .. .. ..ZP.` ...Z.. ...Z..
S.I...I..ZI"P. S.I..OI..KI"P.I...I...I..
.I...I.PN S... ..L.. #......... ...... ?
. Y.I,.YP..... R..... Z..1 . ...... Z..9
. ..L..._P.F`F_. .._` ............Z.. .
. K. .. S.I...I.P. ....LH.I:P. ....LF.I.
..I.P. C.LT.I.P. .. S...I...I,P..: ....P
. ..LF.I"P. W.LT.I.P. }.LT. ... .. S...
.... .. S... .... ..LF.I.P... ..LF...I.
P. ...I"P. ...... .. K... ...`..P. .H.ZI
...I.P.....D..K K..F.:.. ..` S.I...I.P..
..I:P. ...L..I... . ...P...L....P... ..L
X. K.`E.P. ..., .. S. ..ZI"P. ....I...I.
.)I:..I,.. .. ..L.. P. ...` ..ZI.P......
... P.L.. .....` ....`L.. .. .. ..ZI...I
...I"P. ...`.." ...8`.......... .. ....
.... ..` .. K.. S.I.P. ...Z. ...H.{....
.. ..L".` .. ......Z.. .... .....-./.1..
...0.2 ..`.I . ..8...+...., Z. ...K . ..
8.-.+...., Z. .... . ..8...-..... Z. ..`
.. . ..`.+...,.. ..` ..Z..H.Z..H.Z.... .
.JP..`8`..P...`.ZP..{`..P.F.F...`.ZP.F{F
Z` .. ...D...F.`IA...[8..`.`........./.A
...B...&B.&BE....BE.....&...EA...... S.L
).`.A.B.....CJ.. ..A&BX..CEC.C.DED.D.EEE
.EXX......CHJJJJ ..H). ..J...FP. ..`EF..
.0.FLR..+., .._.`._..HH..Q_.....P....Q_.
....._..._.W.`..+I..Z.,I..{`.A.B ..A.. R
..AP..BL..` ..4..|....` GOTO . GOSUB . T
HEN . RUN . LIST . LINE #. DOESN'T EXIST
.......... OLD PROGRAM LENGTH: ..
NEW PROGRAM LENGTH: .. PROGRAM REDU
CED BY: . BYTES........ SELECT DESIR
ED MAXIMUM NUMBER OF. BYTES PER LINE:
.... .F1. = 255.. .F3. = 8
0.. .F5. = ORIGINAL LINE LENGTH..
..CRUNCHING...... --- PROGRAM NOT C
RUNCHED ---.Y.HJJ.
> CLICK IMAGE PREVIEW FOR FULL MODAL