Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/BasicComp/!BC/Examples/Wimp/Special

!AWFeb95/Goodies/BasicComp/!BC/Examples/Wimp/Special

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95
Filename: !AWFeb95/Goodies/BasicComp/!BC/Examples/Wimp/Special
Read OK:
File size: 03E0 bytes
Load address: 0000
Exec address: 0000
File contents
| List of all "special" Basic routines in <BasicV$Lib>.Wimp
| Various "real" examples

procedure _Claim_RAM_Load(0)
  function _RAM_Load_\0
  function _RAM_Load_Completed_\0
  function _RAM_Load_Failed_\0
  function _RAM_Load_
  function _RAM_Load_Completed_
  function _RAM_Load_Failed_

procedure _Claim_RAM_Save(0)
  function _RAM_Save_\0
  function _RAM_Save_Failed_\0
  function _RAM_Save_
  function _RAM_Save_Failed_

procedure _Claim_Null_Reason(0)
  function _Null_Reason_\0
  function _Null_Reason_

procedure _DragScrollWindow(,,,,,,,,0)
  function _Dragged_\0
  function _Dragged_ScrollWindow

procedure _DragBoxScrollWindow(,,,,,,,,,,,,,,,0)
  function _Dragged_\0
  function _Dragged_BoxScrollWindow

procedure _Initiate_Drag(,,,0)
  function _Dragged_\0

function  _Load_Template_Extra(,,,0)
  function \0

procedure _Message_RAM_Fetch()
  integer RAM_start
  integer RAM_length

procedure _RAM_Load()
  integer RAM_start

procedure _Stop_Action(,0)
  function _Stop_Action_\0
