home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / vÄliaikainen.amos / vÄliaikainen.amosSourceCode < prev   
AMOS Source Code  |  1995-03-16  |  15KB  |  628 lines
  1. Degree 
  2. VER$="0.72"
  3. '*** Gamen muuttujat ********************************
  4. Global X1#,Y1#,X2#,Y2#,S1,S2
  5. Global MX1,MY1,MX2,MY2,MSX1,MSY1,MSX2,MSY2
  6. Global T1,T2,KRAD,LOPPUTULI,MMAXS
  7. Global LTIME1,LTIME2,EFFRANGE,LSPEED,LSPEEDV,LOPPUKOMMENTTI$
  8. '*** Alkudemojen ja pilottien muuttujat *************
  9. Dim PILOT$(20),WINS(20),LOSSES(20)
  10. Global PILOT$(),WINS(),LOSSES(),N,NN,N1,N2,ST,UUSIKS
  11. '****************************************************
  12. '
  13. Screen Open 0,320,256,16,Lowres
  14. Flash Off : Get Sprite Palette : Curs Off : Cls 0 : Hide 
  15. Screen Display 0,,40,,
  16. Double Buffer 
  17. '
  18. KRAD=10
  19. EFFRANGE=60
  20. LVIIVE=50
  21. LSPEED=10
  22. LSPEEDV=Sin(45)*LSPEED
  23. N1=1 : N2=1
  24. '
  25. LATAATAULUKOT
  26. '*****P��OHJELMA*******************************************
  27. 'DEMO
  28. Do 
  29.    Repeat 
  30.       UKKELINVALINTA
  31.       Boom 
  32.       Screen Close 1
  33.    Until Not UUSIKS
  34.    ALOITUSJUTUT
  35.    '
  36.    Repeat 
  37.       PIKKUJUTUT
  38.       STIKIT_SIVUILLE
  39.       KAASUTUS
  40.       MISSILELAUKAISUT
  41.       MISSILET
  42.       LASKEPAIKAT
  43.       PIIRR�HEMMOT
  44.       T�RM�YKSET
  45.       KR�SH�YS
  46.    Until LOPPUTULI
  47.    LOPPUJUTUT
  48. Loop 
  49. '
  50. '*****PROCEDURET*******************************************
  51. Procedure DEMO
  52.    Paper 0 : Centre At(,14)+"Prepare."
  53.    Wait 50 : Fade 2 : Wait 40 : Cls 0
  54.    '
  55.    Auto View Off 
  56.    Unpack 7 To 4
  57.    Unpack 6 To 2
  58.    Screen Open 1,320,256,32,Lowres
  59.    Curs Off : Flash Off : Cls 5 : Fade 1 : Wait 20
  60.    Screen Open 3,640,10,2,Hires : Curs Off : Cls : Print : Cls 
  61.    Centre "Press fire to exit."
  62.    Screen Display 3,,340,,
  63.    Auto View On 
  64.    '
  65.    Screen 1 : Fade 4 To 2 : Wait 80
  66.    For V=1 To 5
  67.       Ink Rnd(30)+1
  68.       For X=0 To 319 Step 2
  69.          Y=198-Rnd(140)
  70.          Draw X-1,OY To X,Y
  71.          OY=Y
  72.       Next 
  73.    Next 
  74.    Wait 50
  75.    '
  76.    Appear 2 To 1,67
  77.    Screen Close 2
  78.    '
  79.    For Y=340 To 290 Step -1
  80.       Screen Display 3,,Y,,
  81.       Wait Vbl 
  82.    Next 
  83.    '
  84.    Screen 1 : Double Buffer : Colour 5,$666 : Colour 6,$888 : Colour 7,$AAA
  85.    '
  86.    X1=-5 : Y1=Rnd(246) : SPD1=Rnd(3)+4
  87.    X2=-5 : Y2=Rnd(246) : SPD2=Rnd(3)+4
  88.    X3=-5 : Y3=Rnd(246) : SPD3=Rnd(3)+4
  89.    '
  90.    Repeat 
  91.       Add X1,SPD1
  92.       Add X2,SPD2
  93.       Add X3,SPD3
  94.       If X1>325 Then X1=-5 : Y1=Rnd(246) : SPD1=Rnd(3)+4
  95.       If X2>325 Then X2=-5 : Y2=Rnd(246) : SPD2=Rnd(3)+4
  96.       If X3>325 Then X3=-5 : Y3=Rnd(246) : SPD3=Rnd(3)+4
  97.       Bob 0,X1,Y1,23
  98.       Bob 1,X2,Y2,24
  99.       Bob 2,X3,Y3,25
  100.       Wait Vbl 
  101.    Until Fire(0) or Fire(1)
  102.    '
  103.    For Y=290 To 340
  104.       Screen Display 3,,Y,,
  105.       Wait Vbl 
  106.    Next 
  107.    Screen Close 3
  108.    '
  109.    For X=0 To 64
  110.       Add Y1,4 : Add Y2,-4 : Add X3,-6
  111.       Bob 0,X1,Y1,23
  112.       Bob 1,X2,Y2,24
  113.       Bob 2,X3,Y3,25
  114.       Wait Vbl 
  115.    Next : Bob Off 
  116.    '
  117.    Unpack 6 To 2
  118.    Screen Close 1
  119.    '
  120.    For X=0 To 319 Step 2
  121.       Screen Copy 4,X,0,X+1,256 To 2,X,0
  122.       Wait Vbl 
  123.    Next 
  124.    Wait 50
  125.    For X=318 To 1 Step -1
  126.       Screen Copy 4,X,0,X+1,256 To 2,X,0
  127.       Wait Vbl 
  128.    Next 
  129.    Screen Close 4
  130.    Wait 250
  131.    '
  132.    Fade 3 : Wait 50
  133.    Screen Close 2
  134.    CREDITS
  135.    '
  136. End Proc
  137. Procedure CREDITS
  138.    Screen Open 1,640,266,2,Hires
  139.    Palette 0,$A5
  140.    Curs Off : Cls : Print : Cls 
  141.    Centre At(,3)+"---- Pikkualusten Paluu ----"
  142.    Centre At(,6)+"Credits:"
  143.    Centre At(,10)+"Graphics,"
  144.    Centre At(,11)+"Sound,"
  145.    Centre At(,12)+"Design,"
  146.    Centre At(,13)+"Logo,"
  147.    Centre At(,14)+"Stylishing,"
  148.    Centre At(,15)+"Idea and"
  149.    Centre At(,16)+"Programming"
  150.    Centre At(,17)+"by The Famous Lord KV"
  151.    Centre At(,19)+"Special Thanks to The FartMaster for Testing."
  152.    Centre At(,21)+"Copyright Notice:"
  153.    Centre At(,23)+"Don't copy this game."
  154.    Centre At(,27)+"1990 ï¿½ Pl�r� Productions"
  155.    Centre At(,31)+"Hail the Great KV and press fire then."
  156.    '
  157.    Wait 150
  158.    Def Scroll 1,0,Y Graphic(31) To 640,256,-2,0
  159.    T$=T$+"'Pikkualusten Paluu' was brought to you by Pl�r� Productions. "
  160.    T$=T$+"It was programmed using AMOS Basic (� Mandarin Software / Jawx) "
  161.    T$=T$+"and DeluxePaint III (� Electronic Arts / Dan Silva). "
  162.    T$=T$+"Try also other official Pl�r� Products, like: Tykkipeli (Amiga) "
  163.    T$=T$+"- MVDesignDemo (or '�rkkirunkku'... Demo for Amiga) - "
  164.    T$=T$+"P&GB 2nd Edition (Role-Playing Game).....  May the Pl�r� be with you! "
  165.    T$=T$+"    ï¿½ 1991 Pl�r� Productions  -'We create hi-tech simulations'                     "
  166.    T$=T$+"Vuosi: 4300.  Paikka: UEA (Universal Entertainers Arena) , Ksiloh 4. "
  167.    T$=T$+"Vuoden 3978 sodan j�lkeen ihmiskunta melkein tuhoutui. Biljoonia kuoli "
  168.    T$=T$+"sodissa, jotka k�ytiin puhtaasta vedest�, viimeisist� siirtokuntien "
  169.    T$=T$+"�ljynrippeist�, ja ruoasta. Taistelu olemassaolosta on kovaa. Monien "
  170.    T$=T$+"siirtokuntien ainoa selviytymisen edellytys ovat s��nn�lliset kauppalaivueet, "
  171.    T$=T$+"lastattuina ruoalla, ja - aseilla. Ainoa huvitus ovat "
  172.    T$=T$+"'turnajaiset', joita j�rjestet��n kokeneiden pilottien v�lille. "
  173.    T$=T$+"   Sin� olet yksi n�ist� piloteista.   "
  174.    T$=T$+"Now we'll see how tough you really are..... HAHAHAHAHAHAHAaaaaaaaaaaargh..."
  175.    T$=T$+"      KV signing off..... -CLICK- "
  176.    T$=T$+"                                          "
  177.    X=0 : Y=0
  178.    Repeat 
  179.       If Y=0 Then Inc X : Text X Graphic(78),Y Graphic(31)+6,Mid$(T$,X,1)
  180.       Inc Y : If Y>3 Then Y=0
  181.       If X>Len(T$) Then X=1
  182.       Scroll 1
  183.       Wait Vbl 
  184.    Until Fire(0) or Fire(1)
  185.    T$="" : Fade 3 : Wait 50 : Screen Close 1
  186. End Proc
  187. Procedure ALOITUSJUTUT
  188.    If Rnd(1)=0
  189.       X1#=Rnd(150) : Y1#=Rnd(230)+10
  190.       X2#=Rnd(150)+160 : Y2#=Rnd(230)+10
  191.    Else 
  192.       X2#=Rnd(150) : Y2#=Rnd(230)+10
  193.       X1#=Rnd(150)+160 : Y1#=Rnd(230)+10
  194.    End If 
  195.    S1=Rnd(7)+1 : S2=Rnd(7)+1
  196.    LOPPUTULI=0
  197.    LOPPUKOMMENTTI$=""
  198.    LTIME1=0 : LTIME2=0
  199.    MSX1=0 : MSY1=0 : MSX2=0 : MSY2=0 : ST=0
  200.    Get Sprite Palette 
  201.    Paper 0 : Pen 3
  202.    Cls 0 : Centre At(,12)+"Prepare for Battle!!"
  203.    Wait 50 : Cls 0
  204. End Proc
  205. Procedure PIKKUJUTUT
  206.    If T1>0 Then Dec T1
  207.    If T2>0 Then Dec T2
  208.    If LTIME1>0 Then Dec LTIME1
  209.    If LTIME2>0 Then Dec LTIME2
  210. End Proc
  211. Procedure STIKIT_SIVUILLE
  212.    'Pienet stikkuliinot 
  213.    If T1=0
  214.       If Jright(0)
  215.          Inc S1 : T1=KRAD
  216.       End If 
  217.       If Jleft(0)
  218.          Dec S1 : T1=KRAD
  219.       End If 
  220.    End If 
  221.    '
  222.    If T2=0
  223.       If Jleft(1)
  224.          Dec S2 : T2=KRAD
  225.       End If 
  226.       If Jright(1)
  227.          Inc S2 : T2=KRAD
  228.       End If 
  229.    End If 
  230.    ' Menik� yli 
  231.    If S1<1 Then S1=8
  232.    If S1>8 Then S1=1
  233.    If S2<1 Then S2=8
  234.    If S2>8 Then S2=1
  235. End Proc
  236. Procedure KAASUTUS
  237.    If Jup(0)
  238.       If S1=1
  239.          Y1#=Y1#-2
  240.       End If 
  241.       If S1=2
  242.          X1#=X1#+1.41
  243.          Y1#=Y1#-1.41
  244.       End If 
  245.       If S1=3
  246.          X1#=X1#+2
  247.       End If 
  248.       If S1=4
  249.          X1#=X1#+1.41
  250.          Y1#=Y1#+1.41
  251.       End If 
  252.       If S1=5
  253.          Y1#=Y1#+2
  254.       End If 
  255.       If S1=6
  256.          X1#=X1#-1.41
  257.          Y1#=Y1#+1.41
  258.       End If 
  259.       If S1=7
  260.          X1#=X1#-2
  261.       End If 
  262.       If S1=8
  263.          X1#=X1#-1.41
  264.          Y1#=Y1#-1.41
  265.       End If 
  266.    End If 
  267.    '******
  268.    If Jup(1)
  269.       If S2=1
  270.          Y2#=Y2#-2
  271.       End If 
  272.       If S2=2
  273.          X2#=X2#+1.41
  274.          Y2#=Y2#-1.41
  275.       End If 
  276.       If S2=3
  277.          X2#=X2#+2
  278.       End If 
  279.       If S2=4
  280.          X2#=X2#+1.41
  281.          Y2#=Y2#+1.41
  282.       End If 
  283.       If S2=5
  284.          Y2#=Y2#+2
  285.       End If 
  286.       If S2=6
  287.          X2#=X2#-1.41
  288.          Y2#=Y2#+1.41
  289.       End If 
  290.       If S2=7
  291.          X2#=X2#-2
  292.       End If 
  293.       If S2=8
  294.          X2#=X2#-1.41
  295.          Y2#=Y2#-1.41
  296.       End If 
  297.    End If 
  298. End Proc
  299. Procedure LASKEPAIKAT
  300.    If X1#<0 Then X1#=0
  301.    If X1#>320 Then X1#=320
  302.    If Y1#<0 Then Y1#=0
  303.    If Y1#>255 Then Y1#=255
  304.    '
  305.    If X2#<0 Then X2#=0
  306.    If X2#>320 Then X2#=320
  307.    If Y2#<0 Then Y2#=0
  308.    If Y2#>255 Then Y2#=255
  309. End Proc
  310. Procedure PIIRR�HEMMOT
  311.    Bob 1,X1#,Y1#,S1
  312.    Bob 2,X2#,Y2#,S2+9
  313. End Proc
  314. Procedure MISSILELAUKAISUT
  315.    If Fire(0)
  316.       If LTIME1=0
  317.          LTIME1=EFFRANGE
  318.          MX1=X1# : MY1=Y1#
  319.          Shoot 
  320.          If S1=1
  321.             MSY1=-LSPEED
  322.             MSX1=0
  323.          End If 
  324.          If S1=2
  325.             MSX1=LSPEEDV
  326.             MSY1=-LSPEEDV
  327.          End If 
  328.          If S1=3
  329.             MSX1=LSPEED
  330.             MSY1=0
  331.          End If 
  332.          If S1=4
  333.             MSX1=LSPEEDV
  334.             MSY1=LSPEEDV
  335.          End If 
  336.          If S1=5
  337.             MSY1=LSPEED
  338.             MSX1=0
  339.          End If 
  340.          If S1=6
  341.             MSX1=-LSPEEDV
  342.             MSY1=LSPEEDV
  343.          End If 
  344.          If S1=7
  345.             MSX1=-LSPEED
  346.             MSY1=0
  347.          End If 
  348.          If S1=8
  349.             MSX1=-LSPEEDV
  350.             MSY1=-LSPEEDV
  351.          End If 
  352.       End If 
  353.    End If 
  354.    '*** 
  355.    If Fire(1)
  356.       If LTIME2=0
  357.          LTIME2=EFFRANGE
  358.          MX2=X2# : MY2=Y2#
  359.          Shoot 
  360.          If S2=1
  361.             MSY2=-LSPEED
  362.             MSX2=0
  363.          End If 
  364.          If S2=2
  365.             MSX2=LSPEEDV
  366.             MSY2=-LSPEEDV
  367.          End If 
  368.          If S2=3
  369.             MSX2=LSPEED
  370.             MSY2=0
  371.          End If 
  372.          If S2=4
  373.             MSX2=LSPEEDV
  374.             MSY2=LSPEEDV
  375.          End If 
  376.          If S2=5
  377.             MSY2=LSPEED
  378.             MSX2=0
  379.          End If 
  380.          If S2=6
  381.             MSX2=-LSPEEDV
  382.             MSY2=LSPEEDV
  383.          End If 
  384.          If S2=7
  385.             MSX2=-LSPEED
  386.             MSY2=0
  387.          End If 
  388.          If S2=8
  389.             MSX2=-LSPEEDV
  390.             MSY2=-LSPEEDV
  391.          End If 
  392.       End If 
  393.    End If 
  394. End Proc
  395. Procedure MISSILET
  396.    Add MX1,MSX1
  397.    Add MY1,MSY1
  398.    If LTIME1>LVIIVE
  399.       Bob 3,MX1,MY1,9
  400.    Else 
  401.       MSX1=0 : MSY1=0
  402.       Bob Off 3
  403.    End If 
  404.    '****
  405.    Add MX2,MSX2
  406.    Add MY2,MSY2
  407.    If LTIME2>LVIIVE
  408.       Bob 4,MX2,MY2,18
  409.    Else 
  410.       MSX2=0 : MSY2=0
  411.       Bob Off 4
  412.    End If 
  413. End Proc
  414. Procedure T�RM�YKSET
  415.    If Bob Col(3,2 To 2)
  416.       Bob Off 2
  417.       For X=19 To 22
  418.          Boom 
  419.          Bob 3,X2#,Y2#,X
  420.          Wait 6
  421.       Next 
  422.       Inc WINS(N1)
  423.       Inc LOSSES(N2)
  424.       LOPPUTULI=-1
  425.       LOPPUKOMMENTTI$=PILOT$(N1)+" voitti!"
  426.    End If 
  427.    If Bob Col(4,1 To 1)
  428.       Bob Off 1
  429.       For X=19 To 22
  430.          Boom 
  431.          Bob 4,X1#,Y1#,X
  432.          Wait 6
  433.       Next 
  434.       Inc WINS(N2)
  435.       Inc LOSSES(N1)
  436.       LOPPUTULI=-1
  437.       If LOPPUKOMMENTTI$=""
  438.          LOPPUKOMMENTTI$=PILOT$(N2)+" voitti!"
  439.       Else 
  440.          LOPPUKOMMENTTI$="Tasapeli."
  441.       End If 
  442.    End If 
  443. End Proc
  444. Procedure KR�SH�YS
  445.    If Bob Col(1,2 To 2)
  446.       Bob Off 
  447.       For X=18 To 21
  448.          Bob 15,(X1#+X2#)/2,(Y1#+Y2#)/2,X
  449.          Wait 7 : Wait Vbl 
  450.          Boom 
  451.       Next 
  452.       LOPPUTULI=-1
  453.       LOPPUKOMMENTTI$="Fatal Crash !!"
  454.    End If 
  455. End Proc
  456. Procedure UKKELINVALINTA
  457.    If UUSIKS Then UUSIKS=0
  458.    Screen Open 1,640,256,8,Hires
  459.    Paper 0 : Curs Off : Cls 0 : Print : Cls 0
  460.    '
  461.    Pen 7 : Centre At(,31)+"Press <S> to Save roster"
  462.    Print At(0,7)+"           ******* Pilot ********    **** Battles won   /  lost ****" : Pen 1
  463.    '
  464.    Pen 1
  465.    For X=1 To 20
  466.       Print At(15,X+8)+PILOT$(X)+Space$(30)+At(50,X+8)+Str$(WINS(X))+At(60,X+8)+Str$(LOSSES(X))
  467.    Next 
  468.    Pen 3 : Print At(5,2)+"Player 1" : Pen 7
  469.    Centre At(,2)+": Choose pilot with joystick. Press fire when done"
  470.    Centre At(,3)+"  or <Space> to enter new name.                   "
  471.    N=N1 : NN=N
  472.    Repeat 
  473.       STIKUJUTTU1
  474.       Wait 3 : I$=Inkey$
  475.       If I$=" " Then NIMENVAIHTO
  476.       If I$="s"
  477.          If ST=0
  478.             TALLETATAULUKOT
  479.          Else 
  480.             Pen 7 : Centre At(,31)+"     The Roster is already saved!     "
  481.          End If 
  482.       End If 
  483.       If I$="q" Then NOLLAATAULUKKO
  484.       If I$="l" Then LATAILEPPAS
  485.       If UUSIKS Then Pop Proc
  486.    Until Fire(0)
  487.    '
  488.    N1=N
  489.    N=N2
  490.    '
  491.    Boom 
  492.    '
  493.    Pen 3 : Print At(5,2)+"Player 2" : Pen 1
  494.    Repeat 
  495.       STIKUJUTTU2
  496.       Wait 3 : I$=Inkey$
  497.       If(I$=" ") and(N<>N1)
  498.          NIMENVAIHTO
  499.       End If 
  500.       If I$="s"
  501.          If ST=0
  502.             TALLETATAULUKOT
  503.          Else 
  504.             Pen 7
  505.             Centre At(,31)+"I said the roster was saved! Can't you read or what?"
  506.          End If 
  507.       End If 
  508.       If I$="q" Then NOLLAATAULUKKO
  509.       If I$="l" Then LATAILEPPAS
  510.       If UUSIKS Then Pop Proc
  511.    Until Fire(1) and N<>N1
  512.    '
  513.    N2=N
  514.    '
  515. End Proc
  516. Procedure STIKUJUTTU1
  517.    If Jup(0) Then NN=N : Dec N
  518.    If Jdown(0) Then NN=N : Inc N
  519.    If N<1 Then N=1
  520.    If N>20 Then N=20
  521.    If NN<>N
  522.       Pen 1
  523.       Print At(15,NN+8)+PILOT$(NN)+Space$(30)+At(50,NN+8)+Str$(WINS(NN))+At(60,NN+8)+Str$(LOSSES(NN))
  524.    End If 
  525.    Pen 3
  526.    Print At(15,N+8)+PILOT$(N)+Space$(30)+At(50,N+8)+Str$(WINS(N))+At(60,N+8)+Str$(LOSSES(N))
  527. End Proc
  528. Procedure STIKUJUTTU2
  529.    If Jup(1) Then NN=N : Dec N
  530.    If Jdown(1) Then NN=N : Inc N
  531.    If N<1 Then N=1
  532.    If N>20 Then N=20
  533.    If NN<>N
  534.       Pen 1
  535.       Print At(15,NN+8)+PILOT$(NN)+Space$(30)+At(50,NN+8)+Str$(WINS(NN))+At(60,NN+8)+Str$(LOSSES(NN))
  536.    End If 
  537.    Pen 3
  538.    Print At(15,N+8)+PILOT$(N)+Space$(30)+At(50,N+8)+Str$(WINS(N))+At(60,N+8)+Str$(LOSSES(N))
  539. End Proc
  540. Procedure NIMENVAIHTO
  541.    Screen Open 2,640,56,2,Hires
  542.    Palette $333,SF2
  543.    Screen Display 2,,140,,
  544.    Centre "Old name:"
  545.    Centre At(,1)+PILOT$(N)+" - "+Str$(WINS(N))+" pts."
  546.    Centre At(,3)+"Enter new name:"
  547.    Locate 0,4 : Input PILOT$(N)
  548.    WINS(N)=0 : Screen Close 2
  549. End Proc
  550. Procedure LOPPUJUTUT
  551.    Fade 1 : Wait 20 : Bob Off 
  552.    Cls 0 : Colour 1,$AAA
  553.    Pen 1 : Centre At(,14)+LOPPUKOMMENTTI$
  554.    Wait 40 : Fade 1 : Wait 20 : Cls 0
  555. End Proc
  556. Procedure LATAATAULUKOT
  557.    If Exist("df0:Pikkupilotit")
  558.       Open In 1,"df0:Pikkupilotit"
  559.       For X=1 To 20
  560.          Input #1,PILOT$(X)
  561.          Input #1,WINS(X)
  562.          Input #1,LOSSES(X)
  563.       Next 
  564.       Close 1
  565.    Else 
  566.       Screen Open 1,640,50,2,Hires : Curs Off 
  567.       Screen Display 1,,100,,
  568.       Centre At(,2)+"!!! Can't find file 'DF0:Pikkupilotit' !!!"
  569.       Wait 150
  570.       Screen Close 1
  571.    End If 
  572. End Proc
  573. Procedure TALLETATAULUKOT
  574.    If Exist("df0:")
  575.       Open Out 1,"df0:Pikkupilotit"
  576.       For X=1 To 20
  577.          Print #1,PILOT$(X)
  578.          Print #1,WINS(X)
  579.          Print #1,LOSSES(X)
  580.       Next 
  581.       Close 1
  582.       ST=1
  583.       Pen 1 : Centre At(,31)+"          Roster saved.          "
  584.       Clear Key : Wait 50
  585.    Else 
  586.       Screen Open 1,640,50,2,Hires : Curs Off 
  587.       Screen Display 1,,100,,
  588.       Centre At(,2)+"!!! No disc in drive DF0: !!!"
  589.       Wait 150
  590.       Screen Close 1
  591.    End If 
  592. End Proc
  593. Procedure NOLLAATAULUKKO
  594.    Pen 1 : Centre At(14,31)+"Do you REALLY want to zero the roster ?!? (Y/N) "
  595.    Wait 20 : Clear Key 
  596.    Repeat : K$=Inkey$ : Until K$<>""
  597.    If K$="y"
  598.       For X=1 To 20
  599.          PILOT$(X)="---"
  600.          WINS(X)=0
  601.          LOSSES(X)=0
  602.       Next 
  603.       UUSIKS=-1
  604.       Centre At(,31)+"    !!! The roster is zeroed (but not saved, luckily) !!!    "
  605.       Wait 70
  606.    Else 
  607.       Centre At(,31)+"                    Task canceled.                    "
  608.    End If 
  609.    Wait 50
  610.    If ST<>1 Then Pen 7 : Centre At(,31)+"          Press <S> to Save roster          "
  611.    Clear Key 
  612. End Proc
  613. Procedure LATAILEPPAS
  614.    Clear Key : Pen 1
  615.    Centre At(,31)+"      Do you want to load Roster from the disc? (Y/N)      "
  616.    Clear Key : Repeat : K$=Inkey$ : Until K$<>""
  617.    If K$="y"
  618.       UUSIKS=-1
  619.       LATAATAULUKOT
  620.       Centre At(,31)+"      OK. Roster loaded. Hope you won't regret this.      "
  621.       Wait 70
  622.    Else 
  623.       Centre At(,31)+"                  Loading canceled.                  "
  624.    End If 
  625.    Wait 50
  626.    If ST<>1 Then Pen 7 : Centre At(,31)+"          Press <S> to Save roster          "
  627.    Clear Key 
  628. End Proc