!AWNov91/Goodies/Exchange/!Exchange/Resources/TestData

Home » Archimedes archive » Archimedes World » AW-1991-11.adf » November91 » !AWNov91/Goodies/Exchange/!Exchange/Resources/TestData

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-11.adf » November91
Filename:	!AWNov91/Goodies/Exchange/!Exchange/Resources/TestData
Read OK:	✔
File size:	0515 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >TestData FNFNFN Squished by Lofty's !Shrink vsn 2.00 on 14-Aug-91 FNFNFN
  200D$="<Exchange$Dir>.Resources.Telephone":C$="<Exchange$Dir>.Resources.ErrorFile":I%=OPENIND$:ONERRORPRINTREPORT$;" at line :";ERL:GOTO660
  250PRINT"Please wait. This will take about 5 mins!":OSCLI"SPOOL "+C$:a%=1:k%=0:REPEAT:c%=FALSE:e%=FALSE:d%=FALSE:f%=FALSE:g%=FALSE:h%=FALSE:b%=FALSE:i%=FALSE:A$=GET$#I%:IFINSTR(A$,CHR$0)THENd%=TRUE
  350IFd%THEN
  360j%=INSTR(A$,CHR$0):IFj%=8ORj%=5THENc%=FALSEELSEc%=TRUE
  380ENDIF:IFINSTR(A$,CHR$1)THEN
  400e%=TRUE:IFINSTR(MID$(A$,INSTR(A$,CHR$1)+1),CHR$(1))THEN
  420g%=TRUE
  430ENDIF
  440ENDIF:IFVAL(MID$(A$,0,3))=0THENf%=TRUE
  460IFLEN(A$)>56THENh%=TRUE
  470FORl%=0TOLEN(A$):B$=MID$(A$,l%,1):IFB$<" "THENb%=TRUE
  500IFB$>"A"ANDB$<"Z"THENi%=TRUE
  510IFB$>"z"THENb%=TRUE
  520IFB$="&"ORB$="."ORB$=","ORB$=" "THENb%=FALSE
  530IFASC(B$)=0ORASC(B$)=1THENb%=FALSE
  540NEXT:IFb%THENPRINT"Illegal character in string at line ";STR$(a%)'A$
  560IFi%THENPRINT"No upper case characters allowed at line ";STR$(a%)'A$
  570IFh%THENPRINT"String too long at line ";STR$(a%);" by ";STR$(LEN(A$)-40);" characters."'A$
  580IFf%THENPRINT"String must start with a number at line ";STR$(a%)'A$
  590IFNOTd%THENPRINT"No [00], should be between STD code and Exchange name at line ";STR$(a%)'A$
  600IFNOTe%THENPRINT"No [01], should be after Exchange name at line ";STR$(a%)'A$
  610IFc%THENPRINT"STD code is incorrectly formatted -";STR$(j%);"- at line ";STR$(a%)'A$
  620IFg%THENPRINT"There are too many [01]'s in data at line ";STR$(a%)'A$
  630IFb%ORi%ORh%ORf%ORc%ORg%OR(NOTd%)OR(NOTe%)THENk%+=1
  640a%+=1:UNTILEOF#I%
  660CLOSE#I%:PRINTSTR$(a%);" lines tested.   ";STR$(k%);" Errors.":*SPOOL
  710OSCLI"SetType "+C$+" TEXT":END


