MENU.C

FILE INFORMATION

FILENAME(S): MENU.C

FILE TYPE(S): PRG

FILE SIZE: 2.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

68ea6fcbf3ecc0affd54260e11808deb65eee3198e81f1c540a0a014d112c4e2

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TPUG APRIL 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 97 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 22 3B 00  A4 0A A0 00 99 22 1E 22  |P    ";......"."|
000002A0: 3B 4E 41 24 00 CA 0A AA  00 99 22 05 20 20 20 20  |;NA$......".    |
000002B0: 20 20 20 20 20 20 20 20  12 20 C4 49 53 4B 20 C3  |        . .ISK .|
000002C0: 4F 4E 54 45 4E 54 53 3A  20 22 00 D9 0A AF 00 8B  |ONTENTS: "......|
000002D0: 50 43 B1 50 A7 50 43 B2  30 00 03 0B B4 00 99 22  |PC.P.PC.0......"|
000002E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 D0 41  |              .A|
000002F0: 47 45 22 50 43 AA 31 22  20 4F 46 22 50 AA 31 3A  |GE"PC.1" OF"P.1:|
00000300: 99 3A 99 00 29 0B BE 00  50 45 B2 39 3A 8B 50 45  |.:..)...PE.9:.PE|
00000310: AA 28 50 43 AC 31 30 29  B1 4E A7 50 45 B2 4E AB  |.(PC.10).N.PE.N.|
00000320: 28 50 43 AC 31 30 29 AB  31 00 35 0B C8 00 81 58  |(PC.10).1.5....X|
00000330: B2 30 A4 50 45 00 5E 0B  D2 00 99 A3 35 29 22 9A  |.0.PE.^.....5)".|
00000340: D0 52 4F 47 52 41 4D 20  23 05 22 58 22 2D 9A 20  |.ROGRAM #."X"-. |
00000350: 22 4C 24 28 58 AA 28 50  43 AC 31 30 29 29 00 64  |"L$(X.(PC.10)).d|
00000360: 0B DC 00 82 00 9E 0B E6  00 99 22 13 11 11 11 11  |..........".....|
00000370: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 05  |................|
00000380: D0 52 45 53 53 20 30 20  2D 22 50 45 22 20 54 4F  |.RESS 0 -"PE" TO|
00000390: 20 CC 4F 41 44 20 D0 52  4F 47 52 41 4D 22 00 C4  | .OAD .ROGRAM"..|
000003A0: 0B F0 00 99 22 1E D0 52  45 53 53 20 D2 C5 D4 D5  |...."..RESS ....|
000003B0: D2 CE 20 54 4F 20 53 45  45 20 CE 45 58 54 20 D0  |.. TO SEE .EXT .|
000003C0: 41 47 45 22 00 F2 0B FA  00 99 22 9E D0 52 45 53  |AGE"......"..RES|
000003D0: 53 20 C6 37 20 54 4F 20  D2 45 41 44 20 D0 52 4F  |S .7 TO .EAD .RO|
000003E0: 47 52 41 4D 20 C4 45 53  43 52 49 50 54 49 4F 4E  |GRAM .ESCRIPTION|
000003F0: 53 22 00 1C 0C FF 00 99  22 1C D0 52 45 53 53 20  |S"......"..RESS |
00000400: D1 20 54 4F 20 D1 D5 C9  D4 13 11 11 9A 22 3A 97  |. TO ........":.|
00000410: 31 39 38 2C 30 3A 97 36  37 39 2C 30 00 2F 0C 04  |198,0:.679,0./..|
00000420: 01 A1 41 24 3A 8B 41 24  B2 22 22 A7 32 36 30 00  |..A$:.A$."".260.|
00000430: 44 0C 09 01 8B 41 24 B2  22 51 22 A7 A0 32 3A A0  |D....A$."Q"..2:.|
00000440: 31 35 3A 80 00 5F 0C 0E  01 8B 41 24 B2 C7 28 31  |15:.._....A$..(1|
00000450: 33 29 A7 50 43 B2 50 43  AA 31 3A 89 31 35 30 00  |3).PC.PC.1:.150.|
00000460: 6F 0C 18 01 8B 41 24 B2  22 88 22 A7 33 35 30 00  |o....A$.".".350.|
00000470: 8B 0C 22 01 8B 41 24 B3  22 30 22 B0 41 24 B1 C7  |.."..A$."0".A$..|
00000480: 28 50 45 AA 34 38 29 A7  32 36 30 00 97 0C 2C 01  |(PE.48).260...,.|
00000490: 41 B2 C5 28 41 24 29 00  A5 0C 31 01 8B 41 B1 50  |A..(A$)...1..A.P|
000004A0: 45 A7 32 36 30 00 BD 0C  32 01 8D 20 33 30 30 30  |E.260...2.. 3000|
000004B0: 3A 81 44 42 B2 31 A4 33  35 30 30 3A 82 00 D4 0C  |:.DB.1.3500:....|
000004C0: 33 01 97 35 33 32 38 31  2C 36 3A 97 35 33 32 38  |3..53281,6:.5328|
000004D0: 30 2C 31 34 00 09 0D 36  01 99 22 93 11 11 11 11  |0,14...6..".....|
000004E0: 11 11 11 11 11 11 11 11  90 9A 22 C7 28 31 34 32  |..........".(142|
000004F0: 29 22 4C 4F 41 44 49 4E  47 3A 20 22 4C 24 28 41  |)"LOADING: "L$(A|
00000500: AA 28 50 43 AC 31 30 29  29 00 37 0D 40 01 99 22  |.(PC.10)).7.@.."|
00000510: 13 11 11 11 1F 4C 4F 41  44 22 C7 28 33 34 29 4C  |.....LOAD".(34)L|
00000520: 24 28 41 AA 28 50 43 AC  31 30 29 29 C7 28 33 34  |$(A.(PC.10)).(34|
00000530: 29 22 2C 38 2C 31 22 00  47 0D 4A 01 99 22 11 11  |)",8,1".G.J.."..|
00000540: 11 11 52 55 4E 13 22 00  6D 0D 54 01 97 36 33 31  |..RUN.".m.T..631|
00000550: 2C 31 33 3A 97 36 33 32  2C 31 35 34 3A 97 36 33  |,13:.632,154:.63|
00000560: 33 2C 31 33 3A 97 31 39  38 2C 33 3A A2 00 94 0D  |3,13:.198,3:....|
00000570: 5E 01 4C B2 30 3A 50 24  B2 22 13 11 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 22 00 BE 0D 68  01 9F 31 35 2C 38 2C 31  |..."...h..15,8,1|
000005A0: 35 3A 9F 32 2C 38 2C 32  2C 22 30 3A 44 4F 43 46  |5:.2,8,2,"0:DOCF|
000005B0: 49 4C 45 2C 53 2C 52 22  3A 8D 32 30 30 30 00 C9  |ILE,S,R":.2000..|
000005C0: 0D 72 01 99 22 93 9A 22  3B 00 D2 0D 7C 01 9E 38  |.r.."..";...|..8|
000005D0: 32 33 00 DD 0D 86 01 A0  32 3A A0 31 35 00 F0 0D  |23......2:.15...|
000005E0: 90 01 8B C2 28 36 37 39  29 B2 38 38 A7 35 31 30  |....(679).88.510|
000005F0: 00 1E 0E E0 01 99 22 05  C5 4E 44 20 4F 46 20 C6  |......"..ND OF .|
00000600: 49 4C 45 20 2D 20 D0 52  45 53 53 20 41 4E 59 20  |ILE - .RESS ANY |
00000610: 4B 45 59 20 46 4F 52 20  CD 45 4E 55 22 3B 00 30  |KEY FOR .ENU";.0|
00000620: 0E EF 01 97 31 39 38 2C  30 3A A0 32 3A A0 31 35  |....198,0:.2:.15|
00000630: 00 43 0E F4 01 A1 41 24  3A 8B 41 24 B2 22 22 A7  |.C....A$:.A$."".|
00000640: 35 30 30 00 51 0E FE 01  50 43 B2 30 3A 89 31 35  |500.Q...PC.0:.15|
00000650: 30 00 65 0E D0 07 84 31  35 2C 45 31 2C 45 24 2C  |0.e....15,E1,E$,|
00000660: 45 32 2C 45 33 00 71 0E  DA 07 8B 45 31 B2 30 A7  |E2,E3.q....E1.0.|
00000670: 8E 00 7C 0E DF 07 A0 32  3A A0 31 35 00 9B 0E E4  |..|....2:.15....|
00000680: 07 99 22 93 11 11 11 11  11 11 11 12 1C 20 C4 49  |..".......... .I|
00000690: 53 4B 20 C5 52 52 4F 52  21 20 22 00 BC 0E EE 07  |SK .RROR! ".....|
000006A0: 99 22 12 22 45 31 3B 22  9D 20 22 3B 45 24 3B 45  |."."E1;". ";E$;E|
000006B0: 32 3B 22 9D 22 3B 45 33  22 9D 20 22 00 E5 0E F8  |2;".";E3". "....|
000006C0: 07 99 22 11 D0 4C 45 41  53 45 20 43 48 45 43 4B  |.."..LEASE CHECK|
000006D0: 20 59 4F 55 52 20 C4 49  53 4B 20 41 4E 44 20 C4  | YOUR .ISK AND .|
000006E0: 52 49 56 45 22 00 09 0F  FD 07 99 22 42 45 46 4F  |RIVE"......"BEFO|
000006F0: 52 45 20 54 52 59 49 4E  47 20 54 4F 20 D2 D5 CE  |RE TRYING TO ...|
00000700: 20 41 47 41 49 4E 2E 9A  22 00 0F 0F 02 08 80 00  | AGAIN..".......|
00000710: 2B 0F B8 0B 99 22 93 05  22 3A 97 35 33 32 38 30  |+...."..":.53280|
00000720: 2C 30 3A 97 35 33 32 38  31 2C 30 00 52 0F C2 0B  |,0:.53281,0.R...|
00000730: 99 22 20 20 20 20 20 20  20 20 20 2A 2A 2A 2A 2A  |."         *****|
00000740: 20 2A 2A 2A 2A 2A 20 2A  20 20 20 2A 20 2A 2A 2A  | ***** *   * ***|
00000750: 2A 2A 00 75 0F CC 0B 99  22 20 20 20 20 20 20 20  |**.u...."       |
00000760: 20 20 20 20 2A 20 20 20  2A 20 20 20 2A 20 2A 20  |    *   *   * * |
00000770: 20 20 2A 20 2A 00 9C 0F  D6 0B 99 22 20 20 20 20  |  * *......"    |
00000780: 20 20 20 20 20 20 20 2A  20 20 20 2A 2A 2A 2A 2A  |       *   *****|
00000790: 20 2A 20 20 20 2A 20 2A  20 20 2A 2A 00 C3 0F E0  | *   * *  **....|
000007A0: 0B 99 22 20 20 20 20 20  20 20 20 20 20 20 2A 20  |.."           * |
000007B0: 20 20 2A 20 20 20 20 20  2A 20 20 20 2A 20 2A 20  |  *     *   * * |
000007C0: 20 20 2A 00 EA 0F EA 0B  99 22 20 20 20 20 20 20  |  *......"      |
000007D0: 20 20 20 20 20 2A 20 20  20 2A 20 20 20 20 20 2A  |     *   *     *|
000007E0: 2A 2A 2A 2A 20 2A 2A 2A  2A 2A 00 18 10 F4 0B 99  |**** *****......|
000007F0: 22 11 20 20 20 28 D4 48  45 20 D4 4F 52 4F 4E 54  |".   (.HE .ORONT|
00000800: 4F 20 D0 45 54 20 D5 53  45 52 53 20 C7 52 4F 55  |O .ET .SERS .ROU|
00000810: 50 20 C9 4E 43 2E 29 22  00 42 10 FE 0B 99 22 11  |P .NC.)".B....".|
00000820: 20 20 20 20 20 20 20 31  39 31 32 41 20 C1 56 45  |       1912A .VE|
00000830: 4E 55 45 20 D2 4F 41 44  20 D3 55 49 54 45 20 23  |NUE .OAD .UITE #|
00000840: 31 22 00 6A 10 08 0C 99  22 20 20 20 20 20 20 20  |1".j...."       |
00000850: 20 D4 4F 52 4F 4E 54 4F  2C 20 CF 4E 54 41 52 49  | .ORONTO, .NTARI|
00000860: 4F 2C 20 C3 41 4E 41 44  41 22 00 89 10 12 0C 99  |O, .ANADA"......|
00000870: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000880: 20 20 CD 35 CD 20 34 C1  31 00 8F 10 1C 0C 8E 00  |  .5. 4.1.......|
00000890: 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$.J..
..".            . DISK CONTENTS: ".Y....
PC.P.PC.0......"              PAGE"PC.1"
 OF"P.1:.:..)...PE.9:.PE.(PC.10).N.PE.N.
