MENU.C

FILE INFORMATION

FILENAME(S): MENU.C

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-11-30 21:07:08

APPEARS ON: 2 disk(s)

FILE HASH

dd605953400fb005ca9ea58f6cd2f39b7d76fd1646545734a54963fc960e3858

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TPUG FEB 85 C	MENU.C	PRG	DuncanTwain	17	0	DOWNLOAD FILE
TPUG MARCH 85 C	MENU.C	PRG	DuncanTwain	17	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0E 08 05 00 8B 4E  B1 30 A7 31 34 30 00 14  |.......N.0.140..|
00000010: 08 09 00 3A 00 37 08 0A  00 8F 20 54 4F 52 4F 4E  |...:.7.... TORON|
00000020: 54 4F 20 50 45 54 20 55  53 45 52 53 20 47 52 4F  |TO PET USERS GRO|
00000030: 55 50 20 49 4E 43 2E 00  3D 08 0B 00 3A 00 60 08  |UP INC..=...:.`.|
00000040: 0C 00 8F 20 54 4F 20 54  48 45 20 42 45 53 54 20  |... TO THE BEST |
00000050: 4F 46 20 4F 55 52 20 4B  4E 4F 57 4C 45 44 47 45  |OF OUR KNOWLEDGE|
00000060: 00 83 08 0D 00 8F 20 41  4C 4C 20 53 4F 46 54 57  |...... ALL SOFTW|
00000070: 41 52 45 20 4F 4E 20 54  48 49 53 20 44 49 53 4B  |ARE ON THIS DISK|
00000080: 20 49 53 00 9E 08 0E 00  8F 20 49 4E 20 54 48 45  | IS...... IN THE|
00000090: 20 50 55 42 4C 49 43 20  44 4F 4D 41 49 4E 00 A4  | PUBLIC DOMAIN..|
000000A0: 08 0F 00 3A 00 C9 08 10  00 8F 20 44 49 53 4B 20  |...:...... DISK |
000000B0: 50 52 45 50 41 52 45 44  20 42 59 20 44 41 56 49  |PREPARED BY DAVI|
000000C0: 44 20 42 52 41 44 4C 45  59 00 CF 08 11 00 3A 00  |D BRADLEY.....:.|
000000D0: F5 08 14 00 8F 20 4D 45  4E 55 20 50 52 4F 47 52  |..... MENU PROGR|
000000E0: 41 4D 20 42 59 20 4A 4F  48 4E 20 43 52 4F 4F 4B  |AM BY JOHN CROOK|
000000F0: 53 48 41 4E 4B 00 FB 08  15 00 3A 00 1B 09 16 00  |SHANK.....:.....|
00000100: 8F 20 4D 4F 44 49 46 49  45 44 20 42 59 20 44 41  |. MODIFIED BY DA|
00000110: 56 49 44 20 42 52 41 44  4C 45 59 00 21 09 1E 00  |VID BRADLEY.!...|
00000120: 3A 00 37 09 28 00 97 35  33 32 38 30 2C 30 3A 97  |:.7.(..53280,0:.|
00000130: 35 33 32 38 31 2C 30 00  41 09 2D 00 8D 33 30 30  |53281,0.A.-..300|
00000140: 30 00 76 09 32 00 99 22  13 11 11 11 11 11 11 11  |0.v.2.."........|
00000150: 11 11 11 11 11 11 11 11  9A 0E 05 22 A3 31 32 29  |...........".12)|
00000160: 22 CC 4F 41 44 49 4E 47  20 CD 45 4E 55 20 C6 49  |".OADING .ENU .I|
00000170: 4C 45 2E 2E 2E 22 00 81  09 37 00 A0 32 3A A0 31  |LE..."...7..2:.1|
00000180: 35 00 98 09 3C 00 99 A3  31 35 29 22 D0 4C 45 41  |5...<...15)".LEA|
00000190: 53 45 20 D7 41 49 54 22  00 BD 09 46 00 9F 31 35  |SE .AIT"...F..15|
000001A0: 2C 38 2C 31 35 3A 9F 32  2C 38 2C 32 2C 22 30 3A  |,8,15:.2,8,2,"0:|
000001B0: 4D 45 4E 55 46 49 4C 45  2C 53 2C 52 22 00 C7 09  |MENUFILE,S,R"...|
000001C0: 50 00 8D 32 30 30 30 00  D2 09 5A 00 84 32 2C 4E  |P..2000...Z..2,N|
000001D0: 41 24 00 ED 09 64 00 8B  C3 28 4E 41 24 29 B3 33  |A$...d...(NA$).3|
000001E0: 39 A7 4E 41 24 B2 22 20  22 AA 4E 41 24 00 0D 0A  |9.NA$." ".NA$...|
000001F0: 69 00 8B C3 28 4E 41 24  29 B3 34 30 A7 4E 41 24  |i...(NA$).40.NA$|
00000200: B2 4E 41 24 AA 22 20 22  3A 89 31 30 30 00 1D 0A  |.NA$." ":.100...|
00000210: 6E 00 84 32 2C 4E 3A 86  4C 24 28 4E 29 00 28 0A  |n..2,N:.L$(N).(.|
00000220: 78 00 81 58 B2 30 A4 4E  00 3E 0A 82 00 84 32 2C  |x..X.0.N.>....2,|
00000230: 4C 24 28 58 29 3A 82 3A  A0 32 3A A0 31 35 00 50  |L$(X):.:.2:.15.P|
00000240: 0A 83 00 93 22 4D 45 4E  55 4D 4C 22 2C 38 2C 31  |...."MENUML",8,1|
00000250: 00 63 0A 8C 00 50 43 B2  30 3A 50 B2 B5 28 4E AD  |.c...PC.0:P..(N.|
00000260: 31 30 29 00 98 0A 96 00  99 22 93 12 9E 20 20 20  |10)......"...   |
00000270: 20 C6 52 4F 4D 20 D4 48  45 20 D4 4F 52 4F 4E 54  | .ROM .HE .ORONT|
00000280: 4F 20 D0 45 54 20 D5 53  45 52 53 20 C7 52 4F 55  |O .ET .SERS .ROU|
00000290: 50 20 20 20 20 20 22 3B  00 A5 0A A0 00 99 22 1E  |P     ";......".|
000002A0: 22 3B 4E 41 24 00 CB 0A  AA 00 99 22 05 20 20 20  |";NA$......".   |
000002B0: 20 20 20 20 20 20 20 20  20 12 20 C4 49 53 4B 20  |         . .ISK |
000002C0: C3 4F 4E 54 45 4E 54 53  3A 20 22 00 DA 0A AF 00  |.ONTENTS: ".....|
000002D0: 8B 50 43 B1 50 A7 50 43  B2 30 00 04 0B B4 00 99  |.PC.P.PC.0......|
000002E0: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 D0  |"              .|
000002F0: 41 47 45 22 50 43 AA 31  22 20 4F 46 22 50 AA 31  |AGE"PC.1" OF"P.1|
00000300: 3A 99 3A 99 00 2A 0B BE  00 50 45 B2 39 3A 8B 50  |:.:..*...PE.9:.P|
00000310: 45 AA 28 50 43 AC 31 30  29 B1 4E A7 50 45 B2 4E  |E.(PC.10).N.PE.N|
00000320: AB 28 50 43 AC 31 30 29  AB 31 00 36 0B C8 00 81  |.(PC.10).1.6....|
00000330: 58 B2 30 A4 50 45 00 5F  0B D2 00 99 A3 35 29 22  |X.0.PE._.....5)"|
00000340: 9A D0 52 4F 47 52 41 4D  20 23 05 22 58 22 2D 9A  |..ROGRAM #."X"-.|
00000350: 20 22 4C 24 28 58 AA 28  50 43 AC 31 30 29 29 00  | "L$(X.(PC.10)).|
00000360: 65 0B DC 00 82 00 9F 0B  E6 00 99 22 13 11 11 11  |e.........."....|
00000370: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000380: 05 D0 52 45 53 53 20 30  20 2D 22 50 45 22 20 54  |..RESS 0 -"PE" T|
00000390: 4F 20 CC 4F 41 44 20 D0  52 4F 47 52 41 4D 22 00  |O .OAD .ROGRAM".|
000003A0: C5 0B F0 00 99 22 1E D0  52 45 53 53 20 D2 C5 D4  |....."..RESS ...|
000003B0: D5 D2 CE 20 54 4F 20 53  45 45 20 CE 45 58 54 20  |... TO SEE .EXT |
000003C0: D0 41 47 45 22 00 F3 0B  FA 00 99 22 9E D0 52 45  |.AGE"......"..RE|
000003D0: 53 53 20 C6 37 20 54 4F  20 D2 45 41 44 20 D0 52  |SS .7 TO .EAD .R|
000003E0: 4F 47 52 41 4D 20 C4 45  53 43 52 49 50 54 49 4F  |OGRAM .ESCRIPTIO|
000003F0: 4E 53 22 00 1D 0C FF 00  99 22 1C D0 52 45 53 53  |NS"......"..RESS|
00000400: 20 D1 20 54 4F 20 D1 D5  C9 D4 13 11 11 9A 22 3A  | . TO ........":|
00000410: 97 31 39 38 2C 30 3A 97  36 37 39 2C 30 00 30 0C  |.198,0:.679,0.0.|
00000420: 04 01 A1 41 24 3A 8B 41  24 B2 22 22 A7 32 36 30  |...A$:.A$."".260|
00000430: 00 45 0C 09 01 8B 41 24  B2 22 51 22 A7 A0 32 3A  |.E....A$."Q"..2:|
00000440: A0 31 35 3A 80 00 60 0C  0E 01 8B 41 24 B2 C7 28  |.15:..`....A$..(|
00000450: 31 33 29 A7 50 43 B2 50  43 AA 31 3A 89 31 35 30  |13).PC.PC.1:.150|
00000460: 00 70 0C 18 01 8B 41 24  B2 22 88 22 A7 33 35 30  |.p....A$.".".350|
00000470: 00 8C 0C 22 01 8B 41 24  B3 22 30 22 B0 41 24 B1  |..."..A$."0".A$.|
00000480: C7 28 50 45 AA 34 38 29  A7 32 36 30 00 98 0C 2C  |.(PE.48).260...,|
00000490: 01 41 B2 C5 28 41 24 29  00 A6 0C 31 01 8B 41 B1  |.A..(A$)...1..A.|
000004A0: 50 45 A7 32 36 30 00 BE  0C 32 01 8D 20 33 30 30  |PE.260...2.. 300|
000004B0: 30 3A 81 44 42 B2 31 A4  33 35 30 30 3A 82 00 D5  |0:.DB.1.3500:...|
000004C0: 0C 33 01 97 35 33 32 38  31 2C 36 3A 97 35 33 32  |.3..53281,6:.532|
000004D0: 38 30 2C 31 34 00 0A 0D  36 01 99 22 93 11 11 11  |80,14...6.."....|
000004E0: 11 11 11 11 11 11 11 11  11 90 9A 22 C7 28 31 34  |...........".(14|
000004F0: 32 29 22 4C 4F 41 44 49  4E 47 3A 20 22 4C 24 28  |2)"LOADING: "L$(|
00000500: 41 AA 28 50 43 AC 31 30  29 29 00 38 0D 40 01 99  |A.(PC.10)).8.@..|
00000510: 22 13 11 11 11 1F 4C 4F  41 44 22 C7 28 33 34 29  |".....LOAD".(34)|
00000520: 4C 24 28 41 AA 28 50 43  AC 31 30 29 29 C7 28 33  |L$(A.(PC.10)).(3|
00000530: 34 29 22 2C 38 2C 31 22  00 48 0D 4A 01 99 22 11  |4)",8,1".H.J..".|
00000540: 11 11 11 52 55 4E 13 22  00 6E 0D 54 01 97 36 33  |...RUN.".n.T..63|
00000550: 31 2C 31 33 3A 97 36 33  32 2C 31 35 34 3A 97 36  |1,13:.632,154:.6|
00000560: 33 33 2C 31 33 3A 97 31  39 38 2C 33 3A A2 00 95  |33,13:.198,3:...|
00000570: 0D 5E 01 4C B2 30 3A 50  24 B2 22 13 11 11 11 11  |.^.L.0:P$.".....|
00000580: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000590: 11 11 11 11 22 00 BF 0D  68 01 9F 31 35 2C 38 2C  |...."...h..15,8,|
000005A0: 31 35 3A 9F 32 2C 38 2C  32 2C 22 30 3A 44 4F 43  |15:.2,8,2,"0:DOC|
000005B0: 46 49 4C 45 2C 53 2C 52  22 3A 8D 32 30 30 30 00  |FILE,S,R":.2000.|
000005C0: CA 0D 72 01 99 22 93 9A  22 3B 00 D3 0D 7C 01 9E  |..r.."..";...|..|
000005D0: 38 32 33 00 DE 0D 86 01  A0 32 3A A0 31 35 00 F1  |823......2:.15..|
000005E0: 0D 90 01 8B C2 28 36 37  39 29 B2 38 38 A7 35 31  |.....(679).88.51|
000005F0: 30 00 1F 0E E0 01 99 22  05 C5 4E 44 20 4F 46 20  |0......"..ND OF |
00000600: C6 49 4C 45 20 2D 20 D0  52 45 53 53 20 41 4E 59  |.ILE - .RESS ANY|
00000610: 20 4B 45 59 20 46 4F 52  20 CD 45 4E 55 22 3B 00  | KEY FOR .ENU";.|
00000620: 31 0E EF 01 97 31 39 38  2C 30 3A A0 32 3A A0 31  |1....198,0:.2:.1|
00000630: 35 00 44 0E F4 01 A1 41  24 3A 8B 41 24 B2 22 22  |5.D....A$:.A$.""|
00000640: A7 35 30 30 00 52 0E FE  01 50 43 B2 30 3A 89 31  |.500.R...PC.0:.1|
00000650: 35 30 00 66 0E D0 07 84  31 35 2C 45 31 2C 45 24  |50.f....15,E1,E$|
00000660: 2C 45 32 2C 45 33 00 72  0E DA 07 8B 45 31 B2 30  |,E2,E3.r....E1.0|
00000670: A7 8E 00 7D 0E DF 07 A0  32 3A A0 31 35 00 9C 0E  |...}....2:.15...|
00000680: E4 07 99 22 93 11 11 11  11 11 11 11 12 1C 20 C4  |...".......... .|
00000690: 49 53 4B 20 C5 52 52 4F  52 21 20 22 00 BD 0E EE  |ISK .RROR! "....|
000006A0: 07 99 22 12 22 45 31 3B  22 9D 20 22 3B 45 24 3B  |.."."E1;". ";E$;|
000006B0: 45 32 3B 22 9D 22 3B 45  33 22 9D 20 22 00 E6 0E  |E2;".";E3". "...|
000006C0: F8 07 99 22 11 D0 4C 45  41 53 45 20 43 48 45 43  |..."..LEASE CHEC|
000006D0: 4B 20 59 4F 55 52 20 C4  49 53 4B 20 41 4E 44 20  |K YOUR .ISK AND |
000006E0: C4 52 49 56 45 22 00 0A  0F FD 07 99 22 42 45 46  |.RIVE"......"BEF|
000006F0: 4F 52 45 20 54 52 59 49  4E 47 20 54 4F 20 D2 D5  |ORE TRYING TO ..|
00000700: CE 20 41 47 41 49 4E 2E  9A 22 00 10 0F 02 08 80  |. AGAIN.."......|
00000710: 00 2C 0F B8 0B 99 22 93  05 22 3A 97 35 33 32 38  |.,...."..":.5328|
00000720: 30 2C 30 3A 97 35 33 32  38 31 2C 30 00 53 0F C2  |0,0:.53281,0.S..|
00000730: 0B 99 22 20 20 20 20 20  20 20 20 20 2A 2A 2A 2A  |.."         ****|
00000740: 2A 20 2A 2A 2A 2A 2A 20  2A 20 20 20 2A 20 2A 2A  |* ***** *   * **|
00000750: 2A 2A 2A 00 76 0F CC 0B  99 22 20 20 20 20 20 20  |***.v...."      |
00000760: 20 20 20 20 20 2A 20 20  20 2A 20 20 20 2A 20 2A  |     *   *   * *|
00000770: 20 20 20 2A 20 2A 00 9D  0F D6 0B 99 22 20 20 20  |   * *......"   |
00000780: 20 20 20 20 20 20 20 20  2A 20 20 20 2A 2A 2A 2A  |        *   ****|
00000790: 2A 20 2A 20 20 20 2A 20  2A 20 20 2A 2A 00 C4 0F  |* *   * *  **...|
000007A0: E0 0B 99 22 20 20 20 20  20 20 20 20 20 20 20 2A  |..."           *|
000007B0: 20 20 20 2A 20 20 20 20  20 2A 20 20 20 2A 20 2A  |   *     *   * *|
000007C0: 20 20 20 2A 00 EB 0F EA  0B 99 22 20 20 20 20 20  |   *......"     |
000007D0: 20 20 20 20 20 20 2A 20  20 20 2A 20 20 20 20 20  |      *   *     |
000007E0: 2A 2A 2A 2A 2A 20 2A 2A  2A 2A 2A 00 19 10 F4 0B  |***** *****.....|
000007F0: 99 22 11 20 20 20 28 D4  48 45 20 D4 4F 52 4F 4E  |.".   (.HE .ORON|
00000800: 54 4F 20 D0 45 54 20 D5  53 45 52 53 20 C7 52 4F  |TO .ET .SERS .RO|
00000810: 55 50 20 C9 4E 43 2E 29  22 00 43 10 FE 0B 99 22  |UP .NC.)".C...."|
00000820: 11 20 20 20 20 20 20 20  31 39 31 32 41 20 C1 56  |.       1912A .V|
00000830: 45 4E 55 45 20 D2 4F 41  44 20 D3 55 49 54 45 20  |ENUE .OAD .UITE |
00000840: 23 31 22 00 6B 10 08 0C  99 22 20 20 20 20 20 20  |#1".k...."      |
00000850: 20 20 D4 4F 52 4F 4E 54  4F 2C 20 CF 4E 54 41 52  |  .ORONTO, .NTAR|
00000860: 49 4F 2C 20 C3 41 4E 41  44 41 22 00 8A 10 12 0C  |IO, .ANADA".....|
00000870: 99 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00000880: 20 20 20 CD 35 CD 20 34  C1 31 00 90 10 1C 0C 8E  |   .5. 4.1......|
00000890: 00 00 00                                          |...             |

.......N.0.140.....:.7.... TORONTO PET U
SERS GROUP INC..=...:.`.... TO THE BEST 
OF OUR KNOWLEDGE...... ALL SOFTWARE ON T
HIS DISK IS...... IN THE PUBLIC DOMAIN..
...:.I.... DISK PREPARED BY DAVID BRADLE
Y.O...:...... MENU PROGRAM BY JOHN CROOK
SHANK.....:...... MODIFIED BY DAVID BRAD
LEY.!...:.7.(..53280,0:.53281,0.A.-..300
0.V.2.."...................".12)"LOADING
 MENU FILE..."...7. 2: 15...<...15)"PLEA
SE WAIT"...F..15,8,15:.2,8,2,"0:MENUFILE
,S,R".G.P..2000.R.Z..2,NA$...D..C(NA$).3
9.NA$." ".NA$...I..C(NA$).40.NA$.NA$." "
:.100...N..2,N:.L$(N).(.X..X.0.N.>....2,
L$(X):.: 2: 15.P...."MENUML",8,1.C...PC.
0:P..(N.10)......"...    FROM THE TORONT
O PET USERS GROUP     ";... ..".";NA$.K.
...".            . DISK CONTENTS: ".Z...
.PC.P.PC.0......"              PAGE"PC.1
" OF"P.1:.:..*...PE.9:.PE.(PC.10).N.PE.N
.(PC.10).1.6.H..X.0.PE._.R...5)".PROGRAM
 #."X"-. "L$(X.(PC.10)).E.........."....
.................PRESS 0 -"PE" TO LOAD P
ROGRAM".E....".PRESS RETURN TO SEE NEXT 
PAGE"......".PRESS F7 TO READ PROGRAM DE
SCRIPTIONS"......".PRESS Q TO QUIT....":
.198,0:.679,0.0....A$:.A$."".260.E....A$
."Q". 2: 15:..`....A$.G(13).PC.PC.1:.150
.P....A$.".".350..."..A$."0".A$.G(PE.48)
.260...,.A.E(A$)...1..A.PE.260...2.. 300
0:.DB.1.3500:..U.3..53281,6:.53280,14...
6.."..............."G(142)"LOADING: "L$(
A.(PC.10)).8.@..".....LOAD"G(34)L$(A.(PC
.10))G(34)",8,1".H.J.."....RUN.".N.T..63
1,13:.632,154:.633,13:.198,3:....^.L.0:P
$."........................."...H..15,8,
15:.2,8,2,"0:DOCFILE,S,R":.2000.J.R.."..
";.S.|..823..... 2: 15......B(679).88.51
0......".END OF FILE - PRESS ANY KEY FOR
 MENU";.1....198,0: 2: 15.D....A$:.A$.""
.500.R...PC.0:.150.F.P..15,E1,E$,E2,E3.R
.Z..E1.0...}... 2: 15......".......... D
ISK ERROR! "......"."E1;". ";E$;E2;".";E
3". "......".PLEASE CHECK YOUR DISK AND 
DRIVE"......"BEFORE TRYING TO RUN AGAIN.
.".......,...."..":.53280,0:.53281,0.S.B
.."         ***** ***** *   * *****.V.L.
."           *   *   * *   * *...V.."   
        *   ***** *   * *  **.D...."    
       *   *     *   * *   *......"     
      *   *     ***** *****......".   (T
HE TORONTO PET USERS GROUP INC.)".C...."
.       1912A AVENUE ROAD SUITE #1".K...
."        TORONTO, ONTARIO, CANADA".....
."                 M5M 4A1.........

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL