home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / demos / misc / tmdmain.dms / tmdmain.adf / Alte.Bak / Alte.amosSourceCode
Encoding:
AMOS Source Code  |  1994-12-30  |  19.6 KB  |  563 lines

  1. Global TXT$,TXT2$,SCELTA$,FLAG,FLAG$
  2. Default 
  3. Screen Hide 0
  4. Procedure SFUMA1[PAL,BA]
  5.    Fade 2,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  6.    Wait 50
  7.    'Fade 2,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  8.    'Wait 50 
  9.    Unpack BA To 0
  10.    Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  11.    Fade 1,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  12.    Wait 30
  13.    If PAL=1
  14.       Fade 1,$0,$FFF,$700,$800,$900,$A00,$B00,$600
  15.       Wait 100
  16.    End If 
  17.    If PAL=2
  18.       Fade 1,$FFF,0,$A00,$A10,$B10,$B30,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  19.       Wait 100
  20.    End If 
  21.    If PAL=3
  22.       Fade 1,0,$A00,$A10,$B10,$B30,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  23.       Wait 200
  24.    End If 
  25.    Fade 1,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  26.    Wait 50
  27.    Fade 1,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  28.    Wait 30
  29.    Cls 0
  30. End Proc
  31. Procedure TXT
  32.    Shared TXT$
  33.    Get Sprite Palette 
  34.    POS=0
  35.    M=Len(TXT$)
  36.    Do 
  37.       For Y=120 To 178-10 Step 20
  38.          For X=30 To 640-10 Step 10
  39.            If POS=M
  40.                Goto SALTO2
  41.             End If 
  42.             Inc POS
  43.             A$=Mid$(TXT$,POS,1)
  44.             If A$="@" Then Exit 
  45.             If(A$="a") or(A$="A") Then BE=1
  46.             If(A$="b") or(A$="B") Then BE=2
  47.             If(A$="c") or(A$="C") Then BE=3
  48.             If(A$="d") or(A$="D") Then BE=4
  49.             If(A$="e") or(A$="E") Then BE=5
  50.             If(A$="f") or(A$="F") Then BE=6
  51.             If(A$="g") or(A$="G") Then BE=7
  52.             If(A$="h") or(A$="H") Then BE=8
  53.             If(A$="i") or(A$="I") Then BE=9
  54.             If(A$="j") or(A$="J") Then BE=10
  55.             If(A$="k") or(A$="K") Then BE=11
  56.             If(A$="l") or(A$="L") Then BE=12
  57.             If(A$="m") or(A$="M") Then BE=13
  58.             If(A$="n") or(A$="N") Then BE=14
  59.             If(A$="o") or(A$="O") Then BE=15
  60.             If(A$="p") or(A$="P") Then BE=16
  61.             If(A$="q") or(A$="Q") Then BE=17
  62.             If(A$="r") or(A$="R") Then BE=18
  63.             If(A$="s") or(A$="S") Then BE=19
  64.             If(A$="t") or(A$="T") Then BE=20
  65.             If(A$="u") or(A$="U") Then BE=21
  66.             If(A$="v") or(A$="V") Then BE=22
  67.             If(A$="w") or(A$="W") Then BE=23
  68.             If(A$="x") or(A$="X") Then BE=24
  69.             If(A$="y") or(A$="Y") Then BE=25
  70.             If(A$="z") or(A$="Z") Then BE=26
  71.             If A$="." Then BE=27
  72.             If A$=":" Then BE=28
  73.             If A$=";" Then BE=29
  74.             If A$="," Then BE=30
  75.             If A$="!" Then BE=31
  76.             If A$="?" Then BE=32
  77.             If A$="(" Then BE=33
  78.             If A$=")" Then BE=34
  79.             If A$="-" Then BE=35
  80.             If A$="'" Then BE=36
  81.             If A$="`" Then BE=37
  82.             If A$=">" Then BE=38
  83.             If A$="<" Then BE=39
  84.             If A$="\" Then BE=40
  85.             If A$="/" Then BE=41
  86.             If A$="*" Then BE=42
  87.             If A$="%" Then BE=43
  88.             If A$="0" Then BE=44
  89.             If A$="1" Then BE=45
  90.             If A$="2" Then BE=46
  91.             If A$="3" Then BE=47
  92.             If A$="4" Then BE=48
  93.             If A$="5" Then BE=49
  94.             If A$="6" Then BE=50
  95.             If A$="7" Then BE=51
  96.             If A$="8" Then BE=52
  97.             If A$="9" Then BE=53
  98.             If A$="~" Then BE=54
  99.             If A$=" " Then BE=55
  100.             Paste Bob X,Y,BE
  101.             Wait 5
  102.          Next X
  103.       Next Y
  104.       Cls 0
  105.    Loop 
  106.    SALTO2:
  107. End Proc
  108. Procedure PRESENTA
  109.    CONTROL["TMD_Main:"]
  110.    Load "new-font2.abk",1
  111.    Screen Open 0,640,256,16,Hires
  112.    Flash Off : Curs Off : Cls 0 : Hide On : Led Off 
  113.    Get Sprite Palette 
  114.    Screen Show 0
  115.    TXT$=""
  116.    TXT$="                         Loading...                      "
  117.    TXT
  118.    Load "data/new-presentation.abk"
  119.    Track Load "tmd_main:mod.simphonyofcorrosion",3
  120.    Wait 25
  121.    FLAG$="mod.simphonyofcorrosion"
  122.    Load "ds.abk",12
  123.    Load "pacp.abk",13
  124.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  125.    SFUMA1[3,12]
  126.    SFUMA1[3,13]
  127.    Screen Open 0,640,256,8,Hires
  128.    Flash Off : Curs Off : Cls 0 : Hide On : 
  129.    Track Play 3
  130.    Wait 100
  131.    TXT$="In a pacefull town in the province of Torino in Italy... "
  132.    TXT
  133.    Wait 50
  134.    SFUMA1[2,5]
  135.    Wait 50
  136.    Screen Open 0,640,256,8,Hires
  137.    Flash Off : Curs Off : Cls 0 : Hide On 
  138.    TXT$=""
  139.    TXT$="             ...In the Degeneration's year...              "
  140.    TXT
  141.    Wait 50
  142.    SFUMA1[2,6]
  143.    Wait 50
  144.    Screen Open 0,640,256,8,Hires
  145.    Flash Off : Curs Off : Cls 0 : Hide On 
  146.    TXT$=""
  147.    TXT$="            ...A terrible duel is becoming...              "
  148.    TXT
  149.    Wait 50
  150.    SFUMA1[2,7]
  151.    Wait 50
  152.    Screen Open 0,640,256,8,Hires
  153.    Flash Off : Curs Off : Cls 0 : Hide On 
  154.    TXT$=""
  155.    TXT$="          ...The two heroes of this duel are...            "
  156.    TXT
  157.    Wait 50
  158.    SFUMA1[2,8]
  159.    Wait 50
  160.    Screen Open 0,640,256,8,Hires
  161.    Flash Off : Curs Off : Cls 0 : Hide On : Led Off 
  162.    TXT$=""
  163.    TXT$="      ...A founder of degeneration's team , and...          "
  164.    TXT
  165.    Wait 50
  166.    SFUMA1[2,9]
  167.    Wait 50
  168.    Screen Open 0,640,256,8,Hires
  169.    Flash Off : Curs Off : Cls 0 : Hide On 
  170.    TXT$=""
  171.    TXT$="           ...the new musician of the team...               "
  172.    TXT
  173.    Wait 50
  174.    SFUMA1[2,10]
  175.    SFUMA1[2,11]
  176.    Wait 50
  177.    For I=4 To 13
  178.       Erase I
  179.    Next I
  180. End Proc
  181. Procedure SCROL[SCRN,S,E,STP,H]
  182.    For I=S To E Step STP
  183.       Screen Display SCRN,128,I,320,H
  184.       Wait Vbl 
  185.    Next I
  186. End Proc
  187. Procedure SETTXT[TX$]
  188.    If TX$="Corro"
  189.       TXT2$="Eccoci qua! Finalmente sono riuscito a finire@questo demo! Ci sono voluti 4 mesi ma alla   @fine c'e` lo fatta. Voi vi starete chiedendo @"
  190.       TXT2$=TXT2$+"perche' tutto questo tempo e io vi rispondo  @che ci sono stati innumerovoli incovenienti  @a partire dagli impegni scolastici, ai      @"
  191.       TXT2$=TXT2$+"piccoli litigi all'interno del gurppo con    @detio poi risolti. Ma adesso illustriamo     @brevemente questo demo.                      @"
  192.       TXT2$=TXT2$+"Prima di tutto il codice e' stato scritto con@l'amos 1.36 interamente dal sottoscritto     @perche' il coder ufficiale e' alle prese con @"
  193.       TXT2$=TXT2$+"l' universita' e non ha avuto tempo. La      @grafica e` stata disegnata, sempre da me, con@il deluxe paint iv. Abbiamo un grafico da poco,@"
  194.       TXT2$=TXT2$+"tempo e questo demo era gia' stato sviluppato@cosi` non ho voluto  rimandare oltre l' uscita   @ Per quanto riguarda le musiche io e detio@"
  195.       TXT2$=TXT2$+" abbiamo utilizzato il protracker 2.3a. @Detto questo voglio sottolineare come questo @sia un duello vero, percio' noi aspettiamo le@"
  196.       TXT2$=TXT2$+"vostre risposte che decreteranno il vincitore@(Vi prego,scrivete! cosi detio la smettera` di @rompere le palle). Comunque trattandosi di un@"
  197.       TXT2$=TXT2$+"duello ci siamo cimentati in diversi stili di@musica, purtroppo per me, anche quella techno.@Questo corto testo sta per finire percio'   @"
  198.       TXT2$=TXT2$+"passo subito ai saluti.            @@My Greetings to:            @Voodoo Chile Of Degeneration                @@"
  199.       TXT2$=TXT2$+"Gas (the new member of team)                @@Brian Jones and Jens Puchert                @@Sidewinder Of Megawatts                     @@"
  200.       TXT2$=TXT2$+"Moby Of Sanity                              @@and all the people I have forgotten        @@"
  201.    Else 
  202.       If TX$="Detio"
  203.          TXT2$="Salve gente!sono Max soprannominato Detio ! @Sicuramente non ve ne freghera' un cazzo ma @"
  204.          TXT2$=TXT2$+"vorrei fare delle considerazioni su tale    @soprannome. Detio significa, meglio dire,   @"
  205.          TXT2$=TXT2$+"Detio rappresenta un qualcosa di gassoso che@fluttua, che gallegia a mezz'aria. tale     @"
  206.          TXT2$=TXT2$+"assembramento di suoni non significa essere @vivente ne'tanto meno essere morente, solo  @"
  207.          TXT2$=TXT2$+"essere perdente davanti a tutto e tutti, il @fantozzi dell'era multimediale!             @"
  208.          TXT2$=TXT2$+"E tu che stai leggendo, chi sei?            @Tu sei un marziano sceso sulla terra perche'@"
  209.          TXT2$=TXT2$+"hai finito le puntine da disegno e lo scotch@dalle tue parti costa 2 pinco ( sono tanti  @"
  210.          TXT2$=TXT2$+"soldi)...                                   @Aspetta , tu sei una forma rara di essere   @"
  211.          TXT2$=TXT2$+"che vive sul Vesuvio,  ti chiami VESUVIANO! @Hai un occhio solo e ti chiamano polifemo,  @"
  212.          TXT2$=TXT2$+"ma tu non li ascolti e te ne vai in giro    @come il passero solitario!                  @"
  213.          TXT2$=TXT2$+"Cio' che scrivero' e'il testo di una canzone@vecchissima e fa'...                        @"
  214.          TXT2$=TXT2$+"Non conosco le parole di quella cosa        @chiamata canzone e che fa'...               @"
  215.          TXT2$=TXT2$+"BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @non ci sto'con la testa devo andare nella   @"
  216.          TXT2$=TXT2$+"foresta ... Ha Ha ...                       @BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @"
  217.          TXT2$=TXT2$+"BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @Continuiamo a cantare finche'la testa non   @"
  218.          TXT2$=TXT2$+"fara'male...                                @BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @"
  219.          TXT2$=TXT2$+"                                            @Questo testo sta per finire mi raccomando   @"
  220.          TXT2$=TXT2$+"(sono diventato una lettera) non vi         @affrancate (minchia che battuta) e chiudete @"
  221.          TXT2$=TXT2$+"la busta!                                   @CHI HA DETTO  ~E QUELLI DI BUSTARSIZIO?`    @            @@@@"
  222.       Else 
  223.          If TX$="Dege"
  224.             TXT2$="Welcome to the music duel of the century!@This duel, between Corrosion and Detio is@necessary to establish who is the best   @"
  225.             TXT2$=TXT2$+"musician Of the our team.But how makes@it possible? Simple, you must write to us  @your preference and the reason for this vote.@"
  226.             TXT2$=TXT2$+"Then we write another demo with the response.@But now talk about this demo written by @Corrosion that has drawn all the screen @"
  227.             TXT2$=TXT2$+"(except the fonts of this text drawn by Detio)@In this collection there are different styles @of music such as Metal, techno, ballad, rap   @"
  228.             TXT2$=TXT2$+"piano and blues. So we believe to satisfy all @the people.@Moreover we have decided to write our personal@"
  229.             TXT2$=TXT2$+"text on our mother language (Italian) because@the our english is rather poor.@I want underline the fact that the sample that@"
  230.             TXT2$=TXT2$+"we used are all ripped from the songs that go @around the world.In fact we don't have the @hardware to sample the instrument.@"
  231.             TXT2$=TXT2$+"Now go to the list of greetings:@@Voodoo Chile Of Degeneration@@Gas@@"
  232.             TXT2$=TXT2$+"Brian Jones and Jens Puchert@@Sidewinder Of Megawatts@@Moby Of Sanity@@"
  233.             TXT2$=TXT2$+"Nuke of Lemon @@and all the people we have forgotten!@@Now the Corrosion's address              @"
  234.             TXT2$=TXT2$+"(Contact me to vote or for any other reason):@@Patrizio Casalengo  (alias Corrosion)        @Via Volpiano 60                         @"
  235.             TXT2$=TXT2$+"10032 Brandizzo (to)@Italy@                                    @If you want contact Detio write to:@@Massimiliano Lavarone (alias Detio)    @Via vittime di bologna 6             @"
  236.             TXT2$=TXT2$+"10032 brandizzo (to)@Italy@                                    @In the end the address of the official@coder of the Degeneration software:@@Fabrizio Nunnari (alias Voodoo Chile)      @"
  237.             TXT2$=TXT2$+"Via vittime di bologna 4           @10032 brandizzo (to)@Italy                                 @@P.S>: the detio's song is entirely remixed by@Corrosion that have re-written the riff of drums@@"
  238.          End If 
  239.       End If 
  240.    End If 
  241. End Proc
  242. Procedure CONTROL[D$]
  243.    RESTART:
  244.    FLAG=Exist(D$)
  245.    If FLAG=True
  246.       Dir$=D$
  247.    End If 
  248.    If FLAG=False
  249.       Hide On 
  250.       Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  251.       Wait 25
  252.       Screen Open 1,640,24,2,Hires
  253.       Curs Off : Flash Off : Screen 1
  254.       Locate 3,0
  255.       Centre "Insert "+D$+" in any drive and press LMB"
  256.       Repeat : Until Mouse Click=1
  257.       Screen Close 1
  258.       Screen 0
  259.       Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  260.       Wait 25
  261.       Goto RESTART
  262.    End If 
  263. End Proc
  264. Procedure LMUS[MUS$]
  265.    If MUS$=FLAG$ Then Goto JUMP
  266.    CONTROL["TMD_data1:"]
  267.    F$=Dir$+MUS$
  268.    Erase 3
  269.    Track Load F$,3
  270.    Track Play 3
  271.    Track Loop On 
  272.    JUMP:
  273. End Proc
  274. Procedure LMUS2[MUS$]
  275.    If MUS$=FLAG$ Then Goto JUMP
  276.    CONTROL["TMD_Data2:"]
  277.    F$=Dir$+MUS$
  278.    Erase 3
  279.    Track Load F$,3
  280.    Track Play 3
  281.    Track Loop On 
  282.    JUMP:
  283. End Proc
  284. Procedure LMUS3[MUS$]
  285.    If MUS$=FLAG$ Then Goto JUMP
  286.    CONTROL["TMD_main:"]
  287.    F$=Dir$+MUS$
  288.    Erase 3
  289.    Track Load F$,3
  290.    Track Play 3
  291.    Track Loop On 
  292.    JUMP:
  293. End Proc
  294. Procedure MAINMENU
  295.    CONTROL["tmd_main:"]
  296.    Load "new-font.abk"
  297.    Load "data/degexyz.abk",5
  298.    Load "data/corroxyz.abk",6
  299.    Load "data/detixyz.abk",7
  300.    Load "data/anaxyz.abk",8
  301.    Hide On 
  302.    Screen Open 0,640,256,16,Hires
  303.    Screen Hide 0
  304.    Unpack 5 To 0
  305.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  306.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  307.    Wait 25
  308.    Do 
  309.       Repeat 
  310.          K$=Inkey$
  311.       Until K$<>""
  312.       K=Asc(K$)
  313.       If K=49
  314.          MENUCORRO
  315.       End If 
  316.       If K=50
  317.          MENUDETIO
  318.       End If 
  319.    Loop 
  320. End Proc
  321. Procedure MENUCORRO
  322.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  323.    Wait 25
  324.    Screen Hide 0
  325.    Unpack 6 To 0
  326.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  327.    Screen Show 0
  328.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  329.    Wait 25
  330.    Do 
  331.       Repeat 
  332.          K$=Inkey$
  333.       Until K$<>""
  334.       K=Asc(K$)
  335.       If K=49
  336.          LMUS["mod.good_nightmare!"]
  337.          FLAG$="mod.good_nightmare!"
  338.       End If 
  339.       If K=50
  340.          LMUS["mod.Bad_words"]
  341.          FLAG$="mod.Bad_words"
  342.       End If 
  343.       If K=51
  344.          LMUS["mod.Tribal devil"]
  345.          FLAG$="mod.Tribal devil"
  346.       End If 
  347.       If K=52
  348.          LMUS["mod.sound of revolution"]
  349.          FLAG$="mod.sound of revolution"
  350.       End If 
  351.       If K=53
  352.          LMUS["mod.ripper"]
  353.          FLAG$="mod.ripper"
  354.       End If 
  355.       If K=54
  356.          LMUS3["mod.simphonyofcorrosion"]
  357.          FLAG$="mod.simphonyofcorrosion"
  358.       End If 
  359.       If K=55
  360.          LMUS["mod.fuckme"]
  361.          FLAG$="mod.fuckme"
  362.       End If 
  363.       If K=56
  364.          LMUS3["mod.welcome"]
  365.          FLAG$="mod.welcome"
  366.       End If 
  367.       If K=99
  368.          TXT2["Corro",1]
  369.       End If 
  370.       If K=100
  371.          TXT2["Dege",1]
  372.       End If 
  373.       If K=101
  374.          Goto EX
  375.       End If 
  376.    Loop 
  377.    EX:
  378.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  379.    Wait 25
  380.    Screen Hide 0
  381.    Unpack 5 To 0
  382.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  383.    Screen Show 0
  384.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  385.    Wait 25
  386. End Proc
  387. Procedure MENUDETIO
  388.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  389.    Wait 25
  390.    Screen Hide 0
  391.    Unpack 7 To 0
  392.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  393.    Screen Show 0
  394.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  395.    Wait 25
  396.    Do 
  397.       Repeat 
  398.          K$=Inkey$
  399.       Until K$<>""
  400.       K=Asc(K$)
  401.       If K=49
  402.          LMUS2["mod.acoustic dream"]
  403.          FLAG$="mod.acoustic dream"
  404.       End If 
  405.       If K=50
  406.          LMUS2["mod.famished wolf"]
  407.          FLAG$="mod.famished wolf"
  408.       End If 
  409.       If K=51
  410.          LMUS2["mod.great"]
  411.          FLAG$="mod.great"
  412.       End If 
  413.       If K=52
  414.          LMUS2["mod.max super space"]
  415.          FLAG$="mod.max super space"
  416.       End If 
  417.       If K=53
  418.          LMUS2["mod.metalmix"]
  419.          FLAG$="mod.metalmix"
  420.       End If 
  421.       If K=54
  422.          LMUS2["mod.three bis"]
  423.          FLAG$="mod.three bis"
  424.       End If 
  425.       If K=55
  426.          LMUS2["mod.cypress pool"]
  427.          FLAG$="mod.cypress pool"
  428.       End If 
  429.       If K=56
  430.          LMUS3["mod.i know this"]
  431.          FLAG$="mod.i know this"
  432.       End If 
  433.       If K=97
  434.          TXT2["Detio",2]
  435.       End If 
  436.       If K=100
  437.          TXT2["Dege",2]
  438.       End If 
  439.       If K=101
  440.          Goto EX
  441.       End If 
  442.    Loop 
  443.    EX:
  444.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  445.    Wait 25
  446.    Screen Hide 0
  447.    Unpack 5 To 0
  448.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  449.    Screen Show 0
  450.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  451.    Wait 25
  452. End Proc
  453. Procedure TXT2[ABC$,G]
  454.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  455.    Wait 25
  456.    SETTXT[ABC$]
  457.    Screen Hide 0
  458.    Unpack 8 To 0
  459.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  460.    Screen Show 0
  461.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  462.    Wait 25
  463.    POS=0
  464.    M=Len(TXT2$)
  465.    Do 
  466.       For Y=20 To 250-30 Step 10
  467.          For X=80 To 640-80 Step 10
  468.             K$=Inkey$
  469.             If K$<>""
  470.                Goto SALTO2
  471.             End If 
  472.             Inc POS
  473.             A$=Mid$(TXT2$,POS,1)
  474.             If A$="@"
  475.                If POS=M
  476.                   POS=0
  477.                End If 
  478.                Exit 
  479.             End If 
  480.             If(A$="a") or(A$="A") Then BE=1
  481.             If(A$="b") or(A$="B") Then BE=2
  482.             If(A$="c") or(A$="C") Then BE=3
  483.             If(A$="d") or(A$="D") Then BE=4
  484.             If(A$="e") or(A$="E") Then BE=5
  485.             If(A$="f") or(A$="F") Then BE=6
  486.             If(A$="g") or(A$="G") Then BE=7
  487.             If(A$="h") or(A$="H") Then BE=8
  488.             If(A$="i") or(A$="I") Then BE=9
  489.             If(A$="j") or(A$="J") Then BE=10
  490.             If(A$="k") or(A$="K") Then BE=11
  491.             If(A$="l") or(A$="L") Then BE=12
  492.             If(A$="m") or(A$="M") Then BE=13
  493.             If(A$="n") or(A$="N") Then BE=14
  494.             If(A$="o") or(A$="O") Then BE=15
  495.             If(A$="p") or(A$="P") Then BE=16
  496.             If(A$="q") or(A$="Q") Then BE=17
  497.             If(A$="r") or(A$="R") Then BE=18
  498.             If(A$="s") or(A$="S") Then BE=19
  499.             If(A$="t") or(A$="T") Then BE=20
  500.             If(A$="u") or(A$="U") Then BE=21
  501.             If(A$="v") or(A$="V") Then BE=22
  502.             If(A$="w") or(A$="W") Then BE=23
  503.             If(A$="x") or(A$="X") Then BE=24
  504.             If(A$="y") or(A$="Y") Then BE=25
  505.             If(A$="z") or(A$="Z") Then BE=26
  506.             If A$="." Then BE=27
  507.             If A$=":" Then BE=28
  508.             If A$=";" Then BE=29
  509.             If A$="," Then BE=30
  510.             If A$="!" Then BE=31
  511.             If A$="?" Then BE=32
  512.             If A$="(" Then BE=33
  513.             If A$=")" Then BE=34
  514.             If A$="-" Then BE=35
  515.             If A$="'" Then BE=36
  516.             If A$="`" Then BE=37
  517.             If A$=">" Then BE=38
  518.             If A$="<" Then BE=39
  519.             If A$="\" Then BE=40
  520.             If A$="/" Then BE=41
  521.             If A$="*" Then BE=42
  522.             If A$="%" Then BE=43
  523.             If A$="0" Then BE=44
  524.             If A$="1" Then BE=45
  525.             If A$="2" Then BE=46
  526.             If A$="3" Then BE=47
  527.             If A$="4" Then BE=48
  528.             If A$="5" Then BE=49
  529.             If A$="6" Then BE=50
  530.             If A$="7" Then BE=51
  531.             If A$="8" Then BE=52
  532.             If A$="9" Then BE=53
  533.             If A$="~" Then BE=54
  534.             If A$=" " Then BE=55
  535.             Paste Bob X,Y,BE
  536.             Wait 6
  537.             K$=""
  538.          Next X
  539.       Next Y
  540.       Wait 75
  541.       Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  542.       Wait 25
  543.       Screen Hide 0
  544.       Unpack 8 To 0
  545.       Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  546.       Screen Show 0
  547.       Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  548.       Wait 25
  549.    Loop 
  550.    SALTO2:
  551.    If G=1 Then BA=6 Else BA=7
  552.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  553.    Wait 25
  554.    Screen Hide 0
  555.    Unpack BA To 0
  556.    Hide On 
  557.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  558.    Screen Show 0
  559.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  560.    Wait 25
  561. End Proc
  562. PRESENTA
  563. MAINMENU