00000000  7c 20 4c 69 73 74 20 6f  66 20 61 6c 6c 20 22 73  || List of all "s|
00000010  70 65 63 69 61 6c 22 20  42 61 73 69 63 20 72 6f  |pecial" Basic ro|
00000020  75 74 69 6e 65 73 20 69  6e 20 3c 42 61 73 69 63  |utines in <Basic|
00000030  56 24 4c 69 62 3e 2e 57  69 6d 70 0a 7c 20 56 61  |V$Lib>.Wimp.| Va|
00000040  72 69 6f 75 73 20 22 72  65 61 6c 22 20 65 78 61  |rious "real" exa|
00000050  6d 70 6c 65 73 0a 0a 70  72 6f 63 65 64 75 72 65  |mples..procedure|
00000060  20 5f 43 6c 61 69 6d 5f  52 41 4d 5f 4c 6f 61 64  | _Claim_RAM_Load|
00000070  28 30 29 0a 20 20 66 75  6e 63 74 69 6f 6e 20 5f  |(0).  function _|
00000080  52 41 4d 5f 4c 6f 61 64  5f 5c 30 0a 20 20 66 75  |RAM_Load_\0.  fu|
00000090  6e 63 74 69 6f 6e 20 5f  52 41 4d 5f 4c 6f 61 64  |nction _RAM_Load|
000000a0  5f 43 6f 6d 70 6c 65 74  65 64 5f 5c 30 0a 20 20  |_Completed_\0.  |
000000b0  66 75 6e 63 74 69 6f 6e  20 5f 52 41 4d 5f 4c 6f  |function _RAM_Lo|
000000c0  61 64 5f 46 61 69 6c 65  64 5f 5c 30 0a 20 20 66  |ad_Failed_\0.  f|
000000d0  75 6e 63 74 69 6f 6e 20  5f 52 41 4d 5f 4c 6f 61  |unction _RAM_Loa|
000000e0  64 5f 0a 20 20 66 75 6e  63 74 69 6f 6e 20 5f 52  |d_.  function _R|
000000f0  41 4d 5f 4c 6f 61 64 5f  43 6f 6d 70 6c 65 74 65  |AM_Load_Complete|
00000100  64 5f 0a 20 20 66 75 6e  63 74 69 6f 6e 20 5f 52  |d_.  function _R|
00000110  41 4d 5f 4c 6f 61 64 5f  46 61 69 6c 65 64 5f 0a  |AM_Load_Failed_.|
00000120  0a 70 72 6f 63 65 64 75  72 65 20 5f 43 6c 61 69  |.procedure _Clai|
00000130  6d 5f 52 41 4d 5f 53 61  76 65 28 30 29 0a 20 20  |m_RAM_Save(0).  |
00000140  66 75 6e 63 74 69 6f 6e  20 5f 52 41 4d 5f 53 61  |function _RAM_Sa|
00000150  76 65 5f 5c 30 0a 20 20  66 75 6e 63 74 69 6f 6e  |ve_\0.  function|
00000160  20 5f 52 41 4d 5f 53 61  76 65 5f 46 61 69 6c 65  | _RAM_Save_Faile|
00000170  64 5f 5c 30 0a 20 20 66  75 6e 63 74 69 6f 6e 20  |d_\0.  function |
00000180  5f 52 41 4d 5f 53 61 76  65 5f 0a 20 20 66 75 6e  |_RAM_Save_.  fun|
00000190  63 74 69 6f 6e 20 5f 52  41 4d 5f 53 61 76 65 5f  |ction _RAM_Save_|
000001a0  46 61 69 6c 65 64 5f 0a  0a 70 72 6f 63 65 64 75  |Failed_..procedu|
000001b0  72 65 20 5f 43 6c 61 69  6d 5f 4e 75 6c 6c 5f 52  |re _Claim_Null_R|
000001c0  65 61 73 6f 6e 28 30 29  0a 20 20 66 75 6e 63 74  |eason(0).  funct|
000001d0  69 6f 6e 20 5f 4e 75 6c  6c 5f 52 65 61 73 6f 6e  |ion _Null_Reason|
000001e0  5f 5c 30 0a 20 20 66 75  6e 63 74 69 6f 6e 20 5f  |_\0.  function _|
000001f0  4e 75 6c 6c 5f 52 65 61  73 6f 6e 5f 0a 0a 70 72  |Null_Reason_..pr|
00000200  6f 63 65 64 75 72 65 20  5f 44 72 61 67 53 63 72  |ocedure _DragScr|
00000210  6f 6c 6c 57 69 6e 64 6f  77 28 2c 2c 2c 2c 2c 2c  |ollWindow(,,,,,,|
00000220  2c 2c 30 29 0a 20 20 66  75 6e 63 74 69 6f 6e 20  |,,0).  function |
00000230  5f 44 72 61 67 67 65 64  5f 5c 30 0a 20 20 66 75  |_Dragged_\0.  fu|
00000240  6e 63 74 69 6f 6e 20 5f  44 72 61 67 67 65 64 5f  |nction _Dragged_|
00000250  53 63 72 6f 6c 6c 57 69  6e 64 6f 77 0a 0a 70 72  |ScrollWindow..pr|
00000260  6f 63 65 64 75 72 65 20  5f 44 72 61 67 42 6f 78  |ocedure _DragBox|
00000270  53 63 72 6f 6c 6c 57 69  6e 64 6f 77 28 2c 2c 2c  |ScrollWindow(,,,|
00000280  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 30 29 0a 20  |,,,,,,,,,,,,0). |
00000290  20 66 75 6e 63 74 69 6f  6e 20 5f 44 72 61 67 67  | function _Dragg|
000002a0  65 64 5f 5c 30 0a 20 20  66 75 6e 63 74 69 6f 6e  |ed_\0.  function|
000002b0  20 5f 44 72 61 67 67 65  64 5f 42 6f 78 53 63 72  | _Dragged_BoxScr|
000002c0  6f 6c 6c 57 69 6e 64 6f  77 0a 0a 70 72 6f 63 65  |ollWindow..proce|
000002d0  64 75 72 65 20 5f 49 6e  69 74 69 61 74 65 5f 44  |dure _Initiate_D|
000002e0  72 61 67 28 2c 2c 2c 30  29 0a 20 20 66 75 6e 63  |rag(,,,0).  func|
000002f0  74 69 6f 6e 20 5f 44 72  61 67 67 65 64 5f 5c 30  |tion _Dragged_\0|
00000300  0a 0a 66 75 6e 63 74 69  6f 6e 20 20 5f 4c 6f 61  |..function  _Loa|
00000310  64 5f 54 65 6d 70 6c 61  74 65 5f 45 78 74 72 61  |d_Template_Extra|
00000320  28 2c 2c 2c 30 29 0a 20  20 66 75 6e 63 74 69 6f  |(,,,0).  functio|
00000330  6e 20 5c 30 0a 0a 70 72  6f 63 65 64 75 72 65 20  |n \0..procedure |
00000340  5f 4d 65 73 73 61 67 65  5f 52 41 4d 5f 46 65 74  |_Message_RAM_Fet|
00000350  63 68 28 29 0a 20 20 69  6e 74 65 67 65 72 20 52  |ch().  integer R|
00000360  41 4d 5f 73 74 61 72 74  0a 20 20 69 6e 74 65 67  |AM_start.  integ|
00000370  65 72 20 52 41 4d 5f 6c  65 6e 67 74 68 0a 0a 70  |er RAM_length..p|
00000380  72 6f 63 65 64 75 72 65  20 5f 52 41 4d 5f 4c 6f  |rocedure _RAM_Lo|
00000390  61 64 28 29 0a 20 20 69  6e 74 65 67 65 72 20 52  |ad().  integer R|
000003a0  41 4d 5f 73 74 61 72 74  0a 0a 70 72 6f 63 65 64  |AM_start..proced|
000003b0  75 72 65 20 5f 53 74 6f  70 5f 41 63 74 69 6f 6e  |ure _Stop_Action|
000003c0  28 2c 30 29 0a 20 20 66  75 6e 63 74 69 6f 6e 20  |(,0).  function |
000003d0  5f 53 74 6f 70 5f 41 63  74 69 6f 6e 5f 5c 30 0a  |_Stop_Action_\0.|
000003e0