Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_5_scp.adf » !Wimp-2_Wimps » !NewApp/!Runimage
!NewApp/!Runimage
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 » archimedes_world_volume_15_issue_5_scp.adf » !Wimp-2_Wimps |
| Filename: | !NewApp/!Runimage |
| Read OK: | ✔ |
| File size: | 01A4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM> Prog2 for Just4Wimps 20 DIM block%100 30 SYS "Wimp_Initialise",200,&4B534154,"A multi-tasking program" TO ,TaskHandle% 40 REPEAT 50 SYS "Wimp_Poll",0,block%,0 TO Reason% 60 CASE Reason% OF 70 WHEN17,18:PROCMessage 80 ENDCASE 90 MOUSE X%,Y%,Z% 100 PROCProg 110 UNTIL Z%=5 OR N%=TRUE 120 SYS"Wimp_CloseDown",TaskHandle% 130 END 140 150 160 DEF PROCMessage 170 CASE block%!16 OF 180 WHEN 0:N%=TRUE 190 ENDCASE 200 ENDPROC 210 220 DEF PROCProg 230 VDU4 240 PRINT TAB(10,10)TIME$ 250 VDU5 260 ENDPROC
�> Prog2 for Just4Wimps � block%100 P ș "Wimp_Initialise",200,&4B534154,"A multi-tasking program" � ,TaskHandle% ( � 2( ș "Wimp_Poll",0,block%,0 � Reason% < Ȏ Reason% � F �17,18:�Message P � Z ȗ X%,Y%,Z% d �Prog n � Z%=5 � N%=� x# ș"Wimp_CloseDown",TaskHandle% � � � � � � �Message � Ȏ block%!16 � � � 0:N%=� � � � � � � � �Prog � �4 � � �10,10)�$ � �5 � �
00000000 0d 00 0a 1c 20 f4 3e 20 50 72 6f 67 32 20 66 6f |.... .> Prog2 fo| 00000010 72 20 4a 75 73 74 34 57 69 6d 70 73 0d 00 14 10 |r Just4Wimps....| 00000020 20 de 20 62 6c 6f 63 6b 25 31 30 30 0d 00 1e 50 | . block%100...P| 00000030 20 c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 | .. "Wimp_Initia| 00000040 6c 69 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 |lise",200,&4B534| 00000050 31 35 34 2c 22 41 20 6d 75 6c 74 69 2d 74 61 73 |154,"A multi-tas| 00000060 6b 69 6e 67 20 70 72 6f 67 72 61 6d 22 20 b8 20 |king program" . | 00000070 2c 54 61 73 6b 48 61 6e 64 6c 65 25 0d 00 28 06 |,TaskHandle%..(.| 00000080 20 f5 0d 00 32 28 20 c8 99 20 22 57 69 6d 70 5f | ...2( .. "Wimp_| 00000090 50 6f 6c 6c 22 2c 30 2c 62 6c 6f 63 6b 25 2c 30 |Poll",0,block%,0| 000000a0 20 b8 20 52 65 61 73 6f 6e 25 0d 00 3c 11 20 c8 | . Reason%..<. .| 000000b0 8e 20 52 65 61 73 6f 6e 25 20 ca 0d 00 46 14 20 |. Reason% ...F. | 000000c0 c9 31 37 2c 31 38 3a f2 4d 65 73 73 61 67 65 0d |.17,18:.Message.| 000000d0 00 50 06 20 cb 0d 00 5a 10 20 c8 97 20 58 25 2c |.P. ...Z. .. X%,| 000000e0 59 25 2c 5a 25 0d 00 64 0a 20 f2 50 72 6f 67 0d |Y%,Z%..d. .Prog.| 000000f0 00 6e 12 20 fd 20 5a 25 3d 35 20 84 20 4e 25 3d |.n. . Z%=5 . N%=| 00000100 b9 0d 00 78 23 20 c8 99 22 57 69 6d 70 5f 43 6c |...x# .."Wimp_Cl| 00000110 6f 73 65 44 6f 77 6e 22 2c 54 61 73 6b 48 61 6e |oseDown",TaskHan| 00000120 64 6c 65 25 0d 00 82 06 20 e0 0d 00 8c 05 20 0d |dle%.... ..... .| 00000130 00 96 04 0d 00 a0 0f 20 dd 20 f2 4d 65 73 73 61 |....... . .Messa| 00000140 67 65 0d 00 aa 13 20 c8 8e 20 62 6c 6f 63 6b 25 |ge.... .. block%| 00000150 21 31 36 20 ca 0d 00 b4 0d 20 c9 20 30 3a 4e 25 |!16 ..... . 0:N%| 00000160 3d b9 0d 00 be 06 20 cb 0d 00 c8 06 20 e1 0d 00 |=..... ..... ...| 00000170 d2 04 0d 00 dc 0c 20 dd 20 f2 50 72 6f 67 0d 00 |...... . .Prog..| 00000180 e6 07 20 ef 34 0d 00 f0 10 20 f1 20 8a 31 30 2c |.. .4.... . .10,| 00000190 31 30 29 91 24 0d 00 fa 07 20 ef 35 0d 01 04 06 |10).$.... .5....| 000001a0 20 e1 0d ff | ...| 000001a4
.