Home » Personal collection » Acorn tapes » Commercial_Releases » box06_tape05b_acorn_amx_mouse.wav » DEMO_2
DEMO_2
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 » Personal collection » Acorn tapes » Commercial_Releases » box06_tape05b_acorn_amx_mouse.wav |
| Filename: | DEMO_2 |
| Read OK: | ✔ |
| File size: | 0185 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » acp_pres » acp_pres_5_25_discs_Amx-Art_D-AMXA.ssd » DEMO_2
- Personal collection » Acorn tapes » Commercial_Releases » box06_tape05b_acorn_amx_mouse.wav » DEMO_2
File contents
10REM Program to print a windows on a grey Desk
20
30MODE 4
40*DESK
50
60REPEAT
70 Lx$=STR$(RND(15))
80 By$=STR$(RND(15)+15)
90 Rx$=STR$(RND(18)+20)
100 Ty$=STR$(RND(15))
110 PROCoscli("WINDOW "+Lx$+","+By$+","+Rx$+","+Ty$)
120 A=INKEY(50)
130 IF RND(5)=1 THEN *DESK
140UNTIL FALSE
150
160REM PROCoscli(A$) simulates the Basic II OSCLI command.
170
180DEF PROCoscli(A$)
190 LOCAL X%,Y%
200 $&700=A$:X%=0:Y%=&7:CALL &FFF7
210ENDPROC
2� Program to print a windows on a grey Desk
� 4
( *DESK
2
<�
F Lx$=�(�(15))
P By$=�(�(15)+15)
Z Rx$=�(�(18)+20)
d Ty$=�(�(15))
n3 �oscli("WINDOW "+Lx$+","+By$+","+Rx$+","+Ty$)
x
A=�(50)
� � �(5)=1 � *DESK
�� �
�
�:� PROCoscli(A$) simulates the Basic II OSCLI command.
�
�� �oscli(A$)
�
� X%,Y%
�! $&700=A$:X%=0:Y%=&7:� &FFF7
��
� 00000000 0d 00 0a 32 f4 20 20 20 20 50 72 6f 67 72 61 6d |...2. Program|
00000010 20 74 6f 20 70 72 69 6e 74 20 61 20 77 69 6e 64 | to print a wind|
00000020 6f 77 73 20 6f 6e 20 61 20 67 72 65 79 20 44 65 |ows on a grey De|
00000030 73 6b 0d 00 14 05 20 0d 00 1e 07 eb 20 34 0d 00 |sk.... ..... 4..|
00000040 28 09 2a 44 45 53 4b 0d 00 32 05 20 0d 00 3c 05 |(.*DESK..2. ..<.|
00000050 f5 0d 00 46 12 20 20 4c 78 24 3d c3 28 b3 28 31 |...F. Lx$=.(.(1|
00000060 35 29 29 0d 00 50 15 20 20 42 79 24 3d c3 28 b3 |5))..P. By$=.(.|
00000070 28 31 35 29 2b 31 35 29 0d 00 5a 15 20 20 52 78 |(15)+15)..Z. Rx|
00000080 24 3d c3 28 b3 28 31 38 29 2b 32 30 29 0d 00 64 |$=.(.(18)+20)..d|
00000090 12 20 20 54 79 24 3d c3 28 b3 28 31 35 29 29 0d |. Ty$=.(.(15)).|
000000a0 00 6e 33 20 20 f2 6f 73 63 6c 69 28 22 57 49 4e |.n3 .oscli("WIN|
000000b0 44 4f 57 20 22 2b 4c 78 24 2b 22 2c 22 2b 42 79 |DOW "+Lx$+","+By|
000000c0 24 2b 22 2c 22 2b 52 78 24 2b 22 2c 22 2b 54 79 |$+","+Rx$+","+Ty|
000000d0 24 29 0d 00 78 0d 20 20 41 3d a6 28 35 30 29 0d |$)..x. A=.(50).|
000000e0 00 82 16 20 20 e7 20 b3 28 35 29 3d 31 20 8c 20 |... . .(5)=1 . |
000000f0 2a 44 45 53 4b 0d 00 8c 07 fd 20 a3 0d 00 96 05 |*DESK..... .....|
00000100 20 0d 00 a0 3a f4 20 20 50 52 4f 43 6f 73 63 6c | ...:. PROCoscl|
00000110 69 28 41 24 29 20 73 69 6d 75 6c 61 74 65 73 20 |i(A$) simulates |
00000120 74 68 65 20 42 61 73 69 63 20 49 49 20 4f 53 43 |the Basic II OSC|
00000130 4c 49 20 63 6f 6d 6d 61 6e 64 2e 0d 00 aa 05 20 |LI command..... |
00000140 0d 00 b4 10 dd 20 f2 6f 73 63 6c 69 28 41 24 29 |..... .oscli(A$)|
00000150 0d 00 be 0d 20 20 ea 20 58 25 2c 59 25 0d 00 c8 |.... . X%,Y%...|
00000160 21 20 20 24 26 37 30 30 3d 41 24 3a 58 25 3d 30 |! $&700=A$:X%=0|
00000170 3a 59 25 3d 26 37 3a d6 20 26 46 46 46 37 0d 00 |:Y%=&7:. &FFF7..|
00000180 d2 05 e1 0d ff |.....|
00000185 
.