Home » CEEFAX disks » telesoftware8.adl » 05-08-88/STAT1

05-08-88/STAT1

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 » telesoftware8.adl
Filename: 05-08-88/STAT1
Read OK:
File size: 039F bytes
Load address: 1B00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10PROCfile
   20CLS
   30PROCcheck
   40PTR#E%=0:IF Total>OTOT PRINT#E%,Total-1
   50CLOSE#E%:CLS:*FX15,0
   60END
   70DEF PROCprint
   80CLS
   90PRINTTAB(5,7);"X";TAB(15);"Y"
  100PRINTTAB(0,10);
  110FOR No=Presno-5 TO Presno+5
  120IF No<1 OR No>Total THEN PRINTSTRING$(39," "):GOTO170
  130PTR#E%=12*No-6
  140INPUT#E%,X
  150INPUT#E%,Y
  160PRINTTAB(5);X;TAB(20);Y;TAB(32);No
  170NEXT
  180PRINTTAB(0,15);">"
  190ENDPROC
  200DEF PROCinput
  210PRINTTAB(0,15);STRING$(39," ")
  220INPUT TAB(0,15);X
  230INPUT TAB(19,15);Y
  240PTR#E%=12*Presno-6
  250PRINT#E%,X
  260PRINT#E%,Y
  270Presno=Presno+1
  280ENDPROC
  290DEF PROCcheck
  300flag=1
  310REPEAT
  320IF INKEY(-58) THEN Presno=Presno-1:flag=1
  330IF INKEY(-42) THEN Presno=Presno+1:flag=1
  340IF INKEY(-26) THEN PROCinput:flag=1
  350IF Presno<1 Presno=1
  360IF Presno>Total THEN PTR#E%=12*Presno-6:E=0:PRINT#E%,E:PRINT#E%,E:Total=Presno:flag=1
  370IF flag=1 flag=0:PROCprint
  380UNTIL INKEY(-97)
  390ENDPROC
  400DEF PROCfile
  410Presno=0
  420CLS
  430PRINTTAB(0,10)
  440INPUT"FILENAME : ";nm$
  450E%=OPENUP(nm$)
  460IF E%=0 CLOSE#E%:E%=OPENOUT(nm$):CLOSE#E%:E%=OPENUP(nm$):Total=0:OTOT=0:GOTO500
  470IF E%<>0 INPUT#E%,Total
  475OTOT=Total
  480INPUT"STARTING AT RECORD : ";Presno
  490IF Presno>Total Presno=Total
  500ENDPROC

	�file
�

�check
($�#E%=0:� Total>OTOT �#E%,Total-1
2�#E%:�:*FX15,0
<�
F� �print
P�
Z�5,7);"X";�15);"Y"
d�0,10);
n� No=Presno-5 � Presno+5
x'� No<1 � No>Total � ��39," "):�tj@
��#E%=12*No-6
�
�#E%,X
�
�#E%,Y
��5);X;�20);Y;�32);No
��
��0,15);">"
��
�� �input
��0,15);�39," ")
�� �0,15);X
�� �19,15);Y
��#E%=12*Presno-6
�
�#E%,X

