Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_50.ADF » G/BSCRL
G/BSCRL
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 ADFS disks » Electron_User_Group » EUG_50.ADF |
| Filename: | G/BSCRL |
| Read OK: | ✔ |
| File size: | 07FC bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_3_5_discs_Eug-50_A-EUG50.adf » G/BSCRL
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_50.ADF » G/BSCRL
File contents
10MODE4:VDU 23;8202;0;0;0;0;19,7,0;0;:*FX200 1
20ON ERROR GOTO 80
30*FX220 32
40*LOAD G.BSCR 5800
50VDU19,0,7;0;:*FX200 0
60A$=INKEY$(125):PROCmessage
70IF G$="" THEN GOTO 60
80OSCLI("FX 220 27"):MODE6:VDU23;8202;0;0;0;:CHAIN"$.MENU"
90END
100:
110DEFPROCmessage
120PROCinit:PROCassem
130RESTORE 780
140LOCAL N%,L%,S%,C%
150old$="":READ N%
160FOR L%=1 TO N%
170READ word$,S%,C%
180COLOUR C%
190PROCscroll("",word$,0,30,S%)
200FOR P%=0 TO 300:NEXT
210PROCscroll(word$,"",0,30,S%)
220G$=INKEY$(10):IF G$<>"" THEN ENDPROC
230NEXT
240ENDPROC
250:
260DEF PROCscroll(a$,b$,X%,Y%,S%)
270PRINTTAB(X%,Y%)a$
280IF LENb$<LENa$ b$=b$+STRING$(LENa$-LENb$," ")
290IF LENa$<LENb$ a$=a$+STRING$(LENb$-LENa$," ")
300FOR R%=1 TO LENa$
310?old=ASCMID$(a$,R%)
320?new=ASCMID$(b$,R%)
330IF X%-1+R%>39 X%=1-R%:Y%=Y%+1
340?xpos=X%-1+R%:?ypos=Y%:?spd=S%
350CALL scroll:NEXT:ENDPROC
360DEF PROCinit
370wrch=&FFEE:word=&FFF1
380code=&A00:buf=&60
390old=&80:new=&81:xpos=&82
400ypos=&83:spd=&84:temp=&85
410ENDPROC
420:
430DEF PROCassem
440FOR L%=0 TO 2 STEP 2
450P%=code:[OPT L%:.scroll
460LDX #buf MOD 256:LDY #buf DIV 256
470LDA old:STA buf:LDA #10:JSR word
480LDX buf+8:STX temp
490LDX new:STX buf+8
500LDX #(buf+8)MOD 256
510LDY #(buf+8)DIV 256
520JSR word:LDA temp:STA buf+8
530.start LDX #0
540.lp LDA #31:JSR wrch
550LDA xpos:JSR wrch
560LDA ypos:JSR wrch
570LDA #23:JSR wrch
580LDA #255:JSR wrch
590LDA buf+1,X:JSR wrch
600LDA buf+2,X:JSR wrch
610LDA buf+3,X:JSR wrch
620LDA buf+4,X:JSR wrch
630LDA buf+5,X:JSR wrch
640LDA buf+6,X:JSR wrch
650LDA buf+7,X:JSR wrch
660LDA buf+8,X:JSR wrch
670LDA #255:JSR wrch:INX
680JSR delay:CPX #9:BNE lp:RTS
690.delay
700PHA:TXA:PHA:TYA:PHA:LDX spd
710.lp2 LDY spd
720.lp3 DEY:BNE lp3:DEX:BNE lp2
730PLA:TAY:PLA:TAX:PLA:RTS
740]:NEXT:ENDPROC
750ENDPROC
760:
770REM" Scrolly Message Data
780DATA 12
790DATA Have YOU...,50,3
800DATA ...written a program you're proud of?,30,3
810DATA ...discovered a great piece of PD?,30,3
820DATA ...created a stunning graphics display?,30,3
830DATA ...made amazing music with one channel?,30,3
840DATA ...got a question to ask?,30,3
850DATA ...got things to tell?,30,3
860DATA Then write to:,50,3
870DATA ELECTRON USER GROUP (EUG),50,3
880DATA 42 Canterbury Road,50,3
890DATA REDCAR TS10 3QF,50,3
900DATA " Press <SPACE> to return to the Menu!",100,3
+�4:� 23;8202;0;0;0;0;19,7,0;0;:*FX200 1
� � � �DP@
*FX220 32
(*LOAD G.BSCR 5800
2�19,0,7;0;:*FX200 0
<A$=�(125):�message
F� G$="" � � �T|@
P/�("FX 220 27"):�6:�23;8202;0;0;0;:�"$.MENU"
Z�
d:
n
��message
x�init:�assem
�
� �TLC
�� N%,L%,S%,C%
�old$="":� N%
�� L%=1 � N%
�� word$,S%,C%
�� C%
� �scroll("",word$,0,30,S%)
�� P%=0 � 300:�
� �scroll(word$,"",0,30,S%)
�G$=�(10):� G$<>"" � �
��
��
�:
� �scroll(a$,b$,X%,Y%,S%)
�X%,Y%)a$
!� �b$<�a$ b$=b$+ĩa$-�b$," ")
"!� �a$<�b$ a$=a$+ĩb$-�a$," ")
,� R%=1 � �a$
6?old=��a$,R%)
@?new=��b$,R%)
J � X%-1+R%>39 X%=1-R%:Y%=Y%+1
T"?xpos=X%-1+R%:?ypos=Y%:?spd=S%
^� scroll:�:�
h � �init
rwrch=&FFEE:word=&FFF1
|code=&A00:buf=&60
� old=&80:new=&81:xpos=&82
� ypos=&83:spd=&84:temp=&85
��
�:
� � �assem
�� L%=0 � 2 � 2
�P%=code:[OPT L%:.scroll
�!LDX #buf � 256:LDY #buf � 256
�$LDA old:STA buf:LDA #10:JSR word
�LDX buf+8:STX temp
�LDX new:STX buf+8
�LDX #(buf+8)� 256
�LDY #(buf+8)� 256
JSR word:LDA temp:STA buf+8
.start LDX #0
.lp LDA #31:JSR wrch
&LDA xpos:JSR wrch
0LDA ypos:JSR wrch
:LDA #23:JSR wrch
DLDA #255:JSR wrch
NLDA buf+1,X:JSR wrch
XLDA buf+2,X:JSR wrch
bLDA buf+3,X:JSR wrch
lLDA buf+4,X:JSR wrch
vLDA buf+5,X:JSR wrch
�LDA buf+6,X:JSR wrch
�LDA buf+7,X:JSR wrch
�LDA buf+8,X:JSR wrch
�LDA #255:JSR wrch:INX
� JSR delay:CPX #9:BNE lp:RTS
�
.delay
� PHA:TXA:PHA:TYA:PHA:LDX spd
�.lp2 LDY spd
� .lp3 DEY:BNE lp3:DEX:BNE lp2
�PLA:TAY:PLA:TAX:PLA:RTS
� ]:�:�
��
�:
�" Scrolly Message Data
� 12
� Have YOU...,50,3
0� ...written a program you're proud of?,30,3
*-� ...discovered a great piece of PD?,30,3
42� ...created a stunning graphics display?,30,3
>2� ...made amazing music with one channel?,30,3
H$� ...got a question to ask?,30,3
R!� ...got things to tell?,30,3
\� Then write to:,50,3
f$� ELECTRON USER GROUP (EUG),50,3
p � 42 Canterbury Road,50,3
z� REDCAR TS10 3QF,50,3
�4� " Press <SPACE> to return to the Menu!",100,3
� 00000000 0d 00 0a 2b eb 34 3a ef 20 32 33 3b 38 32 30 32 |...+.4:. 23;8202|
00000010 3b 30 3b 30 3b 30 3b 30 3b 31 39 2c 37 2c 30 3b |;0;0;0;0;19,7,0;|
00000020 30 3b 3a 2a 46 58 32 30 30 20 31 0d 00 14 0e ee |0;:*FX200 1.....|
00000030 20 85 20 e5 20 8d 44 50 40 0d 00 1e 0d 2a 46 58 | . . .DP@....*FX|
00000040 32 32 30 20 33 32 0d 00 28 15 2a 4c 4f 41 44 20 |220 32..(.*LOAD |
00000050 47 2e 42 53 43 52 20 35 38 30 30 0d 00 32 17 ef |G.BSCR 5800..2..|
00000060 31 39 2c 30 2c 37 3b 30 3b 3a 2a 46 58 32 30 30 |19,0,7;0;:*FX200|
00000070 20 30 0d 00 3c 16 41 24 3d bf 28 31 32 35 29 3a | 0..<.A$=.(125):|
00000080 f2 6d 65 73 73 61 67 65 0d 00 46 14 e7 20 47 24 |.message..F.. G$|
00000090 3d 22 22 20 8c 20 e5 20 8d 54 7c 40 0d 00 50 2f |="" . . .T|@..P/|
000000a0 ff 28 22 46 58 20 32 32 30 20 32 37 22 29 3a eb |.("FX 220 27"):.|
000000b0 36 3a ef 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 |6:.23;8202;0;0;0|
000000c0 3b 3a d7 22 24 2e 4d 45 4e 55 22 0d 00 5a 05 e0 |;:."$.MENU"..Z..|
000000d0 0d 00 64 05 3a 0d 00 6e 0d dd f2 6d 65 73 73 61 |..d.:..n...messa|
000000e0 67 65 0d 00 78 10 f2 69 6e 69 74 3a f2 61 73 73 |ge..x..init:.ass|
000000f0 65 6d 0d 00 82 0a f7 20 8d 54 4c 43 0d 00 8c 11 |em..... .TLC....|
00000100 ea 20 4e 25 2c 4c 25 2c 53 25 2c 43 25 0d 00 96 |. N%,L%,S%,C%...|
00000110 10 6f 6c 64 24 3d 22 22 3a f3 20 4e 25 0d 00 a0 |.old$="":. N%...|
00000120 0f e3 20 4c 25 3d 31 20 b8 20 4e 25 0d 00 aa 11 |.. L%=1 . N%....|
00000130 f3 20 77 6f 72 64 24 2c 53 25 2c 43 25 0d 00 b4 |. word$,S%,C%...|
00000140 08 fb 20 43 25 0d 00 be 1d f2 73 63 72 6f 6c 6c |.. C%.....scroll|
00000150 28 22 22 2c 77 6f 72 64 24 2c 30 2c 33 30 2c 53 |("",word$,0,30,S|
00000160 25 29 0d 00 c8 12 e3 20 50 25 3d 30 20 b8 20 33 |%)..... P%=0 . 3|
00000170 30 30 3a ed 0d 00 d2 1d f2 73 63 72 6f 6c 6c 28 |00:......scroll(|
00000180 77 6f 72 64 24 2c 22 22 2c 30 2c 33 30 2c 53 25 |word$,"",0,30,S%|
00000190 29 0d 00 dc 19 47 24 3d bf 28 31 30 29 3a e7 20 |)....G$=.(10):. |
000001a0 47 24 3c 3e 22 22 20 8c 20 e1 0d 00 e6 05 ed 0d |G$<>"" . .......|
000001b0 00 f0 05 e1 0d 00 fa 05 3a 0d 01 04 1d dd 20 f2 |........:..... .|
000001c0 73 63 72 6f 6c 6c 28 61 24 2c 62 24 2c 58 25 2c |scroll(a$,b$,X%,|
000001d0 59 25 2c 53 25 29 0d 01 0e 0e f1 8a 58 25 2c 59 |Y%,S%)......X%,Y|
000001e0 25 29 61 24 0d 01 18 21 e7 20 a9 62 24 3c a9 61 |%)a$...!. .b$<.a|
000001f0 24 20 62 24 3d 62 24 2b c4 a9 61 24 2d a9 62 24 |$ b$=b$+..a$-.b$|
00000200 2c 22 20 22 29 0d 01 22 21 e7 20 a9 61 24 3c a9 |," ").."!. .a$<.|
00000210 62 24 20 61 24 3d 61 24 2b c4 a9 62 24 2d a9 61 |b$ a$=a$+..b$-.a|
00000220 24 2c 22 20 22 29 0d 01 2c 10 e3 20 52 25 3d 31 |$," ")..,.. R%=1|
00000230 20 b8 20 a9 61 24 0d 01 36 11 3f 6f 6c 64 3d 97 | . .a$..6.?old=.|
00000240 c1 61 24 2c 52 25 29 0d 01 40 11 3f 6e 65 77 3d |.a$,R%)..@.?new=|
00000250 97 c1 62 24 2c 52 25 29 0d 01 4a 20 e7 20 58 25 |..b$,R%)..J . X%|
00000260 2d 31 2b 52 25 3e 33 39 20 58 25 3d 31 2d 52 25 |-1+R%>39 X%=1-R%|
00000270 3a 59 25 3d 59 25 2b 31 0d 01 54 22 3f 78 70 6f |:Y%=Y%+1..T"?xpo|
00000280 73 3d 58 25 2d 31 2b 52 25 3a 3f 79 70 6f 73 3d |s=X%-1+R%:?ypos=|
00000290 59 25 3a 3f 73 70 64 3d 53 25 0d 01 5e 10 d6 20 |Y%:?spd=S%..^.. |
000002a0 73 63 72 6f 6c 6c 3a ed 3a e1 0d 01 68 0b dd 20 |scroll:.:...h.. |
000002b0 f2 69 6e 69 74 0d 01 72 19 77 72 63 68 3d 26 46 |.init..r.wrch=&F|
000002c0 46 45 45 3a 77 6f 72 64 3d 26 46 46 46 31 0d 01 |FEE:word=&FFF1..|
000002d0 7c 15 63 6f 64 65 3d 26 41 30 30 3a 62 75 66 3d ||.code=&A00:buf=|
000002e0 26 36 30 0d 01 86 1c 6f 6c 64 3d 26 38 30 3a 6e |&60....old=&80:n|
000002f0 65 77 3d 26 38 31 3a 78 70 6f 73 3d 26 38 32 0d |ew=&81:xpos=&82.|
00000300 01 90 1d 79 70 6f 73 3d 26 38 33 3a 73 70 64 3d |...ypos=&83:spd=|
00000310 26 38 34 3a 74 65 6d 70 3d 26 38 35 0d 01 9a 05 |&84:temp=&85....|
00000320 e1 0d 01 a4 05 3a 0d 01 ae 0c dd 20 f2 61 73 73 |.....:..... .ass|
00000330 65 6d 0d 01 b8 12 e3 20 4c 25 3d 30 20 b8 20 32 |em..... L%=0 . 2|
00000340 20 88 20 32 0d 01 c2 1b 50 25 3d 63 6f 64 65 3a | . 2....P%=code:|
00000350 5b 4f 50 54 20 4c 25 3a 2e 73 63 72 6f 6c 6c 0d |[OPT L%:.scroll.|
00000360 01 cc 21 4c 44 58 20 23 62 75 66 20 83 20 32 35 |..!LDX #buf . 25|
00000370 36 3a 4c 44 59 20 23 62 75 66 20 81 20 32 35 36 |6:LDY #buf . 256|
00000380 0d 01 d6 24 4c 44 41 20 6f 6c 64 3a 53 54 41 20 |...$LDA old:STA |
00000390 62 75 66 3a 4c 44 41 20 23 31 30 3a 4a 53 52 20 |buf:LDA #10:JSR |
000003a0 77 6f 72 64 0d 01 e0 16 4c 44 58 20 62 75 66 2b |word....LDX buf+|
000003b0 38 3a 53 54 58 20 74 65 6d 70 0d 01 ea 15 4c 44 |8:STX temp....LD|
000003c0 58 20 6e 65 77 3a 53 54 58 20 62 75 66 2b 38 0d |X new:STX buf+8.|
000003d0 01 f4 15 4c 44 58 20 23 28 62 75 66 2b 38 29 83 |...LDX #(buf+8).|
000003e0 20 32 35 36 0d 01 fe 15 4c 44 59 20 23 28 62 75 | 256....LDY #(bu|
000003f0 66 2b 38 29 81 20 32 35 36 0d 02 08 1f 4a 53 52 |f+8). 256....JSR|
00000400 20 77 6f 72 64 3a 4c 44 41 20 74 65 6d 70 3a 53 | word:LDA temp:S|
00000410 54 41 20 62 75 66 2b 38 0d 02 12 11 2e 73 74 61 |TA buf+8.....sta|
00000420 72 74 20 4c 44 58 20 23 30 0d 02 1c 18 2e 6c 70 |rt LDX #0.....lp|
00000430 20 4c 44 41 20 23 33 31 3a 4a 53 52 20 77 72 63 | LDA #31:JSR wrc|
00000440 68 0d 02 26 15 4c 44 41 20 78 70 6f 73 3a 4a 53 |h..&.LDA xpos:JS|
00000450 52 20 77 72 63 68 0d 02 30 15 4c 44 41 20 79 70 |R wrch..0.LDA yp|
00000460 6f 73 3a 4a 53 52 20 77 72 63 68 0d 02 3a 14 4c |os:JSR wrch..:.L|
00000470 44 41 20 23 32 33 3a 4a 53 52 20 77 72 63 68 0d |DA #23:JSR wrch.|
00000480 02 44 15 4c 44 41 20 23 32 35 35 3a 4a 53 52 20 |.D.LDA #255:JSR |
00000490 77 72 63 68 0d 02 4e 18 4c 44 41 20 62 75 66 2b |wrch..N.LDA buf+|
000004a0 31 2c 58 3a 4a 53 52 20 77 72 63 68 0d 02 58 18 |1,X:JSR wrch..X.|
000004b0 4c 44 41 20 62 75 66 2b 32 2c 58 3a 4a 53 52 20 |LDA buf+2,X:JSR |
000004c0 77 72 63 68 0d 02 62 18 4c 44 41 20 62 75 66 2b |wrch..b.LDA buf+|
000004d0 33 2c 58 3a 4a 53 52 20 77 72 63 68 0d 02 6c 18 |3,X:JSR wrch..l.|
000004e0 4c 44 41 20 62 75 66 2b 34 2c 58 3a 4a 53 52 20 |LDA buf+4,X:JSR |
000004f0 77 72 63 68 0d 02 76 18 4c 44 41 20 62 75 66 2b |wrch..v.LDA buf+|
00000500 35 2c 58 3a 4a 53 52 20 77 72 63 68 0d 02 80 18 |5,X:JSR wrch....|
00000510 4c 44 41 20 62 75 66 2b 36 2c 58 3a 4a 53 52 20 |LDA buf+6,X:JSR |
00000520 77 72 63 68 0d 02 8a 18 4c 44 41 20 62 75 66 2b |wrch....LDA buf+|
00000530 37 2c 58 3a 4a 53 52 20 77 72 63 68 0d 02 94 18 |7,X:JSR wrch....|
00000540 4c 44 41 20 62 75 66 2b 38 2c 58 3a 4a 53 52 20 |LDA buf+8,X:JSR |
00000550 77 72 63 68 0d 02 9e 19 4c 44 41 20 23 32 35 35 |wrch....LDA #255|
00000560 3a 4a 53 52 20 77 72 63 68 3a 49 4e 58 0d 02 a8 |:JSR wrch:INX...|
00000570 1f 4a 53 52 20 64 65 6c 61 79 3a 43 50 58 20 23 |.JSR delay:CPX #|
00000580 39 3a 42 4e 45 20 6c 70 3a 52 54 53 0d 02 b2 0a |9:BNE lp:RTS....|
00000590 2e 64 65 6c 61 79 0d 02 bc 1f 50 48 41 3a 54 58 |.delay....PHA:TX|
000005a0 41 3a 50 48 41 3a 54 59 41 3a 50 48 41 3a 4c 44 |A:PHA:TYA:PHA:LD|
000005b0 58 20 73 70 64 0d 02 c6 10 2e 6c 70 32 20 4c 44 |X spd.....lp2 LD|
000005c0 59 20 73 70 64 0d 02 d0 20 2e 6c 70 33 20 44 45 |Y spd... .lp3 DE|
000005d0 59 3a 42 4e 45 20 6c 70 33 3a 44 45 58 3a 42 4e |Y:BNE lp3:DEX:BN|
000005e0 45 20 6c 70 32 0d 02 da 1b 50 4c 41 3a 54 41 59 |E lp2....PLA:TAY|
000005f0 3a 50 4c 41 3a 54 41 58 3a 50 4c 41 3a 52 54 53 |:PLA:TAX:PLA:RTS|
00000600 0d 02 e4 09 5d 3a ed 3a e1 0d 02 ee 05 e1 0d 02 |....]:.:........|
00000610 f8 05 3a 0d 03 02 1b f4 22 20 53 63 72 6f 6c 6c |..:....." Scroll|
00000620 79 20 4d 65 73 73 61 67 65 20 44 61 74 61 0d 03 |y Message Data..|
00000630 0c 08 dc 20 31 32 0d 03 16 16 dc 20 48 61 76 65 |... 12..... Have|
00000640 20 59 4f 55 2e 2e 2e 2c 35 30 2c 33 0d 03 20 30 | YOU...,50,3.. 0|
00000650 dc 20 2e 2e 2e 77 72 69 74 74 65 6e 20 61 20 70 |. ...written a p|
00000660 72 6f 67 72 61 6d 20 79 6f 75 27 72 65 20 70 72 |rogram you're pr|
00000670 6f 75 64 20 6f 66 3f 2c 33 30 2c 33 0d 03 2a 2d |oud of?,30,3..*-|
00000680 dc 20 2e 2e 2e 64 69 73 63 6f 76 65 72 65 64 20 |. ...discovered |
00000690 61 20 67 72 65 61 74 20 70 69 65 63 65 20 6f 66 |a great piece of|
000006a0 20 50 44 3f 2c 33 30 2c 33 0d 03 34 32 dc 20 2e | PD?,30,3..42. .|
000006b0 2e 2e 63 72 65 61 74 65 64 20 61 20 73 74 75 6e |..created a stun|
000006c0 6e 69 6e 67 20 67 72 61 70 68 69 63 73 20 64 69 |ning graphics di|
000006d0 73 70 6c 61 79 3f 2c 33 30 2c 33 0d 03 3e 32 dc |splay?,30,3..>2.|
000006e0 20 2e 2e 2e 6d 61 64 65 20 61 6d 61 7a 69 6e 67 | ...made amazing|
000006f0 20 6d 75 73 69 63 20 77 69 74 68 20 6f 6e 65 20 | music with one |
00000700 63 68 61 6e 6e 65 6c 3f 2c 33 30 2c 33 0d 03 48 |channel?,30,3..H|
00000710 24 dc 20 2e 2e 2e 67 6f 74 20 61 20 71 75 65 73 |$. ...got a ques|
00000720 74 69 6f 6e 20 74 6f 20 61 73 6b 3f 2c 33 30 2c |tion to ask?,30,|
00000730 33 0d 03 52 21 dc 20 2e 2e 2e 67 6f 74 20 74 68 |3..R!. ...got th|
00000740 69 6e 67 73 20 74 6f 20 74 65 6c 6c 3f 2c 33 30 |ings to tell?,30|
00000750 2c 33 0d 03 5c 19 dc 20 54 68 65 6e 20 77 72 69 |,3..\.. Then wri|
00000760 74 65 20 74 6f 3a 2c 35 30 2c 33 0d 03 66 24 dc |te to:,50,3..f$.|
00000770 20 45 4c 45 43 54 52 4f 4e 20 55 53 45 52 20 47 | ELECTRON USER G|
00000780 52 4f 55 50 20 28 45 55 47 29 2c 35 30 2c 33 0d |ROUP (EUG),50,3.|
00000790 03 70 1d dc 20 34 32 20 43 61 6e 74 65 72 62 75 |.p.. 42 Canterbu|
000007a0 72 79 20 52 6f 61 64 2c 35 30 2c 33 0d 03 7a 1a |ry Road,50,3..z.|
000007b0 dc 20 52 45 44 43 41 52 20 54 53 31 30 20 33 51 |. REDCAR TS10 3Q|
000007c0 46 2c 35 30 2c 33 0d 03 84 34 dc 20 22 20 20 50 |F,50,3...4. " P|
000007d0 72 65 73 73 20 3c 53 50 41 43 45 3e 20 74 6f 20 |ress <SPACE> to |
000007e0 72 65 74 75 72 6e 20 74 6f 20 74 68 65 20 4d 65 |return to the Me|
000007f0 6e 75 21 22 2c 31 30 30 2c 33 0d ff |nu!",100,3..|
000007fc 
G/BSCRL.m0
G/BSCRL.m1
G/BSCRL.m2
G/BSCRL.m4
G/BSCRL.m5
.