home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd369 / info.amos / info.amosSourceCode
AMOS Source Code  |  1990-10-14  |  2KB  |  87 lines
  1. '
  2. '
  3. ' -----------------------
  4. Break Off 
  5. Proc INIT_SCREEN
  6. Proc BEWEEG_OMHOOG
  7. Proc WACHT
  8. Proc EINDE
  9. ' -----------------------
  10. '
  11. Procedure INIT_SCREEN
  12.  Hide On 
  13.  Screen Open 0,320,200,16,Lowres
  14.  Palette ,$0,$0 : Flash Off : Curs Off 
  15.  Screen Open 1,640,220,8,Hires
  16.  Flash Off : Curs Off 
  17.  Colour 3,$FFF : Colour 4,$F00
  18.  Colour 5,$F0 : Colour 6,$F
  19.  Colour 7,$FF
  20.  Palette $0,$0,$FFF : Screen Display 1,,310,,
  21.  Get Rom Fonts : Set Font 1 : Ink 3
  22.  Proc TEKST
  23. End Proc
  24. '
  25. Procedure BEWEEG_OMHOOG
  26.  For Y=310 To 50 Step -10
  27.   Screen Display 1,,Y,,
  28.   Multi Wait 
  29.  Next Y
  30.  For Y=50 To 100 Step 5
  31.   Screen Display 1,,Y,,
  32.   Multi Wait 
  33.  Next Y
  34.  For Y=100 To 50 Step -3
  35.   Screen Display 1,,Y,,
  36.   Multi Wait 
  37.  Next Y
  38.  For Y=50 To 80 Step 2
  39.   Screen Display 1,,Y,,
  40.   Multi Wait 
  41.  Next Y
  42.  For Y=80 To 50 Step -1
  43.   Screen Display 1,,Y,,
  44.   Multi Wait 
  45.  Next Y
  46. End Proc
  47. '
  48. Procedure BEWEEG_OMLAAG
  49.  For Y=50 To 310 Step 10
  50.   Screen Display 1,,Y,,
  51.   Multi Wait 
  52.  Next Y
  53. End Proc
  54. '
  55. Procedure TEKST
  56.  Set Rainbow 0,3,230,"(1,1,0)","(1,1,0)","(1,1,0)"
  57.  Rainbow 0,1,45,230
  58.  Channel 0 To Rainbow 0
  59.  Amal 0,"Loop: For R0=1 To 230; Let X=R0; Pause; Next R0; Jump Loop;" : Amal On 
  60.  Pen 3 : Locate 1,0 : Centre "INFORMATIE OVER DEZE DISKETTE"
  61.  Locate 1,3 : Print "Alle programma's die op deze diskette staan, zijn gemaakt door een persoon,"
  62.  Locate 1,5 : Print "namelijk door mij zelf (Jurgen Valks). "
  63.  Locate 1,7 : Print "Ik heb deze diskette speciaal gemaakt voor alle leden van de Amos Club in"
  64.  Locate 1,9 : Print "Nederland & Belgie."
  65.  Locate 1,11 : Print "De bedoeling ervan is om deze programma's te bekijken en er van te leren."
  66.  Locate 1,13 : Print "Je kunt de programma's zo van de diskette halen met Amos, en ze zo runnen."
  67.  Pen 4 : Locate 1,15 : Print "LET OP:"
  68.  Pen 3 : Locate 1,17 : Print "Het programma SENSOR INTRO gebruikt een font dat alleen op de diskette"
  69.  Locate 1,19 : Print "staat met de programma's. Als je dit programma in Amos inlaad en probeert te"
  70.  Locate 1,21 : Print "starten, dan vraagt hij naar de diskette waarmee je alles hebt opgestart, de "
  71.  Locate 1,23 : Print "Amos schijf dus, maar hier staat het font niet op !."
  72.  Locate 1,26 : Centre "Druk op de linker muis toets"
  73. End Proc
  74. '
  75. Procedure WACHT
  76.  Repeat 
  77.  Until Mouse Click=1
  78.  Proc BEWEEG_OMLAAG
  79. End Proc
  80. Procedure EINDE
  81.  Amal Off 
  82.  Set Rainbow 0,0,16,"","",""
  83.  Rainbow 0,0,0,0
  84.  Wait 10
  85.  Screen Close 1
  86.  Run "df0:menu.AMOS"
  87. End Proc