�#E%,Y
Presno=Presno+1
�
"� �check
,
flag=1
6�
@%� �(-58) � Presno=Presno-1:flag=1
J%� �(-42) � Presno=Presno+1:flag=1
T� �(-26) � �input:flag=1
^� Presno<1 Presno=1
hK� Presno>Total � �#E%=12*Presno-6:E=0:�#E%,E:�#E%,E:Total=Presno:flag=1
r� flag=1 flag=0:�print
|� �(-97)
��
�� �file
�Presno=0
��
��0,10)
��"FILENAME : ";nm$
�
E%=�(nm$)
�=� E%=0 �#E%:E%=�(nm$):�#E%:E%=�(nm$):Total=0:OTOT=0:�dtA
�� E%<>0 �#E%,Total
�OTOT=Total
�#�"STARTING AT RECORD : ";Presno
�� Presno>Total Presno=Total
��
�
00000000  0d 00 0a 09 f2 66 69 6c  65 0d 00 14 05 db 0d 00  |.....file.......|
00000010  1e 0a f2 63 68 65 63 6b  0d 00 28 24 cf 23 45 25  |...check..($.#E%|
00000020  3d 30 3a e7 20 54 6f 74  61 6c 3e 4f 54 4f 54 20  |=0:. Total>OTOT |
00000030  f1 23 45 25 2c 54 6f 74  61 6c 2d 31 0d 00 32 12  |.#E%,Total-1..2.|
00000040  d9 23 45 25 3a db 3a 2a  46 58 31 35 2c 30 0d 00  |.#E%:.:*FX15,0..|
00000050  3c 05 e0 0d 00 46 0c dd  20 f2 70 72 69 6e 74 0d  |<....F.. .print.|
00000060  00 50 05 db 0d 00 5a 17  f1 8a 35 2c 37 29 3b 22  |.P....Z...5,7);"|
00000070  58 22 3b 8a 31 35 29 3b  22 59 22 0d 00 64 0c f1  |X";.15);"Y"..d..|
00000080  8a 30 2c 31 30 29 3b 0d  00 6e 1c e3 20 4e 6f 3d  |.0,10);..n.. No=|
00000090  50 72 65 73 6e 6f 2d 35  20 b8 20 50 72 65 73 6e  |Presno-5 . Presn|
000000a0  6f 2b 35 0d 00 78 27 e7  20 4e 6f 3c 31 20 84 20  |o+5..x'. No<1 . |
000000b0  4e 6f 3e 54 6f 74 61 6c  20 8c 20 f1 c4 33 39 2c  |No>Total . ..39,|
000000c0  22 20 22 29 3a e5 8d 74  6a 40 0d 00 82 10 cf 23  |" "):..tj@.....#|
000000d0  45 25 3d 31 32 2a 4e 6f  2d 36 0d 00 8c 0a e8 23  |E%=12*No-6.....#|
000000e0  45 25 2c 58 0d 00 96 0a  e8 23 45 25 2c 59 0d 00  |E%,X.....#E%,Y..|
000000f0  a0 19 f1 8a 35 29 3b 58  3b 8a 32 30 29 3b 59 3b  |....5);X;.20);Y;|
00000100  8a 33 32 29 3b 4e 6f 0d  00 aa 05 ed 0d 00 b4 0f  |.32);No.........|
00000110  f1 8a 30 2c 31 35 29 3b  22 3e 22 0d 00 be 05 e1  |..0,15);">".....|
00000120  0d 00 c8 0c dd 20 f2 69  6e 70 75 74 0d 00 d2 14  |..... .input....|
00000130  f1 8a 30 2c 31 35 29 3b  c4 33 39 2c 22 20 22 29  |..0,15);.39," ")|
00000140  0d 00 dc 0e e8 20 8a 30  2c 31 35 29 3b 58 0d 00  |..... .0,15);X..|
00000150  e6 0f e8 20 8a 31 39 2c  31 35 29 3b 59 0d 00 f0  |... .19,15);Y...|
00000160  14 cf 23 45 25 3d 31 32  2a 50 72 65 73 6e 6f 2d  |..#E%=12*Presno-|
00000170  36 0d 00 fa 0a f1 23 45  25 2c 58 0d 01 04 0a f1  |6.....#E%,X.....|
00000180  23 45 25 2c 59 0d 01 0e  13 50 72 65 73 6e 6f 3d  |#E%,Y....Presno=|
00000190  50 72 65 73 6e 6f 2b 31  0d 01 18 05 e1 0d 01 22  |Presno+1......."|
000001a0  0c dd 20 f2 63 68 65 63  6b 0d 01 2c 0a 66 6c 61  |.. .check..,.fla|
000001b0  67 3d 31 0d 01 36 05 f5  0d 01 40 25 e7 20 a6 28  |g=1..6....@%. .(|
000001c0  2d 35 38 29 20 8c 20 50  72 65 73 6e 6f 3d 50 72  |-58) . Presno=Pr|
000001d0  65 73 6e 6f 2d 31 3a 66  6c 61 67 3d 31 0d 01 4a  |esno-1:flag=1..J|
000001e0  25 e7 20 a6 28 2d 34 32  29 20 8c 20 50 72 65 73  |%. .(-42) . Pres|
000001f0  6e 6f 3d 50 72 65 73 6e  6f 2b 31 3a 66 6c 61 67  |no=Presno+1:flag|
00000200  3d 31 0d 01 54 1c e7 20  a6 28 2d 32 36 29 20 8c  |=1..T.. .(-26) .|
00000210  20 f2 69 6e 70 75 74 3a  66 6c 61 67 3d 31 0d 01  | .input:flag=1..|
00000220  5e 17 e7 20 50 72 65 73  6e 6f 3c 31 20 50 72 65  |^.. Presno<1 Pre|
00000230  73 6e 6f 3d 31 0d 01 68  4b e7 20 50 72 65 73 6e  |sno=1..hK. Presn|
00000240  6f 3e 54 6f 74 61 6c 20  8c 20 cf 23 45 25 3d 31  |o>Total . .#E%=1|
00000250  32 2a 50 72 65 73 6e 6f  2d 36 3a 45 3d 30 3a f1  |2*Presno-6:E=0:.|
00000260  23 45 25 2c 45 3a f1 23  45 25 2c 45 3a 54 6f 74  |#E%,E:.#E%,E:Tot|
00000270  61 6c 3d 50 72 65 73 6e  6f 3a 66 6c 61 67 3d 31  |al=Presno:flag=1|
00000280  0d 01 72 1a e7 20 66 6c  61 67 3d 31 20 66 6c 61  |..r.. flag=1 fla|
00000290  67 3d 30 3a f2 70 72 69  6e 74 0d 01 7c 0c fd 20  |g=0:.print..|.. |
000002a0  a6 28 2d 39 37 29 0d 01  86 05 e1 0d 01 90 0b dd  |.(-97)..........|
000002b0  20 f2 66 69 6c 65 0d 01  9a 0c 50 72 65 73 6e 6f  | .file....Presno|
000002c0  3d 30 0d 01 a4 05 db 0d  01 ae 0b f1 8a 30 2c 31  |=0...........0,1|
000002d0  30 29 0d 01 b8 16 e8 22  46 49 4c 45 4e 41 4d 45  |0)....."FILENAME|
000002e0  20 3a 20 22 3b 6e 6d 24  0d 01 c2 0d 45 25 3d ad  | : ";nm$....E%=.|
000002f0  28 6e 6d 24 29 0d 01 cc  3d e7 20 45 25 3d 30 20  |(nm$)...=. E%=0 |
00000300  d9 23 45 25 3a 45 25 3d  ae 28 6e 6d 24 29 3a d9  |.#E%:E%=.(nm$):.|
00000310  23 45 25 3a 45 25 3d ad  28 6e 6d 24 29 3a 54 6f  |#E%:E%=.(nm$):To|
00000320  74 61 6c 3d 30 3a 4f 54  4f 54 3d 30 3a e5 8d 64  |tal=0:OTOT=0:..d|
00000330  74 41 0d 01 d6 16 e7 20  45 25 3c 3e 30 20 e8 23  |tA..... E%<>0 .#|
00000340  45 25 2c 54 6f 74 61 6c  0d 01 db 0e 4f 54 4f 54  |E%,Total....OTOT|
00000350  3d 54 6f 74 61 6c 0d 01  e0 23 e8 22 53 54 41 52  |=Total...#."STAR|
00000360  54 49 4e 47 20 41 54 20  52 45 43 4f 52 44 20 3a  |TING AT RECORD :|
00000370  20 22 3b 50 72 65 73 6e  6f 0d 01 ea 1f e7 20 50  | ";Presno..... P|
00000380  72 65 73 6e 6f 3e 54 6f  74 61 6c 20 50 72 65 73  |resno>Total Pres|
00000390  6e 6f 3d 54 6f 74 61 6c  0d 01 f4 05 e1 0d ff     |no=Total.......|
0000039f
05-08-88/STAT1.m0
05-08-88/STAT1.m1
05-08-88/STAT1.m2
05-08-88/STAT1.m4
05-08-88/STAT1.m5