home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 001-025 / apd022 / autoexec.amos / autoexec.amosSourceCode
AMOS Source Code  |  1990-10-26  |  18KB  |  722 lines
  1. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  2. '
  3. '                        Fun School 3 Demo Demo
  4. '
  5. '                            By P.J.Hickman
  6. '
  7. '
  8. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  9. Set Buffer 2
  10. Set Sprite Buffer 16
  11. Get Disc Fonts 
  12. DISC$="Apd22:"
  13. Dir$=DISC$
  14. PASS=1
  15. Dim TEMP(15),TEMP$(6),AMOUNT(6),Y(6),C1(6),C2(6)
  16. Global TEMP(),DISC$,TEMP$(),AMOUNT(),Y(),C1(),C2(),PASS
  17. Repeat 
  18.    TITLE_SCREEN
  19.    PROGGY_SLIDESHOW
  20.    MACHINE_DATA
  21.    CREDITS
  22. Until False
  23. Procedure INIT_RBOW
  24.    Set Rainbow 1,9,26,"","",""
  25.    For LOP1=0 To 13 Step 13
  26.       Restore RBOW_DATA
  27.       For LOP2=1 To 13
  28.          Read TEMP
  29.          Rain(1,(LOP2+LOP1)-1)=TEMP
  30.       Next LOP2
  31.    Next LOP1
  32.    Rainbow 1,0,50,200
  33.    RBOW_DATA:
  34.    Data $603,$704,$805,$906,$A17,$B18,$C19,$B18,$A17,$906,$805,$704,$603
  35. End Proc
  36. Procedure SET_UP_BOTTOM
  37.    Load "Extra_Bits/Available_For.Abk",15
  38.    Unpack 15 To 4
  39.    Erase 15
  40.    Screen 0
  41. End Proc
  42. Procedure TITLE_SCREEN
  43.    Dir$=DISC$
  44.    Erase 1
  45.    Load "Extra_Bits/Title_Text.Abk"
  46.    Load "Extra_Bits/Big_Logo.Abk",1
  47.    Clear Key 
  48.    If PASS=1
  49.       Led Off 
  50.       Load "Music/Fun_Music.Abk"
  51.       Screen Open 0,320,210,16,Lowres
  52.       Screen Hide 0
  53.       Screen Display 0,,40,,
  54.       Flash Off : Curs Off : Get Sprite Palette : Colour 0,$6C : Cls 0 : Hide On 
  55.       Double Buffer 
  56.       Autoback 0
  57.       Set Font 1
  58.       For LOP=0 To 15
  59.          TEMP(LOP)=Colour(LOP)
  60.          Colour(LOP),TEMP(0)
  61.       Next LOP
  62.       SET_UP_BOTTOM
  63.       Screen Show 0
  64.       Music 1 : Tempo 17
  65.       Inc PASS
  66.    End If 
  67.    Screen 0
  68.    Autoback 2
  69.    Cls 0
  70.    Paste Bob 50,20,1 : Paste Bob 222,20,3
  71.    Fade 4,$6C,TEMP(1),TEMP(2),TEMP(3),TEMP(4),TEMP(5),TEMP(6),TEMP(7),TEMP(8),TEMP(9),TEMP(10),TEMP(11),TEMP(12),TEMP(13),TEMP(14),TEMP(15)
  72.    PAUSE[4*15]
  73.    Channel 2 To Bob 2
  74.    Channel 1 To Bob 1
  75.    Bob 2,-104,50,5
  76.    Amal 2,"Move 210,0,10 ; "
  77.    Amal On 2
  78.    While Chanmv(2) : Wend 
  79.    Paste Bob 106,50,5
  80.    PAUSE[20]
  81.    Bob 2,-32,105,4
  82.    Amal 2,"Move 150,0,10 ; "
  83.    Amal On 2
  84.    While Chanmv(2) : Wend 
  85.    Paste Bob 118,105,4
  86.    Bob Off 
  87.    Update 
  88.    Pen 15
  89.    Paper 0
  90.    Centre At(,24)+Border$("Press SPACE to alter release dates",2)
  91.    Timer=0
  92.    Repeat 
  93.       If Inkey$=" "
  94.          Screen Close 0
  95.          Screen Close 4
  96.          Music Off 
  97.          Erase 1 : Erase 3
  98.          Run "Edit.Amos"
  99.       End If 
  100.    Until Timer=230 or Mouse Click
  101.    Fade 5,$6C,TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0)
  102.    Autoback 0
  103. End Proc
  104. Procedure B0X_MENU
  105.    Dir$=DISC$
  106.    Timer=0
  107.    Load "Extra_Bits/Title_Text.Abk"
  108.    Load "Extra_Bits/Big_Logo.Abk",1
  109.    PAUSE[75-Timer]
  110.    Autoback 2
  111.    Cls 0
  112.    Palette $6C,$222,$40,$48,$440,$0,$666,$28C,$C80,$F5C,$262,$EC4,$888,$AAA,$CCC,$FFF
  113.    ' ~~~~~ Fun School 3 ~~~~~ 
  114.    Bob 2,200,-100,5
  115.    Amal 2,"Move 0,100,10 ; "
  116.    Amal On 2
  117.    While Chanmv(2) : Wend 
  118.    Paste Bob 200,0,5
  119.    Update 
  120.    ' ~~~~~ Age Groups ~~~~~ 
  121.    Bob 2,-193,50,2
  122.    Amal 2,"Move 217,0,10 ; "
  123.    Amal On 2
  124.    While Chanmv(2) : Wend 
  125.    Paste Bob 24,50,2
  126.    Ink 15
  127.    ' ~~~~~ BOXES ~~~~~
  128.    Load "Extra_Bits/U5_BOX.Abk",1
  129.    Paste Bob 16,90,6
  130.    Timer=0
  131.    PAUSE[20-Timer]
  132.    Del Bob 6
  133.    Load "Extra_Bits/5-7s_BOX.Abk",1
  134.    Paste Bob 106,90,6
  135.    Timer=0
  136.    PAUSE[20-Timer]
  137.    Del Bob 6
  138.    Load "Extra_Bits/OVER7s_BOX.Abk",1
  139.    Paste Bob 196,90,6
  140.    Timer=0
  141.    PAUSE[20-Timer]
  142.    Del Bob 6
  143.    Bob Off 
  144.    PAUSE[200]
  145.    Fade 5,$6C,TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0)
  146.    Autoback 0
  147. End Proc
  148. Procedure PROGGY_SLIDESHOW
  149.    ' ~~~~~ Set directory ~~~~~
  150.    MAIN=1
  151.    Repeat 
  152.       MAIN2=MAIN
  153.       B0X_MENU
  154.       If MAIN=1 Then Restore UNDER_5S
  155.       If MAIN=2 Then Restore FIVE_7S
  156.       If MAIN=3 Then Restore OVER_7S
  157.       Read DISC2$
  158.       Dir$=DISC$+DISC2$
  159.       Read SP$
  160.       LOP1=1
  161.       Repeat 
  162.          Erase 1
  163.          Timer=0
  164.          Load SP$
  165.          INIT_RBOW
  166.          PAUSE[120-Timer]
  167.          Autoback 2
  168.          Cls 0
  169.          Palette $6C,$222,$40,$48,$440,$0,$666,$28C,$C80,$F5C,$262,$EC4,$888,$AAA,$CCC,$FFF
  170.          Ink 15
  171.          If MAIN=1
  172.             Load DISC$+"Extra_Bits/U5_BOX.Abk",1
  173.          End If 
  174.          If MAIN=2
  175.             Load DISC$+"Extra_Bits/5-7s_BOX.Abk",1
  176.          End If 
  177.          If MAIN=3
  178.             Load DISC$+"Extra_Bits/Over7s_BOX.Abk",1
  179.          End If 
  180.          Paste Bob 225,90,12
  181.          Del Bob 12
  182.          ' ~~~~~ Under 5s ~~~~~ 
  183.          Bob 2,-100,0,4
  184.          Amal 2,"Move 100,0,10 ; "
  185.          Amal On 2
  186.          While Chanmv(2) : Wend 
  187.          Paste Bob 0,0,4
  188.          ' ~~~~~~ Contains 6 Programs ~~~~~~
  189.          Bob 2,-200,30,3
  190.          Amal 2,"Move 200,0,20 ; "
  191.          Amal On 2
  192.          While Chanmv(2) : Wend 
  193.          Paste Bob 0,30,3
  194.          A=Sprite Base(LOP1+4)
  195.          XSIZE=Deek(A)*16
  196.          For LOP=0 To 5
  197.             Y=(LOP*25)+64
  198.             If LOP=(LOP1-1)
  199.                Ink 8
  200.                Bar 0,Y-2 To XSIZE+29,Y+18
  201.                Bar 2,Y-4 To XSIZE+27,Y+20
  202.                Ink 11
  203.                Bar 1,Y-3 To XSIZE+28,Y+19
  204.             End If 
  205.             Bob 2,3,-25,2
  206.             Amal 2,"Move 0,"+Str$(Y+25)+",5 ; "
  207.             Amal On 2
  208.             While Chanmv(2) : Wend 
  209.             Paste Bob 3,Y,2
  210.             PAUSE[5]
  211.             Bob 2,-200,Y-1,5+LOP
  212.             Amal 2,"Move 226,0,10 ; "
  213.             Amal On 2
  214.             While Chanmv(2) : Wend 
  215.             Paste Bob X Bob(2),Y-1,5+LOP
  216.             PAUSE[5]
  217.          Next LOP
  218.          Bob Off : Wait Vbl 
  219.          Bob 1,3,((LOP1-1)*25)+64,1
  220.          Amal 1,"Anim 0,(2,34)(1,24)"
  221.          Amal On 1
  222.          PAUSE[340]
  223.          Amal Off : Bob Off 
  224.          Fade 5,$6C,TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0),TEMP(0)
  225.          Autoback 0
  226.          Rainbow Del 1
  227.          Read TEMP2
  228.          Read PIC$
  229.          Read B0BNAME$,B0B$,X1,X2,Y
  230.          For LOP=1 To TEMP2
  231.             Read TEMP$(LOP),Y(LOP),C1(LOP),C2(LOP)
  232.          Next LOP
  233.          SLIDE[TEMP2,PIC$,B0BNAME$,B0B$,X1,X2,Y]
  234.          T$=Inkey$
  235.          If Val(T$)>=1 and Val(T$)<=3 and Val(T$)<>MAIN
  236.             MAIN=Val(T$)
  237.          End If 
  238.          Inc LOP1
  239.       Until LOP1=7 or MAIN<>MAIN2
  240.       If MAIN2=MAIN or(MAIN=3 and MAIN2=3) Then Inc MAIN
  241.       Clear Key 
  242.    Until MAIN=4
  243. End Proc
  244. Procedure SLIDE[T,PIC$,B0BNAME$,B0B$,X1,X2,Y]
  245.    PAUSE[32]
  246.    View 
  247.    PAUSE[88]
  248.    Autoback 2
  249.    Cls 0
  250.    Load B0BNAME$
  251.    Get Sprite Palette : Colour 0,$6C
  252.    Set Bob 15,1,,
  253.    Set Bob 14,1,,
  254.    Autoback 0
  255.    For LOP=1 To T
  256.       OUTLINE[TEMP$(LOP),Y(LOP),C1(LOP),C2(LOP)]
  257.    Next LOP
  258.    EFFECT
  259.    Bob 14,X1,Y,1 : Bob 15,X2,Y,1
  260.    Channel 14 To Bob 14 : Channel 15 To Bob 15
  261.    Amal 14,B0B$
  262.    Amal 15,B0B$
  263.    Autoback 2 : Update 
  264.    Amal On 14 : Amal On 15
  265.    PAUSE[300]
  266.    Amal Off : Wait Vbl : Put Bob 14 : Wait Vbl : Put Bob 15 : Wait Vbl 
  267.    Bob Off : Erase 1
  268.    Autoback 0
  269.    Screen Open 1,320,210,16,Lowres
  270.    Screen Hide 1 : Autoback 0
  271.    Screen Display 1,,40,,
  272.    Flash Off : Curs Off : Get Palette 0 : Colour 0,$6C : Cls 0 : Hide On 
  273.    Screen Copy Physic(0) To 1
  274.    Screen Show 1
  275.    Screen Close 0
  276.    Auto View Off 
  277.    Load Iff PIC$,7
  278.    Screen Hide 7
  279.    Screen Display 7,,-400,,0
  280.    Auto View On 
  281.    Screen Show 7
  282.    PICCYON_UP[7]
  283.    Screen Open 0,320,210,16,Lowres
  284.    Screen Hide 0 : Autoback 0
  285.    Screen Display 0,,40,,
  286.    Screen To Back 0
  287.    Flash Off : Curs Off : Get Palette 1 : Colour 0,$6C : Cls 0 : Hide On : Screen Show 0
  288.    Screen Close 1
  289.    Screen 0
  290.    Set Font 1
  291.    Double Buffer : Autoback 2 : Cls 0 : Autoback 0
  292.    PAUSE[380]
  293.    PICCYOFF_DOWN[7]
  294. End Proc
  295. Procedure EFFECT
  296.    Randomize Timer
  297.    T=Rnd(4)+1
  298.    If T=1 Then EFFECT_1[Logic,Physic]
  299.    If T=2 Then EFFECT_2[Logic,Physic]
  300.    If T=3 Then EFFECT_3[Logic,Physic]
  301.    If T=4 Then EFFECT_4[Logic,Physic]
  302.    If T=5 Then EFFECT_5[Logic,Physic]
  303. End Proc
  304. Procedure PAUSE[T]
  305.    Timer=0
  306.    While(Timer<T) and(Mouse Click=False)
  307.    Wend 
  308. End Proc
  309. Procedure PICCYON_DOWN[SCR]
  310.    For Y=-211 To 50 Step 5
  311.       Screen Display SCR,,Y,,200
  312.       Wait Vbl : View 
  313.    Next 
  314. End Proc
  315. Procedure EFFECT_1[SOURCE,DEST]
  316.    For LOP=0 To 99 Step 2
  317.       Y=LOP*2
  318.       Y2=197-(Y-1)
  319.       Screen Copy SOURCE,0,Y,320,Y+2 To DEST,0,Y
  320.       Screen Copy SOURCE,0,Y2,320,Y2+2 To DEST,0,Y2
  321.       Wait 3
  322.    Next LOP
  323. End Proc
  324. Procedure EFFECT_2[SOURCE,DEST]
  325.    For LOP=0 To 159 Step 2
  326.       X=LOP*2
  327.       X2=317-(X-1)
  328.       Screen Copy SOURCE,X,0,X+2,200 To DEST,X,0
  329.       Screen Copy SOURCE,X2,0,X2+2,200 To DEST,X2,0
  330.       Wait 3
  331.    Next LOP
  332. End Proc
  333. Procedure EFFECT_3[SOURCE,DEST]
  334.    For LOP=0 To 319 Step 2
  335.       X=LOP
  336.       X2=318-(X-1)
  337.       Screen Copy SOURCE,X,0,X+1,200 To DEST,X,0
  338.       Screen Copy SOURCE,X2,0,X2+1,200 To DEST,X2,0
  339.    Next LOP
  340. End Proc
  341. Procedure EFFECT_4[SOURCE,DEST]
  342.    For X=0 To 39
  343.       For Y=0 To X
  344.          Screen Copy SOURCE,(X-Y)*16,Y*10,(X-Y+1)*16,(Y+1)*10 To DEST,(X-Y)*16,Y*10
  345.       Next Y
  346.    Next X
  347. End Proc
  348. Procedure EFFECT_5[SOURCE,DEST]
  349.    XAXIS=20
  350.    YAXIS=20
  351.    XMID=10
  352.    YMID=10
  353.    For Y=0 To YAXIS
  354.       C=Y
  355.       For X=XMID To 0 Step -1
  356.          If C>0
  357.             Screen Copy SOURCE,X*16,(YMID-C)*10,(XAXIS-X)*16,(YMID+C)*10 To DEST,X*16,(YMID-C)*10
  358.          End If 
  359.          Dec C
  360.       Next X
  361.    Next Y
  362. End Proc
  363. Procedure PICCYON_UP[SCR]
  364.    For Y=250 To 50 Step -5
  365.       Screen Display SCR,,Y,,250-Y
  366.       Wait Vbl : View 
  367.    Next 
  368. End Proc
  369. Procedure PICCYOFF_DOWN[SCR]
  370.    For Y=50 To 250 Step 5
  371.       Screen Display SCR,,Y,,251-Y
  372.       Wait Vbl 
  373.    Next 
  374.    Screen Close SCR
  375. End Proc
  376. Procedure OUTLINE[T$,Y,C1,C2]
  377.    Gr Writing 0
  378.    Ink C
  379.    Set Text FLAG
  380.    TEMP=Text Length(T$)
  381.    MIDDLE=(Screen Width-TEMP)/2
  382.    Ink C1
  383.    Text MIDDLE-1,Y,T$
  384.    Text MIDDLE+1,Y,T$
  385.    Text MIDDLE,Y-1,T$
  386.    Text MIDDLE,Y+1,T$
  387.    Ink C2
  388.    Text MIDDLE,Y,T$
  389. End Proc
  390. Procedure OUTLINE2[T$,SIZE,Y,C1,C2]
  391.    Gr Writing 0
  392.    Ink C
  393.    Set Text FLAG
  394.    TEMP=Text Length(T$)
  395.    MIDDLE=(SIZE-TEMP)/2
  396.    Ink C1
  397.    Text MIDDLE-1,Y,T$
  398.    Text MIDDLE+1,Y,T$
  399.    Text MIDDLE,Y-1,T$
  400.    Text MIDDLE,Y+1,T$
  401.    Ink C2
  402.    Text MIDDLE,Y,T$
  403. End Proc
  404. Procedure MACHINE_DATA
  405.    Auto View Off 
  406.    Screen Open 7,640,200,4,Hires
  407.    Screen Hide 7
  408.    Flash Off : Curs Off : Cls 0
  409.    Palette $6C,$FFF,$0,$339
  410.    Dim MACHINE$(10,6)
  411.    Dir$=DISC$
  412.    Load "Extra_Bits/Avail.Dat"
  413.    Paper 0
  414.    Pen 2
  415.    Under On 
  416.    Print At(3,3);Space$(73)
  417.    Print At(3,4);'|     Machine    |   3.5"  |  5.25"  | Cassette |   3"   | Availability |'
  418.    Under Off 
  419.    Pen 1
  420.    Restore AVAILABILITY_DATA
  421.    YSTART=6
  422.    For LOP=1 To 10
  423.       For LOP1=1 To 5
  424.          Read MACHINE$(LOP,LOP1)
  425.          If LOP1=1
  426.             Print At(3,YSTART);MACHINE$(LOP,LOP1);
  427.          Else 
  428.             If MACHINE$(LOP,LOP1)<>""
  429.                Print At((LOP1-2)*10+23,YSTART);MACHINE$(LOP,LOP1);
  430.             Else 
  431.                Pen 3
  432.                Print At((LOP1-2)*10+23,YSTART);"  --";
  433.                Pen 1
  434.             End If 
  435.          End If 
  436.       Next LOP1
  437.       If Peek(Start(10)+(LOP-1))=0
  438.          MACHINE$(LOP,6)="Coming soon"
  439.       Else 
  440.          MACHINE$(LOP,6)="  Out now! "
  441.       End If 
  442.       Print At(63,YSTART);Zone$(MACHINE$(LOP,6),LOP);
  443.       Add YSTART,2
  444.    Next LOP
  445.    Set Font 1
  446.    OUTLINE["FUN SCHOOL {  PRICE LIST",25,2,1]
  447.    Screen Display 7,,-400,,0
  448.    Screen Show 7
  449.    PICCYON_UP[7]
  450.    Erase 10
  451.    View 
  452.    Set Rainbow 0,1,64,"","(2,1,15)(2,-1,15)","(2,1,15)(2,-1,15)"
  453.    For LOP=0 To 50
  454.       Rainbow 0,0,20,LOP
  455.       Wait Vbl : View : Wait Vbl 
  456.    Next LOP
  457.    PAUSE[600]
  458.    For LOP=50 To 0 Step -1
  459.       Rainbow 0,0,20,LOP
  460.       Wait Vbl : View : Wait Vbl 
  461.    Next LOP
  462.    Rainbow Del 0
  463.    Auto View On 
  464.    Wait 5
  465.    PICCYOFF_DOWN[7]
  466. End Proc
  467. Procedure CREDITS
  468.    Dir$=DISC$
  469.    Screen 0
  470.    Autoback 2
  471.    Cls 0
  472.    Autoback 0
  473.    Load Iff "Extra_Bits/More_Info.Iff",7
  474.    Screen Hide 7
  475.    Screen Display 7,,-400,,0
  476.    Screen Show 7
  477.    PICCYON_UP[7]
  478.    PAUSE[400]
  479.    PICCYOFF_DOWN[7]
  480.    Screen 0
  481.    Load "Extra_Bits/AMOS_Box.Abk"
  482.    Palette $6C,$888,$444,$CCC,$222,$AAA,$666,$EEE,$111,$999,$555,$DDD,$333,$BBB,$777,$FFF
  483.    Set Font 0
  484.    OUTLINE2["Fun School 3 and",160,75,8,15]
  485.    OUTLINE2["this demo were",160,85,8,15]
  486.    OUTLINE2["written using",160,95,8,15]
  487.    OUTLINE2["AMOS - THE CREATOR",160,105,8,15]
  488.    OUTLINE2["Available from",160,115,8,15]
  489.    OUTLINE2["Mandarin Software",160,125,8,15]
  490.    EFFECT
  491.    PAUSE[50]
  492.    Autoback 0
  493.    Clear Key 
  494.    Bob 1,180,-160,1
  495.    Amal 1,"Move 0,180,20"
  496.    Amal On 1
  497.    While Chanmv(1) : Wend 
  498.    Autoback 2
  499.    Wait 2 : Paste Bob 180,20,1
  500.    Bob Off 1
  501.    PAUSE[250]
  502.    Fade 5,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C
  503.    Wait 75
  504.    Cls 0
  505.    Palette $6C,$888,$444,$CCC,$222,$AAA,$666,$EEE,$111,$999,$555,$DDD,$333,$BBB,$777,$FFF
  506.    Erase 1
  507.    Autoback 0
  508.    Set Font 1
  509.    Load "Extra_Bits/Faces.Abk"
  510.    OUTLINE["Programming by",65,2,15]
  511.    OUTLINE["Peter Hickman",95,8,15]
  512.    EFFECT
  513.    Wait 5
  514.    If((Inkey$="'") or(Inkey$="~")) and Scanshift<>0
  515.       Bob 2,140,-60,1
  516.       Amal 2,"Move 0,180,20"
  517.       Amal On 2
  518.       While Chanmv(2) : Wend 
  519.       Autoback 2
  520.    End If 
  521.    PAUSE[130]
  522.    Fade 5,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C
  523.    Wait 75
  524.    Bob Off 2
  525.    Autoback 2
  526.    Cls 0
  527.    Autoback 0
  528.    Palette $6C,$888,$444,$CCC,$222,$AAA,$666,$EEE,$111,$999,$555,$DDD,$333,$BBB,$777,$FFF
  529.    OUTLINE["Music by",65,2,15]
  530.    OUTLINE["Darren Nuttall",95,8,15]
  531.    EFFECT
  532.    Wait 5
  533.    If((Inkey$="'") or(Inkey$="~")) and Scanshift<>0
  534.       Bob 2,140,-60,2
  535.       Amal 2,"Move 0,180,20"
  536.       Amal On 2
  537.       While Chanmv(2) : Wend 
  538.    End If 
  539.    PAUSE[130]
  540.    Fade 5,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C,$6C
  541.    Wait 75
  542.    Bob Off 2
  543.    Autoback 2
  544.    Cls 0
  545.    Erase 1
  546.    Autoback 0
  547.    Clear Key 
  548. End Proc
  549. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  550. UNDER_5S:
  551. Data "Under_5s/"
  552. Data "Under_5s_text.Abk"
  553. Data 3
  554. Data "Match.Iff"
  555. Data "Dancing.Abk"
  556. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)"
  557. Data 20,295,175
  558. Data "Help Teddy to pair",70,1,15
  559. Data "off the shapes in",100,1,15
  560. Data "MATCHING",130,9,15
  561. Data 3
  562. Data "Verb.Iff"
  563. Data "Listen.Abk"
  564. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)"
  565. Data 20,295,175
  566. Data "Make Teddy Jump,",70,1,15
  567. Data "sleep, sit and more in",100,1,15
  568. Data "ACTIONS",130,9,15
  569. Data 3
  570. Data "Gallery.Iff"
  571. Data "Jumping.Abk"
  572. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)"
  573. Data 20,295,175
  574. Data "Match the words to",70,1,15
  575. Data "pictures in",100,1,15
  576. Data "GALLERY",130,9,15
  577. Data 4
  578. Data "Count2.Iff"
  579. Data "Eat_Honey.Abk"
  580. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)(5,15)(4,10)(5,15)(6,10)"
  581. Data 20,295,196
  582. Data "Count the teddies,",70,5,15
  583. Data "trees, flowers and",100,1,15
  584. Data "lots more in",130,1,15
  585. Data "COUNTING",160,9,15
  586. Data 3
  587. Data "Alpha.Iff"
  588. Data "Ice_Cream.Abk"
  589. Data "Anim 0,(1,20)(2,20)(3,25)(1,20)(2,20)"
  590. Data 0,284,175
  591. Data "Match the letters",70,1,15
  592. Data "in",100,1,15
  593. Data "LETTERS",130,9,15
  594. Data 3
  595. Data "Farm.Iff"
  596. Data "Wave.Abk"
  597. Data "Anim 0,(1,10)(2,10)"
  598. Data 20,295,175
  599. Data "Build up a picture",70,1,15
  600. Data "of a farm in",100,1,15
  601. Data "PAINTING",130,9,15
  602. FIVE_7S:
  603. Data "5-7s/"
  604. Data "5-7s_text.Abk"
  605. Data 4
  606. Data "Journey.Iff"
  607. Data "Frog_Bounce.Abk"
  608. Data "Anim 0,(1,8)(2,8)(3,8)(4,8)(3,8)"
  609. Data 0,290,144
  610. Data "Learn directions as",70,3,1
  611. Data "you visit the",100,3,1
  612. Data "buildings in",130,3,1
  613. Data "JOURNEY",160,4,1
  614. Data 3
  615. Data "Toyshop.Iff"
  616. Data "Frog_Bounce.Abk"
  617. Data "Anim 0,(1,8)(2,8)(3,8)(4,8)(3,8)"
  618. Data 0,290,144
  619. Data "Spend your money",70,3,1
  620. Data "wisely in",100,3,1
  621. Data "TOYSHOP",130,4,1
  622. Data 3
  623. Data "Collect.Iff"
  624. Data "Frog_Bounce.Abk"
  625. Data "Anim 0,(1,8)(2,8)(3,8)(4,8)(3,8)"
  626. Data 0,290,144
  627. Data "Make up the",70,3,1
  628. Data "correct sum in",100,3,1
  629. Data "COLLECT",130,4,1
  630. Data 5
  631. Data "Funtext.Iff"
  632. Data "Frog_Bounce.Abk"
  633. Data "Anim 0,(1,8)(2,8)(3,8)(4,8)(3,8)"
  634. Data 0,290,144
  635. Data "Store information and",40,3,1
  636. Data "make quizzes using the",70,3,1
  637. Data "ceefax-style card",100,3,1
  638. Data "index",130,3,1
  639. Data "FUNTEXT",160,4,1
  640. Data 3
  641. Data "Clock.Iff"
  642. Data "Frog_Bounce.Abk"
  643. Data "Anim 0,(1,8)(2,8)(3,8)(4,8)(3,8)"
  644. Data 0,290,144
  645. Data "Learn to read a",70,3,1
  646. Data "real clock face in",100,3,1
  647. Data "TIME",130,4,1
  648. Data 3
  649. Data "Elec.Iff"
  650. Data "Frog_Bounce.Abk"
  651. Data "Anim 0,(1,8)(2,8)(3,8)(4,8)(3,8)"
  652. Data 0,290,144
  653. Data "Fix the circuits and",70,3,1
  654. Data "light the bulb in",100,3,1
  655. Data "ELECTRICITY",130,4,1
  656. OVER_7S:
  657. Data "Over_7s/"
  658. Data "Over_7s_text.Abk"
  659. Data 4
  660. Data "Pmath.Iff"
  661. Data "Wavy_Robot.abk"
  662. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)(5,10)(6,10)(5,10)(4,10)(3,10)(2,10)"
  663. Data 0,250,152
  664. Data "Answer the sums to",40,1,15
  665. Data "destroy the forcefield",70,1,15
  666. Data "in",100,1,15
  667. Data "PLANETARY MATHS",130,9,15
  668. Data 4
  669. Data "Thunt.Iff"
  670. Data "Robot_Jewel.Abk"
  671. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)(5,10)(6,10)(7,10)(8,10)(9,10)(10,10)(11,10)(10,10)(9,10)"
  672. Data 30,290,167
  673. Data "Follow the map",40,1,15
  674. Data "directions to find",70,1,15
  675. Data "gems in",100,1,15
  676. Data "TREASURE HUNT",130,9,15
  677. Data 4
  678. Data "Wordsear.Iff"
  679. Data "Wavy_Robot.abk"
  680. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)(5,10)(6,10)(5,10)(4,10)(3,10)(2,10)"
  681. Data 0,250,152
  682. Data "Pick out the hidden",40,1,15
  683. Data "words from the",70,1,15
  684. Data "grid in",100,1,15
  685. Data "WORDSEARCH",130,9,15
  686. Data 4
  687. Data "Sentence.Iff"
  688. Data "Robot_Twist.Abk"
  689. Data "Anim 0,(1,30)(2,10)(3,10)(4,10)(5,10)(6,10)(7,10)(8,10)(1,30)(7,10)(6,10)(5,10)(4,10)(3,10)(2,10)"
  690. Data 30,290,167
  691. Data "Correct the spelling",40,1,15
  692. Data "and grammatical",70,1,15
  693. Data "mistakes in",100,1,15
  694. Data "SENTENCES",130,9,15
  695. Data 4
  696. Data "Logo.Iff"
  697. Data "Wavy_Robot.abk"
  698. Data "Anim 0,(1,10)(2,10)(3,10)(4,10)(5,10)(6,10)(5,10)(4,10)(3,10)(2,10)"
  699. Data 0,250,152
  700. Data "Design shapes and",40,1,15
  701. Data "learn how to program",70,1,15
  702. Data "in",100,1,15
  703. Data "ROBOT DRAW",130,9,15
  704. Data 3
  705. Data "Dbase.Iff"
  706. Data "Robot_Twist.Abk"
  707. Data "Anim 0,(1,30)(2,10)(3,10)(4,10)(5,10)(6,10)(7,10)(8,10)(1,30)(7,10)(6,10)(5,10)(4,10)(3,10)(2,10)"
  708. Data 30,290,167
  709. Data "Store information and",70,1,15
  710. Data "test yourself in",100,1,15
  711. Data "DATABASE",130,9,15
  712. AVAILABILITY_DATA:
  713. Data "Amiga","�24.99","","",""
  714. Data "Archimedes","�24.99","","",""
  715. Data "BBC B","","�16.99","�12.99",""
  716. Data "Commodore 64/128","","�16.99","�12.99",""
  717. Data "CPC","","","�12.99","�16.99"
  718. Data "Electron","","","�12.99",""
  719. Data "PCW","","","","�24.99"
  720. Data "PC","�24.99","�24.99","",""
  721. Data "Spectrum","","","�12.99","�16.99"
  722. Data "ST","�24.99","","",""