[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Simple Menu Program ?



On Apr 1, 3:07 am, "Michael J. Mahon" <mjma...@aol.com> wrote:
> I'd be inclined to write a simple Applesoft program to display
> the 2-6 "icons" as an HGR page,

You could use a paint program to make the screen, using screen
captures
of GSOS or clipart off the net.

>and use HPLOT statements to
> draw (and erase) "selection" boxes around them in turn as
> the arrow keys were used to "move" the selection.  The Enter
> key, space bar, or whatever could cause the selected program
> to be loaded and run.

10 hgr
20 print chr$(4);"bload screen,a$2000"
30 x=1:y=1:rem selection
40 hcolor = 0
50 gosub 500:rem erase selection
60 if peek(-16384)>127 then get a$
70 if a$="j" then x=x-1
80 if a$="l" then x=x+1
90 if a$="i" then y=y-1
100 if a$="k" then y=y+1
110 if x<1 then x=1
120 if x>14 then x=14
130 if y<1 then y=1
140 if y>9 then y=9
 200 hcolor = 7
 210 gosub 500
 220 goto 40


500 hplot (x-1)*20,(y-1)*20 to ((x-1)*20)+20, (y-1)*20 to
((x-1)*20)+20, ((y-1)*20)+20 to  (x-1)*20, ((y-1)*20)+20 to (x-1)*20,
(y-1)*20
510 return

> I'm not sure how to start a GSOS program from ProDOS, but it
> seems doable...

maybe -program ?

?chr$(4);"-program"

Rich