FRIENDLY MENU
FILE INFORMATION
FILENAME(S): FRIENDLY MENU
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 21:24:08
APPEARS ON: 1 disk(s)
FILE HASH
18a9b31aecacab8abfda24193365176b661353837b8432c9cd1b88ef595a7340
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BEST OF TORPET | FRIENDLY MENU | PRG | DuncanTwain | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 89 20 31 30 30 00 11 08 0F 00 |....... 100.....| 00000010: 3A 00 3A 08 14 00 3A AC AC AC AC AC AC AC AC AC |:.:...:.........| 00000020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000030: AC AC AC AC AC AC AC AC AC AC 00 63 08 19 00 3A |...........c...:| 00000040: AC 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 AC 00 8A 08 1E 00 3A AC 20 20 20 20 20 AC | ......:. .| 00000070: AC AC 20 46 52 49 80 4C 59 20 4D 45 4E 55 20 AC |.. FRI.LY MENU .| 00000080: AC AC 20 20 20 20 20 20 20 AC 00 B3 08 23 00 3A |.. ....#.:| 00000090: AC 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 AC 00 DC 08 28 00 3A AC 20 20 20 20 20 42 | ....(.:. B| 000000C0: 59 3A 20 4D 41 52 4B 20 50 45 54 45 52 53 4D 45 |Y: MARK PETERSME| 000000D0: 59 45 52 20 20 20 20 20 20 20 20 AC 00 04 09 2D |YER ....-| 000000E0: 00 3A AC 20 20 20 20 20 20 20 20 20 52 55 41 20 |.:. RUA | 000000F0: 41 4C 42 45 52 A4 20 46 41 52 49 41 2C 20 31 31 |ALBER. FARIA, 11| 00000100: 31 38 20 AC 00 2D 09 32 00 3A AC 20 20 20 20 20 |18 ..-.2.:. | 00000110: 20 20 20 20 53 41 4F 20 50 41 55 4C 4F 2C 20 53 | SAO PAULO, S| 00000120: 2E 50 2E 20 20 20 20 20 20 20 20 20 AC 00 56 09 |.P. ..V.| 00000130: 37 00 3A AC 20 20 20 20 20 20 20 20 20 42 52 41 |7.:. BRA| 00000140: 5A 49 4C 20 20 20 20 20 30 35 34 35 39 20 20 20 |ZIL 05459 | 00000150: 20 20 20 20 20 AC 00 7F 09 3C 00 3A AC 20 20 20 | ....<.:. | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AC 00 | ..| 00000180: A8 09 41 00 3A AC 20 20 20 20 20 41 53 20 4F 46 |..A.:. AS OF| 00000190: 20 41 55 47 55 53 54 20 32 30 2C 20 31 39 38 32 | AUGUST 20, 1982| 000001A0: 2E 20 20 20 20 20 20 AC 00 D1 09 46 00 3A AC 20 |. ....F.:. | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: AC 00 FA 09 4B 00 3A AC AC AC AC AC AC AC AC AC |....K.:.........| 000001E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000001F0: AC AC AC AC AC AC AC AC AC AC 00 00 0A 50 00 3A |.............P.:| 00000200: 00 21 0A 64 00 99 22 93 22 3B A6 31 33 29 3B 22 |.!.d..".";.13);"| 00000210: 12 20 46 52 49 45 4E 44 4C 59 20 4D 45 4E 55 20 |. FRIENDLY MENU | 00000220: 22 00 40 0A 6E 00 53 50 24 B2 C7 28 31 36 30 29 |".@.n.SP$..(160)| 00000230: 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 45 |:. SHIFTED SPACE| 00000240: 00 46 0A 78 00 3A 00 83 0A 82 00 50 4F 24 B2 22 |.F.x.:.....PO$."| 00000250: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000260: 11 11 11 11 11 11 11 11 11 11 22 3A 8F 20 48 4F |..........":. HO| 00000270: 4D 45 20 2B 20 32 35 20 43 55 52 53 4F 52 20 44 |ME + 25 CURSOR D| 00000280: 4F 57 4E 00 89 0A 8C 00 3A 00 D3 0A 96 00 46 49 |OWN.....:.....FI| 00000290: 52 53 54 B2 35 3A 53 50 B2 32 3A 52 4F 57 B2 46 |RST.5:SP.2:ROW.F| 000002A0: 49 52 53 54 AB 53 50 3A 8F 20 4C 4F 43 41 54 45 |IRST.SP:. LOCATE| 000002B0: 20 46 49 52 53 54 20 4C 49 4E 45 20 4F 46 20 4D | FIRST LINE OF M| 000002C0: 45 4E 55 20 41 4E 44 20 53 45 54 20 53 50 41 43 |ENU AND SET SPAC| 000002D0: 49 4E 47 00 D9 0A A0 00 3A 00 FD 0A AA 00 8D 20 |ING.....:...... | 000002E0: 35 31 30 30 30 3A 99 20 53 50 24 3B A6 31 32 29 |51000:. SP$;.12)| 000002F0: 3B 22 4F 50 54 49 4F 4E 20 4F 4E 45 22 00 21 0B |;"OPTION ONE".!.| 00000300: B4 00 8D 20 35 31 30 30 30 3A 99 20 53 50 24 3B |... 51000:. SP$;| 00000310: A6 31 32 29 3B 22 4F 50 54 49 4F 4E 20 54 57 4F |.12);"OPTION TWO| 00000320: 22 00 40 0B BE 00 8D 20 35 31 30 30 30 3A 99 20 |".@.... 51000:. | 00000330: 53 50 24 3B A6 31 34 29 3B 22 2D 45 4E 44 2D 22 |SP$;.14);"-END-"| 00000340: 00 46 0B C8 00 3A 00 52 0B D2 00 8D 20 35 30 30 |.F...:.R.... 500| 00000350: 30 30 00 58 0B DC 00 3A 00 72 0B E6 00 91 20 5A |00.X...:.r.... Z| 00000360: 31 20 8D 20 31 30 30 30 2C 31 30 30 30 2C 32 30 |1 . 1000,1000,20| 00000370: 30 30 00 78 0B F0 00 3A 00 82 0B FA 00 89 20 31 |00.x...:...... 1| 00000380: 30 30 00 88 0B 04 01 3A 00 B3 0B E8 03 99 22 93 |00.....:......".| 00000390: 11 11 20 20 20 59 4F 55 20 53 45 4C 45 43 54 45 |.. YOU SELECTE| 000003A0: 44 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 22 |D OPTION NUMBER"| 000003B0: 3B 5A 31 00 C8 0B F2 03 81 20 49 B2 31 20 A4 20 |;Z1...... I.1 . | 000003C0: 31 30 30 30 3A 82 20 49 00 CE 0B FC 03 8E 00 D4 |1000:. I........| 000003D0: 0B 06 04 3A 00 DA 0B D0 07 80 00 E0 0B DA 07 3A |...:...........:| 000003E0: 00 FF 0B EC C2 8F 20 2A 2A 2A 20 49 4E 50 55 54 |...... *** INPUT| 000003F0: 20 53 55 42 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 | SUBROUTINE ***.| 00000400: 05 0C F6 C2 3A 00 36 0C 00 C3 8F 20 56 41 52 49 |....:.6.... VARI| 00000410: 41 42 4C 45 53 20 52 45 51 55 49 52 45 44 3A 20 |ABLES REQUIRED: | 00000420: 46 49 52 53 54 2C 20 4C 41 53 54 2C 5D 28 53 50 |FIRST, LAST,](SP| 00000430: 29 2C 20 50 4F 24 00 61 0C 0A C3 8F 20 56 41 52 |), PO$.a.... VAR| 00000440: 49 41 42 4C 45 53 20 55 53 45 44 3A 20 49 5A 2C |IABLES USED: IZ,| 00000450: 20 52 4F 57 2C 20 5A 5A 24 2C 20 5A 24 2C 20 5A | ROW, ZZ$, Z$, Z| 00000460: 31 00 67 0C 46 C3 3A 00 79 0C 50 C3 8B 20 53 50 |1.g.F.:.y.P.. SP| 00000470: B2 30 20 A7 20 53 50 B2 31 00 83 0C 5A C3 9F 20 |.0 . SP.1...Z.. | 00000480: 31 2C 33 00 9E 0C 64 C3 81 20 49 5A B2 46 49 52 |1,3...d.. IZ.FIR| 00000490: 53 54 20 A4 20 4C 41 53 54 20 A9 20 53 50 00 B8 |ST . LAST . SP..| 000004A0: 0C 6E C3 3A 52 4F 57 B2 49 5A 3A 99 20 C8 28 50 |.n.:ROW.IZ:. .(P| 000004B0: 4F 24 2C 52 4F 57 29 3B 00 C4 0C 78 C3 3A 84 31 |O$,ROW);...x.:.1| 000004C0: 2C 5A 5A 24 00 DE 0C 82 C3 3A 5A 5A 24 B2 22 12 |,ZZ$.....:ZZ$.".| 000004D0: 22 AA 5A 5A 24 3A 99 22 91 22 3B 5A 5A 24 00 F8 |".ZZ$:.".";ZZ$..| 000004E0: 0C 8C C3 3A A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 |...:. Z$:. Z$.""| 000004F0: 20 A7 20 35 30 30 36 30 00 10 0D 96 C3 3A 8B 20 | . 50060.....:. | 00000500: 5A 24 B2 C7 28 31 33 29 20 A7 20 35 30 31 37 30 |Z$..(13) . 50170| 00000510: 00 3D 0D A0 C3 3A 8B 28 5A 24 B3 B1 22 11 22 20 |.=...:.(Z$.."." | 00000520: AF 20 5A 24 B3 B1 22 91 22 20 AF 20 5A 24 B3 B1 |. Z$.."." . Z$..| 00000530: 20 22 1D 22 29 20 A7 20 35 30 30 36 30 00 50 0D | ".") . 50060.P.| 00000540: AA C3 3A 99 22 91 22 3B CA 28 5A 5A 24 2C 32 29 |..:.".";.(ZZ$,2)| 00000550: 00 70 0D B4 C3 3A 8B 28 5A 24 B2 22 91 22 20 B0 |.p...:.(Z$."." .| 00000560: 20 5A 24 B2 22 1D 22 29 20 A7 20 35 30 31 34 30 | Z$.".") . 50140| 00000570: 00 8D 0D BE C3 3A 8B 20 49 5A AA 53 50 B1 4C 41 |.....:. IZ.SP.LA| 00000580: 53 54 20 A7 20 49 5A B2 49 5A AB 53 50 00 99 0D |ST . IZ.IZ.SP...| 00000590: C8 C3 89 20 35 30 31 35 30 00 9F 0D D2 C3 3A 00 |... 50150.....:.| 000005A0: CA 0D DC C3 49 5A B2 49 5A AB 32 AC 53 50 3A 8B |....IZ.IZ.2.SP:.| 000005B0: 20 49 5A B3 46 49 52 53 54 AB 53 50 20 A7 20 49 | IZ.FIRST.SP . I| 000005C0: 5A B2 46 49 52 53 54 AB 53 50 00 D3 0D E6 C3 82 |Z.FIRST.SP......| 000005D0: 20 49 5A 00 D9 0D F0 C3 3A 00 E1 0D FA C3 A0 20 | IZ.....:...... | 000005E0: 31 00 FA 0D 04 C4 5A 31 B2 28 52 4F 57 AB 46 49 |1.....Z1.(ROW.FI| 000005F0: 52 53 54 AA 53 50 29 AD 53 50 00 00 0E 18 C4 8E |RST.SP).SP......| 00000600: 00 06 0E 22 C4 3A 00 2F 0E D4 C6 8F 20 2A 2A 2A |...".:./.... ***| 00000610: 20 50 52 49 4E 54 20 4D 45 4E 55 3B 20 53 45 54 | PRINT MENU; SET| 00000620: 20 52 4F 57 20 26 20 4C 41 53 54 20 2A 2A 2A 00 | ROW & LAST ***.| 00000630: 35 0E DE C6 3A 00 55 0E E8 C6 8F 20 52 45 51 55 |5...:.U.... REQU| 00000640: 49 52 45 53 20 46 49 52 53 54 2C 20 50 53 24 2C |IRES FIRST, PS$,| 00000650: 20 28 53 50 29 00 6F 0E F2 C6 8F 20 55 53 45 53 | (SP).o.... USES| 00000660: 20 46 49 52 53 54 2C 4C 41 53 54 2C 52 4F 57 00 | FIRST,LAST,ROW.| 00000670: 75 0E 2E C7 3A 00 87 0E 38 C7 8B 20 53 50 B2 30 |u...:...8.. SP.0| 00000680: 20 A7 20 53 50 B2 31 00 9F 0E 42 C7 52 4F 57 B2 | . SP.1...B.ROW.| 00000690: 52 4F 57 AA 53 50 3A 4C 41 53 54 B2 52 4F 57 00 |ROW.SP:LAST.ROW.| 000006A0: B1 0E 4C C7 99 20 C8 28 50 4F 24 2C 52 4F 57 29 |..L.. .(PO$,ROW)| 000006B0: 3B 00 B7 0E 56 C7 8E 00 BD 0E 60 C7 3A 00 00 00 |;...V.....`.:...|
....... 100.....:.:...:.................
...................C...:.
......:. ... FRI.L
Y MENU ... ....#.:.
....(.:. BY: MARK
PETERSMEYER ....-.:. RUA
ALBER. FARIA, 1118 ..-.2.:. SAO
PAULO, S.P. ..V.7.:. BRA
ZIL 05459 ...<.:.
....A.:. AS OF
AUGUST 20, 1982. ..Q.F.:.
....K.:.........
.............................P.:.!.D..".
";.13);". FRIENDLY MENU ".@.N.SP$.G(160)
:. SHIFTED SPACE.F.X.:.....PO$."........
..................":. HOME + 25 CURSOR D
OWN.....:.S...FIRST.5:SP.2:ROW.FIRST.SP:
. LOCATE FIRST LINE OF MENU AND SET SPAC
ING.Y. .:...... 51000:. SP$;.12);"OPTION
ONE".!.... 51000:. SP$;.12);"OPTION TWO
".@.... 51000:. SP$;.14);"-END-".F.H.:.R
.R.. 50000.X...:.R.... Z1 . 1000,1000,20
00.X...:...... 100.....:......"... YOU
SELECTED OPTION NUMBER";Z1.H.... I.1 .
1000:. I.N.....T...:.Z.P.....Z.:....B. *
** INPUT SUBROUTINE ***....B:.6..C. VARI
ABLES REQUIRED: FIRST, LAST,](SP), PO$.A
..C. VARIABLES USED: IZ, ROW, ZZ$, Z$, Z
1.G.FC:.Y.PC. SP.0 . SP.1...ZC. 1,3...DC
. IZ.FIRST . LAST . SP...NC:ROW.IZ:. H(P
O$,ROW);.D.XC:.1,ZZ$....C:ZZ$.".".ZZ$:."
.";ZZ$....C:. Z$:. Z$."" . 50060....C:.
Z$.G(13) . 50170.=. C:.(Z$.."." . Z$..".
" . Z$.. ".") . 50060.P..C:.".";J(ZZ$,2)
.P..C:.(Z$."." . Z$.".") . 50140....C:.
IZ.SP.LAST . IZ.IZ.SP...HC. 50150...RC:.
J..CIZ.IZ.2.SP:. IZ.FIRST.SP . IZ.FIRST.
SP.S..C. IZ.Y..C:....C 1....DZ1.(ROW.FI
RST.SP).SP....D...."D:./.TF. *** PRINT M
ENU; SET ROW & LAST ***.5..F:.U..F. REQU
IRES FIRST, PS$, (SP).O..F. USES FIRST,L
AST,ROW.U..G:...8G. SP.0 . SP.1...BGROW.
ROW.SP:LAST.ROW...LG. H(PO$,ROW);...VG..
..`G:...
> CLICK IMAGE PREVIEW FOR FULL MODAL