(PC.10).1.5.H..X.0.PE.^.R...5)".PROGRAM 
#."X"-. "L$(X.(PC.10)).D..........".....
................PRESS 0 -"PE" TO LOAD PR
OGRAM".D....".PRESS RETURN TO SEE NEXT P
AGE"......".PRESS F7 TO READ PROGRAM DES
CRIPTIONS"......".PRESS Q TO QUIT....":.
198,0:.679,0./....A$:.A$."".260.D....A$.
"Q". 2: 15:.._....A$.G(13).PC.PC.1:.150.
O....A$.".".350..."..A$."0".A$.G(PE.48).
260...,.A.E(A$)...1..A.PE.260...2.. 3000
:.DB.1.3500:..T.3..53281,6:.53280,14...6
.."..............."G(142)"LOADING: "L$(A
.(PC.10)).7.@..".....LOAD"G(34)L$(A.(PC.
10))G(34)",8,1".G.J.."....RUN.".M.T..631
,13:.632,154:.633,13:.198,3:....^.L.0:P$
."........................."...H..15,8,1
5:.2,8,2,"0:DOCFILE,S,R":.2000.I.R..".."
;.R.|..823..... 2: 15......B(679).88.510
......".END OF FILE - PRESS ANY KEY FOR 
MENU";.0....198,0: 2: 15.C....A$:.A$."".
500.Q...PC.0:.150.E.P..15,E1,E$,E2,E3.Q.
Z..E1.0...|... 2: 15......".......... DI
SK ERROR! "......"."E1;". ";E$;E2;".";E3
". "......".PLEASE CHECK YOUR DISK AND D
RIVE"......"BEFORE TRYING TO RUN AGAIN..
".......+...."..":.53280,0:.53281,0.R.B.
."         ***** ***** *   * *****.U.L..
"           *   *   * *   * *...V.."    
       *   ***** *   * *  **.C...."     
      *   *     *   * *   *......"      
     *   *     ***** *****......".   (TH
E TORONTO PET USERS GROUP INC.)".B....".
       1912A AVENUE ROAD SUITE #1".J....
"        TORONTO, ONTARIO, CANADA"......
"                 M5M 4A1.........

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL