home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / dreamersmag.amos / dreamersmag.amosSourceCode < prev    next >
AMOS Source Code  |  1986-08-03  |  13KB  |  518 lines
  1. MEMCHECK
  2. Procedure MEMCHECK
  3.    Close Workbench 
  4.    If Chip Free>250000
  5.       Load "Dreamers3:Mag.Files/music.mag" : Led Off : Music 1 : Tempo 17 : PAUL
  6.    Else 
  7.       PAUL
  8.    End If 
  9. End Proc
  10. Procedure PAUL
  11. INITIALIZE:
  12.    Hide On 
  13.    Load "Dreamers3:Mag.Files/lo",10
  14.    Unpack 10 To 0 : Erase 10
  15.    Screen Display 0,112+16,-100,340,84
  16.    '
  17.    Load "Dreamers3:Mag.Files/db",10
  18.    Unpack 10 To 2 : Erase 10
  19.    Screen Display 2,112+16,320,320,80
  20.    '
  21.    Unpack 11 To 1
  22.    Screen Display 1,112,120,640,125
  23.    Gr Writing 0 : Ink 3
  24.    Text 280,65,"Written by the ED"
  25.    Text 300,50,"Dreamers Mag"
  26.    Change Mouse 2
  27.    Screen 1 : Limit Mouse 127,250 To 448,290
  28.    Wait 150
  29.    Goto MOTION
  30. '
  31. MAGPAGE:
  32.    Screen 1
  33.    Unpack 11,0,0
  34.    Palette $400,$700,$300
  35.    Screen Display 1,112,120,640,125
  36.    Flash 3,"(400,20)(aaa,20)"
  37.    Gr Writing 0 : Ink 3
  38.    Wait 10
  39.    Text 300,55,"Press an Icon"
  40.    Goto ZO
  41. '
  42. ZO:
  43.    Screen 2
  44.    Reserve Zone 20
  45.    Set Zone 1,5,6 To 20,19 : Set Zone 2,27,6 To 42,19 : Set Zone 3,49,6 To 66,19 : Set Zone 4,72,6 To 88,19
  46.    Set Zone 5,95,6 To 110,19 : Set Zone 6,119,6 To 134,19 : Set Zone 7,141,6 To 156,19 : Set Zone 8,165,6 To 180,19
  47.    Set Zone 9,187,6 To 202,19 : Set Zone 10,5,24 To 20,40 : Set Zone 11,27,24 To 42,40 : Set Zone 12,49,24 To 64,40
  48.    Set Zone 13,72,24 To 88,40 : Set Zone 14,95,24 To 110,40 : Set Zone 15,119,24 To 134,40 : Set Zone 16,141,24 To 156,40
  49.    Set Zone 17,165,24 To 180,40 : Set Zone 18,187,24 To 202,40 : Set Zone 19,220,10 To 265,35 : Set Zone 20,280,10 To 308,35
  50.    Do 
  51.       M=Mouse Key
  52.       MZ=Mouse Zone
  53.       If M=1 and MZ=1
  54.          Goto PAGE1
  55.       End If 
  56.       If M=1 and MZ=2
  57.          Goto PAGE2
  58.       End If 
  59.       If M=1 and MZ=3
  60.          Goto PAGE3
  61.       End If 
  62.       If M=1 and MZ=4
  63.          Goto PAGE4
  64.       End If 
  65.       If M=1 and MZ=5
  66.          Goto PAGE5
  67.       End If 
  68.       If M=1 and MZ=6
  69.          Goto PAGE6
  70.       End If 
  71.       If M=1 and MZ=7
  72.          Goto PAGE7
  73.       End If 
  74.       If M=1 and MZ=8
  75.          Goto PAGE8
  76.       End If 
  77.       If M=1 and MZ=9
  78.          Goto PAGE9
  79.       End If 
  80.       If M=1 and MZ=10
  81.          Goto PAGE10
  82.       End If 
  83.       If M=1 and MZ=11
  84.          Goto PAGE11
  85.       End If 
  86.       If M=1 and MZ=12
  87.          Goto PAGE12
  88.       End If 
  89.       If M=1 and MZ=13
  90.          Goto PAGE13
  91.       End If 
  92.       If M=1 and MZ=14
  93.          Goto PIC
  94.       End If 
  95.       If M=1 and MZ=19
  96.          Goto PAGE19
  97.       End If 
  98.       If M=1 and MZ=20
  99.          Goto PAGE20
  100.       End If 
  101.    Loop 
  102. '
  103. MOTIONPAGE:
  104.    Channel 3 To Screen Display 1
  105.    P$="M 0,-126,126"
  106.    Amal 3,P$
  107.    Amal On 
  108.    Wait 126
  109.    Return 
  110. '
  111. MOTION:
  112.    Channel 0 To Screen Display 0 : Channel 2 To Screen Display 2
  113.    D$="M 0,133,60"
  114.    B$="M 0,-70,60"
  115.    Amal 0,D$
  116.    Amal 2,B$
  117.    Amal On 
  118.    Wait 60
  119.    Show 
  120.    Screen 1
  121.    Load "Dreamers3:Mag.Files/?1",10
  122.    Fade 5 : Wait 75 : Screen Close 1
  123.    Unpack 10 To 1 : Erase 10
  124.    Screen Display 1,140,117,,
  125.    Screen To Back 1
  126.    Repeat : Until Mouse Key=1
  127.    Gosub MOTIONPAGE
  128.    Repeat : Until Mouse Key=1
  129.    Goto PAGE1
  130. '
  131. PAGE1:
  132.    Screen 1
  133.    Load "Dreamers3:Mag.Files/db.ins",10
  134.    Fade 5 : Wait 75 : Screen Close 1
  135.    Unpack 10 To 1 : Erase 10
  136.    Screen Display 1,140,117,,
  137.    Screen To Back 1
  138.    Repeat : Until Mouse Key=1
  139.     Gosub MOTIONPAGE
  140.    Repeat : Until Mouse Key=1
  141.    Fade 5 : Wait 75 : Screen Close 1
  142.    Screen Open 1,640,256,4,Hires
  143.    Screen To Back 1
  144.    Screen Display 1,112,120,640,125
  145.      Goto MAGPAGE
  146. '
  147. PAGE2:
  148.    Screen 1
  149.    Load "Dreamers3:Mag.Files/NEWS1",10
  150.    Fade 5 : Wait 75 : Screen Close 1
  151.    Unpack 10 To 1 : Erase 10
  152.    Screen Display 1,140,117,,
  153.    Screen To Back 1
  154.    Repeat : Until Mouse Key=1
  155.     Gosub MOTIONPAGE
  156.    Repeat : Until Mouse Key=1
  157.    Load "Dreamers3:Mag.Files/NEWS2",10
  158.    Fade 5 : Wait 75 : Screen Close 1
  159.    Unpack 10 To 1 : Erase 10
  160.    Screen Display 1,140,117,,
  161.    Screen To Back 1
  162.    Repeat : Until Mouse Key=1
  163.     Gosub MOTIONPAGE
  164.    Repeat : Until Mouse Key=1
  165.    Fade 5 : Wait 75 : Screen Close 1
  166.    Screen Open 1,640,256,4,Hires
  167.    Screen To Back 1
  168.    Screen Display 1,112,120,640,125
  169.      Goto MAGPAGE
  170. '
  171. PAGE3:
  172.    Screen 1
  173.    Load "Dreamers3:Mag.Files/PRE1",10
  174.    Fade 5 : Wait 75 : Screen Close 1
  175.    Unpack 10 To 1 : Erase 10
  176.    Screen Display 1,140,117,,
  177.    Screen To Back 1
  178.    Repeat : Until Mouse Key=1
  179.     Gosub MOTIONPAGE
  180.    Repeat : Until Mouse Key=1
  181.    Load "Dreamers3:Mag.Files/PRE2",10
  182.    Fade 5 : Wait 75 : Screen Close 1
  183.    Unpack 10 To 1 : Erase 10
  184.    Screen Display 1,140,117,,
  185.    Screen To Back 1
  186.    Repeat : Until Mouse Key=1
  187.     Gosub MOTIONPAGE
  188.    Repeat : Until Mouse Key=1
  189.    Load "Dreamers3:Mag.Files/PRE3",10
  190.    Fade 5 : Wait 75 : Screen Close 1
  191.    Unpack 10 To 1 : Erase 10
  192.    Screen Display 1,140,117,,
  193.    Screen To Back 1
  194.    Repeat : Until Mouse Key=1
  195.     Gosub MOTIONPAGE
  196.    Repeat : Until Mouse Key=1
  197.    Fade 5 : Wait 75 : Screen Close 1
  198.    Screen Open 1,640,256,4,Hires
  199.    Screen To Back 1
  200.    Screen Display 1,112,120,640,125
  201.      Goto MAGPAGE
  202. '
  203. PAGE4:
  204.    Screen 1
  205.    Load "Dreamers3:Mag.Files/REV1",10
  206.    Fade 5 : Wait 75 : Screen Close 1
  207.    Unpack 10 To 1 : Erase 10
  208.    Screen Display 1,140,117,,
  209.    Screen To Back 1
  210.    Repeat : Until Mouse Key=1
  211.     Gosub MOTIONPAGE
  212.    Repeat : Until Mouse Key=1
  213.    Load "Dreamers3:Mag.Files/REV2",10
  214.    Fade 5 : Wait 75 : Screen Close 1
  215.    Unpack 10 To 1 : Erase 10
  216.    Screen Display 1,140,117,,
  217.    Screen To Back 1
  218.    Repeat : Until Mouse Key=1
  219.     Gosub MOTIONPAGE
  220.    Repeat : Until Mouse Key=1
  221.    Load "Dreamers3:Mag.Files/REV3",10
  222.    Fade 5 : Wait 75 : Screen Close 1
  223.    Unpack 10 To 1 : Erase 10
  224.    Screen Display 1,140,119,,
  225.    Screen To Back 1
  226.    Repeat : Until Mouse Key=1
  227.     Gosub MOTIONPAGE
  228.    Repeat : Until Mouse Key=1
  229.    Screen 1
  230.    Load "Dreamers3:Mag.Files/REV4",10
  231.    Fade 5 : Wait 75 : Screen Close 1
  232.    Unpack 10 To 1 : Erase 10
  233.    Screen Display 1,140,119,,
  234.    Screen To Back 1
  235.    Repeat : Until Mouse Key=1
  236.     Gosub MOTIONPAGE
  237.    Repeat : Until Mouse Key=1
  238.    Load "Dreamers3:Mag.Files/REV5",10
  239.    Fade 5 : Wait 75 : Screen Close 1
  240.    Unpack 10 To 1 : Erase 10
  241.    Screen Display 1,140,119,,
  242.    Screen To Back 1
  243.    Repeat : Until Mouse Key=1
  244.     Gosub MOTIONPAGE
  245.    Repeat : Until Mouse Key=1
  246.    Load "Dreamers3:Mag.Files/REV6",10
  247.    Fade 5 : Wait 75 : Screen Close 1
  248.    Unpack 10 To 1 : Erase 10
  249.    Screen Display 1,140,117,,
  250.    Screen To Back 1
  251.    Repeat : Until Mouse Key=1
  252.     Gosub MOTIONPAGE
  253.    Repeat : Until Mouse Key=1
  254.    Fade 5 : Wait 75 : Screen Close 1
  255.    Screen Open 1,640,256,4,Hires
  256.    Screen To Back 1
  257.    Screen Display 1,112,120,640,125
  258.      Goto MAGPAGE
  259. '
  260. PAGE5:
  261.    Screen 1
  262.    Load "Dreamers3:Mag.Files/MEM1",10
  263.    Fade 5 : Wait 75 : Screen Close 1
  264.    Unpack 10 To 1 : Erase 10
  265.    Screen Display 1,140,117,,
  266.    Screen To Back 1
  267.    Repeat : Until Mouse Key=1
  268.     Gosub MOTIONPAGE
  269.    Repeat : Until Mouse Key=1
  270.    Load "Dreamers3:Mag.Files/MEM2",10
  271.    Fade 5 : Wait 75 : Screen Close 1
  272.    Unpack 10 To 1 : Erase 10
  273.    Screen Display 1,140,117,,
  274.    Screen To Back 1
  275.    Repeat : Until Mouse Key=1
  276.     Gosub MOTIONPAGE
  277.    Repeat : Until Mouse Key=1
  278.    Fade 5 : Wait 75 : Screen Close 1
  279.    Screen Open 1,640,256,4,Hires
  280.    Screen To Back 1
  281.    Screen Display 1,112,120,640,125
  282.      Goto MAGPAGE
  283. '
  284. PAGE6:
  285.    Screen 1
  286.    Load "Dreamers3:Mag.Files/PD1",10
  287.    Fade 5 : Wait 75 : Screen Close 1
  288.    Unpack 10 To 1 : Erase 10
  289.    Screen Display 1,140,117,,
  290.    Screen To Back 1
  291.    Repeat : Until Mouse Key=1
  292.     Gosub MOTIONPAGE
  293.    Repeat : Until Mouse Key=1
  294.    Load "Dreamers3:Mag.Files/PD2",10
  295.    Fade 5 : Wait 75 : Screen Close 1
  296.    Unpack 10 To 1 : Erase 10
  297.    Screen Display 1,140,117,,
  298.    Screen To Back 1
  299.    Repeat : Until Mouse Key=1
  300.     Gosub MOTIONPAGE
  301.    Repeat : Until Mouse Key=1
  302.    Fade 5 : Wait 75 : Screen Close 1
  303.    Screen Open 1,640,256,4,Hires
  304.    Screen To Back 1
  305.    Screen Display 1,112,120,640,125
  306.      Goto MAGPAGE
  307. '
  308. PAGE7:
  309.    Screen 1
  310.    Load "Dreamers3:Mag.Files/GC",10
  311.    Fade 5 : Wait 75 : Screen Close 1
  312.    Unpack 10 To 1 : Erase 10
  313.    Screen Display 1,140,119,,
  314.    Screen To Back 1
  315.    Repeat : Until Mouse Key=1
  316.     Gosub MOTIONPAGE
  317.    Repeat : Until Mouse Key=1
  318.    Fade 5 : Wait 75 : Screen Close 1
  319.    Screen Open 1,640,256,4,Hires
  320.    Screen To Back 1
  321.    Screen Display 1,112,120,640,125
  322.      Goto MAGPAGE
  323. '
  324. PAGE8:
  325.    Screen 1
  326.    Load "Dreamers3:Mag.Files/DTP1",10
  327.    Fade 5 : Wait 75 : Screen Close 1
  328.    Unpack 10 To 1 : Erase 10
  329.    Screen Display 1,140,117,,
  330.    Screen To Back 1
  331.    Repeat : Until Mouse Key=1
  332.     Gosub MOTIONPAGE
  333.    Repeat : Until Mouse Key=1
  334.    Load "Dreamers3:Mag.Files/DTP2",10
  335.    Fade 5 : Wait 75 : Screen Close 1
  336.    Unpack 10 To 1 : Erase 10
  337.    Screen Display 1,140,117,,
  338.    Screen To Back 1
  339.    Repeat : Until Mouse Key=1
  340.     Gosub MOTIONPAGE
  341.    Repeat : Until Mouse Key=1
  342.    Fade 5 : Wait 75 : Screen Close 1
  343.    Screen Open 1,640,256,4,Hires
  344.    Screen To Back 1
  345.    Screen Display 1,112,120,640,125
  346.      Goto MAGPAGE
  347. '
  348. PAGE9:
  349.    Screen 1
  350.    Load "Dreamers3:Mag.Files/MUS",10
  351.    Fade 5 : Wait 75 : Screen Close 1
  352.    Unpack 10 To 1 : Erase 10
  353.    Screen Display 1,140,119,,
  354.    Screen To Back 1
  355.    Repeat : Until Mouse Key=1
  356.     Gosub MOTIONPAGE
  357.    Repeat : Until Mouse Key=1
  358.    Fade 5 : Wait 75 : Screen Close 1
  359.    Screen Open 1,640,256,4,Hires
  360.    Screen To Back 1
  361.    Screen Display 1,112,120,640,125
  362.      Goto MAGPAGE
  363. '
  364. PAGE10:
  365.    Screen 1
  366.    Load "Dreamers3:Mag.Files/AN",10
  367.    Fade 5 : Wait 75 : Screen Close 1
  368.    Unpack 10 To 1 : Erase 10
  369.    Screen Display 1,140,119,,
  370.    Screen To Back 1
  371.    Repeat : Until Mouse Key=1
  372.     Gosub MOTIONPAGE
  373.    Repeat : Until Mouse Key=1
  374.    Fade 5 : Wait 75 : Screen Close 1
  375.    Screen Open 1,640,256,4,Hires
  376.    Screen To Back 1
  377.    Screen Display 1,112,120,640,125
  378.      Goto MAGPAGE
  379. '
  380. PAGE11:
  381.    Screen 1
  382.    Load "Dreamers3:Mag.Files/3D1",10
  383.    Fade 5 : Wait 75 : Screen Close 1
  384.    Unpack 10 To 1 : Erase 10
  385.    Screen Display 1,140,119,,
  386.    Screen To Back 1
  387.    Repeat : Until Mouse Key=1
  388.     Gosub MOTIONPAGE
  389.    Repeat : Until Mouse Key=1
  390.    Screen 1
  391.    Load "Dreamers3:Mag.Files/3D2",10
  392.    Fade 5 : Wait 75 : Screen Close 1
  393.    Unpack 10 To 1 : Erase 10
  394.    Screen Display 1,140,119,,
  395.    Screen To Back 1
  396.    Repeat : Until Mouse Key=1
  397.     Gosub MOTIONPAGE
  398.    Repeat : Until Mouse Key=1
  399.    Load "Dreamers3:Mag.Files/3D3",10
  400.    Fade 5 : Wait 75 : Screen Close 1
  401.    Unpack 10 To 1 : Erase 10
  402.    Screen Display 1,140,119,,
  403.    Screen To Back 1
  404.    Repeat : Until Mouse Key=1
  405.     Gosub MOTIONPAGE
  406.    Repeat : Until Mouse Key=1
  407.    Load "Dreamers3:Mag.Files/3D4",10
  408.    Fade 5 : Wait 75 : Screen Close 1
  409.    Unpack 10 To 1 : Erase 10
  410.    Screen Display 1,140,117,,
  411.    Screen To Back 1
  412.    Repeat : Until Mouse Key=1
  413.     Gosub MOTIONPAGE
  414.    Repeat : Until Mouse Key=1
  415.    Fade 5 : Wait 75 : Screen Close 1
  416.    Screen Open 1,640,256,4,Hires
  417.    Screen To Back 1
  418.    Screen Display 1,112,120,640,125
  419.      Goto MAGPAGE
  420. '
  421. PAGE12:
  422.    Screen 1
  423.    Load "Dreamers3:Mag.Files/DT",10
  424.    Fade 5 : Wait 75 : Screen Close 1
  425.    Unpack 10 To 1 : Erase 10
  426.    Screen Display 1,140,119,,
  427.    Screen To Back 1
  428.    Repeat : Until Mouse Key=1
  429.     Gosub MOTIONPAGE
  430.    Repeat : Until Mouse Key=1
  431.    Fade 5 : Wait 75 : Screen Close 1
  432.    Screen Open 1,640,256,4,Hires
  433.    Screen To Back 1
  434.    Screen Display 1,112,120,640,125
  435.      Goto MAGPAGE
  436. '
  437. PAGE13:
  438.    Screen 1
  439.    Load "Dreamers3:Mag.Files/TIPS",10
  440.    Fade 5 : Wait 75 : Screen Close 1
  441.    Unpack 10 To 1 : Erase 10
  442.    Screen Display 1,140,119,,
  443.    Screen To Back 1
  444.    Repeat : Until Mouse Key=1
  445.     Gosub MOTIONPAGE
  446.    Repeat : Until Mouse Key=1
  447.    Fade 5 : Wait 75 : Screen Close 1
  448.    Screen Open 1,640,256,4,Hires
  449.    Screen To Back 1
  450.    Screen Display 1,112,120,640,125
  451.      Goto MAGPAGE
  452. '
  453. PIC:
  454.    Screen 1
  455.    Unpack 11,0,0
  456.    Palette $400,$700,$300
  457.    Screen Display 1,112,120,640,125
  458.    Flash 3,"(aaa,20)(aaa,20)"
  459.    Gr Writing 0 : Ink 3
  460.    Wait 10
  461.    Text 170,50,"Pic of the Month by Andrew Dixon from Liverpool."
  462.    Text 155,65,"If you think you can do better, then send them in !"
  463.    Load "Dreamers3:Mag.Files/PIC",10
  464.    Wait 300
  465.    Fade 5 : Wait 75 : Screen Close 1
  466.    Hide 
  467.    Unpack 10 To 4 : Erase 10
  468.    Screen Display 4,140,-220,,
  469.    Channel 4 To Screen Display 4
  470.    Z$="M 0,260,260"
  471.    Amal 4,Z$
  472.    Amal On 
  473.    Wait 260
  474.    Repeat : Until Mouse Key=1
  475.    Screen 4
  476.    Y$="M 0,310,310"
  477.    Amal 4,Y$
  478.    Amal On 
  479.    Wait 310
  480.    Screen Close 4
  481.    Screen Open 1,640,256,4,Hires
  482.    Screen To Back 1
  483.    Screen Display 1,112,120,640,125
  484.    Show 
  485.      Goto MAGPAGE
  486. '
  487. PAGE19:
  488.    Screen 1
  489.    Load "Dreamers3:Mag.Files/LET",10
  490.    Fade 5 : Wait 75 : Screen Close 1
  491.    Unpack 10 To 1 : Erase 10
  492.    Screen Display 1,140,117,,
  493.    Screen To Back 1
  494.    Repeat : Until Mouse Key=1
  495.     Gosub MOTIONPAGE
  496.    Repeat : Until Mouse Key=1
  497.    Fade 5 : Wait 75 : Screen Close 1
  498.    Screen Open 1,640,256,4,Hires
  499.    Screen To Back 1
  500.    Screen Display 1,112,120,640,125
  501.      Goto MAGPAGE
  502. '
  503. PAGE20:
  504.    Screen 1
  505.    Load "Dreamers3:Mag.Files/ENDN",10
  506.    Fade 5 : Wait 75 : Screen Close 1
  507.    Unpack 10 To 1 : Erase 10
  508.    Screen Display 1,140,119,,
  509.    Screen To Back 1
  510.    Repeat : Until Mouse Key=1
  511.     Gosub MOTIONPAGE
  512.    Repeat : Until Mouse Key=1
  513.    Fade 5 : Wait 75 : Screen Close 1
  514.    Screen Open 1,640,256,4,Hires
  515.    Screen To Back 1
  516.    Screen Display 1,112,120,640,125
  517.      Goto MAGPAGE
  518. End Proc