Home » Archimedes archive » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo » Oneliners/Friction
Oneliners/Friction
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 » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo |
| Filename: | Oneliners/Friction |
| Read OK: | ✔ |
| File size: | 00F8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1END=PAGE+4095:DIMq&400:$q="TASK":MOUSEa,b,c:x=0:y=0:SYS"Wimp_Initialise",200,!q,"Friction":REPEATREPEATSYS"Wimp_Poll",,q TO r:x+=SGN(x)*(x<>0):y+=SGN(y)*(y<>0):d=a:e=b:MOUSEa,b,c:MOUSETOx+a,y+b:k=((r=17ORr=18)ANDq!16=0)OR(INKEY-3ANDINKEY-17):UNTILa<>d ORe<>b ORk:x=a-d:y=b-e:UNTILk:SYS"Wimp_CloseDown"
��=�+4095:�q&400:$q="TASK":ȗa,b,c:x=0:y=0:ș"Wimp_Initialise",200,!q,"Friction":��ș"Wimp_Poll",,q � r:x+=�(x)*(x<>0):y+=�(y)*(y<>0):d=a:e=b:ȗa,b,c:ȗ�x+a,y+b:k=((r=17�r=18)�q!16=0)�(�-3��-17):�a<>d �e<>b �k:x=a-d:y=b-e:�k:ș"Wimp_CloseDown" �
00000000 0d 00 01 f6 e0 3d 90 2b 34 30 39 35 3a de 71 26 |.....=.+4095:.q&| 00000010 34 30 30 3a 24 71 3d 22 54 41 53 4b 22 3a c8 97 |400:$q="TASK":..| 00000020 61 2c 62 2c 63 3a 78 3d 30 3a 79 3d 30 3a c8 99 |a,b,c:x=0:y=0:..| 00000030 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 |"Wimp_Initialise| 00000040 22 2c 32 30 30 2c 21 71 2c 22 46 72 69 63 74 69 |",200,!q,"Fricti| 00000050 6f 6e 22 3a f5 f5 c8 99 22 57 69 6d 70 5f 50 6f |on":...."Wimp_Po| 00000060 6c 6c 22 2c 2c 71 20 b8 20 72 3a 78 2b 3d b4 28 |ll",,q . r:x+=.(| 00000070 78 29 2a 28 78 3c 3e 30 29 3a 79 2b 3d b4 28 79 |x)*(x<>0):y+=.(y| 00000080 29 2a 28 79 3c 3e 30 29 3a 64 3d 61 3a 65 3d 62 |)*(y<>0):d=a:e=b| 00000090 3a c8 97 61 2c 62 2c 63 3a c8 97 b8 78 2b 61 2c |:..a,b,c:...x+a,| 000000a0 79 2b 62 3a 6b 3d 28 28 72 3d 31 37 84 72 3d 31 |y+b:k=((r=17.r=1| 000000b0 38 29 80 71 21 31 36 3d 30 29 84 28 a6 2d 33 80 |8).q!16=0).(.-3.| 000000c0 a6 2d 31 37 29 3a fd 61 3c 3e 64 20 84 65 3c 3e |.-17):.a<>d .e<>| 000000d0 62 20 84 6b 3a 78 3d 61 2d 64 3a 79 3d 62 2d 65 |b .k:x=a-d:y=b-e| 000000e0 3a fd 6b 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 |:.k:.."Wimp_Clos| 000000f0 65 44 6f 77 6e 22 0d ff |eDown"..| 000000f8
.