home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / disk_change_rtn.amos / disk_change_rtn.amosSourceCode
AMOS Source Code  |  1992-03-20  |  1KB  |  30 lines
  1. '
  2. ' -------------------------------------------------------- 
  3. '             DISK CHANGE ROUNTINE BY JASON CHAN 
  4. ' -------------------------------------------------------- 
  5. ' ************************************************ 
  6. ' TAKE OUT DISK IN DF0: BEFORE RUNNING TO SEE HOW IT WORKS  <------------ READ FIRST 
  7. ' ************************************************ 
  8. '
  9. Get Rom Fonts 
  10. CD
  11. Procedure CD
  12.    If Exist("DF0:")=-1 Then Pop Proc : Rem  ** CHANGE "DF0:" TO YOUR DISK NAME
  13.    Screen Open 1,320,256,8,Lowres : Cls 0
  14.    '
  15.    Rem  ** DRAWING OF DISK  **
  16.    '
  17.    Ink 6 : Bar 110,50 To 220,150
  18.    Ink 0 : Polygon 121,150 To 110,150 To 110,142
  19.    Ink 6 : Draw 121,150 To 110,142
  20.    Ink 2 : Bar 117,50 To 213,105
  21.    Ink 7 : Bar 126,116 To 197,149
  22.    Ink 6 : Bar 134,120 To 147,144
  23.    Set Font 1 : Ink 3,2 : Text 135,70,"INSERT"
  24.    Text 146,86,"DISK" : Ink 4,8 : Set Pattern 9 : Paint 10,10 : Bell 80
  25.    '
  26.    Rem ** CHECKING OF DISK ** 
  27.    '
  28.    Repeat : Until Exist("DF0:") : Rem  ** CHANGE "DF0:" TO YOUR DISK NAME
  29.    Bell 80 : Screen Close 1
  30. End Proc