Home » Archimedes archive » Micro User » MU 1990-05.adf » L-1-VI
L-1-VI
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 » Micro User » MU 1990-05.adf |
| Filename: | L-1-VI |
| Read OK: | ✔ |
| File size: | 0203 bytes |
| Load address: | FFF00043 |
| Exec address: | 6D39B3BC |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Micro User » MU 1990-05.adf » L-1-VI
- AEW website » mu » mu_5_25_discs_Micro_User_08_03_D-MU08_03.ssd » L-1-VI
File contents
1 REM Listing VI
2 REM By Glenn Marshall
3 REM (C) The Micro User
4 :
1270 PRINT TAB(0,0);"waiting..."
1280 PRINT TAB(10,13);"SPRITES WITH RESTORE"
1290 PRINT TAB(15,14);"FACILITIES"
1300 A=GET
1310 ?X1=15:?X2=4:?Y1=100:?Y2=19
1320 ?pass=0
1330 ?coll=calculator_icon MOD 256
1340 ?colh=calculator_icon DIV 256
1350 ?stl=&00:?sth=&10
1360 CALL sprite
1370 A=GET
1380 ?X1=20:?X2=4:?Y1=100:?Y2=19
1390 ?coll=calculator_icon MOD 256
1400 ?colh=calculator_icon DIV 256
1410 CALL sprite
1420 A=GET
1430 ?pass=128
1440 CALL sprite
1450 A=GET
1460 ?stl=&00:?sth=&30
1470 CALL sprite
� Listing VI � By Glenn Marshall � (C) The Micro User : � � �0,0);"waiting..." % � �10,13);"SPRITES WITH RESTORE" � �15,14);"FACILITIES" A=� ?X1=15:?X2=4:?Y1=100:?Y2=19 ( ?pass=0 2 ?coll=calculator_icon � 256 < ?colh=calculator_icon � 256 F ?stl=&00:?sth=&10 P � sprite Z A=� d ?X1=20:?X2=4:?Y1=100:?Y2=19 n ?coll=calculator_icon � 256 x ?colh=calculator_icon � 256 � � sprite � A=� � ?pass=128 � � sprite � A=� � ?stl=&00:?sth=&30 � � sprite �
00000000 0d 00 01 13 20 f4 20 20 20 4c 69 73 74 69 6e 67 |.... . Listing| 00000010 20 56 49 0d 00 02 1a 20 f4 20 20 20 42 79 20 47 | VI.... . By G| 00000020 6c 65 6e 6e 20 4d 61 72 73 68 61 6c 6c 0d 00 03 |lenn Marshall...| 00000030 1b 20 f4 20 20 20 28 43 29 20 54 68 65 20 4d 69 |. . (C) The Mi| 00000040 63 72 6f 20 55 73 65 72 0d 00 04 06 20 3a 0d 04 |cro User.... :..| 00000050 f6 19 20 f1 20 8a 30 2c 30 29 3b 22 77 61 69 74 |.. . .0,0);"wait| 00000060 69 6e 67 2e 2e 2e 22 0d 05 00 25 20 f1 20 8a 31 |ing..."...% . .1| 00000070 30 2c 31 33 29 3b 22 53 50 52 49 54 45 53 20 57 |0,13);"SPRITES W| 00000080 49 54 48 20 52 45 53 54 4f 52 45 22 0d 05 0a 1b |ITH RESTORE"....| 00000090 20 f1 20 8a 31 35 2c 31 34 29 3b 22 46 41 43 49 | . .15,14);"FACI| 000000a0 4c 49 54 49 45 53 22 0d 05 14 08 20 41 3d a5 0d |LITIES".... A=..| 000000b0 05 1e 20 20 3f 58 31 3d 31 35 3a 3f 58 32 3d 34 |.. ?X1=15:?X2=4| 000000c0 3a 3f 59 31 3d 31 30 30 3a 3f 59 32 3d 31 39 0d |:?Y1=100:?Y2=19.| 000000d0 05 28 0c 20 3f 70 61 73 73 3d 30 0d 05 32 20 20 |.(. ?pass=0..2 | 000000e0 3f 63 6f 6c 6c 3d 63 61 6c 63 75 6c 61 74 6f 72 |?coll=calculator| 000000f0 5f 69 63 6f 6e 20 83 20 32 35 36 0d 05 3c 20 20 |_icon . 256..< | 00000100 3f 63 6f 6c 68 3d 63 61 6c 63 75 6c 61 74 6f 72 |?colh=calculator| 00000110 5f 69 63 6f 6e 20 81 20 32 35 36 0d 05 46 16 20 |_icon . 256..F. | 00000120 3f 73 74 6c 3d 26 30 30 3a 3f 73 74 68 3d 26 31 |?stl=&00:?sth=&1| 00000130 30 0d 05 50 0d 20 d6 20 73 70 72 69 74 65 0d 05 |0..P. . sprite..| 00000140 5a 08 20 41 3d a5 0d 05 64 20 20 3f 58 31 3d 32 |Z. A=...d ?X1=2| 00000150 30 3a 3f 58 32 3d 34 3a 3f 59 31 3d 31 30 30 3a |0:?X2=4:?Y1=100:| 00000160 3f 59 32 3d 31 39 0d 05 6e 20 20 3f 63 6f 6c 6c |?Y2=19..n ?coll| 00000170 3d 63 61 6c 63 75 6c 61 74 6f 72 5f 69 63 6f 6e |=calculator_icon| 00000180 20 83 20 32 35 36 0d 05 78 20 20 3f 63 6f 6c 68 | . 256..x ?colh| 00000190 3d 63 61 6c 63 75 6c 61 74 6f 72 5f 69 63 6f 6e |=calculator_icon| 000001a0 20 81 20 32 35 36 0d 05 82 0d 20 d6 20 73 70 72 | . 256.... . spr| 000001b0 69 74 65 0d 05 8c 08 20 41 3d a5 0d 05 96 0e 20 |ite.... A=..... | 000001c0 3f 70 61 73 73 3d 31 32 38 0d 05 a0 0d 20 d6 20 |?pass=128.... . | 000001d0 73 70 72 69 74 65 0d 05 aa 08 20 41 3d a5 0d 05 |sprite.... A=...| 000001e0 b4 16 20 3f 73 74 6c 3d 26 30 30 3a 3f 73 74 68 |.. ?stl=&00:?sth| 000001f0 3d 26 33 30 0d 05 be 0d 20 d6 20 73 70 72 69 74 |=&30.... . sprit| 00000200 65 0d ff |e..| 00000203
.