Re: AppleSoft Basic Launcher program

[rich12345 <aiiadict@gmail.com>]

On Jun 8, 3:43 pm, oz390gta <oz390...@gmail.com> wrote:
> Some time in the 80's I found the code for a laucher program in Nibble
> or A2+, typed it in, customized it and used it for many years. I gave
> away the magazines long ago and who knows where my code has gone. Does
> anyone remember such a program or have one similar? It was the STARTUP
> program that gave you the option to boot from slot 5, slot 6, launch
> basic, launch GS/OS etc.
>
> Oz390gta

10 home:D$=chr$(4)
20 print "startup program "
30 print
40 print "B)asic"
50 print "6)Boot slot 6"
60 print "5)boot slot 5"
70 print "G)S/OS"
80 print "----------------------"
90 print "1)Run Appleworks"
100 print "2)Run otherProgram"


500 a$=""
510 vtab 22:input a$
520 if a$="B" then ?"welcome to basic":new
530 if a$="6" then print d$;"pr#6"
540 if a$="5" then print d$;"pr#5"
550 if a$="g" then print d$;"-gsos.system"
560 if a$="1"  then print d$;"prefix appleworks":print d$;"-
appleworks"
570 if a$="2"  then print d$;"prefix otherprogram":print d$;"-
otherprogram"
700 goto 500





add another option "0)BYE" and you can use prodos file selector to run
other programs from the menu