� BTEC PROJECT "PAGE3" v.2.5
 � Third Order Bug CORRECTED!
*FX200,1
(
*CLOSE
2a=0:A=0
<page%=0:valid=0
Fconst=2:upto=1
P�mainwindow
Z �:�c("""INSPECT"" UTILITY")
d�23;8202;0;0;0;
n�name$(15),price(15)
x�gettodaysprices
�*DIR MORNING
�{�num(40),rname$(40),init$(40),sname$(40),title$(40),telno(40),or1$(40),or2$(40),or3$(40),todaysbill(40),outstanding(40)
�
�round
��displaydata
�	�tV@
�  
���round
�
*CLOSE
Ҟ�comwindow:�''''''"C : Catalogue Morning Rounds"'"V : View Particular Morning Round"'"P : Print Out Morning Round"'"Q : Quit And Return To Main Menu";:I=�
��mainwindow:�I=67�cat:�dR@
��I=86�question:�TNA
�"�I=80�question:�printout:�dR@
�9�I=81�comwindow:�'''''''�c("Loading Main Menu")':�out


I=�:�d\@

�valid=0�dR@


� � �TbF

" 

,theround=�(file$)

6count=0:lines=0

@�

Jcount=count+1

T��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)

^$�or2$(count) <> "" lines=lines+1

h$�or3$(count) <> "" lines=lines+1

rlines=lines+1

|0�num(count)=-999 � out=1:lines=lines-1:�tZA

�+D$ = �init$(count),1):init$(count) = D$

�� �#theround

�� #theround

��

�  

���gettodaysprices

�that_one=�("DATA")

�count=0

��

�count=count+1

��ON ERROR GOTO 1590

�(�#that_one,name$(count),price(count)

�� �#that_one
� #that_one
�
 
&��displaydata
0)�mainwindow:�:�c("ROUND STATISTICS")
:��0,3)"Round Number                      :  ";�file$,1)'"Number of papers                  : ";lines'"Number of houses on round         : ";count-1
Dpage%=1:�lines>17 page%=2
N�lines>34 page%=3
X2�"Number of screen pages            :  ";page%
b/�comwindow:�''''''�c("Press Space")':���=32
l6�thispage%=1�page%:startfrom=upto:�writetoscreen:�
v.upto=1:page%=0:valid=0:const=2:startfrom=0
�"upto=1:page%=0:valid=0:const=2
�,�mainwindow:�:�c("""INSPECT"" UTILITY")
��
���mainwindow
��28,1,24,38,1
��
���comwindow
��28,1,30,38,27
��
�ݤc(C$):�19-�C$/2);:=C$
���writetoscreen
��mainwindow:�
��:�16,0)"ROUND ";�file$,1)
$�32,0)"Pg ";thispage%;"/";page%
1� IF thispage%=1 WRITE 20 lines ON THE SCREEN
� thispage%=1 startfrom=1
  � A=startfrom � startfrom+16
