Home » CEEFAX disks » telesoftware4.adl » 25-12-87/MCR
25-12-87/MCR
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 » CEEFAX disks » telesoftware4.adl |
| Filename: | 25-12-87/MCR |
| Read OK: | ✔ |
| File size: | 0888 bytes |
| Load address: | FFFF1900 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware1.adl » VidiEditor/B\TEL
- CEEFAX disks » telesoftware4.adl » 25-12-87/MCR
File contents
10REM SET/tel / Telephone no. file generator
20REM (C) T.E.Kennington
30REM V0.1 21 MAY 84
40REM Field length=14, 3 fields per record, 6 records.
50MODE6:VDU19 0 4 0 0 0
60DIM field &100
70ts%=3:ls%=15:bs%=ts%+17:rs%=ls%+13
80VDU23;10,0,0;0;0;
90VDU23,&80,&FF,&81,&81,&81,&81,&81,&81,&FF
100ON ERROR: ?field=&3A: GOTO 140
110IF ?field=&3A THEN 140
120FORI%=0 TO &FF:I%?field=0:NEXT
130OSCLI("L.S.SYSTELS "+STR$~field)
140ON ERROR GOTO1030
150PRINTTAB(5,1)"Systel file contains the following:"
160PRINTTAB(5,3)"A name:"TAB(5,6)"B name:"TAB(5,9)"C name:"TAB(5,12)"D name:"TAB(5,15)"E name:"TAB(5,18)"F name:"
170FOR I%=0 TO 5
180PRINTTAB(9,I%*3+4)"tel:"TAB(10,I%*3+5)"ID:"
190NEXT
200PRINTTAB(5,22)"Press SHIFT+f0 to mark end of #"
210PRINTTAB(5,23)"Press [COPY] to save"TAB(ls%,ts%);
220FOR I%=0 TO 17
230FOR J%=0 TO 13
240G%=field?(I%*14+J%+4)
250IF G%<&20 G%=ASC"."
260VDU G%
270NEXT
280PRINTTAB(ls%,VPOS+1);
290NEXT
300PRINTTAB(ls%,ts%);
310pointer%=4
320*FX4 1
330REPEAT
340G%=GET
350IF G%>=&88 AND G%<=&8B PROCmove ELSE PROCput
360UNTIL G%=&87
370*FX4 0
380FOR I%=0 TO 5
390char%=field?(I%*42+18)
400IF char%<ASC"0" OR char%>ASC"9" THEN field?(I%*42+18)=ASC"*"
410char%=field?(I%*42+32)
420IF char%<ASC"0" OR char%>ASC"9" THEN field?(I%*42+32)=ASC"*"
430NEXT
440OSCLI("S.S.systels "+STR$~field+"+100 0 0")
450PRINTTAB(0,24);
460END
470
480DEFPROCmove
490G%=G%AND&7F
500IF G%=8 PROCback
510IF G%=9 PROCforr
520IF G%=10 PROCdown
530IF G%=11 PROCup
540ENDPROC
550
560DEFPROCback
570IF POS<=ls% AND VPOS <=ts% PRINTTAB(rs%,bs%); ELSEIF POS<=ls% PRINTTAB(rs%,VPOS-1); ELSE VDU G%
580pointer%=(pointer%-1)AND &FF
590IF pointer%=0 pointer%=4
600ENDPROC
610
620DEFPROCforr
630IF POS>=rs% AND VPOS>=bs% PRINTTAB(ls%,ts%); ELSEIF POS>=rs% PRINTTAB(ls%,VPOS+1); ELSE VDU G%
640pointer%=pointer%+1 AND &FF
650IF pointer%=0 pointer%=4
660ENDPROC
670
680DEFPROCdown
690IF VPOS>=bs% PRINTTAB(POS,ts%); ELSE VDU G%
700pointer%=pointer%+14 AND &FF
710IF pointer%=0 pointer%=4
720ENDPROC
730
740DEFPROCup
750IFVPOS<=ts% PRINTTAB(POS,bs%); ELSE VDU G%
760pointer%=pointer%-14 AND &FF
770IF pointer%=0 pointer%=4
780ENDPROC
790
800DEFPROCput
810IF G%=&7F PROCdel:ENDPROC
820IF G%=&D PROCcrlf:ENDPROC
830IF G%=&87 ENDPROC
840IF G%<&20 VDU ASC"." ELSE VDU G%
850IF POS>rs% AND VPOS>=bs% PRINTTAB(ls%,ts%); ELSEIF POS>rs% PRINTTAB(ls%,VPOS+1);
860field?pointer%=G%
870pointer%=pointer%+1 AND &FF
880IF pointer%=0 pointer%=4
890ENDPROC
900
910DEFPROCcrlf
920IF VPOS>=bs% npos%=ts% ELSE npos%=VPOS+1
930PRINTTAB(ls%,npos%);
940IF npos%=ts% pointer%=4 ELSE pointer%=(pointer%+14-(pointer% MOD 14)+4) AND &FF
950ENDPROC
960
970DEFPROCdel
980G%=8:PROCback
990G%=0:PROCput
1000G%=8:PROCback
1010ENDPROC
1020
1030PRINTTAB(0,23);:REPORT:PRINT':*FX4
,� SET/tel / Telephone no. file generator
� (C) T.E.Kennington
� V0.1 21 MAY 84
(6� Field length=14, 3 fields per record, 6 records.
2�6:�19 0 4 0 0 0
<� field &100
F&ts%=3:ls%=15:bs%=ts%+17:rs%=ls%+13
P�23;10,0,0;0;0;
Z+�23,&80,&FF,&81,&81,&81,&81,&81,&81,&FF
d� �: ?field=&3A: � �tL@
n� ?field=&3A � �tL@
x �I%=0 � &FF:I%?field=0:�
� �("L.S.SYSTELS "+�~field)
�
� � �TFD
�/�5,1)"Systel file contains the following:"
�b�5,3)"A name:"�5,6)"B name:"�5,9)"C name:"�5,12)"D name:"�5,15)"E name:"�5,18)"F name:"
�� I%=0 � 5
�%�9,I%*3+4)"tel:"�10,I%*3+5)"ID:"
��
�,�5,22)"Press SHIFT+f0 to mark end of #"
�+�5,23)"Press [COPY] to save"�ls%,ts%);
�� I%=0 � 17
�� J%=0 � 13
�G%=field?(I%*14+J%+4)
�� G%<&20 G%=�"."
� G%
�
�ls%,�+1);
"�
,�ls%,ts%);
6pointer%=4
@
*FX4 1
J�
TG%=�
^$� G%>=&88 � G%<=&8B �move � �put
h � G%=&87
r
*FX4 0
|� I%=0 � 5
�char%=field?(I%*42+18)
�5� char%<�"0" � char%>�"9" � field?(I%*42+18)=�"*"
�char%=field?(I%*42+32)
�5� char%<�"0" � char%>�"9" � field?(I%*42+32)=�"*"
��
�(�("S.S.systels "+�~field+"+100 0 0")
� �0,24);
��
�
�
��move
�
G%=G%�&7F
�� G%=8 �back
�� G%=9 �forr
� G%=10 �down
� G%=11 �up
�
&
0
��back
:?� �<=ls% � � <=ts% �rs%,bs%); �� �<=ls% �rs%,�-1); � � G%
D pointer%=(pointer%-1)� &FF
N� pointer%=0 pointer%=4
X�
b
l
��forr
v>� �>=rs% � �>=bs% �ls%,ts%); �� �>=rs% �ls%,�+1); � � G%
� pointer%=pointer%+1 � &FF
�� pointer%=0 pointer%=4
��
�
�
��down
� � �>=bs% �,ts%); � � G%
� pointer%=pointer%+14 � &FF
�� pointer%=0 pointer%=4
��
�
���up
� �<=ts% �,bs%); � � G%
� pointer%=pointer%-14 � &FF
� pointer%=0 pointer%=4
�
��put
*� G%=&7F �del:�
4� G%=&D �crlf:�
>� G%=&87 �
H� G%<&20 � �"." � � G%
R5� �>rs% � �>=bs% �ls%,ts%); �� �>rs% �ls%,�+1);
\field?pointer%=G%
f pointer%=pointer%+1 � &FF
p� pointer%=0 pointer%=4
z�
�
�
��crlf
�"� �>=bs% npos%=ts% � npos%=�+1
��ls%,npos%);
�K� npos%=ts% pointer%=4 � pointer%=(pointer%+14-(pointer% � 14)+4) � &FF
��
�
� ��del
�G%=8:�back
�
G%=0:�put
�G%=8:�back
��
�
�0,23);:�:�':*FX4
� 00000000 0d 00 0a 2c f4 20 53 45 54 2f 74 65 6c 20 2f 20 |...,. SET/tel / |
00000010 54 65 6c 65 70 68 6f 6e 65 20 6e 6f 2e 20 66 69 |Telephone no. fi|
00000020 6c 65 20 67 65 6e 65 72 61 74 6f 72 0d 00 14 18 |le generator....|
00000030 f4 20 28 43 29 20 54 2e 45 2e 4b 65 6e 6e 69 6e |. (C) T.E.Kennin|
00000040 67 74 6f 6e 0d 00 1e 14 f4 20 56 30 2e 31 20 32 |gton..... V0.1 2|
00000050 31 20 4d 41 59 20 38 34 0d 00 28 36 f4 20 46 69 |1 MAY 84..(6. Fi|
00000060 65 6c 64 20 6c 65 6e 67 74 68 3d 31 34 2c 20 33 |eld length=14, 3|
00000070 20 66 69 65 6c 64 73 20 70 65 72 20 72 65 63 6f | fields per reco|
00000080 72 64 2c 20 36 20 72 65 63 6f 72 64 73 2e 0d 00 |rd, 6 records...|
00000090 32 14 eb 36 3a ef 31 39 20 30 20 34 20 30 20 30 |2..6:.19 0 4 0 0|
000000a0 20 30 0d 00 3c 10 de 20 66 69 65 6c 64 20 26 31 | 0..<.. field &1|
000000b0 30 30 0d 00 46 26 74 73 25 3d 33 3a 6c 73 25 3d |00..F&ts%=3:ls%=|
000000c0 31 35 3a 62 73 25 3d 74 73 25 2b 31 37 3a 72 73 |15:bs%=ts%+17:rs|
000000d0 25 3d 6c 73 25 2b 31 33 0d 00 50 13 ef 32 33 3b |%=ls%+13..P..23;|
000000e0 31 30 2c 30 2c 30 3b 30 3b 30 3b 0d 00 5a 2b ef |10,0,0;0;0;..Z+.|
000000f0 32 33 2c 26 38 30 2c 26 46 46 2c 26 38 31 2c 26 |23,&80,&FF,&81,&|
00000100 38 31 2c 26 38 31 2c 26 38 31 2c 26 38 31 2c 26 |81,&81,&81,&81,&|
00000110 38 31 2c 26 46 46 0d 00 64 1b ee 20 85 3a 20 3f |81,&FF..d.. .: ?|
00000120 66 69 65 6c 64 3d 26 33 41 3a 20 e5 20 8d 74 4c |field=&3A: . .tL|
00000130 40 0d 00 6e 17 e7 20 3f 66 69 65 6c 64 3d 26 33 |@..n.. ?field=&3|
00000140 41 20 8c 20 8d 74 4c 40 0d 00 78 1c e3 49 25 3d |A . .tL@..x..I%=|
00000150 30 20 b8 20 26 46 46 3a 49 25 3f 66 69 65 6c 64 |0 . &FF:I%?field|
00000160 3d 30 3a ed 0d 00 82 1d ff 28 22 4c 2e 53 2e 53 |=0:......("L.S.S|
00000170 59 53 54 45 4c 53 20 22 2b c3 7e 66 69 65 6c 64 |YSTELS "+.~field|
00000180 29 0d 00 8c 0d ee 20 85 20 e5 8d 54 46 44 0d 00 |)..... . ..TFD..|
00000190 96 2f f1 8a 35 2c 31 29 22 53 79 73 74 65 6c 20 |./..5,1)"Systel |
000001a0 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 |file contains th|
000001b0 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 22 0d 00 a0 |e following:"...|
000001c0 62 f1 8a 35 2c 33 29 22 41 20 20 6e 61 6d 65 3a |b..5,3)"A name:|
000001d0 22 8a 35 2c 36 29 22 42 20 20 6e 61 6d 65 3a 22 |".5,6)"B name:"|
000001e0 8a 35 2c 39 29 22 43 20 20 6e 61 6d 65 3a 22 8a |.5,9)"C name:".|
000001f0 35 2c 31 32 29 22 44 20 20 6e 61 6d 65 3a 22 8a |5,12)"D name:".|
00000200 35 2c 31 35 29 22 45 20 20 6e 61 6d 65 3a 22 8a |5,15)"E name:".|
00000210 35 2c 31 38 29 22 46 20 20 6e 61 6d 65 3a 22 0d |5,18)"F name:".|
00000220 00 aa 0e e3 20 49 25 3d 30 20 b8 20 35 0d 00 b4 |.... I%=0 . 5...|
00000230 25 f1 8a 39 2c 49 25 2a 33 2b 34 29 22 74 65 6c |%..9,I%*3+4)"tel|
00000240 3a 22 8a 31 30 2c 49 25 2a 33 2b 35 29 22 49 44 |:".10,I%*3+5)"ID|
00000250 3a 22 0d 00 be 05 ed 0d 00 c8 2c f1 8a 35 2c 32 |:"........,..5,2|
00000260 32 29 22 50 72 65 73 73 20 53 48 49 46 54 2b 66 |2)"Press SHIFT+f|
00000270 30 20 74 6f 20 6d 61 72 6b 20 65 6e 64 20 6f 66 |0 to mark end of|
00000280 20 23 22 0d 00 d2 2b f1 8a 35 2c 32 33 29 22 50 | #"...+..5,23)"P|
00000290 72 65 73 73 20 5b 43 4f 50 59 5d 20 74 6f 20 73 |ress [COPY] to s|
000002a0 61 76 65 22 8a 6c 73 25 2c 74 73 25 29 3b 0d 00 |ave".ls%,ts%);..|
000002b0 dc 0f e3 20 49 25 3d 30 20 b8 20 31 37 0d 00 e6 |... I%=0 . 17...|
000002c0 0f e3 20 4a 25 3d 30 20 b8 20 31 33 0d 00 f0 19 |.. J%=0 . 13....|
000002d0 47 25 3d 66 69 65 6c 64 3f 28 49 25 2a 31 34 2b |G%=field?(I%*14+|
000002e0 4a 25 2b 34 29 0d 00 fa 14 e7 20 47 25 3c 26 32 |J%+4)..... G%<&2|
000002f0 30 20 47 25 3d 97 22 2e 22 0d 01 04 08 ef 20 47 |0 G%=."."..... G|
00000300 25 0d 01 0e 05 ed 0d 01 18 0f f1 8a 6c 73 25 2c |%...........ls%,|
00000310 bc 2b 31 29 3b 0d 01 22 05 ed 0d 01 2c 0f f1 8a |.+1);.."....,...|
00000320 6c 73 25 2c 74 73 25 29 3b 0d 01 36 0e 70 6f 69 |ls%,ts%);..6.poi|
00000330 6e 74 65 72 25 3d 34 0d 01 40 0a 2a 46 58 34 20 |nter%=4..@.*FX4 |
00000340 31 0d 01 4a 05 f5 0d 01 54 08 47 25 3d a5 0d 01 |1..J....T.G%=...|
00000350 5e 24 e7 20 47 25 3e 3d 26 38 38 20 80 20 47 25 |^$. G%>=&88 . G%|
00000360 3c 3d 26 38 42 20 f2 6d 6f 76 65 20 8b 20 f2 70 |<=&8B .move . .p|
00000370 75 74 0d 01 68 0c fd 20 47 25 3d 26 38 37 0d 01 |ut..h.. G%=&87..|
00000380 72 0a 2a 46 58 34 20 30 0d 01 7c 0e e3 20 49 25 |r.*FX4 0..|.. I%|
00000390 3d 30 20 b8 20 35 0d 01 86 1a 63 68 61 72 25 3d |=0 . 5....char%=|
000003a0 66 69 65 6c 64 3f 28 49 25 2a 34 32 2b 31 38 29 |field?(I%*42+18)|
000003b0 0d 01 90 35 e7 20 63 68 61 72 25 3c 97 22 30 22 |...5. char%<."0"|
000003c0 20 84 20 63 68 61 72 25 3e 97 22 39 22 20 8c 20 | . char%>."9" . |
000003d0 66 69 65 6c 64 3f 28 49 25 2a 34 32 2b 31 38 29 |field?(I%*42+18)|
000003e0 3d 97 22 2a 22 0d 01 9a 1a 63 68 61 72 25 3d 66 |=."*"....char%=f|
000003f0 69 65 6c 64 3f 28 49 25 2a 34 32 2b 33 32 29 0d |ield?(I%*42+32).|
00000400 01 a4 35 e7 20 63 68 61 72 25 3c 97 22 30 22 20 |..5. char%<."0" |
00000410 84 20 63 68 61 72 25 3e 97 22 39 22 20 8c 20 66 |. char%>."9" . f|
00000420 69 65 6c 64 3f 28 49 25 2a 34 32 2b 33 32 29 3d |ield?(I%*42+32)=|
00000430 97 22 2a 22 0d 01 ae 05 ed 0d 01 b8 28 ff 28 22 |."*"........(.("|
00000440 53 2e 53 2e 73 79 73 74 65 6c 73 20 22 2b c3 7e |S.S.systels "+.~|
00000450 66 69 65 6c 64 2b 22 2b 31 30 30 20 30 20 30 22 |field+"+100 0 0"|
00000460 29 0d 01 c2 0c f1 8a 30 2c 32 34 29 3b 0d 01 cc |)......0,24);...|
00000470 05 e0 0d 01 d6 05 20 0d 01 e0 0a dd f2 6d 6f 76 |...... ......mov|
00000480 65 0d 01 ea 0d 47 25 3d 47 25 80 26 37 46 0d 01 |e....G%=G%.&7F..|
00000490 f4 10 e7 20 47 25 3d 38 20 f2 62 61 63 6b 0d 01 |... G%=8 .back..|
000004a0 fe 10 e7 20 47 25 3d 39 20 f2 66 6f 72 72 0d 02 |... G%=9 .forr..|
000004b0 08 11 e7 20 47 25 3d 31 30 20 f2 64 6f 77 6e 0d |... G%=10 .down.|
000004c0 02 12 0f e7 20 47 25 3d 31 31 20 f2 75 70 0d 02 |.... G%=11 .up..|
000004d0 1c 05 e1 0d 02 26 05 20 0d 02 30 0a dd f2 62 61 |.....&. ..0...ba|
000004e0 63 6b 0d 02 3a 3f e7 20 b1 3c 3d 6c 73 25 20 80 |ck..:?. .<=ls% .|
000004f0 20 bc 20 3c 3d 74 73 25 20 f1 8a 72 73 25 2c 62 | . <=ts% ..rs%,b|
00000500 73 25 29 3b 20 8b e7 20 b1 3c 3d 6c 73 25 20 f1 |s%); .. .<=ls% .|
00000510 8a 72 73 25 2c bc 2d 31 29 3b 20 8b 20 ef 20 47 |.rs%,.-1); . . G|
00000520 25 0d 02 44 1e 70 6f 69 6e 74 65 72 25 3d 28 70 |%..D.pointer%=(p|
00000530 6f 69 6e 74 65 72 25 2d 31 29 80 20 26 46 46 0d |ointer%-1). &FF.|
00000540 02 4e 1b e7 20 70 6f 69 6e 74 65 72 25 3d 30 20 |.N.. pointer%=0 |
00000550 70 6f 69 6e 74 65 72 25 3d 34 0d 02 58 05 e1 0d |pointer%=4..X...|
00000560 02 62 05 20 0d 02 6c 0a dd f2 66 6f 72 72 0d 02 |.b. ..l...forr..|
00000570 76 3e e7 20 b1 3e 3d 72 73 25 20 80 20 bc 3e 3d |v>. .>=rs% . .>=|
00000580 62 73 25 20 f1 8a 6c 73 25 2c 74 73 25 29 3b 20 |bs% ..ls%,ts%); |
00000590 8b e7 20 b1 3e 3d 72 73 25 20 f1 8a 6c 73 25 2c |.. .>=rs% ..ls%,|
000005a0 bc 2b 31 29 3b 20 8b 20 ef 20 47 25 0d 02 80 1d |.+1); . . G%....|
000005b0 70 6f 69 6e 74 65 72 25 3d 70 6f 69 6e 74 65 72 |pointer%=pointer|
000005c0 25 2b 31 20 80 20 26 46 46 0d 02 8a 1b e7 20 70 |%+1 . &FF..... p|
000005d0 6f 69 6e 74 65 72 25 3d 30 20 70 6f 69 6e 74 65 |ointer%=0 pointe|
000005e0 72 25 3d 34 0d 02 94 05 e1 0d 02 9e 05 20 0d 02 |r%=4......... ..|
000005f0 a8 0a dd f2 64 6f 77 6e 0d 02 b2 1d e7 20 bc 3e |....down..... .>|
00000600 3d 62 73 25 20 f1 8a b1 2c 74 73 25 29 3b 20 8b |=bs% ...,ts%); .|
00000610 20 ef 20 47 25 0d 02 bc 1e 70 6f 69 6e 74 65 72 | . G%....pointer|
00000620 25 3d 70 6f 69 6e 74 65 72 25 2b 31 34 20 80 20 |%=pointer%+14 . |
00000630 26 46 46 0d 02 c6 1b e7 20 70 6f 69 6e 74 65 72 |&FF..... pointer|
00000640 25 3d 30 20 70 6f 69 6e 74 65 72 25 3d 34 0d 02 |%=0 pointer%=4..|
00000650 d0 05 e1 0d 02 da 05 20 0d 02 e4 08 dd f2 75 70 |....... ......up|
00000660 0d 02 ee 1c e7 bc 3c 3d 74 73 25 20 f1 8a b1 2c |......<=ts% ...,|
00000670 62 73 25 29 3b 20 8b 20 ef 20 47 25 0d 02 f8 1e |bs%); . . G%....|
00000680 70 6f 69 6e 74 65 72 25 3d 70 6f 69 6e 74 65 72 |pointer%=pointer|
00000690 25 2d 31 34 20 80 20 26 46 46 0d 03 02 1b e7 20 |%-14 . &FF..... |
000006a0 70 6f 69 6e 74 65 72 25 3d 30 20 70 6f 69 6e 74 |pointer%=0 point|
000006b0 65 72 25 3d 34 0d 03 0c 05 e1 0d 03 16 05 20 0d |er%=4......... .|
000006c0 03 20 09 dd f2 70 75 74 0d 03 2a 13 e7 20 47 25 |. ...put..*.. G%|
000006d0 3d 26 37 46 20 f2 64 65 6c 3a e1 0d 03 34 13 e7 |=&7F .del:...4..|
000006e0 20 47 25 3d 26 44 20 f2 63 72 6c 66 3a e1 0d 03 | G%=&D .crlf:...|
000006f0 3e 0e e7 20 47 25 3d 26 38 37 20 e1 0d 03 48 1a |>.. G%=&87 ...H.|
00000700 e7 20 47 25 3c 26 32 30 20 ef 20 97 22 2e 22 20 |. G%<&20 . ."." |
00000710 8b 20 ef 20 47 25 0d 03 52 35 e7 20 b1 3e 72 73 |. . G%..R5. .>rs|
00000720 25 20 80 20 bc 3e 3d 62 73 25 20 f1 8a 6c 73 25 |% . .>=bs% ..ls%|
00000730 2c 74 73 25 29 3b 20 8b e7 20 b1 3e 72 73 25 20 |,ts%); .. .>rs% |
00000740 f1 8a 6c 73 25 2c bc 2b 31 29 3b 0d 03 5c 15 66 |..ls%,.+1);..\.f|
00000750 69 65 6c 64 3f 70 6f 69 6e 74 65 72 25 3d 47 25 |ield?pointer%=G%|
00000760 0d 03 66 1d 70 6f 69 6e 74 65 72 25 3d 70 6f 69 |..f.pointer%=poi|
00000770 6e 74 65 72 25 2b 31 20 80 20 26 46 46 0d 03 70 |nter%+1 . &FF..p|
00000780 1b e7 20 70 6f 69 6e 74 65 72 25 3d 30 20 70 6f |.. pointer%=0 po|
00000790 69 6e 74 65 72 25 3d 34 0d 03 7a 05 e1 0d 03 84 |inter%=4..z.....|
000007a0 05 20 0d 03 8e 0a dd f2 63 72 6c 66 0d 03 98 22 |. ......crlf..."|
000007b0 e7 20 bc 3e 3d 62 73 25 20 6e 70 6f 73 25 3d 74 |. .>=bs% npos%=t|
000007c0 73 25 20 8b 20 6e 70 6f 73 25 3d bc 2b 31 0d 03 |s% . npos%=.+1..|
000007d0 a2 11 f1 8a 6c 73 25 2c 6e 70 6f 73 25 29 3b 0d |....ls%,npos%);.|
000007e0 03 ac 4b e7 20 6e 70 6f 73 25 3d 74 73 25 20 70 |..K. npos%=ts% p|
000007f0 6f 69 6e 74 65 72 25 3d 34 20 8b 20 70 6f 69 6e |ointer%=4 . poin|
00000800 74 65 72 25 3d 28 70 6f 69 6e 74 65 72 25 2b 31 |ter%=(pointer%+1|
00000810 34 2d 28 70 6f 69 6e 74 65 72 25 20 83 20 31 34 |4-(pointer% . 14|
00000820 29 2b 34 29 20 80 20 26 46 46 0d 03 b6 05 e1 0d |)+4) . &FF......|
00000830 03 c0 05 20 0d 03 ca 09 dd f2 64 65 6c 0d 03 d4 |... ......del...|
00000840 0e 47 25 3d 38 3a f2 62 61 63 6b 0d 03 de 0d 47 |.G%=8:.back....G|
00000850 25 3d 30 3a f2 70 75 74 0d 03 e8 0e 47 25 3d 38 |%=0:.put....G%=8|
00000860 3a f2 62 61 63 6b 0d 03 f2 05 e1 0d 03 fc 05 20 |:.back......... |
00000870 0d 04 06 16 f1 8a 30 2c 32 33 29 3b 3a f6 3a f1 |......0,23);:.:.|
00000880 27 3a 2a 46 58 34 0d ff |':*FX4..|
00000888 
25-12-87/MCR.m0
25-12-87/MCR.m1
25-12-87/MCR.m2
25-12-87/MCR.m4
25-12-87/MCR.m5
.