!AWMay91/Goodies/Coconizer/Tools/Locater

Home » Archimedes archive » Archimedes World » AW-1991-05.adf » May91 » !AWMay91/Goodies/Coconizer/Tools/Locater

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 » AW-1991-05.adf » May91
Filename:	!AWMay91/Goodies/Coconizer/Tools/Locater
Read OK:	✔
File size:	0941 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >Locater
   20REM ---------------------------------------
   30REM
   40REM   SAMPLE ALLOCATION FILE CREATOR v1.2
   50REM
   60REM  There must be two Dirs onto each disc!
   70REM
   80REM     (c) 17th May 1990 by Playfield
   90REM
  100REM      Latest revision - 03 Mar 1991
  110REM
  120REM ---------------------------------------
  130
  140ON ERROR SYS "Hourglass_Smash":PRINT'REPORT$;" @ ";ERL:END
  150
  160@%=&090C
  170DIM name$(2002),byte%(2002),loc$(2002)
  180DIM mem% 32
  190top%=1 :char%=ASC"A"-1 :hd%=TRUE :len%=0
  200
  210char%+=1
  220disc%=(char%-65) DIV 2 +1 :dir$="Inst"+CHR$char%
  230f%=OPENIN dir$ :IF f% THEN CLOSE#f% :PROC_Entries(dir$) :GOTO 210
  240IF dir$<="InstC" OR NOT hd% THEN
  250  hd%=FALSE
  260  *dismount :0
  270  PRINT CHR$7;'"Please insert next sample disc then press Y, or anything else to sum up. ";
  280  SYS "OS_Confirm" TO con
  290  PRINT' :IF con=ASC"y" THEN 230
  300ENDIF
  310
  320top%-=1
  330PRINT'"Total amount of files: ";top%,"Total len: ";len%;" bytes"
  340
  350PRINT'"Do you want a name sorted list [y] ? "; :SYS "OS_Confirm" TO con
  360IF con=ASC"y" THEN
  370  SYS "Hourglass_On"
  380  PRINT'"Sorting, just a moment please..." :PROC_Sort(1,top%)
  390  SYS "Hourglass_Off"
  400ELSE PRINT
  410ENDIF
  420
  430IF NOT hd% THEN
  440  PRINT'"Please insert Coconizer disc for updating file ""location"""
  450  a$=GET$
  460ELSE PRINT
  470ENDIF
  480
  490f%=OPENOUT "location"
  500FOR i%=1 TO top%
  510  BPUT#f%,name$(i%) :PRINT#f%,byte%(i%) :BPUT#f%,loc$(i%)
  520NEXT i%
  530CLOSE#f%
  540PRINT "Done."
  550
  560FOR i%=1 TO top%
  570REM PRINT i%;TAB(14);name$(i%),byte%(i%),(ASCloc$(i%)-65) DIV 2 +1
  580NEXT i%
  590@%=&090A
  600END
  610
  620-------------------
  630Quicksort Algorithm
  640-------------------
  650DEF PROC_Sort(l%,r%)
  660LOCAL i%,j%,x$
  670i%=l% :j%=r% :x$=name$((l%+r%) DIV 2)
  680REPEAT
  690  WHILE name$(i%)<x$ :i%+=1 :ENDWHILE
  700  WHILE name$(j%)>x$ :j%-=1 :ENDWHILE
  710  IF i%<=j% THEN SWAP name$(i%),name$(j%) :SWAP byte%(i%),byte%(j%) :SWAP loc$(i%),loc$(j%) :i%+=1 :j%-=1
  720UNTIL i%>j%
  730IF l%<j% THEN PROC_Sort(l%,j%)
  740IF i%<r% THEN PROC_Sort(i%,r%)
  750ENDPROC
  760
  770--------------------------------------
  780Get all Entries of a certain Directory
  790--------------------------------------
  800DEF PROC_Entries(a$)
  810PRINT "Scanning Directory ";dir$," (disc ";disc%;")"
  820r4%=0
  830REPEAT
  840  SYS "OS_GBPB",10,a$,mem%,1,r4%,32 TO ,,,r3%,r4%
  850  IF r3% THEN
  860    FOR j%=20 TO 30 :IF mem%?j%>31 THEN name$(top%)+=CHR$(mem%?j%) :NEXT
  870    FOR l%=1 TO LEN(name$(top%))
  880      a%=ASC(MID$(name$(top%),l%,1))
  890      IF a%>=ASC"A" AND a%<=ASC"Z" THEN MID$(name$(top%),l%)=CHR$(a%+32)
  900    NEXT l%
  910    len%+=mem%!8
  920    byte%(top%)=mem%!8
  930    loc$(top%)=CHR$char%
  940    top%+=1
  950  ENDIF
  960UNTIL r4%=-1
  970ENDPROC


