home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / 64_part.amos / 64_part.amosSourceCode next >
AMOS Source Code  |  1990-02-19  |  16KB  |  595 lines
  1. Set Buffer 55
  2. Sam Swapped
  3. Dim C(16)
  4. Global O,C()
  5. O=1
  6. Close Editor 
  7. Close Workbench 
  8. Global TXT$,OFF,C
  9. Erase 2 : Erase 10
  10. Load "64font.abk"
  11. Bank Swap 2,10
  12. Bload "64font.abk.cfnt", Extension_8_0044 
  13. INIT
  14. _DECRUNCH
  15. FLD
  16. BYE_BYE
  17. Wait 100
  18. Fade 5 : Wait 15*5
  19. While Screen<>-1
  20.    Screen Close Screen
  21. Wend 
  22. Screen Open 0,320,34,2,Lowres
  23. Curs Off : Flash Off : Cls 0 : Hide On : Colour 1,0
  24. Screen Display 0,,148,,
  25. Paste Bob 55,0,60
  26. Fade 1,0,$F : Wait 16
  27. Run "goodbye.amos"
  28. Procedure INIT
  29.    Hide On 
  30.    Colour Back $88F
  31.    Auto View Off 
  32.    View 
  33.    Screen Open 0,320,200,4,Lowres
  34.    Colour 0,$88F
  35.    Curs Off : Flash Off : Cls 0
  36.    Colour 1,$88F
  37.    Colour 2,$44A
  38.    Colour 17,$44A
  39.    Colour 18,$88F
  40.    Ink 2
  41.    Bar 0,0 To 312,200
  42.    Hide 
  43.    Screen Display 0,130,60,,
  44.    TXT$="#    **** COMMODORE 64 BASIC V2 **** ## 64K RAM SYSTEM 38911 BASIC BYTES FREE"
  45.    TXT$=TXT$+"##READY."
  46.    TXT$=TXT$+"LOAD"
  47.    TXT$=TXT$+"##PRESS PLAY ON TAPE"
  48.    TXT$=TXT$+"#OK"
  49.    TXT$=TXT$+"##FOUND THE SPIRIT LEVEL"
  50.    X=2
  51.    Y=1
  52.    For T=1 To 85
  53.       T$=Mid$(TXT$,T,1)
  54.       C=Asc(T$)
  55.       C=C-64
  56.       If C=-32
  57.          C=39
  58.       End If 
  59.       If C=-29
  60.          Add Y,8 : X=2-8
  61.       End If 
  62.       If C=-22
  63.          C=36
  64.       End If 
  65.       If C=<0 and C>-16
  66.          Add C,42
  67.       End If 
  68.       If C=-18
  69.          C=37
  70.       End If 
  71.       If C<>-29
  72.          Paste Bob X,Y,C
  73.       End If 
  74.       Add OF,1
  75.       Add X,8
  76.    Next T
  77.    X=2 : Add Y,8
  78.    Sprite 10,128+X,60+Y,38
  79.    Channel 1 To Sprite 10
  80.    Anim 1,"(38,20)(39,20)L"
  81.    Anim On 
  82.    View 
  83.    Auto View On 
  84.    Wait 200
  85.    For T=86 To 89
  86.       T$=Mid$(TXT$,T,1)
  87.       C=Asc(T$)
  88.       C=C-64
  89.       If C=-32
  90.          C=39
  91.       End If 
  92.       If C=-29
  93.          Add Y,8 : X=2-8
  94.       End If 
  95.       If C=-22
  96.          C=36
  97.       End If 
  98.       If C=<0 and C>-16
  99.          Add C,42
  100.       End If 
  101.       If C=-18
  102.          C=37
  103.       End If 
  104.       If C<>-29
  105.          Paste Bob X,Y,C
  106.       End If 
  107.       Add OF,1
  108.       Add X,8
  109.       Sprite 10,128+X,60+Y,38
  110.       Wait 10
  111.    Next T
  112.    Wait 100
  113.    For T=90 To 109
  114.       T$=Mid$(TXT$,T,1)
  115.       C=Asc(T$)
  116.       C=C-64
  117.       If C=-32
  118.          C=39
  119.       End If 
  120.       If C=-29
  121.          Add Y,8 : X=2-8
  122.       End If 
  123.       If C=-22
  124.          C=36
  125.       End If 
  126.       If C=<0 and C>-16
  127.          Add C,42
  128.       End If 
  129.       If C=-18
  130.          C=37
  131.       End If 
  132.       If C<>-29
  133.          Paste Bob X,Y,C
  134.       End If 
  135.       Add OF,1
  136.       Add X,8
  137.       Sprite Off 10
  138.    Next T
  139.    Wait 200
  140.    Colour 2,$88F
  141.    Wait 200
  142.    Colour 2,$44A
  143.    For T=110 To Len(TXT$)
  144.       T$=Mid$(TXT$,T,1)
  145.       C=Asc(T$)
  146.       C=C-64
  147.       If C=-32
  148.          C=39
  149.       End If 
  150.       If C=-29
  151.          Add Y,8 : X=2-8
  152.       End If 
  153.       If C=-22
  154.          C=36
  155.       End If 
  156.       If C=<0 and C>-16
  157.          Add C,42
  158.       End If 
  159.       If C=-18
  160.          C=37
  161.       End If 
  162.       If C<>-29
  163.          Paste Bob X,Y,C
  164.       End If 
  165.       Add OF,1
  166.       Add X,8
  167.    Next T
  168.    Wait 100
  169.    Colour 2,$88F
  170.    Colour Back 0
  171. End Proc
  172. Procedure _DECRUNCH
  173.    Randomize Timer
  174.    While Screen<>-1
  175.       Screen Close Screen
  176.    Wend 
  177.    C(1)=0 : C(2)=$FFF : C(3)=$903 : C(4)=$9FE : C(5)=$E7F : C(6)=$5C6 : C(7)=$33B : C(8)=$FF8
  178.    C(9)=$E95 : C(10)=$741 : C(11)=$E79 : C(12)=$444 : C(13)=$AAA : C(14)=$AFA : C(15)=$88F : C(16)=$EEE
  179.    For T=0 To 5000
  180.       Poke $DFF180,C(Rnd(15))
  181.    Next T
  182.    Wait Vbl 
  183. End Proc
  184. Procedure LETTER_WRITER[SCRN]
  185.     Extension_8_0016 0,0
  186.    TX$="Welcome to the 64 .....� "
  187.    TX$=TX$+"�"
  188.    TX$=TX$+"this part has been designed in the�"
  189.    TX$=TX$+"64 style so  all the people who have�"
  190.    TX$=TX$+"not seen a 64 demo before this is a ï¿½"
  191.    TX$=TX$+"example of what goes on.�"
  192.    TX$=TX$+"�"
  193.    TX$=TX$+"(space to exit .....but not yet!!)�"
  194.    TX$=TX$+"�"
  195.    TX$=TX$+"credits for this part ....�"
  196.    TX$=TX$+"coding  -  cerberus�"
  197.    TX$=TX$+"music   -  lazarus�"
  198.    TX$=TX$+"graphics and design  - cerberus�"
  199.    TX$=TX$+"                       lazarus�"
  200.    TX$=TX$+"technical support    - utiliser�"
  201.    TX$=TX$+"scroll text          - d.s.ate�"
  202.    TX$=TX$+"flooze routine (?!?) - paragon�"
  203.    TX$=TX$+"�"
  204.    TX$=TX$+"before i start waffling about the�"
  205.    TX$=TX$+"technical side of this demo�"
  206.    TX$=TX$+"and equipment list we`d first like�"
  207.    TX$=TX$+"to give out some greetings and thanx�"
  208.    TX$=TX$+"to the following -�"
  209.    TX$=TX$+"�"
  210.    TX$=TX$+"l.o.c. thanx for our ad in your�"
  211.    TX$=TX$+"       forthcoming mega demo and�"
  212.    TX$=TX$+"       for all the copies of a.c.c.�"
  213.    TX$=TX$+"       from crow.�"
  214.    TX$=TX$+"�"
  215.    TX$=TX$+"j.b.i. greets to tim lee jez and ali�"
  216.    TX$=TX$+"       mr tim wright-�"
  217.    TX$=TX$+"       its no good im telling the ï¿½"
  218.    TX$=TX$+"       whole world that it is i who ï¿½"
  219.    TX$=TX$+"       writes all your amazing riffs�"
  220.    TX$=TX$+"       supplies your high quality�"
  221.    TX$=TX$+"       samples (beast 2 awesome etc)�"
  222.    TX$=TX$+"       and i still havent received�"
  223.    TX$=TX$+"       my brand new mr2 as agreed !�"
  224.    TX$=TX$+"�"
  225.    TX$=TX$+"       (only joking ... or am i !!)�"
  226.    TX$=TX$+"�"
  227.    TX$=TX$+"       p.s look out for the new jbi ï¿½"
  228.    TX$=TX$+"       demo fillet the fish 2.5    ï¿½"
  229.    TX$=TX$+"       with its excellent sfx by     ï¿½"
  230.    TX$=TX$+"       d.s. ate of omega/jbi     ï¿½"
  231.    TX$=TX$+"�"
  232.    TX$=TX$+"many thanx go out to tony for the�"
  233.    TX$=TX$+"graphics in our recent release    ï¿½"
  234.    TX$=TX$+"        willies waterworks�"
  235.    TX$=TX$+"     (available now from u.p.d.)�"
  236.    TX$=TX$+"�"
  237.    TX$=TX$+"rebel uk -yes well er love the demos�"
  238.    TX$=TX$+"          they are really great.�"
  239.    TX$=TX$+"          i must admit you sure have�"
  240.    TX$=TX$+"          quashed us(re utah saints)�"
  241.    TX$=TX$+"�"
  242.    TX$=TX$+"          you couldnt quash orange !�"
  243.    TX$=TX$+"�"
  244.    TX$=TX$+"formal greetings to .....�"
  245.    TX$=TX$+"deja vu(sandra sharkey),paul ciupek,�"
  246.    TX$=TX$+"syntex (red sector of amos ?),sprog,�"
  247.    TX$=TX$+"mr.wig, ms1, hannasis v, mark 2, me,�"
  248.    TX$=TX$+"that clive fellow who designed the�"
  249.    TX$=TX$+"spectra or something .... ah yes the�"
  250.    TX$=TX$+"c5 (one day it will come back like�"
  251.    TX$=TX$+"flairs have -    or will it !)�"
  252.    TX$=TX$+"massive greetings to vic, bob, and�"
  253.    TX$=TX$+"les(les fact number 2363 - les likes�"
  254.    TX$=TX$+"to examine water buffalos while ï¿½"
  255.    TX$=TX$+"chewing large amounts of fish)�"
  256.    TX$=TX$+"�"
  257.    TX$=TX$+"right,now for some technical info on�"
  258.    TX$=TX$+"the entire golden ages demo.�"
  259.    TX$=TX$+"it was coded in amos and took about�"
  260.    TX$=TX$+"4 months of the groups combined work�"
  261.    TX$=TX$+"including several games of bowls (by�"
  262.    TX$=TX$+"paragon), infinite trips to the�"
  263.    TX$=TX$+"kentucky fried chicken,large amounts�"
  264.    TX$=TX$+"of beer (and whiskey (see below)),�"
  265.    TX$=TX$+"1 or 2 arguments (or 3 or 4 !), 1�"
  266.    TX$=TX$+"semi-broken disk and the following..�"
  267.    TX$=TX$+"5 amigas (1 meg except for utiliser�"
  268.    TX$=TX$+"with 2 meg and harddrive), action�"
  269.    TX$=TX$+"replay mk2, sanyo video camera (and�"
  270.    TX$=TX$+"digitiser (tony)), c 64, 2 samplers�"
  271.    TX$=TX$+"(trilogic,mastersound), tannoy and�"
  272.    TX$=TX$+"j.b.l. speakers, m1r,tg55, cz101,�"
  273.    TX$=TX$+"r8m, midiverb 3, kawai mx8sr mixer,�"
  274.    TX$=TX$+"ds8,(d.s.ate !), teac amp, midi box,�"
  275.    TX$=TX$+"yamaha kx 530 cass deck and a hell ï¿½"
  276.    TX$=TX$+"of a lot of electricity.�"
  277.    TX$=TX$+"�"
  278.    TX$=TX$+"a diary of a typical omega coder(any�"
  279.    TX$=TX$+"resemblance to any one(like neal) is�"
  280.    TX$=TX$+"coincidental)�"
  281.    TX$=TX$+"�"
  282.    TX$=TX$+"just recieved a phone call.the omega�"
  283.    TX$=TX$+"christmas **** up is on saturday in�"
  284.    TX$=TX$+"brymbo - great cant wait!�"
  285.    TX$=TX$+"�"
  286.    TX$=TX$+"the day has arrived.ill just iron my�"
  287.    TX$=TX$+"jeans.lets have a kentucky (scram).�"
  288.    TX$=TX$+"ill have a few double whiskeys cause�"
  289.    TX$=TX$+"they are dead cheap at the local and�"
  290.    TX$=TX$+"i was brought up on them after all�"
  291.    TX$=TX$+"�"
  292.    TX$=TX$+"several hours later(we have switched�"
  293.    TX$=TX$+"to cerberus diary due to unreadable�"
  294.    TX$=TX$+"entries in this ficticous diary that�"
  295.    TX$=TX$+"is not anything to do with neal ....�"
  296.    TX$=TX$+"at all!!�"
  297.    TX$=TX$+"hey where is steve.oh i remember hes�"
  298.    TX$=TX$+"in the bogg being sick.Or is he just�"
  299.    TX$=TX$+"asleep.�"
  300.    TX$=TX$+"�"
  301.    TX$=TX$+"ill just go and check�"
  302.    TX$=TX$+"�"
  303.    TX$=TX$+"hmmm is he okay he has been in there�"
  304.    TX$=TX$+"for 1 and a half bloody hours!!!�"
  305.    TX$=TX$+"�"
  306.    TX$=TX$+"well he says he is ok  but he wont�"
  307.    TX$=TX$+"come out.....why?................�"
  308.    TX$=TX$+"�"
  309.    TX$=TX$+"oh dear me...d.s.ate cannot seem to�"
  310.    TX$=TX$+"drink his seventh double never mind�"
  311.    TX$=TX$+"neal will drink it for him.�"
  312.    TX$=TX$+"�"
  313.    TX$=TX$+"good god neal can really handle his�"
  314.    TX$=TX$+"drinks he has been on double whiskey�"
  315.    TX$=TX$+"pernods vodkas etc all bloody night�"
  316.    TX$=TX$+"and he doesnt seem slightly drunk�"
  317.    TX$=TX$+"�"
  318.    TX$=TX$+"time to go now..last orders are upon�"
  319.    TX$=TX$+"us..d.s.ate has gone to try and drag�"
  320.    TX$=TX$+"steve away from his new home.�"
  321.    TX$=TX$+"is he building a kitchen in there!?!�"
  322.    TX$=TX$+"�"
  323.    TX$=TX$+"we are now outside,but where is neal�"
  324.    TX$=TX$+"oh dear..he appears to be trying to�"
  325.    TX$=TX$+"run home..down a hill..down a very�"
  326.    TX$=TX$+"steep hill..oh dear me he has fallen�"
  327.    TX$=TX$+"�"
  328.    TX$=TX$+"i think he is dead..no the fresh air�"
  329.    TX$=TX$+"has completely wiped him out.�"
  330.    TX$=TX$+"�"
  331.    TX$=TX$+"neal has just woke up but will not�"
  332.    TX$=TX$+"move.there is a car coming neal it�"
  333.    TX$=TX$+"is time to bloody move...�"
  334.    TX$=TX$+"he stumbles to his feet.....and gets�"
  335.    TX$=TX$+"carried away..by the rest of o.d.i.�"
  336.    TX$=TX$+"�"
  337.    TX$=TX$+"why wont he stop being sick his dog ï¿½"
  338.    TX$=TX$+"might try to eat it.and why is steve�"
  339.    TX$=TX$+"trying to walk home 10 miles?�"
  340.    TX$=TX$+"�"
  341.    TX$=TX$+"well the official omega demos xmas�"
  342.    TX$=TX$+"***** up was a complete success�"
  343.    TX$=TX$+"�"
  344.    TX$=TX$+"�"
  345.    TX$=TX$+" even though it was raining........�"
  346.    TX$=TX$+"�"
  347.    TX$=TX$+"�"
  348.    TX$=TX$+"              or was it?!?!?!?!?�"
  349.    TX$=TX$+"�"
  350.    TX$=TX$+"�"
  351.    TX$=TX$+"�"
  352.    TX$=TX$+"�"
  353.    TX$=TX$+"            the end�"
  354.    Screen SCRN
  355.   Flash 7,"(741,5)(e7f,5)(903,5)(e79,5)(fff,5)(e79,5)(903,5)(e7f,5)"
  356.    X=0 : CNT=0 : Y=8
  357.    Screen Show 0 : Screen Show 1 : Screen Show 2
  358.   For T=1 To Len(TX$)
  359.       T$=Inkey$ : If T$=" " Then Pop Proc
  360.       A$=Mid$(TX$,O,1)
  361.       C$=Upper$(A$)
  362.       If Asc(C$)=163
  363.          Add Y,8 : X=0
  364.       End If 
  365.        Extension_8_0006 X,Y,C$
  366.       Add O,1,0 To Len(TX$)
  367.       If X<300
  368.          Add X,8
  369.       Else X=0
  370.       End If 
  371.       If Y=120
  372.        Wait 200
  373.        Y=8
  374.          X=0
  375.          Cls 0
  376.       End If 
  377.       If Mouse Key=1
  378.       DLY=1 : Else DLY=5
  379.       End If 
  380.       Wait DLY
  381.    Next T
  382. End Proc
  383. Procedure FLD
  384.    Sload Start(13),Start(14)
  385.     Extension_1_022E 0,0,0,1
  386.    Wait Vbl 
  387.    Sam Swapped
  388.    Wait Vbl 
  389.     Extension_1_022E 0,0,0,1
  390.    Sprite Off : Amal Off 
  391.    Screen Open 0,320,255,16,Lowres : Flash Off : Curs Off : Hide 
  392.    Screen Hide 0
  393.    Palette 0,$FFF,$903,$9F3,$E7F,$5C6,$33B,$FF8,$E95,$741,$E79,$444,$AAA,$AFA,$88F,$EEE
  394.    Cls 0
  395.    Double Buffer : Autoback 0
  396.    A$="H: "
  397.    B$="G: "
  398.    C$="I: "
  399.    D$="B: "
  400.    E$="S: "
  401.    For LP=1 To 360 Step 16
  402.       Degree 
  403.       X=30
  404.       Y=150+10*Cos(LP)
  405.       A$=A$+"Let X="+Str$(X)+";Let Y="+Str$(Y)+";P;"
  406.    Next LP
  407.    For LP=1 To 360 Step 16
  408.       Degree 
  409.       X=30
  410.       Y=165+10*Cos(LP)
  411.       B$=B$+"Let X="+Str$(X)+";Let Y="+Str$(Y)+";P;"
  412.    Next LP
  413.    For LP=1 To 360 Step 16
  414.       Degree 
  415.       X=30
  416.       Y=180+10*Cos(LP)
  417.       C$=C$+"Let X="+Str$(X)+";Let Y="+Str$(Y)+";P;"
  418.    Next LP
  419.    For LP=1 To 360 Step 16
  420.       Degree 
  421.       X=30
  422.       Y=195+10*Cos(LP)
  423.       D$=D$+"Let X="+Str$(X)+";Let Y="+Str$(Y)+";P;"
  424.    Next LP
  425.    For LP=1 To 360 Step 16
  426.       Degree 
  427.       X=30
  428.       Y=210+10*Cos(LP)
  429.       E$=E$+"Let X="+Str$(X)+";Let Y="+Str$(Y)+";P;"
  430.    Next LP
  431.    A$=A$+" Jump H"
  432.    B$=B$+" Jump G"
  433.    C$=C$+" Jump I"
  434.    D$=D$+" Jump B"
  435.    E$=E$+" Jump S"
  436.    Channel 1 To Bob 1
  437.    Bob 1,320,256,53
  438.    Amal 1,"Move 0,0,"+Str$(1*2)+" ; "+A$
  439.    Channel 2 To Bob 2
  440.    Bob 2,320,256,54
  441.    Amal 2,"Move 0,0,"+Str$(2*2)+" ; "+B$
  442.    Channel 3 To Bob 3
  443.    Bob 3,320,256,55
  444.    Amal 3,"Move 0,0,"+Str$(3*2)+" ; "+C$
  445.    Channel 4 To Bob 4
  446.    Bob 4,320,256,56
  447.    Amal 4,"Move 0,0,"+Str$(4*2)+" ; "+D$
  448.    Channel 5 To Bob 5
  449.    Bob 5,320,256,57
  450.    Amal 5,"Move 0,0,"+Str$(5*2)+" ; "+E$
  451.    Amal On 
  452.    Screen Open 2,320,116,8,Lowres
  453.    Curs Off : Flash Off : Cls 0
  454.    Palette 0,,,,,,,,,$FFF,$903,$33B,$444,$AAA,$88F,$EEE
  455.    Screen Open 1,320,116,8,Lowres
  456.    Curs Off : Flash Off : Cls 0
  457.    Wait Vbl 
  458.    Dual Playfield 2,1
  459.    Wait Vbl 
  460.    Screen Display 2,,70,,
  461.    Wait Vbl 
  462.    Screen Hide 2 : Screen Hide 1
  463.    Screen 1
  464.    Wait Vbl 
  465.    Paste Bob 35,0,58
  466.    Flash 1,"(fff,3)(eee,3)(aaa,3)(444,3)(000,3)(444,3)(aaa,3)(eee,3)"
  467.    Flash 1,"(fff,3)(eee,3)(aaa,3)(444,3)(000,3)(444,3)(aaa,3)(eee,3)"
  468.    LETTER_WRITER[2]
  469. End Proc
  470. Procedure BYE_BYE
  471.    Sam Swapped
  472.    While Screen<>-1 : Screen Close Screen : Wend 
  473.    Bob Off : Amal Off : Anim Off : Rainbow Del 1
  474.    Auto View Off 
  475.    Set Rainbow 0,0,300,"","",""
  476.    Rainbow 0,0,0,300
  477.    For S=0 To 299
  478.       Rain(0,S)=$88F
  479.    Next S
  480.    View 
  481.    Screen Open 0,320,200,4,Lowres
  482.    Curs Off : Flash Off : Cls 0
  483.    Colour 1,$88F
  484.    Colour 2,$44A
  485.    Colour 17,$44A
  486.    Colour 18,$88F
  487.    Ink 2
  488.    Bar 0,0 To 312,200
  489.    Hide 
  490.    Screen Display 0,130,60,,
  491.    TXT$="#    **** COMMODORE 64 BASIC V2 **** ## 64K RAM SYSTEM 38911 BASIC BYTES FREE"
  492.    TXT$=TXT$+"##READY."
  493.    TXT$=TXT$+"##MALFUNCTION..MALFUNCTION..MALFUNCTION"
  494.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  495.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  496.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  497.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  498.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  499.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  500.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  501.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  502.    TXT$=TXT$+"#MALFUNCTION..MALFUNCTION..MALFUNCTION"
  503.    X=2
  504.    Y=1
  505.    For T=1 To 85
  506.       T$=Mid$(TXT$,T,1)
  507.       C=Asc(T$)
  508.       C=C-64
  509.       If C=-32
  510.          C=39
  511.       End If 
  512.       If C=-29
  513.          Add Y,8 : X=2-8
  514.       End If 
  515.       If C=-22
  516.          C=36
  517.       End If 
  518.       If C=<0 and C>-16
  519.          Add C,42
  520.       End If 
  521.       If C=-18
  522.          C=37
  523.       End If 
  524.       If C<>-29
  525.          Paste Bob X,Y,C
  526.       End If 
  527.       Add OF,1
  528.       Add X,8
  529.    Next T
  530.    X=2 : Add Y,8
  531.    Sprite 10,128+X,60+Y,38
  532.    Channel 1 To Sprite 10
  533.    Anim 1,"(38,20)(39,20)L"
  534.    Anim On 
  535.    View 
  536.    Auto View On 
  537.    Wait 200
  538.    Sprite Off 10
  539.    For T=86 To Len(TXT$)
  540.       T$=Mid$(TXT$,T,1)
  541.       C=Asc(T$)
  542.       C=C-64
  543.       If C=-32
  544.          C=39
  545.       End If 
  546.       If C=-29
  547.          Add Y,8 : X=2-8
  548.       End If 
  549.       If C=-22
  550.          C=36
  551.       End If 
  552.       If C=<0 and C>-16
  553.          Add C,42
  554.       End If 
  555.       If C=-18
  556.          C=37
  557.       End If 
  558.       If C<>-29
  559.          Paste Bob X,Y,C
  560.       End If 
  561.       Add OF,1
  562.       Add X,8
  563.    Next T
  564.    Wait 40
  565.    Unpack 7 To 1 : Screen To Back 1
  566.    For T=0 To 19
  567.       Screen To Back 0
  568.       Wait 5
  569.       Screen To Front 0
  570.       Wait 5
  571.    Next T
  572.    For T=0 To 10
  573.       Screen To Back 0
  574.       Wait Vbl 
  575.       Screen To Front 0
  576.       Wait 3
  577.    Next T
  578.    Rainbow Del 0
  579.    For T=0 To 10
  580.       Screen To Back 0
  581.       Wait Vbl 
  582.       Screen To Front 0
  583.       Wait Vbl 
  584.    Next T
  585.    Screen 0
  586.    Cls 0
  587.    For T=0 To 20
  588.       Screen To Back 0
  589.       Wait Vbl 
  590.       Screen To Front 0
  591.       Wait Vbl 
  592.    Next T
  593.    Screen To Front 1
  594.    Screen Close 0
  595. End Proc