*Z�num(A)=-999 �comwindow:�''''''�c("Viewing complete")'�c("Press Space"):A=startfrom+16
4-� A=startfrom+16 � upto=A:const=-14:�D\C
>?�0,A+const);num(A);�6,A+const)rname$(A)�17,A+const)or1$(A)
H8� or2$(A) <> "" � const=const+1:�17,A+const)or2$(A)
R8� or3$(A) <> "" � const=const+1:�17,A+const)or3$(A)
\� A
f
���=32
p�
z	��cat
�(�0,3)"Cataloguing morning rounds :"
�  
��28,10,23,29,8
�*.
�/�comwindow:�''''''�c("Press Space")':���=32
�  
��
���question
�2�comwindow:�''''''''"Which round "':�12,1);S$
�f� S$="1" � S$="2" � S$="3" � S$="4" � S$="5" � S$="6" � S$="7" � S$="8" � file$="ROUND"+S$:valid=1
�� �(S$)>7 valid=0:�7
�� S$="ROUND1" � S$="ROUND2" � S$="ROUND3" � S$="ROUND4" � S$="ROUND5" � S$="ROUND6" � S$="ROUND7" � S$="ROUND8" � file$=S$:valid=1
��
��printout
�valid=1 � � �TZD � �
theround=�(file$)
$count=0
.�
8count=count+1
B��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
L*�num(count)=-999 � count=count-1:out=1
V� �#theround
`� #theround
j'�mainwindow:�:�c("PRINTER ADVICE")
t+�''�c("Do not choose any PRINT option")
~)�'�c("if a printer is not connected")
��'�c("to the computer.")
�O�''�c("Refer to your printer manual")''�c("for best results when printing")
�A$=�(20)
�*FX200,0
�
� � �DJF
�U�comwindow:�'''''"Printing Options"''"F : Full Sheet Size"'"P : Pocket Size";:W=�
� �W=70 � �0:�2:� file$':�T^E
� �W=80 � �0:�2:� file$':�dvD
��7:�tzD
�� <Printer starts here>
�� <Set Up Par. Printer>
�*FX 6,1
%�1,27,1,83,1,1:� <Set Small Font>

	�1,15
�1,27,1,53
�printloop=1 � 40
(��3:�7:�d\E
24�num(printloop)=-999 � num(printloop)=0 � � �tLE
<�1,27,1,53:�num(printloop);
F�"  "rname$(printloop);
P�1,27,1,52
Z;�(rname$(printloop))<13 �((13-�(rname$(printloop))));
d�or1$(printloop)
n0�or2$(printloop) <>"" �(25);or2$(printloop)
x0�or3$(printloop) <>"" �(25);or3$(printloop)
��printloop
�	�1,18
��1,27,1,84
��1,27,1,53
��''
��3
�  
�
�*FX200,1
��
�f�7:�mainwindow:�:�c("ERROR!")'''�c("Printer Output Interrupted.")'''''�c("Printing abandoned.")''
��''�c("To retry, check connection")''�c("between unit and printer and select")''�c("'P' from the menu bar you")''�c("will now be returned to."):�comwindow
�$�''''''�c("Press SPACE")':���=32
�
�*FX200,1
 
2�mainwindow:�:�c("""INSPECT"" UTILITY"):�tV@

�*FX200,1
"^�7:�mainwindow:�:�c("ERROR!")'''�c("File Error")'''''�c("Non-existent ROUND accessed!")''
,� #theround
6��''�c("You have attempted to access")''�c("a round which has not been")''�c("been created yet, or a file of")''�c("incorrect typed data."):�comwindow:�''''''�c("Press SPACE")':���=32
@ 
J2�mainwindow:�:�c("""INSPECT"" UTILITY"):�tV@
T��out:*DIR
^�"MENU"
�

00000000  0d 00 0a 20 f4 20 42 54  45 43 20 50 52 4f 4a 45  |... . BTEC PROJE|
00000010  43 54 20 22 50 41 47 45  33 22 20 76 2e 32 2e 35  |CT "PAGE3" v.2.5|
00000020  0d 00 14 20 f4 20 54 68  69 72 64 20 4f 72 64 65  |... . Third Orde|
00000030  72 20 42 75 67 20 43 4f  52 52 45 43 54 45 44 21  |r Bug CORRECTED!|
00000040  0d 00 1e 0c 2a 46 58 32  30 30 2c 31 0d 00 28 0a  |....*FX200,1..(.|
00000050  2a 43 4c 4f 53 45 0d 00  32 0b 61 3d 30 3a 41 3d  |*CLOSE..2.a=0:A=|
00000060  30 0d 00 3c 13 70 61 67  65 25 3d 30 3a 76 61 6c  |0..<.page%=0:val|
00000070  69 64 3d 30 0d 00 46 12  63 6f 6e 73 74 3d 32 3a  |id=0..F.const=2:|
00000080  75 70 74 6f 3d 31 0d 00  50 0f f2 6d 61 69 6e 77  |upto=1..P..mainw|
00000090  69 6e 64 6f 77 0d 00 5a  20 db 3a f1 a4 63 28 22  |indow..Z .:..c("|
000000a0  22 22 49 4e 53 50 45 43  54 22 22 20 55 54 49 4c  |""INSPECT"" UTIL|
000000b0  49 54 59 22 29 0d 00 64  13 ef 32 33 3b 38 32 30  |ITY")..d..23;820|
000000c0  32 3b 30 3b 30 3b 30 3b  0d 00 6e 18 de 6e 61 6d  |2;0;0;0;..n..nam|
000000d0  65 24 28 31 35 29 2c 70  72 69 63 65 28 31 35 29  |e$(15),price(15)|
000000e0  0d 00 78 14 f2 67 65 74  74 6f 64 61 79 73 70 72  |..x..gettodayspr|
000000f0  69 63 65 73 0d 00 82 10  2a 44 49 52 20 4d 4f 52  |ices....*DIR MOR|
00000100  4e 49 4e 47 0d 00 8c 7b  de 6e 75 6d 28 34 30 29  |NING...{.num(40)|
00000110  2c 72 6e 61 6d 65 24 28  34 30 29 2c 69 6e 69 74  |,rname$(40),init|
00000120  24 28 34 30 29 2c 73 6e  61 6d 65 24 28 34 30 29  |$(40),sname$(40)|
00000130  2c 74 69 74 6c 65 24 28  34 30 29 2c 74 65 6c 6e  |,title$(40),teln|
00000140  6f 28 34 30 29 2c 6f 72  31 24 28 34 30 29 2c 6f  |o(40),or1$(40),o|
00000150  72 32 24 28 34 30 29 2c  6f 72 33 24 28 34 30 29  |r2$(40),or3$(40)|
00000160  2c 74 6f 64 61 79 73 62  69 6c 6c 28 34 30 29 2c  |,todaysbill(40),|
00000170  6f 75 74 73 74 61 6e 64  69 6e 67 28 34 30 29 0d  |outstanding(40).|
00000180  00 96 0a f2 72 6f 75 6e  64 0d 00 a0 10 f2 64 69  |....round.....di|
00000190  73 70 6c 61 79 64 61 74  61 0d 00 aa 09 e5 8d 74  |splaydata......t|
000001a0  56 40 0d 00 b4 06 20 20  0d 00 be 0b dd f2 72 6f  |V@....  ......ro|
000001b0  75 6e 64 0d 00 c8 0a 2a  43 4c 4f 53 45 0d 00 d2  |und....*CLOSE...|
000001c0  9e f2 63 6f 6d 77 69 6e  64 6f 77 3a f1 27 27 27  |..comwindow:.'''|
000001d0  27 27 27 22 43 20 3a 20  43 61 74 61 6c 6f 67 75  |'''"C : Catalogu|
000001e0  65 20 4d 6f 72 6e 69 6e  67 20 52 6f 75 6e 64 73  |e Morning Rounds|
000001f0  22 27 22 56 20 3a 20 56  69 65 77 20 50 61 72 74  |"'"V : View Part|
00000200  69 63 75 6c 61 72 20 4d  6f 72 6e 69 6e 67 20 52  |icular Morning R|
00000210  6f 75 6e 64 22 27 22 50  20 3a 20 50 72 69 6e 74  |ound"'"P : Print|
00000220  20 4f 75 74 20 4d 6f 72  6e 69 6e 67 20 52 6f 75  | Out Morning Rou|
00000230  6e 64 22 27 22 51 20 3a  20 51 75 69 74 20 41 6e  |nd"'"Q : Quit An|
00000240  64 20 52 65 74 75 72 6e  20 54 6f 20 4d 61 69 6e  |d Return To Main|
00000250  20 4d 65 6e 75 22 3b 3a  49 3d a5 0d 00 dc 1f f2  | Menu";:I=......|
00000260  6d 61 69 6e 77 69 6e 64  6f 77 3a e7 49 3d 36 37  |mainwindow:.I=67|
00000270  f2 63 61 74 3a e5 8d 64  52 40 0d 00 e6 18 e7 49  |.cat:..dR@.....I|
00000280  3d 38 36 f2 71 75 65 73  74 69 6f 6e 3a e5 8d 54  |=86.question:..T|
00000290  4e 41 0d 00 f0 22 e7 49  3d 38 30 f2 71 75 65 73  |NA...".I=80.ques|
000002a0  74 69 6f 6e 3a f2 70 72  69 6e 74 6f 75 74 3a e5  |tion:.printout:.|
000002b0  8d 64 52 40 0d 00 fa 39  e7 49 3d 38 31 f2 63 6f  |.dR@...9.I=81.co|
000002c0  6d 77 69 6e 64 6f 77 3a  f1 27 27 27 27 27 27 27  |mwindow:.'''''''|
000002d0  a4 63 28 22 4c 6f 61 64  69 6e 67 20 4d 61 69 6e  |.c("Loading Main|
000002e0  20 4d 65 6e 75 22 29 27  3a f2 6f 75 74 0d 01 04  | Menu")':.out...|
000002f0  0d 49 3d a5 3a e5 8d 64  5c 40 0d 01 0e 11 e7 76  |.I=.:..d\@.....v|
00000300  61 6c 69 64 3d 30 e5 8d  64 52 40 0d 01 18 0d ee  |alid=0..dR@.....|
00000310  20 85 20 e5 8d 54 62 46  0d 01 22 05 20 0d 01 2c  | . ..TbF..". ..,|
00000320  15 74 68 65 72 6f 75 6e  64 3d 8e 28 66 69 6c 65  |.theround=.(file|
00000330  24 29 0d 01 36 13 63 6f  75 6e 74 3d 30 3a 6c 69  |$)..6.count=0:li|
00000340  6e 65 73 3d 30 0d 01 40  05 f5 0d 01 4a 11 63 6f  |nes=0..@....J.co|
00000350  75 6e 74 3d 63 6f 75 6e  74 2b 31 0d 01 54 a6 e8  |unt=count+1..T..|
00000360  23 74 68 65 72 6f 75 6e  64 2c 6e 75 6d 28 63 6f  |#theround,num(co|
00000370  75 6e 74 29 2c 72 6e 61  6d 65 24 28 63 6f 75 6e  |unt),rname$(coun|
00000380  74 29 2c 69 6e 69 74 24  28 63 6f 75 6e 74 29 2c  |t),init$(count),|
00000390  73 6e 61 6d 65 24 28 63  6f 75 6e 74 29 2c 74 69  |sname$(count),ti|
000003a0  74 6c 65 24 28 63 6f 75  6e 74 29 2c 74 65 6c 6e  |tle$(count),teln|
000003b0  6f 28 63 6f 75 6e 74 29  2c 6f 72 31 24 28 63 6f  |o(count),or1$(co|
000003c0  75 6e 74 29 2c 6f 72 32  24 28 63 6f 75 6e 74 29  |unt),or2$(count)|
000003d0  2c 6f 72 33 24 28 63 6f  75 6e 74 29 2c 74 6f 64  |,or3$(count),tod|
000003e0  61 79 73 62 69 6c 6c 28  63 6f 75 6e 74 29 2c 6f  |aysbill(count),o|
000003f0  75 74 73 74 61 6e 64 69  6e 67 28 63 6f 75 6e 74  |utstanding(count|
00000400  29 0d 01 5e 24 e7 6f 72  32 24 28 63 6f 75 6e 74  |)..^$.or2$(count|
00000410  29 20 3c 3e 20 22 22 20  6c 69 6e 65 73 3d 6c 69  |) <> "" lines=li|
00000420  6e 65 73 2b 31 0d 01 68  24 e7 6f 72 33 24 28 63  |nes+1..h$.or3$(c|
00000430  6f 75 6e 74 29 20 3c 3e  20 22 22 20 6c 69 6e 65  |ount) <> "" line|
00000440  73 3d 6c 69 6e 65 73 2b  31 0d 01 72 11 6c 69 6e  |s=lines+1..r.lin|
00000450  65 73 3d 6c 69 6e 65 73  2b 31 0d 01 7c 30 e7 6e  |es=lines+1..|0.n|
00000460  75 6d 28 63 6f 75 6e 74  29 3d 2d 39 39 39 20 8c  |um(count)=-999 .|
00000470  20 6f 75 74 3d 31 3a 6c  69 6e 65 73 3d 6c 69 6e  | out=1:lines=lin|
00000480  65 73 2d 31 3a e5 8d 74  5a 41 0d 01 86 2b 44 24  |es-1:..tZA...+D$|
00000490  20 3d 20 c0 69 6e 69 74  24 28 63 6f 75 6e 74 29  | = .init$(count)|
000004a0  2c 31 29 3a 69 6e 69 74  24 28 63 6f 75 6e 74 29  |,1):init$(count)|
000004b0  20 3d 20 44 24 0d 01 90  10 fd 20 c5 23 74 68 65  | = D$..... .#the|
000004c0  72 6f 75 6e 64 0d 01 9a  0f d9 20 23 74 68 65 72  |round..... #ther|
000004d0  6f 75 6e 64 0d 01 a4 05  e1 0d 01 ae 06 20 20 0d  |ound.........  .|
000004e0  01 b8 15 dd f2 67 65 74  74 6f 64 61 79 73 70 72  |.....gettodayspr|
000004f0  69 63 65 73 0d 01 c2 16  74 68 61 74 5f 6f 6e 65  |ices....that_one|
00000500  3d 8e 28 22 44 41 54 41  22 29 0d 01 cc 0b 63 6f  |=.("DATA")....co|
00000510  75 6e 74 3d 30 0d 01 d6  05 f5 0d 01 e0 11 63 6f  |unt=0.........co|
00000520  75 6e 74 3d 63 6f 75 6e  74 2b 31 0d 01 ea 17 f4  |unt=count+1.....|
00000530  4f 4e 20 45 52 52 4f 52  20 47 4f 54 4f 20 31 35  |ON ERROR GOTO 15|
00000540  39 30 0d 01 f4 28 e8 23  74 68 61 74 5f 6f 6e 65  |90...(.#that_one|
00000550  2c 6e 61 6d 65 24 28 63  6f 75 6e 74 29 2c 70 72  |,name$(count),pr|
00000560  69 63 65 28 63 6f 75 6e  74 29 0d 01 fe 10 fd 20  |ice(count)..... |
00000570  c5 23 74 68 61 74 5f 6f  6e 65 0d 02 08 0f d9 20  |.#that_one..... |
00000580  23 74 68 61 74 5f 6f 6e  65 0d 02 12 05 e1 0d 02  |#that_one.......|
00000590  1c 05 20 0d 02 26 11 dd  f2 64 69 73 70 6c 61 79  |.. ..&...display|
000005a0  64 61 74 61 0d 02 30 29  f2 6d 61 69 6e 77 69 6e  |data..0).mainwin|
000005b0  64 6f 77 3a db 3a f1 a4  63 28 22 52 4f 55 4e 44  |dow:.:..c("ROUND|
000005c0  20 53 54 41 54 49 53 54  49 43 53 22 29 0d 02 3a  | STATISTICS")..:|
000005d0  97 f1 8a 30 2c 33 29 22  52 6f 75 6e 64 20 4e 75  |...0,3)"Round Nu|
000005e0  6d 62 65 72 20 20 20 20  20 20 20 20 20 20 20 20  |mber            |
000005f0  20 20 20 20 20 20 20 20  20 20 3a 20 20 22 3b c2  |          :  ";.|
00000600  66 69 6c 65 24 2c 31 29  27 22 4e 75 6d 62 65 72  |file$,1)'"Number|
00000610  20 6f 66 20 70 61 70 65  72 73 20 20 20 20 20 20  | of papers      |
00000620  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 22 3b  |            : ";|
00000630  6c 69 6e 65 73 27 22 4e  75 6d 62 65 72 20 6f 66  |lines'"Number of|
00000640  20 68 6f 75 73 65 73 20  6f 6e 20 72 6f 75 6e 64  | houses on round|
00000650  20 20 20 20 20 20 20 20  20 3a 20 22 3b 63 6f 75  |         : ";cou|
00000660  6e 74 2d 31 0d 02 44 1d  70 61 67 65 25 3d 31 3a  |nt-1..D.page%=1:|
00000670  e7 6c 69 6e 65 73 3e 31  37 20 70 61 67 65 25 3d  |.lines>17 page%=|
00000680  32 0d 02 4e 15 e7 6c 69  6e 65 73 3e 33 34 20 70  |2..N..lines>34 p|
00000690  61 67 65 25 3d 33 0d 02  58 32 f1 22 4e 75 6d 62  |age%=3..X2."Numb|
000006a0  65 72 20 6f 66 20 73 63  72 65 65 6e 20 70 61 67  |er of screen pag|
000006b0  65 73 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |es            : |
000006c0  20 22 3b 70 61 67 65 25  0d 02 62 2f f2 63 6f 6d  | ";page%..b/.com|
000006d0  77 69 6e 64 6f 77 3a f1  27 27 27 27 27 27 a4 63  |window:.''''''.c|
000006e0  28 22 50 72 65 73 73 20  53 70 61 63 65 22 29 27  |("Press Space")'|
000006f0  3a f5 fd a5 3d 33 32 0d  02 6c 36 e3 74 68 69 73  |:...=32..l6.this|
00000700  70 61 67 65 25 3d 31 b8  70 61 67 65 25 3a 73 74  |page%=1.page%:st|
00000710  61 72 74 66 72 6f 6d 3d  75 70 74 6f 3a f2 77 72  |artfrom=upto:.wr|
00000720  69 74 65 74 6f 73 63 72  65 65 6e 3a ed 0d 02 76  |itetoscreen:...v|
00000730  2e 75 70 74 6f 3d 31 3a  70 61 67 65 25 3d 30 3a  |.upto=1:page%=0:|
00000740  76 61 6c 69 64 3d 30 3a  63 6f 6e 73 74 3d 32 3a  |valid=0:const=2:|
00000750  73 74 61 72 74 66 72 6f  6d 3d 30 0d 02 80 22 75  |startfrom=0..."u|
00000760  70 74 6f 3d 31 3a 70 61  67 65 25 3d 30 3a 76 61  |pto=1:page%=0:va|
00000770  6c 69 64 3d 30 3a 63 6f  6e 73 74 3d 32 0d 02 8a  |lid=0:const=2...|
00000780  2c f2 6d 61 69 6e 77 69  6e 64 6f 77 3a db 3a f1  |,.mainwindow:.:.|
00000790  a4 63 28 22 22 22 49 4e  53 50 45 43 54 22 22 20  |.c("""INSPECT"" |
000007a0  55 54 49 4c 49 54 59 22  29 0d 02 94 05 e1 0d 02  |UTILITY").......|
000007b0  9e 10 dd f2 6d 61 69 6e  77 69 6e 64 6f 77 0d 02  |....mainwindow..|
000007c0  a8 11 ef 32 38 2c 31 2c  32 34 2c 33 38 2c 31 0d  |...28,1,24,38,1.|
000007d0  02 b2 05 e1 0d 02 bc 0f  dd f2 63 6f 6d 77 69 6e  |..........comwin|
000007e0  64 6f 77 0d 02 c6 12 ef  32 38 2c 31 2c 33 30 2c  |dow.....28,1,30,|
000007f0  33 38 2c 32 37 0d 02 d0  05 e1 0d 02 da 1c dd a4  |38,27...........|
00000800  63 28 43 24 29 3a f1 8a  31 39 2d a9 43 24 2f 32  |c(C$):..19-.C$/2|
00000810  29 3b 3a 3d 43 24 0d 02  e4 13 dd f2 77 72 69 74  |);:=C$......writ|
00000820  65 74 6f 73 63 72 65 65  6e 0d 02 ee 11 f2 6d 61  |etoscreen.....ma|
00000830  69 6e 77 69 6e 64 6f 77  3a db 0d 02 f8 1f db 3a  |inwindow:......:|
00000840  f1 8a 31 36 2c 30 29 22  52 4f 55 4e 44 20 22 3b  |..16,0)"ROUND ";|
00000850  c2 66 69 6c 65 24 2c 31  29 0d 03 02 24 f1 8a 33  |.file$,1)...$..3|
00000860  32 2c 30 29 22 50 67 20  22 3b 74 68 69 73 70 61  |2,0)"Pg ";thispa|
00000870  67 65 25 3b 22 2f 22 3b  70 61 67 65 25 0d 03 0c  |ge%;"/";page%...|
00000880  31 f4 20 49 46 20 74 68  69 73 70 61 67 65 25 3d  |1. IF thispage%=|
00000890  31 20 57 52 49 54 45 20  32 30 20 6c 69 6e 65 73  |1 WRITE 20 lines|
000008a0  20 4f 4e 20 54 48 45 20  53 43 52 45 45 4e 0d 03  | ON THE SCREEN..|
000008b0  16 1d e7 20 74 68 69 73  70 61 67 65 25 3d 31 20  |... thispage%=1 |
000008c0  73 74 61 72 74 66 72 6f  6d 3d 31 0d 03 20 20 e3  |startfrom=1..  .|
000008d0  20 41 3d 73 74 61 72 74  66 72 6f 6d 20 b8 20 73  | A=startfrom . s|
000008e0  74 61 72 74 66 72 6f 6d  2b 31 36 0d 03 2a 5a e7  |tartfrom+16..*Z.|
000008f0  6e 75 6d 28 41 29 3d 2d  39 39 39 20 f2 63 6f 6d  |num(A)=-999 .com|
00000900  77 69 6e 64 6f 77 3a f1  27 27 27 27 27 27 a4 63  |window:.''''''.c|
00000910  28 22 56 69 65 77 69 6e  67 20 63 6f 6d 70 6c 65  |("Viewing comple|
00000920  74 65 22 29 27 a4 63 28  22 50 72 65 73 73 20 53  |te")'.c("Press S|
00000930  70 61 63 65 22 29 3a 41  3d 73 74 61 72 74 66 72  |pace"):A=startfr|
00000940  6f 6d 2b 31 36 0d 03 34  2d e7 20 41 3d 73 74 61  |om+16..4-. A=sta|
00000950  72 74 66 72 6f 6d 2b 31  36 20 8c 20 75 70 74 6f  |rtfrom+16 . upto|
00000960  3d 41 3a 63 6f 6e 73 74  3d 2d 31 34 3a e5 8d 44  |=A:const=-14:..D|
00000970  5c 43 0d 03 3e 3f f1 8a  30 2c 41 2b 63 6f 6e 73  |\C..>?..0,A+cons|
00000980  74 29 3b 6e 75 6d 28 41  29 3b 8a 36 2c 41 2b 63  |t);num(A);.6,A+c|
00000990  6f 6e 73 74 29 72 6e 61  6d 65 24 28 41 29 8a 31  |onst)rname$(A).1|
000009a0  37 2c 41 2b 63 6f 6e 73  74 29 6f 72 31 24 28 41  |7,A+const)or1$(A|
000009b0  29 0d 03 48 38 e7 20 6f  72 32 24 28 41 29 20 3c  |)..H8. or2$(A) <|
000009c0  3e 20 22 22 20 8c 20 63  6f 6e 73 74 3d 63 6f 6e  |> "" . const=con|
000009d0  73 74 2b 31 3a f1 8a 31  37 2c 41 2b 63 6f 6e 73  |st+1:..17,A+cons|
000009e0  74 29 6f 72 32 24 28 41  29 0d 03 52 38 e7 20 6f  |t)or2$(A)..R8. o|
000009f0  72 33 24 28 41 29 20 3c  3e 20 22 22 20 8c 20 63  |r3$(A) <> "" . c|
00000a00  6f 6e 73 74 3d 63 6f 6e  73 74 2b 31 3a f1 8a 31  |onst=const+1:..1|
00000a10  37 2c 41 2b 63 6f 6e 73  74 29 6f 72 33 24 28 41  |7,A+const)or3$(A|
00000a20  29 0d 03 5c 07 ed 20 41  0d 03 66 0a f5 fd a5 3d  |)..\.. A..f....=|
00000a30  33 32 0d 03 70 05 e1 0d  03 7a 09 dd f2 63 61 74  |32..p....z...cat|
00000a40  0d 03 84 28 f1 8a 30 2c  33 29 22 43 61 74 61 6c  |...(..0,3)"Catal|
00000a50  6f 67 75 69 6e 67 20 6d  6f 72 6e 69 6e 67 20 72  |oguing morning r|
00000a60  6f 75 6e 64 73 20 3a 22  0d 03 8e 06 20 20 0d 03  |ounds :"....  ..|
00000a70  98 12 ef 32 38 2c 31 30  2c 32 33 2c 32 39 2c 38  |...28,10,23,29,8|
00000a80  0d 03 a2 06 2a 2e 0d 03  ac 2f f2 63 6f 6d 77 69  |....*..../.comwi|
00000a90  6e 64 6f 77 3a f1 27 27  27 27 27 27 a4 63 28 22  |ndow:.''''''.c("|
00000aa0  50 72 65 73 73 20 53 70  61 63 65 22 29 27 3a f5  |Press Space")':.|
00000ab0  fd a5 3d 33 32 0d 03 b6  06 20 20 0d 03 c0 05 e1  |..=32....  .....|
00000ac0  0d 03 ca 0e dd f2 71 75  65 73 74 69 6f 6e 0d 03  |......question..|
00000ad0  d4 32 f2 63 6f 6d 77 69  6e 64 6f 77 3a f1 27 27  |.2.comwindow:.''|
00000ae0  27 27 27 27 27 27 22 57  68 69 63 68 20 72 6f 75  |''''''"Which rou|
00000af0  6e 64 20 22 27 3a e8 8a  31 32 2c 31 29 3b 53 24  |nd "':..12,1);S$|
00000b00  0d 03 de 66 e7 20 53 24  3d 22 31 22 20 84 20 53  |...f. S$="1" . S|
00000b10  24 3d 22 32 22 20 84 20  53 24 3d 22 33 22 20 84  |$="2" . S$="3" .|
00000b20  20 53 24 3d 22 34 22 20  84 20 53 24 3d 22 35 22  | S$="4" . S$="5"|
00000b30  20 84 20 53 24 3d 22 36  22 20 84 20 53 24 3d 22  | . S$="6" . S$="|
00000b40  37 22 20 84 20 53 24 3d  22 38 22 20 8c 20 66 69  |7" . S$="8" . fi|
00000b50  6c 65 24 3d 22 52 4f 55  4e 44 22 2b 53 24 3a 76  |le$="ROUND"+S$:v|
00000b60  61 6c 69 64 3d 31 0d 03  e8 18 e7 20 a9 28 53 24  |alid=1..... .(S$|
00000b70  29 3e 37 20 76 61 6c 69  64 3d 30 3a ef 37 0d 03  |)>7 valid=0:.7..|
00000b80  f2 86 e7 20 53 24 3d 22  52 4f 55 4e 44 31 22 20  |... S$="ROUND1" |
00000b90  84 20 53 24 3d 22 52 4f  55 4e 44 32 22 20 84 20  |. S$="ROUND2" . |
00000ba0  53 24 3d 22 52 4f 55 4e  44 33 22 20 84 20 53 24  |S$="ROUND3" . S$|
00000bb0  3d 22 52 4f 55 4e 44 34  22 20 84 20 53 24 3d 22  |="ROUND4" . S$="|
00000bc0  52 4f 55 4e 44 35 22 20  84 20 53 24 3d 22 52 4f  |ROUND5" . S$="RO|
00000bd0  55 4e 44 36 22 20 84 20  53 24 3d 22 52 4f 55 4e  |UND6" . S$="ROUN|
00000be0  44 37 22 20 84 20 53 24  3d 22 52 4f 55 4e 44 38  |D7" . S$="ROUND8|
00000bf0  22 20 8c 20 66 69 6c 65  24 3d 53 24 3a 76 61 6c  |" . file$=S$:val|
00000c00  69 64 3d 31 0d 03 fc 05  e1 0d 04 06 0e dd f2 70  |id=1...........p|
00000c10  72 69 6e 74 6f 75 74 0d  04 10 19 e7 76 61 6c 69  |rintout.....vali|
00000c20  64 3d 31 20 8c 20 e5 20  8d 54 5a 44 20 8b 20 e1  |d=1 . . .TZD . .|
00000c30  0d 04 1a 15 74 68 65 72  6f 75 6e 64 3d 8e 28 66  |....theround=.(f|
00000c40  69 6c 65 24 29 0d 04 24  0b 63 6f 75 6e 74 3d 30  |ile$)..$.count=0|
00000c50  0d 04 2e 05 f5 0d 04 38  11 63 6f 75 6e 74 3d 63  |.......8.count=c|
00000c60  6f 75 6e 74 2b 31 0d 04  42 a6 e8 23 74 68 65 72  |ount+1..B..#ther|
00000c70  6f 75 6e 64 2c 6e 75 6d  28 63 6f 75 6e 74 29 2c  |ound,num(count),|
00000c80  72 6e 61 6d 65 24 28 63  6f 75 6e 74 29 2c 69 6e  |rname$(count),in|
00000c90  69 74 24 28 63 6f 75 6e  74 29 2c 73 6e 61 6d 65  |it$(count),sname|
00000ca0  24 28 63 6f 75 6e 74 29  2c 74 69 74 6c 65 24 28  |$(count),title$(|
00000cb0  63 6f 75 6e 74 29 2c 74  65 6c 6e 6f 28 63 6f 75  |count),telno(cou|
00000cc0  6e 74 29 2c 6f 72 31 24  28 63 6f 75 6e 74 29 2c  |nt),or1$(count),|
00000cd0  6f 72 32 24 28 63 6f 75  6e 74 29 2c 6f 72 33 24  |or2$(count),or3$|
00000ce0  28 63 6f 75 6e 74 29 2c  74 6f 64 61 79 73 62 69  |(count),todaysbi|
00000cf0  6c 6c 28 63 6f 75 6e 74  29 2c 6f 75 74 73 74 61  |ll(count),outsta|
00000d00  6e 64 69 6e 67 28 63 6f  75 6e 74 29 0d 04 4c 2a  |nding(count)..L*|
00000d10  e7 6e 75 6d 28 63 6f 75  6e 74 29 3d 2d 39 39 39  |.num(count)=-999|
00000d20  20 8c 20 63 6f 75 6e 74  3d 63 6f 75 6e 74 2d 31  | . count=count-1|
00000d30  3a 6f 75 74 3d 31 0d 04  56 10 fd 20 c5 23 74 68  |:out=1..V.. .#th|
00000d40  65 72 6f 75 6e 64 0d 04  60 0f d9 20 23 74 68 65  |eround..`.. #the|
00000d50  72 6f 75 6e 64 0d 04 6a  27 f2 6d 61 69 6e 77 69  |round..j'.mainwi|
00000d60  6e 64 6f 77 3a db 3a f1  a4 63 28 22 50 52 49 4e  |ndow:.:..c("PRIN|
00000d70  54 45 52 20 41 44 56 49  43 45 22 29 0d 04 74 2b  |TER ADVICE")..t+|
00000d80  f1 27 27 a4 63 28 22 44  6f 20 6e 6f 74 20 63 68  |.''.c("Do not ch|
00000d90  6f 6f 73 65 20 61 6e 79  20 50 52 49 4e 54 20 6f  |oose any PRINT o|
00000da0  70 74 69 6f 6e 22 29 0d  04 7e 29 f1 27 a4 63 28  |ption")..~).'.c(|
00000db0  22 69 66 20 61 20 70 72  69 6e 74 65 72 20 69 73  |"if a printer is|
00000dc0  20 6e 6f 74 20 63 6f 6e  6e 65 63 74 65 64 22 29  | not connected")|
00000dd0  0d 04 88 1c f1 27 a4 63  28 22 74 6f 20 74 68 65  |.....'.c("to the|
00000de0  20 63 6f 6d 70 75 74 65  72 2e 22 29 0d 04 92 4f  | computer.")...O|
00000df0  f1 27 27 a4 63 28 22 52  65 66 65 72 20 74 6f 20  |.''.c("Refer to |
00000e00  79 6f 75 72 20 70 72 69  6e 74 65 72 20 6d 61 6e  |your printer man|
00000e10  75 61 6c 22 29 27 27 a4  63 28 22 66 6f 72 20 62  |ual")''.c("for b|
00000e20  65 73 74 20 72 65 73 75  6c 74 73 20 77 68 65 6e  |est results when|
00000e30  20 70 72 69 6e 74 69 6e  67 22 29 0d 04 9c 0c 41  | printing")....A|
00000e40  24 3d bf 28 32 30 29 0d  04 a6 0c 2a 46 58 32 30  |$=.(20)....*FX20|
00000e50  30 2c 30 0d 04 b0 0d ee  20 85 20 e5 8d 44 4a 46  |0,0..... . ..DJF|
00000e60  0d 04 ba 55 f2 63 6f 6d  77 69 6e 64 6f 77 3a f1  |...U.comwindow:.|
00000e70  27 27 27 27 27 22 50 72  69 6e 74 69 6e 67 20 4f  |'''''"Printing O|
00000e80  70 74 69 6f 6e 73 22 27  27 22 46 20 3a 20 46 75  |ptions"''"F : Fu|
00000e90  6c 6c 20 53 68 65 65 74  20 53 69 7a 65 22 27 22  |ll Sheet Size"'"|
00000ea0  50 20 3a 20 50 6f 63 6b  65 74 20 53 69 7a 65 22  |P : Pocket Size"|
00000eb0  3b 3a 57 3d a5 0d 04 c4  20 e7 57 3d 37 30 20 8c  |;:W=.... .W=70 .|
00000ec0  20 fb 30 3a ef 32 3a f1  20 66 69 6c 65 24 27 3a  | .0:.2:. file$':|
00000ed0  e5 8d 54 5e 45 0d 04 ce  20 e7 57 3d 38 30 20 8c  |..T^E... .W=80 .|
00000ee0  20 fb 30 3a ef 32 3a f1  20 66 69 6c 65 24 27 3a  | .0:.2:. file$':|
00000ef0  e5 8d 64 76 44 0d 04 d8  0c ef 37 3a e5 8d 74 7a  |..dvD.....7:..tz|
00000f00  44 0d 04 e2 1b f4 20 3c  50 72 69 6e 74 65 72 20  |D..... <Printer |
00000f10  73 74 61 72 74 73 20 68  65 72 65 3e 0d 04 ec 1b  |starts here>....|
00000f20  f4 20 3c 53 65 74 20 55  70 20 50 61 72 2e 20 50  |. <Set Up Par. P|
00000f30  72 69 6e 74 65 72 3e 0d  04 f6 0b 2a 46 58 20 36  |rinter>....*FX 6|
00000f40  2c 31 0d 05 00 25 ef 31  2c 32 37 2c 31 2c 38 33  |,1...%.1,27,1,83|
00000f50  2c 31 2c 31 3a f4 20 3c  53 65 74 20 53 6d 61 6c  |,1,1:. <Set Smal|
00000f60  6c 20 46 6f 6e 74 3e 0d  05 0a 09 ef 31 2c 31 35  |l Font>.....1,15|
00000f70  0d 05 14 0e ef 31 2c 32  37 2c 31 2c 35 33 0d 05  |.....1,27,1,53..|
00000f80  1e 15 e3 70 72 69 6e 74  6c 6f 6f 70 3d 31 20 b8  |...printloop=1 .|
00000f90  20 34 30 0d 05 28 11 ee  85 ef 33 3a fb 37 3a e5  | 40..(....3:.7:.|
00000fa0  8d 64 5c 45 0d 05 32 34  e7 6e 75 6d 28 70 72 69  |.d\E..24.num(pri|
00000fb0  6e 74 6c 6f 6f 70 29 3d  2d 39 39 39 20 84 20 6e  |ntloop)=-999 . n|
00000fc0  75 6d 28 70 72 69 6e 74  6c 6f 6f 70 29 3d 30 20  |um(printloop)=0 |
00000fd0  8c 20 e5 20 8d 74 4c 45  0d 05 3c 1f ef 31 2c 32  |. . .tLE..<..1,2|
00000fe0  37 2c 31 2c 35 33 3a f1  6e 75 6d 28 70 72 69 6e  |7,1,53:.num(prin|
00000ff0  74 6c 6f 6f 70 29 3b 0d  05 46 1b f1 22 20 20 22  |tloop);..F.."  "|
00001000  72 6e 61 6d 65 24 28 70  72 69 6e 74 6c 6f 6f 70  |rname$(printloop|
00001010  29 3b 0d 05 50 0e ef 31  2c 32 37 2c 31 2c 35 32  |);..P..1,27,1,52|
00001020  0d 05 5a 3b e7 a9 28 72  6e 61 6d 65 24 28 70 72  |..Z;..(rname$(pr|
00001030  69 6e 74 6c 6f 6f 70 29  29 3c 31 33 20 f1 89 28  |intloop))<13 ..(|
00001040  28 31 33 2d a9 28 72 6e  61 6d 65 24 28 70 72 69  |(13-.(rname$(pri|
00001050  6e 74 6c 6f 6f 70 29 29  29 29 3b 0d 05 64 14 f1  |ntloop))));..d..|
00001060  6f 72 31 24 28 70 72 69  6e 74 6c 6f 6f 70 29 0d  |or1$(printloop).|
00001070  05 6e 30 e7 6f 72 32 24  28 70 72 69 6e 74 6c 6f  |.n0.or2$(printlo|
00001080  6f 70 29 20 3c 3e 22 22  20 f1 89 28 32 35 29 3b  |op) <>"" ..(25);|
00001090  6f 72 32 24 28 70 72 69  6e 74 6c 6f 6f 70 29 0d  |or2$(printloop).|
000010a0  05 78 30 e7 6f 72 33 24  28 70 72 69 6e 74 6c 6f  |.x0.or3$(printlo|
000010b0  6f 70 29 20 3c 3e 22 22  20 f1 89 28 32 35 29 3b  |op) <>"" ..(25);|
000010c0  6f 72 33 24 28 70 72 69  6e 74 6c 6f 6f 70 29 0d  |or3$(printloop).|
000010d0  05 82 0e ed 70 72 69 6e  74 6c 6f 6f 70 0d 05 8c  |....printloop...|
000010e0  09 ef 31 2c 31 38 0d 05  96 0e ef 31 2c 32 37 2c  |..1,18.....1,27,|
000010f0  31 2c 38 34 0d 05 a0 0e  ef 31 2c 32 37 2c 31 2c  |1,84.....1,27,1,|
00001100  35 33 0d 05 aa 07 f1 27  27 0d 05 b4 06 ef 33 0d  |53.....''.....3.|
00001110  05 be 06 20 20 0d 05 c8  0d f4 2a 46 58 32 30 30  |...  .....*FX200|
00001120  2c 31 0d 05 d2 05 e1 0d  05 dc 66 ef 37 3a f2 6d  |,1........f.7:.m|
00001130  61 69 6e 77 69 6e 64 6f  77 3a db 3a f1 a4 63 28  |ainwindow:.:..c(|
00001140  22 45 52 52 4f 52 21 22  29 27 27 27 a4 63 28 22  |"ERROR!")'''.c("|
00001150  50 72 69 6e 74 65 72 20  4f 75 74 70 75 74 20 49  |Printer Output I|
00001160  6e 74 65 72 72 75 70 74  65 64 2e 22 29 27 27 27  |nterrupted.")'''|
00001170  27 27 a4 63 28 22 50 72  69 6e 74 69 6e 67 20 61  |''.c("Printing a|
00001180  62 61 6e 64 6f 6e 65 64  2e 22 29 27 27 0d 05 e6  |bandoned.")''...|
00001190  9e f1 27 27 a4 63 28 22  54 6f 20 72 65 74 72 79  |..''.c("To retry|
000011a0  2c 20 63 68 65 63 6b 20  63 6f 6e 6e 65 63 74 69  |, check connecti|
000011b0  6f 6e 22 29 27 27 a4 63  28 22 62 65 74 77 65 65  |on")''.c("betwee|
000011c0  6e 20 75 6e 69 74 20 61  6e 64 20 70 72 69 6e 74  |n unit and print|
000011d0  65 72 20 61 6e 64 20 73  65 6c 65 63 74 22 29 27  |er and select")'|
000011e0  27 a4 63 28 22 27 50 27  20 66 72 6f 6d 20 74 68  |'.c("'P' from th|
000011f0  65 20 6d 65 6e 75 20 62  61 72 20 79 6f 75 22 29  |e menu bar you")|
00001200  27 27 a4 63 28 22 77 69  6c 6c 20 6e 6f 77 20 62  |''.c("will now b|
00001210  65 20 72 65 74 75 72 6e  65 64 20 74 6f 2e 22 29  |e returned to.")|
00001220  3a f2 63 6f 6d 77 69 6e  64 6f 77 0d 05 f0 24 f1  |:.comwindow...$.|
00001230  27 27 27 27 27 27 a4 63  28 22 50 72 65 73 73 20  |''''''.c("Press |
00001240  53 50 41 43 45 22 29 27  3a f5 fd a5 3d 33 32 0d  |SPACE")':...=32.|
00001250  05 fa 0d f4 2a 46 58 32  30 30 2c 31 0d 06 04 05  |....*FX200,1....|
00001260  20 0d 06 0e 32 f2 6d 61  69 6e 77 69 6e 64 6f 77  | ...2.mainwindow|
00001270  3a db 3a f1 a4 63 28 22  22 22 49 4e 53 50 45 43  |:.:..c("""INSPEC|
00001280  54 22 22 20 55 54 49 4c  49 54 59 22 29 3a e5 8d  |T"" UTILITY"):..|
00001290  74 56 40 0d 06 18 0d f4  2a 46 58 32 30 30 2c 31  |tV@.....*FX200,1|
000012a0  0d 06 22 5e ef 37 3a f2  6d 61 69 6e 77 69 6e 64  |.."^.7:.mainwind|
000012b0  6f 77 3a db 3a f1 a4 63  28 22 45 52 52 4f 52 21  |ow:.:..c("ERROR!|
000012c0  22 29 27 27 27 a4 63 28  22 46 69 6c 65 20 45 72  |")'''.c("File Er|
000012d0  72 6f 72 22 29 27 27 27  27 27 a4 63 28 22 4e 6f  |ror")'''''.c("No|
000012e0  6e 2d 65 78 69 73 74 65  6e 74 20 52 4f 55 4e 44  |n-existent ROUND|
000012f0  20 61 63 63 65 73 73 65  64 21 22 29 27 27 0d 06  | accessed!")''..|
00001300  2c 0f d9 20 23 74 68 65  72 6f 75 6e 64 0d 06 36  |,.. #theround..6|
00001310  ba f1 27 27 a4 63 28 22  59 6f 75 20 68 61 76 65  |..''.c("You have|
00001320  20 61 74 74 65 6d 70 74  65 64 20 74 6f 20 61 63  | attempted to ac|
00001330  63 65 73 73 22 29 27 27  a4 63 28 22 61 20 72 6f  |cess")''.c("a ro|
00001340  75 6e 64 20 77 68 69 63  68 20 68 61 73 20 6e 6f  |und which has no|
00001350  74 20 62 65 65 6e 22 29  27 27 a4 63 28 22 62 65  |t been")''.c("be|
00001360  65 6e 20 63 72 65 61 74  65 64 20 79 65 74 2c 20  |en created yet, |
00001370  6f 72 20 61 20 66 69 6c  65 20 6f 66 22 29 27 27  |or a file of")''|
00001380  a4 63 28 22 69 6e 63 6f  72 72 65 63 74 20 74 79  |.c("incorrect ty|
00001390  70 65 64 20 64 61 74 61  2e 22 29 3a f2 63 6f 6d  |ped data."):.com|
000013a0  77 69 6e 64 6f 77 3a f1  27 27 27 27 27 27 a4 63  |window:.''''''.c|
000013b0  28 22 50 72 65 73 73 20  53 50 41 43 45 22 29 27  |("Press SPACE")'|
000013c0  3a f5 fd a5 3d 33 32 0d  06 40 05 20 0d 06 4a 32  |:...=32..@. ..J2|
000013d0  f2 6d 61 69 6e 77 69 6e  64 6f 77 3a db 3a f1 a4  |.mainwindow:.:..|
000013e0  63 28 22 22 22 49 4e 53  50 45 43 54 22 22 20 55  |c("""INSPECT"" U|
000013f0  54 49 4c 49 54 59 22 29  3a e5 8d 74 56 40 0d 06  |TILITY"):..tV@..|
00001400  54 0e dd f2 6f 75 74 3a  2a 44 49 52 0d 06 5e 0b  |T...out:*DIR..^.|
00001410  d7 22 4d 45 4e 55 22 0d  ff                       |."MENU"..|
00001419