� >Locater
-� ---------------------------------------
�
(+�   SAMPLE ALLOCATION FILE CREATOR v1.2
2�
<-�  There must be two Dirs onto each disc!
F�
P(�     (c) 17th May 1990 by Playfield
Z�
d(�      Latest revision - 03 Mar 1991
n�
x-� ---------------------------------------
�
�+� � ș "Hourglass_Smash":�'�$;" @ ";�:�
�
�@%=&090C
�(� name$(2002),byte%(2002),loc$(2002)
�
� mem% 32
�'top%=1 :char%=�"A"-1 :hd%=� :len%=0
�
�char%+=1
�/disc%=(char%-65) � 2 +1 :dir$="Inst"+�char%
�3f%=� dir$ :� f% � �#f% :�_Entries(dir$) :� �dR@
�� dir$<="InstC" � � hd% �
�  hd%=�
  *dismount :0
X  � �7;'"Please insert next sample disc then press Y, or anything else to sum up. ";
  ș "OS_Confirm" � con
"  �' :� con=�"y" � �df@
,�
6
@top%-=1
J@�'"Total amount of files: ";top%,"Total len: ";len%;" bytes"
T
^E�'"Do you want a name sorted list [y] ? "; :ș "OS_Confirm" � con
h� con=�"y" �
r  ș "Hourglass_On"
|:  �'"Sorting, just a moment please..." :�_Sort(1,top%)
�  ș "Hourglass_Off"
�� �
��
�
�
� � hd% �
�E  �'"Please insert Coconizer disc for updating file ""location"""
�
  a$=�
�� �
��
�
�f%=� "location"
�� i%=1 � top%
�3  �#f%,name$(i%) :�#f%,byte%(i%) :�#f%,loc$(i%)
� i%
�#f%

� "Done."
&
0� i%=1 � top%
:D� PRINT i%;TAB(14);name$(i%),byte%(i%),(ASCloc$(i%)-65) DIV 2 +1
D� i%
N@%=&090A
X�
b
l-------------------
vQuicksort Algorithm
�-------------------
�� �_Sort(l%,r%)
�� i%,j%,x$
�'i%=l% :j%=r% :x$=name$((l%+r%) � 2)
��
�  ȕ name$(i%)<x$ :i%+=1 :�
�  ȕ name$(j%)>x$ :j%-=1 :�
�c  � i%<=j% � Ȕ name$(i%),name$(j%) :Ȕ byte%(i%),byte%(j%) :Ȕ loc$(i%),loc$(j%) :i%+=1 :j%-=1
�� i%>j%
�� l%<j% � �_Sort(l%,j%)
�� i%<r% � �_Sort(i%,r%)
��
�
*--------------------------------------
*Get all Entries of a certain Directory
*--------------------------------------
 � �_Entries(a$)
*4� "Scanning Directory ";dir$," (disc ";disc%;")"
4	r4%=0
>�
H3  ș "OS_GBPB",10,a$,mem%,1,r4%,32 � ,,,r3%,r4%
R
  � r3% �
\?    � j%=20 � 30 :� mem%?j%>31 � name$(top%)+=�(mem%?j%) :�
f    � l%=1 � �(name$(top%))
p"      a%=�(�name$(top%),l%,1))
z;      � a%>=�"A" � a%<=�"Z" � �name$(top%),l%)=�(a%+32)
�    � l%
�    len%+=mem%!8
�    byte%(top%)=mem%!8
�    loc$(top%)=�char%
�    top%+=1
�  �
�� r4%=-1
��
�

00000000  0d 00 0a 0e f4 20 3e 4c  6f 63 61 74 65 72 0d 00  |..... >Locater..|
00000010  14 2d f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.-. ------------|
00000020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 1e 05 f4  |-----------.....|
00000040  0d 00 28 2b f4 20 20 20  53 41 4d 50 4c 45 20 41  |..(+.   SAMPLE A|
00000050  4c 4c 4f 43 41 54 49 4f  4e 20 46 49 4c 45 20 43  |LLOCATION FILE C|
00000060  52 45 41 54 4f 52 20 76  31 2e 32 0d 00 32 05 f4  |REATOR v1.2..2..|
00000070  0d 00 3c 2d f4 20 20 54  68 65 72 65 20 6d 75 73  |..<-.  There mus|
00000080  74 20 62 65 20 74 77 6f  20 44 69 72 73 20 6f 6e  |t be two Dirs on|
00000090  74 6f 20 65 61 63 68 20  64 69 73 63 21 0d 00 46  |to each disc!..F|
000000a0  05 f4 0d 00 50 28 f4 20  20 20 20 20 28 63 29 20  |....P(.     (c) |
000000b0  31 37 74 68 20 4d 61 79  20 31 39 39 30 20 62 79  |17th May 1990 by|
000000c0  20 50 6c 61 79 66 69 65  6c 64 0d 00 5a 05 f4 0d  | Playfield..Z...|
000000d0  00 64 28 f4 20 20 20 20  20 20 4c 61 74 65 73 74  |.d(.      Latest|
000000e0  20 72 65 76 69 73 69 6f  6e 20 2d 20 30 33 20 4d  | revision - 03 M|
000000f0  61 72 20 31 39 39 31 0d  00 6e 05 f4 0d 00 78 2d  |ar 1991..n....x-|
00000100  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000120  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 82 04 0d 00 8c  |---------.......|
00000130  2b ee 20 85 20 c8 99 20  22 48 6f 75 72 67 6c 61  |+. . .. "Hourgla|
00000140  73 73 5f 53 6d 61 73 68  22 3a f1 27 f6 24 3b 22  |ss_Smash":.'.$;"|
00000150  20 40 20 22 3b 9e 3a e0  0d 00 96 04 0d 00 a0 0c  | @ ";.:.........|
00000160  40 25 3d 26 30 39 30 43  0d 00 aa 28 de 20 6e 61  |@%=&090C...(. na|
00000170  6d 65 24 28 32 30 30 32  29 2c 62 79 74 65 25 28  |me$(2002),byte%(|
00000180  32 30 30 32 29 2c 6c 6f  63 24 28 32 30 30 32 29  |2002),loc$(2002)|
00000190  0d 00 b4 0d de 20 6d 65  6d 25 20 33 32 0d 00 be  |..... mem% 32...|
000001a0  27 74 6f 70 25 3d 31 20  3a 63 68 61 72 25 3d 97  |'top%=1 :char%=.|
000001b0  22 41 22 2d 31 20 3a 68  64 25 3d b9 20 3a 6c 65  |"A"-1 :hd%=. :le|
000001c0  6e 25 3d 30 0d 00 c8 04  0d 00 d2 0c 63 68 61 72  |n%=0........char|
000001d0  25 2b 3d 31 0d 00 dc 2f  64 69 73 63 25 3d 28 63  |%+=1.../disc%=(c|
000001e0  68 61 72 25 2d 36 35 29  20 81 20 32 20 2b 31 20  |har%-65) . 2 +1 |
000001f0  3a 64 69 72 24 3d 22 49  6e 73 74 22 2b bd 63 68  |:dir$="Inst"+.ch|
00000200  61 72 25 0d 00 e6 33 66  25 3d 8e 20 64 69 72 24  |ar%...3f%=. dir$|
00000210  20 3a e7 20 66 25 20 8c  20 d9 23 66 25 20 3a f2  | :. f% . .#f% :.|
00000220  5f 45 6e 74 72 69 65 73  28 64 69 72 24 29 20 3a  |_Entries(dir$) :|
00000230  e5 20 8d 64 52 40 0d 00  f0 1d e7 20 64 69 72 24  |. .dR@..... dir$|
00000240  3c 3d 22 49 6e 73 74 43  22 20 84 20 ac 20 68 64  |<="InstC" . . hd|
00000250  25 20 8c 0d 00 fa 0b 20  20 68 64 25 3d a3 0d 01  |% .....  hd%=...|
00000260  04 12 20 20 2a 64 69 73  6d 6f 75 6e 74 20 3a 30  |..  *dismount :0|
00000270  0d 01 0e 58 20 20 f1 20  bd 37 3b 27 22 50 6c 65  |...X  . .7;'"Ple|
00000280  61 73 65 20 69 6e 73 65  72 74 20 6e 65 78 74 20  |ase insert next |
00000290  73 61 6d 70 6c 65 20 64  69 73 63 20 74 68 65 6e  |sample disc then|
000002a0  20 70 72 65 73 73 20 59  2c 20 6f 72 20 61 6e 79  | press Y, or any|
000002b0  74 68 69 6e 67 20 65 6c  73 65 20 74 6f 20 73 75  |thing else to su|
000002c0  6d 20 75 70 2e 20 22 3b  0d 01 18 1b 20 20 c8 99  |m up. ";....  ..|
000002d0  20 22 4f 53 5f 43 6f 6e  66 69 72 6d 22 20 b8 20  | "OS_Confirm" . |
000002e0  63 6f 6e 0d 01 22 1b 20  20 f1 27 20 3a e7 20 63  |con..".  .' :. c|
000002f0  6f 6e 3d 97 22 79 22 20  8c 20 8d 64 66 40 0d 01  |on=."y" . .df@..|
00000300  2c 05 cd 0d 01 36 04 0d  01 40 0b 74 6f 70 25 2d  |,....6...@.top%-|
00000310  3d 31 0d 01 4a 40 f1 27  22 54 6f 74 61 6c 20 61  |=1..J@.'"Total a|
00000320  6d 6f 75 6e 74 20 6f 66  20 66 69 6c 65 73 3a 20  |mount of files: |
00000330  22 3b 74 6f 70 25 2c 22  54 6f 74 61 6c 20 6c 65  |";top%,"Total le|
00000340  6e 3a 20 22 3b 6c 65 6e  25 3b 22 20 62 79 74 65  |n: ";len%;" byte|
00000350  73 22 0d 01 54 04 0d 01  5e 45 f1 27 22 44 6f 20  |s"..T...^E.'"Do |
00000360  79 6f 75 20 77 61 6e 74  20 61 20 6e 61 6d 65 20  |you want a name |
00000370  73 6f 72 74 65 64 20 6c  69 73 74 20 5b 79 5d 20  |sorted list [y] |
00000380  3f 20 22 3b 20 3a c8 99  20 22 4f 53 5f 43 6f 6e  |? "; :.. "OS_Con|
00000390  66 69 72 6d 22 20 b8 20  63 6f 6e 0d 01 68 10 e7  |firm" . con..h..|
000003a0  20 63 6f 6e 3d 97 22 79  22 20 8c 0d 01 72 17 20  | con=."y" ...r. |
000003b0  20 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  | .. "Hourglass_O|
000003c0  6e 22 0d 01 7c 3a 20 20  f1 27 22 53 6f 72 74 69  |n"..|:  .'"Sorti|
000003d0  6e 67 2c 20 6a 75 73 74  20 61 20 6d 6f 6d 65 6e  |ng, just a momen|
000003e0  74 20 70 6c 65 61 73 65  2e 2e 2e 22 20 3a f2 5f  |t please..." :._|
000003f0  53 6f 72 74 28 31 2c 74  6f 70 25 29 0d 01 86 18  |Sort(1,top%)....|
00000400  20 20 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |  .. "Hourglass_|
00000410  4f 66 66 22 0d 01 90 07  cc 20 f1 0d 01 9a 05 cd  |Off"..... ......|
00000420  0d 01 a4 04 0d 01 ae 0d  e7 20 ac 20 68 64 25 20  |......... . hd% |
00000430  8c 0d 01 b8 45 20 20 f1  27 22 50 6c 65 61 73 65  |....E  .'"Please|
00000440  20 69 6e 73 65 72 74 20  43 6f 63 6f 6e 69 7a 65  | insert Coconize|
00000450  72 20 64 69 73 63 20 66  6f 72 20 75 70 64 61 74  |r disc for updat|
00000460  69 6e 67 20 66 69 6c 65  20 22 22 6c 6f 63 61 74  |ing file ""locat|
00000470  69 6f 6e 22 22 22 0d 01  c2 0a 20 20 61 24 3d be  |ion"""....  a$=.|
00000480  0d 01 cc 07 cc 20 f1 0d  01 d6 05 cd 0d 01 e0 04  |..... ..........|
00000490  0d 01 ea 13 66 25 3d ae  20 22 6c 6f 63 61 74 69  |....f%=. "locati|
000004a0  6f 6e 22 0d 01 f4 11 e3  20 69 25 3d 31 20 b8 20  |on"..... i%=1 . |
000004b0  74 6f 70 25 0d 01 fe 33  20 20 d5 23 66 25 2c 6e  |top%...3  .#f%,n|
000004c0  61 6d 65 24 28 69 25 29  20 3a f1 23 66 25 2c 62  |ame$(i%) :.#f%,b|
000004d0  79 74 65 25 28 69 25 29  20 3a d5 23 66 25 2c 6c  |yte%(i%) :.#f%,l|
000004e0  6f 63 24 28 69 25 29 0d  02 08 08 ed 20 69 25 0d  |oc$(i%)..... i%.|
000004f0  02 12 08 d9 23 66 25 0d  02 1c 0d f1 20 22 44 6f  |....#f%..... "Do|
00000500  6e 65 2e 22 0d 02 26 04  0d 02 30 11 e3 20 69 25  |ne."..&...0.. i%|
00000510  3d 31 20 b8 20 74 6f 70  25 0d 02 3a 44 f4 20 50  |=1 . top%..:D. P|
00000520  52 49 4e 54 20 69 25 3b  54 41 42 28 31 34 29 3b  |RINT i%;TAB(14);|
00000530  6e 61 6d 65 24 28 69 25  29 2c 62 79 74 65 25 28  |name$(i%),byte%(|
00000540  69 25 29 2c 28 41 53 43  6c 6f 63 24 28 69 25 29  |i%),(ASCloc$(i%)|
00000550  2d 36 35 29 20 44 49 56  20 32 20 2b 31 0d 02 44  |-65) DIV 2 +1..D|
00000560  08 ed 20 69 25 0d 02 4e  0c 40 25 3d 26 30 39 30  |.. i%..N.@%=&090|
00000570  41 0d 02 58 05 e0 0d 02  62 04 0d 02 6c 17 2d 2d  |A..X....b...l.--|
00000580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000590  2d 0d 02 76 17 51 75 69  63 6b 73 6f 72 74 20 41  |-..v.Quicksort A|
000005a0  6c 67 6f 72 69 74 68 6d  0d 02 80 17 2d 2d 2d 2d  |lgorithm....----|
000005b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
000005c0  02 8a 13 dd 20 f2 5f 53  6f 72 74 28 6c 25 2c 72  |.... ._Sort(l%,r|
000005d0  25 29 0d 02 94 0e ea 20  69 25 2c 6a 25 2c 78 24  |%)..... i%,j%,x$|
000005e0  0d 02 9e 27 69 25 3d 6c  25 20 3a 6a 25 3d 72 25  |...'i%=l% :j%=r%|
000005f0  20 3a 78 24 3d 6e 61 6d  65 24 28 28 6c 25 2b 72  | :x$=name$((l%+r|
00000600  25 29 20 81 20 32 29 0d  02 a8 05 f5 0d 02 b2 1f  |%) . 2).........|
00000610  20 20 c8 95 20 6e 61 6d  65 24 28 69 25 29 3c 78  |  .. name$(i%)<x|
00000620  24 20 3a 69 25 2b 3d 31  20 3a ce 0d 02 bc 1f 20  |$ :i%+=1 :..... |
00000630  20 c8 95 20 6e 61 6d 65  24 28 6a 25 29 3e 78 24  | .. name$(j%)>x$|
00000640  20 3a 6a 25 2d 3d 31 20  3a ce 0d 02 c6 63 20 20  | :j%-=1 :....c  |
00000650  e7 20 69 25 3c 3d 6a 25  20 8c 20 c8 94 20 6e 61  |. i%<=j% . .. na|
00000660  6d 65 24 28 69 25 29 2c  6e 61 6d 65 24 28 6a 25  |me$(i%),name$(j%|
00000670  29 20 3a c8 94 20 62 79  74 65 25 28 69 25 29 2c  |) :.. byte%(i%),|
00000680  62 79 74 65 25 28 6a 25  29 20 3a c8 94 20 6c 6f  |byte%(j%) :.. lo|
00000690  63 24 28 69 25 29 2c 6c  6f 63 24 28 6a 25 29 20  |c$(i%),loc$(j%) |
000006a0  3a 69 25 2b 3d 31 20 3a  6a 25 2d 3d 31 0d 02 d0  |:i%+=1 :j%-=1...|
000006b0  0b fd 20 69 25 3e 6a 25  0d 02 da 1b e7 20 6c 25  |.. i%>j%..... l%|
000006c0  3c 6a 25 20 8c 20 f2 5f  53 6f 72 74 28 6c 25 2c  |<j% . ._Sort(l%,|
000006d0  6a 25 29 0d 02 e4 1b e7  20 69 25 3c 72 25 20 8c  |j%)..... i%<r% .|
000006e0  20 f2 5f 53 6f 72 74 28  69 25 2c 72 25 29 0d 02  | ._Sort(i%,r%)..|
000006f0  ee 05 e1 0d 02 f8 04 0d  03 02 2a 2d 2d 2d 2d 2d  |..........*-----|
00000700  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000720  2d 0d 03 0c 2a 47 65 74  20 61 6c 6c 20 45 6e 74  |-...*Get all Ent|
00000730  72 69 65 73 20 6f 66 20  61 20 63 65 72 74 61 69  |ries of a certai|
00000740  6e 20 44 69 72 65 63 74  6f 72 79 0d 03 16 2a 2d  |n Directory...*-|
00000750  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000770  2d 2d 2d 2d 2d 0d 03 20  13 dd 20 f2 5f 45 6e 74  |-----.. .. ._Ent|
00000780  72 69 65 73 28 61 24 29  0d 03 2a 34 f1 20 22 53  |ries(a$)..*4. "S|
00000790  63 61 6e 6e 69 6e 67 20  44 69 72 65 63 74 6f 72  |canning Director|
000007a0  79 20 22 3b 64 69 72 24  2c 22 20 28 64 69 73 63  |y ";dir$," (disc|
000007b0  20 22 3b 64 69 73 63 25  3b 22 29 22 0d 03 34 09  | ";disc%;")"..4.|
000007c0  72 34 25 3d 30 0d 03 3e  05 f5 0d 03 48 33 20 20  |r4%=0..>....H3  |
000007d0  c8 99 20 22 4f 53 5f 47  42 50 42 22 2c 31 30 2c  |.. "OS_GBPB",10,|
000007e0  61 24 2c 6d 65 6d 25 2c  31 2c 72 34 25 2c 33 32  |a$,mem%,1,r4%,32|
000007f0  20 b8 20 2c 2c 2c 72 33  25 2c 72 34 25 0d 03 52  | . ,,,r3%,r4%..R|
00000800  0d 20 20 e7 20 72 33 25  20 8c 0d 03 5c 3f 20 20  |.  . r3% ...\?  |
00000810  20 20 e3 20 6a 25 3d 32  30 20 b8 20 33 30 20 3a  |  . j%=20 . 30 :|
00000820  e7 20 6d 65 6d 25 3f 6a  25 3e 33 31 20 8c 20 6e  |. mem%?j%>31 . n|
00000830  61 6d 65 24 28 74 6f 70  25 29 2b 3d bd 28 6d 65  |ame$(top%)+=.(me|
00000840  6d 25 3f 6a 25 29 20 3a  ed 0d 03 66 1f 20 20 20  |m%?j%) :...f.   |
00000850  20 e3 20 6c 25 3d 31 20  b8 20 a9 28 6e 61 6d 65  | . l%=1 . .(name|
00000860  24 28 74 6f 70 25 29 29  0d 03 70 22 20 20 20 20  |$(top%))..p"    |
00000870  20 20 61 25 3d 97 28 c1  6e 61 6d 65 24 28 74 6f  |  a%=.(.name$(to|
00000880  70 25 29 2c 6c 25 2c 31  29 29 0d 03 7a 3b 20 20  |p%),l%,1))..z;  |
00000890  20 20 20 20 e7 20 61 25  3e 3d 97 22 41 22 20 80  |    . a%>=."A" .|
000008a0  20 61 25 3c 3d 97 22 5a  22 20 8c 20 c1 6e 61 6d  | a%<=."Z" . .nam|
000008b0  65 24 28 74 6f 70 25 29  2c 6c 25 29 3d bd 28 61  |e$(top%),l%)=.(a|
000008c0  25 2b 33 32 29 0d 03 84  0c 20 20 20 20 ed 20 6c  |%+32)....    . l|
000008d0  25 0d 03 8e 14 20 20 20  20 6c 65 6e 25 2b 3d 6d  |%....    len%+=m|
000008e0  65 6d 25 21 38 0d 03 98  1a 20 20 20 20 62 79 74  |em%!8....    byt|
000008f0  65 25 28 74 6f 70 25 29  3d 6d 65 6d 25 21 38 0d  |e%(top%)=mem%!8.|
00000900  03 a2 19 20 20 20 20 6c  6f 63 24 28 74 6f 70 25  |...    loc$(top%|
00000910  29 3d bd 63 68 61 72 25  0d 03 ac 0f 20 20 20 20  |)=.char%....    |
00000920  74 6f 70 25 2b 3d 31 0d  03 b6 07 20 20 cd 0d 03  |top%+=1....  ...|
00000930  c0 0c fd 20 72 34 25 3d  2d 31 0d 03 ca 05 e1 0d  |... r4%=-1......|
00000940  ff                                                |.|
00000941

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .