home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 426-450 / apd426 / insert_disk_ii.amos / insert_disk_ii.amosSourceCode < prev    next >
AMOS Source Code  |  1977-12-31  |  3KB  |  161 lines
  1. Fade 3 : Wait 16*3 : Cls 0 : Screen Close 0
  2. Close Editor 
  3. Close Workbench 
  4. Global T$,U$,NOW
  5. INIT
  6. DISK_SPIN
  7. DISK_WAIT
  8. Fade 1 : Wait 16
  9. While Screen<>-1
  10.    Screen Close Screen
  11. Wend 
  12. Screen Open 0,320,34,2,Lowres
  13. Curs Off : Flash Off : Cls 0 : Hide On : Colour 1,0
  14. Screen Display 0,,148,,
  15. Paste Bob 55,0,1
  16. Fade 1,0,$F : Wait 16
  17. Run "rave_part.amos"
  18. '
  19. Procedure EXEC[C$]
  20.    A$="NIL:"+Chr$(0)
  21.    Dreg(1)=Varptr(A$) : Dreg(2)=1004
  22.    HAND=Doscall(-30)
  23.    If HAND
  24.       C$=C$+Chr$(0)
  25.       Dreg(1)=Varptr(C$) : Dreg(2)=HAND : Dreg(3)=HAND
  26.       F=Doscall(-222)
  27.       Dreg(1)=HAND
  28.       A=Doscall(-36)
  29.    End If 
  30. End Proc[F]
  31. Procedure DING
  32.    Screen 1
  33.    Sam Raw 15,Start(12),1100,16124
  34.    Ink 2,0
  35.    U=Val(U$)
  36.    T=Val(T$)
  37.    Dec U
  38.    If U<0
  39.       U=9
  40.       T=Val(T$)
  41.       Dec T
  42.    End If 
  43.    U$=Str$(U)
  44.    T$=Str$(T)
  45.    U$=Right$(U$,1)
  46.    T$=Right$(T$,1)
  47.    Text 223,61,T$
  48.    Text 223,70,U$
  49.    NOW=T*10+U
  50.    Every On 
  51. End Proc
  52. Procedure INIT
  53.    Reserve As Data 15,4912
  54.    Bload "golden-ages#1:c/mem-clear",15
  55.    Bsave "ram:mem-clear",Start(15) To Start(15)+4912
  56.    Erase 15
  57.    Screen Open 0,320,256,16,Lowres
  58.    Curs Off : Flash Off : Cls 0
  59.    Palette 0,,,,,,,,,$FFF,$F,$555
  60.    Hide 
  61.    Unpack 6 To 1
  62.    Screen To Front 0
  63.    Screen 0
  64.    Double Buffer 
  65.    Autoback 0
  66.     Extension_4_0054 250
  67.     Extension_4_0548 
  68.     Extension_4_04D6 "GOLDEN-AGES#1:amos_system"
  69.     Extension_4_0016 "disk"
  70. End Proc
  71. Procedure DISK_SPIN
  72.     Extension_4_0036 1,"disk",0,0,19382,132467,98908,83528
  73.    Sam Raw 15,Start(11)+100,37408,8700
  74.    For N=1 To 100
  75.        Extension_4_018C 1,-1000,-1000,-1000
  76.        Extension_4_0100 0,188
  77.       Wait Vbl 
  78.        Extension_4_053C 
  79.        Extension_4_0318 
  80.       Screen Swap 
  81.    Next N
  82. End Proc
  83. Procedure DISK_WAIT
  84.    Screen To Front 1
  85.    Wait Vbl 
  86.    Wait Vbl 
  87.    Sam Raw 9,Start(13)+150,6814,11000
  88.    Wait 5
  89.    Sam Raw 6,Start(13)+150,6814,11000
  90.    Wait 40
  91.    Sam Raw 9,Start(10)+150,42630,10000
  92.    Wait 5
  93.    Sam Raw 6,Start(10)+150,42630,10000
  94.    Screen 1
  95.    Ink 2,0
  96.    Wait 130
  97.    Text 223,61,"2"
  98.    Text 223,70,"0"
  99.    Wait 70
  100.    Timer=0
  101.    T$="2"
  102.    U$="0"
  103.    NOW=20
  104.    Erase 10
  105.    Erase 11
  106.    Erase 13
  107.    EXEC["RUN >NIL: <NIL: ram:mem-clear"]
  108.    Every 50 Proc DING
  109.    Repeat 
  110.       If Timer=>1050
  111.          Every Off 
  112.          Text 223,61,"0"
  113.          Text 223,70,"0"
  114.          Repeat 
  115.             If NOW=0
  116.                Wait 50
  117.                OK
  118.                SCREECH
  119.                Pop Proc
  120.             End If 
  121.          Until Exist("golden-ages#2:")
  122.       End If 
  123.       If Exist("golden-ages#2:")
  124.          Dir$="golden-ages#2:"
  125.          Every Off 
  126.          OK
  127.          Pop Proc
  128.       End If 
  129.    Until Mouse Click
  130.    Every Off 
  131. End Proc
  132. Procedure OK
  133.    Screen Close 1
  134.    For N=1 To 100
  135.        Extension_4_018C 1,1000,1000,1000
  136.        Extension_4_0100 0,-188
  137.       Wait Vbl 
  138.        Extension_4_053C 
  139.        Extension_4_0318 
  140.       Screen Swap 
  141.    Next N
  142.     Extension_4_057C 
  143. End Proc
  144. Procedure SCREECH
  145.    Screen Open 0,320,256,2,Lowres
  146.    Cls 0
  147.    Text 90,120,"YOU WERE WARNED !!!"
  148.    Flash 1,"(00f,1)(00a,1)(007,1)(004,1)(007,1)(00a,1)"
  149.    Wait 50
  150.    Fade 5,0,0
  151.    Wait 15*5
  152.    Cls 0
  153.    Flash Off 
  154.    Noise To 15
  155.    Flash 0,"(f54,1)(618,1)(739,1)(f86,1)(ff9,1)(fff,1)(ff0,1)(f0f,1)"
  156.    Timer=0
  157.    Do 
  158.       Play 15,Rnd(10)+86,1
  159.       Exit If Timer>10000
  160.    Loop 
  161. End Proc