I� >TestData ��� Squished by Lofty's !Shrink vsn 2.00 on 14-Aug-91 ���
�uD$="<Exchange$Dir>.Resources.Telephone":C$="<Exchange$Dir>.Resources.ErrorFile":I%=�D$:��$;" at line :";�:�tTB
���"Please wait. This will take about 5 mins!":�"SPOOL "+C$:a%=1:k%=0:�:c%=�:e%=�:d%=�:f%=�:g%=�:h%=�:b%=�:i%=�:A$=�#I%:�A$,�0)�d%=�
^�d%�
h#j%=�A$,�0):�j%=8�j%=5�c%=��c%=�
|�:�A$,�1)�
� e%=�:�A$,�A$,�1)+1),�(1))�
�g%=�
��
��:�(�A$,0,3))=0�f%=�
��(A$)>56�h%=�
�)�l%=0��(A$):B$=�A$,l%,1):�B$<" "�b%=�
��B$>"A"�B$<"Z"�i%=�
��B$>"z"�b%=�
%�B$="&"�B$="."�B$=","�B$=" "�b%=�
�(B$)=0��(B$)=1�b%=�
:�:�b%��"Illegal character in string at line ";�(a%)'A$
0=�i%��"No upper case characters allowed at line ";�(a%)'A$
:N�h%��"String too long at line ";�(a%);" by ";�(�(A$)-40);" characters."'A$
D<�f%��"String must start with a number at line ";�(a%)'A$
NS�d%��"No [00], should be between STD code and Exchange name at line ";�(a%)'A$
XD�e%��"No [01], should be after Exchange name at line ";�(a%)'A$
bJ�c%��"STD code is incorrectly formatted -";�(j%);"- at line ";�(a%)'A$
l>�g%��"There are too many [01]'s in data at line ";�(a%)'A$
v(�b%�i%�h%�f%�c%�g%�(�d%)�(�e%)�k%+=1
�a%+=1:��#I%
�;�#I%:��(a%);" lines tested.   ";�(k%);" Errors.":*SPOOL
��"SetType "+C$+" TEXT":�
�

00000000  0d 00 0a 49 f4 20 3e 54  65 73 74 44 61 74 61 20  |...I. >TestData |
00000010  a4 a4 a4 20 53 71 75 69  73 68 65 64 20 62 79 20  |... Squished by |
00000020  4c 6f 66 74 79 27 73 20  21 53 68 72 69 6e 6b 20  |Lofty's !Shrink |
00000030  76 73 6e 20 32 2e 30 30  20 6f 6e 20 31 34 2d 41  |vsn 2.00 on 14-A|
00000040  75 67 2d 39 31 20 a4 a4  a4 0d 00 c8 75 44 24 3d  |ug-91 ......uD$=|
00000050  22 3c 45 78 63 68 61 6e  67 65 24 44 69 72 3e 2e  |"<Exchange$Dir>.|
00000060  52 65 73 6f 75 72 63 65  73 2e 54 65 6c 65 70 68  |Resources.Teleph|
00000070  6f 6e 65 22 3a 43 24 3d  22 3c 45 78 63 68 61 6e  |one":C$="<Exchan|
00000080  67 65 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |ge$Dir>.Resource|
00000090  73 2e 45 72 72 6f 72 46  69 6c 65 22 3a 49 25 3d  |s.ErrorFile":I%=|
000000a0  8e 44 24 3a ee 85 f1 f6  24 3b 22 20 61 74 20 6c  |.D$:....$;" at l|
000000b0  69 6e 65 20 3a 22 3b 9e  3a e5 8d 74 54 42 0d 00  |ine :";.:..tTB..|
000000c0  fa 87 f1 22 50 6c 65 61  73 65 20 77 61 69 74 2e  |..."Please wait.|
000000d0  20 54 68 69 73 20 77 69  6c 6c 20 74 61 6b 65 20  | This will take |
000000e0  61 62 6f 75 74 20 35 20  6d 69 6e 73 21 22 3a ff  |about 5 mins!":.|
000000f0  22 53 50 4f 4f 4c 20 22  2b 43 24 3a 61 25 3d 31  |"SPOOL "+C$:a%=1|
00000100  3a 6b 25 3d 30 3a f5 3a  63 25 3d a3 3a 65 25 3d  |:k%=0:.:c%=.:e%=|
00000110  a3 3a 64 25 3d a3 3a 66  25 3d a3 3a 67 25 3d a3  |.:d%=.:f%=.:g%=.|
00000120  3a 68 25 3d a3 3a 62 25  3d a3 3a 69 25 3d a3 3a  |:h%=.:b%=.:i%=.:|
00000130  41 24 3d be 23 49 25 3a  e7 a7 41 24 2c bd 30 29  |A$=.#I%:..A$,.0)|
00000140  8c 64 25 3d b9 0d 01 5e  08 e7 64 25 8c 0d 01 68  |.d%=...^..d%...h|
00000150  23 6a 25 3d a7 41 24 2c  bd 30 29 3a e7 6a 25 3d  |#j%=.A$,.0):.j%=|
00000160  38 84 6a 25 3d 35 8c 63  25 3d a3 8b 63 25 3d b9  |8.j%=5.c%=..c%=.|
00000170  0d 01 7c 0f cd 3a e7 a7  41 24 2c bd 31 29 8c 0d  |..|..:..A$,.1)..|
00000180  01 90 20 65 25 3d b9 3a  e7 a7 c1 41 24 2c a7 41  |.. e%=.:...A$,.A|
00000190  24 2c bd 31 29 2b 31 29  2c bd 28 31 29 29 8c 0d  |$,.1)+1),.(1))..|
000001a0  01 a4 08 67 25 3d b9 0d  01 ae 05 cd 0d 01 b8 19  |...g%=..........|
000001b0  cd 3a e7 bb 28 c1 41 24  2c 30 2c 33 29 29 3d 30  |.:..(.A$,0,3))=0|
000001c0  8c 66 25 3d b9 0d 01 cc  12 e7 a9 28 41 24 29 3e  |.f%=.......(A$)>|
000001d0  35 36 8c 68 25 3d b9 0d  01 d6 29 e3 6c 25 3d 30  |56.h%=....).l%=0|
000001e0  b8 a9 28 41 24 29 3a 42  24 3d c1 41 24 2c 6c 25  |..(A$):B$=.A$,l%|
000001f0  2c 31 29 3a e7 42 24 3c  22 20 22 8c 62 25 3d b9  |,1):.B$<" ".b%=.|
00000200  0d 01 f4 17 e7 42 24 3e  22 41 22 80 42 24 3c 22  |.....B$>"A".B$<"|
00000210  5a 22 8c 69 25 3d b9 0d  01 fe 10 e7 42 24 3e 22  |Z".i%=......B$>"|
00000220  7a 22 8c 62 25 3d b9 0d  02 08 25 e7 42 24 3d 22  |z".b%=....%.B$="|
00000230  26 22 84 42 24 3d 22 2e  22 84 42 24 3d 22 2c 22  |&".B$=".".B$=","|
00000240  84 42 24 3d 22 20 22 8c  62 25 3d a3 0d 02 12 19  |.B$=" ".b%=.....|
00000250  e7 97 28 42 24 29 3d 30  84 97 28 42 24 29 3d 31  |..(B$)=0..(B$)=1|
00000260  8c 62 25 3d a3 0d 02 1c  3a ed 3a e7 62 25 8c f1  |.b%=....:.:.b%..|
00000270  22 49 6c 6c 65 67 61 6c  20 63 68 61 72 61 63 74  |"Illegal charact|
00000280  65 72 20 69 6e 20 73 74  72 69 6e 67 20 61 74 20  |er in string at |
00000290  6c 69 6e 65 20 22 3b c3  28 61 25 29 27 41 24 0d  |line ";.(a%)'A$.|
000002a0  02 30 3d e7 69 25 8c f1  22 4e 6f 20 75 70 70 65  |.0=.i%.."No uppe|
000002b0  72 20 63 61 73 65 20 63  68 61 72 61 63 74 65 72  |r case character|
000002c0  73 20 61 6c 6c 6f 77 65  64 20 61 74 20 6c 69 6e  |s allowed at lin|
000002d0  65 20 22 3b c3 28 61 25  29 27 41 24 0d 02 3a 4e  |e ";.(a%)'A$..:N|
000002e0  e7 68 25 8c f1 22 53 74  72 69 6e 67 20 74 6f 6f  |.h%.."String too|
000002f0  20 6c 6f 6e 67 20 61 74  20 6c 69 6e 65 20 22 3b  | long at line ";|
00000300  c3 28 61 25 29 3b 22 20  62 79 20 22 3b c3 28 a9  |.(a%);" by ";.(.|
00000310  28 41 24 29 2d 34 30 29  3b 22 20 63 68 61 72 61  |(A$)-40);" chara|
00000320  63 74 65 72 73 2e 22 27  41 24 0d 02 44 3c e7 66  |cters."'A$..D<.f|
00000330  25 8c f1 22 53 74 72 69  6e 67 20 6d 75 73 74 20  |%.."String must |
00000340  73 74 61 72 74 20 77 69  74 68 20 61 20 6e 75 6d  |start with a num|
00000350  62 65 72 20 61 74 20 6c  69 6e 65 20 22 3b c3 28  |ber at line ";.(|
00000360  61 25 29 27 41 24 0d 02  4e 53 e7 ac 64 25 8c f1  |a%)'A$..NS..d%..|
00000370  22 4e 6f 20 5b 30 30 5d  2c 20 73 68 6f 75 6c 64  |"No [00], should|
00000380  20 62 65 20 62 65 74 77  65 65 6e 20 53 54 44 20  | be between STD |
00000390  63 6f 64 65 20 61 6e 64  20 45 78 63 68 61 6e 67  |code and Exchang|
000003a0  65 20 6e 61 6d 65 20 61  74 20 6c 69 6e 65 20 22  |e name at line "|
000003b0  3b c3 28 61 25 29 27 41  24 0d 02 58 44 e7 ac 65  |;.(a%)'A$..XD..e|
000003c0  25 8c f1 22 4e 6f 20 5b  30 31 5d 2c 20 73 68 6f  |%.."No [01], sho|
000003d0  75 6c 64 20 62 65 20 61  66 74 65 72 20 45 78 63  |uld be after Exc|
000003e0  68 61 6e 67 65 20 6e 61  6d 65 20 61 74 20 6c 69  |hange name at li|
000003f0  6e 65 20 22 3b c3 28 61  25 29 27 41 24 0d 02 62  |ne ";.(a%)'A$..b|
00000400  4a e7 63 25 8c f1 22 53  54 44 20 63 6f 64 65 20  |J.c%.."STD code |
00000410  69 73 20 69 6e 63 6f 72  72 65 63 74 6c 79 20 66  |is incorrectly f|
00000420  6f 72 6d 61 74 74 65 64  20 2d 22 3b c3 28 6a 25  |ormatted -";.(j%|
00000430  29 3b 22 2d 20 61 74 20  6c 69 6e 65 20 22 3b c3  |);"- at line ";.|
00000440  28 61 25 29 27 41 24 0d  02 6c 3e e7 67 25 8c f1  |(a%)'A$..l>.g%..|
00000450  22 54 68 65 72 65 20 61  72 65 20 74 6f 6f 20 6d  |"There are too m|
00000460  61 6e 79 20 5b 30 31 5d  27 73 20 69 6e 20 64 61  |any [01]'s in da|
00000470  74 61 20 61 74 20 6c 69  6e 65 20 22 3b c3 28 61  |ta at line ";.(a|
00000480  25 29 27 41 24 0d 02 76  28 e7 62 25 84 69 25 84  |%)'A$..v(.b%.i%.|
00000490  68 25 84 66 25 84 63 25  84 67 25 84 28 ac 64 25  |h%.f%.c%.g%.(.d%|
000004a0  29 84 28 ac 65 25 29 8c  6b 25 2b 3d 31 0d 02 80  |).(.e%).k%+=1...|
000004b0  0f 61 25 2b 3d 31 3a fd  c5 23 49 25 0d 02 94 3b  |.a%+=1:..#I%...;|
000004c0  d9 23 49 25 3a f1 c3 28  61 25 29 3b 22 20 6c 69  |.#I%:..(a%);" li|
000004d0  6e 65 73 20 74 65 73 74  65 64 2e 20 20 20 22 3b  |nes tested.   ";|
000004e0  c3 28 6b 25 29 3b 22 20  45 72 72 6f 72 73 2e 22  |.(k%);" Errors."|
000004f0  3a 2a 53 50 4f 4f 4c 0d  02 c6 1c ff 22 53 65 74  |:*SPOOL....."Set|
00000500  54 79 70 65 20 22 2b 43  24 2b 22 20 54 45 58 54  |Type "+C$+" TEXT|
00000510  22 3a e0 0d ff                                    |":...|
00000515

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