home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd369 / menu.amos / menu.amosSourceCode
AMOS Source Code  |  1978-02-21  |  3KB  |  78 lines
  1. '
  2. ' AMOS KEUZE MENU  
  3. '
  4. ' door Jurgen Valks
  5. '
  6. '
  7. '----------------------------------------
  8. Proc INIT_SCHERM
  9. Proc INIT_TEKST
  10. Do 
  11.  Proc LEES_MUIS
  12. Loop 
  13. ' ---------------------------------------
  14. Procedure INIT_SCHERM
  15.  Break Off 
  16.  Screen Open 0,320,200,16,Lowres : Palette $0,$0,$0 : Flash Off : Curs Off 
  17.  Screen Open 1,640,300,8,Hires : Show On : Led Off 
  18.  Palette $0,$0,$FFF : Curs Off : Flash Off : Change Mouse 2
  19.  Colour 2,$FFF : Colour 3,$F00 : Colour 4,$F0 : Colour 5,$F
  20.  Colour 6,$FF0 : Colour 7,$FF
  21. End Proc
  22. '
  23. Procedure INIT_TEKST
  24.  Pen 2 : Locate 1,1 : Centre "MAAK EEN KEUZE DOOR IN HET VAKJE TE GAAN STAAN MET DE POINTER"
  25.  Locate 1,2 : Centre "DRUK DAARNA OP DE LINKER MUIS TOETS."
  26.  Reserve Zone 19
  27.  Pen 4 : Locate 1,5 : Print Border$(Zone$(" Vu demonstratie 1 ",1),1)
  28.  Pen 5 : Locate 1,8 : Print Border$(Zone$("  Follow me bob !  ",2),1)
  29.  Pen 3 : Locate 1,11 : Print Border$(Zone$("   Walking droid   ",3),1)
  30.  Pen 6 : Locate 1,14 : Print Border$(Zone$(" Vu demonstratie 2 ",4),1)
  31.  Pen 7 : Locate 1,17 : Print Border$(Zone$("    AMOS guru      ",5),1)
  32.  Pen 5 : Locate 1,20 : Print Border$(Zone$(" Vu demonstratie 3 ",6),1)
  33.  Pen 3 : Locate 30,5 : Print Border$(Zone$("    Pc Emulator    ",7),1)
  34.  Pen 6 : Locate 30,8 : Print Border$(Zone$(" Vu demonstratie 4 ",8),1)
  35.  Pen 7 : Locate 30,11 : Print Border$(Zone$("  Sensor intro 1  ",9),1)
  36.  Pen 4 : Locate 30,14 : Print Border$(Zone$("  Scroll Editor   ",10),1)
  37.  Pen 5 : Locate 30,17 : Print Border$(Zone$(" Programma Scroll ",11),1)
  38.  Pen 3 : Locate 30,20 : Print Border$(Zone$("   Disk Tracer    ",12),1)
  39.  Pen 3 : Locate 60,5 : Print Border$(Zone$(" Unlimited bobs !  ",13),1)
  40.  Pen 7 : Locate 60,8 : Print Border$(Zone$(" Vu Demonstratie * ",14),1)
  41.  Pen 6 : Locate 60,11 : Print Border$(Zone$("     Bob Balls   * ",15),1)
  42.  Pen 5 : Locate 60,14 : Print Border$(Zone$("   Appel vangen  * ",16),1)
  43.  Pen 4 : Locate 60,17 : Print Border$(Zone$(" Invoer routine ** ",17),1)
  44.  Pen 6 : Locate 60,20 : Print Border$(Zone$("Info over deze disk",18),1)
  45.  Pen 3 : Locate 35,25 : Print Border$(Zone$(" Einde ",19),1)
  46.  Pen 4 : Locate 1,28 : Centre "* - Gemaakt door Emanuel Habets | ** - Gemaakt door dhr. Vogel"
  47.  Pen 2 : Locate 1,30 : Centre "Amos menu v1.0 (c) J.Valks"
  48.  K$=K$+"(fff,3)(eee,3)(ddd,3)(ccc,3)(bbb,3)(aaa,3)(999,3)(888,3)(999,3)"
  49.  K$=K$+"(aaa,3)(bbb,3)(ccc,3)(ddd,3)(eee,3)(fff,3)"
  50.  Flash 2,K$
  51. End Proc
  52. '
  53. Procedure LEES_MUIS
  54.  If Mouse Click=1 Then Proc LEES_KEUZE
  55. End Proc
  56. '
  57. Procedure LEES_KEUZE
  58.  Z=Mouse Zone
  59.  If Z=1 Then Screen Close 1 : Run "DF0:d1.AMOS"
  60.  If Z=2 Then Screen Close 1 : Run "df0:d2.AMOS"
  61.  If Z=3 Then Screen Close 1 : Run "df0:d3.AMOS"
  62.  If Z=4 Then Screen Close 1 : Run "df0:d4.AMOS"
  63.  If Z=5 Then Screen Close 1 : Run "df0:d5.AMOS"
  64.  If Z=6 Then Screen Close 1 : Run "df0:d6.AMOS"
  65.  If Z=7 Then Screen Close 1 : Run "df0:d7.AMOS"
  66.  If Z=8 Then Screen Close 1 : Run "df0:d8.AMOS"
  67.  If Z=9 Then Screen Close 1 : Run "df0:d9.AMOS"
  68.  If Z=10 Then Screen Close 1 : Run "df0:d10.AMOS"
  69.  If Z=11 Then Screen Close 1 : Run "df0:d11.AMOS"
  70.  If Z=12 Then Screen Close 1 : Run "df0:d12.AMOS"
  71.  If Z=13 Then Screen Close 1 : Run "df0:d17.AMOS"
  72.  If Z=14 Then Screen Close 1 : Run "df0:d13.AMOS"
  73.  If Z=15 Then Screen Close 1 : Run "df0:d14.AMOS"
  74.  If Z=16 Then Screen Close 1 : Run "df0:d15.AMOS"
  75.  If Z=17 Then Screen Close 1 : Run "df0:d16.AMOS"
  76.  If Z=18 Then Screen Close 1 : Run "df0:info.AMOS"
  77.  If Z=19 Then Screen Close 1 : End 
  78. End Proc