International Manager (UK) (1988) [Original] [TAPE].cdt

[STRUCTURE]Creator : ZXTape!
Total of blocks : 43
Blocks format : [P]PAUSE[/P] (1), [P]TURBO LOADING DATA[/P] (42)[/STRUCTURE]
Catalogue
CheckData
TYPE BLOCKTOTAL BLOCKDURATION BLOCK MSPAUSE AFTER BLOCK MSTOTAL DURATION MSTIME
PAUSE197620976200 h 00 m 09 s
TURBO LOADING DATA422243437370929805200 h 04 m 58 s
TOTAL432341057370930781400 h 05 m 07 s

SUM OF ALL DATA2 593 844
Sum of data for Turbo Loading - Turbo Loading size 1 byte2 593 844- 02 593 844
Sum of data for Pure Data - Pure Data size 3 bytes (sum = 262)0- 00
 
Result 2 593 844- 02 593 844
BLOCKTYPE BLOCKSUMDATAUsed bits
in last byte		Last
byte		DATA
0000PAUSE 
0001TURBO LOADING DATA2 2968FF263
0002TURBO LOADING DATA131 9668FF2069
0003TURBO LOADING DATA2 3578FF263
0004TURBO LOADING DATA140 9438FF2069
0005TURBO LOADING DATA2 1928FF263
0006TURBO LOADING DATA143 3748FF2069
0007TURBO LOADING DATA2 3538FF263
0008TURBO LOADING DATA145 7518FF2069
0009TURBO LOADING DATA2 4978FF263
0010TURBO LOADING DATA40 4128FF779
0011TURBO LOADING DATA2 4238FF263
0012TURBO LOADING DATA128 9368FF2069
0013TURBO LOADING DATA2 2148FF263
0014TURBO LOADING DATA125 8628FF2069
0015TURBO LOADING DATA2 3658FF263
0016TURBO LOADING DATA127 4868FF2069
0017TURBO LOADING DATA2 3068FF263
0018TURBO LOADING DATA129 9328FF2069
0019TURBO LOADING DATA2 4058FF263
0020TURBO LOADING DATA132 8588FF2069
0021TURBO LOADING DATA2 3718FF263
0022TURBO LOADING DATA128 2228FF2069
0023TURBO LOADING DATA2 3528FF263
0024TURBO LOADING DATA129 8838FF2069
0025TURBO LOADING DATA2 2268FF263
0026TURBO LOADING DATA131 1258FF2069
0027TURBO LOADING DATA2 1418FF263
0028TURBO LOADING DATA128 1028FF2069
0029TURBO LOADING DATA2 1398FF263
0030TURBO LOADING DATA125 9288FF2069
0031TURBO LOADING DATA2 1768FF263
0032TURBO LOADING DATA124 3338FF2069
0033TURBO LOADING DATA2 1518FF263
0034TURBO LOADING DATA126 9488FF2069
0035TURBO LOADING DATA2 3608FF263
0036TURBO LOADING DATA128 2258FF2069
0037TURBO LOADING DATA2 3028FF263
0038TURBO LOADING DATA129 9868FF2069
0039TURBO LOADING DATA2 1418FF263
0040TURBO LOADING DATA131 4568FF2069
0041TURBO LOADING DATA2 6298FF263
0042TURBO LOADING DATA13 7208FF263

CATALOGUE
BLOCKFILENAMEFILE BLOCKFIRST BLOCKLAST BLOCKFILE TYPESTARTLENGTHEXECUTIONLENGTH FILE
0001I.MANAGER1YES-Basic Protégé&0170&0800&0000&2258
0003I.MANAGER2--Basic Protégé&0970&0800&0000&2258
0005I.MANAGER3--Basic Protégé&1170&0800&0000&2258
0007I.MANAGER4--Basic Protégé&1970&0800&0000&2258
0009I.MANAGER5-YESBasic Protégé&2170&0258&0000&2258
0011I.MANAGER1YES-Ascii&9E7C&0800&0000&0000
0013I.MANAGER2--Ascii&9E7C&0800&0000&0000
0015I.MANAGER3--Ascii&9E7C&0800&0000&0000
0017I.MANAGER4--Ascii&9E7C&0800&0000&0000
0019I.MANAGER5--Ascii&9E7C&0800&0000&0000
0021I.MANAGER6--Ascii&9E7C&0800&0000&0000
0023I.MANAGER7--Ascii&9E7C&0800&0000&0000
0025I.MANAGER8--Ascii&9E7C&0800&0000&0000
0027I.MANAGER9--Ascii&9E7C&0800&0000&0000
0029I.MANAGER10--Ascii&9E7C&0800&0000&0000
0031I.MANAGER11--Ascii&9E7C&0800&0000&0000
0033I.MANAGER12--Ascii&9E7C&0800&0000&0000
0035I.MANAGER13--Ascii&9E7C&0800&0000&0000
0037I.MANAGER14--Ascii&9E7C&0800&0000&0000
0039I.MANAGER15--Ascii&9E7C&0800&0000&0000
0041I.MANAGER16-YESAscii&9E7C&00D7&0000&0000

ZXTape! Major Version : 01 Minor Version : 0C
next* BLOCK 0000 : PAUSE
Total size : 3 bytes
Pause : 9762 ms
Duration block : 00 h 00 m 09 s
previousnext* BLOCK 0001 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 1
Block first : YES
File type : Basic Protégé
File adress start : &0170
File adress length : &0800
File adress execution : &0000
File length file : &2258

Length of PILOT pulse : 1190
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 626
Length of ONE bit pulse : 1252
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 296

Duration : 2175 ms
Pause After this block : 20 ms
Duration block + Pause : 2195 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 01 00 01 00 08 70 01 FF 58 22 00 00 00 00 00 ......p..X"..... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 4E 1C FF FF FF FF .N.....
previousnext* BLOCK 0002 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1189
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 600
Length of ONE bit pulse : 1201
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 131 966

Duration : 9073 ms
Pause After this block : 2734 ms
Duration block + Pause : 11807 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 13 00 01 00 A4 20 8D 20 19 42 2C 0F 2C 0E 2C ...... . .B,.,., 000010: 0E 2C 0E 00 0B 00 02 00 CF 20 80 20 19 FF 00 10 .,....... . .... 000020: 00 03 00 8E 20 42 2C 43 2C 45 2C 48 2D 5A 00 09 .... B,C,E,H-Z.. 000030: 00 04 00 B7 22 64 22 00 0B 00 05 00 AA 20 FF 42 ...."d"...... .B 000040: F5 0F 00 06 00 06 00 89 00 B3 00 07 00 93 20 03 .............. . 000050: 00 00 D4 28 13 29 2C 0D 00 00 F5 28 19 18 29 2C ...(.),....(..), 000060: 0D 00 00 F2 28 10 2C 14 29 2C 0D 00 00 EF 28 19 ....(.,.),....(. 000070: 28 29 2C 0D 00 00 F0 28 19 28 29 2C 0D 00 00 EB (),....(.(),.... 000080: 28 19 3C 29 2C 03 00 00 E1 28 19 3C 29 2C 03 00 (.<),....(.<),.. 000090: 00 E2 28 19 28 29 2C 03 00 00 E5 28 19 0C 29 2C ..(.(),....(..), 0000A0: 0D 00 00 E8 28 19 0C 29 2C 0D 00 00 EE 28 10 2C ....(..),....(., 0000B0: 19 28 29 2C 0D 00 00 E1 28 19 28 29 2C 0D 00 00 .(),....(.(),... 0000C0: E2 28 19 28 29 2C 0D 00 00 E3 28 19 28 29 2C 0D .(.(),....(.(),. 0000D0: 00 00 E4 28 19 28 29 2C 0D 00 00 E5 28 19 28 29 ...(.(),....(.() 0000E0: 2C 0D 00 00 E6 28 19 28 29 2C 0D 00 00 E7 28 19 ,....(.(),....(. 0000F0: 28 29 2C 0D 00 00 F6 28 19 12 29 00 2E 00 08 00 (),....(..)..... 000100: 9E 64 B9 20 0B 00 00 C9 EF 0F 20 EC 20 19 0C 01 .d. ...... . ... 000110: C3 20 03 00 00 C5 28 0B 00 00 C9 29 01 0B 00 00 . ....(....).... 000120: C8 28 0B 00 00 C9 29 EF 0F 01 B0 00 36 00 09 00 .(....).....6... 000130: 8C 20 4A 41 4E 2C 46 45 42 2C 4D 41 52 2C 41 50 . JAN,FEB,MAR,AP 000140: 52 2C 4D 41 59 2C 4A 55 4E 2C 4A 55 4C 2C 41 55 R,MAY,JUN,JUL,AU 000150: 47 2C 53 45 50 2C 4F 43 54 2C 4E 4F 56 2C 44 45 G,SEP,OCT,NOV,DE 000160: 43 00 10 00 0A 00 9F 20 1E 57 00 01 9F 20 1E 58 C...... .W... .X 000170: 00 00 36 00 0B 00 AD 20 0F 01 C2 20 FF 46 01 82 ..6.... ... .F.. 000180: 20 17 01 BA 20 0E 01 A2 20 0E 2C 17 01 A2 20 11 ... ... .,... . 000190: 2C 19 0B 2C 0F 01 A2 20 10 2C 19 18 01 BB 20 0F ,..,... .,.... . 0001A0: 01 A2 20 0F 2C 19 1A 00 69 00 0C 00 A9 20 19 0A .. .,...i.... .. 0001B0: 2C 19 0B 01 BF 22 49 4E 54 45 52 4E 41 54 49 4F ,...."INTERNATIO 0001C0: 4E 41 4C 20 4D 41 4E 41 47 45 52 22 01 A9 20 19 NAL MANAGER".. . 0001D0: 0B 2C 19 0D 01 BF 22 43 4F 50 59 52 49 47 48 54 .,...."COPYRIGHT 0001E0: 20 44 26 48 20 47 41 4D 45 53 22 01 9E 20 0D 00 D&H GAMES".. .. 0001F0: 00 6E E7 EF 0F 20 EC 20 1A 70 17 01 B0 01 BF 20 .n... . .p..... 000200: FF 7B 28 3B 29 19 1D 2C 19 0A 29 3B FF 03 28 19 .{(;)..,..);..(. 000210: 0C 29 00 66 00 0D 00 A9 20 19 0F 2C 19 0B 01 BF .).f.... ..,.... 000220: 22 57 52 49 54 54 45 4E 20 42 59 22 01 A9 20 14 "WRITTEN BY".. . 000230: 2C 19 0D 01 BF 22 54 4F 4E 59 20 48 55 47 47 41 ,...."TONY HUGGA 000240: 52 44 20 26 20 4A 4F 48 4E 20 44 45 20 53 41 4C RD & JOHN DE SAL 000250: 49 53 22 01 9E 20 0D 00 00 6E E7 EF 0F 20 EC 20 IS".. ...n... . 000260: 1A 70 17 01 B0 01 BF 20 FF 7B 28 19 1D 2C 19 0B .p..... .{(..,.. 000270: 29 3B FF 03 28 19 0C 29 00 65 00 0E 00 A9 20 16 );..(..).e.... . 000280: 2C 19 0B 01 BF 22 43 4F 4E 56 45 52 54 45 44 20 ,...."CONVERTED 000290: 4F 4E 54 4F 20 41 4D 53 54 52 41 44 20 42 59 22 ONTO AMSTRAD BY" 0002A0: 01 A9 20 19 0E 2C 19 0D 01 BF 22 44 41 56 49 44 .. ..,...."DAVID 0002B0: 20 47 49 42 42 4F 4E 22 01 9E 20 0D 00 00 6E E7 GIBBON".. ...n. 0002C0: EF 0F 20 EC 20 1A 70 17 01 B0 01 BF 20 FF 7B 28 .. . .p..... .{( 0002D0: 19 1D 2C 19 0A 29 3B FF 03 28 19 0C 29 00 29 00 ..,..);..(..).). 0002E0: 0F 00 A9 20 19 0A 2C 19 0C 01 BF 22 4C 4F 41 44 ... ..,...."LOAD 0002F0: 20 53 41 56 45 44 20 47 41 4D 45 20 59 2F 4E 22 SAVED GAME Y/N" 000300: F4 FF 03 28 15 E9 08 29 00 2D 00 10 00 03 00 00 ...(...).-...... 000310: E1 EF FF 43 01 A1 20 03 00 00 E1 EF 22 22 20 EB ...C.. ....."" . 000320: 20 1E 10 00 20 01 97 20 03 00 00 E1 EF FF 1C 28 ... .. .......( 000330: 03 00 00 E1 29 00 15 00 11 00 A1 20 03 00 00 E1 ....)...... .... 000340: EF 22 59 22 20 EB 20 1E 5D 00 00 15 00 12 00 A1 ."Y" . .]....... 000350: 20 03 00 00 E1 EF 22 4E 22 20 EB 20 1E 14 00 00 ....."N" . .... 000360: 0A 00 13 00 A0 20 1E 10 00 00 8F 00 14 00 C2 20 ..... ......... 000370: FF 46 01 8A 01 0D 00 00 62 E7 EF 1F 00 00 00 00 .F......b....... 000380: 80 01 9F 20 1E 56 00 01 0D 00 00 62 E5 EF 0F 01 ... .V.....b.... 000390: 0D 00 00 62 E6 EF F5 0F 01 0D 00 00 6F B4 EF 19 ...b........o... 0003A0: 0A 01 0D 00 00 6F B1 EF 19 3C 01 0D 00 00 6F B2 .....o...<....o. 0003B0: EF 0F F4 FF 0C 28 FF 45 F6 19 64 29 F4 0F 01 0D .....(.E..d).... 0003C0: 00 00 6F B3 EF 19 50 01 0D 00 00 74 B1 EF 0F 01 ..o...P....t.... 0003D0: 0D 00 00 78 F8 EF 17 01 0D 00 00 79 F9 EF 19 0E ...x.......y.... 0003E0: 01 0D 00 00 61 E1 EF 0F 01 0D 00 00 61 E2 EF 0F ....a.......a... 0003F0: 01 0D 00 00 61 E3 EF 0F 00 45 00 15 00 9E 20 0B ....a....E.... . 000400: 00 00 E9 EF 0F 20 EC E5 84 20 19 3C 01 C3 20 03 ..... ... .<.. . 000410: 00 00 E1 28 0B 00 00 E9 29 2C 0B 00 00 EB 28 0B ...(....),....(. 000420: 00 00 E9 29 01 A1 20 FF 0E 28 03 00 00 E1 28 0B ...).. ..(....(. 000430: 00 00 E9 29 29 F1 17 20 EB 20 9F 20 1E 73 00 00 ...)).. . . .s.. 000440: 06 00 16 00 B0 00 FD 00 17 00 8C 20 57 2E 47 45 ........... W.GE 000450: 52 4D 41 4E 59 2C 32 2C 49 54 41 4C 59 2C 33 2C RMANY,2,ITALY,3, 000460: 45 4E 47 4C 41 4E 44 2C 35 2C 48 55 4E 47 41 52 ENGLAND,5,HUNGAR 000470: 59 2C 37 2C 55 2E 53 2E 53 2E 52 2E 2C 38 2C 50 Y,7,U.S.S.R.,8,P 000480: 4F 4C 41 4E 44 2C 39 2C 46 52 41 4E 43 45 2C 31 OLAND,9,FRANCE,1 000490: 30 2C 53 50 41 49 4E 2C 31 31 2C 50 4F 52 54 55 0,SPAIN,11,PORTU 0004A0: 47 41 4C 2C 31 32 2C 53 43 4F 54 4C 41 4E 44 2C GAL,12,SCOTLAND, 0004B0: 31 33 2C 4E 2E 49 52 45 4C 41 4E 44 2C 31 34 2C 13,N.IRELAND,14, 0004C0: 42 45 4C 47 49 55 4D 2C 31 36 2C 42 55 4C 47 41 BELGIUM,16,BULGA 0004D0: 52 49 41 2C 31 39 2C 44 45 4E 4D 41 52 4B 2C 32 RIA,19,DENMARK,2 0004E0: 31 2C 48 4F 4C 4C 41 4E 44 2C 32 32 2C 45 2E 47 1,HOLLAND,22,E.G 0004F0: 45 52 4D 41 4E 59 2C 32 33 2C 52 55 4D 41 4E 49 ERMANY,23,RUMANI 000500: 41 2C 32 35 2C 41 55 53 54 8E 5D 52 49 41 2C 32 A,25,AUST.]RIA,2 000510: 37 2C 4E 4F 52 57 41 59 2C 32 38 2C 57 41 4C 45 7,NORWAY,28,WALE 000520: 53 2C 33 31 2C 53 57 45 45 44 45 4E 2C 33 32 2C S,31,SWEEDEN,32, 000530: 54 55 52 4B 45 59 2C 33 36 2C 46 49 4E 4C 41 4E TURKEY,36,FINLAN 000540: 44 2C 33 37 00 FC 00 18 00 8C 20 52 2E 49 52 45 D,37...... R.IRE 000550: 4C 41 4E 44 2C 34 30 2C 49 43 45 4C 41 4E 44 2C LAND,40,ICELAND, 000560: 34 32 2C 41 4C 42 41 4E 49 41 2C 34 36 2C 47 52 42,ALBANIA,46,GR 000570: 45 45 43 45 2C 34 37 2C 4D 41 4C 54 41 2C 34 38 EECE,47,MALTA,48 000580: 2C 43 59 50 52 55 53 2C 35 30 2C 42 52 41 5A 49 ,CYPRUS,50,BRAZI 000590: 4C 2C 31 2C 41 52 47 45 4E 54 49 4E 41 2C 34 2C L,1,ARGENTINA,4, 0005A0: 55 52 55 47 55 41 59 2C 36 2C 4D 45 58 49 43 4F URUGUAY,6,MEXICO 0005B0: 2C 31 35 2C 50 41 52 41 47 55 41 59 2C 31 37 2C ,15,PARAGUAY,17, 0005C0: 43 48 49 4C 45 2C 32 39 2C 50 45 52 55 2C 32 36 CHILE,29,PERU,26 0005D0: 2C 56 45 4E 45 5A 55 45 4C 41 2C 34 34 2C 43 4F ,VENEZUELA,44,CO 0005E0: 4C 55 4D 42 49 41 2C 35 31 2C 45 43 55 41 44 4F LUMBIA,51,ECUADO 0005F0: 52 2C 35 32 2C 42 4F 4C 49 56 49 41 2C 35 33 2C R,52,BOLIVIA,53, 000600: 41 4C 47 45 52 49 41 2C 31 38 2C A2 24 4D 4F 52 ALGERIA,18,.$MOR 000610: 4F 43 43 4F 2C 32 30 2C 54 55 4E 49 53 49 41 2C OCCO,20,TUNISIA, 000620: 32 34 2C 43 41 4D 45 52 4F 4F 4E 2C 33 30 2C 45 24,CAMEROON,30,E 000630: 47 59 50 54 2C 34 39 2C 4E 49 47 45 52 49 41 2C GYPT,49,NIGERIA, 000640: 35 36 00 97 00 19 00 8C 20 54 41 49 57 41 4E 2C 56...... TAIWAN, 000650: 35 38 2C 49 53 52 41 45 4C 2C 35 37 2C 4E 2E 5A 58,ISRAEL,57,N.Z 000660: 45 41 4C 41 4E 44 2C 33 34 2C 41 55 53 54 52 41 EALAND,34,AUSTRA 000670: 4C 49 41 2C 33 33 2C 49 52 41 51 2C 34 31 2C 4B LIA,33,IRAQ,41,K 000680: 55 57 41 49 54 2C 35 39 2C 4F 4D 41 4E 2C 33 38 UWAIT,59,OMAN,38 000690: 2C 4E 2E 4B 4F 52 45 41 2C 36 30 2C 43 41 4E 41 ,N.KOREA,60,CANA 0006A0: 44 41 2C 33 35 2C 55 2E 53 2E 41 2E 2C 34 33 2C DA,35,U.S.A.,43, 0006B0: 50 41 4E 41 4D 41 2C 33 39 2C 48 4F 4E 44 55 52 PANAMA,39,HONDUR 0006C0: 41 53 2C 35 36 2C 4A 41 4D 41 49 43 41 2C 35 34 AS,56,JAMAICA,54 0006D0: 2C 48 49 41 54 49 2C 34 35 00 21 00 1A 00 9E 20 ,HIATI,45.!.... 0006E0: 0B 00 00 C9 EF 0F 20 EC 20 19 18 01 C3 20 0B 00 ...... . .... .. 0006F0: 00 D5 28 0B 00 00 C9 29 01 B0 00 36 00 1B 00 8C ..(....)...6.... 000700: 20 31 2C 32 2C 33 2C 34 2C 33 2C 31 2C D1 E7 34 1,2,3,4,3,1,..4 000710: 2C 32 2C 31 2C 34 2C 32 2C 33 2C 32 2C 31 2C 34 ,2,1,4,2,3,2,1,4 000720: 2C 33 2C 31 2C 33 2C 32 2C 34 2C 34 2C 31 2C 33 ,3,1,3,2,4,4,1,3 000730: 2C 32 00 0F 01 1C 00 9E 20 0D 00 00 C9 EF 0F 20 ,2...... ...... 000740: EC 20 19 28 01 9F 20 1E 54 00 01 0D 00 00 C1 28 . .(.. .T......( 000750: 0D 00 00 C9 29 EF 13 F4 FF 0C 28 FF 45 F6 19 31 ....).....(.E..1 000760: 29 F7 19 0A 01 0D 00 00 C7 28 0D 00 00 C9 29 EF )........(....). 000770: 0F F4 FF 0C 28 FF 45 F6 19 59 29 F7 19 0A 01 0D ....(.E..Y)..... 000780: 00 00 C6 28 0D 00 00 C9 29 EF 0F F4 FF 0C 28 FF ...(....).....(. 000790: 45 F6 19 59 29 F7 19 0A 01 0D 00 00 C3 28 0D 00 E..Y)........(.. 0007A0: 00 C9 29 EF FF 00 28 FF 0C 28 FF 45 F6 19 32 29 ..)...(..(.E..2) 0007B0: F5 19 0A 29 01 0D 00 00 C2 28 0D 00 00 C9 29 EF ...).....(....). 0007C0: 19 12 F4 FF 0C 28 FF 45 F6 19 0F 29 01 0D 00 00 .....(.E...).... 0007D0: CE 28 0F 2C 0D 00 00 C9 29 EF 0F 01 C3 20 03 00 .(.,....).... .. 0007E0: 00 C2 28 0D 00 00 C9 29 2C 0D 00 00 E5 28 0D 00 ..(....),....(.. 0007F0: 00 E9 29 01 0D 00 00 C7 28 0D 00 00 C9 29 EF 0D ..).....(....).. 000800: 00 00 C7 28 0D 00 00 C9 29 F4 28 0D 00 00 C7 D0 ...(....).(..... 000810: 92 FF FF FF FF .....
previousnext* BLOCK 0003 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 2
File type : Basic Protégé
File adress start : &0970
File adress length : &0800
File adress execution : &0000
File length file : &2258

Length of PILOT pulse : 1189
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 627
Length of ONE bit pulse : 1255
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 357

Duration : 2174 ms
Pause After this block : 22 ms
Duration block + Pause : 2196 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 02 00 01 00 08 70 09 00 58 22 00 00 00 00 00 ......p..X"..... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 EE AF FF FF FF FF .......
previousnext* BLOCK 0004 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1189
Length of SYNC First pulse : 635
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 602
Length of ONE bit pulse : 1205
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 140 943

Duration : 9018 ms
Pause After this block : 2748 ms
Duration block + Pause : 11766 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 28 0D 00 00 C9 29 EE 0D 00 00 C1 28 0D 00 00 .(....).....(... 000010: C9 29 29 F6 28 0D 00 00 C7 28 0D 00 00 C9 29 F5 .)).(....(....). 000020: 0D 00 00 C1 28 0D 00 00 C9 29 29 01 B0 01 9F 20 ....(....)).... 000030: 1E 51 00 00 F6 00 1D 00 8C 20 4A 4F 4E 45 53 2C .Q....... JONES, 000040: 31 2C 57 41 52 44 2C 32 2C 53 4D 49 54 48 2C 32 1,WARD,2,SMITH,2 000050: 2C 52 45 49 44 2C 32 2C 42 41 52 4E 45 53 2C 32 ,REID,2,BARNES,2 000060: 2C 50 45 54 45 52 53 2C 33 2C 45 44 4C 49 4E 2C ,PETERS,3,EDLIN, 000070: 33 2C 4A 41 4D 45 53 2C 33 2C 48 55 47 47 41 52 3,JAMES,3,HUGGAR 000080: 44 2C 34 2C 43 55 52 52 59 2C 34 2C 53 54 45 56 D,4,CURRY,4,STEV 000090: 45 4E 53 2C 34 2C 57 41 4C 54 45 52 53 2C 34 2C ENS,4,WALTERS,4, 0000A0: 4C 41 57 54 4F 4E 2C 34 2C 41 52 4E 4F 4C 44 53 LAWTON,4,ARNOLDS 0000B0: 2C 33 2C 57 41 4C 4C 41 43 45 2C 31 2C 43 4F 4C ,3,WALLACE,1,COL 0000C0: 4C 49 4E 53 2C 32 2C 4D 41 4E 54 4F 4E 2C 33 2C LINS,2,MANTON,3, 0000D0: 54 52 41 56 45 52 53 2C 32 2C 43 45 4C 4C 41 52 TRAVERS,2,CELLAR 0000E0: 53 2C 34 2C 4A 41 43 4B 53 4F 4E 2C 34 2C 47 52 S,4,JACKSON,4,GR 0000F0: 41 48 41 4D 53 2C 31 2C 4A 4F 48 4E 53 4F 4E 2C AHAMS,1,JOHNSON, 000100: 32 04 69 2C 46 4F 53 54 45 52 2C 32 2C 41 4C 4C 2.i,FOSTER,2,ALL 000110: 45 4E 2C 31 2C 44 41 56 49 53 2C 33 2C 48 49 4C EN,1,DAVIS,3,HIL 000120: 4C 2C 34 2C 43 52 41 49 47 2C 32 00 79 00 1E 00 L,4,CRAIG,2.y... 000130: 8C 20 47 49 42 53 4F 4E 2C 32 2C 52 4F 42 53 4F . GIBSON,2,ROBSO 000140: 4E 2C 33 2C 44 55 4E 43 41 4E 2C 34 2C 42 52 4F N,3,DUNCAN,4,BRO 000150: 57 4E 2C 33 2C 43 52 4F 57 45 2C 32 2C 57 52 49 WN,3,CROWE,2,WRI 000160: 47 48 54 2C 31 2C 48 41 52 52 49 53 2C 32 2C 54 GHT,1,HARRIS,2,T 000170: 48 4F 4D 41 53 2C 32 2C 44 49 43 4B 45 4E 53 2C HOMAS,2,DICKENS, 000180: 34 2C 45 56 41 4E 53 2C 33 2C 52 4F 42 45 52 54 4,EVANS,3,ROBERT 000190: 53 2C 34 2C 57 45 53 54 2C 33 2C 41 4E 44 52 45 S,4,WEST,3,ANDRE 0001A0: 57 53 2C 32 00 2F 00 1F 00 9E 20 0B 00 00 C9 EF WS,2./.... ..... 0001B0: 0F 20 EC 20 14 01 C3 20 0B 00 00 F2 28 0F 2C 0B . . ... ....(.,. 0001C0: 00 00 C9 29 2C 0B 00 00 F2 28 10 2C 0B 00 00 C9 ...),....(.,.... 0001D0: 29 01 B0 00 29 00 20 00 8C 20 31 2C 32 39 2C 33 )...). .. 1,29,3 0001E0: 30 2C 34 30 2C 34 31 2C 34 36 2C 34 37 2C 35 30 0,40,41,46,47,50 0001F0: 2C 35 31 2C 35 34 2C 35 35 2C 36 30 00 39 00 21 ,51,54,55,60.9.! 000200: 00 9E 20 DC F4 0B 00 00 C9 EF 0F 20 EC 20 12 01 .. ........ . .. 000210: C3 20 03 00 00 CA 28 0B 00 00 C9 29 01 A1 20 FF . ....(....).. . 000220: 0E 28 03 00 00 EA 28 0B 00 00 E9 29 29 F1 17 20 .(....(....)).. 000230: EB 20 9F 20 1E 75 00 00 06 00 22 00 B0 00 2A 00 . . .u...."...*. 000240: 23 00 8C 20 46 52 41 4E 43 45 2C 57 2E 47 45 52 #.. FRANCE,W.GER 000250: 4D 41 4E 59 2C 41 52 47 45 4E 54 49 4E 41 2C 43 MANY,ARGENTINA,C 000260: 4F 4C 55 4D 42 49 41 00 20 00 24 00 9E 20 0B 00 OLUMBIA. .$.. .. 000270: 00 C9 EF 0F 20 EC 20 13 01 C3 20 03 00 00 C6 28 .... . ... ....( 000280: 0B 00 00 C9 29 01 B0 00 2A 00 25 00 8C 20 54 45 ....)...*.%.. TE 000290: 52 52 59 2C 44 45 53 41 4C 49 53 2C 46 52 41 4E RRY,DESALIS,FRAN 0002A0: 4B 53 2C 57 49 4C 4B 49 4E 53 2C 46 4F 57 4C 45 KS,WILKINS,FOWLE 0002B0: 52 00 20 00 26 00 9E 20 0B 00 00 C9 EF 0F 20 EC R. .&.. ...... . 0002C0: 20 12 01 C3 20 0B 00 00 D4 28 0B 00 00 C9 29 01 ... ....(....). 0002D0: B0 00 11 00 27 00 8C 20 37 2C 31 34 2C 32 31 2C ....'.. 7,14,21, 0002E0: 32 38 00 19 00 28 00 C2 20 FF 46 01 BB 20 0F 01 28...(.. .F.. .. 0002F0: 0D 00 00 62 EE EF 0D 00 00 61 E2 00 88 00 29 00 ...b.....a....). 000300: 8A 01 0B 00 00 3D BA 62 E9 EF 0F 01 BB 20 11 01 .....=.b..... .. 000310: 9E 20 0B 00 00 6E E8 EF 0F 20 EC 20 19 28 01 A9 . ...n... . .(.. 000320: 20 0B 00 00 6E E8 2C 0F 01 BF 20 FF 03 28 19 8F ...n.,... ..(.. 000330: 29 01 B0 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 ).... ..(..)...( 000340: 0F 29 01 A9 20 13 2C 0F 01 BB 20 0F 01 BF 22 57 .).. .,... ..."W 000350: 48 49 43 48 20 54 45 41 4D 20 44 4F 20 59 4F 55 HICH TEAM DO YOU 000360: 20 57 41 4E 54 20 54 4F 20 4D 41 4E 41 47 45 22 WANT TO MANAGE" 000370: F4 FF 03 28 15 29 01 BF 20 FF 03 28 19 16 29 F4 ...(.).. ..(..). 000380: FF 03 28 0E 29 00 61 00 2A 00 9E 20 0B 00 00 C9 ..(.).a.*.. .... 000390: EF 0F 20 EC 20 19 0E 01 A9 20 12 2C 0B 00 00 C9 .. . .... .,.... 0003A0: F4 12 01 BB 20 0F 01 BF 20 0B 00 00 E9 3B 22 20 .... ... ....;" 0003B0: 22 3B 03 00 00 E1 28 0B 00 00 E9 29 01 A9 20 19 ";....(....).. . 0003C0: 16 2C 0B 00 00 E9 F4 12 01 BF 20 0B 00 00 E9 F4 .,........ ..... 0003D0: 19 0E 3B 22 20 22 3B 03 00 00 E1 28 0B 00 00 E9 ..;" ";....(.... 0003E0: F4 19 0E 29 01 B0 00 8C 00 2B 00 9E 20 0B 00 00 ...).....+.. ... 0003F0: 6E E8 EF 0F 20 EC 20 19 28 01 BB 20 0F 01 A9 20 n... . .(.. ... 000400: 0B 00 00 6E E8 2C 19 75 3B 17 01 BF 20 FF 03 28 ...n.,.u;... ..( 000410: 19 8F 29 01 B0 20 0B 00 00 6E E8 01 BF 20 FF 03 ..).. ...n... .. 000420: 28 19 16 29 F4 FF 03 28 0F 29 01 BB 20 0E 01 A9 (..)...(.).. ... 000430: 20 0F 2C 19 17 01 BF 22 20 55 3D 55 50 20 20 20 .,...." U=UP 000440: 20 20 20 20 20 45 4E 54 45 52 3D 43 48 4F 4F 53 ENTER=CHOOS 000450: 45 20 20 20 20 20 20 20 20 44 3D 44 4F 57 4E 20 E D=DOWN 000460: 22 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0E 29 ".. ..(..)...(.) 000470: 01 BB 20 0F 00 13 00 2C 00 03 00 00 FA EF 22 44 .. ....,......"D 000480: 22 01 9F 20 1E 34 00 00 2D 00 2D 00 03 00 00 FA ".. .4..-.-..... 000490: EF FF 43 01 A1 20 03 00 00 FA EF 22 22 20 EB 20 ..C.. ....."" . 0004A0: 1E 2D 00 20 01 97 20 03 00 00 FA EF FF 1C 28 03 .-. .. .......(. 0004B0: 00 00 FA 29 00 94 00 2E 00 A1 20 FF 01 28 03 00 ...)...... ..(.. 0004C0: 00 FA 29 EF 19 0D 20 EB 20 BF 20 FF 03 28 15 29 ..)... . . ..(.) 0004D0: 01 03 00 00 F9 28 0F 29 EF 03 00 00 E1 28 0B 00 .....(.).....(.. 0004E0: 00 62 E9 29 01 0B 00 00 65 B1 EF 0B 00 00 EB 28 .b.)....e......( 0004F0: 0B 00 00 62 E9 29 01 0B 00 00 EB 28 0B 00 00 62 ...b.).....(...b 000500: E9 29 EF 0B 00 00 EB 28 19 19 FF 25 29 01 0B 00 .).....(...%)... 000510: 00 EB 28 19 25 29 EF 0B 00 00 65 B1 01 0B 00 00 ..(.%)....e..... 000520: EB 28 0B 00 00 62 E9 29 EF 0B 00 00 EB 28 0B 00 .(...b.).....(.. 000530: 00 62 E9 29 F5 28 0B 00 00 EB 28 0B 00 00 62 E9 .b.).(....(...b. 000540: 29 F6 10 29 01 A0 20 1E 36 00 00 D6 00 2F 00 A1 )..).. .6..../.. 000550: 20 03 00 00 FA EF 22 44 22 20 EB 20 0B 00 00 62 ....."D" . ...b 000560: E9 EF 0B 00 00 62 E9 F4 0F 01 A1 20 0B 00 00 62 .....b..... ...b 000570: E9 EF 19 1D 20 EB 20 0B 00 00 62 E9 EF 19 1C 01 .... . ...b..... 000580: A0 20 1E 30 00 20 01 97 20 A1 20 0B 00 00 62 E9 . .0. .. . ...b. 000590: EF 19 0F 20 EB 20 0B 00 00 62 E9 EF 0B 00 00 62 ... . ...b.....b 0005A0: E9 F5 0F 01 9F 20 1E 32 00 01 0B 00 00 62 E9 EF ..... .2.....b.. 0005B0: 0B 00 00 62 E9 F4 0F 01 9F 20 1E 35 00 20 01 97 ...b..... .5. .. 0005C0: 20 A1 20 0B 00 00 62 E9 EE 19 0E 20 EB 20 0B 00 . ...b.... . .. 0005D0: 00 62 E9 EF 0B 00 00 62 E9 F5 0F 01 9F 20 1E 33 .b.....b..... .3 0005E0: 00 01 0B 00 00 62 E9 EF 0B 00 00 62 E9 F4 0F 01 .....b.....b.... 0005F0: 9F 20 1E 35 00 20 01 97 20 0B 00 00 62 E9 EF 0B . .5. .. ...b... 000600: 00 00 62 E9 F5 0F 01 9F 20 1E 32 20 26 00 01 0B ..b..... .2 &... 000610: 00 00 62 E9 EF 0B 00 00 62 E9 F4 0F 01 9F 20 1E ..b.....b..... . 000620: 34 00 00 D4 00 30 00 A1 20 03 00 00 FA EF 22 55 4....0.. ....."U 000630: 22 20 EB 20 0B 00 00 62 E9 EF 0B 00 00 62 E9 F5 " . ...b.....b.. 000640: 0F 01 A1 20 0B 00 00 62 E9 EF 0E 20 EB 20 0B 00 ... ...b... . .. 000650: 00 62 E9 EF 0F 01 A0 20 1E 31 00 20 01 97 20 A1 .b..... .1. .. . 000660: 20 0B 00 00 62 E9 EF 19 0E 20 EB 20 0D 00 00 62 ...b.... . ...b 000670: E9 EF 0D 00 00 62 E9 F4 0F 01 9F 20 1E 33 00 01 .....b..... .3.. 000680: 0D 00 00 62 E9 EF 0D 00 00 62 E9 F5 0F 01 9F 20 ...b.....b..... 000690: 1E 34 00 20 01 97 20 A1 20 0B 00 00 62 E9 EE 19 .4. .. . ...b... 0006A0: 0E 20 EB 20 0D 00 00 62 E9 EF 0D 00 00 62 E9 F4 . . ...b.....b.. 0006B0: 0F 01 9F 20 1E 33 00 01 0D 00 00 62 E9 EF 0D 00 ... .3.....b.... 0006C0: 00 62 E9 F5 0F 01 9F 20 1E 35 00 20 01 97 20 0B .b..... .5. .. . 0006D0: 00 00 62 E9 EF 0B 00 00 62 E9 F4 0F 01 9F 20 1E ..b.....b..... . 0006E0: 32 00 01 0B 00 00 62 E9 EF 0B 00 00 62 E9 F5 0F 2.....b.....b... 0006F0: 01 9F 20 1E 34 00 00 0A 00 31 00 A0 20 1E 2D 00 .. .4....1.. .-. 000700: 00 64 00 32 00 A1 20 03 00 00 FA EF 22 93 33 44 .d.2.. .....".3D 000710: 22 20 FC 20 03 00 00 FA EF 22 55 22 20 EB 20 A9 " . ....."U" . . 000720: 20 12 2C 0B 00 00 62 E9 F4 12 01 BF 22 20 20 20 .,...b....." 000730: 20 20 20 20 20 20 20 20 20 20 20 22 01 A9 20 12 ".. . 000740: 2C 0B 00 00 62 E9 F4 12 01 BB 20 0F 01 BF 20 0B ,...b..... ... . 000750: 00 00 62 E9 3B 22 20 22 3B 03 00 00 E1 28 0B 00 ..b.;" ";....(.. 000760: 00 62 E9 29 01 C9 00 68 00 33 00 A1 20 03 00 00 .b.)...h.3.. ... 000770: FA EF 22 44 22 20 FC 20 03 00 00 FA EF 22 55 22 .."D" . ....."U" 000780: 20 EB 20 A9 20 19 16 2C 0B 00 00 62 E9 F5 19 0A . . ..,...b.... 000790: 01 BF 22 20 20 20 20 20 20 20 20 20 20 20 20 20 .." 0007A0: 20 22 01 A9 20 19 16 2C 0B 00 00 62 E9 F5 19 0A ".. ..,...b.... 0007B0: 01 BB 20 0F 01 BF 20 0B 00 00 62 E9 3B 22 20 22 .. ... ...b.;" " 0007C0: 3B 03 00 00 E1 28 0B 00 00 62 E9 29 01 C9 00 94 ;....(...b.).... 0007D0: 00 34 00 A1 20 03 00 00 FA EF 22 44 22 20 FC 20 .4.. ....."D" . 0007E0: 03 00 00 FA EF 22 55 22 20 EB 20 9E 20 0B 00 00 ....."U" . . ... 0007F0: 6E E8 EF 0F 20 EC 20 19 0D 01 A9 20 0B 00 00 6E n... . .... ...n 000800: E8 F4 12 2C 0B 00 00 62 E9 F4 12 01 BB 20 0F 95 ...,...b..... .. 000810: 50 FF FF FF FF P....
previousnext* BLOCK 0005 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 3
File type : Basic Protégé
File adress start : &1170
File adress length : &0800
File adress execution : &0000
File length file : &2258

Length of PILOT pulse : 1187
Length of SYNC First pulse : 635
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 625
Length of ONE bit pulse : 1251
Length of PILOT tone : 4040
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 192

Duration : 2154 ms
Pause After this block : 19 ms
Duration block + Pause : 2173 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 03 00 01 00 08 70 11 00 58 22 00 00 00 00 00 ......p..X"..... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 BF 30 FF FF FF FF ..0....
previousnext* BLOCK 0006 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1187
Length of SYNC First pulse : 635
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 603
Length of ONE bit pulse : 1207
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 143 374

Duration : 8985 ms
Pause After this block : 2747 ms
Duration block + Pause : 11732 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 01 BF 20 FF 03 28 19 8F 29 01 B0 01 BF 20 FF ... ..(..).... . 000010: 03 28 19 16 29 F4 FF 03 28 0F 29 01 BB 20 0E 01 .(..)...(.).. .. 000020: A9 20 12 2C 0B 00 00 62 E9 F4 12 01 BF 20 0B 00 . .,...b..... .. 000030: 00 62 E9 3B 22 20 22 3B 03 00 00 E1 28 0B 00 00 .b.;" ";....(... 000040: 62 E9 29 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 b.).. ..(..)...( 000050: 0E 29 01 C9 00 98 00 35 00 A1 20 03 00 00 FA EF .).....5.. ..... 000060: 22 44 22 20 FC 20 03 00 00 FA EF 22 55 22 20 EB "D" . ....."U" . 000070: 20 9E 20 0B 00 00 6E E8 EF 0F 20 EC 20 19 0D 01 . ...n... . ... 000080: A9 20 0B 00 00 6E E8 F4 19 16 2C 0B 00 00 62 E9 . ...n....,...b. 000090: F5 19 0A 01 BB 20 0F 01 BF 20 FF 03 28 19 8F 29 ..... ... ..(..) 0000A0: 01 B0 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0F .... ..(..)...(. 0000B0: 29 01 BB 20 0E 01 A9 20 19 16 2C 0B 00 00 62 E9 ).. ... ..,...b. 0000C0: F5 19 0A 01 BF 20 0B 00 00 62 E9 3B 22 20 22 3B ..... ...b.;" "; 0000D0: 03 00 00 E1 28 0B 00 00 62 E9 29 01 BF 20 FF 03 ....(...b.).. .. 0000E0: 28 19 16 29 F4 FF 03 28 0E 29 01 C9 00 5F 00 36 (..)...(.)..._.6 0000F0: 00 8A 01 9E 20 0B 00 00 E9 EF 0F 20 EC 20 19 14 .... ...... . .. 000100: 01 DD 57 A9 20 13 2C 0B 00 00 E9 01 BB 20 0F 01 ..W. .,...... .. 000110: BF 20 0B 00 00 E9 3B 22 20 22 3B 03 00 00 E2 28 . ....;" ";....( 000120: 0B 00 00 E9 29 01 A9 20 19 16 2C 0B 00 00 E9 01 ....).. ..,..... 000130: BF 20 0B 00 00 E9 F4 19 14 3B 22 20 22 3B 03 00 . .......;" ";.. 000140: 00 E2 28 0B 00 00 E9 F4 19 14 29 01 B0 00 7F 00 ..(.......)..... 000150: 37 00 9E 20 0B 00 00 6E E8 EF 0F 20 EC 20 19 28 7.. ...n... . .( 000160: 01 A9 20 0B 00 00 6E E8 2C 19 17 01 BB 20 11 01 .. ...n.,.... .. 000170: BF 20 FF 03 28 19 8F 29 01 B0 01 BF 20 FF 03 28 . ..(..).... ..( 000180: 19 16 29 F4 FF 03 28 0F 29 01 BB 20 0F 01 A9 20 ..)...(.).. ... 000190: 13 2C 19 17 01 BF 22 44 4F 20 59 4F 55 20 57 41 .,...."DO YOU WA 0001A0: 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 4E 41 4D NT TO CHANGE NAM 0001B0: 45 53 20 59 2F 4E 22 F4 FF 03 28 15 29 01 BF 20 ES Y/N"...(.).. 0001C0: FF 03 28 19 16 29 F4 FF 03 28 0E 29 00 2D 00 38 ..(..)...(.).-.8 0001D0: 00 03 00 00 FA EF FF 43 01 A1 20 03 00 00 FA EF .......C.. ..... 0001E0: 22 22 20 EB 20 1E 38 00 20 01 97 20 03 00 00 FA "" . .8. .. .... 0001F0: EF FF 1C 28 03 00 00 FA 29 00 15 00 39 00 A1 20 ...(....)...9.. 000200: 03 00 00 78 56 FA EF 22 59 22 20 EB 20 1E 3C 00 ...xV.."Y" . .<. 000210: 00 15 00 3A 00 A1 20 03 00 00 FA EF 22 4E 22 20 ...:.. ....."N" 000220: EB 20 1E 59 00 00 0A 00 3B 00 A0 20 1E 38 00 00 . .Y....;.. .8.. 000230: 94 00 3C 00 0B 00 00 64 B1 EF 0F 01 9E 20 0B 00 ..<....d..... .. 000240: 00 6E E8 EF 0F 20 EC 20 19 28 01 BB 20 11 01 A9 .n... . .(.. ... 000250: 20 0B 00 00 6E E8 2C 19 17 01 BF 20 FF 03 28 19 ...n.,.... ..(. 000260: 8F 29 01 B0 20 0B 00 00 6E E8 01 BF 20 FF 03 28 .).. ...n... ..( 000270: 19 16 29 F4 FF 03 28 0F 29 01 BB 20 0F 01 A9 20 ..)...(.).. ... 000280: 0F 2C 19 17 01 BF 22 20 55 3D 55 50 20 20 20 20 .,...." U=UP 000290: 20 20 20 20 45 4E 54 45 52 3D 43 48 4F 4F 53 45 ENTER=CHOOSE 0002A0: 20 20 20 20 20 20 20 20 44 3D 44 4F 57 4E 20 22 D=DOWN " 0002B0: 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 .. ..(..)...(.). 0002C0: BB 20 0F 00 13 00 3D 00 03 00 00 FA EF 22 44 22 . ....=......"D" 0002D0: 01 9F 20 1E 45 00 00 2D 00 3E 00 03 00 00 FA EF .. .E..-.>...... 0002E0: FF 43 01 A1 20 03 00 00 FA EF 22 22 20 EB 20 1E .C.. ....."" . . 0002F0: 3E 00 20 01 97 20 03 00 00 FA EF FF 1C 28 03 00 >. .. .......(.. 000300: 00 FA 29 00 22 7F 67 00 3F 00 A1 20 FF 01 28 03 ..).".g.?.. ..(. 000310: 00 00 FA 29 EF 19 0D 20 EB 20 BF 20 FF 03 28 15 ...)... . . ..(. 000320: 29 01 A0 20 1E 47 00 00 D6 00 40 00 A1 20 03 00 ).. .G....@.. .. 000330: 00 FA EF 22 44 22 20 EB 20 0B 00 00 64 B1 EF 0B ..."D" . ...d... 000340: 00 00 64 B1 F4 0F 01 A1 20 0B 00 00 64 B1 EF 19 ..d..... ...d... 000350: 29 20 EB 20 0D 00 00 64 B1 EF 19 28 01 A0 20 1E ) . ...d...(.. . 000360: 41 00 20 01 97 20 A1 20 0B 00 00 64 B1 EF 19 15 A. .. . ...d.... 000370: 20 EB 20 0D 00 00 64 B1 EF 0D 00 00 64 B1 F5 0F . ...d.....d... 000380: 01 9F 20 1E 43 00 01 0D 00 00 64 B1 EF 0D 00 00 .. .C.....d..... 000390: 64 B1 F4 0F 01 9F 20 1E 46 00 20 01 97 20 A1 20 d..... .F. .. . 0003A0: 0B 00 00 64 B1 EE 19 14 20 EB 20 0D 00 00 64 B1 ...d.... . ...d. 0003B0: EF 0D 00 00 64 B1 F5 0F 01 9F 20 1E 44 00 01 0D ....d..... .D... 0003C0: 00 00 64 B1 EF 0D 00 00 64 B1 F4 0F 01 9F 20 1E ..d.....d..... . 0003D0: 46 00 20 01 97 20 0B 00 00 64 B1 EF 0B 00 00 64 F. .. ...d.....d 0003E0: B1 F5 0F 01 9F 20 1E 43 00 01 0B 00 00 64 B1 EF ..... .C.....d.. 0003F0: 0B 00 00 64 B1 F4 0F 01 9F 20 1E 45 00 00 D4 00 ...d..... .E.... 000400: 41 00 A1 20 03 00 00 D6 60 FA EF 22 55 22 20 EB A.. ....`.."U" . 000410: 20 0D 00 00 64 B1 EF 0D 00 00 64 B1 F5 0F 01 A1 ...d.....d..... 000420: 20 0D 00 00 64 B1 EF 0E 20 EB 20 0D 00 00 64 B1 ...d... . ...d. 000430: EF 0F 01 A0 20 1E 3E 00 20 01 97 20 A1 20 0D 00 .... .>. .. . .. 000440: 00 64 B1 EF 19 14 20 EB 20 0D 00 00 64 B1 EF 0D .d.... . ...d... 000450: 00 00 64 B1 F4 0F 01 9F 20 1E 44 00 01 0D 00 00 ..d..... .D..... 000460: 64 B1 EF 0D 00 00 64 B1 F5 0F 01 9F 20 1E 45 00 d.....d..... .E. 000470: 20 01 97 20 A1 20 0D 00 00 64 B1 EE 19 14 20 EB .. . ...d.... . 000480: 20 0D 00 00 64 B1 EF 0D 00 00 64 B1 F4 0F 01 9F ...d.....d..... 000490: 20 1E 44 00 01 0D 00 00 64 B1 EF 0D 00 00 64 B1 .D.....d.....d. 0004A0: F5 0F 01 9F 20 1E 46 00 20 01 97 20 0D 00 00 64 .... .F. .. ...d 0004B0: B1 EF 0D 00 00 64 B1 F4 0F 01 9F 20 1E 43 00 01 .....d..... .C.. 0004C0: 0D 00 00 64 B1 EF 0D 00 00 64 B1 F5 0F 01 9F 20 ...d.....d..... 0004D0: 1E 45 00 00 0A 00 42 00 A0 20 1E 3E 00 00 5F 00 .E....B.. .>.._. 0004E0: 43 00 A1 20 03 00 00 FA EF 22 44 22 20 FC 20 03 C.. ....."D" . . 0004F0: 00 00 FA EF 22 55 22 20 EB 20 A9 20 13 2C 0B 00 ...."U" . . .,.. 000500: 00 64 B1 01 BF 22 20 20 20 1E AD 20 20 20 20 20 .d..." .. 000510: 20 20 20 20 20 22 01 A9 20 13 2C 0B 00 00 64 B1 ".. .,...d. 000520: 01 BB 20 0F 01 BF 20 0B 00 00 64 B1 3B 22 20 22 .. ... ...d.;" " 000530: 3B 03 00 00 E2 28 0B 00 00 64 B1 29 01 C9 00 66 ;....(...d.)...f 000540: 00 44 00 A1 20 03 00 00 FA EF 22 44 22 20 FC 20 .D.. ....."D" . 000550: 03 00 00 FA EF 22 55 22 20 EB 20 A9 20 19 16 2C ....."U" . . .., 000560: 0D 00 00 64 B1 F5 19 14 01 BF 22 20 20 20 20 20 ...d......" 000570: 20 20 20 20 20 20 20 22 01 A9 20 19 16 2C 0D 00 ".. ..,.. 000580: 00 64 B1 F5 19 14 01 BB 20 0F 01 BF 20 0D 00 00 .d...... ... ... 000590: 64 B1 3B 22 20 22 3B 03 00 00 E2 28 0D 00 00 64 d.;" ";....(...d 0005A0: B1 29 01 C9 00 90 00 45 00 A1 20 03 00 00 FA EF .).....E.. ..... 0005B0: 22 44 22 20 FC 20 03 00 00 FA EF 22 55 22 20 EB "D" . ....."U" . 0005C0: 20 9E 20 0B 00 00 6E E8 EF 0F 20 EC 20 19 0B 01 . ...n... . ... 0005D0: A9 20 0B 00 00 6E E8 F4 13 2C 0B 00 00 64 B1 01 . ...n...,...d.. 0005E0: BB 20 0F 01 BF 20 FF 03 28 19 8F 29 01 B0 01 BF . ... ..(..).... 0005F0: 20 FF 03 28 19 16 29 F4 FF 03 28 0F 29 01 BB 20 ..(..)...(.).. 000600: 0E 01 A9 20 13 2C 0B 00 00 64 B1 F5 ED 01 BF 20 ... .,...d..... 000610: 0B 00 00 64 B1 3B 22 20 22 3B 03 00 00 E2 28 0B ...d.;" ";....(. 000620: 00 00 64 B1 29 01 BF 20 FF 03 28 19 16 29 F4 FF ..d.).. ..(..).. 000630: 03 28 0E 29 01 C9 00 98 00 46 00 A1 20 03 00 00 .(.).....F.. ... 000640: FA EF 22 44 22 20 FC 20 03 00 00 FA EF 22 55 22 .."D" . ....."U" 000650: 20 EB 20 9E 20 0D 00 00 6E E8 EF 0F 20 EC 20 19 . . ...n... . . 000660: 0B 01 A9 20 0D 00 00 6E E8 F4 19 16 2C 0D 00 00 ... ...n....,... 000670: 64 B1 F5 19 14 01 BB 20 0F 01 BF 20 FF 03 28 19 d...... ... ..(. 000680: 8F 29 01 B0 01 BF 20 FF 03 28 19 16 29 F4 FF 03 .).... ..(..)... 000690: 28 0F 29 01 BB 20 0E 01 A9 20 19 16 2C 0D 00 00 (.).. ... ..,... 0006A0: 64 B1 F5 19 14 01 BF 20 0D 00 00 64 B1 3B 22 20 d...... ...d.;" 0006B0: 22 3B 03 00 00 E2 28 0D 00 00 64 B1 29 01 BF 20 ";....(...d.).. 0006C0: FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 C9 00 8F ..(..)...(.).... 0006D0: 00 47 00 03 00 00 F7 EF 22 22 01 0B 00 00 E2 EF .G......""...... 0006E0: 19 13 01 0B 00 00 62 B1 EF 19 13 01 A9 20 0F 2C ......b...... ., 0006F0: 19 17 01 BF 22 20 20 20 20 20 20 20 20 20 20 20 ...." 000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 03 20 +. 000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 " 000720: 01 BB 20 10 01 A9 20 13 2C 19 16 01 BF 22 54 59 .. ... .,...."TY 000730: 50 45 20 4E 45 57 20 4E 41 4D 45 20 28 37 20 4C PE NEW NAME (7 L 000740: 45 54 54 45 52 53 20 4D 41 58 29 22 01 A9 20 19 ETTERS MAX)".. . 000750: 12 2C 19 17 01 BF 22 3A 22 01 9F 20 1E 50 00 00 .,....":".. .P.. 000760: 38 00 48 00 03 00 00 FA EF FF 43 01 A1 20 03 00 8.H.......C.. .. 000770: 00 FA EF 22 22 20 FC 20 03 00 00 DA EF 22 20 22 ..."" . ....." " 000780: 20 EB 20 1E 48 00 20 01 97 20 03 00 00 FA EF FF . .H. .. ...... 000790: 1C 28 03 00 00 FA 29 00 62 00 49 00 A1 20 FF 01 .(....).b.I.. .. 0007A0: 28 03 00 00 FA 29 EF 19 7F 20 FA 20 0B 00 00 C2 (....)... . .... 0007B0: EF 19 13 20 EB 20 1E 48 00 20 01 97 20 A1 20 FF ... . .H. .. . . 0007C0: 01 28 03 00 00 FA 29 EF 19 7F 20 EB 20 A9 20 0D .(....)... . . . 0007D0: 00 00 E2 2C 19 17 01 BF 22 20 22 01 0D 00 00 E2 ...,...." "..... 0007E0: EF 0D 00 00 E2 F5 0F 01 9F 20 1E 4E 00 01 9F 20 ......... .N... 0007F0: 1E 50 00 01 A0 20 1E 48 00 00 33 00 4A 00 A1 20 .P... .H..3.J.. 000800: FF 01 28 03 00 00 FA 29 EF 19 0D 20 EB 20 BF CF ..(....)... . .. 000810: 49 FF FF FF FF I....
previousnext* BLOCK 0007 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 4
File type : Basic Protégé
File adress start : &1970
File adress length : &0800
File adress execution : &0000
File length file : &2258

Length of PILOT pulse : 1186
Length of SYNC First pulse : 635
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 625
Length of ONE bit pulse : 1252
Length of PILOT tone : 4039
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 353

Duration : 2152 ms
Pause After this block : 19 ms
Duration block + Pause : 2171 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 04 00 01 00 08 70 19 00 58 22 00 00 00 00 00 ......p..X"..... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 B7 D0 FF FF FF FF .......
previousnext* BLOCK 0008 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1186
Length of SYNC First pulse : 635
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 602
Length of ONE bit pulse : 1205
Length of PILOT tone : 4087
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 145 751

Duration : 8979 ms
Pause After this block : 2746 ms
Duration block + Pause : 11725 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 20 FF 03 28 15 29 01 03 00 00 C2 28 0B 00 00 . ..(.).....(... 000010: 64 B1 29 EF 03 00 00 F7 01 A0 20 1E 36 00 00 19 d.)....... .6... 000020: 00 4B 00 03 00 00 F7 EF 03 00 00 F7 F4 03 00 00 .K.............. 000030: FA 01 9F 20 1E 4F 00 00 68 00 4C 00 A1 20 FF 0E ... .O..h.L.. .. 000040: 28 03 00 00 F7 29 EE 15 20 EB 20 A9 20 13 2C 19 (....).. . . .,. 000050: 16 01 BB 20 10 01 BF 22 20 20 20 54 48 49 53 20 ... ..." THIS 000060: 4E 41 4D 45 20 49 53 20 54 4F 4F 20 4C 4F 4E 47 NAME IS TOO LONG 000070: 20 20 20 20 20 20 20 20 20 20 22 01 CC 20 0F 2C ".. ., 000080: 1A 2C 01 2C 19 C8 2C 15 01 9E 20 0D 00 00 E9 EF .,.,..,... ..... 000090: 0F 20 EC 20 1A B8 0B 01 B0 01 A0 20 1E 47 00 00 . . ....... .G.. 0000A0: 22 00 4D 00 9F 20 1E 4F 00 01 0B 00 00 E2 EF 0B ".M.. .O........ 0000B0: 00 00 E2 F4 0F 01 9F 20 1E 50 00 01 A0 20 1E 48 ....... .P... .H 0000C0: 00 00 37 00 4E 00 0D 00 00 77 F1 EF FF 0E 28 03 ..7.N....w....(. 0000D0: 00 00 F7 29 01 03 00 00 77 F1 EF FF 75 28 03 00 ...)....w...u(.. 0000E0: 00 F7 2C 0D 00 00 77 F1 F5 0F 29 01 03 00 00 F7 ..,...w...)..... 0000F0: EF 03 00 00 77 F1 01 C9 00 18 00 4F 00 A9 20 0B ....w......O.. . 000100: 00 34 B8 00 E2 2C 19 17 01 BF 20 03 00 00 FA 3B .4...,.... ....; 000110: 01 C9 00 19 00 50 00 A9 20 0D 00 00 E2 2C 19 17 .....P.. ....,.. 000120: 01 BF 20 FF 03 28 19 5F 29 01 C9 00 22 01 51 00 .. ..(._)...".Q. 000130: 0B 00 00 41 C5 EF F5 28 0B 00 00 C5 28 0F 29 EF ...A...(....(.). 000140: 0F 29 F6 28 28 0B 00 00 C3 28 0F 29 F7 16 29 F4 .).((....(.)..). 000150: 0B 00 00 C7 28 0F 29 F4 0B 00 00 C6 28 0F 29 29 ....(.).....(.)) 000160: 01 9E 20 0B 00 00 CD EF 10 20 EC 20 19 0B 01 0B .. ...... . .... 000170: 00 00 41 C6 EF 0B 00 00 41 C6 F5 28 0B 00 00 C5 ..A.....A..(.... 000180: 28 0B 00 00 CD 29 EF 10 29 F6 28 28 0B 00 00 C3 (....)..).((.... 000190: 28 0B 00 00 CD 29 F7 16 29 F4 0B 00 00 C7 28 0B (....)..).....(. 0001A0: 00 00 CD 29 F4 0B 00 00 C6 28 0B 00 00 CD 29 29 ...).....(....)) 0001B0: 01 0B 00 00 41 C7 EF 0B 00 00 41 C7 F5 28 0B 00 ....A.....A..(.. 0001C0: 00 C5 28 0B 00 00 CD 29 EF 11 29 F6 28 28 0B 00 ..(....)..).((.. 0001D0: 00 C3 28 0B 00 00 CD 29 F7 16 29 F4 0B 00 00 C7 ..(....)..)..... 0001E0: 28 0B 00 00 CD 29 F4 0B 00 00 C6 28 0B 00 00 CD (....).....(.... 0001F0: 29 29 01 0B 00 00 41 C8 EF 0B 00 00 41 C8 F5 28 ))....A.....A..( 000200: 0B 00 00 41 3E C5 28 0B 00 00 CD 29 EF 12 29 F6 ...A>.(....)..). 000210: 28 28 0B 00 00 C3 28 0B 00 00 CD 29 F7 16 29 F4 ((....(....)..). 000220: 0B 00 00 C7 28 0B 00 00 CD 29 F4 0B 00 00 C6 28 ....(....).....( 000230: 0B 00 00 CD 29 29 01 B0 01 0B 00 00 41 C5 EF FF ....))......A... 000240: 0C 28 0B 00 00 41 C5 F7 1F 9A 99 99 39 82 29 00 .(...A......9.). 000250: 0F 01 52 00 0B 00 00 41 C6 EF 0B 00 00 41 C6 F7 ..R....A.....A.. 000260: 1F 9A 99 99 39 82 01 0B 00 00 41 C7 EF 0B 00 00 ....9.....A..... 000270: 41 C7 F7 1F 9A 99 99 39 82 01 0B 00 00 41 C8 EF A......9.....A.. 000280: 0B 00 00 41 C8 F7 1F 9A 99 99 39 82 01 0B 00 00 ...A......9..... 000290: 41 C6 EF FF 0C 28 0B 00 00 41 C6 F7 1F 9A 99 99 A....(...A...... 0002A0: 79 82 29 01 0B 00 00 41 C7 EF FF 0C 28 0B 00 00 y.)....A....(... 0002B0: 41 C7 F7 1F 9A 99 99 39 82 29 01 0B 00 00 41 C8 A......9.)....A. 0002C0: EF FF 0C 28 0B 00 00 41 C8 F7 1F 9A 99 99 39 82 ...(...A......9. 0002D0: 29 01 0B 00 00 41 C5 EF 0B 00 00 41 C5 F5 28 28 )....A.....A..(( 0002E0: 0B 00 00 41 C5 F5 17 29 F7 10 29 F6 28 0F F4 FF ...A...)..).(... 0002F0: 14 28 0B 00 00 41 C5 F5 1F CD CC CC 10 84 29 29 .(...A........)) 000300: 01 0B 00 00 41 8F 3B C7 EF 0B 00 00 41 C7 F5 28 ....A.;.....A..( 000310: 28 0B 00 00 41 C7 F5 17 29 F7 10 29 F6 28 0F F4 (...A...)..).(.. 000320: FF 14 28 0B 00 00 41 C7 F5 1F CD CC CC 10 84 29 ..(...A........) 000330: 29 01 0B 00 00 41 C6 EF 0B 00 00 41 C6 F5 28 28 )....A.....A..(( 000340: 0B 00 00 41 C6 F5 17 29 F7 10 29 F6 28 0F F4 FF ...A...)..).(... 000350: 14 28 0B 00 00 41 C6 F5 1F CD CC CC 10 84 29 29 .(...A........)) 000360: 00 35 00 53 00 0B 00 00 41 C8 EF 0B 00 00 41 C8 .5.S....A.....A. 000370: F5 28 28 0B 00 00 41 C8 F5 17 29 F7 10 29 F6 28 .((...A...)..).( 000380: 0F F4 FF 14 28 0B 00 00 41 C8 F5 1F CD CC CC 10 ....(...A....... 000390: 84 29 29 01 C9 00 42 00 54 00 0D 00 00 E5 28 0D .))...B.T.....(. 0003A0: 00 00 E9 29 EF FF 0C 28 1F CD CC CC 4C 81 F4 28 ...)...(....L..( 0003B0: FF 45 F6 1F 33 33 33 53 82 29 29 01 0D 00 00 E4 .E..333S.))..... 0003C0: 28 0D 00 00 E9 29 EF 11 F4 FF 0C 28 FF 45 F6 19 (....).....(.E.. 0003D0: 45 29 F7 19 0A 01 C9 00 21 00 56 00 BB 20 10 01 E)......!.V.. .. 0003E0: A9 20 19 0F 2C 19 18 01 BF 22 50 4C 45 41 53 45 . ..,...."PLEASE 0003F0: 20 57 41 49 54 22 01 C9 00 11 00 57 00 93 20 03 WAIT".....W.. . 000400: 00 00 C8 28 19 0F 29 19 D4 01 C9 00 1D 00 58 00 ...(..).......X. 000410: 93 20 0B 00 00 D1 28 13 2C 13 29 01 93 20 03 00 . ....(.,.).. .. 000420: 00 C4 28 19 0D 29 01 C9 00 0C 00 59 00 8A 01 9F ..(..).....Y.... 000430: 20 1E 5C 00 00 1D 00 5A 00 85 20 AB 22 49 2E 4D .\....Z.. ."I.M 000440: 41 4E 41 47 45 52 22 2C 19 49 2C 92 20 1E 01 00 ANAGER",.I,. ... 000450: F5 00 7B 00 5B 00 8A 01 9E 20 0D 00 00 6E E8 EF ..{.[.... ...n.. 000460: 0F 20 EC 20 19 14 01 A9 20 0D 00 00 6E E8 F4 17 . . .... ...n... 000470: 2C 19 0C 01 BB 20 0F 01 BF 20 FF 03 28 19 8F 29 ,.... ... ..(..) 000480: 01 B0 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0F .... ..(..)...(. 000490: 29 01 A9 20 19 0A 2C 19 0C 01 BB 20 0E 01 BF 22 ).. ..,.... ..." 0004A0: 49 4E 53 45 52 54 20 4F 52 49 47 49 4E 41 4C 20 INSERT ORIGINAL 0004B0: 54 41 50 45 22 01 BF 20 FF 03 28 19 16 29 F4 FF TAPE".. ..(..).. 0004C0: 03 28 0E 29 01 9F 20 1E 77 00 01 C9 00 64 00 5C .(.).. .w....d.\ 0004D0: 00 9E 20 0D 00 00 6E E8 EF 0F 20 EC 20 15 01 A9 .. ...n... . ... 0004E0: 20 0D 00 00 6E E8 2C 0F 01 BB 20 10 01 BF 20 FF ...n.,... ... . 0004F0: 03 28 19 8F 29 01 B0 01 BF 20 FF 03 28 19 16 29 .(..).... ..(..) 000500: F4 FF 03 28 0F 29 01 A9 20 4C 72 0F 2C 0F 01 BB ...(.).. Lr.,... 000510: 20 11 01 BF 22 4C 4F 41 44 49 4E 47 22 01 BF 20 ..."LOADING".. 000520: FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 BB 20 0F ..(..)...(.).. . 000530: 01 C9 00 83 00 5D 00 8A 01 9F 20 1E 5C 00 01 9E .....].... .\... 000540: 20 0D 00 00 6E E8 EF 0F 20 EC 20 19 19 01 A9 20 ...n... . .... 000550: 0D 00 00 6E E8 F4 14 2C 19 0C 01 BB 20 0F 01 BF ...n...,.... ... 000560: 20 FF 03 28 19 8F 29 01 B0 01 BF 20 FF 03 28 19 ..(..).... ..(. 000570: 16 29 F4 FF 03 28 0F 29 01 A9 20 15 2C 19 0C 01 .)...(.).. .,... 000580: BB 20 0E 01 BF 22 53 54 4F 50 20 54 41 50 45 2C . ..."STOP TAPE, 000590: 4C 4F 41 44 20 53 41 56 45 44 20 47 41 4D 45 22 LOAD SAVED GAME" 0005A0: 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 .. ..(..)...(.). 0005B0: 9F 20 1E 77 00 00 0A 00 5E 00 B6 22 21 73 22 00 . .w....^.."!s". 0005C0: 3E 00 5F 00 9E 20 0D 00 00 E9 EF 0F 20 EC 20 13 >._.. ...... . . 0005D0: 01 9E 20 0D 00 00 FA EF 0F 20 EC 20 13 01 A3 23 .. ...... . ..£# 0005E0: 17 2C 0D 00 00 F1 28 0D 00 00 E9 2C 0D 00 00 FA .,....(....,.... 0005F0: 29 01 B0 20 0D 00 00 FA 2C 0D 00 00 E9 00 B9 00 ).. ....,....... 000600: 60 00 A3 23 17 2C 0D 00 00 62 ED 61 A8 2C 0D 00 `.£#.,...b.a.,.. 000610: 00 62 E7 2C 0D 00 00 62 E5 2C 0D 00 00 62 E6 2C .b.,...b.,...b., 000620: 0D 00 00 62 E8 2C 0D 00 00 62 EA 2C 0D 00 00 6F ...b.,...b.,...o 000630: B4 2C 0D 00 00 62 E2 2C 0D 00 00 6F B1 2C 0D 00 .,...b.,...o.,.. 000640: 00 6F B2 2C 0D 00 00 6F B3 2C 0D 00 00 74 B1 2C .o.,...o.,...t., 000650: 0D 00 00 78 F8 2C 0D 00 00 79 F9 2C 0D 00 00 61 ...x.,...y.,...a 000660: E1 2C 0D 00 00 61 E2 2C 0D 00 00 61 E5 2C 0D 00 .,...a.,...a.,.. 000670: 00 61 E6 2C 0D 00 00 61 E7 2C 0D 00 00 61 E8 2C .a.,...a.,...a., 000680: 0D 00 00 62 E9 2C 0D 00 00 67 B4 2C 0D 00 00 61 ...b.,...g.,...a 000690: E3 2C 03 00 00 F2 2C 03 00 00 EE 2C 03 00 00 F3 .,....,....,.... 0006A0: 2C 0D 00 00 61 E9 2C 0D 00 00 61 EA 2C 0D 00 00 ,...a.,...a.,... 0006B0: 61 EB 2C 0D 00 00 61 EC 00 2E 00 61 00 9E 20 0D a.,...a....a.. . 0006C0: 00 00 E9 EF 0F 20 EC 20 19 3C 01 A3 23 17 2C 03 ..... . .<.£#.,. 0006D0: 00 00 E1 28 0D 00 00 E9 29 2C 0D 00 00 EB 28 0D ...(....),....(. 0006E0: 00 00 E9 29 01 B0 00 23 00 62 00 9E 20 0D 00 00 ...)...#.b.. ... 0006F0: E9 EF 0F 20 EC 20 19 18 01 A3 23 17 2C 0D 00 00 ... . ...£#.,... 000700: F5 28 0D 00 00 E9 29 01 B0 00 86 00 63 AC 0C 00 .(....).....c... 000710: 9E 20 0D 00 00 E9 EF 0F 20 EC 20 19 28 01 A3 23 . ...... . .(.£# 000720: 17 2C 0D 00 00 E1 28 0D 00 00 E9 29 2C 0D 00 00 .,....(....),... 000730: E7 28 0D 00 00 E9 29 2C 0D 00 00 E4 28 0D 00 00 .(....),....(... 000740: E9 29 2C 0D 00 00 E6 28 0D 00 00 E9 29 2C 0D 00 .),....(....),.. 000750: 00 E3 28 0D 00 00 E9 29 2C 0D 00 00 E2 28 0D 00 ..(....),....(.. 000760: 00 E9 29 2C 03 00 00 E2 28 0D 00 00 E9 29 2C 0D ..),....(....),. 000770: 00 00 E5 28 0D 00 00 E9 29 2C 0D 00 00 EF 28 0D ...(....),....(. 000780: 00 00 E9 29 2C 0D 00 00 F0 28 0D 00 00 E9 29 01 ...),....(....). 000790: B0 00 31 00 64 00 9E 20 0D 00 00 E9 EF 0F 20 EC ..1.d.. ...... . 0007A0: 20 14 01 A3 23 17 2C 0D 00 00 F2 28 0F 2C 0D 00 ..£#.,....(.,.. 0007B0: 00 E9 29 2C 0D 00 00 F2 28 10 2C 0D 00 00 E9 29 ..),....(.,....) 0007C0: 01 B0 00 38 00 65 00 9E 20 0D 00 00 E9 EF 0F 20 ...8.e.. ...... 0007D0: EC 20 12 01 A3 23 17 2C 03 00 00 EA 28 0D 00 00 . ..£#.,....(... 0007E0: E9 29 2C 0D 00 00 F4 28 0D 00 00 E9 29 2C 03 00 .),....(....),.. 0007F0: 00 E7 28 0D 00 00 E9 29 01 B0 00 2D 00 66 00 9E ..(....)...-.f.. 000800: 20 0D 00 00 E9 EF 0F 20 EC 20 13 01 A3 23 17 87 ...... . ..£#.. 000810: F5 FF FF FF FF .....
previousnext* BLOCK 0009 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 5
Block last : YES
File type : Basic Protégé
File adress start : &2170
File adress length : &0258
File adress execution : &0000
File length file : &2258

Length of PILOT pulse : 1186
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 624
Length of ONE bit pulse : 1249
Length of PILOT tone : 4038
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 497

Duration : 2153 ms
Pause After this block : 19 ms
Duration block + Pause : 2172 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 05 FF 01 58 02 70 21 00 58 22 00 00 00 00 00 ....X.p!.X"..... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 81 3C FF FF FF FF ..<....
previousnext* BLOCK 0010 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1185
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 613
Length of ONE bit pulse : 1227
Length of PILOT tone : 4088
Used bits in last byte : 8 OK
Data : 779 bytes
Total size : 798 bytes

Sum DATA : 40 412

Duration : 4098 ms
Pause After this block : 18894 ms
Duration block + Pause : 22992 ms
Duration block + Pause : 00 h 00 m 22 s		000000: 16 2C 03 00 00 E6 28 0D 00 00 E9 29 2C 03 00 00 .,....(....),... 000010: F4 28 0D 00 00 E9 29 01 B0 00 22 00 67 00 9E 20 .(....)...".g.. 000020: 0D 00 00 E9 EF 0F 20 EC 20 10 01 A3 23 17 2C 03 ...... . ..£#.,. 000030: 00 00 F9 28 0D 00 00 E9 29 01 B0 00 23 00 68 00 ...(....)...#.h. 000040: 9E 20 0D 00 00 E9 EF 0F 20 EC 20 19 0F 01 A3 23 . ...... . ...£# 000050: 17 2C 03 00 00 E8 28 0D 00 00 E9 29 01 B0 00 2E .,....(....).... 000060: 00 69 00 9E 20 0D 00 00 E9 EF 0F 20 EC 20 19 0C .i.. ...... . .. 000070: 01 A3 23 17 2C 0D 00 00 E8 28 0D 00 00 E9 29 2C .£#.,....(....), 000080: 03 00 00 E4 28 0D 00 00 E9 29 01 B0 00 42 00 6A ....(....)...B.j 000090: 00 9E 20 0D 00 00 E9 EF 0F 20 EC 20 10 01 9E 20 .. ...... . ... 0000A0: 0D 00 00 69 B1 EF 0F 20 EC 20 19 28 01 A3 23 17 ...i... . .(.£#. 0000B0: 2C 0D 00 00 EE 28 0D 00 00 E9 2C 0D 00 00 69 B1 ,....(....,...i. 0000C0: 29 01 B0 20 0D 00 00 69 B1 2C 0D 00 00 E9 00 06 ).. ...i.,...... 0000D0: 00 6B 00 88 00 58 00 6C 00 9F 20 1E 5B 00 01 C2 .k...X.l.. .[... 0000E0: 20 FF 46 01 9E 20 0D 00 00 E9 EF 0F 20 EC 20 19 .F.. ...... . . 0000F0: 0F 01 A1 20 FF 75 28 03 00 00 E8 28 0D 00 00 E9 ... .u(....(.... 000100: 29 A6 C9 2C 10 29 EF 22 56 20 22 20 EB 20 03 00 )..,.)."V " . .. 000110: 00 E8 28 0D 00 00 E9 29 EF FF 7B 28 19 0B 2C 22 ..(....)..{(..," 000120: 20 22 29 F4 03 00 00 E8 28 0D 00 00 E9 29 00 06 ").....(....).. 000130: 00 6D 00 B0 00 3C 00 6E 00 A1 20 03 00 00 E4 28 .m...<.n.. ....( 000140: 14 29 EF 22 45 43 20 46 49 4E 41 4C 53 20 20 20 .)."EC FINALS 000150: 22 20 FC 20 03 00 00 E4 28 14 29 EF 22 57 43 20 " . ....(.)."WC 000160: 46 49 4E 41 4C 53 20 20 20 22 20 EB 20 1E 71 00 FINALS " . .q. 000170: 00 0C 00 6F 00 0D 00 00 62 E7 EF 0F 00 0C 00 71 ...o....b......q 000180: 00 8A 01 9F 20 1E 5C 00 00 1D 00 72 00 85 20 AB .... .\....r.. . 000190: 22 49 2E 4D 41 4E 41 47 45 52 22 2C 19 6C 2C 92 "I.MANAGER",.l,. 0001A0: 20 1E 01 00 F5 00 21 00 73 00 03 00 00 E1 28 0B .....!.s.....(. 0001B0: 00 00 E9 29 EF 03 00 00 E1 28 0B 00 00 E9 29 F4 ...).....(....). 0001C0: FF 03 28 19 20 29 00 22 00 74 00 A1 20 FF 0E 28 ..(. ).".t.. ..( 0001D0: 03 00 00 E1 28 0B 00 00 E9 29 29 F1 17 20 EB 20 ....(....)).. . 0001E0: 1E 73 00 20 01 97 20 C9 00 21 00 75 00 03 00 00 .s. .. ..!.u.... 0001F0: EA 28 0B 00 00 E9 29 EF 03 00 00 EA 28 0B 00 00 .(....).....(... 000200: E9 29 F4 E3 50 FF 03 28 19 20 29 00 22 00 76 00 .)..P..(. ).".v. 000210: A1 20 FF 0E 28 03 00 00 EA 28 0B 00 00 E9 29 29 . ..(....(....)) 000220: F1 17 20 EB 20 1E 75 00 20 01 97 20 C9 00 2D 00 .. . .u. .. ..-. 000230: 77 00 BB 20 10 01 A9 20 19 0D 2C 19 0E 01 BF 22 w.. ... ..,...." 000240: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 01 83 PRESS ANY KEY".. 000250: 20 1C 18 BB 01 BB 20 0F 01 C9 00 00 00 00 00 00 ..... ......... 000260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0002A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0002B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0002C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0002D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0002E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0002F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000300: 00 00 00 00 00 DD 2C FF FF FF FF ......,....
previousnext* BLOCK 0011 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 1
Block first : YES
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1184
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 621
Length of ONE bit pulse : 1243
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 423

Duration : 2162 ms
Pause After this block : 19 ms
Duration block + Pause : 2181 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 01 00 16 00 08 7C 9E FF 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 18 8D FF FF FF FF .......
previousnext* BLOCK 0012 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1184
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 591
Length of ONE bit pulse : 1184
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 128 936

Duration : 9109 ms
Pause After this block : 2902 ms
Duration block + Pause : 12011 ms
Duration block + Pause : 00 h 00 m 12 s		000000: 16 32 20 49 46 20 4D 49 44 24 28 64 24 28 61 62 .2 IF MID$(d$(ab 000010: 29 2C 34 29 3D 22 46 49 4E 41 4C 53 22 20 41 4E ),4)="FINALS" AN 000020: 44 20 62 66 3C 30 20 54 48 45 4E 20 31 31 30 0D D bf<0 THEN 110. 000030: 0A 33 20 47 4F 53 55 42 20 33 34 33 3A 47 4F 53 .3 GOSUB 343:GOS 000040: 55 42 20 33 30 33 3A 43 4C 53 3A 50 45 4E 20 32 UB 303:CLS:PEN 2 000050: 3A 4C 4F 43 41 54 45 20 31 30 2C 31 3A 50 52 49 :LOCATE 10,1:PRI 000060: 4E 54 22 53 45 41 53 4F 4E 20 22 61 61 22 20 20 NT"SEASON "aa" 000070: 20 20 22 3B 65 24 28 61 62 29 3B 68 28 61 62 29 ";e$(ab);h(ab) 000080: 3A 49 46 20 41 53 43 28 6E 24 29 3D 36 39 20 54 :IF ASC(n$)=69 T 000090: 48 45 4E 20 35 0D 0A 34 20 72 61 3D 49 4E 54 28 HEN 5..4 ra=INT( 0000A0: 34 30 2D 4C 45 4E 28 6E 24 29 2D 31 29 2F 32 3A 40-LEN(n$)-1)/2: 0000B0: 4C 4F 43 41 54 45 20 72 61 2C 33 3A 50 52 49 4E LOCATE ra,3:PRIN 0000C0: 54 20 6E 24 3A 47 4F 54 4F 20 36 0D 0A 35 20 4C T n$:GOTO 6..5 L 0000D0: 4F 43 41 54 45 20 39 2C 33 3A 50 52 49 4E 54 20 OCATE 9,3:PRINT 0000E0: 4C 45 46 54 24 28 6E 24 2C 32 32 29 3A 72 61 3D LEFT$(n$,22):ra= 0000F0: 49 4E 54 28 34 30 2D 49 4E 54 28 4C 45 4E 28 6E INT(40-INT(LEN(n 000100: 24 98 2F 29 2D 32 30 29 29 2F 32 3A 4C 4F 43 41 $./)-20))/2:LOCA 000110: 54 45 20 72 61 2D 31 2C 34 3A 50 52 49 4E 54 20 TE ra-1,4:PRINT 000120: 4D 49 44 24 28 6E 24 2C 32 33 29 0D 0A 36 20 4C MID$(n$,23)..6 L 000130: 4F 43 41 54 45 20 33 2C 37 3A 50 45 4E 20 31 3A OCATE 3,7:PEN 1: 000140: 50 52 49 4E 54 22 52 41 4E 4B 45 44 22 3B 41 42 PRINT"RANKED";AB 000150: 53 28 6B 28 62 69 29 29 53 50 41 43 45 24 28 31 S(k(bi))SPACE$(1 000160: 33 29 3B 22 52 41 4E 4B 45 44 22 3B 41 42 53 28 3);"RANKED";ABS( 000170: 6B 28 67 34 29 29 0D 0A 37 20 4C 4F 43 41 54 45 k(g4))..7 LOCATE 000180: 20 31 37 2C 36 3A 49 46 20 61 6D 3D 31 20 54 48 17,6:IF am=1 TH 000190: 45 4E 20 50 52 49 4E 54 22 48 4F 4D 45 22 3A 47 EN PRINT"HOME":G 0001A0: 4F 54 4F 20 39 0D 0A 38 20 50 52 49 4E 54 22 41 OTO 9..8 PRINT"A 0001B0: 57 41 59 22 0D 0A 39 20 4C 4F 43 41 54 45 20 33 WAY"..9 LOCATE 3 0001C0: 2C 39 3A 50 52 49 4E 54 20 72 24 3A 4C 4F 43 41 ,9:PRINT r$:LOCA 0001D0: 54 45 20 32 36 2C 39 3A 50 52 49 4E 54 20 73 24 TE 26,9:PRINT s$ 0001E0: 3A 79 31 3D 31 30 3A 79 32 3D 2D 33 3A 47 4F 53 :y1=10:y2=-3:GOS 0001F0: 55 42 20 32 30 38 3A 79 32 3D 2D 35 3A 47 4F 53 UB 208:y2=-5:GOS 000200: 55 42 20 D2 05 31 39 34 3A 79 32 3D 32 30 3A 47 UB ..194:y2=20:G 000210: 4F 53 55 42 20 32 30 38 3A 4C 4F 43 41 54 45 20 OSUB 208:LOCATE 000220: 33 37 2C 31 31 3A 50 52 49 4E 54 20 49 4E 54 28 37,11:PRINT INT( 000230: 61 69 29 3A 4C 4F 43 41 54 45 20 33 37 2C 31 32 ai):LOCATE 37,12 000240: 3A 50 52 49 4E 54 20 49 4E 54 28 61 6A 29 3A 4C :PRINT INT(aj):L 000250: 4F 43 41 54 45 20 33 37 2C 31 33 3A 50 52 49 4E OCATE 37,13:PRIN 000260: 54 20 49 4E 54 28 61 6B 29 3A 4C 4F 43 41 54 45 T INT(ak):LOCATE 000270: 20 33 37 2C 31 34 3A 50 52 49 4E 54 20 49 4E 54 37,14:PRINT INT 000280: 28 61 6C 29 0D 0A 31 30 20 47 4F 53 55 42 20 33 (al)..10 GOSUB 3 000290: 37 35 3A 47 4F 54 4F 20 31 30 0D 0A 31 31 20 49 75:GOTO 10..11 I 0002A0: 46 20 62 67 3D 30 20 41 4E 44 20 62 66 3E 30 20 F bg=0 AND bf>0 0002B0: 41 4E 44 20 61 62 3D 36 20 54 48 45 4E 20 31 37 AND ab=6 THEN 17 0002C0: 33 0D 0A 31 32 20 43 4C 53 3A 4C 4F 43 41 54 45 3..12 CLS:LOCATE 0002D0: 20 31 36 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 16,1:PEN 2:PRIN 0002E0: 54 22 48 4F 50 45 46 55 4C 4C 53 22 3A 4C 4F 43 T"HOPEFULLS":LOC 0002F0: 41 54 45 20 31 36 2C 33 3A 50 45 4E 20 31 3A 50 ATE 16,3:PEN 1:P 000300: 52 49 4E 54 22 90 B8 54 20 20 20 46 20 43 20 4D RINT"..T F C M 000310: 20 43 41 50 20 41 47 45 20 41 56 41 22 3A 46 4F CAP AGE AVA":FO 000320: 52 20 69 3D 32 35 20 54 4F 20 34 30 3A 47 4F 53 R i=25 TO 40:GOS 000330: 55 42 20 32 31 31 3A 4C 4F 43 41 54 45 20 31 2C UB 211:LOCATE 1, 000340: 69 2D 32 31 3A 50 52 49 4E 54 20 69 3B 7A 24 22 i-21:PRINT i;z$" 000350: 20 22 3B 62 24 28 69 29 3A 4C 4F 43 41 54 45 20 ";b$(i):LOCATE 000360: 31 35 2C 69 2D 32 31 3A 50 52 49 4E 54 20 49 4E 15,i-21:PRINT IN 000370: 54 28 61 28 69 29 29 3B 78 24 3B 49 4E 54 28 41 T(a(i));x$;INT(A 000380: 42 53 28 67 28 69 29 29 29 3A 4C 4F 43 41 54 45 BS(g(i))):LOCATE 000390: 20 32 31 2C 69 2D 32 31 3A 50 52 49 4E 54 20 49 21,i-21:PRINT I 0003A0: 4E 54 28 64 28 69 29 29 0D 0A 31 33 20 4C 4F 43 NT(d(i))..13 LOC 0003B0: 41 54 45 20 32 33 2C 69 2D 32 31 3A 50 52 49 4E ATE 23,i-21:PRIN 0003C0: 54 20 49 4E 54 28 66 28 69 29 29 3A 4C 4F 43 41 T INT(f(i)):LOCA 0003D0: 54 45 20 32 35 2C 69 2D 32 31 3A 50 52 49 4E 54 TE 25,i-21:PRINT 0003E0: 20 49 4E 54 28 63 28 69 29 29 3A 4C 4F 43 41 54 INT(c(i)):LOCAT 0003F0: 45 20 32 39 2C 69 2D 32 31 3A 50 52 49 4E 54 20 E 29,i-21:PRINT 000400: 49 4E 54 28 62 28 69 96 44 29 29 3A 4C 4F 43 41 INT(b(i.D)):LOCA 000410: 54 45 20 33 33 2C 69 2D 32 31 3A 50 52 49 4E 54 TE 33,i-21:PRINT 000420: 20 65 24 28 6E 28 31 2C 69 29 29 3B 22 20 22 3B e$(n(1,i));" "; 000430: 49 4E 54 28 6E 28 32 2C 69 29 29 3A 4E 45 58 54 INT(n(2,i)):NEXT 000440: 0D 0A 31 34 20 4C 4F 43 41 54 45 20 31 2C 32 33 ..14 LOCATE 1,23 000450: 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 20 20 20 :PEN 2:PRINT" 000460: 20 20 20 20 20 4D 2D 4D 45 4E 55 20 43 2D 43 48 M-MENU C-CH 000470: 41 4E 47 45 20 53 2D 53 51 55 41 44 20 20 20 20 ANGE S-SQUAD 000480: 20 20 20 20 20 22 3A 50 45 4E 20 31 3A 47 4F 53 ":PEN 1:GOS 000490: 55 42 20 33 37 36 3A 71 24 3D 49 4E 4B 45 59 24 UB 376:q$=INKEY$ 0004A0: 3A 49 46 20 71 24 3D 22 22 20 54 48 45 4E 20 31 :IF q$="" THEN 1 0004B0: 34 20 45 4C 53 45 20 71 24 3D 55 50 50 45 52 24 4 ELSE q$=UPPER$ 0004C0: 28 71 24 29 0D 0A 31 35 20 49 46 20 71 24 3D 22 (q$)..15 IF q$=" 0004D0: 53 22 20 54 48 45 4E 20 31 37 33 20 45 4C 53 45 S" THEN 173 ELSE 0004E0: 20 49 46 20 71 24 3D 22 43 22 20 54 48 45 4E 20 IF q$="C" THEN 0004F0: 31 36 20 45 4C 53 45 20 31 34 0D 0A 31 36 20 78 16 ELSE 14..16 x 000500: 33 3D 33 3A 78 31 3D 32 35 D7 33 3A 78 32 3D 34 3=3:x1=25.3:x2=4 000510: 30 3A 69 3D 78 31 3A 47 4F 53 55 42 20 32 30 34 0:i=x1:GOSUB 204 000520: 3A 47 4F 53 55 42 20 31 39 38 3A 61 64 3D 69 3A :GOSUB 198:ad=i: 000530: 78 31 3D 31 37 3A 78 32 3D 32 34 3A 78 33 3D 31 x1=17:x2=24:x3=1 000540: 3A 69 3D 78 31 3A 47 4F 53 55 42 20 32 30 32 3A :i=x1:GOSUB 202: 000550: 47 4F 53 55 42 20 31 39 38 0D 0A 31 37 20 47 4F GOSUB 198..17 GO 000560: 53 55 42 20 31 39 35 3A 47 4F 53 55 42 20 31 39 SUB 195:GOSUB 19 000570: 31 3A 69 3D 61 64 3A 47 4F 53 55 42 20 32 31 31 1:i=ad:GOSUB 211 000580: 3A 4C 4F 43 41 54 45 20 31 2C 61 64 2D 32 31 3A :LOCATE 1,ad-21: 000590: 50 52 49 4E 54 20 69 3B 7A 24 22 20 22 3B 62 24 PRINT i;z$" ";b$ 0005A0: 28 69 29 3B 22 20 20 20 22 3A 4C 4F 43 41 54 45 (i);" ":LOCATE 0005B0: 20 31 35 2C 61 64 2D 32 31 3A 50 52 49 4E 54 20 15,ad-21:PRINT 0005C0: 49 4E 54 28 61 28 69 29 29 3B 78 24 3B 49 4E 54 INT(a(i));x$;INT 0005D0: 28 41 42 53 28 67 28 69 29 29 29 3A 4C 4F 43 41 (ABS(g(i))):LOCA 0005E0: 54 45 20 32 31 2C 61 64 2D 32 31 3A 50 52 49 4E TE 21,ad-21:PRIN 0005F0: 54 20 49 4E 54 28 64 28 69 29 29 3A 4C 4F 43 41 T INT(d(i)):LOCA 000600: 54 45 20 32 33 2C 61 64 2D 32 31 09 39 3A 50 52 TE 23,ad-21.9:PR 000610: 49 4E 54 20 49 4E 54 28 66 28 69 29 29 3A 4C 4F INT INT(f(i)):LO 000620: 43 41 54 45 20 32 35 2C 61 64 2D 32 31 3A 50 52 CATE 25,ad-21:PR 000630: 49 4E 54 20 63 28 69 29 3A 4C 4F 43 41 54 45 20 INT c(i):LOCATE 000640: 32 39 2C 61 64 2D 32 31 3A 50 52 49 4E 54 20 62 29,ad-21:PRINT b 000650: 28 69 29 0D 0A 31 38 20 4C 4F 43 41 54 45 20 33 (i)..18 LOCATE 3 000660: 33 2C 61 64 2D 32 31 3A 50 52 49 4E 54 20 65 24 3,ad-21:PRINT e$ 000670: 28 6E 28 31 2C 69 29 29 3B 22 20 22 3B 6E 28 32 (n(1,i));" ";n(2 000680: 2C 69 29 3A 47 4F 54 4F 20 31 34 0D 0A 31 39 20 ,i):GOTO 14..19 000690: 43 4C 53 0D 0A 32 30 20 74 32 3D 30 3A 7A 78 3D CLS..20 t2=0:zx= 0006A0: 31 3A 46 4F 52 20 69 3D 31 20 54 4F 20 36 3A 7A 1:FOR i=1 TO 6:z 0006B0: 78 3D 7A 78 2B 32 3A 4C 4F 43 41 54 45 20 32 2C x=zx+2:LOCATE 2, 0006C0: 7A 78 3A 50 45 4E 20 32 3A 50 52 49 4E 54 20 65 zx:PEN 2:PRINT e 0006D0: 24 28 69 29 3B 68 28 69 29 3B 52 49 47 48 54 24 $(i);h(i);RIGHT$ 0006E0: 28 4C 45 46 54 24 28 44 24 28 69 29 2C 31 30 29 (LEFT$(D$(i),10) 0006F0: 2C 31 29 3B 22 20 22 3B 0D 0A 32 31 20 50 52 49 ,1);" ";..21 PRI 000700: 4E 54 20 52 49 47 48 54 24 28 4C 45 46 8F 24 54 NT RIGHT$(LEF.$T 000710: 24 28 44 24 28 69 29 2C 31 32 29 2C 32 29 3A 4C $(D$(i),12),2):L 000720: 4F 43 41 54 45 20 32 36 2C 7A 78 3A 50 52 49 4E OCATE 26,zx:PRIN 000730: 54 20 65 24 28 69 2B 36 29 3B 68 28 69 2B 36 29 T e$(i+6);h(i+6) 000740: 3B 3A 50 52 49 4E 54 20 52 49 47 48 54 24 28 4C ;:PRINT RIGHT$(L 000750: 45 46 54 24 28 44 24 28 69 2B 36 29 2C 31 30 29 EFT$(D$(i+6),10) 000760: 2C 31 29 3B 22 20 22 3B 52 49 47 48 54 24 28 4C ,1);" ";RIGHT$(L 000770: 45 46 54 24 28 44 24 28 69 2B 36 29 2C 31 32 29 EFT$(D$(i+6),12) 000780: 2C 32 29 3B 22 20 22 0D 0A 32 32 20 50 45 4E 20 ,2);" "..22 PEN 000790: 31 3A 50 52 49 4E 54 22 20 22 3B 4C 45 46 54 24 1:PRINT" ";LEFT$ 0007A0: 28 64 24 28 69 29 2C 39 29 3B 22 20 22 3B 4C 45 (d$(i),9);" ";LE 0007B0: 46 54 24 28 4D 49 44 24 28 64 24 28 69 29 2C 31 FT$(MID$(d$(i),1 0007C0: 34 29 2C 31 29 3B 22 2D 22 3B 4C 45 46 54 24 28 4),1);"-";LEFT$( 0007D0: 4D 49 44 24 28 64 24 28 69 29 2C 31 36 29 2C 31 MID$(d$(i),16),1 0007E0: 29 3A 4C 4F 43 41 54 45 20 32 36 2C 7A 78 2B 31 ):LOCATE 26,zx+1 0007F0: 3A 50 52 49 4E 54 20 4C 45 46 54 24 28 64 24 28 :PRINT LEFT$(d$( 000800: 69 2B 36 29 2C 39 29 3B 22 20 22 3B 0D 0A 32 0B i+6),9);" ";..2. 000810: 73 FF FF FF FF s....
previousnext* BLOCK 0013 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 2
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1182
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 621
Length of ONE bit pulse : 1244
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 214

Duration : 2158 ms
Pause After this block : 20 ms
Duration block + Pause : 2178 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 02 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 25 AD FF FF FF FF .%.....
previousnext* BLOCK 0014 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1182
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 591
Length of ONE bit pulse : 1182
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 125 862

Duration : 9105 ms
Pause After this block : 2899 ms
Duration block + Pause : 12004 ms
Duration block + Pause : 00 h 00 m 12 s		000000: 16 33 20 50 52 49 4E 54 20 4C 45 46 54 24 28 4D .3 PRINT LEFT$(M 000010: 49 44 24 28 64 24 28 69 2B 36 29 2C 31 34 29 2C ID$(d$(i+6),14), 000020: 31 29 3B 22 2D 22 3B 4C 45 46 54 24 28 4D 49 44 1);"-";LEFT$(MID 000030: 24 28 64 24 28 69 2B 36 29 2C 31 36 29 2C 31 29 $(d$(i+6),16),1) 000040: 3A 4E 45 58 54 3A 49 46 20 74 24 28 35 29 3D 22 :NEXT:IF t$(5)=" 000050: 22 20 54 48 45 4E 20 32 38 0D 0A 32 34 20 47 4F " THEN 28..24 GO 000060: 53 55 42 20 32 35 3A 47 4F 54 4F 20 32 38 0D 0A SUB 25:GOTO 28.. 000070: 32 35 20 4C 4F 43 41 54 45 20 31 38 2C 31 35 3A 25 LOCATE 18,15: 000080: 50 45 4E 20 32 3A 50 52 49 4E 54 22 54 4F 55 52 PEN 2:PRINT"TOUR 000090: 22 3A 50 45 4E 20 31 3A 46 4F 52 20 69 3D 31 20 ":PEN 1:FOR i=1 0000A0: 54 4F 20 32 3A 50 45 4E 20 32 3A 4C 4F 43 41 54 TO 2:PEN 2:LOCAT 0000B0: 45 20 31 2C 31 36 2D 28 69 3D 32 29 2A 32 3A 50 E 1,16-(i=2)*2:P 0000C0: 52 49 4E 54 22 20 22 3B 4C 45 46 54 24 28 74 24 RINT" ";LEFT$(t$ 0000D0: 28 35 29 2C 33 29 3B 74 28 69 29 3B 22 41 22 3A (5),3);t(i);"A": 0000E0: 4C 4F 43 41 54 45 20 32 36 2C 31 36 2D 28 69 3D LOCATE 26,16-(i= 0000F0: 32 29 2A 32 3A 50 52 49 4E 54 20 4C 45 46 54 24 2)*2:PRINT LEFT$ 000100: 28 D6 4D 74 24 28 35 29 2C 33 29 3B 74 28 69 2B (.Mt$(5),3);t(i+ 000110: 32 29 3B 22 41 20 20 20 20 20 22 0D 0A 32 36 20 2);"A "..26 000120: 50 45 4E 20 31 3A 4C 4F 43 41 54 45 20 32 2C 31 PEN 1:LOCATE 2,1 000130: 37 2D 28 69 3D 32 29 2A 32 3A 50 52 49 4E 54 20 7-(i=2)*2:PRINT 000140: 4C 45 46 54 24 28 74 24 28 69 29 2C 39 29 3B 22 LEFT$(t$(i),9);" 000150: 20 22 3B 4C 45 46 54 24 28 4D 49 44 24 28 74 24 ";LEFT$(MID$(t$ 000160: 28 69 29 2C 31 31 29 2C 31 29 3B 22 2D 22 3B 4C (i),11),1);"-";L 000170: 45 46 54 24 28 4D 49 44 24 28 74 24 28 69 29 2C EFT$(MID$(t$(i), 000180: 31 33 29 2C 31 29 0D 0A 32 37 20 4C 4F 43 41 54 13),1)..27 LOCAT 000190: 45 20 32 36 2C 31 37 2D 28 69 3D 32 29 2A 32 3A E 26,17-(i=2)*2: 0001A0: 50 52 49 4E 54 20 4C 45 46 54 24 28 74 24 28 69 PRINT LEFT$(t$(i 0001B0: 2B 32 29 2C 39 29 3B 22 20 22 3B 4C 45 46 54 24 +2),9);" ";LEFT$ 0001C0: 28 4D 49 44 24 28 74 24 28 69 2B 32 29 2C 31 31 (MID$(t$(i+2),11 0001D0: 29 2C 31 29 3B 22 2D 22 3B 4C 45 46 54 24 28 4D ),1);"-";LEFT$(M 0001E0: 49 44 24 28 74 24 28 69 2B 32 29 2C 31 33 29 2C ID$(t$(i+2),13), 0001F0: 31 29 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 1):NEXT:RETURN.. 000200: 32 38 20 3F B1 4C 4F 43 41 54 45 20 31 2C 32 31 28 ?.LOCATE 1,21 000210: 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 20 20 20 :PEN 2:PRINT" 000220: 20 20 20 20 20 20 42 2D 42 4F 4F 4B 20 46 49 58 B-BOOK FIX 000230: 54 55 52 45 20 4D 2D 4D 45 4E 55 20 20 20 20 20 TURE M-MENU 000240: 20 20 22 3A 50 45 4E 20 31 3A 47 4F 53 55 42 20 ":PEN 1:GOSUB 000250: 33 37 36 3A 71 24 3D 49 4E 4B 45 59 24 3A 49 46 376:q$=INKEY$:IF 000260: 20 71 24 3D 22 22 20 54 48 45 4E 20 32 38 20 45 q$="" THEN 28 E 000270: 4C 53 45 20 71 24 3D 55 50 50 45 52 24 28 71 24 LSE q$=UPPER$(q$ 000280: 29 3A 49 46 20 71 24 3D 22 42 22 20 54 48 45 4E ):IF q$="B" THEN 000290: 20 32 39 20 45 4C 53 45 20 32 38 0D 0A 32 39 20 29 ELSE 28..29 0002A0: 78 31 3D 31 3A 78 32 3D 31 32 3A 78 33 3D 32 3A x1=1:x2=12:x3=2: 0002B0: 69 3D 31 3A 47 4F 53 55 42 20 32 30 33 3A 47 4F i=1:GOSUB 203:GO 0002C0: 53 55 42 20 31 39 38 3A 49 46 20 64 24 28 69 29 SUB 198:IF d$(i) 0002D0: 3C 3E 22 22 20 4F 52 20 69 3C 61 62 20 54 48 45 <>"" OR i<ab THE 0002E0: 4E 20 32 38 0D 0A 33 30 20 6F 35 3D 69 3A 49 46 N 28..30 o5=i:IF 0002F0: 20 74 24 28 35 29 3D 22 22 20 41 4E 44 20 6F 35 t$(5)="" AND o5 000300: 3E 34 20 41 4E 53 C1 44 20 6F 35 3C 38 20 41 4E >4 ANS.D o5<8 AN 000310: 44 20 6F 35 3C 3E 61 62 20 54 48 45 4E 20 33 31 D o5<>ab THEN 31 000320: 20 45 4C 53 45 20 33 33 0D 0A 33 31 20 4C 4F 43 ELSE 33..31 LOC 000330: 41 54 45 20 31 2C 32 31 3A 50 52 49 4E 54 22 20 ATE 1,21:PRINT" 000340: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 54 DO YOU WANT TO T 000350: 4F 55 52 20 28 59 29 45 53 20 4F 52 20 28 4E 29 OUR (Y)ES OR (N) 000360: 4F 20 20 22 3A 71 24 3D 49 4E 4B 45 59 24 3A 49 O ":q$=INKEY$:I 000370: 46 20 71 24 3D 22 22 20 54 48 45 4E 20 33 31 20 F q$="" THEN 31 000380: 45 4C 53 45 20 71 24 3D 55 50 50 45 52 24 28 71 ELSE q$=UPPER$(q 000390: 24 29 3A 49 46 20 71 24 3D 22 4E 22 20 54 48 45 $):IF q$="N" THE 0003A0: 4E 20 33 33 20 45 4C 53 45 20 49 46 20 71 24 3D N 33 ELSE IF q$= 0003B0: 22 59 22 20 54 48 45 4E 20 33 32 20 45 4C 53 45 "Y" THEN 32 ELSE 0003C0: 20 33 31 0D 0A 33 32 20 74 24 28 35 29 3D 65 24 31..32 t$(5)=e$ 0003D0: 28 6F 35 29 3A 64 24 28 6F 35 29 3D 22 54 4F 55 (o5):d$(o5)="TOU 0003E0: 52 20 20 20 20 20 22 3A 68 28 6F 35 29 3D 37 3A R ":h(o5)=7: 0003F0: 47 4F 53 55 42 20 32 35 3A 74 32 3D 31 3A 46 4F GOSUB 25:t2=1:FO 000400: 52 20 6B 3D 31 20 54 91 4B 4F 20 34 20 0D 0A 33 R k=1 T.KO 4 ..3 000410: 33 20 78 33 3D 34 3A 78 32 3D 36 30 3A 69 3D 31 3 x3=4:x2=60:i=1 000420: 3A 47 4F 53 55 42 20 32 30 35 3A 47 4F 53 55 42 :GOSUB 205:GOSUB 000430: 20 31 39 38 3A 49 46 20 6B 28 69 29 3C 30 20 54 198:IF k(i)<0 T 000440: 48 45 4E 20 33 33 0D 0A 33 34 20 49 46 20 74 32 HEN 33..34 IF t2 000450: 3D 30 20 54 48 45 4E 20 33 36 0D 0A 33 35 20 74 =0 THEN 36..35 t 000460: 24 28 6B 29 3D 4C 45 46 54 24 28 61 24 28 69 29 $(k)=LEFT$(a$(i) 000470: 2C 39 29 2B 4D 49 44 24 28 74 24 28 6B 29 2C 31 ,9)+MID$(t$(k),1 000480: 30 29 3A 4C 4F 43 41 54 45 20 32 2D 28 6B 3D 33 0):LOCATE 2-(k=3 000490: 20 4F 52 20 6B 3D 34 29 2A 32 34 2C 31 37 2D 28 OR k=4)*24,17-( 0004A0: 6B 3D 32 20 4F 52 20 6B 3D 34 29 2A 32 3A 50 52 k=2 OR k=4)*2:PR 0004B0: 49 4E 54 20 4C 45 46 54 24 28 74 24 28 6B 29 2C INT LEFT$(t$(k), 0004C0: 39 29 3A 4E 45 58 54 3A 47 4F 54 4F 20 34 35 0D 9):NEXT:GOTO 45. 0004D0: 0A 33 36 20 72 64 3D 30 3A 4C 4F 43 41 54 45 20 .36 rd=0:LOCATE 0004E0: 31 2C 32 31 3A 50 52 49 4E 54 22 50 4C 41 59 20 1,21:PRINT"PLAY 0004F0: 48 4F 4D 45 20 4F 52 20 41 57 41 59 20 20 20 20 HOME OR AWAY 000500: 20 20 22 0D 0A 33 37 20 71 A9 1B 24 3D 49 4E 4B "..37 q..$=INK 000510: 45 59 24 3A 49 46 20 71 24 3D 22 22 20 54 48 45 EY$:IF q$="" THE 000520: 4E 20 33 37 20 45 4C 53 45 20 71 24 3D 55 50 50 N 37 ELSE q$=UPP 000530: 45 52 24 28 71 24 29 0D 0A 33 38 20 49 46 20 71 ER$(q$)..38 IF q 000540: 24 3D 22 41 22 20 54 48 45 4E 20 7A 24 3D 22 41 $="A" THEN z$="A 000550: 22 3A 72 64 3D 31 3A 47 4F 54 4F 20 34 31 0D 0A ":rd=1:GOTO 41.. 000560: 33 39 20 49 46 20 71 24 3D 22 48 22 20 54 48 45 39 IF q$="H" THE 000570: 4E 20 7A 24 3D 22 48 22 3A 47 4F 54 4F 20 34 31 N z$="H":GOTO 41 000580: 0D 0A 34 30 20 47 4F 54 4F 20 33 37 0D 0A 34 31 ..40 GOTO 37..41 000590: 20 72 62 3D 49 4E 54 28 52 4E 44 2A 36 29 2B 31 rb=INT(RND*6)+1 0005A0: 3A 72 63 3D 28 41 42 53 28 6B 28 69 29 2F 31 30 :rc=(ABS(k(i)/10 0005B0: 29 29 2B 28 72 64 2B 32 29 3A 49 46 20 72 62 3E ))+(rd+2):IF rb> 0005C0: 72 63 20 54 48 45 4E 20 6B 28 69 29 3D 6B 28 69 rc THEN k(i)=k(i 0005D0: 29 2D 6B 28 69 29 2A 32 3A 4C 4F 43 41 54 45 20 )-k(i)*2:LOCATE 0005E0: 31 2C 32 31 3A 50 52 49 4E 54 20 61 24 28 69 29 1,21:PRINT a$(i) 0005F0: 3B 22 20 48 41 56 45 20 4F 54 48 45 52 20 43 4F ;" HAVE OTHER CO 000600: 4D 4D 49 54 4D 45 4E 54 53 22 3A 17 5A 46 4F 52 MMITMENTS":.ZFOR 000610: 20 7A 3D 31 20 54 4F 20 33 30 30 30 3A 4E 45 58 z=1 TO 3000:NEX 000620: 54 3A 47 4F 54 4F 20 32 38 0D 0A 34 32 20 4C 4F T:GOTO 28..42 LO 000630: 43 41 54 45 20 31 2C 32 31 3A 50 52 49 4E 54 20 CATE 1,21:PRINT 000640: 61 24 28 69 29 3B 22 20 41 43 43 45 50 54 20 59 a$(i);" ACCEPT Y 000650: 4F 55 52 20 4F 46 46 45 52 22 3A 64 24 28 6F 35 OUR OFFER":d$(o5 000660: 29 3D 61 24 28 69 29 2B 4D 49 44 24 28 64 24 28 )=a$(i)+MID$(d$( 000670: 6F 35 29 2C 31 30 29 3A 64 24 28 6F 35 29 3D 4C o5),10):d$(o5)=L 000680: 45 46 54 24 28 64 24 28 6F 35 29 2C 39 29 2B 7A EFT$(d$(o5),9)+z 000690: 24 2B 4D 49 44 24 28 64 24 28 6F 35 29 2C 31 31 $+MID$(d$(o5),11 0006A0: 29 0D 0A 34 33 20 64 24 28 6F 35 29 3D 4C 45 46 )..43 d$(o5)=LEF 0006B0: 54 24 28 64 24 28 6F 35 29 2C 31 30 29 2B 22 46 T$(d$(o5),10)+"F 0006C0: 20 22 2B 4D 49 44 24 28 64 24 28 6F 35 29 2C 31 "+MID$(d$(o5),1 0006D0: 33 29 0D 0A 34 34 20 72 61 3D 28 31 2D 28 6F 35 3)..44 ra=(1-(o5 0006E0: 3D 61 62 29 2A 61 63 29 2B 49 4E 54 28 52 4E 44 =ab)*ac)+INT(RND 0006F0: 2A 28 33 30 2B 28 6F 35 3D 61 62 29 2A 61 63 29 *(30+(o5=ab)*ac) 000700: 29 3A 52 41 3D 52 41 2D 28 52 41 3D 31 DB 84 29 ):RA=RA-(RA=1..) 000710: 3A 68 28 6F 35 29 3D 72 61 3A 46 4F 52 20 7A 3D :h(o5)=ra:FOR z= 000720: 31 20 54 4F 20 33 30 30 30 3A 4E 45 58 54 3A 47 1 TO 3000:NEXT:G 000730: 4F 53 55 42 20 33 37 33 3A 49 46 20 4C 45 46 54 OSUB 373:IF LEFT 000740: 24 28 64 24 28 61 62 29 2C 32 29 3C 3E 22 54 4F $(d$(ab),2)<>"TO 000750: 22 20 54 48 45 4E 20 47 4F 53 55 42 20 32 38 36 " THEN GOSUB 286 000760: 0D 0A 34 35 20 47 4F 54 4F 20 32 30 0D 0A 34 36 ..45 GOTO 20..46 000770: 20 49 46 20 62 68 3D 31 34 20 54 48 45 4E 20 34 IF bh=14 THEN 4 000780: 38 20 45 4C 53 45 20 49 46 20 62 68 3D 32 31 20 8 ELSE IF bh=21 000790: 54 48 45 4E 20 34 39 20 45 4C 53 45 20 49 46 20 THEN 49 ELSE IF 0007A0: 62 68 3D 32 38 20 54 48 45 4E 20 35 30 0D 0A 34 bh=28 THEN 50..4 0007B0: 37 20 78 78 3D 39 2B 28 62 66 3C 31 29 3A 79 79 7 xx=9+(bf<1):yy 0007C0: 3D 31 35 3A 47 4F 53 55 42 20 33 33 31 3A 62 68 =15:GOSUB 331:bh 0007D0: 3D 31 34 3A 52 45 54 55 52 4E 0D 0A 34 38 20 78 =14:RETURN..48 x 0007E0: 78 3D 35 2B 28 62 66 3C 31 29 3A 79 79 3D 37 3A x=5+(bf<1):yy=7: 0007F0: 47 4F 53 55 42 20 33 33 31 3A 62 68 3D 32 31 3A GOSUB 331:bh=21: 000800: 52 45 54 55 52 4E 0D 0A 34 39 20 78 78 3D 33 C4 RETURN..49 xx=3. 000810: EB FF FF FF FF .....
previousnext* BLOCK 0015 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 3
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1182
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 622
Length of ONE bit pulse : 1244
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 365

Duration : 2159 ms
Pause After this block : 19 ms
Duration block + Pause : 2178 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 03 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 C2 A6 FF FF FF FF .......
previousnext* BLOCK 0016 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1182
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 590
Length of ONE bit pulse : 1182
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 127 486

Duration : 9095 ms
Pause After this block : 2897 ms
Duration block + Pause : 11992 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 2B 28 62 66 3C 31 29 3A 79 79 3D 33 3A 47 4F .+(bf<1):yy=3:GO 000010: 53 55 42 20 33 33 31 3A 62 68 3D 32 38 3A 52 45 SUB 331:bh=28:RE 000020: 54 55 52 4E 0D 0A 35 30 20 49 46 20 62 66 3C 31 TURN..50 IF bf<1 000030: 20 54 48 45 4E 20 78 78 3D 31 3A 79 79 3D 31 3A THEN xx=1:yy=1: 000040: 47 4F 53 55 42 20 33 33 31 3A 62 68 3D 30 3A 62 GOSUB 331:bh=0:b 000050: 66 3D 62 66 2D 62 66 2A 32 0D 0A 35 31 20 52 45 f=bf-bf*2..51 RE 000060: 54 55 52 4E 0D 0A 35 32 20 49 46 20 62 68 3D 30 TURN..52 IF bh=0 000070: 20 54 48 45 4E 20 35 31 0D 0A 35 33 20 49 46 20 THEN 51..53 IF 000080: 62 68 3D 32 31 20 54 48 45 4E 20 35 35 20 45 4C bh=21 THEN 55 EL 000090: 53 45 20 49 46 20 62 68 3D 32 38 20 54 48 45 4E SE IF bh=28 THEN 0000A0: 20 35 36 0D 0A 35 34 20 72 61 3D 34 3A 78 78 3D 56..54 ra=4:xx= 0000B0: 38 3A 79 79 3D 31 35 3A 47 4F 53 55 42 20 36 38 8:yy=15:GOSUB 68 0000C0: 3A 52 45 54 55 52 4E 0D 0A 35 35 20 72 61 3D 32 :RETURN..55 ra=2 0000D0: 3A 78 78 3D 34 3A 79 79 3D 37 3A 47 4F 53 55 42 :xx=4:yy=7:GOSUB 0000E0: 20 36 38 3A 52 45 54 55 52 4E 0D 0A 35 36 20 72 68:RETURN..56 r 0000F0: 61 3D 31 3A 78 78 3D 32 3A 79 79 3D 33 3A 47 4F a=1:xx=2:yy=3:GO 000100: 53 00 89 55 42 20 36 38 3A 52 45 54 55 52 4E 0D S..UB 68:RETURN. 000110: 0A 35 37 20 72 61 3D 31 2D 28 41 42 53 28 62 66 .57 ra=1-(ABS(bf 000120: 29 3D 32 29 2A 32 0D 0A 35 38 20 49 46 20 41 53 )=2)*2..58 IF AS 000130: 43 28 4C 45 46 54 24 28 4D 49 44 24 28 68 24 28 C(LEFT$(MID$(h$( 000140: 31 29 2C 31 32 29 2C 31 29 29 3E 41 53 43 28 4C 1),12),1))>ASC(L 000150: 45 46 54 24 28 4D 49 44 24 28 68 24 28 31 29 2C EFT$(MID$(h$(1), 000160: 31 32 29 2C 31 29 29 20 54 48 45 4E 20 6A 24 28 12),1)) THEN j$( 000170: 72 61 29 3D 4C 45 46 54 24 28 68 24 28 31 29 2C ra)=LEFT$(h$(1), 000180: 39 29 3A 47 4F 54 4F 20 36 30 0D 0A 35 39 20 6A 9):GOTO 60..59 j 000190: 24 28 72 61 29 3D 4C 45 46 54 24 28 4D 49 44 24 $(ra)=LEFT$(MID$ 0001A0: 28 68 24 28 31 29 2C 31 37 29 2C 39 29 0D 0A 36 (h$(1),17),9)..6 0001B0: 30 20 47 4F 53 55 42 20 36 31 3A 52 45 54 55 52 0 GOSUB 61:RETUR 0001C0: 4E 0D 0A 36 31 20 72 61 3D 31 2B 49 4E 54 28 52 N..61 ra=1+INT(R 0001D0: 4E 44 2A 28 36 30 2D 41 42 53 28 62 66 3D 31 29 ND*(60-ABS(bf=1) 0001E0: 2A 33 31 29 29 3A 49 46 20 61 24 28 72 61 29 3D *31)):IF a$(ra)= 0001F0: 6A 24 28 31 2B 28 41 42 53 28 62 66 3D 32 29 2A j$(1+(ABS(bf=2)* 000200: 32 29 29 B0 BC 20 4F 52 20 61 24 28 72 61 29 3D 2)).. OR a$(ra)= 000210: 6A 24 28 32 2B 28 41 42 53 28 62 66 3D 32 29 2A j$(2+(ABS(bf=2)* 000220: 32 29 29 20 54 48 45 4E 20 36 31 0D 0A 36 32 20 2)) THEN 61..62 000230: 72 62 3D 32 2D 28 41 42 53 28 62 66 29 3D 32 29 rb=2-(ABS(bf)=2) 000240: 2A 32 3A 6A 24 28 72 62 29 3D 61 24 28 72 61 29 *2:j$(rb)=a$(ra) 000250: 3A 52 45 54 55 52 4E 0D 0A 36 33 20 47 4F 54 4F :RETURN..63 GOTO 000260: 20 34 30 39 0D 0A 36 35 20 49 46 20 6A 24 28 31 409..65 IF j$(1 000270: 29 3D 79 24 28 31 29 20 54 48 45 4E 20 6A 24 28 )=y$(1) THEN j$( 000280: 31 29 3D 61 24 28 32 29 3A 52 45 54 55 52 4E 0D 1)=a$(2):RETURN. 000290: 0A 36 36 20 49 46 20 6A 24 28 32 29 3D 79 24 28 .66 IF j$(2)=y$( 0002A0: 31 29 20 54 48 45 4E 20 6A 24 28 32 29 3D 61 24 1) THEN j$(2)=a$ 0002B0: 28 32 29 0D 0A 36 37 20 52 45 54 55 52 4E 0D 0A (2)..67 RETURN.. 0002C0: 36 38 20 72 62 3D 30 3A 46 4F 52 20 69 3D 78 78 68 rb=0:FOR i=xx 0002D0: 20 54 4F 20 79 79 3A 49 46 20 41 53 43 28 4C 45 TO yy:IF ASC(LE 0002E0: 46 54 24 28 4D 49 44 24 28 68 24 28 69 29 2C 31 FT$(MID$(h$(i),1 0002F0: 32 29 2C 31 29 29 3E 41 53 43 28 4C 45 46 54 24 2),1))>ASC(LEFT$ 000300: 28 4D 49 44 24 1F 33 28 68 24 28 69 29 2C 31 35 (MID$.3(h$(i),15 000310: 29 2C 31 29 29 20 54 48 45 4E 20 72 24 3D 4C 45 ),1)) THEN r$=LE 000320: 46 54 24 28 68 24 28 69 29 2C 39 29 3A 47 4F 53 FT$(h$(i),9):GOS 000330: 55 42 20 37 31 0D 0A 36 39 20 49 46 20 41 53 43 UB 71..69 IF ASC 000340: 28 4C 45 46 54 24 28 4D 49 44 24 28 68 24 28 69 (LEFT$(MID$(h$(i 000350: 29 2C 31 32 29 2C 31 29 29 3C 41 53 43 28 4C 45 ),12),1))<ASC(LE 000360: 46 54 24 28 4D 49 44 24 28 68 24 28 69 29 2C 31 FT$(MID$(h$(i),1 000370: 35 29 2C 31 29 29 20 54 48 45 4E 20 72 24 3D 4C 5),1)) THEN r$=L 000380: 45 46 54 24 28 4D 49 44 24 28 68 24 28 69 29 2C EFT$(MID$(h$(i), 000390: 31 37 29 2C 39 29 3A 47 4F 53 55 42 20 37 31 0D 17),9):GOSUB 71. 0003A0: 0A 37 30 20 4E 45 58 54 3A 52 45 54 55 52 4E 0D .70 NEXT:RETURN. 0003B0: 0A 37 31 20 49 46 20 72 62 3D 30 20 54 48 45 4E .71 IF rb=0 THEN 0003C0: 20 68 24 28 72 61 29 3D 72 24 2B 4D 49 44 24 28 h$(ra)=r$+MID$( 0003D0: 68 24 28 72 61 29 2C 31 30 29 3A 72 62 3D 31 3A h$(ra),10):rb=1: 0003E0: 52 45 54 55 52 4E 0D 0A 37 32 20 68 24 28 72 61 RETURN..72 h$(ra 0003F0: 29 3D 4C 45 46 54 24 28 68 24 28 72 61 29 2C 31 )=LEFT$(h$(ra),1 000400: 34 29 2B 72 24 2B 4D 7A A2 49 44 24 28 68 24 28 4)+r$+Mz.ID$(h$( 000410: 72 61 29 2C 32 34 29 3A 72 62 3D 30 3A 72 61 3D ra),24):rb=0:ra= 000420: 72 61 2B 31 3A 52 45 54 55 52 4E 0D 0A 37 33 20 ra+1:RETURN..73 000430: 43 4C 53 3A 50 45 4E 20 31 3A 52 41 4E 44 4F 4D CLS:PEN 1:RANDOM 000440: 49 5A 45 20 54 49 4D 45 3A 47 4F 53 55 42 20 36 IZE TIME:GOSUB 6 000450: 35 3A 47 4F 53 55 42 20 33 37 33 3A 47 4F 53 55 5:GOSUB 373:GOSU 000460: 42 20 33 30 35 3A 47 4F 53 55 42 20 32 38 36 3A B 305:GOSUB 286: 000470: 47 4F 54 4F 20 31 30 38 0D 0A 37 34 20 43 4C 53 GOTO 108..74 CLS 000480: 3A 4C 4F 43 41 54 45 20 36 2C 31 3A 50 45 4E 20 :LOCATE 6,1:PEN 000490: 32 3A 50 52 49 4E 54 22 50 4C 41 59 45 52 20 20 2:PRINT"PLAYER 0004A0: 20 22 3B 22 47 4F 41 4C 53 20 22 3B 22 43 41 50 ";"GOALS ";"CAP 0004B0: 53 20 22 3B 22 49 4E 4A 55 52 49 45 53 22 3A 72 S ";"INJURIES":r 0004C0: 61 3D 31 0D 0A 37 35 20 72 62 3D 32 3A 46 4F 52 a=1..75 rb=2:FOR 0004D0: 20 69 3D 72 61 20 54 4F 20 72 61 2B 31 39 3A 47 i=ra TO ra+19:G 0004E0: 4F 53 55 42 20 32 31 32 3A 4C 4F 43 41 54 45 20 OSUB 212:LOCATE 0004F0: 31 2C 72 62 3A 50 45 4E 20 31 3A 50 52 49 4E 54 1,rb:PEN 1:PRINT 000500: 22 20 20 20 20 20 20 20 20 A5 C1 20 20 20 20 20 " .. 000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000520: 20 20 20 20 20 20 20 20 20 20 22 3A 4C 4F 43 41 ":LOCA 000530: 54 45 20 31 2C 72 62 3A 50 52 49 4E 54 20 69 3B TE 1,rb:PRINT i; 000540: 7A 24 22 20 22 3B 62 24 28 69 29 3A 4C 4F 43 41 z$" ";b$(i):LOCA 000550: 54 45 20 31 35 2C 72 62 3A 49 46 20 65 28 69 29 TE 15,rb:IF e(i) 000560: 3D 31 20 54 48 45 4E 20 50 45 4E 20 32 3A 50 52 =1 THEN PEN 2:PR 000570: 49 4E 54 20 6F 28 69 29 20 45 4C 53 45 20 50 52 INT o(i) ELSE PR 000580: 49 4E 54 20 6F 28 69 29 0D 0A 37 36 20 50 45 4E INT o(i)..76 PEN 000590: 20 31 3A 4C 4F 43 41 54 45 20 32 30 2C 72 62 3A 1:LOCATE 20,rb: 0005A0: 50 52 49 4E 54 20 63 28 69 29 3A 49 46 20 70 28 PRINT c(i):IF p( 0005B0: 69 29 3E 30 20 54 48 45 4E 20 4C 4F 43 41 54 45 i)>0 THEN LOCATE 0005C0: 20 32 35 2C 72 62 3A 50 52 49 4E 54 20 70 28 69 25,rb:PRINT p(i 0005D0: 29 3B 22 20 44 41 59 22 2B 43 48 52 24 28 33 32 );" DAY"+CHR$(32 0005E0: 2D 28 70 28 69 29 3E 31 29 2A 35 31 29 3A 47 4F -(p(i)>1)*51):GO 0005F0: 54 4F 20 37 38 0D 0A 37 37 20 49 46 20 61 28 69 TO 78..77 IF a(i 000600: 29 3D 30 20 54 48 45 4E 20 33 36 24 01 38 20 45 )=0 THEN 36$.8 E 000610: 4C 53 45 20 49 46 20 67 28 69 29 3C 30 20 54 48 LSE IF g(i)<0 TH 000620: 45 4E 20 33 36 39 0D 0A 37 38 20 72 62 3D 72 62 EN 369..78 rb=rb 000630: 2B 31 3A 4E 45 58 54 0D 0A 37 39 20 47 4F 53 55 +1:NEXT..79 GOSU 000640: 42 20 33 37 36 3A 4C 4F 43 41 54 45 20 31 31 2C B 376:LOCATE 11, 000650: 32 33 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 43 23:PEN 2:PRINT"C 000660: 2D 43 4F 4E 54 49 4E 55 45 20 4D 2D 4D 45 4E 55 -CONTINUE M-MENU 000670: 22 3A 50 45 4E 20 31 0D 0A 38 30 20 71 24 3D 49 ":PEN 1..80 q$=I 000680: 4E 4B 45 59 24 3A 49 46 20 71 24 3D 22 22 20 54 NKEY$:IF q$="" T 000690: 48 45 4E 20 37 39 20 45 4C 53 45 20 71 24 3D 55 HEN 79 ELSE q$=U 0006A0: 50 50 45 52 24 28 71 24 29 3A 49 46 20 71 24 3D PPER$(q$):IF q$= 0006B0: 22 43 22 20 54 48 45 4E 20 38 31 20 45 4C 53 45 "C" THEN 81 ELSE 0006C0: 20 37 39 0D 0A 38 31 20 72 61 3D 72 61 2D 28 72 79..81 ra=ra-(r 0006D0: 61 3D 31 29 2A 32 30 2B 28 72 61 3D 32 31 29 2A a=1)*20+(ra=21)* 0006E0: 32 30 3A 47 4F 54 4F 20 37 35 0D 0A 38 32 20 46 20:GOTO 75..82 F 0006F0: 4F 52 20 69 3D 31 20 54 4F 20 34 2D 31 3A 46 4F OR i=1 TO 4-1:FO 000700: 52 20 78 3D 69 2B 31 20 54 4F 20 34 0D 8D 67 0A R x=i+1 TO 4..g. 000710: 38 33 20 49 46 20 71 28 32 2C 69 29 2A 32 2B 71 83 IF q(2,i)*2+q 000720: 28 33 2C 69 29 3E 71 28 32 2C 78 29 2A 32 2B 71 (3,i)>q(2,x)*2+q 000730: 28 33 2C 78 29 20 54 48 45 4E 20 38 38 0D 0A 38 (3,x) THEN 88..8 000740: 34 20 49 46 20 71 28 32 2C 69 29 2A 32 2B 71 28 4 IF q(2,i)*2+q( 000750: 33 2C 69 29 3D 71 28 32 2C 78 29 2A 32 2B 71 28 3,i)=q(2,x)*2+q( 000760: 33 2C 78 29 20 41 4E 44 20 71 28 34 2C 69 29 2D 3,x) AND q(4,i)- 000770: 71 28 35 2C 69 29 3E 71 28 34 2C 78 29 2D 71 28 q(5,i)>q(4,x)-q( 000780: 35 2C 78 29 20 54 48 45 4E 20 38 38 0D 0A 38 35 5,x) THEN 88..85 000790: 20 49 46 20 71 28 32 2C 69 29 2A 32 2B 71 28 33 IF q(2,i)*2+q(3 0007A0: 2C 69 29 3D 71 28 32 2C 78 29 2A 32 2B 71 28 33 ,i)=q(2,x)*2+q(3 0007B0: 2C 78 29 20 41 4E 44 20 71 28 34 2C 69 29 2D 71 ,x) AND q(4,i)-q 0007C0: 28 35 2C 69 29 3D 71 28 34 2C 78 29 2D 71 28 35 (5,i)=q(4,x)-q(5 0007D0: 2C 78 29 20 41 4E 44 20 71 28 34 2C 69 29 3E 71 ,x) AND q(4,i)>q 0007E0: 28 34 2C 78 29 20 54 48 45 4E 20 38 38 0D 0A 38 (4,x) THEN 88..8 0007F0: 36 20 65 32 3D 71 28 32 2C 69 29 3A 65 33 3D 71 6 e2=q(2,i):e3=q 000800: 28 33 2C 69 29 3A 65 34 3D 71 28 34 2C 69 29 73 (3,i):e4=q(4,i)s 000810: 13 FF FF FF FF .....
previousnext* BLOCK 0017 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 4
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1181
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 621
Length of ONE bit pulse : 1242
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 306

Duration : 2157 ms
Pause After this block : 19 ms
Duration block + Pause : 2176 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 04 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 57 D5 FF FF FF FF .W.....
previousnext* BLOCK 0018 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1182
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 590
Length of ONE bit pulse : 1181
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 129 932

Duration : 9096 ms
Pause After this block : 2893 ms
Duration block + Pause : 11989 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 3A 65 35 3D 71 28 35 2C 69 29 3A 7A 24 3D 67 .:e5=q(5,i):z$=g 000010: 24 28 69 29 3A 71 28 32 2C 69 29 3D 71 28 32 2C $(i):q(2,i)=q(2, 000020: 78 29 3A 71 28 33 2C 69 29 3D 71 28 33 2C 78 29 x):q(3,i)=q(3,x) 000030: 3A 71 28 34 2C 69 29 3D 71 28 34 2C 78 29 3A 71 :q(4,i)=q(4,x):q 000040: 28 35 2C 69 29 3D 71 28 35 2C 78 29 3A 67 24 28 (5,i)=q(5,x):g$( 000050: 69 29 3D 67 24 28 78 29 3A 71 28 32 2C 78 29 3D i)=g$(x):q(2,x)= 000060: 65 32 0D 0A 38 37 20 71 28 33 2C 78 29 3D 65 33 e2..87 q(3,x)=e3 000070: 3A 71 28 34 2C 78 29 3D 65 34 3A 71 28 35 2C 78 :q(4,x)=e4:q(5,x 000080: 29 3D 65 35 3A 67 24 28 78 29 3D 7A 24 0D 0A 38 )=e5:g$(x)=z$..8 000090: 38 20 4E 45 58 54 20 78 0D 0A 38 39 20 4E 45 58 8 NEXT x..89 NEX 0000A0: 54 20 69 3A 52 45 54 55 52 4E 0D 0A 39 30 20 46 T i:RETURN..90 F 0000B0: 4F 52 20 69 3D 31 20 54 4F 20 34 3A 49 46 20 67 OR i=1 TO 4:IF g 0000C0: 24 28 69 29 3D 72 24 20 54 48 45 4E 20 47 4F 53 $(i)=r$ THEN GOS 0000D0: 55 42 20 39 34 3A 49 3D 35 0D 0A 39 31 20 4E 45 UB 94:I=5..91 NE 0000E0: 58 54 0D 0A 39 32 20 47 4F 53 55 42 20 39 35 3A XT..92 GOSUB 95: 0000F0: 46 4F 52 20 69 3D 31 20 54 4F 20 34 3A 49 46 20 FOR i=1 TO 4:IF 000100: 67 D0 C3 24 28 69 29 3D 73 24 20 54 48 45 4E 20 g..$(i)=s$ THEN 000110: 47 4F 53 55 42 20 39 34 3A 47 4F 53 55 42 20 39 GOSUB 94:GOSUB 9 000120: 35 3A 49 3D 35 0D 0A 39 33 20 4E 45 58 54 3A 52 5:I=5..93 NEXT:R 000130: 45 54 55 52 4E 0D 0A 39 34 20 71 28 31 2C 69 29 ETURN..94 q(1,i) 000140: 3D 71 28 31 2C 69 29 2B 31 3A 71 28 32 2C 69 29 =q(1,i)+1:q(2,i) 000150: 3D 71 28 32 2C 69 29 2D 28 72 3E 73 29 3A 71 28 =q(2,i)-(r>s):q( 000160: 33 2C 69 29 3D 71 28 33 2C 69 29 2D 28 72 3D 73 3,i)=q(3,i)-(r=s 000170: 29 3A 71 28 34 2C 69 29 3D 71 28 34 2C 69 29 2B ):q(4,i)=q(4,i)+ 000180: 72 3A 71 28 35 2C 69 29 3D 71 28 35 2C 69 29 2B r:q(5,i)=q(5,i)+ 000190: 73 3A 52 45 54 55 52 4E 0D 0A 39 35 20 65 74 3D s:RETURN..95 et= 0001A0: 72 3A 72 3D 73 3A 73 3D 65 74 3A 52 45 54 55 52 r:r=s:s=et:RETUR 0001B0: 4E 0D 0A 39 36 20 49 46 20 62 67 3D 30 20 54 48 N..96 IF bg=0 TH 0001C0: 45 4E 20 33 31 38 0D 0A 39 37 20 49 46 20 67 24 EN 318..97 IF g$ 0001D0: 28 31 29 3D 22 22 20 54 48 45 4E 20 31 31 30 0D (1)="" THEN 110. 0001E0: 0A 39 38 20 43 4C 53 3A 49 46 20 62 65 3D 32 20 .98 CLS:IF be=2 0001F0: 54 48 45 4E 20 31 30 30 0D 0A 39 39 20 47 4F 53 THEN 100..99 GOS 000200: 55 42 20 97 DF 33 36 31 3A 47 4F 53 55 42 20 33 UB ..361:GOSUB 3 000210: 36 36 3A 4C 4F 43 41 54 45 20 35 2C 31 3A 50 45 66:LOCATE 5,1:PE 000220: 4E 20 32 3A 50 52 49 4E 54 20 6C 24 3B 22 53 22 N 2:PRINT l$;"S" 000230: 3A 50 45 4E 20 31 3A 47 4F 54 4F 20 31 30 31 0D :PEN 1:GOTO 101. 000240: 0A 31 30 30 20 47 4F 53 55 42 20 33 36 30 3A 47 .100 GOSUB 360:G 000250: 4F 53 55 42 20 33 36 36 3A 4C 4F 43 41 54 45 20 OSUB 366:LOCATE 000260: 31 31 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 11,1:PEN 2:PRINT 000270: 20 6C 24 3B 22 53 22 3A 50 45 4E 20 31 0D 0A 31 l$;"S":PEN 1..1 000280: 30 31 20 4C 4F 43 41 54 45 20 31 34 2C 33 3A 50 01 LOCATE 14,3:P 000290: 52 49 4E 54 22 50 20 20 57 20 20 4C 20 20 44 20 RINT"P W L D 0002A0: 20 46 20 20 41 20 20 47 20 20 50 54 22 3A 46 4F F A G PT":FO 0002B0: 52 20 69 3D 31 20 54 4F 20 34 3A 4C 4F 43 41 54 R i=1 TO 4:LOCAT 0002C0: 45 20 31 2C 69 2B 34 3A 50 52 49 4E 54 20 69 3B E 1,i+4:PRINT i; 0002D0: 67 24 28 69 29 3B 49 4E 54 20 28 71 28 31 2C 69 g$(i);INT (q(1,i 0002E0: 29 29 3A 4C 4F 43 41 54 45 20 31 36 2C 69 2B 34 )):LOCATE 16,i+4 0002F0: 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 28 32 2C :PRINT INT (q(2, 000300: 69 29 29 3A 4C 3B 83 4F 43 41 54 45 20 31 39 2C i)):L;.OCATE 19, 000310: 69 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 i+4:PRINT INT (q 000320: 28 31 2C 69 29 2D 71 28 32 2C 69 29 2D 71 28 33 (1,i)-q(2,i)-q(3 000330: 2C 69 29 29 3A 4C 4F 43 41 54 45 20 32 32 2C 69 ,i)):LOCATE 22,i 000340: 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 28 +4:PRINT INT (q( 000350: 33 2C 69 29 29 3A 4C 4F 43 41 54 45 20 32 35 2C 3,i)):LOCATE 25, 000360: 69 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 i+4:PRINT INT (q 000370: 28 34 2C 69 29 29 0D 0A 31 30 32 20 4C 4F 43 41 (4,i))..102 LOCA 000380: 54 45 20 32 38 2C 69 2B 34 3A 50 52 49 4E 54 20 TE 28,i+4:PRINT 000390: 49 4E 54 20 28 71 28 35 2C 69 29 29 3A 4C 4F 43 INT (q(5,i)):LOC 0003A0: 41 54 45 20 33 31 2C 69 2B 34 3A 50 52 49 4E 54 ATE 31,i+4:PRINT 0003B0: 20 49 4E 54 20 28 71 28 34 2C 69 29 2D 71 28 35 INT (q(4,i)-q(5 0003C0: 2C 69 29 29 3A 4C 4F 43 41 54 45 20 33 34 2C 69 ,i)):LOCATE 34,i 0003D0: 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 28 +4:PRINT INT (q( 0003E0: 32 2C 69 29 2A 32 2B 71 28 33 2C 69 29 29 3A 4E 2,i)*2+q(3,i)):N 0003F0: 45 58 54 0D 0A 31 30 33 20 46 4F 52 20 69 3D 31 EXT..103 FOR i=1 000400: 20 54 4F 20 31 32 3A 9F 99 4C 4F 43 41 54 45 20 TO 12:..LOCATE 000410: 35 2C 39 2B 69 3A 50 52 49 4E 54 20 68 24 28 69 5,9+i:PRINT h$(i 000420: 29 3A 4E 45 58 54 0D 0A 31 30 34 20 47 4F 53 55 ):NEXT..104 GOSU 000430: 42 20 33 37 35 3A 47 4F 54 4F 20 31 30 34 0D 0A B 375:GOTO 104.. 000440: 31 30 35 20 72 61 3D 30 3A 46 4F 52 20 6A 3D 31 105 ra=0:FOR j=1 000450: 32 20 54 4F 20 31 36 3A 72 61 3D 72 61 2D 28 70 2 TO 16:ra=ra-(p 000460: 28 6A 29 3E 30 29 3A 4E 45 58 54 3A 62 6B 3D 30 (j)>0):NEXT:bk=0 000470: 2D 28 72 61 3D 34 29 2D 28 72 61 3D 35 29 2A 32 -(ra=4)-(ra=5)*2 000480: 3A 49 46 20 62 6B 3C 32 20 54 48 45 4E 20 31 30 :IF bk<2 THEN 10 000490: 36 20 45 4C 53 45 20 31 30 37 0D 0A 31 30 36 20 6 ELSE 107..106 0004A0: 4C 4F 43 41 54 45 20 33 2C 31 39 3A 50 45 4E 20 LOCATE 3,19:PEN 0004B0: 32 3A 50 52 49 4E 54 22 53 2D 53 55 42 53 54 49 2:PRINT"S-SUBSTI 0004C0: 54 55 54 49 4F 4E 22 3A 50 45 4E 20 31 0D 0A 31 TUTION":PEN 1..1 0004D0: 30 37 20 52 45 54 55 52 4E 0D 0A 31 30 38 20 7A 07 RETURN..108 z 0004E0: 7A 3D 30 3A 43 4C 53 3A 50 45 4E 20 31 3A 4C 4F z=0:CLS:PEN 1:LO 0004F0: 43 41 54 45 20 31 34 2C 35 3A 50 52 49 4E 54 22 CATE 14,5:PRINT" 000500: 50 2D 50 4C 41 59 22 3B 53 52 E3 50 41 43 45 24 P-PLAY";SR.PACE$ 000510: 28 35 33 29 3B 22 4E 2D 4E 45 58 54 20 47 41 4D (53);"N-NEXT GAM 000520: 45 22 53 50 41 43 45 24 28 35 33 29 3B 22 53 2D E"SPACE$(53);"S- 000530: 53 51 55 41 44 22 53 50 41 43 45 24 28 35 33 29 SQUAD"SPACE$(53) 000540: 3B 22 47 2D 47 52 4F 55 50 2F 46 49 4E 41 4C 53 ;"G-GROUP/FINALS 000550: 22 53 50 41 43 45 24 28 35 33 29 3B 22 46 2D 46 "SPACE$(53);"F-F 000560: 49 58 54 55 52 45 53 22 53 50 41 43 45 24 28 35 IXTURES"SPACE$(5 000570: 33 29 3B 22 49 2D 49 4E 4A 55 52 49 45 53 2F 47 3);"I-INJURIES/G 000580: 4F 41 4C 53 22 53 50 41 43 45 24 28 35 33 29 3B OALS"SPACE$(53); 000590: 22 31 2D 53 41 56 45 22 0D 0A 31 30 39 20 50 45 "1-SAVE"..109 PE 0005A0: 4E 20 30 3A 50 52 49 4E 54 20 46 52 45 28 22 22 N 0:PRINT FRE("" 0005B0: 29 3A 50 45 4E 20 31 3A 47 4F 53 55 42 20 31 31 ):PEN 1:GOSUB 11 0005C0: 39 0D 0A 31 31 30 20 71 24 3D 49 4E 4B 45 59 24 9..110 q$=INKEY$ 0005D0: 3A 49 46 20 71 24 3D 22 22 20 54 48 45 4E 20 31 :IF q$="" THEN 1 0005E0: 31 33 20 45 4C 53 45 20 71 24 3D 55 50 50 45 52 13 ELSE q$=UPPER 0005F0: 24 28 71 24 29 0D 0A 31 31 31 20 49 46 20 71 24 $(q$)..111 IF q$ 000600: 3D 22 31 22 20 54 48 45 4E 20 33 95 FC 38 33 20 ="1" THEN 3..83 000610: 45 4C 53 45 20 49 46 20 71 24 3D 22 50 22 20 54 ELSE IF q$="P" T 000620: 48 45 4E 20 31 32 31 20 45 4C 53 45 20 49 46 20 HEN 121 ELSE IF 000630: 71 24 3D 22 53 22 20 54 48 45 4E 20 31 37 33 20 q$="S" THEN 173 000640: 45 4C 53 45 20 49 46 20 71 24 3D 22 46 22 20 41 ELSE IF q$="F" A 000650: 4E 44 20 61 63 3C 33 31 20 54 48 45 4E 20 31 39 ND ac<31 THEN 19 000660: 20 45 4C 53 45 20 49 46 20 71 24 3D 22 49 22 20 ELSE IF q$="I" 000670: 54 48 45 4E 20 37 34 20 45 4C 53 45 20 49 46 20 THEN 74 ELSE IF 000680: 71 24 3D 22 47 22 20 54 48 45 4E 20 39 36 20 45 q$="G" THEN 96 E 000690: 4C 53 45 20 31 31 32 0D 0A 31 31 32 20 49 46 20 LSE 112..112 IF 0006A0: 71 24 3D 22 4E 22 20 41 4E 44 20 4C 45 46 54 24 q$="N" AND LEFT$ 0006B0: 28 64 24 28 61 62 29 2C 32 29 3D 22 54 4F 22 20 (d$(ab),2)="TO" 0006C0: 41 4E 44 20 7A 7A 3D 31 20 4F 52 20 71 24 3D 22 AND zz=1 OR q$=" 0006D0: 4E 22 20 41 4E 44 20 4C 45 46 54 24 28 64 24 28 N" AND LEFT$(d$( 0006E0: 61 62 29 2C 31 29 3C 3E 22 20 22 20 41 4E 44 20 ab),1)<>" " AND 0006F0: 4C 45 46 54 24 28 64 24 28 61 62 29 2C 32 29 3C LEFT$(d$(ab),2)< 000700: 3E 22 54 4F 22 20 41 4E 44 20 68 28 61 B9 A0 62 >"TO" AND h(a..b 000710: 29 3D 61 63 20 54 48 45 4E 20 32 0D 0A 31 31 33 )=ac THEN 2..113 000720: 20 49 46 20 61 62 3D 31 32 20 41 4E 44 20 61 63 IF ab=12 AND ac 000730: 3D 33 31 20 41 4E 44 20 68 28 31 32 29 3C 3E 33 =31 AND h(12)<>3 000740: 31 20 54 48 45 4E 20 32 31 37 20 45 4C 53 45 20 1 THEN 217 ELSE 000750: 49 46 20 61 62 3D 36 20 41 4E 44 20 61 63 3D 62 IF ab=6 AND ac=b 000760: 68 20 41 4E 44 20 62 66 3E 30 20 54 48 45 4E 20 h AND bf>0 THEN 000770: 31 31 30 20 45 4C 53 45 20 49 46 20 61 63 3D 31 110 ELSE IF ac=1 000780: 20 41 4E 44 20 61 62 3D 36 20 41 4E 44 20 62 67 AND ab=6 AND bg 000790: 3D 30 20 41 4E 44 20 62 66 3E 30 20 4F 52 20 61 =0 AND bf>0 OR a 0007A0: 63 3D 31 20 41 4E 44 20 78 63 3D 31 20 54 48 45 c=1 AND xc=1 THE 0007B0: 4E 20 78 63 3D 30 3A 47 4F 53 55 42 20 32 38 36 N xc=0:GOSUB 286 0007C0: 20 45 4C 53 45 20 49 46 20 61 62 3D 36 20 41 4E ELSE IF ab=6 AN 0007D0: 44 20 61 63 3D 62 68 20 41 4E 44 20 62 66 3C 30 D ac=bh AND bf<0 0007E0: 20 54 48 45 4E 20 43 4C 53 3A 47 4F 53 55 42 20 THEN CLS:GOSUB 0007F0: 34 36 3A 47 4F 53 55 42 20 35 32 3A 61 63 3D 61 46:GOSUB 52:ac=a 000800: 63 2B 31 3A 47 4F 54 4F 20 39 36 0D 0A 31 31 21 c+1:GOTO 96..11! 000810: B1 FF FF FF FF .....
previousnext* BLOCK 0019 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 5
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1181
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 620
Length of ONE bit pulse : 1241
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 405

Duration : 2156 ms
Pause After this block : 20 ms
Duration block + Pause : 2176 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 05 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 B0 DE FF FF FF FF .......
previousnext* BLOCK 0020 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1181
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 588
Length of ONE bit pulse : 1178
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 132 858

Duration : 9122 ms
Pause After this block : 2893 ms
Duration block + Pause : 12015 ms
Duration block + Pause : 00 h 00 m 12 s		000000: 16 34 20 49 46 20 61 62 3D 36 20 41 4E 44 20 61 .4 IF ab=6 AND a 000010: 63 3D 33 31 20 41 4E 44 20 62 66 3D 32 20 41 4E c=31 AND bf=2 AN 000020: 44 20 62 67 3D 30 20 54 48 45 4E 20 43 4C 53 3A D bg=0 THEN CLS: 000030: 47 4F 53 55 42 20 33 31 39 3A 4C 4F 43 41 54 45 GOSUB 319:LOCATE 000040: 20 31 33 2C 32 32 3A 50 45 4E 20 33 3A 50 52 49 13,22:PEN 3:PRI 000050: 4E 54 22 50 4C 45 41 53 45 20 57 41 49 54 22 3A NT"PLEASE WAIT": 000060: 50 45 4E 20 31 3A 47 4F 53 55 42 20 33 33 38 3A PEN 1:GOSUB 338: 000070: 47 4F 53 55 42 20 31 31 38 3A 47 4F 54 4F 20 31 GOSUB 118:GOTO 1 000080: 30 38 0D 0A 31 31 35 20 49 46 20 4C 45 46 54 24 08..115 IF LEFT$ 000090: 28 64 24 28 61 62 29 2C 32 29 3D 22 54 4F 22 20 (d$(ab),2)="TO" 0000A0: 41 4E 44 20 7A 7A 3D 30 20 54 48 45 4E 20 47 4F AND zz=0 THEN GO 0000B0: 53 55 42 20 33 37 39 3A 47 4F 54 4F 20 31 31 37 SUB 379:GOTO 117 0000C0: 0D 0A 31 31 36 20 49 46 20 68 28 61 62 29 3D 61 ..116 IF h(ab)=a 0000D0: 63 20 41 4E 44 20 64 24 28 61 62 29 3C 3E 22 22 c AND d$(ab)<>"" 0000E0: 20 54 48 45 4E 20 31 31 30 0D 0A 31 31 37 20 47 THEN 110..117 G 0000F0: 4F 53 55 42 20 31 31 38 3A 46 4F 52 20 69 3D 31 OSUB 118:FOR i=1 000100: 32 EE 3F 20 54 4F 20 34 30 3A 70 28 69 29 3D 70 2.? TO 40:p(i)=p 000110: 28 69 29 2B 28 70 28 69 29 3E 30 29 3A 4E 45 58 (i)+(p(i)>0):NEX 000120: 54 3A 47 4F 53 55 42 20 31 31 39 3A 47 4F 54 4F T:GOSUB 119:GOTO 000130: 20 31 31 30 0D 0A 31 31 38 20 61 63 3D 61 63 2B 110..118 ac=ac+ 000140: 31 3A 49 46 20 61 63 3D 33 32 20 41 4E 44 20 61 1:IF ac=32 AND a 000150: 62 3C 3E 31 32 20 54 48 45 4E 20 61 62 3D 61 62 b<>12 THEN ab=ab 000160: 2B 31 3A 61 63 3D 31 3A 47 4F 53 55 42 20 34 30 +1:ac=1:GOSUB 40 000170: 38 3A 52 45 54 55 52 4E 20 45 4C 53 45 20 49 46 8:RETURN ELSE IF 000180: 20 61 62 3D 31 32 20 41 4E 44 20 61 63 3D 33 32 ab=12 AND ac=32 000190: 20 54 48 45 4E 20 61 63 3D 31 3A 61 62 3D 31 3A THEN ac=1:ab=1: 0001A0: 61 61 3D 61 61 2B 31 3A 47 4F 53 55 42 20 36 35 aa=aa+1:GOSUB 65 0001B0: 3A 46 4F 52 20 69 3D 31 20 54 4F 20 35 3A 46 4F :FOR i=1 TO 5:FO 0001C0: 52 20 7A 3D 31 20 54 4F 20 35 3A 71 28 69 2C 7A R z=1 TO 5:q(i,z 0001D0: 29 3D 30 3A 4E 45 58 54 20 7A 2C 69 3A 52 45 54 )=0:NEXT z,i:RET 0001E0: 55 52 4E 20 45 4C 53 45 20 52 45 54 55 52 4E 0D URN ELSE RETURN. 0001F0: 0A 31 31 39 20 4C 4F 43 41 54 45 20 31 31 2C 32 .119 LOCATE 11,2 000200: 31 3A 50 74 12 52 49 4E 54 22 53 45 41 53 4F 4E 1:Pt.RINT"SEASON 000210: 20 22 3B 61 61 3A 4C 4F 43 41 54 45 20 32 32 2C ";aa:LOCATE 22, 000220: 32 31 3A 50 52 49 4E 54 20 65 24 28 61 62 29 3A 21:PRINT e$(ab): 000230: 4C 4F 43 41 54 45 20 32 36 2C 32 31 3A 50 52 49 LOCATE 26,21:PRI 000240: 4E 54 20 61 63 3A 49 46 20 61 63 3D 31 20 54 48 NT ac:IF ac=1 TH 000250: 45 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 20 46 EN RETURN ELSE F 000260: 4F 52 20 78 3D 31 20 54 4F 20 35 30 30 3A 4E 45 OR x=1 TO 500:NE 000270: 58 54 3A 52 45 54 55 52 4E 0D 0A 31 32 30 20 4C XT:RETURN..120 L 000280: 4F 43 41 54 45 20 32 2C 36 3A 50 52 49 4E 54 22 OCATE 2,6:PRINT" 000290: 52 41 4E 4B 45 44 20 22 3B 41 42 53 28 6B 28 62 RANKED ";ABS(k(b 0002A0: 69 29 29 53 50 41 43 45 24 28 31 36 29 3B 22 52 i))SPACE$(16);"R 0002B0: 41 4E 4B 45 44 20 22 3B 41 42 53 28 4B 28 47 34 ANKED ";ABS(K(G4 0002C0: 29 29 3A 49 46 20 61 6D 3D 31 20 54 48 45 4E 20 )):IF am=1 THEN 0002D0: 4C 4F 43 41 54 45 20 31 38 2C 36 3A 50 52 49 4E LOCATE 18,6:PRIN 0002E0: 54 22 48 4F 4D 45 22 3A 52 45 54 55 52 4E 20 45 T"HOME":RETURN E 0002F0: 4C 53 45 20 4C 4F 43 41 54 45 20 31 38 2C 36 3A LSE LOCATE 18,6: 000300: 50 52 49 4E 54 CF C4 22 41 57 41 59 22 3A 52 45 PRINT.."AWAY":RE 000310: 54 55 52 4E 0D 0A 31 32 31 20 70 79 3D 38 3A 70 TURN..121 py=8:p 000320: 7A 3D 38 3A 49 46 20 68 28 61 62 29 3D 61 63 20 z=8:IF h(ab)=ac 000330: 41 4E 44 20 64 24 28 61 62 29 3C 3E 22 22 20 4F AND d$(ab)<>"" O 000340: 52 20 4C 45 46 54 24 28 64 24 28 61 62 29 2C 32 R LEFT$(d$(ab),2 000350: 29 3D 22 54 4F 22 20 41 4E 44 20 7A 7A 3D 31 20 )="TO" AND zz=1 000360: 54 48 45 4E 20 31 32 32 20 45 4C 53 45 20 31 31 THEN 122 ELSE 11 000370: 30 0D 0A 31 32 32 20 52 41 4E 44 4F 4D 49 5A 45 0..122 RANDOMIZE 000380: 20 54 49 4D 45 3A 65 78 3D 30 3A 64 31 3D 30 3A TIME:ex=0:d1=0: 000390: 62 6C 3D 30 3A 62 6B 3D 30 3A 47 4F 53 55 42 20 bl=0:bk=0:GOSUB 0003A0: 33 34 33 3A 47 4F 53 55 42 20 33 30 33 3A 43 4C 343:GOSUB 303:CL 0003B0: 53 0D 0A 31 32 33 20 72 3D 30 3A 73 3D 30 3A 6E S..123 r=0:s=0:n 0003C0: 3D 30 3A 4C 4F 43 41 54 45 20 31 34 2C 32 3A 50 =0:LOCATE 14,2:P 0003D0: 52 49 4E 54 22 54 49 4D 45 20 20 20 20 20 4D 49 RINT"TIME MI 0003E0: 4E 22 3A 4C 4F 43 41 54 45 20 31 32 2C 33 3A 50 N":LOCATE 12,3:P 0003F0: 52 49 4E 54 22 53 45 41 53 4F 4E 20 22 3B 61 61 RINT"SEASON ";aa 000400: 3B 65 24 28 61 62 29 DC 49 3B 22 20 22 3B 61 63 ;e$(ab).I;" ";ac 000410: 3A 4C 4F 43 41 54 45 20 31 39 2C 32 3A 50 52 49 :LOCATE 19,2:PRI 000420: 4E 54 20 6E 3A 4C 4F 43 41 54 45 20 31 2C 38 3A NT n:LOCATE 1,8: 000430: 50 52 49 4E 54 20 72 24 3A 4C 4F 43 41 54 45 20 PRINT r$:LOCATE 000440: 32 31 2C 38 3A 50 52 49 4E 54 20 73 24 3A 47 4F 21,8:PRINT s$:GO 000450: 53 55 42 20 31 32 30 3A 47 4F 53 55 42 20 31 34 SUB 120:GOSUB 14 000460: 39 3A 47 4F 54 4F 20 31 32 35 0D 0A 31 32 34 20 9:GOTO 125..124 000470: 46 4F 52 20 69 3D 31 32 20 54 4F 20 31 36 3A 47 FOR i=12 TO 16:G 000480: 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 45 20 OSUB 211:LOCATE 000490: 31 39 2C 69 2B 35 3A 50 52 49 4E 54 20 69 3B 7A 19,i+5:PRINT i;z 0004A0: 24 22 20 22 3B 62 24 28 69 29 3B 22 20 20 20 20 $" ";b$(i);" 0004B0: 22 3A 4C 4F 43 41 54 45 20 33 33 2C 69 2B 35 3A ":LOCATE 33,i+5: 0004C0: 50 52 49 4E 54 20 49 4E 54 28 61 28 69 29 29 3B PRINT INT(a(i)); 0004D0: 78 24 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A x$:NEXT:RETURN.. 0004E0: 31 32 35 20 47 4F 53 55 42 20 31 30 35 3A 49 46 125 GOSUB 105:IF 0004F0: 20 41 53 43 28 6E 24 29 3C 3E 36 39 20 54 48 45 ASC(n$)<>69 THE 000500: 4E 20 72 61 3D 49 4E 54 28 8B 1A 34 30 2D 4C 45 N ra=INT(..40-LE 000510: 4E 28 6E 24 29 29 2F 32 3A 4C 4F 43 41 54 45 20 N(n$))/2:LOCATE 000520: 72 61 2C 35 3A 50 45 4E 20 32 3A 50 52 49 4E 54 ra,5:PEN 2:PRINT 000530: 20 6E 24 3A 50 45 4E 20 31 3A 47 4F 54 4F 20 31 n$:PEN 1:GOTO 1 000540: 32 37 0D 0A 31 32 36 20 4C 4F 43 41 54 45 20 31 27..126 LOCATE 1 000550: 30 2C 34 3A 50 45 4E 20 32 3A 50 52 49 4E 54 20 0,4:PEN 2:PRINT 000560: 4C 45 46 54 24 28 6E 24 2C 32 32 29 3A 72 61 3D LEFT$(n$,22):ra= 000570: 49 4E 54 28 34 30 2D 49 4E 54 28 4C 45 4E 28 6E INT(40-INT(LEN(n 000580: 24 29 2D 32 32 29 29 2F 32 3A 4C 4F 43 41 54 45 $)-22))/2:LOCATE 000590: 20 72 61 2C 35 3A 50 52 49 4E 54 20 4D 49 44 24 ra,5:PRINT MID$ 0005A0: 28 6E 24 2C 32 33 29 3A 50 45 4E 20 31 0D 0A 31 (n$,23):PEN 1..1 0005B0: 32 37 20 46 4F 52 20 69 3D 31 20 54 4F 20 31 36 27 FOR i=1 TO 16 0005C0: 3A 72 61 3D 31 2B 49 4E 54 28 52 4E 44 2A 31 30 :ra=1+INT(RND*10 0005D0: 29 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 44 2A 33 ):rb=1+INT(RND*3 0005E0: 29 3A 49 46 20 72 61 3E 3D 64 28 69 29 20 54 48 ):IF ra>=d(i) TH 0005F0: 45 4E 20 31 32 38 20 45 4C 53 45 20 47 28 49 29 EN 128 ELSE G(I) 000600: 3D 47 28 49 29 2B 52 42 3A 47 4F EC F2 54 4F 20 =G(I)+RB:GO..TO 000610: 31 32 39 0D 0A 31 32 38 20 67 28 69 29 3D 67 28 129..128 g(i)=g( 000620: 69 29 2D 72 62 3A 49 46 20 67 28 69 29 3C 31 20 i)-rb:IF g(i)<1 000630: 54 48 45 4E 20 67 28 69 29 3D 31 0D 0A 31 32 39 THEN g(i)=1..129 000640: 20 49 46 20 47 28 49 29 3E 41 28 49 29 20 54 48 IF G(I)>A(I) TH 000650: 45 4E 20 47 28 49 29 3D 41 28 49 29 0D 0A 31 33 EN G(I)=A(I)..13 000660: 30 20 4E 45 58 54 20 69 3A 47 4F 53 55 42 20 31 0 NEXT i:GOSUB 1 000670: 39 31 3A 47 4F 53 55 42 20 32 31 30 3A 47 4F 53 91:GOSUB 210:GOS 000680: 55 42 20 31 32 34 3A 47 4F 53 55 42 20 31 33 31 UB 124:GOSUB 131 000690: 3A 47 4F 54 4F 20 31 33 32 0D 0A 31 33 31 20 65 :GOTO 132..131 e 0006A0: 31 3D 49 4E 54 28 61 68 2B 61 67 29 2F 32 3A 65 1=INT(ah+ag)/2:e 0006B0: 31 3D 49 4E 54 28 65 31 2D 28 61 6A 2F 32 29 2B 1=INT(e1-(aj/2)+ 0006C0: 28 61 6D 3C 3E 31 29 29 3A 65 32 3D 49 4E 54 28 (am<>1)):e2=INT( 0006D0: 61 6C 2B 61 6B 29 2F 32 3A 65 32 3D 49 4E 54 28 al+ak)/2:e2=INT( 0006E0: 65 32 2D 28 61 66 2F 32 29 2B 28 61 6D 3D 31 29 e2-(af/2)+(am=1) 0006F0: 29 3A 46 4F 52 20 69 3D 31 20 54 4F 20 65 31 3A ):FOR i=1 TO e1: 000700: 76 28 69 29 3D 31 2B 49 4E 54 28 52 4E E7 BB 44 v(i)=1+INT(RN..D 000710: 2A 28 39 30 2B 28 65 78 3D 31 29 2A 36 30 29 29 *(90+(ex=1)*60)) 000720: 3A 4E 45 58 54 3A 46 4F 52 20 69 3D 31 30 20 54 :NEXT:FOR i=10 T 000730: 4F 20 39 2B 65 32 3A 76 28 69 29 3D 31 2B 49 4E O 9+e2:v(i)=1+IN 000740: 54 28 52 4E 44 2A 28 39 30 2B 28 65 78 3D 31 29 T(RND*(90+(ex=1) 000750: 2A 36 30 29 29 3A 4E 45 58 54 3A 52 45 54 55 52 *60)):NEXT:RETUR 000760: 4E 0D 0A 31 33 32 20 52 41 4E 44 4F 4D 49 5A 45 N..132 RANDOMIZE 000770: 20 54 49 4D 45 3A 63 65 3D 49 4E 54 28 52 4E 44 TIME:ce=INT(RND 000780: 2A 32 29 3A 70 62 3D 31 32 3A 47 4F 53 55 42 20 *2):pb=12:GOSUB 000790: 34 30 32 0D 0A 31 33 33 20 47 4F 53 55 42 20 34 402..133 GOSUB 4 0007A0: 32 32 3A 71 24 3D 49 4E 4B 45 59 24 3A 71 24 3D 22:q$=INKEY$:q$= 0007B0: 55 50 50 45 52 24 28 71 24 29 3A 49 46 20 71 24 UPPER$(q$):IF q$ 0007C0: 3D 22 53 22 20 41 4E 44 20 62 6B 3C 32 20 54 48 ="S" AND bk<2 TH 0007D0: 45 4E 20 31 36 31 20 45 4C 53 45 20 49 46 20 6E EN 161 ELSE IF n 0007E0: 3D 34 35 20 54 48 45 4E 20 47 4F 53 55 42 20 31 =45 THEN GOSUB 1 0007F0: 34 37 3A 70 61 3D 2D 28 63 65 3D 30 29 0D 0A 31 47:pa=-(ce=0)..1 000800: 33 34 20 49 46 20 6E 3D 39 30 2B 28 65 78 3D EA 34 IF n=90+(ex=. 000810: D7 FF FF FF FF .....
previousnext* BLOCK 0021 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 6
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 620
Length of ONE bit pulse : 1241
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 371

Duration : 2154 ms
Pause After this block : 19 ms
Duration block + Pause : 2173 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 06 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 89 E2 FF FF FF FF .......
previousnext* BLOCK 0022 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 590
Length of ONE bit pulse : 1181
Length of PILOT tone : 4085
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 128 222

Duration : 9089 ms
Pause After this block : 2891 ms
Duration block + Pause : 11980 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 31 29 2A 36 30 20 54 48 45 4E 20 47 4F 53 55 .1)*60 THEN GOSU 000010: 42 20 31 34 39 3A 4C 4F 43 41 54 45 20 31 35 2C B 149:LOCATE 15, 000020: 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 46 55 1:PEN 2:PRINT"FU 000030: 4C 4C 20 20 54 49 4D 45 22 3A 50 45 4E 20 31 3A LL TIME":PEN 1: 000040: 49 46 20 6E 3D 39 30 2B 28 65 78 3D 31 29 2A 36 IF n=90+(ex=1)*6 000050: 30 20 41 4E 44 20 72 3D 73 20 41 4E 44 20 61 63 0 AND r=s AND ac 000060: 3D 62 68 20 41 4E 44 20 61 62 3D 36 20 54 48 45 =bh AND ab=6 THE 000070: 4E 20 34 30 36 20 45 4C 53 45 20 49 46 20 6E 3D N 406 ELSE IF n= 000080: 39 30 2B 28 65 78 3D 31 29 2A 36 30 20 54 48 45 90+(ex=1)*60 THE 000090: 4E 20 32 35 30 0D 0A 31 33 35 20 47 4F 53 55 42 N 250..135 GOSUB 0000A0: 20 31 34 38 3A 49 46 20 72 61 3D 39 20 41 4E 44 148:IF ra=9 AND 0000B0: 20 62 6C 3C 32 20 54 48 45 4E 20 47 4F 53 55 42 bl<2 THEN GOSUB 0000C0: 20 31 35 35 0D 0A 31 33 36 20 49 46 20 70 62 3D 155..136 IF pb= 0000D0: 31 32 20 54 48 45 4E 20 31 34 32 20 45 4C 53 45 12 THEN 142 ELSE 0000E0: 20 49 46 20 70 62 3D 30 20 41 4E 44 20 70 61 3D IF pb=0 AND pa= 0000F0: 30 20 4F 52 20 70 62 3D 32 33 20 41 4E 44 20 70 0 OR pb=23 AND p 000100: 61 B0 B2 3D 31 20 54 48 45 4E 20 31 34 32 0D 0A a..=1 THEN 142.. 000110: 31 33 37 20 73 63 3D 30 3A 73 68 3D 30 3A 72 61 137 sc=0:sh=0:ra 000120: 3D 31 2D 28 70 61 3D 31 29 2A 39 3A 46 4F 52 20 =1-(pa=1)*9:FOR 000130: 69 3D 72 61 20 54 4F 20 72 61 2B 38 3A 6B 3D 6E i=ra TO ra+8:k=n 000140: 2B 37 0D 0A 31 33 38 20 73 68 3D 31 3A 72 62 3D +7..138 sh=1:rb= 000150: 30 2D 28 70 61 3D 30 29 2A 61 65 2D 28 70 61 3D 0-(pa=0)*ae-(pa= 000160: 31 29 2A 61 69 3A 72 61 3D 49 4E 54 28 52 4E 44 1)*ai:ra=INT(RND 000170: 2A 37 29 3A 49 46 20 72 61 3C 3D 49 4E 54 28 72 *7):IF ra<=INT(r 000180: 62 2F 32 29 20 54 48 45 4E 20 31 34 30 20 45 4C b/2) THEN 140 EL 000190: 53 45 20 47 4F 53 55 42 20 34 30 32 0D 0A 31 33 SE GOSUB 402..13 0001A0: 39 20 49 46 20 70 61 3D 32 20 54 48 45 4E 20 31 9 IF pa=2 THEN 1 0001B0: 34 30 20 45 4C 53 45 20 73 63 3D 31 3A 72 3D 72 40 ELSE sc=1:r=r 0001C0: 2D 28 70 61 3D 30 29 3A 73 3D 73 2D 28 70 61 3D -(pa=0):s=s-(pa= 0001D0: 31 29 3A 70 78 3D 31 2D 28 70 61 3D 31 29 2A 32 1):px=1-(pa=1)*2 0001E0: 30 3A 70 79 3D 70 79 2D 28 70 61 3D 30 29 3A 70 0:py=py-(pa=0):p 0001F0: 7A 3D 70 7A 2D 28 70 61 3D 31 29 3A 47 4F 53 55 z=pz-(pa=1):GOSU 000200: 42 20 31 40 3C 34 39 3A 47 4F 53 55 42 20 33 39 B 1@<49:GOSUB 39 000210: 37 3A 50 45 4E 20 32 3A 50 52 49 4E 54 20 51 24 7:PEN 2:PRINT Q$ 000220: 3B 6E 2D 28 45 58 3D 31 29 2A 39 30 3B 22 4D 49 ;n-(EX=1)*90;"MI 000230: 4E 22 3A 50 45 4E 20 31 3A 76 28 69 29 3D 30 3A N":PEN 1:v(i)=0: 000240: 69 3D 39 39 3A 47 4F 54 4F 20 31 34 31 0D 0A 31 i=99:GOTO 141..1 000250: 34 30 20 76 28 69 29 3D 30 0D 0A 31 34 31 20 4E 40 v(i)=0..141 N 000260: 45 58 54 20 69 3A 49 46 20 73 68 3D 31 20 41 4E EXT i:IF sh=1 AN 000270: 44 20 73 63 3D 31 20 54 48 45 4E 20 73 68 3D 30 D sc=1 THEN sh=0 000280: 3A 73 63 3D 30 3A 70 62 3D 31 32 3A 70 61 3D 2D :sc=0:pb=12:pa=- 000290: 28 70 61 3D 30 29 3A 47 4F 54 4F 20 31 34 35 0D (pa=0):GOTO 145. 0002A0: 0A 31 34 32 20 49 46 20 70 62 3D 30 20 41 4E 44 .142 IF pb=0 AND 0002B0: 20 70 61 3D 31 20 4F 52 20 70 62 3D 32 33 20 41 pa=1 OR pb=23 A 0002C0: 4E 44 20 70 61 3D 30 20 54 48 45 4E 20 73 68 3D ND pa=0 THEN sh= 0002D0: 30 3A 70 63 3D 30 2D 28 70 62 3D 32 33 20 41 4E 0:pc=0-(pb=23 AN 0002E0: 44 20 70 61 3D 30 29 3A 70 62 3D 30 2D 28 70 63 D pa=0):pb=0-(pc 0002F0: 3D 31 29 2A 32 33 3A 47 4F 54 4F 20 31 34 35 0D =1)*23:GOTO 145. 000300: 0A 31 34 33 20 02 09 49 46 20 70 62 3D 30 20 41 .143 ..IF pb=0 A 000310: 4E 44 20 70 61 3D 30 20 4F 52 20 70 61 3D 31 20 ND pa=0 OR pa=1 000320: 41 4E 44 20 70 62 3D 32 33 20 54 48 45 4E 20 47 AND pb=23 THEN G 000330: 4F 53 55 42 20 31 35 30 3A 50 41 3D 30 2D 28 41 OSUB 150:PA=0-(A 000340: 47 3E 52 41 29 3A 70 62 3D 31 32 3A 47 4F 54 4F G>RA):pb=12:GOTO 000350: 20 31 34 35 0D 0A 31 34 34 20 47 4F 53 55 42 20 145..144 GOSUB 000360: 31 35 30 3A 49 46 20 50 41 3D 30 20 41 4E 44 20 150:IF PA=0 AND 000370: 41 4B 3E 52 41 20 4F 52 20 50 41 3D 31 20 41 4E AK>RA OR PA=1 AN 000380: 44 20 41 47 3E 52 41 20 54 48 45 4E 20 70 62 3D D AG>RA THEN pb= 000390: 30 2D 28 70 61 3D 30 29 2A 32 33 0D 0A 31 34 35 0-(pa=0)*23..145 0003A0: 20 47 4F 53 55 42 20 31 34 38 3A 49 46 20 72 61 GOSUB 148:IF ra 0003B0: 3D 38 20 54 48 45 4E 20 31 35 32 0D 0A 31 34 36 =8 THEN 152..146 0003C0: 20 47 4F 53 55 42 20 31 35 31 3A 47 4F 53 55 42 GOSUB 151:GOSUB 0003D0: 20 31 34 39 3A 6E 3D 6E 2B 31 3A 47 4F 54 4F 20 149:n=n+1:GOTO 0003E0: 31 35 32 0D 0A 31 34 37 20 47 4F 53 55 42 20 31 152..147 GOSUB 1 0003F0: 34 39 3A 4C 4F 43 41 54 45 20 31 35 2C 31 3A 50 49:LOCATE 15,1:P 000400: 45 4E 20 32 3A 50 52 5C 54 49 4E 54 22 48 41 4C EN 2:PR\TINT"HAL 000410: 46 20 54 49 4D 45 22 3A 50 45 4E 20 31 3A 4C 4F F TIME":PEN 1:LO 000420: 43 41 54 45 20 31 32 2C 38 3A 50 52 49 4E 54 22 CATE 12,8:PRINT" 000430: 28 22 72 22 29 22 3A 4C 4F 43 41 54 45 20 33 32 ("r")":LOCATE 32 000440: 2C 38 3A 50 52 49 4E 54 22 28 22 73 22 29 22 3A ,8:PRINT"("s")": 000450: 47 4F 53 55 42 20 33 39 36 3A 4C 4F 43 41 54 45 GOSUB 396:LOCATE 000460: 20 31 35 2C 31 3A 50 52 49 4E 54 22 20 20 20 20 15,1:PRINT" 000470: 20 20 20 20 20 22 3A 52 45 54 55 52 4E 0D 0A 31 ":RETURN..1 000480: 34 38 20 72 61 3D 49 4E 54 28 52 4E 44 2A 39 39 48 ra=INT(RND*99 000490: 29 3A 52 45 54 55 52 4E 0D 0A 31 34 39 20 4C 4F ):RETURN..149 LO 0004A0: 43 41 54 45 20 31 37 2C 38 3A 50 52 49 4E 54 20 CATE 17,8:PRINT 0004B0: 72 3A 4C 4F 43 41 54 45 20 33 37 2C 38 3A 50 52 r:LOCATE 37,8:PR 0004C0: 49 4E 54 20 73 3A 4C 4F 43 41 54 45 20 31 39 2C INT s:LOCATE 19, 0004D0: 32 3A 50 52 49 4E 54 20 49 4E 54 28 6E 29 3A 47 2:PRINT INT(n):G 0004E0: 4F 53 55 42 20 31 35 31 3A 52 45 54 55 52 4E 0D OSUB 151:RETURN. 0004F0: 0A 31 35 30 20 72 61 3D 31 2B 49 4E 54 28 52 4E .150 ra=1+INT(RN 000500: 44 2A 31 30 29 3A 52 45 54 3A 22 55 52 4E 0D 0A D*10):RET:"URN.. 000510: 31 35 31 20 4C 4F 43 41 54 45 20 31 2C 31 35 3A 151 LOCATE 1,15: 000520: 50 52 49 4E 54 22 20 20 20 20 20 20 20 20 20 20 PRINT" 000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A ": 000550: 52 45 54 55 52 4E 0D 0A 31 35 32 20 49 46 20 70 RETURN..152 IF p 000560: 61 3D 30 20 54 48 45 4E 20 31 35 38 20 45 4C 53 a=0 THEN 158 ELS 000570: 45 20 47 4F 53 55 42 20 31 35 30 3A 72 62 3D 49 E GOSUB 150:rb=I 000580: 4E 54 28 52 4E 44 2A 39 39 29 3A 49 46 20 72 62 NT(RND*99):IF rb 000590: 3C 33 20 54 48 45 4E 20 31 35 36 0D 0A 31 35 33 <3 THEN 156..153 0005A0: 20 47 4F 54 4F 20 31 33 33 0D 0A 31 35 34 20 47 GOTO 133..154 G 0005B0: 4F 53 55 42 20 31 35 35 3A 47 4F 54 4F 20 31 35 OSUB 155:GOTO 15 0005C0: 33 0D 0A 31 35 35 20 62 6C 3D 62 6C 2B 31 3A 52 3..155 bl=bl+1:R 0005D0: 45 54 55 52 4E 0D 0A 31 35 36 20 72 61 3D 32 2B ETURN..156 ra=2+ 0005E0: 49 4E 54 28 52 4E 44 2A 31 30 29 3A 49 46 20 67 INT(RND*10):IF g 0005F0: 28 72 61 29 3C 31 20 54 48 45 4E 20 31 35 36 0D (ra)<1 THEN 156. 000600: 0A 31 35 37 20 76 28 72 61 29 3D 88 BB 76 28 72 .157 v(ra)=..v(r 000610: 61 29 2B 31 3A 49 46 20 76 28 72 61 29 3D 32 20 a)+1:IF v(ra)=2 000620: 54 48 45 4E 20 67 28 72 61 29 3D 67 28 72 61 29 THEN g(ra)=g(ra) 000630: 2D 67 28 72 61 29 2A 32 3A 47 4F 54 4F 20 31 35 -g(ra)*2:GOTO 15 000640: 33 0D 0A 31 35 38 20 47 4F 53 55 42 20 31 35 30 3..158 GOSUB 150 000650: 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 44 2A 34 30 :rb=1+INT(RND*40 000660: 29 0D 0A 31 35 39 20 49 46 20 72 62 3D 34 30 20 )..159 IF rb=40 000670: 41 4E 44 20 62 6B 3C 31 20 41 4E 44 20 62 6C 3C AND bk<1 AND bl< 000680: 32 20 54 48 45 4E 20 33 30 30 20 45 4C 53 45 20 2 THEN 300 ELSE 000690: 31 35 33 0D 0A 31 36 30 20 47 4F 53 55 42 20 31 153..160 GOSUB 1 0006A0: 35 30 3A 61 6B 3D 61 6B 2D 33 3A 47 4F 54 4F 20 50:ak=ak-3:GOTO 0006B0: 31 35 33 0D 0A 31 36 31 20 78 33 3D 31 3A 78 32 153..161 x3=1:x2 0006C0: 3D 31 31 3A 64 31 3D 31 3A 47 4F 53 55 42 20 31 =11:d1=1:GOSUB 1 0006D0: 36 37 0D 0A 31 36 32 20 51 24 3D 49 4E 4B 45 59 67..162 Q$=INKEY 0006E0: 24 3A 51 24 3D 55 50 50 45 52 24 28 51 24 29 3A $:Q$=UPPER$(Q$): 0006F0: 49 46 20 51 24 3D 22 22 20 54 48 45 4E 20 31 36 IF Q$="" THEN 16 000700: 32 0D 0A 31 36 33 20 49 46 20 51 24 3D CD 54 22 2..163 IF Q$=.T" 000710: 55 22 20 54 48 45 4E 20 64 31 3D 64 31 2B 28 64 U" THEN d1=d1+(d 000720: 31 3E 78 33 29 3A 49 46 20 64 31 3E 31 31 20 54 1>x3):IF d1>11 T 000730: 48 45 4E 20 47 4F 53 55 42 20 31 36 38 20 45 4C HEN GOSUB 168 EL 000740: 53 45 20 47 4F 53 55 42 20 31 36 37 0D 0A 31 36 SE GOSUB 167..16 000750: 34 20 49 46 20 51 24 3D 22 44 22 20 54 48 45 4E 4 IF Q$="D" THEN 000760: 20 64 31 3D 64 31 2D 28 64 31 3C 78 32 29 3A 49 d1=d1-(d1<x2):I 000770: 46 20 64 31 3E 31 31 20 54 48 45 4E 20 47 4F 53 F d1>11 THEN GOS 000780: 55 42 20 31 36 38 20 45 4C 53 45 20 47 4F 53 55 UB 168 ELSE GOSU 000790: 42 20 31 36 37 0D 0A 31 36 35 20 49 46 20 41 53 B 167..165 IF AS 0007A0: 43 28 51 24 29 3D 31 33 20 54 48 45 4E 20 49 46 C(Q$)=13 THEN IF 0007B0: 20 64 31 3E 31 31 20 54 48 45 4E 20 31 37 31 20 d1>11 THEN 171 0007C0: 45 4C 53 45 20 31 36 39 0D 0A 31 36 36 20 47 4F ELSE 169..166 GO 0007D0: 54 4F 20 31 36 32 0D 0A 31 36 37 20 47 4F 53 55 TO 162..167 GOSU 0007E0: 42 20 31 35 31 3A 69 3D 64 31 3A 47 4F 53 55 42 B 151:i=d1:GOSUB 0007F0: 20 32 31 31 3A 4C 4F 43 41 54 45 20 31 2C 31 35 211:LOCATE 1,15 000800: 3A 50 52 49 4E 54 20 64 31 3B 7A 24 22 20 22 03 :PRINT d1;z$" ". 000810: D4 FF FF FF FF .....
previousnext* BLOCK 0023 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 7
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 619
Length of ONE bit pulse : 1239
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 352

Duration : 2154 ms
Pause After this block : 20 ms
Duration block + Pause : 2174 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 07 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 6E E9 FF FF FF FF .n.....
previousnext* BLOCK 0024 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 476
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 588
Length of ONE bit pulse : 1178
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 129 883

Duration : 9105 ms
Pause After this block : 2894 ms
Duration block + Pause : 11999 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 3B 62 24 28 64 31 29 3B 22 20 22 3B 49 4E 54 .;b$(d1);" ";INT 000010: 28 61 28 64 31 29 29 3A 52 45 54 55 52 4E 0D 0A (a(d1)):RETURN.. 000020: 31 36 38 20 50 45 4E 20 31 3A 47 4F 53 55 42 20 168 PEN 1:GOSUB 000030: 31 32 34 3A 50 52 49 4E 54 20 43 48 52 24 28 32 124:PRINT CHR$(2 000040: 32 29 2B 43 48 52 24 28 31 29 3A 46 4F 52 20 7A 2)+CHR$(1):FOR z 000050: 3D 32 30 20 54 4F 20 33 36 3A 69 3D 64 31 3A 47 =20 TO 36:i=d1:G 000060: 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 45 20 OSUB 211:LOCATE 000070: 7A 2C 35 2B 64 31 3A 50 52 49 4E 54 20 43 48 52 z,5+d1:PRINT CHR 000080: 24 28 31 34 33 29 3A 4E 45 58 54 3A 50 45 4E 20 $(143):NEXT:PEN 000090: 30 3A 4C 4F 43 41 54 45 20 31 39 2C 35 2B 64 31 0:LOCATE 19,5+d1 0000A0: 3A 50 52 49 4E 54 20 64 31 3B 7A 24 22 20 22 3B :PRINT d1;z$" "; 0000B0: 62 24 28 64 31 29 3B 22 20 22 3A 4C 4F 43 41 54 b$(d1);" ":LOCAT 0000C0: 45 20 33 33 2C 35 2B 64 31 3A 50 52 49 4E 54 20 E 33,5+d1:PRINT 0000D0: 49 4E 54 28 61 28 64 31 29 29 3B 78 24 3A 50 52 INT(a(d1));x$:PR 0000E0: 49 4E 54 20 43 48 52 24 28 32 32 29 2B 43 48 52 INT CHR$(22)+CHR 0000F0: 24 28 30 29 3A 50 45 4E 20 31 3A 52 45 54 55 52 $(0):PEN 1:RETUR 000100: 4E 63 B0 0D 0A 31 36 39 20 49 46 20 67 28 64 31 Nc...169 IF g(d1 000110: 29 3C 30 20 54 48 45 4E 20 31 36 36 20 0D 0A 31 )<0 THEN 166 ..1 000120: 37 30 20 76 28 64 31 29 3D 30 3A 61 64 3D 64 31 70 v(d1)=0:ad=d1 000130: 3A 64 31 3D 31 32 3A 47 4F 53 55 42 20 31 32 34 :d1=12:GOSUB 124 000140: 3A 47 4F 53 55 42 20 31 36 38 3A 78 33 3D 31 32 :GOSUB 168:x3=12 000150: 3A 78 32 3D 31 36 3A 47 4F 54 4F 20 31 36 32 0D :x2=16:GOTO 162. 000160: 0A 31 37 31 20 49 46 20 70 28 64 31 29 3E 30 20 .171 IF p(d1)>0 000170: 54 48 45 4E 20 31 36 36 0D 0A 31 37 32 20 47 4F THEN 166..172 GO 000180: 53 55 42 20 31 35 31 3A 69 3D 64 31 3A 47 4F 53 SUB 151:i=d1:GOS 000190: 55 42 20 31 39 35 3A 47 4F 53 55 42 20 31 39 31 UB 195:GOSUB 191 0001A0: 3A 47 4F 53 55 42 20 32 31 30 3A 64 31 3D 30 3A :GOSUB 210:d1=0: 0001B0: 47 4F 53 55 42 20 31 32 34 3A 62 6B 3D 62 6B 2D GOSUB 124:bk=bk- 0001C0: 28 62 6B 3C 32 29 3A 47 4F 54 4F 20 31 33 33 0D (bk<2):GOTO 133. 0001D0: 0A 31 37 33 20 43 4C 53 3A 4C 4F 43 41 54 45 20 .173 CLS:LOCATE 0001E0: 31 36 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 16,1:PEN 2:PRINT 0001F0: 20 79 24 28 31 29 3A 4C 4F 43 41 54 45 20 34 2C y$(1):LOCATE 4, 000200: 32 3A 50 2C 39 45 4E 20 31 3A 50 52 49 4E 54 22 2:P,9EN 1:PRINT" 000210: 31 53 54 20 54 45 41 4D 22 3A 4C 4F 43 41 54 45 1ST TEAM":LOCATE 000220: 20 32 34 2C 32 3A 50 52 49 4E 54 22 52 45 53 45 24,2:PRINT"RESE 000230: 52 56 45 53 22 3A 4C 4F 43 41 54 45 20 36 2C 31 RVES":LOCATE 6,1 000240: 35 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 53 55 5:PEN 2:PRINT"SU 000250: 42 53 22 3A 4C 4F 43 41 54 45 20 31 35 2C 33 3A BS":LOCATE 15,3: 000260: 50 45 4E 20 31 3A 50 52 49 4E 54 22 54 20 20 20 PEN 1:PRINT"T 000270: 46 22 3A 46 4F 52 20 69 3D 31 20 54 4F 20 31 31 F":FOR i=1 TO 11 000280: 3A 47 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 :GOSUB 211:LOCAT 000290: 45 20 31 2C 69 2B 33 3A 50 52 49 4E 54 20 69 3B E 1,i+3:PRINT i; 0002A0: 7A 24 22 20 22 3B 62 24 28 69 29 3A 4C 4F 43 41 z$" ";b$(i):LOCA 0002B0: 54 45 20 31 34 2C 69 2B 33 3A 50 52 49 4E 54 20 TE 14,i+3:PRINT 0002C0: 49 4E 54 28 61 28 69 29 29 3B 78 24 3B 0D 0A 31 INT(a(i));x$;..1 0002D0: 37 34 20 50 52 49 4E 54 20 49 4E 54 28 67 28 69 74 PRINT INT(g(i 0002E0: 29 29 3A 4E 45 58 54 3A 46 4F 52 20 69 3D 31 32 )):NEXT:FOR i=12 0002F0: 20 54 4F 20 31 36 3A 47 4F 53 55 42 20 32 31 31 TO 16:GOSUB 211 000300: 3A 4C 4F 43 41 13 0D 54 45 20 31 2C 69 2B 34 3A :LOCA..TE 1,i+4: 000310: 50 52 49 4E 54 20 69 3B 7A 24 22 20 22 3B 62 24 PRINT i;z$" ";b$ 000320: 28 69 29 3A 4C 4F 43 41 54 45 20 31 34 2C 69 2B (i):LOCATE 14,i+ 000330: 34 3A 50 52 49 4E 54 20 49 4E 54 28 61 28 69 29 4:PRINT INT(a(i) 000340: 29 3B 78 24 3B 49 4E 54 28 67 28 69 29 29 3A 4E );x$;INT(g(i)):N 000350: 45 58 54 3A 61 64 3D 31 37 3A 47 4F 53 55 42 20 EXT:ad=17:GOSUB 000360: 32 30 39 3A 47 4F 53 55 42 20 31 39 30 3A 79 31 209:GOSUB 190:y1 000370: 3D 31 35 3A 79 32 3D 31 37 3A 47 4F 53 55 42 20 =15:y2=17:GOSUB 000380: 32 30 38 3A 47 4F 53 55 42 20 31 39 34 3A 47 4F 208:GOSUB 194:GO 000390: 53 55 42 20 32 30 37 0D 0A 31 37 35 20 47 4F 53 SUB 207..175 GOS 0003A0: 55 42 20 33 37 36 0D 0A 31 37 36 20 49 46 20 71 UB 376..176 IF q 0003B0: 24 3D 22 48 22 20 54 48 45 4E 20 31 31 20 45 4C $="H" THEN 11 EL 0003C0: 53 45 20 49 46 20 71 24 3D 22 49 22 20 54 48 45 SE IF q$="I" THE 0003D0: 4E 20 31 38 31 20 45 4C 53 45 20 49 46 20 71 24 N 181 ELSE IF q$ 0003E0: 3D 22 43 22 20 54 48 45 4E 20 31 37 37 20 45 4C ="C" THEN 177 EL 0003F0: 53 45 20 31 37 35 0D 0A 31 37 37 20 78 33 3D 33 SE 175..177 x3=3 000400: 3A 78 31 3D 31 3A 78 49 AB 32 3D 32 34 3A 69 3D :x1=1:xI.2=24:i= 000410: 78 31 3A 47 4F 53 55 42 20 32 30 34 3A 47 4F 53 x1:GOSUB 204:GOS 000420: 55 42 20 31 39 38 3A 61 64 3D 69 3A 78 31 3D 31 UB 198:ad=i:x1=1 000430: 2D 28 67 28 61 64 29 3C 30 20 4F 52 20 70 28 61 -(g(ad)<0 OR p(a 000440: 64 29 3E 30 20 4F 52 20 61 28 61 64 29 3D 30 20 d)>0 OR a(ad)=0 000450: 4F 52 20 6E 28 31 2C 61 64 29 3E 61 62 20 4F 52 OR n(1,ad)>ab OR 000460: 20 6E 28 31 2C 61 64 29 3D 61 62 20 41 4E 44 20 n(1,ad)=ab AND 000470: 6E 28 32 2C 61 64 29 3E 68 28 6E 28 31 2C 61 64 n(2,ad)>h(n(1,ad 000480: 29 29 29 2A 31 36 0D 0A 31 37 38 20 78 33 3D 31 )))*16..178 x3=1 000490: 3A 69 3D 78 31 3A 47 4F 53 55 42 20 32 30 32 3A :i=x1:GOSUB 202: 0004A0: 47 4F 53 55 42 20 31 39 38 3A 49 46 20 61 28 69 GOSUB 198:IF a(i 0004B0: 29 3D 30 20 4F 52 20 67 28 69 29 3C 30 20 4F 52 )=0 OR g(i)<0 OR 0004C0: 20 70 28 69 29 3E 30 20 4F 52 20 6E 28 31 2C 69 p(i)>0 OR n(1,i 0004D0: 29 3E 61 62 20 4F 52 20 6E 28 31 2C 69 29 3D 61 )>ab OR n(1,i)=a 0004E0: 62 20 41 4E 44 20 6E 28 32 2C 69 29 3E 68 28 6E b AND n(2,i)>h(n 0004F0: 28 31 2C 69 29 29 20 54 48 45 4E 20 31 37 39 20 (1,i)) THEN 179 000500: 45 4C 53 45 20 31 38 30 0D AA FB 0A 31 37 39 20 ELSE 180....179 000510: 47 4F 53 55 42 20 32 30 37 3A 47 4F 54 4F 20 31 GOSUB 207:GOTO 1 000520: 37 35 0D 0A 31 38 30 20 47 4F 53 55 42 20 31 39 75..180 GOSUB 19 000530: 35 3A 47 4F 53 55 42 20 32 30 36 3A 69 3D 61 64 5:GOSUB 206:i=ad 000540: 3A 47 4F 53 55 42 20 32 30 36 3A 47 4F 53 55 42 :GOSUB 206:GOSUB 000550: 20 31 39 31 3A 47 4F 53 55 42 20 31 39 34 3A 47 191:GOSUB 194:G 000560: 4F 53 55 42 20 32 30 37 3A 47 4F 54 4F 20 31 37 OSUB 207:GOTO 17 000570: 35 0D 0A 31 38 31 20 4C 4F 43 41 54 45 20 32 34 5..181 LOCATE 24 000580: 2C 32 3A 50 52 49 4E 54 22 20 20 20 20 20 20 20 ,2:PRINT" 000590: 20 22 3A 4C 4F 43 41 54 45 20 32 32 2C 33 3A 50 ":LOCATE 22,3:P 0005A0: 52 49 4E 54 22 43 20 4D 20 43 41 50 20 41 47 45 RINT"C M CAP AGE 0005B0: 20 41 56 41 20 20 22 3A 46 4F 52 20 69 3D 31 20 AVA ":FOR i=1 0005C0: 54 4F 20 31 36 3A 4C 4F 43 41 54 45 20 32 31 2C TO 16:LOCATE 21, 0005D0: 69 2B 33 2D 28 69 3E 31 31 29 3A 50 52 49 4E 54 i+3-(i>11):PRINT 0005E0: 20 49 4E 54 28 64 28 69 29 29 3A 4C 4F 43 41 54 INT(d(i)):LOCAT 0005F0: 45 20 32 33 2C 69 2B 33 2D 28 69 3E 31 31 29 3A E 23,i+3-(i>11): 000600: 50 52 49 4E 54 20 49 4E 54 28 66 E3 D1 28 69 29 PRINT INT(f..(i) 000610: 29 3A 4C 4F 43 41 54 45 20 32 35 2C 69 2B 33 2D ):LOCATE 25,i+3- 000620: 28 69 3E 31 31 29 3A 50 52 49 4E 54 20 49 4E 54 (i>11):PRINT INT 000630: 28 63 28 69 29 29 22 20 22 3A 4C 4F 43 41 54 45 (c(i))" ":LOCATE 000640: 20 32 39 2C 69 2B 33 2D 28 69 3E 31 31 29 3A 50 29,i+3-(i>11):P 000650: 52 49 4E 54 20 49 4E 54 28 62 28 69 29 29 3A 4C RINT INT(b(i)):L 000660: 4F 43 41 54 45 20 33 33 2C 69 2B 33 2D 28 69 3E OCATE 33,i+3-(i> 000670: 31 31 29 0D 0A 31 38 32 20 50 52 49 4E 54 20 65 11)..182 PRINT e 000680: 24 28 6E 28 31 2C 69 29 29 3B 22 20 22 3B 49 4E $(n(1,i));" ";IN 000690: 54 28 6E 28 32 2C 69 29 29 3A 4E 45 58 54 3A 4C T(n(2,i)):NEXT:L 0006A0: 4F 43 41 54 45 20 34 2C 32 32 3A 50 45 4E 20 32 OCATE 4,22:PEN 2 0006B0: 3A 50 52 49 4E 54 22 4D 2D 4D 45 4E 55 20 48 2D :PRINT"M-MENU H- 0006C0: 48 4F 50 45 46 55 4C 4C 53 20 49 2D 49 4E 46 4F HOPEFULLS I-INFO 0006D0: 52 4D 41 54 49 4F 4E 20 53 2D 53 51 55 41 44 22 RMATION S-SQUAD" 0006E0: 3A 50 45 4E 20 31 0D 0A 31 38 33 20 47 4F 53 55 :PEN 1..183 GOSU 0006F0: 42 20 33 37 36 0D 0A 31 38 34 20 49 46 20 71 24 B 376..184 IF q$ 000700: 3D 22 49 22 20 54 48 45 4E 20 31 38 35 0E AB 20 ="I" THEN 185.. 000710: 45 4C 53 45 20 49 46 20 71 24 3D 22 53 22 20 54 ELSE IF q$="S" T 000720: 48 45 4E 20 31 37 33 20 45 4C 53 45 20 49 46 20 HEN 173 ELSE IF 000730: 71 24 3D 22 48 22 20 54 48 45 4E 20 31 31 20 45 q$="H" THEN 11 E 000740: 4C 53 45 20 31 38 33 0D 0A 31 38 35 20 43 4C 53 LSE 183..185 CLS 000750: 3A 4C 4F 43 41 54 45 20 31 36 2C 31 3A 50 45 4E :LOCATE 16,1:PEN 000760: 20 32 3A 50 52 49 4E 54 20 79 24 28 31 29 3A 4C 2:PRINT y$(1):L 000770: 4F 43 41 54 45 20 32 2C 32 3A 50 45 4E 20 31 3A OCATE 2,2:PEN 1: 000780: 50 52 49 4E 54 22 52 45 53 45 52 56 45 53 22 3A PRINT"RESERVES": 000790: 61 64 3D 30 3A 47 4F 53 55 42 20 32 30 39 3A 4C ad=0:GOSUB 209:L 0007A0: 4F 43 41 54 45 20 32 33 2C 33 3A 50 52 49 4E 54 OCATE 23,3:PRINT 0007B0: 22 43 20 4D 20 43 41 50 20 41 47 45 20 41 56 41 "C M CAP AGE AVA 0007C0: 22 3A 46 4F 52 20 69 3D 31 37 20 54 4F 20 32 32 ":FOR i=17 TO 22 0007D0: 3A 4C 4F 43 41 54 45 20 32 32 2C 69 2D 31 33 3A :LOCATE 22,i-13: 0007E0: 50 52 49 4E 54 20 49 4E 54 28 64 28 69 29 29 3A PRINT INT(d(i)): 0007F0: 4C 4F 43 41 54 45 20 32 34 2C 69 2D 31 33 3A 50 LOCATE 24,i-13:P 000800: 52 49 4E 54 20 49 4E 54 28 66 28 69 29 29 3A BD RINT INT(f(i)):. 000810: D8 FF FF FF FF .....
previousnext* BLOCK 0025 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 8
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 620
Length of ONE bit pulse : 1242
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 226

Duration : 2154 ms
Pause After this block : 20 ms
Duration block + Pause : 2174 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 08 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 B3 25 FF FF FF FF ..%....
previousnext* BLOCK 0026 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 588
Length of ONE bit pulse : 1177
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 131 125

Duration : 9114 ms
Pause After this block : 2893 ms
Duration block + Pause : 12007 ms
Duration block + Pause : 00 h 00 m 12 s		000000: 16 4C 4F 43 41 54 45 20 32 36 2C 69 2D 31 33 3A .LOCATE 26,i-13: 000010: 50 52 49 4E 54 20 63 28 69 29 3A 4C 4F 43 41 54 PRINT c(i):LOCAT 000020: 45 20 33 30 2C 69 2D 31 33 3A 50 52 49 4E 54 20 E 30,i-13:PRINT 000030: 49 4E 54 28 62 28 69 29 29 0D 0A 31 38 36 20 4C INT(b(i))..186 L 000040: 4F 43 41 54 45 20 33 34 2C 69 2D 31 33 3A 50 52 OCATE 34,i-13:PR 000050: 49 4E 54 20 65 24 28 6E 28 31 2C 69 29 29 3B 49 INT e$(n(1,i));I 000060: 4E 54 28 6E 28 32 2C 69 29 29 3A 4E 45 58 54 3A NT(n(2,i)):NEXT: 000070: 47 4F 53 55 42 20 31 39 30 3A 46 4F 52 20 69 3D GOSUB 190:FOR i= 000080: 32 33 20 54 4F 20 32 34 3A 4C 4F 43 41 54 45 20 23 TO 24:LOCATE 000090: 32 32 2C 69 2D 31 32 3A 50 52 49 4E 54 20 64 28 22,i-12:PRINT d( 0000A0: 69 29 3A 4C 4F 43 41 54 45 20 32 34 2C 69 2D 31 i):LOCATE 24,i-1 0000B0: 32 3A 50 52 49 4E 54 20 49 4E 54 28 66 28 69 29 2:PRINT INT(f(i) 0000C0: 29 3A 4C 4F 43 41 54 45 20 32 36 2C 69 2D 31 32 ):LOCATE 26,i-12 0000D0: 3A 50 52 49 4E 54 20 63 28 69 29 3A 4C 4F 43 41 :PRINT c(i):LOCA 0000E0: 54 45 20 33 30 2C 69 2D 31 32 3A 50 52 49 4E 54 TE 30,i-12:PRINT 0000F0: 20 49 4E 54 28 62 28 69 29 29 3B 65 24 28 6E 28 INT(b(i));e$(n( 000100: 31 A3 52 2C 69 29 29 3B 49 4E 54 28 6E 28 32 2C 1£R,i));INT(n(2, 000110: 69 29 29 3A 4E 45 58 54 3A 79 31 3D 31 35 3A 79 i)):NEXT:y1=15:y 000120: 32 3D 39 3A 47 4F 53 55 42 20 32 30 38 3A 47 4F 2=9:GOSUB 208:GO 000130: 53 55 42 20 31 39 34 0D 0A 31 38 37 20 61 64 3D SUB 194..187 ad= 000140: 31 37 3A 4C 4F 43 41 54 45 20 38 2C 32 33 3A 50 17:LOCATE 8,23:P 000150: 45 4E 20 32 3A 50 52 49 4E 54 22 4D 2D 4D 45 4E EN 2:PRINT"M-MEN 000160: 55 20 48 2D 48 4F 50 45 46 55 4C 4C 53 20 53 2D U H-HOPEFULLS S- 000170: 53 51 55 41 44 22 3A 50 45 4E 20 31 0D 0A 31 38 SQUAD":PEN 1..18 000180: 38 20 47 4F 53 55 42 20 33 37 36 0D 0A 31 38 39 8 GOSUB 376..189 000190: 20 49 46 20 71 24 3D 22 53 22 20 54 48 45 4E 20 IF q$="S" THEN 0001A0: 31 37 33 20 45 4C 53 45 20 49 46 20 71 24 3D 22 173 ELSE IF q$=" 0001B0: 48 22 20 54 48 45 4E 20 31 31 20 45 4C 53 45 20 H" THEN 11 ELSE 0001C0: 31 38 38 0D 0A 31 39 30 20 46 4F 52 20 69 3D 32 188..190 FOR i=2 0001D0: 33 20 54 4F 20 32 34 3A 47 4F 53 55 42 20 32 31 3 TO 24:GOSUB 21 0001E0: 31 3A 4C 4F 43 41 54 45 20 61 64 2B 33 2C 69 2D 1:LOCATE ad+3,i- 0001F0: 31 32 3A 50 52 49 4E 54 20 69 3B 7A 24 22 20 22 12:PRINT i;z$" " 000200: 3B 62 24 DE 1A 28 69 29 3A 4C 4F 43 41 54 45 20 ;b$..(i):LOCATE 000210: 61 64 2B 31 36 2C 69 2D 31 32 3A 50 52 49 4E 54 ad+16,i-12:PRINT 000220: 20 49 4E 54 28 61 28 69 29 29 3B 78 24 3B 49 4E INT(a(i));x$;IN 000230: 54 28 41 42 53 28 67 28 69 29 29 29 3A 4E 45 58 T(ABS(g(i))):NEX 000240: 54 3A 52 45 54 55 52 4E 0D 0A 31 39 31 20 61 65 T:RETURN..191 ae 000250: 3D 2D 28 65 28 31 29 3D 31 29 2A 28 28 63 28 31 =-(e(1)=1)*((c(1 000260: 29 2F 38 29 2B 67 28 31 29 2B 66 28 31 29 29 3A )/8)+g(1)+f(1)): 000270: 61 66 3D 30 3A 61 67 3D 30 3A 61 68 3D 30 3A 46 af=0:ag=0:ah=0:F 000280: 4F 52 20 6D 3D 32 20 54 4F 20 31 31 3A 61 66 3D OR m=2 TO 11:af= 000290: 61 66 2D 28 65 28 6D 29 3D 32 29 2A 28 28 63 28 af-(e(m)=2)*((c( 0002A0: 6D 29 2F 38 29 2B 67 28 6D 29 2B 66 28 6D 29 29 m)/8)+g(m)+f(m)) 0002B0: 3A 61 67 3D 61 67 2D 28 65 28 6D 29 3D 33 29 2A :ag=ag-(e(m)=3)* 0002C0: 28 28 63 28 6D 29 2F 38 29 2B 67 28 6D 29 2B 66 ((c(m)/8)+g(m)+f 0002D0: 28 6D 29 29 3A 61 68 3D 61 68 2D 28 65 28 6D 29 (m)):ah=ah-(e(m) 0002E0: 3D 34 29 2A 28 28 63 28 6D 29 2F 38 29 2B 67 28 =4)*((c(m)/8)+g( 0002F0: 6D 29 2B 66 28 6D 29 29 3A 4E 45 58 54 0D 0A 31 m)+f(m)):NEXT..1 000300: 39 32 20 61 65 E6 70 3D 49 4E 54 28 61 65 2F 32 92 ae.p=INT(ae/2 000310: 2E 39 29 3A 61 66 3D 61 66 2F 32 2E 39 3A 61 67 .9):af=af/2.9:ag 000320: 3D 61 67 2F 32 2E 39 3A 61 68 3D 61 68 2F 32 2E =ag/2.9:ah=ah/2. 000330: 39 0D 0A 31 39 33 20 61 66 3D 49 4E 54 28 61 66 9..193 af=INT(af 000340: 2F 33 2E 39 29 3A 61 67 3D 49 4E 54 28 61 67 2F /3.9):ag=INT(ag/ 000350: 32 2E 39 29 3A 61 68 3D 49 4E 54 28 61 68 2F 32 2.9):ah=INT(ah/2 000360: 2E 39 29 3A 61 65 3D 61 65 2D 28 28 61 65 2D 39 .9):ae=ae-((ae-9 000370: 29 2F 32 29 2A 28 31 2B 53 47 4E 28 61 65 2D 39 )/2)*(1+SGN(ae-9 000380: 2E 30 35 29 29 3A 61 67 3D 61 67 2D 28 28 61 67 .05)):ag=ag-((ag 000390: 2D 39 29 2F 32 29 2A 28 31 2B 53 47 4E 28 61 67 -9)/2)*(1+SGN(ag 0003A0: 2D 39 2E 30 35 29 29 3A 61 66 3D 61 66 2D 28 28 -9.05)):af=af-(( 0003B0: 61 66 2D 39 29 2F 32 29 2A 28 31 2B 53 47 4E 28 af-9)/2)*(1+SGN( 0003C0: 61 66 2D 39 2E 30 35 29 29 3A 61 68 3D 61 68 2D af-9.05)):ah=ah- 0003D0: 28 28 61 68 2D 39 29 2F 32 29 2A 28 31 2B 53 47 ((ah-9)/2)*(1+SG 0003E0: 4E 28 61 68 2D 39 2E 30 35 29 29 3A 52 45 54 55 N(ah-9.05)):RETU 0003F0: 52 4E 0D 0A 31 39 34 20 4C 4F 43 41 54 45 20 79 RN..194 LOCATE y 000400: 32 2B 32 30 2C 79 31 9D CB 2B 31 3A 50 52 49 4E 2+20,y1..+1:PRIN 000410: 54 20 61 65 3A 4C 4F 43 41 54 45 20 79 32 2B 32 T ae:LOCATE y2+2 000420: 30 2C 79 31 2B 32 3A 50 52 49 4E 54 20 61 66 3A 0,y1+2:PRINT af: 000430: 4C 4F 43 41 54 45 20 79 32 2B 32 30 2C 79 31 2B LOCATE y2+20,y1+ 000440: 33 3A 50 52 49 4E 54 20 61 67 3A 4C 4F 43 41 54 3:PRINT ag:LOCAT 000450: 45 20 79 32 2B 32 30 2C 79 31 2B 34 3A 50 52 49 E y2+20,y1+4:PRI 000460: 4E 54 20 61 68 3A 52 45 54 55 52 4E 0D 0A 31 39 NT ah:RETURN..19 000470: 35 20 44 31 3D 61 28 61 64 29 3A 44 32 3D 62 28 5 D1=a(ad):D2=b( 000480: 61 64 29 3A 44 33 3D 63 28 61 64 29 3A 44 34 3D ad):D3=c(ad):D4= 000490: 64 28 61 64 29 3A 44 35 3D 65 28 61 64 29 3A 44 d(ad):D5=e(ad):D 0004A0: 36 3D 66 28 61 64 29 3A 44 37 3D 67 28 61 64 29 6=f(ad):D7=g(ad) 0004B0: 3A 44 38 3D 6F 28 61 64 29 3A 44 39 3D 70 28 61 :D8=o(ad):D9=p(a 0004C0: 64 29 3A 66 31 3D 6E 28 31 2C 61 64 29 3A 66 32 d):f1=n(1,ad):f2 0004D0: 3D 6E 28 32 2C 61 64 29 3A 7A 24 3D 62 24 28 61 =n(2,ad):z$=b$(a 0004E0: 64 29 0D 0A 31 39 36 20 61 28 61 64 29 3D 61 28 d)..196 a(ad)=a( 0004F0: 69 29 3A 62 28 61 64 29 3D 62 28 69 29 3A 63 28 i):b(ad)=b(i):c( 000500: 61 64 29 3D 63 28 69 29 3A 5A A3 64 28 61 64 29 ad)=c(i):Z£d(ad) 000510: 3D 64 28 69 29 3A 65 28 61 64 29 3D 65 28 69 29 =d(i):e(ad)=e(i) 000520: 3A 66 28 61 64 29 3D 66 28 69 29 3A 67 28 61 64 :f(ad)=f(i):g(ad 000530: 29 3D 67 28 69 29 3A 6F 28 61 64 29 3D 6F 28 69 )=g(i):o(ad)=o(i 000540: 29 3A 70 28 61 64 29 3D 70 28 69 29 3A 6E 28 31 ):p(ad)=p(i):n(1 000550: 2C 61 64 29 3D 6E 28 31 2C 69 29 3A 6E 28 32 2C ,ad)=n(1,i):n(2, 000560: 61 64 29 3D 6E 28 32 2C 69 29 3A 62 24 28 61 64 ad)=n(2,i):b$(ad 000570: 29 3D 62 24 28 69 29 0D 0A 31 39 37 20 61 28 69 )=b$(i)..197 a(i 000580: 29 3D 44 31 3A 62 28 69 29 3D 44 32 3A 63 28 69 )=D1:b(i)=D2:c(i 000590: 29 3D 44 33 3A 64 28 69 29 3D 44 34 3A 65 28 69 )=D3:d(i)=D4:e(i 0005A0: 29 3D 44 35 3A 66 28 69 29 3D 44 36 3A 67 28 69 )=D5:f(i)=D6:g(i 0005B0: 29 3D 44 37 3A 6F 28 69 29 3D 44 38 3A 70 28 69 )=D7:o(i)=D8:p(i 0005C0: 29 3D 44 39 3A 6E 28 31 2C 69 29 3D 66 31 3A 6E )=D9:n(1,i)=f1:n 0005D0: 28 32 2C 69 29 3D 66 32 3A 62 24 28 69 29 3D 7A (2,i)=f2:b$(i)=z 0005E0: 24 3A 52 45 54 55 52 4E 0D 0A 31 39 38 20 51 24 $:RETURN..198 Q$ 0005F0: 3D 49 4E 4B 45 59 24 3A 49 46 20 51 24 3D 22 22 =INKEY$:IF Q$="" 000600: 20 54 48 45 4E 20 31 39 38 20 45 C6 21 4C 53 45 THEN 198 E.!LSE 000610: 20 51 24 3D 55 50 50 45 52 24 28 51 24 29 0D 0A Q$=UPPER$(Q$).. 000620: 31 39 39 20 49 46 20 51 24 3D 22 55 22 20 54 48 199 IF Q$="U" TH 000630: 45 4E 20 69 3D 69 2B 28 69 3E 78 31 29 20 45 4C EN i=i+(i>x1) EL 000640: 53 45 20 49 46 20 51 24 3D 22 44 22 20 54 48 45 SE IF Q$="D" THE 000650: 4E 20 69 3D 69 2D 28 69 3C 78 32 29 0D 0A 32 30 N i=i-(i<x2)..20 000660: 30 20 49 46 20 41 53 43 28 51 24 29 3D 31 33 20 0 IF ASC(Q$)=13 000670: 54 48 45 4E 20 50 52 49 4E 54 20 43 48 52 24 28 THEN PRINT CHR$( 000680: 37 29 3A 52 45 54 55 52 4E 0D 0A 32 30 31 20 4F 7):RETURN..201 O 000690: 4E 20 78 33 20 47 4F 53 55 42 20 32 30 32 2C 32 N x3 GOSUB 202,2 0006A0: 30 33 2C 32 30 34 2C 32 30 35 3A 47 4F 54 4F 20 03,204,205:GOTO 0006B0: 31 39 38 0D 0A 32 30 32 20 4C 4F 43 41 54 45 20 198..202 LOCATE 0006C0: 31 2C 32 33 3A 50 52 49 4E 54 22 50 4C 41 59 45 1,23:PRINT"PLAYE 0006D0: 52 53 20 4E 45 57 20 50 4F 53 49 54 49 4F 4E 20 RS NEW POSITION 0006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0006F0: 20 20 20 22 3A 4C 4F 43 41 54 45 20 32 37 2C 32 ":LOCATE 27,2 000700: 33 3A 50 52 49 4E 54 20 69 3A 52 45 54 5D A4 55 3:PRINT i:RET].U 000710: 52 4E 0D 0A 32 30 33 20 4C 4F 43 41 54 45 20 31 RN..203 LOCATE 1 000720: 2C 32 31 3A 50 52 49 4E 54 22 57 48 49 43 48 20 ,21:PRINT"WHICH 000730: 4D 4F 4E 54 48 3A 20 20 20 20 20 20 20 20 20 20 MONTH: 000740: 20 20 20 20 20 20 20 20 20 20 22 3A 4C 4F 43 41 ":LOCA 000750: 54 45 20 31 33 2C 32 31 3A 50 52 49 4E 54 20 65 TE 13,21:PRINT e 000760: 24 28 69 29 3A 52 45 54 55 52 4E 0D 0A 32 30 34 $(i):RETURN..204 000770: 20 4C 4F 43 41 54 45 20 31 2C 32 33 3A 50 52 49 LOCATE 1,23:PRI 000780: 4E 54 22 57 48 49 43 48 20 50 4C 41 59 45 52 20 NT"WHICH PLAYER 000790: 54 4F 20 42 45 20 4D 4F 56 45 44 20 20 20 20 20 TO BE MOVED 0007A0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 4C 4F 43 ":LOC 0007B0: 41 54 45 20 32 37 2C 32 33 3A 50 52 49 4E 54 20 ATE 27,23:PRINT 0007C0: 69 3A 52 45 54 55 52 4E 0D 0A 32 30 35 20 4C 4F i:RETURN..205 LO 0007D0: 43 41 54 45 20 31 2C 32 31 3A 50 52 49 4E 54 22 CATE 1,21:PRINT" 0007E0: 57 48 49 43 48 20 54 45 41 4D 3A 20 20 20 20 20 WHICH TEAM: 0007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000800: 20 20 20 20 22 3A 4C 4F 43 41 54 45 20 31 32 75 ":LOCATE 12u 000810: 4A FF FF FF FF J....
previousnext* BLOCK 0027 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 9
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 476
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 621
Length of ONE bit pulse : 1242
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 141

Duration : 2155 ms
Pause After this block : 20 ms
Duration block + Pause : 2175 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 09 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 54 2E FF FF FF FF .T.....
previousnext* BLOCK 0028 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 589
Length of ONE bit pulse : 1178
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 128 102

Duration : 9096 ms
Pause After this block : 2897 ms
Duration block + Pause : 11993 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 2C 32 31 3A 50 52 49 4E 54 20 61 24 28 69 29 .,21:PRINT a$(i) 000010: 3B 41 42 53 28 6B 28 69 29 29 3A 52 45 54 55 52 ;ABS(k(i)):RETUR 000020: 4E 0D 0A 32 30 36 20 69 62 3D 32 2D 28 69 3C 31 N..206 ib=2-(i<1 000030: 32 29 2A 69 2D 28 69 3E 31 31 20 41 4E 44 20 69 2)*i-(i>11 AND i 000040: 3C 31 37 29 2A 28 69 2B 31 29 2D 28 69 3E 31 36 <17)*(i+1)-(i>16 000050: 20 41 4E 44 20 69 3C 32 33 29 2A 28 69 2D 31 36 AND i<23)*(i-16 000060: 29 2D 28 69 3E 32 32 29 2A 28 69 2D 31 35 29 3A )-(i>22)*(i-15): 000070: 69 63 3D 32 2D 28 69 3E 31 36 29 2A 31 39 3A 47 ic=2-(i>16)*19:G 000080: 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 45 20 OSUB 211:LOCATE 000090: 69 63 2D 31 2C 69 62 2B 31 3A 50 52 49 4E 54 20 ic-1,ib+1:PRINT 0000A0: 69 3B 7A 24 3B 22 20 22 3B 62 24 28 69 29 3B 22 i;z$;" ";b$(i);" 0000B0: 20 20 20 22 3A 4C 4F 43 41 54 45 20 69 63 2B 31 ":LOCATE ic+1 0000C0: 32 2C 69 62 2B 31 3A 50 52 49 4E 54 20 49 4E 54 2,ib+1:PRINT INT 0000D0: 28 61 28 69 29 29 3B 78 24 3B 49 4E 54 28 41 42 (a(i));x$;INT(AB 0000E0: 53 28 67 28 69 29 29 29 3A 52 45 54 55 52 4E 0D S(g(i))):RETURN. 0000F0: 0A 32 30 37 20 4C 4F 43 41 54 45 20 31 2C 32 33 .207 LOCATE 1,23 000100: 3A B6 BF 50 45 4E 20 32 3A 50 52 49 4E 54 22 4D :..PEN 2:PRINT"M 000110: 2D 4D 45 4E 55 20 43 2D 43 48 41 4E 47 45 20 48 -MENU C-CHANGE H 000120: 2D 48 4F 50 45 46 55 4C 4C 53 20 49 2D 49 4E 46 -HOPEFULLS I-INF 000130: 4F 52 4D 2F 49 4F 4E 22 3A 50 45 4E 20 31 3A 52 ORM/ION":PEN 1:R 000140: 45 54 55 52 4E 0D 0A 32 30 38 20 4C 4F 43 41 54 ETURN..208 LOCAT 000150: 45 20 79 32 2B 34 2C 79 31 2B 31 3A 50 52 49 4E E y2+4,y1+1:PRIN 000160: 54 22 47 4F 41 4C 4B 45 45 50 45 52 22 3A 4C 4F T"GOALKEEPER":LO 000170: 43 41 54 45 20 79 32 2B 34 2C 79 31 2B 32 3A 50 CATE y2+4,y1+2:P 000180: 52 49 4E 54 22 44 45 46 45 4E 43 45 22 3A 4C 4F RINT"DEFENCE":LO 000190: 43 41 54 45 20 79 32 2B 34 2C 79 31 2B 33 3A 50 CATE y2+4,y1+3:P 0001A0: 52 49 4E 54 22 4D 49 44 46 49 45 4C 44 22 3A 4C RINT"MIDFIELD":L 0001B0: 4F 43 41 54 45 20 79 32 2B 34 2C 79 31 2B 34 3A OCATE y2+4,y1+4: 0001C0: 50 52 49 4E 54 22 41 54 54 41 43 4B 22 3A 52 45 PRINT"ATTACK":RE 0001D0: 54 55 52 4E 0D 0A 32 30 39 20 4C 4F 43 41 54 45 TURN..209 LOCATE 0001E0: 20 61 64 2B 31 37 2C 33 3A 50 52 49 4E 54 22 54 ad+17,3:PRINT"T 0001F0: 20 20 20 46 22 3A 46 4F 52 20 69 3D 31 37 20 54 F":FOR i=17 T 000200: 4F 20 32 9F A1 32 3A 47 4F 53 55 42 20 32 31 31 O 2..2:GOSUB 211 000210: 3A 4C 4F 43 41 54 45 20 61 64 2B 33 2C 69 2D 31 :LOCATE ad+3,i-1 000220: 33 3A 50 52 49 4E 54 20 69 3B 7A 24 22 20 22 3B 3:PRINT i;z$" "; 000230: 62 24 28 69 29 3A 4C 4F 43 41 54 45 20 61 64 2B b$(i):LOCATE ad+ 000240: 31 36 2C 69 2D 31 33 3A 50 52 49 4E 54 20 49 4E 16,i-13:PRINT IN 000250: 54 28 61 28 69 29 29 3B 78 24 3B 49 4E 54 28 41 T(a(i));x$;INT(A 000260: 42 53 28 67 28 69 29 29 29 3A 4E 45 58 54 3A 52 BS(g(i))):NEXT:R 000270: 45 54 55 52 4E 0D 0A 32 31 30 20 61 66 3D 61 66 ETURN..210 af=af 000280: 2D 28 61 6D 3D 31 29 2A 32 3A 61 67 3D 61 67 2D -(am=1)*2:ag=ag- 000290: 28 61 6D 3D 31 29 2A 32 3A 52 45 54 55 52 4E 0D (am=1)*2:RETURN. 0002A0: 0A 32 31 31 20 49 46 20 70 28 69 29 3E 30 20 54 .211 IF p(i)>0 T 0002B0: 48 45 4E 20 78 24 3D 22 49 22 3A 47 4F 54 4F 20 HEN x$="I":GOTO 0002C0: 32 31 32 20 45 4C 53 45 20 49 46 20 67 28 69 29 212 ELSE IF g(i) 0002D0: 3C 30 20 54 48 45 4E 20 78 24 3D 22 53 22 3A 47 <0 THEN x$="S":G 0002E0: 4F 54 4F 20 32 31 32 20 45 4C 53 45 20 49 46 20 OTO 212 ELSE IF 0002F0: 61 28 69 29 3D 30 20 54 48 45 4E 20 78 24 3D 22 a(i)=0 THEN x$=" 000300: 52 22 3A 47 4F 4A 50 54 4F 20 32 31 32 20 45 4C R":GOJPTO 212 EL 000310: 53 45 20 49 46 20 68 28 61 62 29 3D 31 20 4F 52 SE IF h(ab)=1 OR 000320: 20 61 62 3D 6E 28 31 2C 69 29 20 41 4E 44 20 61 ab=n(1,i) AND a 000330: 63 3C 6E 28 32 2C 69 29 20 54 48 45 4E 20 78 24 c<n(2,i) THEN x$ 000340: 3D 22 41 22 3A 47 4F 54 4F 20 32 31 32 20 45 4C ="A":GOTO 212 EL 000350: 53 45 20 78 24 3D 22 20 22 0D 0A 32 31 32 20 49 SE x$=" "..212 I 000360: 46 20 65 28 69 29 3D 31 20 54 48 45 4E 20 32 31 F e(i)=1 THEN 21 000370: 33 20 45 4C 53 45 20 49 46 20 65 28 69 29 3D 32 3 ELSE IF e(i)=2 000380: 20 54 48 45 4E 20 32 31 34 20 45 4C 53 45 20 49 THEN 214 ELSE I 000390: 46 20 65 28 69 29 3D 33 20 54 48 45 4E 20 32 31 F e(i)=3 THEN 21 0003A0: 35 20 45 4C 53 45 20 32 31 36 0D 0A 32 31 33 20 5 ELSE 216..213 0003B0: 7A 24 3D 22 47 22 3A 52 45 54 55 52 4E 0D 0A 32 z$="G":RETURN..2 0003C0: 31 34 20 7A 24 3D 22 44 22 3A 52 45 54 55 52 4E 14 z$="D":RETURN 0003D0: 0D 0A 32 31 35 20 7A 24 3D 22 4D 22 3A 52 45 54 ..215 z$="M":RET 0003E0: 55 52 4E 0D 0A 32 31 36 20 7A 24 3D 22 41 22 3A URN..216 z$="A": 0003F0: 52 45 54 55 52 4E 0D 0A 32 31 37 20 47 4F 53 55 RETURN..217 GOSU 000400: 42 20 32 38 32 3A 46 87 1F 4F 52 20 69 3D 31 20 B 282:F..OR i=1 000410: 54 4F 20 34 30 3A 62 28 69 29 3D 62 28 69 29 2B TO 40:b(i)=b(i)+ 000420: 31 3A 61 28 69 29 3D 61 28 69 29 2D 28 62 28 69 1:a(i)=a(i)-(b(i 000430: 29 3C 32 39 29 2A 30 2E 34 2B 28 62 28 69 29 3E )<29)*0.4+(b(i)> 000440: 32 38 29 2A 30 2E 38 3A 61 28 69 29 3D 61 28 69 28)*0.8:a(i)=a(i 000450: 29 2B 28 61 28 69 29 3E 39 2E 39 29 2A 28 61 28 )+(a(i)>9.9)*(a( 000460: 69 29 2D 39 2E 39 29 2D 28 61 28 69 29 3C 31 29 i)-9.9)-(a(i)<1) 000470: 2A 28 41 42 53 28 61 28 69 29 29 2B 31 29 3A 4E *(ABS(a(i))+1):N 000480: 45 58 54 3A 47 4F 53 55 42 20 31 39 31 3A 46 4F EXT:GOSUB 191:FO 000490: 52 20 69 3D 31 20 54 4F 20 36 30 3A 6B 28 69 29 R i=1 TO 60:k(i) 0004A0: 3D 41 42 53 28 6B 28 69 29 29 3A 4E 45 58 54 3A =ABS(k(i)):NEXT: 0004B0: 6B 28 62 69 29 3D 6B 28 62 69 29 2D 6B 28 62 69 k(bi)=k(bi)-k(bi 0004C0: 29 2A 32 0D 0A 32 31 38 20 62 65 3D 62 65 2B 28 )*2..218 be=be+( 0004D0: 6A 24 28 31 29 3C 3E 79 24 28 31 29 20 41 4E 44 j$(1)<>y$(1) AND 0004E0: 20 6A 24 28 32 29 3C 3E 79 24 28 31 29 20 41 4E j$(2)<>y$(1) AN 0004F0: 44 20 6A 24 28 33 29 3C 3E 79 24 28 31 29 20 41 D j$(3)<>y$(1) A 000500: 4E 44 20 6A 24 28 34 29 3C D3 47 3E 79 24 28 31 ND j$(4)<.G>y$(1 000510: 29 20 41 4E 44 20 67 24 28 31 29 3C 3E 79 24 28 ) AND g$(1)<>y$( 000520: 31 29 29 2A 62 65 2A 32 3A 49 46 20 62 67 3C 3E 1))*be*2:IF bg<> 000530: 30 20 41 4E 44 20 62 65 3C 30 20 54 48 45 4E 20 0 AND be<0 THEN 000540: 62 66 3D 62 65 3A 47 4F 53 55 42 20 34 31 39 3A bf=be:GOSUB 419: 000550: 47 4F 53 55 42 20 31 31 38 3A 47 4F 53 55 42 20 GOSUB 118:GOSUB 000560: 33 38 31 3A 47 4F 54 4F 20 32 32 34 0D 0A 32 31 381:GOTO 224..21 000570: 39 20 49 46 20 62 67 3C 3E 30 20 41 4E 44 20 62 9 IF bg<>0 AND b 000580: 65 3E 30 20 54 48 45 4E 20 62 66 3D 62 65 3A 47 e>0 THEN bf=be:G 000590: 4F 53 55 42 20 34 31 39 3A 47 4F 53 55 42 20 31 OSUB 419:GOSUB 1 0005A0: 31 38 3A 47 4F 53 55 42 20 33 38 31 3A 47 4F 54 18:GOSUB 381:GOT 0005B0: 4F 20 32 32 34 0D 0A 32 32 30 20 49 46 20 62 67 O 224..220 IF bg 0005C0: 3D 30 20 54 48 45 4E 20 62 68 3D 30 3A 47 4F 53 =0 THEN bh=0:GOS 0005D0: 55 42 20 35 37 3A 62 65 3D 41 42 53 28 62 65 29 UB 57:be=ABS(be) 0005E0: 3A 62 65 3D 62 65 2D 28 62 65 3D 31 29 2B 28 62 :be=be-(be=1)+(b 0005F0: 65 3D 32 29 3A 47 4F 53 55 42 20 34 31 39 3A 47 e=2):GOSUB 419:G 000600: 4F 53 55 42 20 34 32 30 3A 47 4F 96 AD 53 55 42 OSUB 420:GO..SUB 000610: 20 31 31 38 3A 47 4F 53 55 42 20 33 38 31 0D 0A 118:GOSUB 381.. 000620: 32 32 31 20 49 46 20 62 65 3D 31 20 41 4E 44 20 221 IF be=1 AND 000630: 6A 24 28 31 29 3D 79 24 28 31 29 20 4F 52 20 62 j$(1)=y$(1) OR b 000640: 65 3D 31 20 41 4E 44 20 79 24 28 31 29 3D 6A 24 e=1 AND y$(1)=j$ 000650: 28 32 29 20 54 48 45 4E 20 33 37 32 0D 0A 32 32 (2) THEN 372..22 000660: 32 20 49 46 20 62 65 3D 32 20 41 4E 44 20 6A 24 2 IF be=2 AND j$ 000670: 28 33 29 3D 79 24 28 31 29 20 4F 52 20 62 65 3D (3)=y$(1) OR be= 000680: 32 20 41 4E 44 20 6A 24 28 34 29 3D 79 24 28 31 2 AND j$(4)=y$(1 000690: 29 20 54 48 45 4E 20 33 37 32 0D 0A 32 32 33 20 ) THEN 372..223 0006A0: 47 4F 53 55 42 20 33 30 35 3A 47 4F 54 4F 20 33 GOSUB 305:GOTO 3 0006B0: 37 32 0D 0A 32 32 34 20 47 4F 53 55 42 20 32 34 72..224 GOSUB 24 0006C0: 34 3A 49 46 20 67 24 28 31 29 3C 3E 22 22 20 54 4:IF g$(1)<>"" T 0006D0: 48 45 4E 20 32 32 37 0D 0A 32 32 35 20 72 61 3D HEN 227..225 ra= 0006E0: 31 2B 49 4E 54 28 52 4E 44 2A 32 39 29 3A 49 46 1+INT(RND*29):IF 0006F0: 20 61 24 28 72 61 29 3D 6A 24 28 31 29 20 4F 52 a$(ra)=j$(1) OR 000700: 20 61 24 28 72 61 29 3D 6A 24 28 32 29 D0 87 20 a$(ra)=j$(2).. 000710: 4F 52 20 61 24 28 72 61 29 3D 6A 24 28 33 29 20 OR a$(ra)=j$(3) 000720: 4F 52 20 61 24 28 72 61 29 3D 6A 24 28 34 29 20 OR a$(ra)=j$(4) 000730: 4F 52 20 61 24 28 72 61 29 3D 79 24 28 31 29 20 OR a$(ra)=y$(1) 000740: 54 48 45 4E 20 32 32 35 0D 0A 32 32 36 20 67 24 THEN 225..226 g$ 000750: 28 31 29 3D 61 24 28 72 61 29 0D 0A 32 32 37 20 (1)=a$(ra)..227 000760: 62 68 3D 37 3A 68 24 28 38 29 3D 4C 45 46 54 24 bh=7:h$(8)=LEFT$ 000770: 28 67 24 28 31 29 2C 39 29 2B 4C 45 46 54 24 28 (g$(1),9)+LEFT$( 000780: 4D 49 44 24 28 68 24 28 38 29 2C 31 30 29 2C 32 MID$(h$(8),10),2 000790: 29 2B 22 56 22 2B 4D 49 44 24 28 68 24 28 38 29 )+"V"+MID$(h$(8) 0007A0: 2C 31 33 29 3A 49 46 20 41 42 53 28 62 66 29 3D ,13):IF ABS(bf)= 0007B0: 32 20 54 48 45 4E 20 32 32 39 0D 0A 32 32 38 20 2 THEN 229..228 0007C0: 64 24 28 36 29 3D 22 45 43 20 46 49 4E 41 4C 53 d$(6)="EC FINALS 0007D0: 20 20 20 22 3A 68 24 28 31 35 29 3D 4C 45 46 54 ":h$(15)=LEFT 0007E0: 24 28 68 24 28 31 35 29 2C 31 34 29 2B 6A 24 28 $(h$(15),14)+j$( 0007F0: 31 29 2B 4D 49 44 24 28 68 24 28 31 35 29 2C 32 1)+MID$(h$(15),2 000800: 34 29 3A 68 24 28 31 34 29 3D 4C 45 46 54 24 6B 4):h$(14)=LEFT$k 000810: 1F FF FF FF FF .....
previousnext* BLOCK 0029 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 10
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 621
Length of ONE bit pulse : 1242
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 139

Duration : 2155 ms
Pause After this block : 20 ms
Duration block + Pause : 2175 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 0A 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 6D 12 FF FF FF FF .m.....
previousnext* BLOCK 0030 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1179
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 588
Length of ONE bit pulse : 1177
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 125 928

Duration : 9108 ms
Pause After this block : 2898 ms
Duration block + Pause : 12006 ms
Duration block + Pause : 00 h 00 m 12 s		000000: 16 28 68 24 28 31 34 29 2C 31 34 29 2B 6A 24 28 .(h$(14),14)+j$( 000010: 32 29 2B 4D 49 44 24 28 68 24 28 31 34 29 2C 32 2)+MID$(h$(14),2 000020: 34 29 3A 78 31 3D 31 3A 78 32 3D 32 3A 47 4F 53 4):x1=1:x2=2:GOS 000030: 55 42 20 33 37 30 3A 47 4F 54 4F 20 32 33 30 0D UB 370:GOTO 230. 000040: 0A 32 32 39 20 64 24 28 36 29 3D 22 57 43 20 46 .229 d$(6)="WC F 000050: 49 4E 41 4C 53 20 20 20 22 3A 68 24 28 31 35 29 INALS ":h$(15) 000060: 3D 4C 45 46 54 24 28 68 24 28 31 35 29 2C 31 34 =LEFT$(h$(15),14 000070: 29 2B 6A 24 28 33 29 2B 4D 49 44 24 28 68 24 28 )+j$(3)+MID$(h$( 000080: 31 35 29 2C 32 34 29 3A 68 24 28 31 34 29 3D 4C 15),24):h$(14)=L 000090: 45 46 54 24 28 68 24 28 31 34 29 2C 31 34 29 2B EFT$(h$(14),14)+ 0000A0: 6A 24 28 34 29 2B 4D 49 44 24 28 68 24 28 31 34 j$(4)+MID$(h$(14 0000B0: 29 2C 32 34 29 3A 78 31 3D 33 3A 78 32 3D 34 3A ),24):x1=3:x2=4: 0000C0: 47 4F 53 55 42 20 33 37 30 0D 0A 32 33 30 20 68 GOSUB 370..230 h 0000D0: 28 36 29 3D 62 68 3A 78 78 3D 31 33 0D 0A 32 33 (6)=bh:xx=13..23 0000E0: 31 20 50 45 4E 20 31 3A 4C 4F 43 41 54 45 20 35 1 PEN 1:LOCATE 5 0000F0: 2C 31 32 3A 50 52 49 4E 54 20 68 24 28 38 29 3A ,12:PRINT h$(8): 000100: 4C 61 ED 4F 43 41 54 45 20 35 2C 31 38 3A 50 52 La.OCATE 5,18:PR 000110: 49 4E 54 20 68 24 28 31 34 29 3A 4C 4F 43 41 54 INT h$(14):LOCAT 000120: 45 20 35 2C 31 39 3A 50 52 49 4E 54 20 68 24 28 E 5,19:PRINT h$( 000130: 31 35 29 3A 46 4F 52 20 49 3D 31 20 54 4F 20 36 15):FOR I=1 TO 6 000140: 2B 28 41 42 53 28 42 46 29 3D 31 29 2A 35 3A 49 +(ABS(BF)=1)*5:I 000150: 46 20 41 42 53 28 62 66 29 3D 31 20 54 48 45 4E F ABS(bf)=1 THEN 000160: 20 47 4F 53 55 42 20 33 37 34 20 45 4C 53 45 20 GOSUB 374 ELSE 000170: 47 4F 53 55 42 20 33 38 32 0D 0A 32 33 32 20 46 GOSUB 382..232 F 000180: 4F 52 20 4B 3D 31 20 54 4F 20 52 41 0D 0A 32 33 OR K=1 TO RA..23 000190: 33 20 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3 RANDOMIZE TIME 0001A0: 3A 72 62 3D 2D 33 30 2B 49 4E 54 28 52 4E 44 2A :rb=-30+INT(RND* 0001B0: 39 31 29 3A 52 42 3D 52 42 2B 28 28 52 42 3C 30 91):RB=RB+((RB<0 0001C0: 29 2A 52 42 29 2B 31 3A 61 31 3D 30 0D 0A 32 33 )*RB)+1:a1=0..23 0001D0: 34 20 46 4F 52 20 6A 3D 72 28 31 2C 69 29 20 54 4 FOR j=r(1,i) T 0001E0: 4F 20 72 28 32 2C 69 29 3A 72 62 3D 31 2B 49 4E O r(2,i):rb=1+IN 0001F0: 54 28 52 4E 44 2A 36 30 29 3A 50 45 4E 20 32 3A T(RND*60):PEN 2: 000200: 4C 4F 43 9A 51 41 54 45 20 31 35 2C 31 30 3A 50 LOC.QATE 15,10:P 000210: 52 49 4E 54 22 44 52 41 57 20 22 3A 4C 4F 43 41 RINT"DRAW ":LOCA 000220: 54 45 20 32 31 2C 31 30 3A 50 52 49 4E 54 20 6A TE 21,10:PRINT j 000230: 3A 49 46 20 41 42 53 28 6B 28 6A 29 29 3D 72 62 :IF ABS(k(j))=rb 000240: 2B 61 31 20 4F 52 20 41 42 53 28 6B 28 6A 29 29 +a1 OR ABS(k(j)) 000250: 3D 72 62 2D 61 31 20 54 48 45 4E 20 52 41 3D 4A =rb-a1 THEN RA=J 000260: 3A 4A 3D 39 38 0D 0A 32 33 35 20 4E 45 58 54 3A :J=98..235 NEXT: 000270: 49 46 20 4A 3C 39 39 20 54 48 45 4E 20 50 45 4E IF J<99 THEN PEN 000280: 20 31 20 45 4C 53 45 20 4A 3D 52 41 3A 47 4F 54 1 ELSE J=RA:GOT 000290: 4F 20 32 33 39 0D 0A 32 33 36 20 61 31 3D 61 31 O 239..236 a1=a1 0002A0: 2B 31 3A 47 4F 54 4F 20 32 33 34 0D 0A 32 33 37 +1:GOTO 234..237 0002B0: 20 4E 45 58 54 0D 0A 32 33 38 20 4E 45 58 54 3A NEXT..238 NEXT: 0002C0: 49 46 20 49 3D 39 39 20 54 48 45 4E 20 36 33 20 IF I=99 THEN 63 0002D0: 45 4C 53 45 20 32 34 36 0D 0A 32 33 39 20 47 4F ELSE 246..239 GO 0002E0: 54 4F 20 36 33 0D 0A 32 34 34 20 46 4F 52 20 69 TO 63..244 FOR i 0002F0: 3D 31 20 54 4F 20 31 35 3A 68 24 28 69 29 3D 53 =1 TO 15:h$(i)=S 000300: 54 52 49 4E 47 ED 46 24 28 32 34 2C 22 20 22 29 TRING.F$(24," ") 000310: 3A 71 24 3D 4D 49 44 24 28 68 24 28 69 29 2C 31 :q$=MID$(h$(i),1 000320: 33 29 3A 68 24 28 69 29 3D 4C 45 46 54 24 28 68 3):h$(i)=LEFT$(h 000330: 24 28 69 29 2C 31 31 29 2B 22 56 22 2B 4C 45 46 $(i),11)+"V"+LEF 000340: 54 24 28 71 24 2C 31 31 29 2B 43 48 52 24 28 33 T$(q$,11)+CHR$(3 000350: 32 29 2B 65 24 28 36 29 0D 0A 32 34 35 20 61 33 2)+e$(6)..245 a3 000360: 3D 32 38 2B 28 69 3E 31 20 41 4E 44 20 69 3C 34 =28+(i>1 AND i<4 000370: 29 2A 37 2B 28 69 3E 33 20 41 4E 44 20 69 3C 38 )*7+(i>3 AND i<8 000380: 29 2A 31 34 2B 28 69 3E 37 29 2A 32 31 3A 68 24 )*14+(i>7)*21:h$ 000390: 28 69 29 3D 4C 45 46 54 24 28 68 24 28 69 29 2C (i)=LEFT$(h$(i), 0003A0: 32 38 29 2B 53 54 52 24 28 61 33 29 3A 4E 45 58 28)+STR$(a3):NEX 0003B0: 54 3A 52 45 54 55 52 4E 0D 0A 32 34 36 20 47 4F T:RETURN..246 GO 0003C0: 53 55 42 20 34 32 30 3A 49 46 20 41 42 53 28 62 SUB 420:IF ABS(b 0003D0: 66 29 3D 32 20 54 48 45 4E 20 32 34 38 0D 0A 32 f)=2 THEN 248..2 0003E0: 34 37 20 64 24 28 36 29 3D 22 45 43 20 46 49 4E 47 d$(6)="EC FIN 0003F0: 41 4C 53 20 20 20 22 3A 47 4F 54 4F 20 32 34 39 ALS ":GOTO 249 000400: 0D 0A 32 34 38 20 64 7E 7A 24 28 36 29 3D 22 57 ..248 d~z$(6)="W 000410: 43 20 46 49 4E 41 4C 53 20 20 20 22 0D 0A 32 34 C FINALS "..24 000420: 39 20 47 4F 53 55 42 20 33 37 33 3A 47 4F 54 4F 9 GOSUB 373:GOTO 000430: 20 33 37 32 0D 0A 32 35 30 20 6F 28 31 29 3D 6F 372..250 o(1)=o 000440: 28 31 29 2D 28 65 28 31 29 3D 31 29 2A 73 3A 46 (1)-(e(1)=1)*s:F 000450: 4F 52 20 69 3D 31 37 20 54 4F 20 34 30 3A 67 28 OR i=17 TO 40:g( 000460: 69 29 3D 67 28 69 29 2D 28 67 28 69 29 3C 31 29 i)=g(i)-(g(i)<1) 000470: 2A 41 42 53 28 67 28 69 29 29 2A 32 3A 4E 45 58 *ABS(g(i))*2:NEX 000480: 54 3A 47 4F 53 55 42 20 32 35 31 3A 61 65 3D 61 T:GOSUB 251:ae=a 000490: 65 2B 28 61 65 3E 39 29 3A 61 66 3D 61 66 2B 28 e+(ae>9):af=af+( 0004A0: 61 66 3E 39 29 3A 61 67 3D 61 67 2B 28 61 67 3E af>9):ag=ag+(ag> 0004B0: 39 29 3A 61 68 3D 61 68 2B 28 61 68 3E 39 29 3A 9):ah=ah+(ah>9): 0004C0: 61 69 3D 61 69 2B 28 61 69 3E 39 29 3A 61 6A 3D ai=ai+(ai>9):aj= 0004D0: 61 6A 2B 28 61 6A 3E 39 29 3A 61 6B 3D 61 6B 2B aj+(aj>9):ak=ak+ 0004E0: 28 61 6B 3E 39 29 3A 61 6C 3D 61 6C 2B 28 61 6C (ak>9):al=al+(al 0004F0: 3E 39 29 3A 47 4F 54 4F 20 32 35 35 0D 0A 32 35 >9):GOTO 255..25 000500: 31 20 46 4F 52 20 6B 3D 31 03 09 20 54 4F 20 31 1 FOR k=1.. TO 1 000510: 36 3A 49 46 20 67 28 6B 29 3C 30 20 54 48 45 4E 6:IF g(k)<0 THEN 000520: 20 61 64 3D 6B 3A 47 4F 53 55 42 20 32 35 33 3A ad=k:GOSUB 253: 000530: 47 4F 53 55 42 20 31 39 35 0D 0A 32 35 32 20 4E GOSUB 195..252 N 000540: 45 58 54 3A 52 45 54 55 52 4E 0D 0A 32 35 33 20 EXT:RETURN..253 000550: 46 4F 52 20 69 3D 31 37 20 54 4F 20 32 34 3A 49 FOR i=17 TO 24:I 000560: 46 20 67 28 69 29 3E 30 20 41 4E 44 20 61 28 69 F g(i)>0 AND a(i 000570: 29 3E 30 20 41 4E 44 20 70 28 69 29 3D 30 20 54 )>0 AND p(i)=0 T 000580: 48 45 4E 20 46 4C 41 47 3D 49 3A 49 3D 39 38 0D HEN FLAG=I:I=98. 000590: 0A 32 35 34 20 4E 45 58 54 3A 49 46 20 49 3D 39 .254 NEXT:IF I=9 0005A0: 39 20 54 48 45 4E 20 49 3D 46 4C 41 47 3A 52 45 9 THEN I=FLAG:RE 0005B0: 54 55 52 4E 20 45 4C 53 45 20 49 46 20 65 78 3D TURN ELSE IF ex= 0005C0: 31 20 41 4E 44 20 6E 3C 33 30 20 4F 52 20 65 78 1 AND n<30 OR ex 0005D0: 3D 30 20 41 4E 44 20 6E 3C 39 30 20 54 48 45 4E =0 AND n<90 THEN 0005E0: 20 31 35 33 20 45 4C 53 45 20 32 35 32 0D 0A 32 153 ELSE 252..2 0005F0: 35 35 20 47 4F 53 55 42 20 31 35 30 3A 49 46 20 55 GOSUB 150:IF 000600: 72 61 3E 34 20 54 48 45 4E 20 32 E4 51 35 39 0D ra>4 THEN 2.Q59. 000610: 0A 32 35 36 20 46 4F 52 20 69 3D 31 37 20 54 4F .256 FOR i=17 TO 000620: 20 34 30 3A 49 46 20 62 28 69 29 3C 32 38 20 54 40:IF b(i)<28 T 000630: 48 45 4E 20 32 35 38 0D 0A 32 35 37 20 61 28 69 HEN 258..257 a(i 000640: 29 3D 30 3A 62 28 69 29 3D 30 3A 63 28 69 29 3D )=0:b(i)=0:c(i)= 000650: 30 3A 64 28 69 29 3D 30 3A 66 28 69 29 3D 30 3A 0:d(i)=0:f(i)=0: 000660: 67 28 69 29 3D 30 3A 6F 28 69 29 3D 30 3A 70 28 g(i)=0:o(i)=0:p( 000670: 69 29 3D 30 3A 6E 28 32 2C 69 29 3D 30 3A 49 3D i)=0:n(2,i)=0:I= 000680: 34 31 0D 0A 32 35 38 20 4E 45 58 54 0D 0A 32 35 41..258 NEXT..25 000690: 39 20 47 4F 53 55 42 20 31 35 30 3A 49 46 20 72 9 GOSUB 150:IF r 0006A0: 61 3E 33 20 54 48 45 4E 20 32 36 32 0D 0A 32 36 a>3 THEN 262..26 0006B0: 30 20 72 61 3D 31 32 2B 49 4E 54 28 52 4E 44 2A 0 ra=12+INT(RND* 0006C0: 32 38 29 2B 31 3A 49 46 20 61 28 72 61 29 3D 30 28)+1:IF a(ra)=0 0006D0: 20 4F 52 20 70 28 72 61 29 3E 30 20 4F 52 20 67 OR p(ra)>0 OR g 0006E0: 28 72 61 29 3C 30 20 54 48 45 4E 20 32 36 30 0D (ra)<0 THEN 260. 0006F0: 0A 32 36 31 20 70 28 72 61 29 3D 31 2B 49 4E 54 .261 p(ra)=1+INT 000700: 28 52 4E 44 2A 39 39 29 0D 0A 32 36 32 99 FB 20 (RND*99)..262.. 000710: 62 6D 3D 30 3A 62 62 3D 30 3A 72 61 3D 28 49 4E bm=0:bb=0:ra=(IN 000720: 54 28 41 42 53 28 6B 28 67 34 29 29 2D 41 42 53 T(ABS(k(g4))-ABS 000730: 28 6B 28 62 69 29 29 29 29 2F 31 30 3A 46 4F 52 (k(bi))))/10:FOR 000740: 20 69 3D 31 20 54 4F 20 31 31 3A 67 28 69 29 3D i=1 TO 11:g(i)= 000750: 67 28 69 29 2B 28 67 28 69 29 3C 31 29 2A 28 67 g(i)+(g(i)<1)*(g 000760: 28 69 29 2A 32 29 3A 63 28 69 29 3D 63 28 69 29 (i)*2):c(i)=c(i) 000770: 2B 31 3A 72 62 3D 30 2B 49 4E 54 28 52 4E 44 2A +1:rb=0+INT(RND* 000780: 31 31 29 2F 31 30 0D 0A 32 36 34 20 49 46 20 72 11)/10..264 IF r 000790: 3E 73 20 54 48 45 4E 20 46 28 49 29 3D 46 28 49 >s THEN F(I)=F(I 0007A0: 29 2D 28 52 41 3C 30 29 2A 28 28 28 41 42 53 28 )-(RA<0)*(((ABS( 0007B0: 52 41 2B 52 42 29 29 2F 28 31 2D 28 41 4D 3D 31 RA+RB))/(1-(AM=1 0007C0: 29 29 29 29 2D 28 52 41 3E 30 29 2A 28 52 42 2F ))))-(RA>0)*(RB/ 0007D0: 28 31 2D 28 41 4D 3D 31 29 29 29 0D 0A 32 36 35 (1-(AM=1)))..265 0007E0: 20 49 46 20 72 3C 73 20 54 48 45 4E 20 46 28 49 IF r<s THEN F(I 0007F0: 29 3D 46 28 49 29 2B 28 52 41 3C 30 29 2A 28 52 )=F(I)+(RA<0)*(R 000800: 42 2A 28 31 2D 28 41 4D 3D 31 29 29 29 2B 28 D0 B*(1-(AM=1)))+(. 000810: A1 FF FF FF FF .....
previousnext* BLOCK 0031 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 11
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 620
Length of ONE bit pulse : 1242
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 176

Duration : 2154 ms
Pause After this block : 20 ms
Duration block + Pause : 2174 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 0B 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 8A 19 FF FF FF FF .......
previousnext* BLOCK 0032 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 590
Length of ONE bit pulse : 1180
Length of PILOT tone : 4085
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 124 333

Duration : 9084 ms
Pause After this block : 2893 ms
Duration block + Pause : 11977 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 52 41 3E 30 29 2A 28 28 28 52 41 2B 52 42 29 .RA>0)*(((RA+RB) 000010: 2A 28 31 2D 28 41 4D 3D 31 29 29 29 29 0D 0A 32 *(1-(AM=1))))..2 000020: 36 36 20 49 46 20 72 3D 73 20 54 48 45 4E 20 46 66 IF r=s THEN F 000030: 28 49 29 3D 46 28 49 29 2D 28 28 52 41 3C 30 29 (I)=F(I)-((RA<0) 000040: 2A 28 41 42 53 28 52 41 2B 52 42 29 29 2F 32 29 *(ABS(RA+RB))/2) 000050: 2B 28 28 52 41 3E 30 29 2A 28 28 52 41 2B 52 42 +((RA>0)*((RA+RB 000060: 29 2F 32 29 29 0D 0A 32 36 37 20 46 28 49 29 3D )/2))..267 F(I)= 000070: 46 28 49 29 2B 28 28 46 28 49 29 3E 39 2E 39 29 F(I)+((F(I)>9.9) 000080: 2A 28 46 28 49 29 2D 39 2E 39 29 2D 28 46 28 49 *(F(I)-9.9)-(F(I 000090: 29 3C 31 29 2A 28 41 42 53 28 46 28 49 29 29 2B )<1)*(ABS(F(I))+ 0000A0: 31 29 29 3A 4E 45 58 54 3A 47 4F 53 55 42 20 31 1)):NEXT:GOSUB 1 0000B0: 39 31 0D 0A 32 36 38 20 47 4F 53 55 42 20 33 37 91..268 GOSUB 37 0000C0: 38 3A 47 4F 53 55 42 20 33 37 33 3A 49 46 20 4C 8:GOSUB 373:IF L 0000D0: 45 46 54 24 28 4D 49 44 24 28 64 24 28 61 62 29 EFT$(MID$(d$(ab) 0000E0: 2C 34 29 2C 36 29 3D 22 46 49 4E 41 4C 53 22 20 ,4),6)="FINALS" 0000F0: 54 48 45 4E 20 32 36 39 20 45 4C 53 45 20 32 37 THEN 269 ELSE 27 000100: 31 6D BD 0D 0A 32 36 39 20 49 46 20 62 66 3C 30 1m...269 IF bf<0 000110: 20 54 48 45 4E 20 32 37 31 0D 0A 32 37 30 20 72 THEN 271..270 r 000120: 61 3D 38 2B 28 62 68 3D 31 34 29 2A 34 2B 28 62 a=8+(bh=14)*4+(b 000130: 68 3D 32 31 29 2A 36 2B 28 62 68 3D 32 38 29 2A h=21)*6+(bh=28)* 000140: 37 3A 68 24 28 72 61 29 3D 4C 45 46 54 24 28 68 7:h$(ra)=LEFT$(h 000150: 24 28 72 61 29 2C 31 30 29 2B 53 54 52 24 28 72 $(ra),10)+STR$(r 000160: 29 2B 22 56 22 2B 53 54 52 24 28 73 29 2B 4D 49 )+"V"+STR$(s)+MI 000170: 44 24 28 68 24 28 72 61 29 2C 31 34 29 3A 72 31 D$(h$(ra),14):r1 000180: 3D 72 3A 73 31 3D 73 3A 77 3D 31 3A 47 4F 53 55 =r:s1=s:w=1:GOSU 000190: 42 20 34 36 3A 49 46 20 72 61 3D 31 20 54 48 45 B 46:IF ra=1 THE 0001A0: 4E 20 72 3D 72 31 3A 73 3D 73 31 3A 47 4F 53 55 N r=r1:s=s1:GOSU 0001B0: 42 20 33 33 35 3A 68 28 61 62 29 3D 62 68 3A 47 B 335:h(ab)=bh:G 0001C0: 4F 54 4F 20 32 37 39 20 45 4C 53 45 20 47 4F 53 OTO 279 ELSE GOS 0001D0: 55 42 20 35 32 3A 72 3D 72 31 3A 73 3D 73 31 3A UB 52:r=r1:s=s1: 0001E0: 47 4F 53 55 42 20 33 33 35 3A 68 28 61 62 29 3D GOSUB 335:h(ab)= 0001F0: 62 68 3A 47 4F 54 4F 20 32 37 39 0D 0A 32 37 31 bh:GOTO 279..271 000200: 20 49 46 D3 A5 20 4C 45 46 54 24 28 64 24 28 61 IF.. LEFT$(d$(a 000210: 62 29 2C 32 29 3D 22 54 4F 22 20 41 4E 44 20 74 b),2)="TO" AND t 000220: 28 74 31 29 3D 61 63 20 54 48 45 4E 20 74 24 28 (t1)=ac THEN t$( 000230: 74 31 29 3D 4C 45 46 54 24 28 74 24 28 74 31 29 t1)=LEFT$(t$(t1) 000240: 2C 39 29 2B 53 54 52 24 28 73 29 2B 53 54 52 24 ,9)+STR$(s)+STR$ 000250: 28 72 29 2B 4D 49 44 24 28 74 24 28 74 31 29 2C (r)+MID$(t$(t1), 000260: 31 32 29 3A 68 28 61 62 29 3D 68 28 61 62 29 2B 12):h(ab)=h(ab)+ 000270: 37 3A 68 28 61 62 29 3D 68 28 61 62 29 2B 28 68 7:h(ab)=h(ab)+(h 000280: 28 61 62 29 3E 32 38 29 2A 68 28 61 62 29 3A 47 (ab)>28)*h(ab):G 000290: 4F 54 4F 20 32 37 39 0D 0A 32 37 32 20 64 24 28 OTO 279..272 d$( 0002A0: 61 62 29 3D 4C 45 46 54 24 28 64 24 28 61 62 29 ab)=LEFT$(d$(ab) 0002B0: 2C 31 32 29 2B 53 54 52 24 28 73 29 2B 53 54 52 ,12)+STR$(s)+STR 0002C0: 24 28 72 29 2B 4D 49 44 24 28 64 24 28 61 62 29 $(r)+MID$(d$(ab) 0002D0: 2C 31 35 29 0D 0A 32 37 33 20 49 46 20 52 49 47 ,15)..273 IF RIG 0002E0: 48 54 24 28 4C 45 46 54 24 28 64 24 28 61 62 29 HT$(LEFT$(d$(ab) 0002F0: 2C 31 32 29 2C 32 29 3D 22 45 51 22 20 41 4E 44 ,12),2)="EQ" AND 000300: 20 52 49 47 48 33 07 54 24 28 4C 45 46 54 24 28 RIGH3.T$(LEFT$( 000310: 64 24 28 61 62 29 2C 31 30 29 2C 31 29 3D 22 48 d$(ab),10),1)="H 000320: 22 20 4F 52 20 52 49 47 48 54 24 28 4C 45 46 54 " OR RIGHT$(LEFT 000330: 24 28 64 24 28 61 62 29 2C 31 32 29 2C 32 29 3D $(d$(ab),12),2)= 000340: 22 57 51 22 20 41 4E 44 20 52 49 47 48 54 24 28 "WQ" AND RIGHT$( 000350: 4C 45 46 54 24 28 64 24 28 61 62 29 2C 31 30 29 LEFT$(d$(ab),10) 000360: 2C 31 29 3D 22 48 22 20 54 48 45 4E 20 4D 49 44 ,1)="H" THEN MID 000370: 24 28 68 24 28 61 62 2D 31 29 2C 31 31 2C 33 29 $(h$(ab-1),11,3) 000380: 3D 4D 49 44 24 28 53 54 52 24 28 52 29 2C 32 2C =MID$(STR$(R),2, 000390: 31 29 2B 53 54 52 24 28 73 29 3A 4D 49 44 24 28 1)+STR$(s):MID$( 0003A0: 48 24 28 41 42 2D 31 29 2C 31 32 2C 31 29 3D 22 H$(AB-1),12,1)=" 0003B0: 56 22 3A 47 4F 54 4F 20 32 37 36 0D 0A 32 37 34 V":GOTO 276..274 0003C0: 20 49 46 20 4C 45 46 54 24 28 4D 49 44 24 28 64 IF LEFT$(MID$(d 0003D0: 24 28 61 62 29 2C 31 31 29 2C 32 29 3D 22 45 51 $(ab),11),2)="EQ 0003E0: 22 20 41 4E 44 20 4C 45 46 54 24 28 4D 49 44 24 " AND LEFT$(MID$ 0003F0: 28 64 24 28 61 62 29 2C 31 30 29 2C 31 29 3D 22 (d$(ab),10),1)=" 000400: 41 22 20 4F 52 20 4C 7C 2E 45 46 54 24 28 4D 49 A" OR L|.EFT$(MI 000410: 44 24 28 64 24 28 61 62 29 2C 31 31 29 2C 32 29 D$(d$(ab),11),2) 000420: 3D 22 57 51 22 20 41 4E 44 20 4C 45 46 54 24 28 ="WQ" AND LEFT$( 000430: 4D 49 44 24 28 64 24 28 61 62 29 2C 31 30 29 2C MID$(d$(ab),10), 000440: 31 29 3D 22 41 22 20 54 48 45 4E 20 4D 49 44 24 1)="A" THEN MID$ 000450: 28 68 24 28 61 62 2D 31 29 2C 31 31 2C 33 29 3D (h$(ab-1),11,3)= 000460: 4D 49 44 24 28 53 54 52 24 28 53 29 2C 32 2C 31 MID$(STR$(S),2,1 000470: 29 2B 53 54 52 24 28 72 29 3A 4D 49 44 24 28 48 )+STR$(r):MID$(H 000480: 24 28 41 42 2D 31 29 2C 31 32 2C 31 29 3D 22 56 $(AB-1),12,1)="V 000490: 22 3A 47 4F 54 4F 20 32 37 36 0D 0A 32 37 35 20 ":GOTO 276..275 0004A0: 47 4F 54 4F 20 32 37 39 0D 0A 32 37 36 20 47 4F GOTO 279..276 GO 0004B0: 53 55 42 20 39 30 3A 72 24 3D 4C 45 46 54 24 28 SUB 90:r$=LEFT$( 0004C0: 68 24 28 61 62 29 2C 39 29 3A 73 24 3D 4C 45 46 h$(ab),9):s$=LEF 0004D0: 54 24 28 4D 49 44 24 28 68 24 28 61 62 29 2C 31 T$(MID$(h$(ab),1 0004E0: 35 29 2C 39 29 3A 46 4F 52 20 69 3D 31 20 54 4F 5),9):FOR i=1 TO 0004F0: 20 36 30 3A 49 46 20 72 24 3D 61 24 28 69 29 20 60:IF r$=a$(i) 000500: 54 48 45 4E 20 61 31 3D 69 2D 06 0D 0A 32 37 37 THEN a1=i-...277 000510: 20 49 46 20 61 24 28 69 29 3D 73 24 20 54 48 45 IF a$(i)=s$ THE 000520: 4E 20 61 32 3D 69 0D 0A 32 37 38 20 4E 45 58 54 N a2=i..278 NEXT 000530: 3A 53 24 3D 4C 45 46 54 24 28 48 24 28 41 42 29 :S$=LEFT$(H$(AB) 000540: 2C 39 29 3A 47 4F 53 55 42 20 33 34 39 3A 41 31 ,9):GOSUB 349:A1 000550: 3D 47 34 3A 53 24 3D 4D 49 44 24 28 48 24 28 41 =G4:S$=MID$(H$(A 000560: 42 29 2C 31 35 2C 39 29 3A 47 4F 53 55 42 20 33 B),15,9):GOSUB 3 000570: 34 39 3A 41 32 3D 47 34 3A 47 4F 53 55 42 20 33 49:A2=G4:GOSUB 3 000580: 33 36 3A 4D 49 44 24 28 68 24 28 61 62 29 2C 31 36:MID$(h$(ab),1 000590: 31 2C 33 29 3D 4D 49 44 24 28 53 54 52 24 28 52 1,3)=MID$(STR$(R 0005A0: 29 2C 32 2C 31 29 2B 53 54 52 24 28 53 29 3A 4D ),2,1)+STR$(S):M 0005B0: 49 44 24 28 48 24 28 41 42 29 2C 31 32 2C 31 29 ID$(H$(AB),12,1) 0005C0: 3D 22 56 22 3A 47 4F 53 55 42 20 39 30 3A 47 4F ="V":GOSUB 90:GO 0005D0: 53 55 42 20 38 32 3A 4C 4F 43 41 54 45 20 39 2C SUB 82:LOCATE 9, 0005E0: 31 36 3A 50 45 4E 20 31 3A 50 52 49 4E 54 20 4C 16:PEN 1:PRINT L 0005F0: 45 46 54 24 28 68 24 28 61 62 29 2C 32 34 29 0D EFT$(h$(ab),24). 000600: 0A 32 37 39 20 49 46 20 61 62 3C 73 A6 31 32 20 .279 IF ab<s.12 000610: 54 48 45 4E 20 47 4F 53 55 42 20 32 38 36 0D 0A THEN GOSUB 286.. 000620: 32 38 30 20 49 46 20 61 62 3D 31 32 20 41 4E 44 280 IF ab=12 AND 000630: 20 61 63 3D 33 31 20 54 48 45 4E 20 32 31 37 0D ac=31 THEN 217. 000640: 0A 32 38 31 20 4C 4F 43 41 54 45 20 31 30 2C 32 .281 LOCATE 10,2 000650: 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 20 20 1:PEN 2:PRINT" 000660: 20 20 20 20 20 4D 2D 4D 45 4E 55 20 20 20 20 20 M-MENU 000670: 20 20 20 20 22 3A 50 45 4E 20 31 3A 71 24 3D 49 ":PEN 1:q$=I 000680: 4E 4B 45 59 24 3A 71 24 3D 55 50 50 45 52 24 28 NKEY$:q$=UPPER$( 000690: 71 24 29 3A 49 46 20 71 24 3D 22 4D 22 20 54 48 q$):IF q$="M" TH 0006A0: 45 4E 20 47 4F 53 55 42 20 31 31 38 3A 47 4F 54 EN GOSUB 118:GOT 0006B0: 4F 20 31 30 38 20 45 4C 53 45 20 32 38 31 0D 0A O 108 ELSE 281.. 0006C0: 32 38 32 20 43 4C 53 3A 47 4F 53 55 42 20 33 37 282 CLS:GOSUB 37 0006D0: 33 3A 61 3D 31 3A 46 4F 52 20 69 3D 31 20 54 4F 3:a=1:FOR i=1 TO 0006E0: 20 34 30 3A 61 28 69 29 3D 61 28 69 29 2B 28 62 40:a(i)=a(i)+(b 0006F0: 28 69 29 3E 33 33 29 2A 61 28 69 29 3A 63 28 69 (i)>33)*a(i):c(i 000700: 29 3D 63 28 69 29 2B 28 61 28 69 29 3D DE 45 30 )=c(i)+(a(i)=.E0 000710: 29 2A 63 28 69 29 3A 49 46 20 61 28 69 29 3D 30 )*c(i):IF a(i)=0 000720: 20 54 48 45 4E 20 32 38 34 0D 0A 32 38 33 20 4E THEN 284..283 N 000730: 45 58 54 3A 52 45 54 55 52 4E 0D 0A 32 38 34 20 EXT:RETURN..284 000740: 7A 24 3D 62 24 28 69 29 3A 62 24 28 69 29 3D 66 z$=b$(i):b$(i)=f 000750: 24 28 61 29 3A 66 24 28 61 29 3D 7A 24 3A 47 4F $(a):f$(a)=z$:GO 000760: 53 55 42 20 32 38 35 3A 61 3D 61 2B 31 3A 61 3D SUB 285:a=a+1:a= 000770: 61 2B 28 61 3D 36 29 2A 35 3A 47 4F 54 4F 20 32 a+(a=6)*5:GOTO 2 000780: 38 33 0D 0A 32 38 35 20 65 28 69 29 3D 49 4E 54 83..285 e(i)=INT 000790: 28 31 2E 36 2B 28 52 4E 44 2A 33 2E 33 29 29 3A (1.6+(RND*3.3)): 0007A0: 61 28 69 29 3D 35 2B 49 4E 54 28 52 4E 44 2A 34 a(i)=5+INT(RND*4 0007B0: 39 29 2F 31 30 3A 67 28 69 29 3D 31 2B 49 4E 54 9)/10:g(i)=1+INT 0007C0: 28 52 4E 44 2A 38 39 29 2F 31 30 3A 64 28 69 29 (RND*89)/10:d(i) 0007D0: 3D 33 2B 49 4E 54 28 52 4E 44 2A 36 39 29 2F 31 =3+INT(RND*69)/1 0007E0: 30 3A 66 28 69 29 3D 31 2B 49 4E 54 28 52 4E 44 0:f(i)=1+INT(RND 0007F0: 2A 38 39 29 2F 31 30 3A 62 28 69 29 3D 31 38 2B *89)/10:b(i)=18+ 000800: 49 4E 54 28 52 4E 44 2A 31 31 29 2B 31 3A 47 24 INT(RND*11)+1:G$ 000810: 36 FF FF FF FF 6....
previousnext* BLOCK 0033 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 12
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 619
Length of ONE bit pulse : 1239
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 151

Duration : 2153 ms
Pause After this block : 19 ms
Duration block + Pause : 2172 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 0C 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 1F 6A FF FF FF FF ..j....
previousnext* BLOCK 0034 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 588
Length of ONE bit pulse : 1178
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 126 948

Duration : 9103 ms
Pause After this block : 2894 ms
Duration block + Pause : 11997 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 28 49 29 3D 47 28 49 29 2B 28 47 28 49 29 3E .(I)=G(I)+(G(I)> 000010: 41 28 49 29 29 2A 28 47 28 49 29 2D 41 28 49 29 A(I))*(G(I)-A(I) 000020: 29 3A 52 45 54 55 52 4E 0D 0A 32 38 36 20 62 6E ):RETURN..286 bn 000030: 3D 61 63 3A 46 4F 52 20 6D 3D 61 62 20 54 4F 20 =ac:FOR m=ab TO 000040: 31 32 3A 49 46 20 4C 45 46 54 24 28 64 24 28 6D 12:IF LEFT$(d$(m 000050: 29 2C 32 29 3D 22 54 4F 22 20 54 48 45 4E 20 32 ),2)="TO" THEN 2 000060: 38 37 20 45 4C 53 45 20 32 38 39 0D 0A 32 38 37 87 ELSE 289..287 000070: 20 49 46 20 4C 45 46 54 24 28 64 24 28 61 62 29 IF LEFT$(d$(ab) 000080: 2C 32 29 3D 22 54 4F 22 20 41 4E 44 20 68 28 61 ,2)="TO" AND h(a 000090: 62 29 3E 30 20 54 48 45 4E 20 72 61 3D 31 2D 28 b)>0 THEN ra=1-( 0000A0: 61 63 3D 37 29 2D 28 61 63 3D 31 34 29 2A 32 2D ac=7)-(ac=14)*2- 0000B0: 28 61 63 3D 32 31 29 2A 33 3A 66 3D 74 28 72 61 (ac=21)*3:f=t(ra 0000C0: 29 3A 47 4F 53 55 42 20 32 39 32 3A 4D 3D 39 38 ):GOSUB 292:M=98 0000D0: 3A 47 4F 54 4F 20 34 32 31 0D 0A 32 38 38 20 49 :GOTO 421..288 I 0000E0: 46 20 4C 45 46 54 24 28 64 24 28 61 62 29 2C 32 F LEFT$(d$(ab),2 0000F0: 29 3C 3E 22 54 4F 22 20 54 48 45 4E 20 68 28 6D )<>"TO" THEN h(m 000100: 29 3B 05 3D 37 3A 66 3D 74 28 31 29 3A 47 4F 53 );.=7:f=t(1):GOS 000110: 55 42 20 32 39 32 3A 4D 3D 39 38 3A 47 4F 54 4F UB 292:M=98:GOTO 000120: 20 34 32 31 0D 0A 32 38 39 20 49 46 20 4C 45 46 421..289 IF LEF 000130: 54 24 28 4D 49 44 24 28 64 24 28 6D 29 2C 34 29 T$(MID$(d$(m),4) 000140: 2C 36 29 3D 22 46 49 4E 41 4C 53 22 20 41 4E 44 ,6)="FINALS" AND 000150: 20 61 63 3C 32 39 20 41 4E 44 20 62 66 3E 30 20 ac<29 AND bf>0 000160: 54 48 45 4E 20 66 3D 62 68 2D 28 62 68 3D 30 29 THEN f=bh-(bh=0) 000170: 2A 37 3A 47 4F 53 55 42 20 32 39 32 3A 4D 3D 39 *7:GOSUB 292:M=9 000180: 38 3A 47 4F 54 4F 20 34 32 31 0D 0A 32 39 30 20 8:GOTO 421..290 000190: 46 4F 52 20 66 3D 62 6E 20 54 4F 20 33 30 3A 49 FOR f=bn TO 30:I 0001A0: 46 20 68 28 6D 29 3D 66 20 41 4E 44 20 64 24 28 F h(m)=f AND d$( 0001B0: 6D 29 3C 3E 22 22 20 41 4E 44 20 4C 45 46 54 24 m)<>"" AND LEFT$ 0001C0: 28 64 24 28 6D 29 2C 32 29 3C 3E 22 54 4F 22 20 (d$(m),2)<>"TO" 0001D0: 41 4E 44 20 4C 45 46 54 24 28 4D 49 44 24 28 64 AND LEFT$(MID$(d 0001E0: 24 28 6D 29 2C 34 29 2C 36 29 3C 3E 22 46 49 4E $(m),4),6)<>"FIN 0001F0: 41 4C 53 22 20 41 4E 44 20 64 24 28 31 33 29 3D ALS" AND d$(13)= 000200: 22 22 20 C4 6D 54 48 45 4E 20 47 4F 53 55 42 20 "" .mTHEN GOSUB 000210: 32 39 32 3A 4D 3D 39 38 3A 46 3D 33 31 0D 0A 32 292:M=98:F=31..2 000220: 39 31 20 4E 45 58 54 3A 62 6E 3D 31 3A 47 4F 54 91 NEXT:bn=1:GOT 000230: 4F 20 34 32 31 0D 0A 32 39 32 20 46 4F 52 20 6B O 421..292 FOR k 000240: 3D 31 20 54 4F 20 34 30 3A 6E 28 31 2C 6B 29 3D =1 TO 40:n(1,k)= 000250: 6D 3A 72 61 3D 31 2B 49 4E 54 28 52 4E 44 2A 35 m:ra=1+INT(RND*5 000260: 30 29 3A 49 46 20 72 61 3D 39 20 54 48 45 4E 20 0):IF ra=9 THEN 000270: 6E 28 32 2C 6B 29 3D 66 2B 31 3A 47 4F 54 4F 20 n(2,k)=f+1:GOTO 000280: 32 39 34 0D 0A 32 39 33 20 6E 28 32 2C 6B 29 3D 294..293 n(2,k)= 000290: 31 2B 49 4E 54 28 52 4E 44 2A 28 66 2D 31 29 29 1+INT(RND*(f-1)) 0002A0: 0D 0A 32 39 34 20 4E 45 58 54 0D 0A 32 39 35 20 ..294 NEXT..295 0002B0: 46 4F 52 20 6B 3D 31 20 54 4F 20 31 36 3A 49 46 FOR k=1 TO 16:IF 0002C0: 20 6E 28 32 2C 6B 29 3E 68 28 6E 28 31 2C 6B 29 n(2,k)>h(n(1,k) 0002D0: 29 20 54 48 45 4E 20 32 39 36 20 45 4C 53 45 20 ) THEN 296 ELSE 0002E0: 32 39 39 0D 0A 32 39 36 20 46 4F 52 20 6A 3D 31 299..296 FOR j=1 0002F0: 37 20 54 4F 20 32 34 3A 49 46 20 61 28 6A 29 3D 7 TO 24:IF a(j)= 000300: 30 20 4F 52 20 87 57 67 28 6A 29 3C 30 20 4F 52 0 OR .Wg(j)<0 OR 000310: 20 70 28 6A 29 3E 30 20 4F 52 20 6E 28 32 2C 6A p(j)>0 OR n(2,j 000320: 29 3E 68 28 6E 28 31 2C 6A 29 29 20 54 48 45 4E )>h(n(1,j)) THEN 000330: 20 32 39 38 0D 0A 32 39 37 20 61 64 3D 6B 3A 69 298..297 ad=k:i 000340: 3D 6A 3A 47 4F 53 55 42 20 31 39 35 3A 4A 3D 39 =j:GOSUB 195:J=9 000350: 38 0D 0A 32 39 38 20 4E 45 58 54 3A 49 46 20 4A 8..298 NEXT:IF J 000360: 3C 39 39 20 54 48 45 4E 20 6E 28 32 2C 6B 29 3D <99 THEN n(2,k)= 000370: 68 28 6E 28 31 2C 6B 29 29 0D 0A 32 39 39 20 4E h(n(1,k))..299 N 000380: 45 58 54 3A 47 4F 53 55 42 20 31 39 31 3A 52 45 EXT:GOSUB 191:RE 000390: 54 55 52 4E 0D 0A 33 30 30 20 49 46 20 62 6B 3D TURN..300 IF bk= 0003A0: 32 20 54 48 45 4E 20 31 35 33 0D 0A 33 30 31 20 2 THEN 153..301 0003B0: 47 4F 53 55 42 20 31 35 30 3A 49 46 20 66 28 72 GOSUB 150:IF f(r 0003C0: 61 29 3C 30 20 54 48 45 4E 20 33 30 31 0D 0A 33 a)<0 THEN 301..3 0003D0: 30 32 20 64 31 3D 72 61 3A 70 28 64 31 29 3D 31 02 d1=ra:p(d1)=1 0003E0: 2B 49 4E 54 28 52 4E 44 2A 39 39 29 3A 69 3D 72 +INT(RND*99):i=r 0003F0: 61 3A 47 4F 53 55 42 20 31 35 31 3A 47 4F 53 55 a:GOSUB 151:GOSU 000400: 42 20 32 31 31 3A 4C 4E 19 4F 43 41 54 45 20 31 B 211:LN.OCATE 1 000410: 2C 31 35 3A 50 52 49 4E 54 20 64 31 3B 7A 24 22 ,15:PRINT d1;z$" 000420: 20 22 3B 62 24 28 64 31 29 3B 49 4E 54 28 61 28 ";b$(d1);INT(a( 000430: 64 31 29 29 3B 22 49 4E 4A 55 52 45 44 22 3A 47 d1));"INJURED":G 000440: 4F 54 4F 20 31 36 39 0D 0A 33 30 33 20 49 46 20 OTO 169..303 IF 000450: 62 62 3D 31 20 54 48 45 4E 20 52 45 54 55 52 4E bb=1 THEN RETURN 000460: 0D 0A 33 30 34 20 44 45 46 20 46 4E 20 79 3D 37 ..304 DEF FN y=7 000470: 2B 49 4E 54 28 52 4E 44 2A 33 29 2D 49 4E 54 28 +INT(RND*3)-INT( 000480: 28 41 42 53 28 6B 28 67 34 29 29 2F 31 30 29 29 (ABS(k(g4))/10)) 000490: 3A 62 62 3D 31 3A 61 69 3D 46 4E 20 79 3A 61 6A :bb=1:ai=FN y:aj 0004A0: 3D 46 4E 20 79 3A 61 6B 3D 46 4E 20 79 3A 61 6C =FN y:ak=FN y:al 0004B0: 3D 46 4E 20 79 3A 52 45 54 55 52 4E 0D 0A 33 30 =FN y:RETURN..30 0004C0: 35 20 46 4F 52 20 69 3D 31 20 54 4F 20 36 3A 49 5 FOR i=1 TO 6:I 0004D0: 46 20 62 69 3C 3D 72 28 32 2C 69 29 20 41 4E 44 F bi<=r(2,i) AND 0004E0: 20 62 69 3E 3D 72 28 31 2C 69 29 20 54 48 45 4E bi>=r(1,i) THEN 0004F0: 20 62 64 3D 69 3A 49 3D 37 0D 0A 33 30 36 20 4E bd=i:I=7..306 N 000500: 45 58 54 0D 0A 33 30 37 20 69 85 61 31 3D 31 2B EXT..307 i.a1=1+ 000510: 72 28 32 2C 62 64 29 2D 72 28 31 2C 62 64 29 3A r(2,bd)-r(1,bd): 000520: 73 28 31 29 3D 62 69 3A 46 4F 52 20 69 3D 32 20 s(1)=bi:FOR i=2 000530: 54 4F 20 34 0D 0A 33 30 38 20 72 61 3D 72 28 31 TO 4..308 ra=r(1 000540: 2C 62 64 29 2B 49 4E 54 28 52 4E 44 2A 61 31 29 ,bd)+INT(RND*a1) 000550: 0D 0A 33 30 39 20 73 28 69 29 3D 72 61 3A 46 4F ..309 s(i)=ra:FO 000560: 52 20 78 3D 31 20 54 4F 20 69 2D 31 0D 0A 33 31 R x=1 TO i-1..31 000570: 30 20 49 46 20 72 61 3D 73 28 78 29 20 4F 52 20 0 IF ra=s(x) OR 000580: 61 24 28 72 61 29 3D 6A 24 28 31 29 20 4F 52 20 a$(ra)=j$(1) OR 000590: 61 24 28 72 61 29 3D 6A 24 28 32 29 20 4F 52 20 a$(ra)=j$(2) OR 0005A0: 61 24 28 72 61 29 3D 6A 24 28 33 29 20 4F 52 20 a$(ra)=j$(3) OR 0005B0: 61 24 28 72 61 29 3D 6A 24 28 34 29 20 54 48 45 a$(ra)=j$(4) THE 0005C0: 4E 20 33 30 38 0D 0A 33 31 31 20 4E 45 58 54 3A N 308..311 NEXT: 0005D0: 4E 45 58 54 3A 46 4F 52 20 69 3D 31 20 54 4F 20 NEXT:FOR i=1 TO 0005E0: 34 3A 67 24 28 69 29 3D 61 24 28 73 28 69 29 29 4:g$(i)=a$(s(i)) 0005F0: 3A 4E 45 58 54 0D 0A 33 31 32 20 72 61 3D 31 3A :NEXT..312 ra=1: 000600: 46 4F 52 20 69 3D 31 20 54 4F 20 51 97 31 32 3A FOR i=1 TO Q.12: 000610: 68 24 28 69 29 3D 67 24 28 75 28 72 61 29 29 2B h$(i)=g$(u(ra))+ 000620: 22 20 20 56 20 20 22 2B 67 24 28 75 28 72 61 2B " V "+g$(u(ra+ 000630: 31 29 29 2B 43 48 52 24 28 33 32 29 3A 72 61 3D 1))+CHR$(32):ra= 000640: 72 61 2B 32 3A 4E 45 58 54 0D 0A 33 31 33 20 46 ra+2:NEXT..313 F 000650: 4F 52 20 69 3D 32 20 54 4F 20 31 32 20 53 54 45 OR i=2 TO 12 STE 000660: 50 20 32 3A 68 24 28 69 29 3D 4C 45 46 54 24 28 P 2:h$(i)=LEFT$( 000670: 68 24 28 69 29 2C 32 34 29 2B 65 24 28 69 29 2B h$(i),24)+e$(i)+ 000680: 4D 49 44 24 28 68 24 28 69 29 2C 32 38 29 3A 72 MID$(h$(i),28):r 000690: 61 3D 32 2B 49 4E 54 28 52 4E 44 2A 32 39 29 3A a=2+INT(RND*29): 0006A0: 68 28 69 29 3D 72 61 3A 68 24 28 69 29 3D 4C 45 h(i)=ra:h$(i)=LE 0006B0: 46 54 24 28 68 24 28 69 29 2C 32 38 29 2B 53 54 FT$(h$(i),28)+ST 0006C0: 52 24 28 72 61 29 2B 4D 49 44 24 28 68 24 28 69 R$(ra)+MID$(h$(i 0006D0: 29 2C 33 31 29 3A 68 24 28 69 2D 31 29 3D 4C 45 ),31):h$(i-1)=LE 0006E0: 46 54 24 28 68 24 28 69 2D 31 29 2C 32 34 29 2B FT$(h$(i-1),24)+ 0006F0: 65 24 28 69 29 2B 4D 49 44 24 28 68 24 28 69 2D e$(i)+MID$(h$(i- 000700: 31 29 2C 32 38 29 0D 0A 33 31 34 20 68 9F AD 24 1),28)..314 h..$ 000710: 28 69 2D 31 29 3D 4C 45 46 54 24 28 68 24 28 69 (i-1)=LEFT$(h$(i 000720: 2D 31 29 2C 32 38 29 2B 53 54 52 24 28 72 61 29 -1),28)+STR$(ra) 000730: 2B 4D 49 44 24 28 68 24 28 69 2D 31 29 2C 33 31 +MID$(h$(i-1),31 000740: 29 0D 0A 33 31 35 20 49 46 20 4C 45 46 54 24 28 )..315 IF LEFT$( 000750: 68 24 28 69 2D 31 29 2C 39 29 3D 79 24 28 31 29 h$(i-1),9)=y$(1) 000760: 20 54 48 45 4E 20 64 24 28 69 29 3D 4C 45 46 54 THEN d$(i)=LEFT 000770: 24 28 4D 49 44 24 28 68 24 28 69 2D 31 29 2C 31 $(MID$(h$(i-1),1 000780: 35 29 2C 39 29 3A 64 24 28 69 29 3D 4C 45 46 54 5),9):d$(i)=LEFT 000790: 24 28 64 24 28 69 29 2C 39 29 2B 22 48 22 3A 64 $(d$(i),9)+"H":d 0007A0: 24 28 69 29 3D 4C 45 46 54 24 28 64 24 28 69 29 $(i)=LEFT$(d$(i) 0007B0: 2C 31 30 29 2B 43 48 52 24 28 36 39 2D 28 62 65 ,10)+CHR$(69-(be 0007C0: 3D 32 29 2A 31 38 29 2B 22 51 22 3A 47 4F 54 4F =2)*18)+"Q":GOTO 0007D0: 20 33 31 37 0D 0A 33 31 36 20 64 24 28 69 29 3D 317..316 d$(i)= 0007E0: 4C 45 46 54 24 28 68 24 28 69 2D 31 29 2C 39 29 LEFT$(h$(i-1),9) 0007F0: 2B 4D 49 44 24 28 64 24 28 69 29 2C 31 30 29 3A +MID$(d$(i),10): 000800: 64 24 28 69 29 3D 4C 45 46 54 24 28 64 24 28 E6 d$(i)=LEFT$(d$(. 000810: 4E FF FF FF FF N....
previousnext* BLOCK 0035 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 13
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 635
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 617
Length of ONE bit pulse : 1236
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 360

Duration : 2151 ms
Pause After this block : 20 ms
Duration block + Pause : 2171 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 0D 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 F8 61 FF FF FF FF ..a....
previousnext* BLOCK 0036 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 587
Length of ONE bit pulse : 1175
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 128 225

Duration : 9128 ms
Pause After this block : 2893 ms
Duration block + Pause : 12021 ms
Duration block + Pause : 00 h 00 m 12 s		000000: 16 69 29 2C 39 29 2B 22 41 22 2B 4D 49 44 24 28 .i),9)+"A"+MID$( 000010: 64 24 28 69 29 2C 31 31 29 3A 64 24 28 69 29 3D d$(i),11):d$(i)= 000020: 4C 45 46 54 24 28 64 24 28 69 29 2C 31 30 29 2B LEFT$(d$(i),10)+ 000030: 43 48 52 24 28 36 39 2D 28 62 65 3D 32 29 2A 31 CHR$(69-(be=2)*1 000040: 38 29 2B 22 51 22 2B 4D 49 44 24 28 64 24 28 69 8)+"Q"+MID$(d$(i 000050: 29 2C 31 33 29 0D 0A 33 31 37 20 4E 45 58 54 3A ),13)..317 NEXT: 000060: 52 45 54 55 52 4E 0D 0A 33 31 38 20 47 4F 53 55 RETURN..318 GOSU 000070: 42 20 33 31 39 3A 47 4F 54 4F 20 33 33 30 0D 0A B 319:GOTO 330.. 000080: 33 31 39 20 43 4C 53 3A 49 46 20 41 42 53 28 62 319 CLS:IF ABS(b 000090: 65 29 3D 32 20 54 48 45 4E 20 33 32 31 0D 0A 33 e)=2 THEN 321..3 0000A0: 32 30 20 47 4F 53 55 42 20 33 36 37 3A 47 4F 53 20 GOSUB 367:GOS 0000B0: 55 42 20 33 36 31 3A 47 4F 53 55 42 20 33 36 35 UB 361:GOSUB 365 0000C0: 3A 72 61 3D 31 3A 4C 4F 43 41 54 45 20 35 2C 31 :ra=1:LOCATE 5,1 0000D0: 3A 50 45 4E 20 32 3A 50 52 49 4E 54 20 6C 24 3B :PEN 2:PRINT l$; 0000E0: 22 53 22 3A 47 4F 54 4F 20 33 32 32 0D 0A 33 32 "S":GOTO 322..32 0000F0: 31 20 47 4F 53 55 42 20 33 36 37 3A 47 4F 53 55 1 GOSUB 367:GOSU 000100: 42 F1 5A 20 33 36 30 3A 47 4F 53 55 42 20 33 36 B.Z 360:GOSUB 36 000110: 35 3A 72 61 3D 33 3A 4C 4F 43 41 54 45 20 31 30 5:ra=3:LOCATE 10 000120: 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 20 6C ,1:PEN 2:PRINT l 000130: 24 3B 22 53 22 0D 0A 33 32 32 20 4C 4F 43 41 54 $;"S"..322 LOCAT 000140: 45 20 33 2C 32 33 3A 50 52 49 4E 54 22 48 20 22 E 3,23:PRINT"H " 000150: 3B 3A 50 45 4E 20 31 3A 50 52 49 4E 54 20 6A 24 ;:PEN 1:PRINT j$ 000160: 28 72 61 2B 31 29 3A 4C 4F 43 41 54 45 20 32 34 (ra+1):LOCATE 24 000170: 2C 32 33 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 ,23:PEN 2:PRINT" 000180: 57 20 22 3B 3A 50 45 4E 20 31 3A 50 52 49 4E 54 W ";:PEN 1:PRINT 000190: 20 6A 24 28 72 61 29 0D 0A 33 32 33 20 46 4F 52 j$(ra)..323 FOR 0001A0: 20 69 3D 31 20 54 4F 20 31 35 3A 49 46 20 69 3D i=1 TO 15:IF i= 0001B0: 31 20 54 48 45 4E 20 33 32 34 20 45 4C 53 45 20 1 THEN 324 ELSE 0001C0: 49 46 20 69 3D 32 20 54 48 45 4E 20 33 32 35 20 IF i=2 THEN 325 0001D0: 45 4C 53 45 20 49 46 20 69 3D 34 20 54 48 45 4E ELSE IF i=4 THEN 0001E0: 20 33 32 36 20 45 4C 53 45 20 49 46 20 69 3D 38 326 ELSE IF i=8 0001F0: 20 54 48 45 4E 20 33 32 37 20 45 4C 53 45 20 33 THEN 327 ELSE 3 000200: 32 38 0D B2 5F 0A 33 32 34 20 47 4F 53 55 42 20 28.._.324 GOSUB 000210: 33 36 37 3A 47 4F 53 55 42 20 33 36 35 3A 78 3D 367:GOSUB 365:x= 000220: 33 3A 79 3D 31 34 3A 47 4F 53 55 42 20 33 32 39 3:y=14:GOSUB 329 000230: 3A 47 4F 54 4F 20 33 32 38 0D 0A 33 32 35 20 47 :GOTO 328..325 G 000240: 4F 53 55 42 20 33 36 37 3A 47 4F 53 55 42 20 33 OSUB 367:GOSUB 3 000250: 36 34 3A 47 4F 53 55 42 20 33 36 35 3A 78 3D 35 64:GOSUB 365:x=5 000260: 3A 79 3D 31 32 3A 47 4F 53 55 42 20 33 32 39 3A :y=12:GOSUB 329: 000270: 47 4F 54 4F 20 33 32 38 0D 0A 33 32 36 20 47 4F GOTO 328..326 GO 000280: 53 55 42 20 33 36 37 3A 47 4F 53 55 42 20 33 36 SUB 367:GOSUB 36 000290: 33 3A 47 4F 53 55 42 20 33 36 35 3A 78 3D 38 3A 3:GOSUB 365:x=8: 0002A0: 79 3D 39 3A 47 4F 53 55 42 20 33 32 39 3A 47 4F y=9:GOSUB 329:GO 0002B0: 54 4F 20 33 32 38 0D 0A 33 32 37 20 47 4F 53 55 TO 328..327 GOSU 0002C0: 42 20 33 36 37 3A 47 4F 53 55 42 20 33 36 32 3A B 367:GOSUB 362: 0002D0: 78 3D 31 33 3A 79 3D 31 32 3A 47 4F 53 55 42 20 x=13:y=12:GOSUB 0002E0: 33 32 39 3A 49 46 20 69 3D 31 35 20 54 48 45 4E 329:IF i=15 THEN 0002F0: 20 52 45 54 55 52 4E 0D 0A 33 32 38 20 50 52 49 RETURN..328 PRI 000300: 4E 54 20 54 41 0C 73 42 28 35 29 3B 68 24 28 69 NT TA.sB(5);h$(i 000310: 29 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 33 ):NEXT:RETURN..3 000320: 32 39 20 4C 4F 43 41 54 45 20 79 2C 78 3A 50 45 29 LOCATE y,x:PE 000330: 4E 20 32 3A 50 52 49 4E 54 20 6C 24 3A 50 45 4E N 2:PRINT l$:PEN 000340: 20 31 3A 52 45 54 55 52 4E 0D 0A 33 33 30 20 47 1:RETURN..330 G 000350: 4F 53 55 42 20 33 37 35 3A 47 4F 54 4F 20 33 33 OSUB 375:GOTO 33 000360: 30 0D 0A 33 33 31 20 47 4F 53 55 42 20 33 37 38 0..331 GOSUB 378 000370: 3A 62 7A 3D 31 34 3A 46 4F 52 20 69 3D 78 78 20 :bz=14:FOR i=xx 000380: 54 4F 20 79 79 0D 0A 33 33 32 20 53 24 3D 4C 45 TO yy..332 S$=LE 000390: 46 54 24 28 48 24 28 49 29 2C 39 29 3A 47 4F 53 FT$(H$(I),9):GOS 0003A0: 55 42 20 33 34 39 3A 41 31 3D 47 34 3A 53 24 3D UB 349:A1=G4:S$= 0003B0: 4D 49 44 24 28 48 24 28 49 29 2C 31 35 2C 39 29 MID$(H$(I),15,9) 0003C0: 3A 47 4F 53 55 42 20 33 34 39 3A 41 32 3D 47 34 :GOSUB 349:A2=G4 0003D0: 3A 47 4F 53 55 42 20 33 33 36 3A 48 24 28 49 29 :GOSUB 336:H$(I) 0003E0: 3D 4C 45 46 54 24 28 48 24 28 49 29 2C 31 30 29 =LEFT$(H$(I),10) 0003F0: 2B 53 54 52 24 28 52 29 2B 22 56 22 2B 53 54 52 +STR$(R)+"V"+STR 000400: 24 28 53 29 2B 4D 49 8D 42 44 24 28 48 24 28 49 $(S)+MI.BD$(H$(I 000410: 29 2C 31 34 29 3A 4C 4F 43 41 54 45 20 35 2C 42 ),14):LOCATE 5,B 000420: 5A 3A 50 45 4E 20 31 3A 50 52 49 4E 54 20 68 24 Z:PEN 1:PRINT h$ 000430: 28 69 29 3A 62 7A 3D 62 7A 2B 31 3A 4E 45 58 54 (i):bz=bz+1:NEXT 000440: 0D 0A 33 33 33 20 49 46 20 77 3D 31 20 54 48 45 ..333 IF w=1 THE 000450: 4E 20 77 3D 30 3A 47 4F 54 4F 20 33 33 34 20 45 N w=0:GOTO 334 E 000460: 4C 53 45 20 50 45 4E 20 32 3A 4C 4F 43 41 54 45 LSE PEN 2:LOCATE 000470: 20 31 34 2C 32 33 3A 50 52 49 4E 54 22 50 52 45 14,23:PRINT"PRE 000480: 53 53 20 41 20 4B 45 59 22 3A 43 41 4C 4C 20 26 SS A KEY":CALL & 000490: 42 42 31 38 0D 0A 33 33 34 20 52 45 54 55 52 4E BB18..334 RETURN 0004A0: 0D 0A 33 33 35 20 62 66 3D 62 66 2B 28 72 3C 73 ..335 bf=bf+(r<s 0004B0: 29 2A 62 66 2A 32 3A 52 45 54 55 52 4E 0D 0A 33 )*bf*2:RETURN..3 0004C0: 33 36 20 72 3D 2D 32 2B 49 4E 54 28 52 4E 44 2A 36 r=-2+INT(RND* 0004D0: 37 29 2D 28 41 42 53 28 4B 28 41 31 29 29 3C 41 7)-(ABS(K(A1))<A 0004E0: 42 53 28 4B 28 41 32 29 29 29 2A 33 3A 52 3D 49 BS(K(A2)))*3:R=I 0004F0: 4E 54 28 52 2D 32 29 3A 52 3D 52 2B 28 52 3C 30 NT(R-2):R=R+(R<0 000500: 29 2A 52 3A 53 3D 2D 32 2B 4A 30 49 4E 54 28 52 )*R:S=-2+J0INT(R 000510: 4E 44 2A 36 29 2D 28 41 42 53 28 4B 28 41 32 29 ND*6)-(ABS(K(A2) 000520: 29 3C 41 42 53 28 4B 28 41 31 29 29 29 2A 33 3A )<ABS(K(A1)))*3: 000530: 53 3D 49 4E 54 28 53 2D 32 29 3A 53 3D 53 2B 28 S=INT(S-2):S=S+( 000540: 53 3C 30 29 2A 53 3A 49 46 20 61 62 3D 36 20 41 S<0)*S:IF ab=6 A 000550: 4E 44 20 61 63 3D 62 68 20 41 4E 44 20 72 3D 73 ND ac=bh AND r=s 000560: 20 54 48 45 4E 20 33 33 36 0D 0A 33 33 37 20 52 THEN 336..337 R 000570: 45 54 55 52 4E 0D 0A 33 33 38 20 46 4F 52 20 6C ETURN..338 FOR l 000580: 3D 31 20 54 4F 20 35 3A 46 4F 52 20 69 3D 37 20 =1 TO 5:FOR i=7 000590: 54 4F 20 31 20 53 54 45 50 2D 31 3A 72 24 3D 4C TO 1 STEP-1:r$=L 0005A0: 45 46 54 24 28 68 24 28 69 29 2C 39 29 3A 73 24 EFT$(h$(i),9):s$ 0005B0: 3D 4D 49 44 24 28 48 24 28 49 29 2C 31 35 2C 39 =MID$(H$(I),15,9 0005C0: 29 3A 46 4F 52 20 6A 3D 31 20 54 4F 20 36 30 3A ):FOR j=1 TO 60: 0005D0: 49 46 20 61 24 28 6A 29 3D 72 24 20 54 48 45 4E IF a$(j)=r$ THEN 0005E0: 20 72 61 3D 6A 3A 72 62 3D 41 42 53 28 6B 28 6A ra=j:rb=ABS(k(j 0005F0: 29 29 0D 0A 33 33 39 20 49 46 20 61 24 28 6A 29 ))..339 IF a$(j) 000600: 3D 73 24 20 54 48 45 4E 20 72 63 D5 CB 3D 6A 3A =s$ THEN rc..=j: 000610: 72 64 3D 41 42 53 28 6B 28 6A 29 29 0D 0A 33 34 rd=ABS(k(j))..34 000620: 30 20 4E 45 58 54 3A 46 4F 52 20 6B 3D 31 20 54 0 NEXT:FOR k=1 T 000630: 4F 20 36 30 3A 49 46 20 41 42 53 28 6B 28 6B 29 O 60:IF ABS(k(k) 000640: 29 3D 28 72 62 2D 31 29 20 54 48 45 4E 20 65 31 )=(rb-1) THEN e1 000650: 3D 6B 28 6B 29 3A 6B 28 6B 29 3D 6B 28 72 61 29 =k(k):k(k)=k(ra) 000660: 3A 6B 28 72 61 29 3D 65 31 0D 0A 33 34 31 20 49 :k(ra)=e1..341 I 000670: 46 20 41 42 53 28 6B 28 6B 29 29 3D 72 64 2D 31 F ABS(k(k))=rd-1 000680: 20 54 48 45 4E 20 65 31 3D 6B 28 6B 29 3A 6B 28 THEN e1=k(k):k( 000690: 6B 29 3D 6B 28 72 63 29 3A 6B 28 72 63 29 3D 65 k)=k(rc):k(rc)=e 0006A0: 31 0D 0A 33 34 32 20 4E 45 58 54 20 6B 2C 69 2C 1..342 NEXT k,i, 0006B0: 6C 3A 6B 28 62 69 29 3D 6B 28 62 69 29 2B 28 6B l:k(bi)=k(bi)+(k 0006C0: 28 62 69 29 3E 30 29 2A 28 6B 28 62 69 29 2A 32 (bi)>0)*(k(bi)*2 0006D0: 29 3A 52 45 54 55 52 4E 0D 0A 33 34 33 20 49 46 ):RETURN..343 IF 0006E0: 20 62 6D 3D 31 20 54 48 45 4E 20 52 45 54 55 52 bm=1 THEN RETUR 0006F0: 4E 0D 0A 33 34 34 20 43 4C 53 3A 62 6D 3D 31 3A N..344 CLS:bm=1: 000700: 49 46 20 4C 45 46 54 24 28 64 24 28 61 4A 5C 62 IF LEFT$(d$(aJ\b 000710: 29 2C 34 29 3D 22 54 4F 55 52 22 20 4F 52 20 52 ),4)="TOUR" OR R 000720: 49 47 48 54 24 28 4C 45 46 54 24 28 64 24 28 61 IGHT$(LEFT$(d$(a 000730: 62 29 2C 39 29 2C 36 29 3D 22 46 49 4E 41 4C 53 b),9),6)="FINALS 000740: 22 20 54 48 45 4E 20 33 35 31 0D 0A 33 34 35 20 " THEN 351..345 000750: 62 6A 3D 68 28 61 62 29 3A 61 6D 3D 31 2D 28 4D bj=h(ab):am=1-(M 000760: 49 44 24 28 4C 45 46 54 24 28 64 24 28 61 62 29 ID$(LEFT$(d$(ab) 000770: 2C 31 30 29 2C 31 30 29 3D 22 41 22 29 3A 72 24 ,10),10)="A"):r$ 000780: 3D 79 24 28 31 29 3A 73 24 3D 4C 45 46 54 24 28 =y$(1):s$=LEFT$( 000790: 64 24 28 61 62 29 2C 39 29 3A 47 4F 53 55 42 20 d$(ab),9):GOSUB 0007A0: 33 34 39 0D 0A 33 34 36 20 49 46 20 4C 45 46 54 349..346 IF LEFT 0007B0: 24 28 4D 49 44 24 28 64 24 28 61 62 29 2C 31 31 $(MID$(d$(ab),11 0007C0: 29 2C 31 29 3D 22 46 22 20 54 48 45 4E 20 6E 24 ),1)="F" THEN n$ 0007D0: 3D 22 46 52 49 45 4E 44 4C 59 22 3A 52 45 54 55 ="FRIENDLY":RETU 0007E0: 52 4E 0D 0A 33 34 37 20 49 46 20 4D 49 44 24 28 RN..347 IF MID$( 0007F0: 64 24 28 61 62 29 2C 31 31 29 3D 22 45 51 22 20 d$(ab),11)="EQ" 000800: 54 48 45 4E 20 47 4F 53 55 42 20 33 36 31 3A 46 THEN GOSUB 361:F 000810: 77 FF FF FF FF w....
previousnext* BLOCK 0037 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 14
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 619
Length of ONE bit pulse : 1239
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 302

Duration : 2153 ms
Pause After this block : 20 ms
Duration block + Pause : 2173 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 0E 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 C1 5D FF FF FF FF ..]....
previousnext* BLOCK 0038 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 635
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 587
Length of ONE bit pulse : 1174
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 129 986

Duration : 9124 ms
Pause After this block : 2891 ms
Duration block + Pause : 12015 ms
Duration block + Pause : 00 h 00 m 12 s		000000: 16 47 4F 53 55 42 20 33 36 36 3A 6E 24 3D 6C 24 .GOSUB 366:n$=l$ 000010: 3A 52 45 54 55 52 4E 0D 0A 33 34 38 20 47 4F 53 :RETURN..348 GOS 000020: 55 42 20 33 36 30 3A 47 4F 53 55 42 20 33 36 36 UB 360:GOSUB 366 000030: 3A 6E 24 3D 6C 24 3A 52 45 54 55 52 4E 0D 0A 33 :n$=l$:RETURN..3 000040: 34 39 20 46 4F 52 20 4E 3D 31 20 54 4F 20 36 30 49 FOR N=1 TO 60 000050: 3A 49 46 20 61 24 28 4E 29 3D 73 24 20 54 48 45 :IF a$(N)=s$ THE 000060: 4E 20 67 34 3D 4E 3A 4E 3D 36 31 0D 0A 33 35 30 N g4=N:N=61..350 000070: 20 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 33 35 NEXT:RETURN..35 000080: 31 20 49 46 20 52 49 47 48 54 24 28 4C 45 46 54 1 IF RIGHT$(LEFT 000090: 24 28 64 24 28 61 62 29 2C 39 29 2C 36 29 3D 22 $(d$(ab),9),6)=" 0000A0: 46 49 4E 41 4C 53 22 20 54 48 45 4E 20 33 35 33 FINALS" THEN 353 0000B0: 0D 0A 33 35 32 20 6E 24 3D 22 54 4F 55 52 22 3A ..352 n$="TOUR": 0000C0: 62 6A 3D 31 2D 49 4E 54 28 68 28 61 62 29 3D 31 bj=1-INT(h(ab)=1 0000D0: 34 29 2D 28 68 28 61 62 29 3D 32 31 29 2A 32 2D 4)-(h(ab)=21)*2- 0000E0: 28 68 28 61 62 29 3D 32 38 29 2A 33 3A 61 6D 3D (h(ab)=28)*3:am= 0000F0: 32 3A 73 24 3D 4C 45 46 54 24 28 74 24 28 74 31 2:s$=LEFT$(t$(t1 000100: 29 A0 54 2C 39 29 3A 72 24 3D 79 24 28 31 29 3A ).T,9):r$=y$(1): 000110: 47 4F 53 55 42 20 33 34 39 3A 52 45 54 55 52 4E GOSUB 349:RETURN 000120: 0D 0A 33 35 33 20 61 6D 3D 32 2B 28 6A 24 28 32 ..353 am=2+(j$(2 000130: 29 3D 79 24 28 31 29 20 41 4E 44 20 62 66 3D 31 )=y$(1) AND bf=1 000140: 20 4F 52 20 6A 24 28 34 29 3D 79 24 28 31 29 20 OR j$(4)=y$(1) 000150: 41 4E 44 20 62 66 3D 32 29 0D 0A 33 35 34 20 49 AND bf=2)..354 I 000160: 46 20 62 66 3D 31 20 54 48 45 4E 20 47 4F 53 55 F bf=1 THEN GOSU 000170: 42 20 33 36 31 20 45 4C 53 45 20 47 4F 53 55 42 B 361 ELSE GOSUB 000180: 20 33 36 30 0D 0A 33 35 35 20 62 6A 3D 62 68 3A 360..355 bj=bh: 000190: 49 46 20 62 68 3D 31 34 20 54 48 45 4E 20 33 35 IF bh=14 THEN 35 0001A0: 37 20 45 4C 53 45 20 49 46 20 62 68 3D 32 31 20 7 ELSE IF bh=21 0001B0: 54 48 45 4E 20 33 35 38 20 45 4C 53 45 20 49 46 THEN 358 ELSE IF 0001C0: 20 62 68 3D 32 38 20 54 48 45 4E 20 33 35 39 0D bh=28 THEN 359. 0001D0: 0A 33 35 36 20 47 4F 53 55 42 20 33 36 32 3A 72 .356 GOSUB 362:r 0001E0: 24 3D 79 24 28 31 29 3A 73 24 3D 52 49 47 48 54 $=y$(1):s$=RIGHT 0001F0: 24 28 4C 45 46 54 24 28 68 24 28 38 29 2C 32 33 $(LEFT$(h$(8),23 000200: 29 2C 39 EA FE 29 3A 62 6A 3D 37 3A 47 4F 53 55 ),9..):bj=7:GOSU 000210: 42 20 33 34 39 3A 6E 24 3D 6C 24 3A 52 45 54 55 B 349:n$=l$:RETU 000220: 52 4E 0D 0A 33 35 37 20 47 4F 53 55 42 20 33 36 RN..357 GOSUB 36 000230: 33 3A 47 4F 53 55 42 20 33 36 35 3A 72 24 3D 79 3:GOSUB 365:r$=y 000240: 24 28 31 29 3A 73 24 3D 52 49 47 48 54 24 28 4C $(1):s$=RIGHT$(L 000250: 45 46 54 24 28 68 24 28 34 29 2C 32 33 29 2C 39 EFT$(h$(4),23),9 000260: 29 3A 62 6A 3D 31 34 3A 47 4F 53 55 42 20 33 34 ):bj=14:GOSUB 34 000270: 39 3A 6E 24 3D 6C 24 3A 52 45 54 55 52 4E 0D 0A 9:n$=l$:RETURN.. 000280: 33 35 38 20 47 4F 53 55 42 20 33 36 34 3A 47 4F 358 GOSUB 364:GO 000290: 53 55 42 20 33 36 35 3A 72 24 3D 79 24 28 31 29 SUB 365:r$=y$(1) 0002A0: 3A 73 24 3D 52 49 47 48 54 24 28 4C 45 46 54 24 :s$=RIGHT$(LEFT$ 0002B0: 28 68 24 28 32 29 2C 32 33 29 2C 39 29 3A 62 6A (h$(2),23),9):bj 0002C0: 3D 32 31 3A 47 4F 53 55 42 20 33 34 39 3A 6E 24 =21:GOSUB 349:n$ 0002D0: 3D 6C 24 3A 52 45 54 55 52 4E 0D 0A 33 35 39 20 =l$:RETURN..359 0002E0: 47 4F 53 55 42 20 33 36 35 3A 72 24 3D 79 24 28 GOSUB 365:r$=y$( 0002F0: 31 29 3A 73 24 3D 52 49 47 48 54 24 28 4C 45 46 1):s$=RIGHT$(LEF 000300: 54 24 28 68 24 47 00 28 31 29 2C 32 33 29 2C 39 T$(h$G.(1),23),9 000310: 29 3A 62 6A 3D 32 38 3A 47 4F 53 55 42 20 33 34 ):bj=28:GOSUB 34 000320: 39 3A 6E 24 3D 6C 24 3A 52 45 54 55 52 4E 0D 0A 9:n$=l$:RETURN.. 000330: 33 36 30 20 6C 24 3D 22 57 4F 52 4C 44 20 43 55 360 l$="WORLD CU 000340: 50 22 3A 52 45 54 55 52 4E 0D 0A 33 36 31 20 6C P":RETURN..361 l 000350: 24 3D 22 45 55 52 4F 50 45 41 4E 20 43 48 41 4D $="EUROPEAN CHAM 000360: 50 49 4F 4E 53 48 49 50 22 3A 52 45 54 55 52 4E PIONSHIP":RETURN 000370: 0D 0A 33 36 32 20 6C 24 3D 6C 24 2B 22 20 31 53 ..362 l$=l$+" 1S 000380: 54 20 52 4F 55 4E 44 22 3A 52 45 54 55 52 4E 0D T ROUND":RETURN. 000390: 0A 33 36 33 20 4C 24 3D 4C 24 2B 22 20 51 55 41 .363 L$=L$+" QUA 0003A0: 52 54 45 52 22 3A 52 45 54 55 52 4E 0D 0A 33 36 RTER":RETURN..36 0003B0: 34 20 4C 24 3D 4C 24 2B 22 20 53 45 4D 49 22 3A 4 L$=L$+" SEMI": 0003C0: 52 45 54 55 52 4E 0D 0A 33 36 35 20 4C 24 3D 4C RETURN..365 L$=L 0003D0: 24 2B 22 20 46 49 4E 41 4C 22 3A 52 45 54 55 52 $+" FINAL":RETUR 0003E0: 4E 0D 0A 33 36 36 20 4C 24 3D 4C 24 2B 22 20 51 N..366 L$=L$+" Q 0003F0: 55 41 4C 49 46 49 45 52 22 3A 52 45 54 55 52 4E UALIFIER":RETURN 000400: 0D 0A 33 36 37 20 4C 93 65 24 3D 22 22 3A 52 45 ..367 L.e$="":RE 000410: 54 55 52 4E 0D 0A 33 36 38 20 4C 4F 43 41 54 45 TURN..368 LOCATE 000420: 20 32 36 2C 72 62 3A 50 52 49 4E 54 22 52 45 54 26,rb:PRINT"RET 000430: 49 52 45 44 22 3A 47 4F 54 4F 20 37 38 0D 0A 33 IRED":GOTO 78..3 000440: 36 39 20 4C 4F 43 41 54 45 20 32 36 2C 72 62 3A 69 LOCATE 26,rb: 000450: 50 52 49 4E 54 22 53 55 53 50 45 4E 44 45 44 22 PRINT"SUSPENDED" 000460: 3A 47 4F 54 4F 20 37 38 0D 0A 33 37 30 20 72 62 :GOTO 78..370 rb 000470: 3D 31 35 3A 46 4F 52 20 7A 3D 78 31 20 54 4F 20 =15:FOR z=x1 TO 000480: 78 32 3A 49 46 20 6A 24 28 7A 29 3D 79 24 28 31 x2:IF j$(z)=y$(1 000490: 29 20 54 48 45 4E 20 68 24 28 72 62 29 3D 4C 45 ) THEN h$(rb)=LE 0004A0: 46 54 24 28 68 24 28 72 62 29 2C 31 36 29 2B 4C FT$(h$(rb),16)+L 0004B0: 45 46 54 24 28 68 24 28 38 29 2C 39 29 2B 4D 49 EFT$(h$(8),9)+MI 0004C0: 44 24 28 68 24 28 72 62 29 2C 32 36 29 3A 68 24 D$(h$(rb),26):h$ 0004D0: 28 38 29 3D 79 24 28 31 29 2B 4D 49 44 24 28 68 (8)=y$(1)+MID$(h 0004E0: 24 28 38 29 2C 31 30 29 3A 5A 3D 39 38 0D 0A 33 $(8),10):Z=98..3 0004F0: 37 31 20 72 61 3D 72 61 2D 31 3A 4E 45 58 54 3A 71 ra=ra-1:NEXT: 000500: 52 45 54 55 52 4E 0D 0A 33 7F 81 37 32 20 47 4F RETURN..3..72 GO 000510: 53 55 42 20 32 38 36 3A 47 4F 54 4F 20 31 30 38 SUB 286:GOTO 108 000520: 0D 0A 33 37 33 20 4C 4F 43 41 54 45 20 31 2C 32 ..373 LOCATE 1,2 000530: 31 3A 50 45 4E 20 33 3A 50 52 49 4E 54 20 53 50 1:PEN 3:PRINT SP 000540: 41 43 45 24 28 31 34 29 3B 22 50 4C 45 41 53 45 ACE$(14);"PLEASE 000550: 20 57 41 49 54 22 53 50 41 43 45 24 28 31 32 29 WAIT"SPACE$(12) 000560: 3A 52 45 54 55 52 4E 0D 0A 33 37 34 20 72 61 3D :RETURN..374 ra= 000570: 31 33 3A 52 45 54 55 52 4E 0D 0A 33 37 35 20 4C 13:RETURN..375 L 000580: 4F 43 41 54 45 20 31 36 2C 32 33 3A 50 45 4E 20 OCATE 16,23:PEN 000590: 32 3A 50 52 49 4E 54 22 4D 2D 4D 45 4E 55 22 3A 2:PRINT"M-MENU": 0005A0: 50 45 4E 20 31 0D 0A 33 37 36 20 71 24 3D 49 4E PEN 1..376 q$=IN 0005B0: 4B 45 59 24 3A 49 46 20 71 24 3D 22 22 20 54 48 KEY$:IF q$="" TH 0005C0: 45 4E 20 33 37 37 20 45 4C 53 45 20 71 24 3D 55 EN 377 ELSE q$=U 0005D0: 50 50 45 52 24 28 71 24 29 3A 49 46 20 71 24 3D PPER$(q$):IF q$= 0005E0: 22 4D 22 20 54 48 45 4E 20 31 30 38 0D 0A 33 37 "M" THEN 108..37 0005F0: 37 20 52 45 54 55 52 4E 0D 0A 33 37 38 20 46 4F 7 RETURN..378 FO 000600: 52 20 69 3D 31 37 20 54 4F 20 32 F0 4D 32 3A 4C R i=17 TO 2.M2:L 000610: 4F 43 41 54 45 20 31 2C 69 3A 50 52 49 4E 54 20 OCATE 1,i:PRINT 000620: 53 50 41 43 45 24 28 34 30 29 3A 4E 45 58 54 3A SPACE$(40):NEXT: 000630: 52 45 54 55 52 4E 0D 0A 33 37 39 20 46 4F 52 20 RETURN..379 FOR 000640: 69 3D 31 20 54 4F 20 34 3A 49 46 20 61 63 3D 74 i=1 TO 4:IF ac=t 000650: 28 69 29 20 54 48 45 4E 20 7A 7A 3D 31 3A 74 31 (i) THEN zz=1:t1 000660: 3D 69 3A 68 28 61 62 29 3D 74 28 74 31 29 3A 49 =i:h(ab)=t(t1):I 000670: 3D 39 38 0D 0A 33 38 30 20 4E 45 58 54 3A 49 46 =98..380 NEXT:IF 000680: 20 49 3D 39 39 20 54 48 45 4E 20 31 31 30 20 45 I=99 THEN 110 E 000690: 4C 53 45 20 52 45 54 55 52 4E 0D 0A 33 38 31 20 LSE RETURN..381 0006A0: 42 47 3D 42 47 2D 28 42 47 3D 30 29 2B 28 42 47 BG=BG-(BG=0)+(BG 0006B0: 3D 31 29 3A 52 45 54 55 52 4E 0D 0A 33 38 32 20 =1):RETURN..382 0006C0: 72 61 3D 31 2D 28 69 3D 31 29 2A 33 2D 28 69 3D ra=1-(i=1)*3-(i= 0006D0: 32 29 2A 33 2D 28 69 3D 33 29 3A 52 45 54 55 52 2)*3-(i=3):RETUR 0006E0: 4E 0D 0A 33 38 33 20 43 4C 53 3A 50 45 4E 20 31 N..383 CLS:PEN 1 0006F0: 3A 4C 4F 43 41 54 45 20 31 31 2C 31 32 3A 50 52 :LOCATE 11,12:PR 000700: 49 4E 54 22 49 4E 53 45 52 54 20 42 4C DB 38 41 INT"INSERT BL.8A 000710: 4E 4B 20 54 41 50 45 22 3A 4C 4F 43 41 54 45 20 NK TAPE":LOCATE 000720: 31 33 2C 31 34 3A 50 45 4E 20 32 3A 50 52 49 4E 13,14:PEN 2:PRIN 000730: 54 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 T"PRESS ANY KEY" 000740: 3A 43 41 4C 4C 20 26 42 42 31 38 3A 47 4F 53 55 :CALL &BB18:GOSU 000750: 42 20 33 38 37 3A 47 4F 54 4F 20 31 30 38 0D 0A B 387:GOTO 108.. 000760: 33 38 37 20 53 50 45 45 44 20 57 52 49 54 45 20 387 SPEED WRITE 000770: 31 3A 4F 50 45 4E 4F 55 54 22 21 73 22 0D 0A 33 1:OPENOUT"!s"..3 000780: 38 38 20 46 4F 52 20 69 3D 31 20 54 4F 20 35 3A 88 FOR i=1 TO 5: 000790: 46 4F 52 20 7A 3D 31 20 54 4F 20 35 3A 57 52 49 FOR z=1 TO 5:WRI 0007A0: 54 45 23 39 2C 71 28 69 2C 7A 29 3A 4E 45 58 54 TE#9,q(i,z):NEXT 0007B0: 20 7A 2C 69 0D 0A 33 38 39 20 57 52 49 54 45 23 z,i..389 WRITE# 0007C0: 39 2C 62 6D 2C 62 67 2C 62 65 2C 62 66 2C 62 68 9,bm,bg,be,bf,bh 0007D0: 2C 62 6A 2C 6F 34 2C 62 62 2C 6F 31 2C 6F 32 2C ,bj,o4,bb,o1,o2, 0007E0: 6F 33 2C 74 31 2C 78 78 2C 79 79 2C 61 61 2C 61 o3,t1,xx,yy,aa,a 0007F0: 62 2C 61 65 2C 61 66 2C 61 67 2C 61 68 2C 62 69 b,ae,af,ag,ah,bi 000800: 2C 67 34 2C 61 63 2C 72 24 2C 6E 24 2C 73 24 52 ,g4,ac,r$,n$,s$R 000810: 44 FF FF FF FF D....
previousnext* BLOCK 0039 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 15
File type : Ascii
File adress start : &9E7C
File adress length : &0800
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1179
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 620
Length of ONE bit pulse : 1241
Length of PILOT tone : 4084
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 141

Duration : 2154 ms
Pause After this block : 19 ms
Duration block + Pause : 2173 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 0F 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 26 56 FF FF FF FF .&V....
previousnext* BLOCK 0040 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1180
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 589
Length of ONE bit pulse : 1178
Length of PILOT tone : 4088
Used bits in last byte : 8 OK
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 131 456

Duration : 9108 ms
Pause After this block : 2881 ms
Duration block + Pause : 11989 ms
Duration block + Pause : 00 h 00 m 11 s		000000: 16 2C 61 69 2C 61 6A 2C 61 6B 2C 61 6C 0D 0A 33 .,ai,aj,ak,al..3 000010: 39 30 20 46 4F 52 20 69 3D 31 20 54 4F 20 36 30 90 FOR i=1 TO 60 000020: 3A 57 52 49 54 45 23 39 2C 61 24 28 69 29 2C 6B :WRITE#9,a$(i),k 000030: 28 69 29 3A 4E 45 58 54 3A 46 4F 52 20 69 3D 31 (i):NEXT:FOR i=1 000040: 20 54 4F 20 32 34 3A 57 52 49 54 45 23 39 2C 75 TO 24:WRITE#9,u 000050: 28 69 29 3A 4E 45 58 54 0D 0A 33 39 31 20 46 4F (i):NEXT..391 FO 000060: 52 20 69 3D 31 20 54 4F 20 34 30 3A 57 52 49 54 R i=1 TO 40:WRIT 000070: 45 23 39 2C 61 28 69 29 2C 67 28 69 29 2C 64 28 E#9,a(i),g(i),d( 000080: 69 29 2C 66 28 69 29 2C 63 28 69 29 2C 62 28 69 i),f(i),c(i),b(i 000090: 29 2C 62 24 28 69 29 2C 65 28 69 29 2C 6F 28 69 ),b$(i),e(i),o(i 0000A0: 29 2C 70 28 69 29 3A 4E 45 58 54 0D 0A 33 39 32 ),p(i):NEXT..392 0000B0: 20 46 4F 52 20 69 3D 31 20 54 4F 20 36 3A 57 52 FOR i=1 TO 6:WR 0000C0: 49 54 45 23 39 2C 72 28 31 2C 69 29 2C 72 28 32 ITE#9,r(1,i),r(2 0000D0: 2C 69 29 3A 4E 45 58 54 3A 46 4F 52 20 69 3D 31 ,i):NEXT:FOR i=1 0000E0: 20 54 4F 20 34 3A 57 52 49 54 45 23 39 2C 6A 24 TO 4:WRITE#9,j$ 0000F0: 28 69 29 2C 74 28 69 29 2C 67 24 28 69 29 3A 4E (i),t(i),g$(i):N 000100: 45 2B 48 58 54 3A 46 4F 52 20 69 3D 31 20 54 4F E+HXT:FOR i=1 TO 000110: 20 35 3A 57 52 49 54 45 23 39 2C 66 24 28 69 29 5:WRITE#9,f$(i) 000120: 2C 74 24 28 69 29 3A 4E 45 58 54 3A 46 4F 52 20 ,t$(i):NEXT:FOR 000130: 69 3D 31 20 54 4F 20 32 3A 57 52 49 54 45 23 39 i=1 TO 2:WRITE#9 000140: 2C 79 24 28 69 29 3A 4E 45 58 54 3A 46 4F 52 20 ,y$(i):NEXT:FOR 000150: 69 3D 31 20 54 4F 20 31 35 3A 57 52 49 54 45 23 i=1 TO 15:WRITE# 000160: 39 2C 68 24 28 69 29 3A 4E 45 58 54 0D 0A 33 39 9,h$(i):NEXT..39 000170: 33 20 46 4F 52 20 69 3D 31 20 54 4F 20 31 32 3A 3 FOR i=1 TO 12: 000180: 57 52 49 54 45 23 39 2C 68 28 69 29 2C 64 24 28 WRITE#9,h(i),d$( 000190: 69 29 3A 4E 45 58 54 3A 46 4F 52 20 69 3D 31 20 i):NEXT:FOR i=1 0001A0: 54 4F 20 32 3A 46 4F 52 20 69 31 3D 31 20 54 4F TO 2:FOR i1=1 TO 0001B0: 20 34 30 3A 57 52 49 54 45 23 39 2C 6E 28 69 2C 40:WRITE#9,n(i, 0001C0: 69 31 29 3A 4E 45 58 54 20 69 31 2C 69 0D 0A 33 i1):NEXT i1,i..3 0001D0: 39 34 20 43 4C 4F 53 45 4F 55 54 3A 52 45 54 55 94 CLOSEOUT:RETU 0001E0: 52 4E 0D 0A 33 39 35 20 46 4F 52 20 7A 3D 31 20 RN..395 FOR z=1 0001F0: 54 4F 20 31 32 30 30 30 3A 4E 45 58 54 3A 52 45 TO 12000:NEXT:RE 000200: 54 55 52 B3 E8 4E 0D 0A 33 39 36 20 46 4F 52 20 TUR..N..396 FOR 000210: 7A 3D 31 20 54 4F 20 33 30 30 30 3A 4E 45 58 54 z=1 TO 3000:NEXT 000220: 3A 52 45 54 55 52 4E 0D 0A 33 39 37 20 49 46 20 :RETURN..397 IF 000230: 70 61 3D 30 20 54 48 45 4E 20 4C 4F 43 41 54 45 pa=0 THEN LOCATE 000240: 20 70 78 2C 70 79 3A 52 41 3D 31 2B 49 4E 54 28 px,py:RA=1+INT( 000250: 52 4E 44 2A 33 29 3A 78 3D 49 4E 54 28 52 4E 44 RND*3):x=INT(RND 000260: 2A 31 31 29 2B 31 3A 49 46 20 52 41 3D 31 20 41 *11)+1:IF RA=1 A 000270: 4E 44 20 65 28 78 29 3D 34 20 4F 52 20 52 41 3E ND e(x)=4 OR RA> 000280: 31 20 41 4E 44 20 45 28 58 29 3C 34 20 20 54 48 1 AND E(X)<4 TH 000290: 45 4E 20 33 39 37 20 45 4C 53 45 20 6F 28 78 29 EN 397 ELSE o(x) 0002A0: 3D 6F 28 78 29 2B 31 3A 47 4F 54 4F 20 33 39 39 =o(x)+1:GOTO 399 0002B0: 0D 0A 33 39 38 20 51 24 3D 22 47 4F 41 4C 22 3A ..398 Q$="GOAL": 0002C0: 4C 4F 43 41 54 45 20 70 78 2C 70 7A 3A 52 45 54 LOCATE px,pz:RET 0002D0: 55 52 4E 0D 0A 33 39 39 20 66 28 78 29 3D 66 28 URN..399 f(x)=f( 0002E0: 78 29 2B 31 3A 67 28 78 29 3D 67 28 78 29 2B 31 x)+1:g(x)=g(x)+1 0002F0: 3A 49 46 20 66 28 78 29 3E 39 20 54 48 45 4E 20 :IF f(x)>9 THEN 000300: 66 28 78 29 3D 02 3F 39 0D 0A 34 30 30 20 49 46 f(x)=.?9..400 IF 000310: 20 67 28 78 29 3E 39 20 54 48 45 4E 20 67 28 78 g(x)>9 THEN g(x 000320: 29 3D 39 0D 0A 34 30 31 20 51 24 3D 42 24 28 58 )=9..401 Q$=B$(X 000330: 29 3A 52 45 54 55 52 4E 0D 0A 34 30 32 20 52 41 ):RETURN..402 RA 000340: 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A 62 3D 31 NDOMIZE TIME:b=1 000350: 2B 49 4E 54 28 41 42 53 28 52 4E 44 2A 6B 28 62 +INT(ABS(RND*k(b 000360: 69 29 2D 6B 28 67 34 29 2B 31 30 30 29 29 3A 78 i)-k(g4)+100)):x 000370: 3D 31 2B 49 4E 54 28 52 4E 44 2A 34 31 30 29 3A =1+INT(RND*410): 000380: 7A 3D 31 2B 49 4E 54 28 52 4E 44 2A 62 29 0D 0A z=1+INT(RND*b).. 000390: 34 30 33 20 49 46 20 61 69 2B 61 6A 2B 61 6B 2B 403 IF ai+aj+ak+ 0003A0: 61 6C 3E 61 65 2B 61 66 2B 61 67 2B 61 68 20 54 al>ae+af+ag+ah T 0003B0: 48 45 4E 20 34 30 35 0D 0A 34 30 34 20 49 46 20 HEN 405..404 IF 0003C0: 78 3D 34 31 30 20 54 48 45 4E 20 70 61 3D 30 3A x=410 THEN pa=0: 0003D0: 52 45 54 55 52 4E 20 45 4C 53 45 20 49 46 20 78 RETURN ELSE IF x 0003E0: 3E 3D 33 30 30 20 41 4E 44 20 78 3C 3D 33 30 33 >=300 AND x<=303 0003F0: 20 41 4E 44 20 7A 3D 62 20 54 48 45 4E 20 70 61 AND z=b THEN pa 000400: 3D 31 3A 52 45 54 55 89 3B 52 4E 20 45 4C 53 45 =1:RETU.;RN ELSE 000410: 20 70 61 3D 32 3A 52 45 54 55 52 4E 0D 0A 34 30 pa=2:RETURN..40 000420: 35 20 49 46 20 78 3D 34 31 30 20 54 48 45 4E 20 5 IF x=410 THEN 000430: 70 61 3D 31 3A 52 45 54 55 52 4E 20 45 4C 53 45 pa=1:RETURN ELSE 000440: 20 49 46 20 78 3E 3D 33 30 30 20 41 4E 44 20 78 IF x>=300 AND x 000450: 3C 3D 33 30 33 20 41 4E 44 20 7A 3D 62 20 54 48 <=303 AND z=b TH 000460: 45 4E 20 70 61 3D 30 3A 52 45 54 55 52 4E 20 45 EN pa=0:RETURN E 000470: 4C 53 45 20 70 61 3D 32 3A 52 45 54 55 52 4E 0D LSE pa=2:RETURN. 000480: 0A 34 30 36 20 49 46 20 65 78 3D 30 20 54 48 45 .406 IF ex=0 THE 000490: 4E 20 6E 3D 30 3A 47 4F 53 55 42 20 31 34 39 3A N n=0:GOSUB 149: 0004A0: 65 78 3D 31 3A 4C 4F 43 41 54 45 20 31 35 2C 31 ex=1:LOCATE 15,1 0004B0: 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 45 58 54 :PEN 2:PRINT"EXT 0004C0: 52 41 20 54 49 4D 45 22 3A 50 45 4E 20 31 3A 47 RA TIME":PEN 1:G 0004D0: 4F 54 4F 20 31 33 34 0D 0A 34 30 37 20 47 4F 53 OTO 134..407 GOS 0004E0: 55 42 20 31 35 31 3A 72 3D 32 2B 49 4E 54 28 52 UB 151:r=2+INT(R 0004F0: 4E 44 2A 34 29 3A 73 3D 33 2B 49 4E 54 28 52 4E ND*4):s=3+INT(RN 000500: 44 2A 33 29 3A 49 46 20 72 DD C5 3D 73 20 54 48 D*3):IF r..=s TH 000510: 45 4E 20 34 30 37 20 45 4C 53 45 20 4C 4F 43 41 EN 407 ELSE LOCA 000520: 54 45 20 31 32 2C 31 35 3A 50 52 49 4E 54 20 72 TE 12,15:PRINT r 000530: 22 50 45 4E 41 4C 54 49 45 53 22 73 3A 47 4F 54 "PENALTIES"s:GOT 000540: 4F 20 32 35 30 0D 0A 34 30 38 20 78 63 3D 2D 28 O 250..408 xc=-( 000550: 52 49 47 48 54 24 28 64 24 28 61 62 29 2C 31 29 RIGHT$(d$(ab),1) 000560: 3C 3E 22 51 22 20 41 4E 44 20 62 67 3D 31 20 4F <>"Q" AND bg=1 O 000570: 52 20 52 49 47 48 54 24 28 64 24 28 61 62 29 2C R RIGHT$(d$(ab), 000580: 31 29 3D 22 51 22 20 41 4E 44 20 68 28 61 62 2D 1)="Q" AND h(ab- 000590: 31 29 3E 31 20 4F 52 20 62 67 3D 30 20 41 4E 44 1)>1 OR bg=0 AND 0005A0: 20 64 24 28 61 62 29 3C 3E 22 22 29 3A 52 45 54 d$(ab)<>""):RET 0005B0: 55 52 4E 0D 0A 34 30 39 20 46 4F 52 20 6E 3D 31 URN..409 FOR n=1 0005C0: 20 54 4F 20 34 3A 49 46 20 67 24 28 6E 29 3D 61 TO 4:IF g$(n)=a 0005D0: 24 28 6A 29 20 54 48 45 4E 20 4E 3D 38 0D 0A 34 $(j) THEN N=8..4 0005E0: 31 30 20 4E 45 58 54 3A 49 46 20 4E 3D 39 20 54 10 NEXT:IF N=9 T 0005F0: 48 45 4E 20 32 33 36 0D 0A 34 31 31 20 49 46 20 HEN 236..411 IF 000600: 42 46 3D 32 20 54 48 45 4E 20 49 92 3F 46 20 4A BF=2 THEN I.?F J 000610: 24 28 33 29 3D 41 24 28 4A 29 20 4F 52 20 4A 24 $(3)=A$(J) OR J$ 000620: 28 34 29 3D 41 24 28 4A 29 20 54 48 45 4E 20 32 (4)=A$(J) THEN 2 000630: 33 36 0D 0A 34 31 32 20 49 46 20 4A 24 28 31 29 36..412 IF J$(1) 000640: 3D 41 24 28 4A 29 20 4F 52 20 4A 24 28 32 29 3D =A$(J) OR J$(2)= 000650: 61 24 28 4A 29 20 54 48 45 4E 20 32 33 36 0D 0A a$(J) THEN 236.. 000660: 34 31 33 20 50 45 4E 20 31 3A 46 4F 52 20 6D 3D 413 PEN 1:FOR m= 000670: 38 20 54 4F 20 31 35 3A 49 46 20 61 24 28 6A 29 8 TO 15:IF a$(j) 000680: 3D 4C 45 46 54 24 28 68 24 28 6D 29 2C 39 29 20 =LEFT$(h$(m),9) 000690: 4F 52 20 61 24 28 6A 29 3D 4C 45 46 54 24 28 4D OR a$(j)=LEFT$(M 0006A0: 49 44 24 28 68 24 28 6D 29 2C 31 35 29 2C 39 29 ID$(h$(m),15),9) 0006B0: 20 54 48 45 4E 20 61 31 3D 61 31 2B 31 3A 4D 3D THEN a1=a1+1:M= 0006C0: 31 39 0D 0A 34 31 34 20 4E 45 58 54 3A 49 46 20 19..414 NEXT:IF 0006D0: 4D 3D 32 30 20 54 48 45 4E 20 32 33 34 0D 0A 34 M=20 THEN 234..4 0006E0: 31 35 20 46 4F 52 20 6D 3D 38 20 54 4F 20 31 35 15 FOR m=8 TO 15 0006F0: 3A 49 46 20 4C 45 46 54 24 28 68 24 28 6D 29 2C :IF LEFT$(h$(m), 000700: 31 29 3D 22 20 22 20 54 48 45 4E 20 68 FE A3 24 1)=" " THEN h.£$ 000710: 28 6D 29 3D 61 24 28 6A 29 2B 4D 49 44 24 28 68 (m)=a$(j)+MID$(h 000720: 24 28 6D 29 2C 31 30 29 3A 4C 4F 43 41 54 45 20 $(m),10):LOCATE 000730: 35 2C 78 78 3A 50 52 49 4E 54 20 68 24 28 6D 29 5,xx:PRINT h$(m) 000740: 3A 7A 3D 7A 2B 31 3A 78 78 3D 78 78 2B 31 3A 78 :z=z+1:xx=xx+1:x 000750: 78 3D 78 78 2B 28 78 78 3D 32 30 29 2A 38 3A 4D x=xx+(xx=20)*8:M 000760: 3D 31 39 0D 0A 34 31 36 20 4E 45 58 54 3A 49 46 =19..416 NEXT:IF 000770: 20 4D 3D 32 30 20 54 48 45 4E 20 32 33 37 0D 0A M=20 THEN 237.. 000780: 34 31 37 20 46 4F 52 20 6D 3D 38 20 54 4F 20 31 417 FOR m=8 TO 1 000790: 35 3A 49 46 20 52 49 47 48 54 24 28 4C 45 46 54 5:IF RIGHT$(LEFT 0007A0: 24 28 68 24 28 6D 29 2C 31 35 29 2C 31 29 3D 22 $(h$(m),15),1)=" 0007B0: 20 22 20 54 48 45 4E 20 68 24 28 6D 29 3D 4C 45 " THEN h$(m)=LE 0007C0: 46 54 24 28 68 24 28 6D 29 2C 31 34 29 2B 61 24 FT$(h$(m),14)+a$ 0007D0: 28 6A 29 2B 4D 49 44 24 28 68 24 28 6D 29 2C 32 (j)+MID$(h$(m),2 0007E0: 34 29 3A 4C 4F 43 41 54 45 20 35 2C 78 78 3A 50 4):LOCATE 5,xx:P 0007F0: 52 49 4E 54 20 68 24 28 6D 29 3A 7A 3D 7A 2B 31 RINT h$(m):z=z+1 000800: 3A 78 78 3D 78 78 2B 31 3A 4D 3D 31 39 0D 0A BF :xx=xx+1:M=19... 000810: 91 FF FF FF FF .....
previousnext* BLOCK 0041 : TURBO LOADING DATA
HEADER
Block Name : I.MANAGER
Block Number : 16
Block last : YES
File type : Ascii
File adress start : &9E7C
File adress length : &00D7
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 1186
Length of SYNC First pulse : 873
Length of SYNC Second pulse : 556
Length of ZERO bit pulse : 608
Length of ONE bit pulse : 1216
Length of PILOT tone : 4025
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 629

Duration : 2131 ms
Pause After this block : 19 ms
Duration block + Pause : 2150 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER...... 000010: 00 10 FF 16 D7 00 7C 9E 00 00 00 00 00 00 00 00 ......|......... 000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 7A 1B FF FF FF FF .z.....
previousnext* BLOCK 0042 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 1186
Length of SYNC First pulse : 556
Length of SYNC Second pulse : 635
Length of ZERO bit pulse : 603
Length of ONE bit pulse : 1205
Length of PILOT tone : 4086
Used bits in last byte : 8 OK
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 13 720

Duration : 2336 ms
Pause After this block : 19 ms
Duration block + Pause : 2355 ms
Duration block + Pause : 00 h 00 m 02 s		000000: 16 34 31 38 20 4E 45 58 54 3A 49 46 20 4D 3D 32 .418 NEXT:IF M=2 000010: 30 20 54 48 45 4E 20 32 33 37 20 45 4C 53 45 20 0 THEN 237 ELSE 000020: 32 34 34 0D 0A 34 31 39 20 45 52 41 53 45 20 48 244..419 ERASE H 000030: 24 3A 44 49 4D 20 48 24 28 31 35 29 3A 52 45 54 $:DIM H$(15):RET 000040: 55 52 4E 0D 0A 34 32 30 20 45 52 41 53 45 20 44 URN..420 ERASE D 000050: 24 2C 47 24 2C 54 24 2C 51 3A 44 49 4D 20 47 24 $,G$,T$,Q:DIM G$ 000060: 28 34 29 2C 71 28 35 2C 35 29 2C 44 24 28 31 33 (4),q(5,5),D$(13 000070: 29 2C 54 24 28 35 29 3A 52 45 54 55 52 4E 0D 0A ),T$(5):RETURN.. 000080: 34 32 31 20 4E 45 58 54 3A 52 45 54 55 52 4E 0D 421 NEXT:RETURN. 000090: 0A 34 32 32 20 49 46 20 42 4B 3D 32 20 54 48 45 .422 IF BK=2 THE 0000A0: 4E 20 4C 4F 43 41 54 45 20 33 2C 31 39 3A 50 45 N LOCATE 3,19:PE 0000B0: 4E 20 30 3A 50 52 49 4E 54 20 53 50 41 43 45 24 N 0:PRINT SPACE$ 0000C0: 28 31 34 29 3A 50 45 4E 20 31 0D 0A 34 32 33 20 (14):PEN 1..423 0000D0: 52 45 54 55 52 4E 0D 0A 00 00 00 00 00 00 00 00 RETURN.......... 0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000100: 00 60 D3 FF FF FF FF .`.....
previoustop
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan