Home » Archimedes archive » Micro User » MU 1991-01.adf » PD-Stuff » !Bounce/CheckUp

!Bounce/CheckUp

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 1991-01.adf » PD-Stuff
Filename: !Bounce/CheckUp
Read OK:
File size: 0132 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > CheckUp
   20OSCLI("Set OK 0")
   30Fault=0
   40REM IF MODE<>15 THEN PRINT"Please change to Mode 15 before running the demo!":Fault=1
   50ON ERROR PRINT "Please leave a 132K block in RMA for the tune!":Fault=1:GOTO80
   60SYS "OS_Module",6,,,132*1024 TO ,,Place
   70SYS "OS_Module",7,,Place
   80IF Fault=0 THEN OSCLI("Set OK 1")
   90END

� > CheckUp
�("Set OK 0")
Fault=0
(W� IF MODE<>15 THEN PRINT"Please change to Mode 15 before running the demo!":Fault=1
2H� � � "Please leave a 132K block in RMA for the tune!":Fault=1:�DP@
<)ș "OS_Module",6,,,132*1024 � ,,Place
Fș "OS_Module",7,,Place
P� Fault=0 � �("Set OK 1")
Z�
�
00000000  0d 00 0a 0f f4 20 3e 20  43 68 65 63 6b 55 70 0d  |..... > CheckUp.|
00000010  00 14 11 ff 28 22 53 65  74 20 4f 4b 20 30 22 29  |....("Set OK 0")|
00000020  0d 00 1e 0b 46 61 75 6c  74 3d 30 0d 00 28 57 f4  |....Fault=0..(W.|
00000030  20 49 46 20 4d 4f 44 45  3c 3e 31 35 20 54 48 45  | IF MODE<>15 THE|
00000040  4e 20 50 52 49 4e 54 22  50 6c 65 61 73 65 20 63  |N PRINT"Please c|
00000050  68 61 6e 67 65 20 74 6f  20 4d 6f 64 65 20 31 35  |hange to Mode 15|
00000060  20 62 65 66 6f 72 65 20  72 75 6e 6e 69 6e 67 20  | before running |
00000070  74 68 65 20 64 65 6d 6f  21 22 3a 46 61 75 6c 74  |the demo!":Fault|
00000080  3d 31 0d 00 32 48 ee 20  85 20 f1 20 22 50 6c 65  |=1..2H. . . "Ple|
00000090  61 73 65 20 6c 65 61 76  65 20 61 20 31 33 32 4b  |ase leave a 132K|
000000a0  20 62 6c 6f 63 6b 20 69  6e 20 52 4d 41 20 66 6f  | block in RMA fo|
000000b0  72 20 74 68 65 20 74 75  6e 65 21 22 3a 46 61 75  |r the tune!":Fau|
000000c0  6c 74 3d 31 3a e5 8d 44  50 40 0d 00 3c 29 c8 99  |lt=1:..DP@..<)..|
000000d0  20 22 4f 53 5f 4d 6f 64  75 6c 65 22 2c 36 2c 2c  | "OS_Module",6,,|
000000e0  2c 31 33 32 2a 31 30 32  34 20 b8 20 2c 2c 50 6c  |,132*1024 . ,,Pl|
000000f0  61 63 65 0d 00 46 1b c8  99 20 22 4f 53 5f 4d 6f  |ace..F... "OS_Mo|
00000100  64 75 6c 65 22 2c 37 2c  2c 50 6c 61 63 65 0d 00  |dule",7,,Place..|
00000110  50 1d e7 20 46 61 75 6c  74 3d 30 20 8c 20 ff 28  |P.. Fault=0 . .(|
00000120  22 53 65 74 20 4f 4b 20  31 22 29 0d 00 5a 05 e0  |"Set OK 1")..Z..|
00000130  0d ff                                             |..|
00000132