Championship Golf (UK) (1989) [Original] [TAPE].cdt

[STRUCTURE]

Championship Golf (UK) (1989) [Original] [TAPE].cdt


Creator : ZXTape!
Total of blocks : 55
Blocks format : [P]PAUSE[/P] (1), [P]TURBO LOADING DATA[/P] (54)[/STRUCTURE]
Catalogue
CheckData
BLOCKSTOTAL
PAUSE1
TURBO LOADING DATA54
TOTAL55

SUM OF ALL DATA4 132 709
Sum of data for Turbo Loading - Turbo Loading size 1 byte4 132 709- 04 132 709
Sum of data for Pure Data - Pure Data size 3 bytes (sum = 262)0- 00
 
Result 4 132 709- 04 132 709
BLOCKTYPE BLOCKSUMDATAUsed bits
in last byte		Last
byte		DATA
0000PAUSE 
0001TURBO LOADING DATA2 3667FE263
0002TURBO LOADING DATA96 7027FE1553
0003TURBO LOADING DATA2 5327FE263
0004TURBO LOADING DATA237 8967FE2069
0005TURBO LOADING DATA2 0137FE263
0006TURBO LOADING DATA236 7227FE2069
0007TURBO LOADING DATA2 2507FE263
0008TURBO LOADING DATA235 6787FE2069
0009TURBO LOADING DATA2 2357FE263
0010TURBO LOADING DATA232 7317FE2069
0011TURBO LOADING DATA2 3647FE263
0012TURBO LOADING DATA235 2337FE2069
0013TURBO LOADING DATA2 2987FE263
0014TURBO LOADING DATA235 8047FE2069
0015TURBO LOADING DATA2 3777FE263
0016TURBO LOADING DATA244 2977FE2069
0017TURBO LOADING DATA2 4357FE263
0018TURBO LOADING DATA248 7167FE2069
0019TURBO LOADING DATA1 9907FE263
0020TURBO LOADING DATA119 0687FE2069
0021TURBO LOADING DATA2 4967FE263
0022TURBO LOADING DATA29 7037FE521
0023TURBO LOADING DATA2 2077FE263
0024TURBO LOADING DATA130 1227FE2069
0025TURBO LOADING DATA2 4137FE263
0026TURBO LOADING DATA57 7047FE1037
0027TURBO LOADING DATA2 2757FE263
0028TURBO LOADING DATA136 8377FE2069
0029TURBO LOADING DATA2 1127FE263
0030TURBO LOADING DATA129 6147FE2069
0031TURBO LOADING DATA2 0077FE263
0032TURBO LOADING DATA130 2927FE2069
0033TURBO LOADING DATA2 1367FE263
0034TURBO LOADING DATA132 9067FE2069
0035TURBO LOADING DATA1 9877FE263
0036TURBO LOADING DATA127 5547FE2069
0037TURBO LOADING DATA2 0077FE263
0038TURBO LOADING DATA126 7897FE2069
0039TURBO LOADING DATA2 2407FE263
0040TURBO LOADING DATA128 8677FE2069
0041TURBO LOADING DATA1 8327FE263
0042TURBO LOADING DATA128 4177FE2069
0043TURBO LOADING DATA2 0117FE263
0044TURBO LOADING DATA130 4727FE2069
0045TURBO LOADING DATA1 9997FE263
0046TURBO LOADING DATA132 0497FE2069
0047TURBO LOADING DATA1 7767FE263
0048TURBO LOADING DATA130 0857FE2069
0049TURBO LOADING DATA2 0077FE263
0050TURBO LOADING DATA124 7927FE2069
0051TURBO LOADING DATA1 9647FE263
0052TURBO LOADING DATA127 9237FE2069
0053TURBO LOADING DATA2 3877FE263
0054TURBO LOADING DATA47 0207FE779

CATALOGUE
BLOCKFILENAMEFILE BLOCKFIRST BLOCKLAST BLOCKFILE TYPESTARTLENGTHEXECUTIONLENGTH FILE
0001GOLF1YESYESBasic Protégé&0170&0565&0000&0565
0003CGPIC.SCR1YES-Binaire&C000&0800&0000&4000
0005CGPIC.SCR2--Binaire&C800&0800&0000&4000
0007CGPIC.SCR3--Binaire&D000&0800&0000&4000
0009CGPIC.SCR4--Binaire&D800&0800&0000&4000
0011CGPIC.SCR5--Binaire&E000&0800&0000&4000
0013CGPIC.SCR6--Binaire&E800&0800&0000&4000
0015CGPIC.SCR7--Binaire&F000&0800&0000&4000
0017CGPIC.SCR8-YESBinaire&F800&0800&0000&4000
0019GOLF11YES-Ascii&9E7C&0800&0000&0000
0021GOLF12-YESAscii&9E7C&01D6&0000&0000
0023GOLF21YES-Ascii&9E7C&0800&0000&0000
0025GOLF22-YESAscii&9E7C&0362&0000&0000
0027AGOLF1YES-Ascii&9E7C&0800&0000&0000
0029AGOLF2--Ascii&9E7C&0800&0000&0000
0031AGOLF3--Ascii&9E7C&0800&0000&0000
0033AGOLF4--Ascii&9E7C&0800&0000&0000
0035AGOLF5--Ascii&9E7C&0800&0000&0000
0037AGOLF6--Ascii&9E7C&0800&0000&0000
0039AGOLF7--Ascii&9E7C&0800&0000&0000
0041AGOLF8--Ascii&9E7C&0800&0000&0000
0043AGOLF9--Ascii&9E7C&0800&0000&0000
0045AGOLF10--Ascii&9E7C&0800&0000&0000
0047AGOLF11--Ascii&9E7C&0800&0000&0000
0049AGOLF12--Ascii&9E7C&0800&0000&0000
0051AGOLF13--Ascii&9E7C&0800&0000&0000
0053AGOLF14-YESAscii&9E7C&02B3&0000&0000

ZXTape! Major Version : 01 Minor Version : 0C
next* BLOCK 0000 : PAUSE
Total size : 3 bytes
Pause : 11609ms
previousnext* BLOCK 0001 : TURBO LOADING DATA
HEADER
Block Name : GOLF
Block Number : 1
Block first : YES
Block last : YES
File type : Basic Protégé
File adress start : &0170
File adress length : &0565
File adress execution : &0000
File length file : &0565

Length of PILOT pulse : 2290
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1164
Length of ONE bit pulse : 2329
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 366		000000: 2C 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 00 ,GOLF........... 000010: 00 01 FF 01 65 05 70 01 FF 65 05 00 00 00 00 00 ....e.p..e...... 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 24 86 FF FF FF FE .$.....
previousnext* BLOCK 0002 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2284
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1147
Length of ONE bit pulse : 2294
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 10127ms
Data : 1553 bytes
Total size : 1572 bytes

Sum DATA : 96 702		000000: 16 D6 00 0A 00 03 00 00 70 E1 28 0F 29 EF FF 03 ........p.(.)... 000010: 28 19 0E 29 F4 FF 03 28 0E 29 F4 FF 03 28 19 0F (..)...(.)...(.. 000020: 29 F4 FF 03 28 0F 29 01 03 00 00 70 E1 28 12 29 )...(.)....p.(.) 000030: EF FF 03 28 19 0E 29 F4 FF 03 28 0F 29 F4 FF 03 ...(..)...(.)... 000040: 28 19 0F 29 F4 FF 03 28 0E 29 01 03 00 00 70 E1 (..)...(.)....p. 000050: 28 14 29 EF FF 03 28 19 0E 29 F4 FF 03 28 10 29 (.)...(..)...(.) 000060: F4 FF 03 28 19 0F 29 F4 FF 03 28 0F 29 01 03 00 ...(..)...(.)... 000070: 00 70 E1 28 10 29 EF FF 03 28 19 0E 29 F4 FF 03 .p.(.)...(..)... 000080: 28 11 29 F4 FF 03 28 19 0F 29 F4 FF 03 28 0F 29 (.)...(..)...(.) 000090: 01 03 00 00 70 E1 28 13 29 EF FF 03 28 19 0E 29 ....p.(.)...(..) 0000A0: F4 FF 03 28 10 29 F4 FF 03 28 19 0F 29 F4 FF 03 ...(.)...(..)... 0000B0: 28 11 29 01 03 00 00 70 E1 28 11 29 EF FF 03 28 (.)....p.(.)...( 0000C0: 19 0E 29 F4 FF 03 28 11 29 F4 FF 03 28 19 0F 29 ..)...(.)...(..) 0000D0: F4 FF 03 28 10 29 00 3A 00 14 00 A4 20 8D 20 19 ...(.).:.... . . 0000E0: 42 2C 0F 2C 0E 2C 0E 2C 0E 01 8E 20 41 2D 6A 2C B,.,.,.,... A-j, 0000F0: 6C 2D 73 2C 77 01 CF 20 80 20 19 EF 01 9F 20 1E l-s,w.. . .... . 000100: DC F7 B5 FF 01 B7 22 44 22 01 AA 20 FF 42 F5 0F ......"D".. .B.. 000110: 01 89 00 2C 00 1E 00 9E 20 0D 00 00 C9 EF 0E 20 ...,.... ...... 000120: EC 20 19 0F 01 C3 20 0D 00 00 C1 01 A2 20 0D 00 . .... ...... .. 000130: 00 C9 2C 0D 00 00 C1 01 B0 20 0D 00 00 C9 00 33 ..,...... .....3 000140: 00 28 00 8C 20 30 2C 33 2C 36 2C 39 2C 31 38 2C .(.. 0,3,6,9,18, 000150: 31 39 2C 31 36 2C 31 35 2C 32 2C 31 2C 32 34 2C 19,16,15,2,1,24, 000160: 32 35 2C 31 33 2C 31 32 2C 31 32 2C 32 35 2C 32 25,13,12,12,25,2 000170: 36 00 1A 00 32 00 AD 20 0E 01 A8 22 21 43 47 50 6...2.. ..."!CGP 000180: 49 43 2E 53 43 52 22 2C 1C 00 C0 00 6E 00 46 00 IC.SCR",....n.F. 000190: CF 20 19 FF 2C 19 72 2C 19 90 2C 10 2C 19 40 2C . ..,.r,..,.,.@, 0001A0: 16 2C 19 20 2C 10 2C 19 9D 01 CF 20 19 FE 2C 19 .,. ,.,.... ..,. 0001B0: 56 2C 19 80 2C 0F 2C 19 80 2C 0F 2C 0F 2C 19 C2 V,..,.,..,.,.,.. 0001C0: 2C 19 28 01 CF 20 19 FD 2C 19 21 2C 0E 2C 19 84 ,.(.. ..,.!,.,.. 0001D0: 2C 19 20 2C 0F 2C 12 2C 19 80 2C 16 01 CF 20 19 ,. ,.,.,..,... . 0001E0: FC 2C 19 2A 2C 19 41 2C 19 9C 2C 19 A0 2C 19 20 .,.*,.A,..,..,. 0001F0: 2C 19 80 2C 19 80 2C 19 20 00 6B 00 50 00 CF 20 ,..,..,. .k.P.. 000200: 19 FB 2C 9B 0F 19 B4 2C 19 4B 2C 12 2C 19 31 2C ..,....,.K,.,.1, 000210: 17 2C 16 2C 10 2C 0F 01 CF 20 19 FA 2C 19 A0 2C .,.,.,... ..,.., 000220: 19 20 2C 19 80 2C 19 0C 2C 19 C0 2C 19 58 2C 19 . ,..,..,..,.X,. 000230: 27 01 CF 20 19 F9 2C 10 2C 17 2C 19 0A 2C 19 12 '.. ..,.,.,..,.. 000240: 2C 19 65 2C 17 2C 19 22 2C 19 4C 01 CF 20 19 F8 ,.e,.,.",.L.. .. 000250: 2C 0E 2C 11 2C 19 0C 2C 19 10 2C 19 20 2C 19 40 ,.,.,..,..,. ,.@ 000260: 2C 19 40 2C 19 40 00 75 00 5A 00 CF 20 19 F7 2C ,.@,.@.u.Z.. .., 000270: 19 10 2C 19 AF 2C 19 40 2C 0E 2C 0E 2C 0E 2C 0E ..,..,.@,.,.,.,. 000280: 2C 0E 01 CF 20 19 F6 2C 0E 2C 19 C0 2C 19 38 2C ,... ..,.,..,.8, 000290: 12 2C 10 2C 10 2C 10 2C 10 01 CF 20 19 F5 2C 12 .,.,.,.,... ..,. 0002A0: 2C 12 2C 10 2C 10 2C 10 2C 0F 2C 0F 2C 10 01 CF ,.,.,.,.,.,.,... 0002B0: 20 19 F4 2C 10 2C 10 2C 12 2C 12 2C 12 2C 16 2C ..,.,.,.,.,.,., 0002C0: 19 F0 2C 0E 01 CF 20 19 F3 2C 0E 2C 0E 2C 0E 2C ..,... ..,.,.,., 0002D0: 0E 2C 0E 2C 19 3F 2C 19 C0 2C 0E 00 59 00 64 00 .,.,.?,..,..Y.d. 0002E0: CF 20 19 F2 2C 19 40 2C 19 40 2C 19 40 2C 19 40 . ..,.@,.@,.@,.@ 0002F0: 2C 19 40 2C 19 20 2C 19 18 2C 15 01 CF 20 19 F1 ,.@,. ,..,... .. 000300: 2C 19 20 2C 19 9D 9B 20 2C 19 20 2C 19 40 2C 19 ,. ,... ,. ,.@,. 000310: 40 2C 19 40 2C 19 20 2C 19 20 01 CF 20 19 F0 2C @,.@,. ,. .. .., 000320: 19 10 2C 19 18 2C 19 1C 2C 19 1C 2C 19 10 2C 19 ..,..,..,..,..,. 000330: 10 2C 19 10 2C 0E 00 13 00 6E 00 85 20 AB 22 21 .,..,....n.. ."! 000340: 47 4F 4C 46 31 22 2C 19 0A 00 17 00 60 EA 82 20 GOLF1",.....`.. 000350: 0E 01 BF 20 03 00 00 70 E1 28 10 29 01 8A 01 C9 ... ...p.(.).... 000360: 00 27 00 DA F7 BF 20 EA 28 19 0A 29 01 9F 20 1E .'.... .(..).. . 000370: 0C F8 01 BF 22 20 50 45 52 20 54 4F 55 52 4E 41 ...." PER TOURNA 000380: 4D 45 4E 54 22 01 C9 00 18 00 EE F7 9F 20 1E 02 MENT"........ .. 000390: F8 01 BF 20 EA 28 19 23 29 3B 22 2B 22 01 C9 00 ... .(.#);"+"... 0003A0: 18 00 F8 F7 9F 20 1E 02 F8 01 BF 20 EA 28 19 23 ..... ..... .(.# 0003B0: 29 3B 22 2D 22 01 C9 00 0D 00 02 F8 BF 20 EA 28 );"-"........ .( 0003C0: 19 1C 29 3B 00 42 00 0C F8 03 00 00 61 B1 EF FF ..);.B......a... 0003D0: 19 28 0D 00 00 74 FA 29 01 03 00 00 61 B1 EF FF .(...t.)....a... 0003E0: 79 28 03 00 00 61 B1 2C FF 0E 28 03 00 00 61 B1 y(...a.,..(...a. 0003F0: 29 F5 0F 29 01 BF 20 FF 03 28 19 A3 29 3B 03 00 )..).. ..(.£);.. 000400: 00 61 B1 3B 01 C9 00 FB 71 26 00 00 FA 03 00 00 .a.;....q&...... 000410: 69 EE EF 22 22 01 03 00 00 69 EE EF FF 1C 28 FF i..""....i....(. 000420: 43 29 01 D6 20 FF 43 F2 22 22 01 D5 01 C9 00 26 C).. .C."".....& 000430: 00 64 FA 9F 20 1E 00 FA 01 A1 20 03 00 00 69 EE .d.. ..... ...i. 000440: EF 22 59 22 20 FC 20 03 00 00 69 EE EF 22 4E 22 ."Y" . ...i.."N" 000450: 20 EB 20 C9 00 0A 00 6E FA A0 20 1E 64 FA 00 22 . ....n.. .d.." 000460: 00 C8 FA 03 00 00 69 EE EF 22 22 01 D6 20 03 00 ......i.."".. .. 000470: 00 69 EE EF 22 22 01 9F 20 1E 00 FA 01 D5 01 C9 .i.."".. ....... 000480: 00 19 00 4C FE 9E 20 0D 00 00 7A 39 B9 EF 0F 20 ...L.. ...z9... 000490: EC 20 1A E8 03 01 B0 01 C9 00 53 00 DC FF 8D 20 . ........S.... 0004A0: E4 20 0D 00 00 E1 28 0D 00 00 FA 29 EF F5 28 0D . ....(....)..(. 0004B0: 00 00 FA F1 19 0A 29 F6 19 0A F5 28 0D 00 00 FA ......)....(.... 0004C0: EE 19 63 29 F6 19 63 F5 0D 00 00 FA F6 28 0D 00 ..c)..c......(.. 0004D0: 00 FA EE 17 20 FA 20 0D 00 00 FA F1 19 64 29 01 .... . ......d). 0004E0: C2 20 FF 46 01 82 20 17 01 8A 01 C9 00 73 00 DE . .F.. ......s.. 0004F0: FF AD 20 0F 01 D8 20 23 0F 2C 12 2C 19 26 2C 19 .. ... #.,.,.&,. 000500: 16 2C 19 16 01 D8 20 23 10 5C 6B 2C 13 2C 19 25 .,.... #.\k,.,.% 000510: 2C 19 17 2C 19 19 01 D8 20 23 11 2C 12 2C 19 14 ,..,.... #.,.,.. 000520: 2C 19 17 2C 19 18 01 BF 20 23 11 2C 03 00 00 70 ,..,.... #.,...p 000530: E1 28 10 29 01 82 20 17 01 A2 20 0E 2C 17 01 A2 .(.).. ... .,... 000540: 20 0F 2C 19 1A 01 A2 20 10 2C 19 0B 01 A2 20 11 .,.... .,.... . 000550: 2C 0E 01 BF 20 03 00 00 70 E1 28 0F 29 01 8A 01 ,... ...p.(.)... 000560: C9 00 0C 00 FF FF 83 20 1C 03 BB 01 C9 00 00 00 ....... ........ 000570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0005A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0005B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0005C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0005D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0005E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0005F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000600: 00 00 00 00 00 00 00 00 00 00 00 E8 31 FF FF FF ............1... 000610: FE .
previousnext* BLOCK 0003 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 1
Block first : YES
File type : Binaire
File adress start : &C000
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2271
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1158
Length of ONE bit pulse : 2316
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 532		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 01 00 02 00 08 00 C0 FF 00 40 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 81 B6 FF FF FF FE .......
previousnext* BLOCK 0004 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2277
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1132
Length of ONE bit pulse : 2265
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2523ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 237 896		000000: 16 13 13 FF FF AB 33 57 FF 03 03 03 03 03 03 03 ......3W........ 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 03 AB 13 77 BB 33 13 33 33 ..........w.3.33 000040: 33 BB FF 23 BB 13 33 13 33 33 33 33 33 33 33 33 3..#..3.33333333 000050: 33 33 33 23 33 33 13 33 BB 23 03 03 03 03 03 03 333#33.3.#...... 000060: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 03 57 BB 13 33 33 33 23 33 ........W..333#3 000090: 33 33 33 57 BB 77 33 BB 33 BB 33 33 13 77 33 BB 333W.w3.3.33.w3. 0000A0: 13 77 13 33 33 33 23 03 77 33 33 23 03 03 03 03 .w.333#.w33#.... 0000B0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0000C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0000D0: 03 03 03 03 03 03 03 03 AB 33 13 33 77 33 23 33 .........3.3w3#3 0000E0: 33 BB 33 77 33 33 BB 33 13 33 33 33 33 33 BB 13 3.3w33.3.33333.. 0000F0: FF 33 23 C0 11 13 33 33 62 C0 C0 C0 55 23 57 23 .3#...33b...U#W# 000100: 03 BD 2C 42 80 03 C0 01 03 03 03 03 03 03 C0 00 ..,B............ 000110: 00 00 00 80 03 03 03 03 03 03 03 80 40 C0 03 03 ............@... 000120: 03 03 03 03 03 03 03 03 03 33 13 33 33 33 33 33 .........3.33333 000130: 33 33 33 33 33 23 BB 23 13 33 77 BB BB 13 13 BB 33333#.#.3w..... 000140: 33 57 03 33 BB 23 23 22 00 55 33 AA 00 77 33 00 3W.3.##".U3..w3. 000150: 00 00 11 33 AB FF 00 00 00 00 00 00 00 03 00 01 ...3............ 000160: 03 03 03 03 03 03 03 03 03 02 00 00 00 00 00 C0 ................ 000170: 03 03 03 03 03 03 13 33 33 33 33 77 33 23 13 33 .......3333w3#.3 000180: 13 FF FF FF FF 77 AB AB 57 AB 57 23 AB AB AB FF .....w..W.W#.... 000190: 03 03 03 57 AB 57 BB 33 33 33 03 33 13 AB BB 23 ...W.W.333.3...# 0001A0: 33 33 13 BB BB 77 BB 23 23 33 13 23 23 AB 03 03 33...w.##3.##... 0001B0: 57 03 03 03 03 03 03 33 77 AA 40 00 3C 3C 81 03 W......3w.@.<<.. 0001C0: 03 03 03 03 03 03 03 57 AB 03 AB 23 33 13 23 03 .......W...#3.#. 0001D0: 03 AB 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001E0: AB 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 2F CF 03 03 06 0C 48 48 48 0C 0C 0C 09 .../.....HHH.... 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 48 48 C0 C0 C0 C0 40 84 0C .......HH....@.. 000260: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000280: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 40 84 0C .......H.....@.. 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 03 03 03 06 0C 08 03 ................ 0002D0: 03 03 03 03 03 03 03 53 F3 F3 F3 51 F3 F3 F3 A3 .......S...Q...£ 0002E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002F0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 C0 0C ................ 000300: 81 03 03 03 03 A2 22 03 03 03 03 03 03 03 03 03 ......"......... 000310: 03 03 03 03 03 03 03 03 03 03 03 F3 F3 F3 F3 F3 ................ 000320: A2 F3 F3 F3 F3 F3 F3 CC CC CC CC CC CC CC CC C0 ................ 000330: D1 81 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000340: 03 03 03 03 03 03 03 03 03 42 C0 C0 C0 C0 C0 40 .........B.....@ 000350: 40 84 0C 09 03 03 03 03 03 03 03 46 CC CC CC CC @..........F.... 000360: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000370: 88 CC D9 CC E6 CC F3 64 CC 98 64 CC CC CC 98 CC .......d..d..... 000380: 30 CC 64 CC CC CC CC CC CC CC 89 03 03 03 03 03 0.d............. 000390: 03 03 03 03 03 03 03 03 03 03 40 40 C0 C0 40 40 ..........@@..@@ 0003A0: 82 40 84 4C CC CC CC D9 64 B2 CC CC CC CC D9 CC .@.L....d....... 0003B0: CC CC CC 64 CC 98 CC CC CC CC CC CC CC CC CC CC ...d............ 0003C0: CC CC CC CC CC CC CC CC CC CC CC 64 98 98 64 98 ...........d..d. 0003D0: 64 98 CC 64 CC 64 CC 98 98 CC 64 CC CC CC CC CC d..d.d....d..... 0003E0: CC F3 F3 F3 A2 00 E6 64 CC CC C3 C3 C3 C3 C3 C3 .......d........ 0003F0: C3 C3 C0 EC CC CC CC CC 64 98 CC 98 CC CC CC CC ........d....... 000400: CC E6 D9 D9 CC CC CC 29 C6 CC CC CC CC CC 98 CC .......)........ 000410: 64 CC CC CC CC CC CC CC CC 98 CC D9 E6 D9 64 CC d.............d. 000420: D9 CC CC CC E6 D9 CC 30 CC CC CC CC CC F3 F3 F3 .......0........ 000430: F3 B2 B2 CC 98 CC CC CC CC CC 98 CC C9 82 41 00 ..............A. 000440: 82 C3 C3 C3 82 77 CC CC CC CC CC CC CC CC CC CC .....w.......... 000450: CC CC CC CC CC 30 CC CC CC CC CC 30 CC CC CC CC .....0.....0.... 000460: CC CC CC 64 CC CC CC 98 CC CC 64 CC 64 64 98 CC ...d......d.dd.. 000470: 98 98 98 CC CC 64 CC CC CC E6 D9 F3 D9 E6 E6 CC .....d.......... 000480: 98 CC 64 CC CC 98 CC 64 CC CC CC CC CC C9 C3 41 ..d....d.......A 000490: 00 82 C3 C3 C3 99 EE CC CC CC CC CC 98 98 30 64 ..............0d 0004A0: CC CC 64 64 CC CC CC 64 CC E4 CC CC CC CC CC CC ..dd...d........ 0004B0: CC 64 CC CC CC CC 64 CC CC 98 CC CC CC CC CC CC .d....d......... 0004C0: CC CC 98 CC 98 98 CC E6 D9 CC CC CC CC CC CC CC ................ 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................ 0004E0: 41 00 82 C3 C3 CC 77 CC CC CC CC CC 98 64 E6 64 A.....w......d.d 0004F0: CC 64 CC 98 98 64 98 CC CC CC CC CC CC CC CC CC .d...d.......... 000500: CC CC CC CC 98 CC CC CC CC B7 83 CC CC 64 E4 CC .............d.. 000510: CC D8 CC 64 CC 98 64 CC E4 CC F0 CC CC D8 CC CC ...d..d......... 000520: CC CC E4 CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000530: C3 41 00 82 C3 C3 C6 CC 99 EE CC CC CC 64 CC CC .A...........d.. 000540: 98 CC F3 CC CC CC E6 F3 F2 E6 B2 D9 CC B2 CC CC ................ 000550: CC CC CC CC CC CC CC CC CC CC CC CC CC E4 CC CC ................ 000560: CC CC CC D8 98 D8 CC CC CC D8 CC E4 CC CC CC E4 ................ 000570: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000580: 41 41 00 C3 C3 C6 CC CC CC 77 CC CC CC CC CC CC AA.......w...... 000590: CC CC CC 64 CC CC CC CC CC CC D8 98 CC 64 CC 64 ...d.........d.d 0005A0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC D8 CC ................ 0005B0: E4 D8 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 41 00 82 C3 C3 CC CC CC CC 77 CC CC CC CC CC CC A........w...... 0005E0: CC 64 CC 64 CC 64 CC CC CC CC CC CC CC CC CC CC .d.d.d.......... 0005F0: CC CC CC CC CC CC CC CC CC CC CC D8 CC CC CC CC ................ 000600: E4 D8 CC F0 E4 CC CC CC CC CC CC EB DD CC CC CC ................ 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 88 00 11 22 00 C6 CC CC CC CC DD BB 33 66 CC ...."........3f. 000630: CC CC CC CC CC CC 98 CC CC CC CC 64 CC CC CC CC ...........d.... 000640: CC CC CC CC CC 64 CC CC CC CC CC CC CC CC CC CC .....d.......... 000650: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000660: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000670: CC 33 11 77 FF AA 66 CC CC CC CC CC CC CC CC CC .3.w..f......... 000680: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000690: CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d............. 0006A0: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F *??????????????? 0006B0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 CC CC ?????????????... 0006C0: CC CC CC CC CC 99 FF 66 CC CC CC CC CC CC CC 64 .......f.......d 0006D0: CC CC CC CC CC CC CC CC CC CC CC 98 CC 98 CC CC ................ 0006E0: CC 64 CC 64 CC CC CC CC CC CC CC CC CC CC CC 2A .d.d...........* 0006F0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ???????????????? 000700: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 F1 3A 15 ????????????..:. 000710: CC CC CC CC CC CC CC CC CC CC CC CC CC 98 98 98 ................ 000720: CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC CC .d.............. 000730: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000740: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F *??????????????? 000750: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 3F 15 CC ????????????*?.. 000760: CC CC CC CC CC CC CC CC 98 CC 64 CC CC 64 CC CC ..........d..d.. 000770: CC 98 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000780: CC 98 CC CC CC CC CC CC CC CC CC CC CC CC CC 9D ................ 000790: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A .??????????????* 0007A0: 15 3F 2A 3F 2A 3F 2A 2A 00 3F 00 15 2A 6E CC CC .?*?*?**.?..*n.. 0007B0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007C0: CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC CC .d.............. 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F2 ................ 000810: C0 FF FF FF FE .....
previousnext* BLOCK 0005 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 2
File type : Binaire
File adress start : &C800
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2267
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1156
Length of ONE bit pulse : 2313
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 013		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 02 00 02 00 08 00 C8 00 00 40 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 21 05 FF FF FF FE .!.....
previousnext* BLOCK 0006 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2264
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1134
Length of ONE bit pulse : 2268
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2526ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 236 722		000000: 16 77 23 77 AB 03 03 AB 03 57 03 03 03 03 03 03 .w#w.....W...... 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 57 13 23 BB 33 BB 33 33 23 .......W.#.3.33# 000040: 77 33 33 23 77 33 33 33 77 33 33 33 33 33 33 23 w33#w333w333333# 000050: 33 57 23 33 13 33 33 13 33 03 03 03 03 03 03 03 3W#3.33.3....... 000060: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 AB 23 03 77 33 23 33 33 33 ........#.w3#333 000090: 33 33 33 33 33 77 33 33 13 23 33 33 33 33 33 33 33333w33.#333333 0000A0: 33 FF FF 23 23 C0 C0 C0 91 62 11 77 03 42 C0 C0 3..##....b.w.B.. 0000B0: 03 03 03 42 C0 C0 03 03 03 03 03 03 C0 C0 C0 C0 ...B............ 0000C0: C0 C0 81 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0000D0: 03 03 03 03 03 03 03 03 13 33 BB 33 33 33 33 33 .........3.33333 0000E0: 33 33 33 33 13 BB 77 77 33 77 33 33 33 23 33 23 3333..ww3w333#3# 0000F0: 33 33 33 C0 11 33 13 03 33 62 80 C0 11 23 33 03 333..3..3b...#3. 000100: 03 61 A6 42 80 03 C0 01 03 03 03 03 03 03 C0 01 .a.B............ 000110: 03 03 03 00 03 03 03 03 03 03 03 00 00 00 81 03 ................ 000120: 03 03 03 03 03 03 03 03 03 13 77 33 13 33 33 33 ..........w3.333 000130: 33 23 33 BB 33 FF 33 BB AB 33 33 BB 33 13 33 77 3#3.3.3..33.3.3w 000140: 23 FF 57 13 BB BB 33 33 33 77 23 77 FF 57 13 33 #.W...333w#w.W.3 000150: 23 33 33 33 33 33 23 23 77 33 03 03 03 03 03 03 #33333##w3...... 000160: 03 03 03 03 03 03 03 03 03 02 00 00 00 00 00 81 ................ 000170: 03 03 03 03 03 03 03 13 23 23 33 03 23 33 33 33 ........##3.#333 000180: BB FF FF FF FF AB FF 77 03 23 FF 57 13 33 03 03 .......w.#.W.3.. 000190: 03 03 57 57 FF 03 03 03 AB 03 33 13 03 03 23 33 ..WW......3...#3 0001A0: 33 33 77 33 33 FF 13 33 33 13 03 AB 03 AB 03 03 33w33..33....... 0001B0: 03 03 03 03 03 03 06 00 FF FF C0 14 94 BC 03 03 ................ 0001C0: 03 03 03 03 03 03 03 03 03 03 03 03 57 03 03 AB ............W... 0001D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 88 CB 03 03 06 0C 84 84 C0 84 48 0C 09 .............H.. 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 0C 84 C0 C0 C0 C0 40 0C 0C .............@.. 000260: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000280: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 84 0C .......H........ 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 03 03 03 06 03 08 03 ................ 0002D0: 03 03 03 03 03 03 03 03 F3 51 F3 51 F3 F3 F3 A3 .........Q.Q...£ 0002E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002F0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 C0 0C ................ 000300: C0 03 03 03 03 41 C3 03 03 03 03 03 03 03 03 03 .....A.......... 000310: 03 03 03 03 03 03 03 03 53 F3 F3 F3 F3 F3 F3 F3 ........S....... 000320: A2 F3 F3 F3 F3 F3 F3 CC CC 64 98 CC 64 98 CC CC .........d..d... 000330: C0 C4 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000340: 03 03 03 03 03 03 03 03 03 42 C0 C0 C0 C0 80 80 .........B...... 000350: 80 84 0C 09 03 03 03 03 03 46 CC CC CC CC CC CC .........F...... 000360: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000370: 88 CC CC CC CC CC D9 98 64 CC 98 CC 30 CC 64 CC ........d...0.d. 000380: 98 98 CC CC CC CC 64 CC CC CC CC 98 03 03 03 03 ......d......... 000390: 03 03 03 03 03 03 03 03 03 03 80 00 C0 80 80 80 ................ 0003A0: 80 00 04 4C CC 98 CC CC CC F3 F3 E6 CC CC F3 CC ...L............ 0003B0: CC CC CC CC CC CC CC 98 CC CC CC CC CC CC CC CC ................ 0003C0: CC CC CC CC CC CC CC 64 CC 98 CC 30 CC CC 64 98 .......d...0..d. 0003D0: 98 CC 64 CC 64 64 CC CC CC CC CC CC CC CC CC D9 ..d.dd.......... 0003E0: F3 F3 F3 F3 00 64 98 CC CC CC C3 C3 C3 C3 C3 C3 .....d.......... 0003F0: C3 C3 C0 EC CC CC 64 CC 64 CC CC 98 98 CC CC CC ......d.d....... 000400: 98 64 CC D9 F3 CC CC 98 8C CC 75 EE CC CC CC CC .d........u..... 000410: CC CC CC 64 CC CC CC CC CC F3 D9 E6 E6 F3 F3 E6 ...d............ 000420: E6 30 CC D9 CC E6 E6 30 CC CC CC CC D9 E6 F3 F3 .0.....0........ 000430: F3 64 64 64 64 30 CC 30 CC CC CC CC CC C3 82 00 .dddd0.0........ 000440: 41 C3 C3 C3 82 77 CC CC CC CC CC 30 64 CC 64 CC A....w.....0d.d. 000450: CC 30 CC CC CC CC CC E4 CC CC CC CC CC CC CC 98 .0.............. 000460: CC CC CC 98 CC CC CC CC CC 98 CC CC CC CC CC 98 ................ 000470: 98 98 CC 30 64 64 98 D9 F3 F3 D9 E6 D9 64 30 CC ...0dd.......d0. 000480: CC CC CC 98 CC CC CC CC 64 98 98 CC CC C9 C3 82 ........d....... 000490: 82 41 41 C3 C3 99 EE CC CC CC CC CC 98 98 98 98 .AA............. 0004A0: CC 98 CC 98 98 98 CC D8 CC 64 CC CC CC CC 64 98 .........d....d. 0004B0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 98 ................ 0004C0: CC CC CC 98 CC 98 71 D9 CC 64 CC CC CC CC CC CC ......q..d...... 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................ 0004E0: 82 41 41 41 C3 CC 77 CC CC 98 CC CC D9 F3 CC D9 .AAA..w......... 0004F0: 98 30 CC CC 98 98 CC CC 98 CC CC CC CC CC CC 64 .0.............d 000500: CC 98 CC CC CC CC CC CC CC B9 D8 CC 64 98 CC CC ............d... 000510: 64 CC CC 64 CC CC CC CC CC CC CC D8 E4 D8 E4 CC d..d............ 000520: CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d............. 000530: C3 82 82 41 C3 C3 C6 CC 99 EE CC CC CC CC 64 64 ...A..........dd 000540: 64 CC CC CC CC D9 F3 F3 98 98 E6 CC CC 98 CC CC d............... 000550: CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d............. 000560: CC CC CC D8 E4 CC D8 CC CC CC CC CC CC CC CC D8 ................ 000570: CC D8 CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 000580: 82 82 41 41 C3 C6 CC CC CC 77 CC CC CC CC CC CC ..AA.....w...... 000590: CC CC CC 98 CC CC CC CC 64 98 CC CC CC CC CC CC ........d....... 0005A0: CC CC CC CC CC CC 98 CC CC CC CC CC CC CC CC CC ................ 0005B0: CC CC CC CC CC F0 CC E4 CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 82 82 41 C3 C3 CC CC CC CC DD EE CC CC CC CC CC ..A............. 0005E0: CC CC 98 64 CC CC 64 CC CC CC CC 98 CC 98 CC CC ...d..d......... 0005F0: CC CC CC CC CC CC CC CC CC 64 CC CC CC D8 CC E4 .........d...... 000600: CC CC CC F0 CC CC CC CC CC CC CC 9C 1B CC CC CC ................ 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 99 22 33 11 22 C6 CC CC CC CC DD BB 33 66 CC .."3.".......3f. 000630: CC CC CC CC CC CC CC 98 CC 98 CC 98 64 CC CC CC ............d... 000640: CC CC CC CC CC 98 CC CC CC CC CC CC CC CC CC CC ................ 000650: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000660: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000670: CC 33 63 33 FF AA BB CC CC CC CC CC CC CC CC CC .3c3............ 000680: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC 98 ..........d..... 000690: CC CC CC CC CC CC CC CC 64 CC CC CC CC CC CC CC ........d....... 0006A0: 2A 3F 2A 2A 2A 2A 2A 2A 3F 3F 3F 3F 15 15 15 3F *?******????...? 0006B0: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 2A 2A 6E CC ??***?***???**n. 0006C0: CC CC CC CC CC 99 33 66 CC CC CC CC CC CC CC CC ......3f........ 0006D0: CC CC 98 64 CC CC CC CC CC CC CC CC 98 98 CC 98 ...d............ 0006E0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 2A ...............* 0006F0: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 15 15 15 3F ??***?***???...? 000700: 15 15 2A 2A 2A 2A 2A 2A 2A 3F 3F 2A 3F 17 1E 15 ..*******??*?... 000710: CC CC CC CC CC CC CC CC CC CC 98 CC CC CC CC 98 ................ 000720: CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC CC .........d...... 000730: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000740: 2A 3F 3F 3F 2A 2A 2A 2A 2A 2A 2A 3F 15 15 15 15 *???*******?.... 000750: 15 15 15 15 2A 2A 2A 3F 2A 2A 2A 3F 2A 3F 15 CC ....***?***?*?.. 000760: CC CC CC CC CC CC CC CC 98 CC CC CC 64 CC CC CC ............d... 000770: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000790: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 *??????????????. 0007A0: 2A 3F 15 15 2A 15 00 2A 3F 2A 3F 3F 2A 6E CC CC *?..*..*?*??*n.. 0007B0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5C ...............\ 000810: A7 FF FF FF FE .....
previousnext* BLOCK 0007 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 3
File type : Binaire
File adress start : &D000
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2270
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1160
Length of ONE bit pulse : 2321
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 250		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 03 00 02 00 08 00 D0 00 00 40 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 70 9A FF FF FF FE .p.....
previousnext* BLOCK 0008 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2274
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1133
Length of ONE bit pulse : 2267
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2517ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 235 678		000000: 16 13 57 33 77 13 03 33 03 57 57 03 03 03 03 03 ..W3w..3.WW..... 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 03 03 23 33 13 33 33 33 33 .........#3.3333 000040: 33 13 33 33 33 13 33 33 BB 77 33 33 33 33 33 33 3.333.33.w333333 000050: 33 03 13 33 23 33 33 23 33 33 03 03 AB 03 03 03 3..3#33#33...... 000060: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 03 23 33 23 33 33 33 33 33 ........#3#33333 000090: 33 33 BB BB 33 77 33 77 33 33 77 33 33 33 33 33 33..3w3w33w33333 0000A0: 77 BB 33 33 C0 80 00 00 40 C0 01 03 62 C0 00 40 w.33....@...b..@ 0000B0: C0 01 03 02 C0 00 03 03 03 03 03 03 C0 00 00 00 ................ 0000C0: 00 00 80 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0000D0: 03 03 03 03 03 03 03 57 13 77 33 33 33 33 33 13 .......W.w33333. 0000E0: 33 33 33 33 BB 33 33 33 33 33 33 33 77 33 33 23 3333.3333333w33# 0000F0: BB 33 77 C0 11 23 33 33 33 62 80 C0 11 33 03 AB .3w..#333b...3.. 000100: AB C6 F3 42 80 03 C0 01 03 03 03 03 03 03 C0 01 ...B............ 000110: 03 03 03 03 03 03 03 03 03 03 C0 00 00 00 40 03 ..............@. 000120: 03 03 03 03 03 03 03 03 03 77 33 23 13 33 13 33 .........w3#.3.3 000130: BB 33 33 33 FF 33 57 FF 77 BB 77 57 BB FF 33 33 .333.3W.w.wW..33 000140: 33 FF AB 57 77 AB 33 33 33 13 33 33 77 33 77 33 3..Ww.333.33w3w3 000150: 77 33 33 77 33 33 13 33 AB 33 33 03 03 03 03 03 w33w33.3.33..... 000160: 03 03 03 03 03 03 03 03 03 80 00 00 00 00 40 81 ..............@. 000170: 03 03 03 03 03 FF 13 03 23 13 33 AB 33 13 33 13 ........#.3.3.3. 000180: 33 FF FF FF AB 57 03 57 57 AB 13 03 03 57 03 03 3....W.WW....W.. 000190: 03 AB 03 03 57 03 03 03 03 23 23 03 03 03 BB 57 ....W....##....W 0001A0: 03 33 33 57 13 23 AB 57 57 03 03 57 03 03 03 03 .33W.#.WW..W.... 0001B0: 03 03 03 03 03 03 06 0C 00 55 80 14 D4 BC 03 03 .........U...... 0001C0: 03 03 03 03 03 03 03 03 03 03 03 03 23 03 23 03 ............#.#. 0001D0: 03 03 57 03 03 03 03 03 03 03 03 03 03 03 03 03 ..W............. 0001E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 D3 69 03 03 06 48 48 48 C0 48 84 84 09 ....i...HHH.H... 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 48 48 C0 C0 C0 C0 40 84 0C .......HH....@.. 000260: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000280: 03 03 03 03 03 03 03 03 03 F3 F3 03 03 03 03 03 ................ 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 84 0C .......H........ 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 02 03 ................ 0002D0: 03 03 03 03 03 03 03 03 F3 51 F3 51 F3 F3 F3 F3 .........Q.Q.... 0002E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002F0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 00 C0 0C ................ 000300: C0 03 03 03 03 8B 46 03 03 03 03 03 03 03 03 03 ......F......... 000310: 03 03 03 03 03 03 03 03 F3 F3 F3 F3 F3 F3 F3 F3 ................ 000320: A2 E6 E6 F3 F3 F3 F3 CC 98 CC CC 64 CC 64 CC CC ...........d.d.. 000330: C8 C0 C4 89 12 03 03 03 03 03 03 03 03 03 03 03 ................ 000340: 03 03 03 03 03 03 03 03 03 42 C0 C0 C0 C0 C0 40 .........B.....@ 000350: 00 C0 0C 09 03 03 03 CC CC CC CC CC CC CC CC CC ................ 000360: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000370: C9 CC CC CC CC CC CC 30 98 98 CC 98 CC CC CC CC .......0........ 000380: CC CC 98 98 CC 98 98 64 98 64 CC CC 89 03 03 03 .......d.d...... 000390: 03 03 03 03 03 03 03 03 03 03 C3 C3 00 00 40 40 ..............@@ 0003A0: 00 00 00 44 CC CC CC CC CC CC CC CC E6 E6 CC E6 ...D............ 0003B0: CC CC CC CC CC CC CC CC CC 98 CC CC CC CC CC CC ................ 0003C0: CC CC CC CC CC CC CC 64 30 98 64 30 98 CC 98 CC .......d0.d0.... 0003D0: 98 30 CC 64 64 64 98 CC CC 64 CC CC 98 64 98 F3 .0.ddd...d...d.. 0003E0: F3 F3 F3 00 CC CC CC 98 CC CC C3 C3 C3 C3 C3 C3 ................ 0003F0: C3 C3 40 C4 CC CC CC CC CC 64 CC CC CC CC 64 CC ..@......d....d. 000400: CC CC CC 64 D9 CC CC F8 25 CC DD EE 64 CC CC CC ...d....%...d... 000410: CC CC CC CC CC CC CC CC CC E6 D9 98 E6 CC 64 30 ..............d0 000420: E6 71 71 71 E6 D9 D9 CC B2 CC E6 D9 F3 F3 F3 F3 .qqq............ 000430: B2 CC CC CC CC CC CC CC CC 30 CC CC CC C3 C3 82 .........0...... 000440: 00 C3 C3 C3 82 77 CC CC 64 CC 64 CC CC CC 64 CC .....w..d.d...d. 000450: 64 CC CC 64 CC CC CC 64 CC CC CC CC CC CC CC CC d..d...d........ 000460: CC CC CC CC CC CC CC CC CC 64 98 CC 64 CC CC CC .........d..d... 000470: CC 64 CC 98 64 CC D9 CC E6 D9 F3 E6 CC CC CC 64 .d..d..........d 000480: CC CC CC CC CC CC CC 30 64 98 CC CC CC C9 C3 C3 .......0d....... 000490: 41 00 C3 C3 C3 99 EE CC CC CC CC 98 CC 30 CC 30 A............0.0 0004A0: 64 98 64 CC CC 98 CC CC CC CC CC E4 98 CC CC CC d.d............. 0004B0: CC CC 64 CC CC 64 CC CC CC CC CC CC CC 98 CC CC ..d..d.......... 0004C0: CC CC 64 64 CC CC CC E6 30 CC CC CC CC CC CC CC ..dd....0....... 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................ 0004E0: 41 00 82 C3 C3 CC 77 CC CC CC CC CC CC 98 64 CC A.....w.......d. 0004F0: 98 64 30 CC CC CC CC CC CC E4 CC 64 CC 98 64 64 .d0........d..dd 000500: CC CC CC CC CC CC CC CC CC 57 FA CC 64 CC CC CC .........W..d... 000510: CC CC CC CC D8 CC D8 CC E4 98 64 CC CC CC CC CC ..........d..... 000520: CC E4 CC CC D8 CC CC CC CC CC CC CC CC CC CC CC ................ 000530: C3 41 00 82 C3 C3 CC CC 99 EE CC CC CC CC CC CC .A.............. 000540: 98 CC 64 E6 E6 D9 CC D9 70 64 E4 CC E4 64 CC CC ..d.....pd...d.. 000550: 98 CC CC 98 CC CC CC 64 CC CC CC CC CC D8 CC CC .......d........ 000560: CC CC D8 CC CC CC CC CC CC CC E4 CC CC CC CC CC ................ 000570: E4 CC CC CC E4 CC CC CC CC CC CC CC CC CC CC C9 ................ 000580: 41 41 00 C3 C3 C6 CC CC CC 77 CC CC CC CC CC CC AA.......w...... 000590: CC CC 64 CC CC CC 98 CC 98 64 CC 64 CC 64 64 CC ..d......d.d.dd. 0005A0: CC 98 CC CC CC CC CC CC CC CC CC CC CC CC E4 CC ................ 0005B0: CC E4 CC CC CC CC E4 CC CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 41 00 C3 C3 C3 CC CC CC CC DD EE CC CC CC CC CC A............... 0005E0: CC CC CC CC CC 64 64 CC CC CC CC CC CC CC 64 98 .....dd.......d. 0005F0: CC CC CC CC CC CC CC CC CC CC CC CC E4 CC CC CC ................ 000600: E4 D8 CC CC CC CC D8 CC CC CC CC 2C 6C CC CC CC ...........,l... 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 33 11 33 00 22 C6 CC CC CC CC DD BB 66 98 64 .3.3.".......f.d 000630: 98 98 CC 64 CC 64 CC CC CC CC CC CC CC CC 98 CC ...d.d.......... 000640: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000650: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000660: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000670: CC 33 33 11 FF AA AA CC CC CC CC CC CC CC CC CC .33............. 000680: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000690: CC CC CC CC CC CC CC CC CC 98 CC 98 CC CC CC CC ................ 0006A0: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F *??????????????? 0006B0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 6E CC ????????????**n. 0006C0: CC CC CC CC CC CC 99 66 CC 64 CC CC CC CC CC CC .......f.d...... 0006D0: CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d............. 0006E0: 98 CC CC CC CC CC CC CC CC CC CC CC CC CC CC 2A ...............* 0006F0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ???????????????? 000700: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 3F 85 D5 15 ???????????*?... 000710: CC CC CC CC CC CC CC CC CC CC CC CC 98 CC CC 64 ...............d 000720: CC 30 64 CC CC CC CC CC CC CC CC CC CC CC CC CC .0d............. 000730: CC CC CC CC CC CC 64 CC CC CC CC CC CC CC CC CC ......d......... 000740: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F *??????????????? 000750: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 6E CC ????????????**n. 000760: CC CC CC CC CC CC CC CC CC CC CC CC CC 98 CC CC ................ 000770: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000790: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 *??????????????. 0007A0: 3F 3F 15 15 2A 15 00 2A 3F 2A 3F 3F 3F CC CC 44 ??..*..*?*???..D 0007B0: 88 44 44 88 CC 00 CC 44 CC 00 CC CC CC CC 98 CC .DD....D........ 0007C0: 64 CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC d............... 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7E ...............~ 000810: 30 FF FF FF FE 0....
previousnext* BLOCK 0009 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 4
File type : Binaire
File adress start : &D800
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2267
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1157
Length of ONE bit pulse : 2316
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 235		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 04 00 02 00 08 00 D8 00 00 40 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 78 7A FF FF FF FE .xz....
previousnext* BLOCK 0010 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2262
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1134
Length of ONE bit pulse : 2270
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2508ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 232 731		000000: 16 77 77 AB 33 77 BB 23 33 23 57 03 03 03 03 03 .ww.3w.#3#W..... 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 57 AB 13 77 33 77 23 BB 33 .......W..w3w#.3 000040: 77 33 77 33 33 BB 33 BB 33 33 33 33 33 33 33 33 w3w33.3.33333333 000050: 33 BB 33 33 77 33 33 00 02 AA 03 01 02 01 00 02 3.33w33......... 000060: 01 02 03 01 02 03 01 02 01 01 01 01 00 03 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 03 03 33 33 33 33 33 33 33 .........3333333 000090: 33 23 33 13 33 23 BB 33 33 33 33 33 33 33 33 13 3#3.3#.33333333. 0000A0: 33 BB 23 62 C0 11 33 33 22 C0 11 13 C0 00 AB 02 3.#b..33"....... 0000B0: 40 80 03 03 C0 01 03 03 03 03 03 03 C0 01 03 03 @............... 0000C0: 03 03 00 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0000D0: 03 03 03 03 03 03 57 BB 13 23 33 33 33 33 77 33 ......W..#3333w3 0000E0: 33 33 33 33 33 77 23 33 33 33 33 33 23 BB 33 33 33333w#33333#.33 0000F0: 77 33 23 40 91 33 23 23 13 62 80 42 11 33 23 AB w3#@.3##.b.B.3#. 000100: 03 73 7E C0 01 03 C0 01 03 03 03 03 03 03 C0 01 .s~............. 000110: 03 03 03 03 03 03 03 03 03 03 40 00 00 00 00 03 ..........@..... 000120: 03 03 03 03 03 03 03 03 13 77 33 33 BB 33 33 23 .........w33.33# 000130: 33 77 33 77 FF 33 FF 33 BB BB 23 BB AB 77 33 33 3w3w.3.3..#..w33 000140: 33 FF 57 77 33 23 57 BB 33 33 77 33 77 03 77 33 3.Ww3#W.33w3w.w3 000150: 33 33 33 13 13 33 33 57 33 57 33 AB 03 03 03 03 333..33W3W3..... 000160: 03 03 03 03 03 03 03 03 03 00 00 00 40 00 40 03 ............@.@. 000170: 03 03 03 03 AB AB 03 33 03 03 57 23 23 77 33 33 .......3..W##w33 000180: 33 FF FF 57 AB 57 AB AB BB BB 03 23 03 03 03 03 3..W.W.....#.... 000190: 57 03 03 03 AB 03 03 03 03 03 AB 03 03 57 13 77 W............W.w 0001A0: AB BB 03 33 13 23 03 03 03 03 57 03 03 03 03 03 ...3.#....W..... 0001B0: 03 03 03 03 03 03 0C 0C 0C 08 FF 14 D4 BC 03 03 ................ 0001C0: 03 03 03 03 03 03 03 03 03 03 03 03 AB 03 03 03 ................ 0001D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 29 00 03 03 06 84 84 C0 C0 84 C0 48 09 ...)..........H. 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 0C C0 C0 C0 C0 C0 40 84 0C .............@.. 000260: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000280: 03 03 03 03 03 03 03 53 F3 F3 F3 F3 03 03 03 03 .......S........ 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 C0 0C .......H........ 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 03 03 A3 03 03 02 03 ...........£.... 0002D0: 03 03 03 03 03 CC 12 03 02 51 F3 51 D1 E2 F3 F3 .........Q.Q.... 0002E0: A3 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 £............... 0002F0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 40 48 ..............@H 000300: 84 03 03 03 03 38 58 03 03 03 03 03 03 03 03 03 .....8X......... 000310: 03 03 03 03 03 03 03 53 53 F3 F3 F3 F3 F3 F3 F3 .......SS....... 000320: A2 F3 D9 D9 F3 F3 F3 64 64 CC CC 64 CC 98 64 CC .......dd..d..d. 000330: CC 64 CC CC CC 03 03 03 03 03 03 03 03 03 03 03 .d.............. 000340: 03 03 03 03 03 03 03 03 03 42 C0 C0 C0 C0 80 80 .........B...... 000350: 80 C0 0C 09 46 CC CC CC CC CC CC CC CC CC CC CC ....F........... 000360: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000370: C9 CC CC CC CC CC CC CC 64 CC 98 CC CC CC CC 98 ........d....... 000380: CC CC 98 CC CC 30 98 CC 98 CC 98 CC CC 89 03 03 .....0.......... 000390: 03 03 03 03 03 03 03 03 03 03 C3 C3 C3 C3 82 00 ................ 0003A0: 41 00 FC EC CC CC 98 CC CC CC D9 D9 B2 64 CC B2 A............d.. 0003B0: 30 CC CC CC CC CC CC CC CC CC CC CC CC CC CC 64 0..............d 0003C0: CC CC CC CC CC CC CC 98 98 CC CC 98 30 98 CC CC ............0... 0003D0: 30 64 30 98 CC CC CC CC 64 CC CC CC CC CC 98 F3 0d0.....d....... 0003E0: F3 A2 00 10 CC CC 64 CC 64 CC C3 C3 C3 C3 C3 C3 ......d.d....... 0003F0: C3 C3 00 C4 CC CC 98 98 98 CC CC 64 CC CC CC 98 ...........d.... 000400: CC CC CC CC 98 CC CC D8 12 CC CC CC CC CC CC CC ................ 000410: CC CC CC 64 CC CC CC CC CC D9 CC 64 E6 71 E6 F3 ...d.......d.q.. 000420: F3 F3 F3 E6 D9 F3 F3 E6 E6 D9 E6 D9 F3 F3 F3 F3 ................ 000430: CC CC 64 64 64 30 CC CC CC CC CC CC CC C3 C3 82 ..ddd0.......... 000440: 41 41 C3 C3 82 99 EE CC CC CC CC CC CC CC 64 CC AA............d. 000450: CC CC 98 CC 98 CC CC CC CC CC CC 64 64 CC 98 98 ...........dd... 000460: CC CC CC CC CC CC 30 CC CC CC 98 CC 30 CC 98 64 ......0.....0..d 000470: CC 64 CC 98 98 98 CC D9 E6 D9 D9 E6 E6 CC CC CC .d.............. 000480: CC CC CC CC CC CC 98 CC CC CC CC CC CC C9 C3 82 ................ 000490: 82 41 41 C3 C3 99 EE CC 98 CC 64 30 30 30 30 98 .AA.......d0000. 0004A0: 30 98 64 98 CC 98 CC 64 CC 30 CC CC 98 CC CC CC 0.d....d.0...... 0004B0: 64 CC CC CC CC CC CC CC CC CC CC 30 CC B0 CC CC d..........0.... 0004C0: CC 98 98 CC CC CC CC CC CC 70 CC CC D8 CC CC CC .........p...... 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................ 0004E0: 82 41 41 C3 C3 CC 77 CC CC CC CC CC 98 98 30 98 .AA...w.......0. 0004F0: 98 98 98 CC 98 64 98 CC CC 64 CC CC 98 98 CC E6 .....d...d...... 000500: E6 CC CC CC CC CC CC CC CC 3F 71 CC CC CC CC 98 .........?q..... 000510: CC D8 CC CC CC D8 CC CC CC CC D8 F0 CC CC 98 CC ................ 000520: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000530: 82 82 82 41 C3 C3 CC CC 99 EE CC CC CC CC CC 98 ...A............ 000540: CC CC CC 64 D9 D9 F3 64 F2 CC CC CC CC CC CC 30 ...d...d.......0 000550: CC CC CC CC CC CC 64 CC CC CC CC F0 CC CC CC CC ......d......... 000560: E4 CC CC CC CC CC CC CC E4 D8 CC CC CC CC CC CC ................ 000570: D8 CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 000580: 82 82 41 41 C3 C6 CC CC CC 77 CC CC CC CC CC CC ..AA.....w...... 000590: CC CC CC CC CC 98 CC CC CC CC CC CC 64 CC CC CC ............d... 0005A0: CC CC CC CC CC CC 64 CC CC CC CC E4 CC CC D8 CC ......d......... 0005B0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 82 41 41 C3 C6 CC CC CC CC DD EE CC CC CC CC CC .AA............. 0005E0: 64 CC CC CC CC CC CC CC CC CC CC CC 30 CC CC 64 d...........0..d 0005F0: 64 30 64 98 CC CC CC CC CC CC CC CC CC CC CC CC d0d............. 000600: D8 CC CC CC CC CC CC CC CC CC CC 0A 86 CC CC CC ................ 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 33 11 33 AA BB CC CC CC CC CC CC 99 66 CC CC .3.3.........f.. 000630: 64 64 CC CC CC 64 CC CC CC CC CC CC CC CC CC CC dd...d.......... 000640: CC CC CC 64 CC CC 64 CC CC CC CC CC CC CC CC CC ...d..d......... 000650: CC 9D 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ..?????????????? 000660: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F CC CC CC ?????????????... 000670: CC 99 33 41 77 AA 00 CC CC CC CC CC CC CC CC CC ..3Aw........... 000680: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000690: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0006A0: 2A 3F 2A 2A 2A 2A 2A 2A 2A 3F 3F 15 15 15 15 15 *?*******??..... 0006B0: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 2A 2A 6E CC ??***?***???**n. 0006C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0006D0: CC CC CC 98 98 CC CC CC CC CC CC CC CC CC CC CC ................ 0006E0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 2A ...............* 0006F0: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 15 15 15 15 ??***?***???.... 000700: 15 15 2A 2A 2A 2A 2A 2A 2A 3F 3F 2A 2A D9 07 6E ..*******??**..n 000710: CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC CC .........d...... 000720: CC CC 64 CC CC 98 CC CC CC CC CC CC CC CC CC 98 ..d............. 000730: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D ................ 000740: 15 3F 3F 3F 2A 2A 2A 2A 2A 2A 2A 3F 15 15 15 15 .???*******?.... 000750: 15 3F 15 15 2A 2A 2A 3F 2A 2A 2A 3F 15 2A 6E CC .?..***?***?.*n. 000760: CC CC CC CC CC CC CC CC CC 64 CC 98 CC CC CC CC .........d...... 000770: CC 98 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d............. 000780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000790: 9D 00 00 00 00 00 00 00 00 00 00 00 00 00 15 15 ................ 0007A0: 3F 3F 15 15 2A 2A 2A 2A 15 3F 00 3F CC CC 88 CC ??..****.?.?.... 0007B0: 44 CC 88 88 88 88 88 88 88 88 CC CC CC CC CC CC D............... 0007C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 AE ................ 000810: 37 FF FF FF FE 7....
previousnext* BLOCK 0011 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 5
File type : Binaire
File adress start : &E000
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2261
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1154
Length of ONE bit pulse : 2309
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 364		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 05 00 02 00 08 00 E0 00 00 40 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 7F EB FF FF FF FE .......
previousnext* BLOCK 0012 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2264
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1133
Length of ONE bit pulse : 2266
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2509ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 235 233		000000: 16 BB 03 03 33 23 33 33 13 03 03 03 03 03 03 03 ....3#33........ 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 03 AB BB 33 33 33 33 33 33 ..........333333 000040: 33 77 57 13 33 33 33 33 BB 33 BB 33 33 33 33 33 3wW.3333.3.33333 000050: 33 13 33 33 BB 33 22 33 02 22 22 02 02 02 02 02 3.33.3"3.""..... 000060: 02 02 02 02 02 01 01 01 03 01 01 01 01 01 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 03 03 33 33 23 33 33 23 BB .........33#33#. 000090: 33 77 33 33 BB BB BB 77 77 BB 23 33 33 33 33 33 3w33...ww.#33333 0000A0: 13 33 23 62 80 33 77 BB 33 40 11 42 80 03 03 03 .3#b.3w.3@.B.... 0000B0: 02 C0 01 03 C0 01 03 03 03 03 03 03 C0 01 03 03 ................ 0000C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0000D0: 03 03 03 03 03 03 03 13 03 33 23 33 33 33 33 33 .........3#33333 0000E0: 33 77 33 33 BB 33 BB 33 33 33 33 33 77 33 33 AB 3w33.3.33333w33. 0000F0: 77 33 33 40 91 23 23 13 BB 42 80 EA 02 23 33 AB w33@.##..B...#3. 000100: 13 4E ED C0 01 03 C0 01 03 03 03 03 03 03 C0 01 .N.............. 000110: 03 03 03 03 03 03 03 03 03 03 00 00 00 00 40 03 ..............@. 000120: 03 03 03 03 03 03 03 03 13 33 23 33 13 13 33 33 .........3#3..33 000130: 33 33 BB AB BB FF 57 77 AB FF 77 77 BB 77 33 03 33....Ww..ww.w3. 000140: AB 03 AB 13 03 33 AB 23 33 77 23 33 33 77 BB 33 .....3.#3w#33w.3 000150: 33 33 23 AB 33 33 33 33 13 33 33 33 03 03 57 03 33#.3333.333..W. 000160: 03 03 03 03 03 03 03 03 42 00 00 00 00 00 40 03 ........B.....@. 000170: 03 03 03 03 AB 03 03 03 33 03 03 13 23 23 33 33 ........3...##33 000180: 13 57 FF FF 03 AB AB AB 57 23 03 BB 57 03 03 57 .W......W#..W..W 000190: 03 03 AB 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001A0: 03 BB 33 33 77 03 03 03 03 03 03 03 03 03 03 03 ..33w........... 0001B0: 03 03 03 03 03 03 0C 0C 0C 0C 08 14 D4 3C 03 03 .............<.. 0001C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001D0: AB 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 7F 92 03 03 0C 48 48 C0 C0 C0 C0 84 09 ........HH...... 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 48 48 C0 C0 C0 C0 40 84 0C .......HH....@.. 000260: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000280: 03 03 03 03 03 03 03 F3 F3 F3 F3 53 F3 03 03 03 ...........S.... 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 C0 0C .......H........ 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 03 53 03 F3 03 02 03 ..........S..... 0002D0: 03 03 03 03 03 CC 98 89 02 F3 F3 51 F3 C0 F3 F3 ...........Q.... 0002E0: A3 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 £............... 0002F0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 40 40 0C .............@@. 000300: 0C 03 03 03 03 DA B4 03 03 03 03 03 03 03 03 03 ................ 000310: 03 03 03 03 03 03 03 53 F3 F3 F3 F3 F3 F3 F3 F3 .......S........ 000320: A2 E6 E6 E6 F3 F3 F3 CC CC CC CC 64 CC 98 CC 98 ...........d.... 000330: CC CC 64 CC CC CC 89 03 03 03 03 03 03 03 03 03 ..d............. 000340: 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 40 ...............@ 000350: 00 C0 0C 4C CC CC CC CC CC D9 CC CC CC CC CC CC ...L............ 000360: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000370: D8 E4 CC CC CC CC CC 30 98 CC 98 64 98 CC 30 98 .......0...d..0. 000380: CC CC 64 CC CC CC 98 CC CC CC CC CC CC 30 CC CC ..d..........0.. 000390: 03 03 03 03 03 03 03 03 03 CC C3 C3 C3 C3 C3 C3 ................ 0003A0: C3 82 D4 EC CC CC CC CC CC CC CC CC CC CC 64 F3 ..............d. 0003B0: F3 E6 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0003C0: CC CC CC CC CC CC CC CC CC 98 CC 64 64 CC CC 64 ...........dd..d 0003D0: 98 CC 64 CC 30 30 CC 64 CC CC 30 CC 64 F3 F3 F3 ..d.00.d..0.d... 0003E0: F3 00 CC CC CC CC CC CC CC CC C9 C3 C3 C3 C3 C3 ................ 0003F0: C3 C3 00 77 CC CC CC CC CC CC CC CC CC CC CC CC ...w............ 000400: CC 30 CC CC CC CC CC FE E9 CC CC CC CC CC CC CC .0.............. 000410: 98 CC CC CC CC CC CC CC CC CC D9 98 B2 98 F3 E6 ................ 000420: F3 D9 CC CC F3 D9 F3 F3 E6 CC 71 D9 F3 F3 F3 CC ..........q..... 000430: 30 CC CC CC 64 64 64 30 98 98 CC 64 CC C3 C3 41 0...ddd0...d...A 000440: 00 C3 C3 C3 82 99 EE CC CC 98 CC 64 CC 98 CC CC ...........d.... 000450: CC CC CC 64 64 64 CC 64 CC CC CC CC CC CC CC CC ...ddd.d........ 000460: CC CC 64 CC CC CC CC CC CC CC 64 98 CC CC CC 98 ..d.......d..... 000470: 98 98 CC CC CC CC 64 CC CC E6 F3 CC E6 64 CC CC ......d......d.. 000480: CC CC CC CC CC CC CC 98 CC 64 CC CC CC CC C3 C3 .........d...... 000490: 41 00 C3 C3 C3 CC 77 CC 98 CC CC 64 98 98 30 64 A.....w....d..0d 0004A0: 98 64 64 CC 64 98 64 CC CC CC 64 98 64 CC CC CC .dd.d.d...d.d... 0004B0: CC CC 98 CC 98 CC CC CC CC CC CC CC CC CC CC E4 ................ 0004C0: CC CC CC CC CC CC 98 CC CC CC CC E4 D8 CC CC CC ................ 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................ 0004E0: 41 00 82 C3 C3 CC 77 CC CC CC 98 CC CC 30 71 CC A.....w......0q. 0004F0: B2 98 CC F3 CC CC CC F2 E4 CC CC CC CC D9 CC CC ................ 000500: CC CC CC CC CC CC 64 CC CC 62 B0 D8 64 D8 64 CC ......d..b..d.d. 000510: 98 CC CC CC CC CC CC CC CC CC D8 CC CC 64 CC CC .............d.. 000520: CC E4 D8 CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000530: C3 41 00 82 C3 C3 CC CC 99 EE CC CC CC CC 98 CC .A.............. 000540: CC 64 CC CC CC F3 CC CC CC CC 64 CC 98 CC 98 CC .d........d..... 000550: CC CC CC CC 64 CC CC CC 98 CC CC CC CC CC CC CC ....d........... 000560: CC CC CC CC D8 CC CC CC CC CC CC CC CC CC CC CC ................ 000570: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 000580: 41 41 00 C3 C3 C6 CC CC CC 77 CC CC CC CC CC CC AA.......w...... 000590: CC CC CC CC CC CC CC CC D8 CC 98 CC CC 98 CC CC ................ 0005A0: CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d............. 0005B0: CC CC CC D8 F0 E4 CC D8 CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 41 00 C3 C3 C6 CC CC CC CC DD EE 99 66 CC CC CC A...........f... 0005E0: CC CC 64 CC CC CC 64 98 CC CC 98 64 CC CC CC CC ..d...d....d.... 0005F0: 98 CC CC 98 CC CC CC CC CC CC CC D8 CC D8 E4 E4 ................ 000600: CC CC F0 CC CC CC CC CC CC CC CC 07 59 CC CC CC ............Y... 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 22 33 33 AA 00 CC CC CC CC CC CC CC CC CC CC ."33............ 000630: 98 98 CC CC CC CC CC CC CC CC CC CC CC CC 98 CC ................ 000640: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000650: CC 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .*.............. 000660: 00 00 00 00 00 00 00 00 00 00 00 00 00 6E CC CC .............n.. 000670: CC CC C3 CC 93 FF 00 CC CC CC CC CC CC 64 CC 98 .............d.. 000680: CC CC CC CC CC CC CC CC CC CC CC CC CC 64 CC CC .............d.. 000690: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D ................ 0006A0: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .??????????????? 0006B0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 6E CC ????????????**n. 0006C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 64 ...............d 0006D0: CC 98 64 CC CC CC 98 CC CC CC CC 98 CC CC CC CC ..d............. 0006E0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D 15 ................ 0006F0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ???????????????? 000700: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 2A AA B8 6E ???????????.*..n 000710: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d..... 000720: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000730: CC CC 64 CC CC 98 CC CC CC CC CC CC CC CC CC 9D ..d............. 000740: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .??????????????? 000750: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 2A 6E CC ????????????.*n. 000760: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d..... 000770: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000790: CC 2A 00 00 00 00 00 00 00 00 00 00 00 00 15 15 .*.............. 0007A0: 00 2A 00 00 2A 2A 2A 2A 3F 3F 3F 15 CC CC 88 CC .*..****???..... 0007B0: 44 CC 88 88 CC 00 CC 44 CC 00 CC CC CC CC CC CC D......D........ 0007C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FB ................ 000810: 27 FF FF FF FE '....
previousnext* BLOCK 0013 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 6
File type : Binaire
File adress start : &E800
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2253
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1156
Length of ONE bit pulse : 2313
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 298		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 06 00 02 00 08 00 E8 00 00 40 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 DB 44 FF FF FF FE ..D....
previousnext* BLOCK 0014 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2265
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1125
Length of ONE bit pulse : 2251
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2509ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 235 804		000000: 16 77 33 33 23 33 33 33 03 13 03 03 03 03 03 03 .w33#333........ 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 AB 13 77 33 13 33 33 33 33 .........w3.3333 000040: 33 33 BB 33 77 13 03 33 77 23 33 33 33 77 33 33 33.3w..3w#333w33 000050: 33 BB 23 33 33 23 22 33 02 00 22 00 02 03 02 02 3.#33#"3.."..... 000060: 01 02 02 02 02 02 01 02 03 00 01 01 00 03 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 03 77 77 23 33 33 33 33 33 ........ww#33333 000090: 33 57 33 33 33 33 33 33 FF 33 AB 33 13 33 33 33 3W333333.3.3.333 0000A0: 33 33 33 62 80 13 33 13 77 22 11 62 80 13 03 03 333b..3.w".b.... 0000B0: 03 C0 01 03 C0 01 03 03 03 03 03 03 C0 01 03 03 ................ 0000C0: 03 81 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0000D0: 03 03 03 03 03 03 03 13 77 77 23 33 33 33 33 33 ........ww#33333 0000E0: 33 33 77 BB 33 33 BB 33 13 BB 23 33 33 33 23 33 33w.33.3..#333#3 0000F0: 03 13 33 AA C0 BB 77 77 57 C0 80 42 C0 33 77 03 ..3...wwW..B.3w. 000100: EA 2B B8 C0 01 03 C0 01 03 03 03 57 03 03 C0 01 .+.........W.... 000110: 03 03 03 03 03 03 03 03 03 42 00 00 00 00 40 03 .........B....@. 000120: 03 03 03 03 03 03 03 03 13 BB 33 13 13 33 33 13 ..........3..33. 000130: 13 77 FF FF BB FF BB BB BB 13 13 33 03 FF 13 03 .w.........3.... 000140: 57 AB 57 FF BB BB 33 03 33 33 77 03 77 03 BB 33 W.W...3.33w.w..3 000150: 23 33 33 33 33 33 33 BB 33 33 13 23 33 03 03 03 #333333.33.#3... 000160: 03 03 03 03 03 03 03 03 42 80 00 00 94 40 94 03 ........B....@.. 000170: 03 03 03 03 03 03 13 13 03 03 13 23 13 AB 77 13 ...........#..w. 000180: 13 77 57 03 03 57 03 03 03 03 03 03 03 57 03 03 .wW..W.......W.. 000190: 57 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 W............... 0001A0: 03 03 03 AB AB 03 03 03 03 03 03 03 03 03 03 03 ................ 0001B0: 03 03 03 03 03 03 0C 0C 0C 84 0C 00 14 29 03 03 .............).. 0001C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 33 39 03 03 0C 84 84 C0 C0 C0 C0 48 09 ...39.........H. 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 0C C0 C0 C0 C0 C0 40 84 0C .............@.. 000260: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 08 03 ................ 000280: 03 03 03 03 03 03 03 F3 F3 F3 F3 F3 F3 03 03 03 ................ 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 C0 0C .......H........ 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 03 F3 F3 A3 03 02 03 ............£... 0002D0: 03 03 03 03 03 98 CC CC 88 F3 A2 51 F3 C0 D1 A2 ...........Q.... 0002E0: A3 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 £............... 0002F0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 40 0C ..............@. 000300: 0C 09 03 03 03 D1 FA 03 03 03 03 03 03 03 03 03 ................ 000310: 03 03 03 03 03 03 03 F3 F3 F3 F3 E6 F3 F3 F3 F3 ................ 000320: A2 F3 D9 D9 F3 F3 F3 30 CC CC 98 64 30 98 98 98 .......0...d0... 000330: CC CC CC CC 98 64 CC 21 03 03 03 03 03 03 03 03 .....d.!........ 000340: 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 C0 80 80 ................ 000350: 80 C0 0C 4C F3 CC CC D9 F3 CC D9 F3 E6 E6 CC CC ...L............ 000360: CC CC CC CC 98 CC CC CC CC CC CC CC CC CC CC C9 ................ 000370: C6 E4 CC CC CC CC CC 30 CC 64 98 98 98 98 CC CC .......0.d...... 000380: CC 64 98 64 CC 98 64 CC CC CC CC CC 98 64 CC CC .d.d..d......d.. 000390: CC CC CC F3 03 03 03 03 CC CC C3 C3 C3 C3 C3 C3 ................ 0003A0: C3 82 D4 EC CC CC CC CC CC CC CC CC 64 64 CC F3 ............dd.. 0003B0: CC E6 CC CC 98 CC CC CC CC CC CC CC CC CC CC CC ................ 0003C0: CC CC CC CC CC CC CC CC CC CC CC CC CC 64 CC CC .............d.. 0003D0: CC 30 98 98 64 CC CC 64 CC CC CC 64 CC F3 F3 F3 .0..d..d...d.... 0003E0: 00 44 64 CC CC 98 CC CC CC CC C9 C3 C3 C3 C3 C3 .Dd............. 0003F0: C3 C3 82 77 CC CC CC 98 CC CC CC 30 64 CC CC CC ...w.......0d... 000400: CC CC CC CC CC CC CC FE 0C CC CC CC CC CC CC CC ................ 000410: CC CC CC 64 CC CC CC CC CC CC CC CC CC 98 CC E6 ...d............ 000420: F3 98 F3 CC E6 CC F3 CC CC CC CC D9 F3 F3 71 CC ..............q. 000430: CC 64 64 CC 98 64 98 64 98 CC CC CC CC C9 C3 82 .dd..d.d........ 000440: 41 41 C3 C3 82 99 EE CC CC CC 64 CC CC 98 30 CC AA........d...0. 000450: 64 CC CC CC CC CC 64 98 64 30 CC 98 CC CC CC CC d.....d.d0...... 000460: CC 64 CC CC CC CC CC CC CC 98 CC 64 98 98 98 CC .d.........d.... 000470: 30 98 CC CC CC D9 E6 E6 E6 B2 E6 CC E6 CC CC CC 0............... 000480: CC CC CC CC 64 CC CC CC CC 64 CC CC CC CC C3 C3 ....d....d...... 000490: 82 41 41 C3 C3 CC 77 CC CC CC 98 64 98 30 64 CC .AA...w....d.0d. 0004A0: 98 30 64 CC 64 98 CC 98 D8 CC 64 CC CC CC CC CC .0d.d.....d..... 0004B0: 64 64 98 CC CC 64 CC CC CC CC CC E4 64 CC 98 CC dd...d......d... 0004C0: 64 CC CC CC CC CC 98 CC E4 CC CC E4 CC CC CC D8 d............... 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................ 0004E0: 82 41 41 C3 C6 CC 77 CC CC 98 CC 64 CC 64 CC CC .AA...w....d.d.. 0004F0: 98 D9 D9 CC CC 64 F3 B2 D9 CC B2 F3 B2 F3 D9 E6 .....d.......... 000500: CC CC CC 98 98 CC CC CC CC 06 20 CC CC CC CC D8 .......... ..... 000510: CC CC CC CC CC D8 CC CC E4 CC CC E4 CC CC CC CC ................ 000520: E4 E4 CC E4 CC CC CC CC CC CC CC CC CC CC CC CC ................ 000530: 82 82 82 41 C3 C3 CC CC 99 EE CC CC CC CC CC CC ...A............ 000540: CC 98 E6 D9 E6 D9 CC 98 CC CC CC 64 98 98 30 64 ...........d..0d 000550: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC D8 ................ 000560: CC CC CC CC CC CC D8 CC CC CC CC CC CC CC CC CC ................ 000570: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 000580: 82 82 41 41 C3 C6 CC CC CC 77 CC CC CC CC CC CC ..AA.....w...... 000590: CC 64 CC CC CC CC CC 98 CC CC 64 98 CC CC CC 64 .d........d....d 0005A0: 98 CC 64 CC CC 98 CC CC CC CC CC CC CC CC D8 D8 ..d............. 0005B0: CC CC E4 CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 82 41 C3 C3 C6 CC CC CC CC DD EE 99 66 CC CC 64 .A..........f..d 0005E0: CC CC 64 CC 30 CC CC CC CC CC CC CC 98 98 98 98 ..d.0........... 0005F0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000600: CC CC CC CC CC CC CC CC CC CC CC A7 46 CC CC CC ............F... 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 22 33 FF FF 00 66 CC CC CC CC CC CC CC CC CC ."3...f......... 000630: CC CC CC 98 CC 64 CC 64 CC CC CC CC 64 64 CC CC .....d.d....dd.. 000640: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000650: CC 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .*?????????????? 000660: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 CC CC ?????????????... 000670: CC CC CC CC 93 FF FF 66 CC CC CC CC CC CC CC CC .......f........ 000680: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000690: CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC 9D .d.............. 0006A0: 15 3F 2A 2A 2A 2A 2A 2A 2A 3F 3F 15 15 3F 15 15 .?*******??..?.. 0006B0: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 15 2A 6E CC ??***?***???.*n. 0006C0: CC CC CC CC CC CC CC 98 CC 98 CC CC 30 64 CC 98 ............0d.. 0006D0: CC CC 98 CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0006E0: CC 98 CC CC 98 64 CC CC CC CC CC CC CC CC 9D 15 .....d.......... 0006F0: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 15 15 15 15 15 ??***?***??..... 000700: 15 3F 2A 2A 2A 2A 2A 2A 2A 3F 3F 15 2A 62 60 6E .?*******??.*b`n 000710: CC CC CC CC CC CC CC 64 CC CC CC CC CC CC CC 98 .......d........ 000720: 64 CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC d............... 000730: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D ................ 000740: 15 3F 3F 3F 2A 2A 2A 2A 2A 2A 3F 3F 3F 15 15 15 .???******???... 000750: 3F 3F 3F 15 2A 2A 2A 3F 2A 2A 2A 3F 15 15 CC CC ???.***?***?.... 000760: CC CC CC CC CC CC CC CC CC CC CC CC CC 64 CC CC .............d.. 000770: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000790: CC 2A 00 00 00 00 00 00 00 00 00 00 00 00 15 15 .*.............. 0007A0: 2A 2A 3F 2A 2A 2A 2A 2A 3F 3F 3F 15 CC CC 88 CC **?*****???..... 0007B0: 44 CC 88 88 CC 88 88 88 CC 88 CC CC CC CC CC CC D............... 0007C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F1 ................ 000810: BA FF FF FF FE .....
previousnext* BLOCK 0015 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 7
File type : Binaire
File adress start : &F000
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2277
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1158
Length of ONE bit pulse : 2316
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 377		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 07 00 02 00 08 00 F0 00 00 40 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 DB FF FF FF FE .......
previousnext* BLOCK 0016 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2277
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1130
Length of ONE bit pulse : 2261
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2529ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 244 297		000000: 16 77 33 13 77 13 33 03 23 03 03 03 03 03 03 03 .w3.w.3.#....... 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 57 13 77 33 33 33 33 33 33 .......W.w333333 000040: BB 33 BB 33 BB 33 33 33 77 33 BB 33 33 03 33 23 .3.3.333w3.33.3# 000050: 33 FF 13 13 33 77 02 33 02 22 AA 02 AA 03 02 02 3...3w.3."...... 000060: 03 02 02 02 02 03 01 03 01 01 01 01 01 03 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 03 13 13 FF 33 33 33 33 33 ...........33333 000090: 33 33 33 33 33 33 33 13 33 33 33 33 33 BB 77 33 3333333.33333.w3 0000A0: 33 33 33 C0 55 77 13 BB 33 33 33 C0 11 23 03 03 333.Uw..333..#.. 0000B0: 03 42 80 03 C0 01 03 03 03 03 03 03 C0 01 03 03 .B.............. 0000C0: 03 80 03 03 03 03 03 03 03 03 03 81 03 03 03 03 ................ 0000D0: 03 03 03 03 03 03 AB 13 BB 33 33 33 33 33 23 33 .........33333#3 0000E0: 33 33 33 33 BB 33 FF 33 13 23 FF 33 BB 33 33 BB 3333.3.3.#.3.33. 0000F0: FF FF 03 23 40 C0 33 EA C0 40 80 33 C0 91 33 13 ...#@.3..@.3..3. 000100: C0 18 C3 80 03 03 C0 01 03 03 03 03 81 03 C0 01 ................ 000110: 03 03 03 03 03 03 03 03 03 42 00 00 00 00 00 81 .........B...... 000120: 03 03 03 03 03 03 03 23 23 33 13 33 03 23 77 33 .......##3.3.#w3 000130: 33 FF FF BB BB 03 FF AB FF AB BB BB BB FF 13 23 3..............# 000140: FF 03 03 03 AB FF 33 13 33 33 33 03 13 03 BB 13 ......3.333..... 000150: 13 33 BB 33 33 BB 77 33 33 33 33 33 33 77 03 03 .3.33.w333333w.. 000160: 03 AB 03 03 03 03 03 13 62 00 00 40 94 C0 3C 03 ........b..@..<. 000170: 03 03 03 03 03 03 03 03 FF 03 AB 03 33 13 23 23 ............3.## 000180: 33 FF 23 AB 03 AB 03 03 AB 03 03 57 03 03 57 03 3.#........W..W. 000190: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001A0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001B0: 03 03 03 03 03 06 0C 0C 48 48 0C 0C 08 01 03 03 ........HH...... 0001C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 57 03 ..............W. 0001E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 65 BB 03 03 48 48 48 C0 C0 C0 C0 84 0C ...e...HHH...... 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 40 84 0C .......H.....@.. 000260: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 06 08 03 ................ 000280: 03 03 03 03 03 03 03 F3 F3 F3 F3 F3 F3 A3 03 03 .............£.. 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 C0 0C ................ 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 03 F3 F3 F3 F3 02 03 ................ 0002D0: 03 03 53 F3 53 98 CC CC CC CC 88 30 F3 C0 D1 80 ..S.S......0.... 0002E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002F0: 03 03 03 03 03 03 03 42 C0 C0 C0 C0 C0 40 40 0C .......B.....@@. 000300: 0C 09 03 03 03 91 A1 03 03 03 03 03 03 03 03 03 ................ 000310: 03 03 03 CC CC CC CC CC F3 F3 F3 D9 CC CC CC CC ................ 000320: 88 E6 E6 E6 F3 F3 F3 64 CC 64 CC 64 64 98 CC CC .......d.d.dd... 000330: 98 CC CC CC 98 CC CC CC 89 03 03 03 03 03 03 03 ................ 000340: 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 C0 40 40 ..............@@ 000350: 00 C0 84 4C F3 F3 E6 F3 E6 E6 F3 F3 F3 E6 E6 CC ...L............ 000360: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 ................ 000370: C3 E4 CC CC CC CC CC 98 98 CC 30 64 98 CC 98 30 ..........0d...0 000380: CC CC 64 CC CC 98 64 CC CC CC 30 CC CC CC 98 CC ..d...d...0..... 000390: CC CC F3 F3 F3 F3 46 CC CC CC C3 C3 C3 C3 C3 C3 ......F......... 0003A0: C3 C3 D4 EC CC CC 98 CC CC 64 CC 64 CC 98 CC CC .........d.d.... 0003B0: 71 CC D9 CC CC CC CC 64 CC CC CC CC CC CC CC CC q......d........ 0003C0: CC CC CC CC CC CC CC CC CC 98 98 CC E6 98 CC 30 ...............0 0003D0: CC CC CC CC 64 98 CC 98 CC CC CC CC CC F3 F3 F3 ....d........... 0003E0: F3 CC CC 64 CC 64 64 CC CC CC C9 C3 C3 41 82 C3 ...d.dd......A.. 0003F0: C3 C3 82 77 CC 98 CC 98 CC CC CC CC 98 CC CC CC ...w............ 000400: CC CC CC CC CC CC CC 48 E2 CC CC CC CC CC CC CC .......H........ 000410: CC 64 CC CC CC CC CC CC CC CC D9 E6 E6 E6 64 D9 .d............d. 000420: CC CC CC D9 CC CC CC 64 CC CC CC F3 F3 E6 F3 CC .......d........ 000430: CC 98 CC 98 CC CC CC CC CC CC CC CC CC C9 C3 41 ...............A 000440: 00 82 C3 C3 82 99 EE CC 98 98 64 CC CC CC 30 CC ..........d...0. 000450: 64 CC CC CC CC CC CC 64 CC CC CC CC CC CC 98 CC d......d........ 000460: CC CC CC CC CC CC CC CC CC CC CC CC CC CC 98 98 ................ 000470: CC 98 98 64 D9 CC CC 98 E6 E6 CC CC CC CC 64 98 ...d..........d. 000480: CC CC CC CC CC CC CC CC CC CC 98 CC CC CC C3 C3 ................ 000490: 41 00 82 C3 C3 CC 77 CC CC CC 64 98 CC CC 71 D9 A.....w...d...q. 0004A0: 30 30 98 98 CC CC CC CC E4 30 70 CC CC CC CC 98 00.......0p..... 0004B0: 64 CC CC 98 98 CC CC CC CC CC 64 CC 64 CC CC CC d.........d.d... 0004C0: CC CC CC CC CC CC CC CC 64 CC 98 CC CC CC CC F0 ........d....... 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................ 0004E0: 41 00 C3 C3 C6 CC 99 EE CC CC 64 98 CC 30 98 64 A.........d..0.d 0004F0: CC 98 CC CC E6 D9 CC CC E4 E6 E6 E6 CC D9 30 CC ..............0. 000500: CC CC 98 98 CC CC CC CC CC AD B8 E4 CC CC CC CC ................ 000510: CC CC CC CC CC CC 98 D8 CC CC F0 E4 CC CC CC CC ................ 000520: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000530: C3 41 00 82 C3 C3 CC CC 99 EE CC CC CC CC CC CC .A.............. 000540: 64 CC CC D9 CC 64 CC CC CC CC CC 98 CC 64 64 CC d....d.......dd. 000550: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000560: CC CC CC CC CC CC CC F0 CC CC D8 CC CC CC CC CC ................ 000570: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 000580: 41 00 82 C3 C3 CC CC CC CC 77 CC CC CC CC CC CC A........w...... 000590: CC CC 98 CC CC CC CC 30 98 CC 98 CC 98 98 CC CC .......0........ 0005A0: CC 98 64 CC CC 98 CC 30 64 CC CC D8 CC CC CC D8 ..d....0d....... 0005B0: CC CC D8 D8 CC CC CC CC CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 41 00 C3 C3 C6 CC CC CC CC DD BB 77 EE CC CC CC A..........w.... 0005E0: CC CC CC CC 98 64 CC CC CC CC CC CC CC CC CC CC .....d.......... 0005F0: CC CC CC CC CC CC 98 CC CC CC CC D8 CC D8 CC CC ................ 000600: CC CC CC CC CC CC CC CC CC CC CC D2 67 CC CC CC ............g... 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 22 33 FF FF 00 66 CC CC CC CC CC CC CC CC CC ."3...f......... 000630: CC CC 98 CC 98 CC CC CC CC CC CC CC CC CC CC CC ................ 000640: CC CC CC CC CC CC CC CC 64 CC CC CC CC CC CC CC ........d....... 000650: 9D 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ..?????????????? 000660: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 CC CC ?????????????... 000670: CC CC CC CC 99 77 FF 66 CC CC CC CC CC CC CC CC .....w.f........ 000680: CC 98 CC CC CC CC CC CC CC CC CC 98 CC CC CC CC ................ 000690: 64 CC CC CC CC CC CC CC CC 98 CC CC CC CC CC 9D d............... 0006A0: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .??????????????? 0006B0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 2A 6E CC ????????????.*n. 0006C0: CC CC CC CC CC CC CC 98 CC CC CC CC 98 CC 98 CC ................ 0006D0: CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d............. 0006E0: 98 64 CC CC CC CC CC CC CC CC CC CC CC CC 9D 15 .d.............. 0006F0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ???????????????? 000700: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 15 13 A6 6E ???????????....n 000710: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d..... 000720: CC CC CC CC CC CC 64 CC CC CC CC CC CC CC CC CC ......d......... 000730: CC CC CC CC CC CC CC 64 CC CC CC CC CC CC CC 9D .......d........ 000740: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .??????????????? 000750: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 CC CC ?????????????... 000760: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000770: 64 CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC d............... 000780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000790: CC 9D 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A ..?????????????* 0007A0: 00 2A 2A 2A 2A 2A 2A 2A 00 2A 00 6E CC CC CC 44 .*******.*.n...D 0007B0: 88 44 44 88 CC 88 CC 44 CC 88 88 CC CC CC CC CC .DD....D........ 0007C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 95 ................ 000810: 0D FF FF FF FE .....
previousnext* BLOCK 0017 : TURBO LOADING DATA
HEADER
Block Name : CGPIC.SCR
Block Number : 8
Block last : YES
File type : Binaire
File adress start : &F800
File adress length : &0800
File adress execution : &0000
File length file : &4000

Length of PILOT pulse : 2265
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1154
Length of ONE bit pulse : 2309
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 435		000000: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR...... 000010: 00 08 FF 02 00 08 00 F8 00 00 40 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 43 54 FF FF FF FE .CT....
previousnext* BLOCK 0018 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2273
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1130
Length of ONE bit pulse : 2261
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 10216ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 248 716		000000: 16 23 BB 33 33 33 BB 23 03 33 03 03 03 03 03 03 .#.333.#.3...... 000010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000030: 03 03 03 03 03 03 03 03 57 13 13 33 33 33 23 33 ........W..333#3 000040: 23 13 77 77 33 33 33 77 33 33 33 33 AB BB 33 33 #.ww333w3333..33 000050: 33 23 13 33 33 33 33 00 02 22 22 22 AA 03 02 02 3#.3333..""".... 000060: 03 02 03 01 02 03 01 00 03 01 01 01 01 03 03 03 ................ 000070: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000080: 03 03 03 03 03 03 03 03 57 33 33 33 33 33 33 33 ........W3333333 000090: BB 33 33 33 BB 23 23 33 33 33 33 33 33 77 23 33 .333.##333333w#3 0000A0: 23 13 33 C0 11 33 33 33 33 33 33 C0 01 AB 13 03 #.3..333333..... 0000B0: AB 42 80 03 C0 01 03 03 03 03 03 03 C0 C0 C0 C0 .B.............. 0000C0: C0 80 03 03 03 03 03 03 03 42 C0 C0 03 03 03 03 .........B...... 0000D0: 03 03 03 03 03 03 AB 57 33 33 33 33 33 33 33 33 .......W33333333 0000E0: 33 77 77 33 77 BB 33 33 BB FF BB 33 BB BB 33 BB 3ww3w.33...3..3. 0000F0: 57 77 FF AB 22 40 C0 80 00 00 80 FF 00 C0 C0 C0 Ww.."@.......... 000100: 80 FF 6E 01 03 42 C0 C0 C0 C0 C0 C0 80 03 C0 01 ..n..B.......... 000110: 03 03 03 03 03 03 03 03 03 02 00 00 00 00 00 C0 ................ 000120: 03 03 03 03 03 03 03 BB 33 13 57 77 BB 33 33 33 ........3.Ww.333 000130: 33 FF FF FF FF 57 57 FF AB 13 AB 23 FF 57 13 33 3....WW....#.W.3 000140: AB 03 03 FF 03 13 57 23 03 33 13 33 77 23 57 13 ......W#.3.3w#W. 000150: 33 33 33 33 33 77 03 13 33 33 23 33 13 03 57 03 33333w..33#3..W. 000160: 03 AB 03 03 03 03 03 33 77 00 00 C0 3C D4 BC 03 .......3w...<... 000170: 03 03 03 03 03 03 03 03 AB 03 03 03 33 13 33 03 ............3.3. 000180: 03 FF 03 03 03 03 03 03 03 03 03 03 03 03 AB 03 ................ 000190: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001A0: 03 03 03 57 03 03 03 03 03 03 03 03 03 03 03 03 ...W............ 0001B0: 03 03 03 03 03 06 0C 0C 0C 84 C0 0C 0C 09 03 03 ................ 0001C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0001F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000200: 03 03 03 10 A8 03 03 0C 84 C0 C0 C0 C0 40 48 0C .............@H. 000210: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000250: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 40 84 0C .......H.....@.. 000260: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 000270: 03 03 03 03 03 03 03 03 03 03 03 03 03 0C 08 03 ................ 000280: 03 03 03 03 03 03 03 F3 F3 F3 F3 F3 F3 F3 03 03 ................ 000290: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002A0: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 C0 0C ................ 0002B0: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002C0: 03 03 03 03 03 03 03 03 03 53 F3 F3 F3 F3 02 A3 .........S.....£ 0002D0: 03 03 F3 A3 F3 CC CC 98 CC CC CC CC C8 C0 F3 81 ...£............ 0002E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................ 0002F0: 03 03 03 03 03 03 03 42 C0 C0 C0 C0 80 80 40 84 .......B......@. 000300: 0C 09 03 03 03 EA 6D 03 03 03 03 03 03 03 CC CC ......m......... 000310: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000320: 88 CC CC D9 F3 F3 F3 CC 64 98 CC 98 CC CC 64 CC ........d.....d. 000330: 64 64 64 98 CC CC CC CC CC 89 03 03 03 03 03 03 ddd............. 000340: 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 80 80 80 ................ 000350: 80 C0 84 4C D9 E6 F3 E6 CC CC CC D9 CC F3 CC CC ...L............ 000360: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 000370: C6 CC CC CC CC CC CC 64 64 98 CC CC 64 64 98 98 .......dd...dd.. 000380: 30 98 CC 98 CC CC CC CC CC CC CC 98 CC 64 CC 64 0............d.d 000390: CC CC F3 F3 F3 A2 44 98 CC CC C3 C3 C3 C3 C3 C3 ......D......... 0003A0: C3 C3 D4 EC CC CC CC CC CC CC 98 CC CC CC CC CC ................ 0003B0: CC 64 71 F3 CC CC CC CC CC CC CC 98 98 CC CC CC .dq............. 0003C0: CC CC CC CC CC CC CC CC 98 98 CC CC D9 D9 98 98 ................ 0003D0: 98 CC 64 64 CC CC CC 64 CC CC CC 64 D9 F3 F3 F3 ..dd...d...d.... 0003E0: 71 98 CC CC CC 64 98 CC CC CC C9 C3 82 41 41 C3 q....d.......AA. 0003F0: C3 C3 82 77 CC CC CC CC 64 CC CC 30 98 CC 98 CC ...w....d..0.... 000400: CC CC CC CC CC 98 CC 78 98 CC CC CC CC CC CC 98 .......x........ 000410: CC CC CC CC CC CC CC CC CC F3 CC 71 CC 64 E6 64 ...........q.d.d 000420: 71 64 D9 D9 64 98 CC CC 30 CC E6 F3 F3 E6 64 CC qd..d...0.....d. 000430: 64 98 98 CC CC CC 98 64 CC CC CC CC CC C9 C3 82 d......d........ 000440: 00 41 C3 C3 C3 99 EE CC CC CC 98 CC CC 64 CC 30 .A...........d.0 000450: CC CC CC 64 CC CC 64 CC 64 CC CC 98 CC CC CC 98 ...d..d.d....... 000460: CC 98 CC 64 CC CC CC CC CC 64 CC CC 98 CC 98 64 ...d.....d.....d 000470: CC 64 CC CC CC 64 CC CC CC CC CC CC CC CC CC CC .d...d.......... 000480: CC CC CC 64 CC CC CC 64 98 CC CC 64 CC CC C3 C3 ...d...d...d.... 000490: 82 82 41 C3 C3 CC 77 CC 98 98 98 64 98 30 64 71 ..A...w....d.0dq 0004A0: 98 98 F3 98 64 98 98 CC 64 70 CC CC CC CC CC CC ....d...dp...... 0004B0: CC CC CC CC 64 CC CC CC CC CC 98 CC CC CC CC CC ....d........... 0004C0: CC 98 CC 98 64 CC CC CC CC CC CC D8 D8 CC CC CC ....d........... 0004D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 82 ................ 0004E0: 82 41 41 C3 C6 CC 99 EE CC CC CC CC CC CC 98 98 .AA............. 0004F0: CC CC 64 F3 CC CC F3 CC E6 E6 D9 CC CC CC CC CC ..d............. 000500: CC CC CC 64 64 CC CC CC CC BC 48 E4 CC CC CC CC ...dd.....H..... 000510: CC E4 CC CC CC CC CC CC CC CC F0 CC 64 CC CC CC ............d... 000520: CC CC CC D8 CC CC CC CC CC CC CC CC CC CC CC CC ................ 000530: 82 82 41 41 C3 C3 CC CC CC 77 CC CC CC CC CC 98 ..AA.....w...... 000540: D9 64 E6 98 CC B2 E6 64 CC CC 64 30 CC 98 CC 64 .d.....d..d0...d 000550: CC CC CC CC CC CC CC CC CC CC CC CC CC E4 CC CC ................ 000560: CC CC E4 CC CC D8 E4 CC CC CC CC CC CC CC CC CC ................ 000570: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 000580: 82 82 41 C3 C3 CC CC CC CC 77 CC CC CC CC CC CC ..A......w...... 000590: CC 64 CC CC CC 98 CC CC CC CC CC 98 CC CC CC CC .d.............. 0005A0: CC 98 CC CC 98 CC CC CC CC CC CC CC CC CC CC D8 ................ 0005B0: CC CC D8 CC CC D8 CC E4 CC CC CC CC CC CC CC CC ................ 0005C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................ 0005D0: 82 11 00 C3 C6 CC CC CC CC DD FF BB 66 CC CC CC ............f... 0005E0: CC 64 CC CC CC CC CC CC CC CC CC CC 98 CC CC CC .d.............. 0005F0: CC CC 98 CC CC 98 CC CC CC CC CC CC CC CC CC CC ................ 000600: CC CC CC CC CC CC CC CC CC CC CC 9E AE CC CC CC ................ 000610: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000620: CC 33 11 FF FF AA 66 CC CC CC CC CC CC CC CC 64 .3....f........d 000630: CC CC 98 CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000640: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000650: 9D 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ..?????????????? 000660: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 CC CC ?????????????... 000670: CC CC CC CC C9 33 FF 66 CC 98 98 CC CC CC CC CC .....3.f........ 000680: 64 CC CC CC CC CC 64 CC CC CC CC CC CC CC CC CC d.....d......... 000690: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D ................ 0006A0: 15 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 15 15 15 15 15 .?***?***??..... 0006B0: 3F 15 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 15 15 CC CC ?.***?***???.... 0006C0: CC CC CC CC CC CC 64 CC CC CC CC CC CC CC CC CC ......d......... 0006D0: CC CC CC CC CC CC 98 CC CC CC CC 98 CC CC CC CC ................ 0006E0: CC CC CC CC CC 98 CC CC CC CC CC CC CC CC 9D 15 ................ 0006F0: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 15 15 15 3F 15 15 ??***?***?...?.. 000700: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 15 15 A3 F6 CC ??***?***??..£.. 000710: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000720: CC 64 CC CC 98 CC CC CC CC CC CC CC CC CC CC CC .d.............. 000730: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D ................ 000740: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .??????????????? 000750: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 6E CC CC ????????????*n.. 000760: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000770: CC 98 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 000790: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 15 ................ 0007A0: 3F 15 2A 3F 15 3F 3F 15 3F 15 3F CC CC CC CC CC ?.*?.??.?.?..... 0007B0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................ 0007D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................ 0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E4 ................ 000810: 73 FF FF FF FE s....
previousnext* BLOCK 0019 : TURBO LOADING DATA
HEADER
Block Name : GOLF1
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 : 2275
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1161
Length of ONE bit pulse : 2322
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 1 990		000000: 2C 47 4F 4C 46 31 00 00 00 00 00 00 00 00 00 00 ,GOLF1.......... 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 0E 00 FF FF FF FE .......
previousnext* BLOCK 0020 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2278
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1138
Length of ONE bit pulse : 2277
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2694ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 119 068		000000: 16 31 30 20 44 49 4D 20 61 28 32 2C 33 29 2C 63 .10 DIM a(2,3),c 000010: 28 34 30 29 2C 64 28 32 2C 31 38 29 2C 65 28 34 (40),d(2,18),e(4 000020: 30 29 2C 66 28 34 30 29 2C 67 28 31 30 29 2C 68 0),f(40),g(10),h 000030: 28 35 2C 33 29 2C 6A 28 34 30 29 2C 6B 28 34 30 (5,3),j(40),k(40 000040: 29 2C 6C 28 32 30 2C 32 29 2C 6E 28 32 2C 31 38 ),l(20,2),n(2,18 000050: 29 2C 6F 28 32 2C 35 29 2C 70 28 31 37 29 2C 72 ),o(2,5),p(17),r 000060: 28 31 30 29 2C 73 28 31 33 29 2C 74 28 39 29 2C (10),s(13),t(9), 000070: 76 28 32 30 2C 33 29 2C 77 28 34 30 29 2C 6A 24 v(20,3),w(40),j$ 000080: 28 35 30 29 2C 62 24 28 34 2C 39 29 2C 61 24 28 (50),b$(4,9),a$( 000090: 32 30 29 2C 70 24 28 35 29 2C 63 24 28 31 30 29 20),p$(5),c$(10) 0000A0: 0D 0A 32 30 20 44 49 4D 20 64 24 28 32 29 2C 65 ..20 DIM d$(2),e 0000B0: 24 28 32 36 29 2C 69 24 28 31 32 29 2C 6E 24 28 $(26),i$(12),n$( 0000C0: 33 29 2C 73 24 28 32 30 2C 36 29 2C 74 24 28 34 3),s$(20,6),t$(4 0000D0: 30 29 2C 75 24 28 34 30 29 2C 76 24 28 34 30 29 0),u$(40),v$(40) 0000E0: 3A 62 61 3D 30 3A 46 4F 52 20 6E 3D 31 20 54 4F :ba=0:FOR n=1 TO 0000F0: 20 39 3A 52 45 41 44 20 74 28 6E 29 3A 4E 45 58 9:READ t(n):NEX 000100: 54 9F 74 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 34 T.t:FOR n=1 TO 4 000110: 3A 46 4F 52 20 79 3D 31 20 54 4F 20 39 3A 52 45 :FOR y=1 TO 9:RE 000120: 41 44 20 62 24 28 6E 2C 79 29 3A 4E 45 58 54 20 AD b$(n,y):NEXT 000130: 79 2C 6E 3A 52 41 4E 44 4F 4D 49 5A 45 20 54 49 y,n:RANDOMIZE TI 000140: 4D 45 0D 0A 33 30 20 46 4F 52 20 6E 3D 31 20 54 ME..30 FOR n=1 T 000150: 4F 20 35 30 3A 7A 31 3D 31 2B 49 4E 54 28 52 4E O 50:z1=1+INT(RN 000160: 44 2A 38 29 3A 46 4F 52 20 61 3D 31 20 54 4F 20 D*8):FOR a=1 TO 000170: 36 3A 7A 31 3D 7A 31 2A 31 30 2B 49 4E 54 28 52 6:z1=z1*10+INT(R 000180: 4E 44 2A 38 29 2B 31 3A 4E 45 58 54 3A 6A 24 28 ND*8)+1:NEXT:j$( 000190: 6E 29 3D 52 49 47 48 54 24 28 53 54 52 24 28 7A n)=RIGHT$(STR$(z 0001A0: 31 29 2C 37 29 3A 4E 45 58 54 3A 46 4F 52 20 6E 1),7):NEXT:FOR n 0001B0: 3D 31 20 54 4F 20 32 30 3A 46 4F 52 20 68 3D 31 =1 TO 20:FOR h=1 0001C0: 20 54 4F 20 36 3A 7A 31 3D 30 3A 46 4F 52 20 7A TO 6:z1=0:FOR z 0001D0: 3D 31 20 54 4F 20 33 3A 7A 31 3D 7A 31 2A 31 30 =1 TO 3:z1=z1*10 0001E0: 30 2B 49 4E 54 28 52 4E 44 2A 34 39 29 2B 31 31 0+INT(RND*49)+11 0001F0: 3A 4E 45 58 54 3A 73 24 28 6E 2C 68 29 3D 52 49 :NEXT:s$(n,h)=RI 000200: 47 48 54 F7 5D 24 28 53 54 52 24 28 7A 31 29 2C GHT.]$(STR$(z1), 000210: 36 29 3A 4E 45 58 54 20 68 2C 6E 0D 0A 34 30 20 6):NEXT h,n..40 000220: 44 41 54 41 20 33 2C 34 2C 35 2C 31 31 30 2C 32 DATA 3,4,5,110,2 000230: 32 30 2C 34 35 30 2C 31 32 30 2C 32 32 30 2C 31 20,450,120,220,1 000240: 34 30 2C 39 32 31 31 31 30 32 37 2C 38 32 31 31 40,92111027,8211 000250: 30 30 33 35 2C 37 32 31 31 33 30 30 34 2C 39 32 0035,72113004,92 000260: 30 31 34 30 34 36 2C 38 32 30 32 30 30 31 33 2C 014046,82020013, 000270: 38 32 32 31 32 35 33 36 2C 39 32 31 31 31 30 31 82212536,9211101 000280: 35 2C 39 32 32 32 31 30 34 36 2C 39 32 32 31 30 5,92221046,92210 000290: 30 32 37 2C 31 32 30 35 36 30 32 35 2C 31 31 31 027,12056025,111 0002A0: 35 36 36 36 33 2C 32 32 35 34 31 37 33 33 2C 31 56663,22541733,1 0002B0: 32 31 36 36 32 33 34 2C 31 31 35 32 30 36 34 33 2166234,11520643 0002C0: 2C 32 31 30 36 34 33 31 32 2C 31 31 30 37 36 35 ,21064312,110765 0002D0: 32 33 2C 31 31 31 36 36 35 33 35 2C 31 31 31 36 23,11166535,1116 0002E0: 30 36 36 33 2C 37 31 30 34 33 35 32 32 2C 35 33 0663,71043522,53 0002F0: 30 35 32 37 34 35 2C 36 33 30 34 33 31 36 35 0D 052745,63043165. 000300: 0A 35 30 20 44 36 6C 41 54 41 20 36 34 31 36 32 .50 D6lATA 64162 000310: 36 35 37 2C 37 36 31 34 33 31 32 32 2C 35 36 31 657,76143122,561 000320: 35 32 35 34 34 2C 35 33 30 36 33 36 34 32 2C 36 52544,53063642,6 000330: 35 30 32 32 34 34 30 2C 37 35 31 32 33 36 34 31 5022440,75123641 000340: 2C 31 31 32 32 33 33 34 34 2C 38 38 37 37 36 36 ,11223344,887766 000350: 35 35 2C 31 32 33 34 38 37 36 35 2C 34 35 31 33 55,12348765,4513 000360: 37 34 33 37 2C 34 35 38 34 33 36 33 37 2C 31 37 7437,45843637,17 000370: 33 35 37 32 38 33 2C 34 33 38 36 34 35 32 37 2C 357283,43864527, 000380: 35 34 36 33 33 31 32 37 2C 36 35 33 34 31 32 32 54633127,6534122 000390: 34 0D 0A 36 30 20 46 4F 52 20 6E 3D 31 20 54 4F 4..60 FOR n=1 TO 0003A0: 20 32 30 3A 52 45 41 44 20 61 24 28 6E 29 3A 46 20:READ a$(n):F 0003B0: 4F 52 20 61 3D 31 20 54 4F 20 33 3A 52 45 41 44 OR a=1 TO 3:READ 0003C0: 20 76 28 6E 2C 61 29 3A 4E 45 58 54 20 61 2C 6E v(n,a):NEXT a,n 0003D0: 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 31 30 3A 52 :FOR n=1 TO 10:R 0003E0: 45 41 44 20 63 24 28 6E 29 3A 4E 45 58 54 3A 46 EAD c$(n):NEXT:F 0003F0: 4F 52 20 6E 3D 31 20 54 4F 20 31 32 3A 52 45 41 OR n=1 TO 12:REA 000400: 44 20 69 24 28 6E 29 5E DC 3A 4E 45 58 54 0D 0A D i$(n)^.:NEXT.. 000410: 37 30 20 44 41 54 41 20 22 20 53 55 4E 20 43 49 70 DATA " SUN CI 000420: 54 59 20 43 48 41 4C 4C 45 4E 47 45 20 22 2C 37 TY CHALLENGE ",7 000430: 30 30 30 30 30 2C 32 32 30 30 2C 37 32 2C 22 43 00000,2200,72,"C 000440: 41 52 20 43 41 52 45 20 50 4C 41 4E 20 49 4E 54 AR CARE PLAN INT 000450: 45 52 4E 22 2C 31 31 30 30 30 30 2C 32 30 30 2C ERN",110000,200, 000460: 36 39 2C 22 20 20 50 47 41 20 43 48 41 4D 50 49 69," PGA CHAMPI 000470: 4F 4E 53 48 49 50 20 20 22 2C 31 38 30 30 30 30 ONSHIP ",180000 000480: 2C 32 30 30 2C 37 32 2C 22 20 20 42 52 49 54 49 ,200,72," BRITI 000490: 53 48 20 4D 41 53 54 45 52 53 20 20 20 22 2C 32 SH MASTERS ",2 0004A0: 30 30 30 30 30 2C 32 30 30 2C 37 32 0D 0A 38 30 00000,200,72..80 0004B0: 20 44 41 54 41 20 22 20 20 4D 4F 4E 54 45 20 43 DATA " MONTE C 0004C0: 41 52 4C 4F 20 4F 50 45 4E 20 20 22 2C 31 32 35 ARLO OPEN ",125 0004D0: 30 30 30 2C 34 30 30 2C 37 32 2C 22 20 20 20 20 000,400,72," 0004E0: 42 52 49 54 49 53 48 20 4F 50 45 4E 20 20 20 20 BRITISH OPEN 0004F0: 22 2C 35 30 30 30 30 30 2C 32 30 30 2C 37 30 2C ",500000,200,70, 000500: 22 20 20 20 45 55 52 4F 50 5E 74 45 41 4E 20 4F " EUROP^tEAN O 000510: 50 45 4E 20 20 20 20 22 2C 32 30 30 30 30 30 2C PEN ",200000, 000520: 34 30 30 2C 37 30 2C 22 20 53 41 4E 59 4F 20 53 400,70," SANYO S 000530: 50 41 4E 49 53 48 20 4F 50 45 4E 20 22 2C 31 32 PANISH OPEN ",12 000540: 30 30 30 30 2C 35 30 30 2C 37 30 0D 0A 39 30 20 0000,500,70..90 000550: 44 41 54 41 20 22 20 20 20 4C 41 4E 43 4F 4D 45 DATA " LANCOME 000560: 20 54 52 4F 50 48 59 20 20 20 22 2C 31 32 35 30 TROPHY ",1250 000570: 30 30 2C 34 30 30 2C 37 32 2C 22 20 20 20 54 48 00,400,72," TH 000580: 45 20 55 53 20 4D 41 53 54 45 52 53 20 20 20 22 E US MASTERS " 000590: 2C 36 30 30 30 30 30 2C 31 30 30 30 2C 37 32 2C ,600000,1000,72, 0005A0: 22 20 20 42 4F 42 20 48 4F 50 45 20 43 4C 41 53 " BOB HOPE CLAS 0005B0: 53 49 43 20 20 22 2C 33 35 30 30 30 30 2C 31 30 SIC ",350000,10 0005C0: 30 30 2C 37 32 0D 0A 31 30 30 20 44 41 54 41 20 00,72..100 DATA 0005D0: 22 20 20 20 20 20 20 55 53 20 4F 50 45 4E 20 20 " US OPEN 0005E0: 20 20 20 20 20 22 2C 35 35 30 30 30 30 2C 31 30 ",550000,10 0005F0: 30 30 2C 37 30 2C 22 20 20 4E 45 43 20 57 4F 52 00,70," NEC WOR 000600: 4C 44 20 53 45 52 49 45 53 20 20 C1 38 22 2C 35 LD SERIES .8",5 000610: 30 30 30 30 30 2C 31 30 30 30 2C 37 30 2C 22 57 00000,1000,70,"W 000620: 41 4C 54 20 44 49 53 4E 45 59 20 43 4C 41 53 53 ALT DISNEY CLASS 000630: 49 43 20 22 2C 32 35 30 30 30 30 2C 31 30 30 30 IC ",250000,1000 000640: 2C 37 32 0D 0A 31 31 30 20 44 41 54 41 20 22 53 ,72..110 DATA "S 000650: 45 49 4B 4F 20 49 4E 54 45 52 4E 41 54 49 4F 4E EIKO INTERNATION 000660: 41 4C 20 22 2C 34 35 30 30 30 30 2C 31 30 30 30 AL ",450000,1000 000670: 2C 37 30 2C 22 20 20 20 20 20 4A 45 52 53 45 59 ,70," JERSEY 000680: 20 4F 50 45 4E 20 20 20 20 22 2C 37 35 30 30 30 OPEN ",75000 000690: 2C 33 30 30 2C 37 32 2C 22 43 41 52 52 4F 4C 4C ,300,72,"CARROLL 0006A0: 53 20 49 52 49 53 48 20 4F 50 45 4E 20 22 2C 31 S IRISH OPEN ",1 0006B0: 32 30 30 30 30 2C 33 30 30 2C 37 31 2C 22 20 42 20000,300,71," B 0006C0: 26 48 20 49 4E 54 45 52 4E 41 54 49 4F 4E 41 4C &H INTERNATIONAL 0006D0: 20 20 22 2C 31 35 30 30 30 30 2C 32 30 30 2C 37 ",150000,200,7 0006E0: 32 0D 0A 31 32 30 20 44 41 54 41 20 22 20 41 55 2..120 DATA " AU 0006F0: 53 54 52 41 4C 49 41 4E 20 4D 41 53 54 45 52 53 STRALIAN MASTERS 000700: 20 22 2C 31 35 30 30 30 30 2C 31 35 30 F3 33 30 ",150000,150.30 000710: 2C 37 33 2C 22 20 20 20 20 20 49 54 41 4C 49 41 ,73," ITALIA 000720: 4E 20 4F 50 45 4E 20 20 20 22 2C 37 35 30 30 30 N OPEN ",75000 000730: 2C 34 30 30 2C 37 32 0D 0A 31 33 30 20 44 41 54 ,400,72..130 DAT 000740: 41 20 22 44 55 4E 4C 4F 50 22 2C 22 42 4F 53 53 A "DUNLOP","BOSS 000750: 22 2C 22 53 4C 41 5A 45 4E 47 45 52 22 2C 22 44 ","SLAZENGER","D 000760: 26 48 20 47 41 4D 45 53 22 2C 22 4E 49 4B 45 22 &H GAMES","NIKE" 000770: 2C 22 48 49 2D 54 45 43 22 2C 22 56 4F 4C 56 4F ,"HI-TEC","VOLVO 000780: 22 2C 22 42 45 4C 4C 53 22 2C 22 4C 45 20 43 4F ","BELLS","LE CO 000790: 51 22 2C 22 47 55 43 43 49 22 0D 0A 31 34 30 20 Q","GUCCI"..140 0007A0: 44 41 54 41 20 22 57 45 4E 54 57 4F 52 54 48 22 DATA "WENTWORTH" 0007B0: 2C 22 47 4C 45 4E 45 41 47 4C 45 53 22 2C 22 53 ,"GLENEAGLES","S 0007C0: 54 45 56 45 4E 41 47 45 22 2C 22 4D 4F 4F 52 54 TEVENAGE","MOORT 0007D0: 4F 57 4E 22 2C 22 57 4F 42 55 52 4E 22 2C 22 48 OWN","WOBURN","H 0007E0: 41 47 47 53 20 43 41 53 54 4C 45 22 2C 22 46 55 AGGS CASTLE","FU 0007F0: 4C 46 4F 52 44 22 2C 22 53 55 4E 4E 49 4E 47 44 LFORD","SUNNINGD 000800: 41 4C 45 22 2C 22 54 48 45 20 42 45 4C 46 52 27 ALE","THE BELFR' 000810: F2 FF FF FF FE .....
previousnext* BLOCK 0021 : TURBO LOADING DATA
HEADER
Block Name : GOLF1
Block Number : 2
Block last : YES
File type : Ascii
File adress start : &9E7C
File adress length : &01D6
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 2259
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1149
Length of ONE bit pulse : 2299
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 496		000000: 2C 47 4F 4C 46 31 00 00 00 00 00 00 00 00 00 00 ,GOLF1.......... 000010: 00 02 FF 16 D6 01 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 9C 9C FF FF FF FE .......
previousnext* BLOCK 0022 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2261
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1137
Length of ONE bit pulse : 2276
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 10186ms
Data : 521 bytes
Total size : 540 bytes

Sum DATA : 29 703		000000: 16 59 22 2C 22 42 49 4E 47 4C 45 59 22 2C 22 52 .Y","BINGLEY","R 000010: 4F 59 41 4C 20 4C 59 54 48 41 4D 22 2C 22 57 49 OYAL LYTHAM","WI 000020: 4E 44 53 4F 52 22 0D 0A 31 35 30 20 68 24 3D 22 NDSOR"..150 h$=" 000030: 42 43 44 46 47 48 4A 4B 4C 4D 4E 50 52 53 54 56 BCDFGHJKLMNPRSTV 000040: 57 22 3A 6D 24 3D 22 41 45 49 4F 55 22 3A 52 45 W":m$="AEIOU":RE 000050: 53 54 4F 52 45 20 31 36 30 3A 46 4F 52 20 6E 3D STORE 160:FOR n= 000060: 31 20 54 4F 20 32 36 3A 52 45 41 44 20 65 24 28 1 TO 26:READ e$( 000070: 6E 29 3A 4E 45 58 54 3A 46 4F 52 20 6E 3D 31 20 n):NEXT:FOR n=1 000080: 54 4F 20 33 3A 52 45 41 44 20 6E 24 28 6E 29 3A TO 3:READ n$(n): 000090: 4E 45 58 54 3A 52 45 53 54 4F 52 45 20 31 38 30 NEXT:RESTORE 180 0000A0: 3A 47 4F 53 55 42 20 31 38 30 3A 43 48 41 49 4E :GOSUB 180:CHAIN 0000B0: 20 4D 45 52 47 45 22 21 47 4F 4C 46 32 22 2C 31 MERGE"!GOLF2",1 0000C0: 30 0D 0A 31 36 30 20 44 41 54 41 20 22 44 45 4E 0..160 DATA "DEN 0000D0: 22 2C 22 4E 53 22 2C 22 52 59 22 2C 22 45 59 22 ","NS","RY","EY" 0000E0: 2C 22 4F 4E 22 2C 22 57 41 59 22 2C 22 4C 45 22 ,"ON","WAY","LE" 0000F0: 2C 22 42 59 22 2C 22 49 4E 53 22 2C 22 4C 45 59 ,"BY","INS","LEY 000100: 22 03 FA 2C 22 53 4F 4E 22 2C 22 54 4F 4E 22 2C "..,"SON","TON", 000110: 22 53 22 2C 22 45 53 22 2C 22 4D 41 4E 22 2C 22 "S","ES","MAN"," 000120: 42 4C 45 22 2C 22 4E 45 59 22 2C 22 53 45 59 22 BLE","NEY","SEY" 000130: 2C 22 54 45 52 22 2C 22 49 53 22 2C 22 45 52 22 ,"TER","IS","ER" 000140: 2C 22 45 4E 53 22 2C 22 44 4F 4E 22 2C 22 49 4E ,"ENS","DON","IN 000150: 47 22 2C 22 47 41 4E 22 2C 22 4C 49 4E 22 0D 0A G","GAN","LIN".. 000160: 31 37 30 20 44 41 54 41 20 22 50 52 49 5A 45 20 170 DATA "PRIZE 000170: 4D 4F 4E 45 59 20 22 2C 22 45 58 50 45 4E 53 45 MONEY ","EXPENSE 000180: 53 20 22 2C 22 54 4F 55 52 4E 41 4D 45 4E 54 22 S ","TOURNAMENT" 000190: 0D 0A 31 38 30 20 46 4F 52 20 6E 3D 31 20 54 4F ..180 FOR n=1 TO 0001A0: 20 31 30 3A 52 45 41 44 20 72 28 6E 29 3A 4E 45 10:READ r(n):NE 0001B0: 58 54 3A 52 45 54 55 52 4E 3A 44 41 54 41 20 34 XT:RETURN:DATA 4 0001C0: 2C 32 2C 31 2C 30 2C 30 2C 2D 31 2C 2D 32 2C 2D ,2,1,0,0,-1,-2,- 0001D0: 34 2C 2D 35 2C 2D 36 0D 0A 00 00 00 00 00 00 00 4,-5,-6......... 0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000200: 00 00 00 B6 67 FF FF FF FE ....g....
previousnext* BLOCK 0023 : TURBO LOADING DATA
HEADER
Block Name : GOLF2
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 : 2268
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1144
Length of ONE bit pulse : 2289
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 207		000000: 2C 47 4F 4C 46 32 00 00 00 00 00 00 00 00 00 00 ,GOLF2.......... 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 43 A3 FF FF FF FE .C£....
previousnext* BLOCK 0024 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2268
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1128
Length of ONE bit pulse : 2256
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 2679ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 130 122		000000: 16 31 30 20 61 6B 3D 31 30 3A 61 71 3D 30 3A 61 .10 ak=10:aq=0:a 000010: 72 3D 30 3A 61 75 3D 30 3A 61 65 3D 30 3A 7A 66 r=0:au=0:ae=0:zf 000020: 3D 30 3A 7A 70 3D 30 3A 46 4F 52 20 6E 3D 31 20 =0:zp=0:FOR n=1 000030: 54 4F 20 31 30 3A 52 45 41 44 20 67 28 6E 29 3A TO 10:READ g(n): 000040: 4E 45 58 54 3A 44 41 54 41 20 33 35 2C 32 32 2C NEXT:DATA 35,22, 000050: 31 36 2C 37 2C 36 2C 35 2C 34 2C 33 2C 32 2C 31 16,7,6,5,4,3,2,1 000060: 0D 0A 32 30 20 47 4F 53 55 42 20 36 35 35 30 32 ..20 GOSUB 65502 000070: 3A 4C 4F 43 41 54 45 20 39 2C 38 3A 50 52 49 4E :LOCATE 9,8:PRIN 000080: 54 22 53 54 4F 50 20 54 41 50 45 2C 44 4F 20 4E T"STOP TAPE,DO N 000090: 4F 54 20 52 45 57 49 4E 44 22 3A 4C 4F 43 41 54 OT REWIND":LOCAT 0000A0: 45 20 31 31 2C 31 31 3A 50 52 49 4E 54 20 22 4C E 11,11:PRINT "L 0000B0: 4F 41 44 20 53 41 56 45 44 20 47 41 4D 45 3F 20 OAD SAVED GAME? 0000C0: 59 2F 4E 22 3A 47 4F 53 55 42 20 36 34 31 30 30 Y/N":GOSUB 64100 0000D0: 3A 49 46 20 49 4E 24 3D 22 59 22 20 54 48 45 4E :IF IN$="Y" THEN 0000E0: 20 43 4C 53 3A 4C 4F 43 41 54 45 20 31 30 2C 31 CLS:LOCATE 10,1 0000F0: 30 3A 50 52 49 4E 54 22 53 54 41 52 54 20 53 41 0:PRINT"START SA 000100: 56 4B E9 45 44 20 47 41 4D 45 20 54 41 50 45 22 VK.ED GAME TAPE" 000110: 3A 47 4F 53 55 42 20 35 30 30 30 30 3A 43 4C 53 :GOSUB 50000:CLS 000120: 3A 4C 4F 43 41 54 45 20 31 30 2C 31 31 3A 50 52 :LOCATE 10,11:PR 000130: 49 4E 54 22 53 54 41 52 54 20 4F 52 49 47 49 4E INT"START ORIGIN 000140: 41 4C 20 54 41 50 45 22 3A 43 48 41 49 4E 20 4D AL TAPE":CHAIN M 000150: 45 52 47 45 22 21 41 47 4F 4C 46 22 2C 35 30 30 ERGE"!AGOLF",500 000160: 0D 0A 33 30 20 43 4C 53 3A 46 24 3D 22 30 30 30 ..30 CLS:F$="000 000170: 30 30 30 30 30 30 30 30 30 30 30 30 22 3A 47 4F 000000000000":GO 000180: 53 55 42 20 39 39 32 30 3A 73 6E 3D 30 3A 7A 61 SUB 9920:sn=0:za 000190: 3D 32 30 30 30 30 3A 61 62 3D 31 3A 7A 63 3D 30 =20000:ab=1:zc=0 0001A0: 3A 7A 64 3D 30 3A 7A 65 3D 30 3A 7A 6C 3D 30 3A :zd=0:ze=0:zl=0: 0001B0: 7A 6D 3D 30 3A 7A 6E 3D 30 3A 7A 6F 3D 30 0D 0A zm=0:zn=0:zo=0.. 0001C0: 34 30 20 47 4F 53 55 42 20 37 30 3A 52 41 4E 44 40 GOSUB 70:RAND 0001D0: 4F 4D 49 5A 45 20 54 49 4D 45 3A 46 4F 52 20 6E OMIZE TIME:FOR n 0001E0: 3D 32 20 54 4F 20 34 30 3A 47 4F 53 55 42 20 39 =2 TO 40:GOSUB 9 0001F0: 39 31 30 3A 76 24 28 6E 29 3D 7A 31 24 3A 4E 45 910:v$(n)=z1$:NE 000200: 58 54 3A B2 3F 52 41 4E 44 4F 4D 49 5A 45 20 54 XT:.?RANDOMIZE T 000210: 49 4D 45 3A 7A 31 3D 30 3A 46 4F 52 20 7A 3D 31 IME:z1=0:FOR z=1 000220: 20 54 4F 20 34 3A 7A 31 3D 7A 31 2A 31 30 30 2B TO 4:z1=z1*100+ 000230: 49 4E 54 28 52 4E 44 2A 31 30 29 2B 33 35 3A 4E INT(RND*10)+35:N 000240: 45 58 54 3A 76 24 28 31 29 3D 52 49 47 48 54 24 EXT:v$(1)=RIGHT$ 000250: 28 53 54 52 24 28 7A 31 29 2C 38 29 0D 0A 35 30 (STR$(z1),8)..50 000260: 20 43 4C 53 3A 4C 4F 43 41 54 45 20 35 2C 31 31 CLS:LOCATE 5,11 000270: 3A 50 52 49 4E 54 20 22 45 4E 54 45 52 20 59 4F :PRINT "ENTER YO 000280: 55 52 20 46 49 52 53 54 20 49 4E 49 54 49 41 4C UR FIRST INITIAL 000290: 22 3A 47 4F 53 55 42 20 36 35 35 33 35 3A 49 4E ":GOSUB 65535:IN 0002A0: 50 55 54 23 32 2C 7A 24 3A 43 4C 53 23 32 3A 75 PUT#2,z$:CLS#2:u 0002B0: 24 28 31 29 3D 4C 45 46 54 24 28 7A 24 2C 31 29 $(1)=LEFT$(z$,1) 0002C0: 2B 22 2E 22 3A 4C 4F 43 41 54 45 20 35 2C 31 31 +".":LOCATE 5,11 0002D0: 3A 50 52 49 4E 54 20 22 45 4E 54 45 52 20 59 4F :PRINT "ENTER YO 0002E0: 55 52 20 53 55 52 4E 41 4D 45 20 28 4D 41 58 20 UR SURNAME (MAX 0002F0: 39 20 43 48 41 52 53 29 22 3A 49 4E 50 55 54 23 9 CHARS)":INPUT# 000300: 32 2C 7A 24 3A 8C 60 43 4C 53 23 32 3A 49 46 20 2,z$:.`CLS#2:IF 000310: 4C 45 4E 28 7A 24 29 3E 39 20 4F 52 20 4C 45 4E LEN(z$)>9 OR LEN 000320: 28 7A 24 29 3C 31 20 54 48 45 4E 20 31 30 30 0D (z$)<1 THEN 100. 000330: 0A 36 30 20 52 41 4E 44 4F 4D 49 5A 45 20 54 49 .60 RANDOMIZE TI 000340: 4D 45 3A 43 4C 53 3A 47 4F 53 55 42 20 39 39 32 ME:CLS:GOSUB 992 000350: 30 3A 75 24 28 31 29 3D 55 50 50 45 52 24 28 75 0:u$(1)=UPPER$(u 000360: 24 28 31 29 2B 7A 24 29 2B 53 50 41 43 45 24 28 $(1)+z$)+SPACE$( 000370: 39 2D 4C 45 4E 28 7A 24 29 29 3A 46 4F 52 20 6E 9-LEN(z$)):FOR n 000380: 3D 31 20 54 4F 20 31 37 3A 70 28 6E 29 3D 31 3A =1 TO 17:p(n)=1: 000390: 4E 45 58 54 3A 43 48 41 49 4E 20 4D 45 52 47 45 NEXT:CHAIN MERGE 0003A0: 22 21 41 47 4F 4C 46 22 2C 34 30 30 0D 0A 37 30 "!AGOLF",400..70 0003B0: 20 46 4F 52 20 61 3D 32 20 54 4F 20 34 30 3A 20 FOR a=2 TO 40: 0003C0: 52 45 41 44 20 75 24 28 61 29 3A 75 24 28 61 29 READ u$(a):u$(a) 0003D0: 3D 75 24 28 61 29 2B 53 50 41 43 45 24 28 31 31 =u$(a)+SPACE$(11 0003E0: 2D 4C 45 4E 28 75 24 28 61 29 29 29 3A 4E 45 58 -LEN(u$(a))):NEX 0003F0: 54 3A 52 45 54 55 52 4E 0D 0A 38 30 20 44 41 54 T:RETURN..80 DAT 000400: 41 20 22 47 2E 4E 4F B3 13 52 4D 41 4E 22 2C 22 A "G.NO..RMAN"," 000410: 42 2E 4C 41 4E 47 45 52 22 2C 22 53 2E 42 41 4C B.LANGER","S.BAL 000420: 45 53 54 52 4F 53 22 2C 22 54 2E 4E 41 4B 41 4A ESTROS","T.NAKAJ 000430: 49 4D 41 22 2C 22 41 2E 42 45 41 4E 22 2C 22 52 IMA","A.BEAN","R 000440: 2E 54 57 41 59 22 2C 22 43 2E 53 54 52 41 4E 47 .TWAY","C.STRANG 000450: 45 22 2C 22 4D 2E 4F 27 4D 45 41 52 41 22 2C 22 E","M.O'MEARA"," 000460: 49 2E 41 4F 4B 49 22 2C 22 53 2E 4C 59 4C 45 22 I.AOKI","S.LYLE" 000470: 2C 22 43 2E 50 45 45 54 45 22 2C 22 52 2E 46 4C ,"C.PEETE","R.FL 000480: 4F 59 44 22 2C 22 4C 2E 57 41 44 4B 49 4E 53 22 OYD","L.WADKINS" 000490: 2C 22 54 2E 4B 49 54 45 22 2C 22 52 2E 44 41 56 ,"T.KITE","R.DAV 0004A0: 49 53 22 2C 22 54 2E 57 41 54 53 4F 4E 22 0D 0A IS","T.WATSON".. 0004B0: 39 30 20 44 41 54 41 20 22 46 2E 5A 4F 45 4C 4C 90 DATA "F.ZOELL 0004C0: 45 52 22 2C 22 4D 2E 4D 63 4E 55 4C 54 59 22 2C ER","M.McNULTY", 0004D0: 22 43 2E 53 54 41 44 4C 45 52 22 2C 22 4A 2E 4E "C.STADLER","J.N 0004E0: 49 4B 4C 41 55 53 22 2C 22 48 2E 43 4C 41 52 4B IKLAUS","H.CLARK 0004F0: 22 2C 22 49 2E 57 4F 4F 53 4E 41 4D 22 2C 22 47 ","I.WOOSNAM","G 000500: 2E 4D 41 52 53 48 22 2C 22 F6 4E 53 2E 48 4F 43 .MARSH",".NS.HOC 000510: 48 22 2C 22 4C 2E 4D 49 5A 45 22 2C 22 42 2E 43 H","L.MIZE","B.C 000520: 52 45 4E 53 48 41 57 22 2C 22 4C 2E 54 52 45 56 RENSHAW","L.TREV 000530: 49 4E 4F 22 2C 22 53 2E 54 4F 52 52 41 4E 43 45 INO","S.TORRANCE 000540: 22 2C 22 4E 2E 46 41 4C 44 4F 22 2C 22 4E 2E 50 ","N.FALDO","N.P 000550: 52 49 43 45 22 2C 22 47 2E 42 52 41 4E 44 22 2C RICE","G.BRAND", 000560: 22 4C 2E 4E 45 4C 53 4F 4E 22 0D 0A 31 30 30 20 "L.NELSON"..100 000570: 44 41 54 41 20 22 46 2E 43 4F 55 50 4C 45 53 22 DATA "F.COUPLES" 000580: 2C 22 4A 2E 52 49 56 45 52 4F 22 2C 22 4D 2E 4A ,"J.RIVERO","M.J 000590: 41 4D 45 53 22 2C 22 50 2E 41 5A 49 4E 47 45 52 AMES","P.AZINGER 0005A0: 22 2C 22 48 2E 42 49 41 4F 43 43 48 49 22 2C 22 ","H.BIAOCCHI"," 0005B0: 48 2E 49 52 57 49 4E 22 2C 22 4B 2E 42 52 4F 57 H.IRWIN","K.BROW 0005C0: 4E 22 0D 0A 39 39 30 30 20 7A 24 3D 4D 49 44 24 N"..9900 z$=MID$ 0005D0: 28 68 24 2C 31 2B 49 4E 54 28 52 4E 44 2A 31 37 (h$,1+INT(RND*17 0005E0: 29 2C 31 29 2B 22 2E 22 2B 4D 49 44 24 28 68 24 ),1)+"."+MID$(h$ 0005F0: 2C 31 2B 49 4E 54 28 52 4E 44 2A 31 37 29 2C 31 ,1+INT(RND*17),1 000600: 29 2B 4D 49 44 24 28 6D 24 2C 31 91 E9 2B 49 4E )+MID$(m$,1..+IN 000610: 54 28 52 4E 44 2A 35 29 2C 31 29 2B 4D 49 44 24 T(RND*5),1)+MID$ 000620: 28 68 24 2C 31 2B 49 4E 54 28 52 4E 44 2A 31 37 (h$,1+INT(RND*17 000630: 29 2C 31 29 2B 65 24 28 31 2B 49 4E 54 28 52 4E ),1)+e$(1+INT(RN 000640: 44 2A 32 36 29 29 3A 7A 24 3D 7A 24 2B 53 50 41 D*26)):z$=z$+SPA 000650: 43 45 24 28 31 31 2D 4C 45 4E 28 7A 24 29 29 3A CE$(11-LEN(z$)): 000660: 52 45 54 55 52 4E 20 0D 0A 39 39 31 30 20 7A 31 RETURN ..9910 z1 000670: 3D 30 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 34 3A =0:FOR z=1 TO 4: 000680: 7A 31 3D 7A 31 2A 31 30 30 2B 49 4E 54 28 52 4E z1=z1*100+INT(RN 000690: 44 2A 31 35 29 2B 37 35 3A 4E 45 58 54 3A 7A 31 D*15)+75:NEXT:z1 0006A0: 24 3D 28 52 49 47 48 54 24 28 53 54 52 24 28 7A $=(RIGHT$(STR$(z 0006B0: 31 29 2C 38 29 29 3A 52 45 54 55 52 4E 20 0D 0A 1),8)):RETURN .. 0006C0: 39 39 32 30 20 50 52 49 4E 54 20 23 32 2C 54 41 9920 PRINT #2,TA 0006D0: 42 28 31 30 29 3B 70 61 24 28 32 29 3B 22 50 4C B(10);pa$(2);"PL 0006E0: 45 41 53 45 20 57 41 49 54 22 3B 70 61 24 28 31 EASE WAIT";pa$(1 0006F0: 29 3A 52 45 54 55 52 4E 20 0D 0A 39 39 33 30 20 ):RETURN ..9930 000700: 50 52 49 4E 54 20 23 32 2C 54 41 42 28 9F BD 31 PRINT #2,TAB(..1 000710: 33 29 3B 70 61 24 28 34 29 3B 22 20 28 43 29 4F 3);pa$(4);" (C)O 000720: 4E 54 49 4E 55 45 20 22 3B 70 61 24 28 31 29 3A NTINUE ";pa$(1): 000730: 57 48 49 4C 45 20 49 4E 4B 45 59 28 36 32 29 3D WHILE INKEY(62)= 000740: 2D 31 3A 57 45 4E 44 3A 57 48 49 4C 45 20 49 4E -1:WEND:WHILE IN 000750: 4B 45 59 28 36 32 29 3C 3E 2D 31 3A 57 45 4E 44 KEY(62)<>-1:WEND 000760: 3A 47 4F 54 4F 20 36 35 35 33 35 0D 0A 39 39 34 :GOTO 65535..994 000770: 30 20 50 52 49 4E 54 23 32 2C 54 41 42 28 31 33 0 PRINT#2,TAB(13 000780: 29 3B 70 61 24 28 33 29 3B 22 20 28 4D 29 45 4E );pa$(3);" (M)EN 000790: 55 20 22 3B 70 61 24 28 31 29 3A 57 48 49 4C 45 U ";pa$(1):WHILE 0007A0: 20 49 4E 4B 45 59 28 33 38 29 3D 2D 31 3A 57 45 INKEY(38)=-1:WE 0007B0: 4E 44 3A 57 48 49 4C 45 20 49 4E 4B 45 59 28 33 ND:WHILE INKEY(3 0007C0: 38 29 3C 3E 2D 31 3A 57 45 4E 44 3A 47 4F 54 4F 8)<>-1:WEND:GOTO 0007D0: 20 36 35 35 33 35 0D 0A 39 39 35 30 20 50 52 49 65535..9950 PRI 0007E0: 4E 54 20 23 32 2C 54 41 42 28 37 29 3B 70 61 24 NT #2,TAB(7);pa$ 0007F0: 28 34 29 3B 22 20 28 43 29 48 41 4E 47 45 20 20 (4);" (C)HANGE 000800: 28 4D 29 45 4E 55 20 22 3B 70 61 24 28 31 29 82 (M)ENU ";pa$(1). 000810: 20 FF FF FF FE ....
previousnext* BLOCK 0025 : TURBO LOADING DATA
HEADER
Block Name : GOLF2
Block Number : 2
Block last : YES
File type : Ascii
File adress start : &9E7C
File adress length : &0362
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 2265
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1158
Length of ONE bit pulse : 2317
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 413		000000: 2C 47 4F 4C 46 32 00 00 00 00 00 00 00 00 00 00 ,GOLF2.......... 000010: 00 02 FF 16 62 03 7C 9E 00 00 00 00 00 00 00 00 ....b.|......... 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 B4 A2 FF FF FF FE .......
previousnext* BLOCK 0026 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2268
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1146
Length of ONE bit pulse : 2293
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 10256ms
Data : 1037 bytes
Total size : 1056 bytes

Sum DATA : 57 704		000000: 16 3A 52 45 54 55 52 4E 20 0D 0A 39 39 36 30 20 .:RETURN ..9960 000010: 4C 4F 43 41 54 45 20 32 30 2C 32 32 3A 50 52 49 LOCATE 20,22:PRI 000020: 4E 54 20 22 42 41 4E 4B 20 22 3B 3A 74 7A 3D 7A NT "BANK ";:tz=z 000030: 61 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 a:GOSUB 63500:PR 000040: 49 4E 54 20 43 48 52 24 28 33 32 2D 28 7A 61 3C INT CHR$(32-(za< 000050: 30 29 2A 31 33 29 3B 3A 52 45 54 55 52 4E 20 0D 0)*13);:RETURN . 000060: 0A 39 39 37 30 20 47 4F 53 55 42 20 36 35 35 33 .9970 GOSUB 6553 000070: 35 3A 49 4E 50 55 54 23 32 2C 22 44 4F 20 59 4F 5:INPUT#2,"DO YO 000080: 55 20 41 43 43 45 50 54 20 59 2F 4E 22 3B 7A 24 U ACCEPT Y/N";z$ 000090: 3A 43 4C 53 23 32 3A 7A 24 3D 55 50 50 45 52 24 :CLS#2:z$=UPPER$ 0000A0: 28 7A 24 29 3A 49 46 20 7A 24 3D 22 59 22 20 4F (z$):IF z$="Y" O 0000B0: 52 20 7A 24 3D 22 4E 22 20 54 48 45 4E 20 52 45 R z$="N" THEN RE 0000C0: 54 55 52 4E 20 45 4C 53 45 20 39 39 37 30 0D 0A TURN ELSE 9970.. 0000D0: 39 39 38 30 20 47 4F 53 55 42 20 36 35 35 33 35 9980 GOSUB 65535 0000E0: 3A 47 4F 53 55 42 20 36 34 32 30 30 3A 79 24 3D :GOSUB 64200:y$= 0000F0: 49 4E 24 3A 49 46 20 79 24 20 3C 22 30 22 20 4F IN$:IF y$ <"0" O 000100: 52 06 31 20 79 24 20 3E 22 39 22 20 54 48 45 4E R.1 y$ >"9" THEN 000110: 20 39 39 38 30 20 45 4C 53 45 20 61 31 3D 56 41 9980 ELSE a1=VA 000120: 4C 28 79 24 29 3A 52 45 54 55 52 4E 20 0D 0A 39 L(y$):RETURN ..9 000130: 39 39 30 20 44 41 54 41 20 22 50 4C 41 59 20 54 990 DATA "PLAY T 000140: 4F 55 52 4E 41 4D 45 4E 54 22 2C 22 4E 45 58 54 OURNAMENT","NEXT 000150: 20 54 4F 55 52 4E 41 4D 45 4E 54 22 2C 22 50 52 TOURNAMENT","PR 000160: 41 43 54 49 43 45 22 2C 22 46 49 58 54 55 52 45 ACTICE","FIXTURE 000170: 53 22 2C 22 43 48 41 4E 47 45 20 4E 41 4D 45 53 S","CHANGE NAMES 000180: 22 2C 22 42 41 4E 4B 22 2C 22 53 50 4F 4E 53 4F ","BANK","SPONSO 000190: 52 53 22 2C 22 4C 45 56 45 4C 22 2C 22 57 4F 52 RS","LEVEL","WOR 0001A0: 4C 44 20 52 41 4E 4B 49 4E 47 22 2C 22 53 41 56 LD RANKING","SAV 0001B0: 45 20 47 41 4D 45 20 20 20 20 20 20 22 0D 0A 35 E GAME "..5 0001C0: 30 30 30 30 20 43 4C 4F 53 45 49 4E 3A 4F 50 45 0000 CLOSEIN:OPE 0001D0: 4E 49 4E 20 22 67 6F 6C 66 2E 73 61 76 22 0D 0A NIN "golf.sav".. 0001E0: 35 30 30 31 30 20 49 4E 50 55 54 23 39 2C 61 61 50010 INPUT#9,aa 0001F0: 2C 61 62 2C 61 65 2C 61 66 2C 61 6B 2C 61 71 2C ,ab,ae,af,ak,aq, 000200: 61 72 2C 7A 70 61 76 2C 61 77 2C 73 6E 2C 7A 61 ar,zpav,aw,sn,za 000210: 2C 7A 62 2C 7A 63 2C 7A 64 2C 7A 65 2C 7A 6C 2C ,zb,zc,zd,ze,zl, 000220: 7A 6D 2C 7A 6F 2C 66 24 3A 46 4F 52 20 6E 3D 31 zm,zo,f$:FOR n=1 000230: 20 54 4F 20 32 3A 46 4F 52 20 61 3D 31 20 54 4F TO 2:FOR a=1 TO 000240: 20 33 3A 49 4E 50 55 54 23 39 2C 61 28 6E 2C 61 3:INPUT#9,a(n,a 000250: 29 3A 4E 45 58 54 20 61 2C 6E 3A 46 4F 52 20 6E ):NEXT a,n:FOR n 000260: 3D 31 20 54 4F 20 34 30 3A 49 4E 50 55 54 23 39 =1 TO 40:INPUT#9 000270: 2C 63 28 6E 29 2C 6B 28 6E 29 2C 76 24 28 6E 29 ,c(n),k(n),v$(n) 000280: 2C 75 24 28 6E 29 3A 4E 45 58 54 0D 0A 35 30 30 ,u$(n):NEXT..500 000290: 32 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 32 30 20 FOR n=1 TO 20 0002A0: 3A 49 4E 50 55 54 23 39 2C 61 24 28 6E 29 2C 6C :INPUT#9,a$(n),l 0002B0: 28 6E 2C 31 29 2C 6C 28 6E 2C 32 29 3A 46 4F 52 (n,1),l(n,2):FOR 0002C0: 20 61 3D 31 20 54 4F 20 33 3A 49 4E 50 55 54 23 a=1 TO 3:INPUT# 0002D0: 39 2C 76 28 6E 2C 61 29 3A 4E 45 58 54 20 61 2C 9,v(n,a):NEXT a, 0002E0: 6E 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 31 31 3A n:FOR n=1 TO 11: 0002F0: 49 4E 50 55 54 23 39 2C 73 28 6E 29 3A 4E 45 58 INPUT#9,s(n):NEX 000300: 54 3A 46 4F 52 14 20 20 6E 3D 31 20 54 4F 20 31 T:FOR. n=1 TO 1 000310: 37 3A 49 4E 50 55 54 23 39 2C 70 28 6E 29 3A 4E 7:INPUT#9,p(n):N 000320: 45 58 54 3A 49 4E 50 55 54 23 39 2C 64 24 28 31 EXT:INPUT#9,d$(1 000330: 29 2C 64 24 28 32 29 3A 46 4F 52 20 6E 3D 31 20 ),d$(2):FOR n=1 000340: 54 4F 20 31 32 3A 49 4E 50 55 54 23 39 2C 69 24 TO 12:INPUT#9,i$ 000350: 28 6E 29 3A 4E 45 58 54 3A 43 4C 4F 53 45 49 4E (n):NEXT:CLOSEIN 000360: 3A 52 45 54 55 52 4E 0D 0A 00 00 00 00 00 00 00 :RETURN......... 000370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0003A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0003B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0003C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0003D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0003E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 0003F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 000400: 00 00 00 00 00 00 00 87 AB FF FF FF FE .............
previousnext* BLOCK 0027 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2268
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1153
Length of ONE bit pulse : 2307
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 275		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 83 98 FF FF FF FE .......
previousnext* BLOCK 0028 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2279
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1133
Length of ONE bit pulse : 2267
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2726ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 136 837		000000: 16 31 30 20 46 4F 52 20 6E 3D 32 20 54 4F 20 34 .10 FOR n=2 TO 4 000010: 30 3A 72 62 3D 6E 2D 31 3A 7A 32 3D 6B 28 66 28 0:rb=n-1:z2=k(f( 000020: 6E 29 29 3A 7A 31 3D 66 28 6E 29 0D 0A 31 35 20 n)):z1=f(n)..15 000030: 49 46 20 6B 28 66 28 72 62 29 29 3C 7A 32 20 54 IF k(f(rb))<z2 T 000040: 48 45 4E 20 72 61 3D 66 28 72 62 2B 31 29 3A 66 HEN ra=f(rb+1):f 000050: 28 72 62 2B 31 29 3D 66 28 72 62 29 3A 66 28 72 (rb+1)=f(rb):f(r 000060: 62 29 3D 72 61 3A 72 62 3D 72 62 2D 31 3A 49 46 b)=ra:rb=rb-1:IF 000070: 20 72 62 3E 30 20 54 48 45 4E 20 31 35 0D 0A 32 rb>0 THEN 15..2 000080: 30 20 66 28 72 62 2B 31 29 3D 7A 31 3A 4E 45 58 0 f(rb+1)=z1:NEX 000090: 54 3A 52 45 54 55 52 4E 20 0D 0A 33 30 20 46 4F T:RETURN ..30 FO 0000A0: 52 20 6E 3D 31 20 54 4F 20 34 30 3A 66 28 6E 29 R n=1 TO 40:f(n) 0000B0: 3D 6E 3A 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D =n:NEXT:RETURN . 0000C0: 0A 34 30 20 72 63 3D 30 3A 46 4F 52 20 7A 3D 31 .40 rc=0:FOR z=1 0000D0: 20 54 4F 20 37 20 53 54 45 50 20 32 3A 72 63 3D TO 7 STEP 2:rc= 0000E0: 72 63 2B 56 41 4C 28 4D 49 44 24 28 76 24 28 72 rc+VAL(MID$(v$(r 0000F0: 62 29 2C 7A 2C 32 29 29 3A 49 46 20 49 4E 54 28 b),z,2)):IF INT( 000100: 7A F2 30 2F 32 29 3D 61 67 20 54 48 45 4E 20 72 z.0/2)=ag THEN r 000110: 63 3D 72 63 2B 56 41 4C 28 4D 49 44 24 28 76 24 c=rc+VAL(MID$(v$ 000120: 28 72 62 29 2C 7A 2C 32 29 29 0D 0A 34 35 20 4E (rb),z,2))..45 N 000130: 45 58 54 3A 72 63 3D 49 4E 54 28 72 63 2F 35 29 EXT:rc=INT(rc/5) 000140: 3A 52 45 54 55 52 4E 20 0D 0A 35 30 20 46 4F 52 :RETURN ..50 FOR 000150: 20 6E 3D 31 20 54 4F 20 34 30 3A 74 24 28 6E 29 n=1 TO 40:t$(n) 000160: 3D 75 24 28 6E 29 3A 66 28 6E 29 3D 6E 3A 72 62 =u$(n):f(n)=n:rb 000170: 3D 6E 3A 47 4F 53 55 42 20 34 30 3A 6A 28 6E 29 =n:GOSUB 40:j(n) 000180: 3D 72 63 2B 63 28 6E 29 3A 4E 45 58 54 3A 52 45 =rc+c(n):NEXT:RE 000190: 54 55 52 4E 20 0D 0A 36 30 20 27 0D 0A 37 30 20 TURN ..60 '..70 0001A0: 7A 3D 31 3A 46 4F 52 20 61 3D 31 20 54 4F 20 37 z=1:FOR a=1 TO 7 0001B0: 20 53 54 45 50 20 32 3A 77 28 7A 29 3D 30 3A 49 STEP 2:w(z)=0:I 0001C0: 46 20 66 28 6E 29 3C 34 31 20 54 48 45 4E 20 77 F f(n)<41 THEN w 0001D0: 28 7A 29 3D 56 41 4C 28 4D 49 44 24 28 76 24 28 (z)=VAL(MID$(v$( 0001E0: 66 28 6E 29 29 2C 61 2C 32 29 29 0D 0A 37 32 20 f(n)),a,2))..72 0001F0: 7A 3D 7A 2B 31 3A 4E 45 58 54 3A 52 45 54 55 52 z=z+1:NEXT:RETUR 000200: 4E 0D 0A 63 B9 37 35 20 7A 3D 31 3A 46 4F 52 20 N..c.75 z=1:FOR 000210: 61 3D 31 20 54 4F 20 37 20 53 54 45 50 20 32 3A a=1 TO 7 STEP 2: 000220: 77 28 7A 29 3D 77 28 7A 29 2B 28 77 28 7A 29 3E w(z)=w(z)+(w(z)> 000230: 39 39 29 2A 28 77 28 7A 29 2D 39 39 29 2D 28 77 99)*(w(z)-99)-(w 000240: 28 7A 29 3C 31 30 29 2A 28 31 30 2D 77 28 7A 29 (z)<10)*(10-w(z) 000250: 29 3A 78 24 3D 52 49 47 48 54 24 28 53 54 52 24 ):x$=RIGHT$(STR$ 000260: 20 28 77 28 7A 29 29 2C 32 29 3A 4D 49 44 24 28 (w(z)),2):MID$( 000270: 76 24 28 66 28 6E 29 29 2C 61 2C 32 29 3D 78 24 v$(f(n)),a,2)=x$ 000280: 3A 7A 3D 7A 2B 31 3A 4E 45 58 54 3A 52 45 54 55 :z=z+1:NEXT:RETU 000290: 52 4E 20 0D 0A 38 30 20 46 4F 52 20 6E 3D 32 20 RN ..80 FOR n=2 0002A0: 54 4F 20 61 68 3A 72 62 3D 6E 2D 31 3A 72 63 3D TO ah:rb=n-1:rc= 0002B0: 65 28 6E 29 3A 72 64 3D 66 28 6E 29 0D 0A 38 35 e(n):rd=f(n)..85 0002C0: 20 49 46 20 65 28 72 62 29 3C 3D 72 63 20 54 48 IF e(rb)<=rc TH 0002D0: 45 4E 20 39 30 0D 0A 38 36 20 72 61 3D 66 28 72 EN 90..86 ra=f(r 0002E0: 62 2B 31 29 3A 66 28 72 62 2B 31 29 3D 66 28 72 b+1):f(rb+1)=f(r 0002F0: 62 29 3A 66 28 72 62 29 3D 72 61 3A 72 61 3D 6A b):f(rb)=ra:ra=j 000300: 28 72 62 2B 31 98 C8 29 3A 6A 28 72 62 2B 31 29 (rb+1..):j(rb+1) 000310: 3D 6A 28 72 62 29 3A 6A 28 72 62 29 3D 72 61 3A =j(rb):j(rb)=ra: 000320: 72 61 3D 65 28 72 62 2B 31 29 3A 65 28 72 62 2B ra=e(rb+1):e(rb+ 000330: 31 29 3D 65 28 72 62 29 3A 65 28 72 62 29 3D 72 1)=e(rb):e(rb)=r 000340: 61 3A 7A 24 3D 74 24 28 72 62 2B 31 29 3A 74 24 a:z$=t$(rb+1):t$ 000350: 28 72 62 2B 31 29 3D 74 24 28 72 62 29 3A 74 24 (rb+1)=t$(rb):t$ 000360: 28 72 62 29 3D 7A 24 3A 72 62 3D 72 62 2D 31 3A (rb)=z$:rb=rb-1: 000370: 49 46 20 72 62 3E 30 20 54 48 45 4E 20 38 35 0D IF rb>0 THEN 85. 000380: 0A 39 30 20 66 28 72 62 2B 31 29 3D 72 64 3A 4E .90 f(rb+1)=rd:N 000390: 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A 31 30 30 EXT:RETURN ..100 0003A0: 20 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A RANDOMIZE TIME: 0003B0: 72 64 3D 30 3A 72 65 3D 30 3A 46 4F 52 20 6E 3D rd=0:re=0:FOR n= 0003C0: 31 20 54 4F 20 61 68 3A 49 46 20 66 28 6E 29 3D 1 TO ah:IF f(n)= 0003D0: 31 20 54 48 45 4E 20 6E 3D 39 39 0D 0A 31 31 30 1 THEN n=99..110 0003E0: 20 4E 45 58 54 3A 49 46 20 6E 3D 31 30 30 20 54 NEXT:IF n=100 T 0003F0: 48 45 4E 20 72 64 3D 31 0D 0A 31 31 35 20 46 4F HEN rd=1..115 FO 000400: 52 20 6F 3D 31 20 54 E8 ED 4F 20 61 6A 3A 61 70 R o=1 T..O aj:ap 000410: 3D 61 70 2B 31 3A 4C 4F 43 41 54 45 20 31 32 2C =ap+1:LOCATE 12, 000420: 31 38 3A 50 52 49 4E 54 20 22 50 4C 41 59 49 4E 18:PRINT "PLAYIN 000430: 47 20 52 4F 55 4E 44 22 3B 61 70 3A 49 46 20 72 G ROUND";ap:IF r 000440: 64 3D 31 20 54 48 45 4E 20 47 4F 53 55 42 20 31 d=1 THEN GOSUB 1 000450: 38 30 0D 0A 31 32 30 20 49 46 20 61 70 3E 31 20 80..120 IF ap>1 000460: 54 48 45 4E 20 31 32 38 0D 0A 31 32 32 20 61 78 THEN 128..122 ax 000470: 3D 30 3A 63 61 3D 31 3A 46 4F 52 20 78 3D 31 20 =0:ca=1:FOR x=1 000480: 54 4F 20 31 38 3A 47 4F 53 55 42 20 39 30 30 30 TO 18:GOSUB 9000 000490: 3A 61 78 3D 61 78 2B 64 28 31 2C 78 29 3A 4E 45 :ax=ax+d(1,x):NE 0004A0: 58 54 3A 63 61 3D 30 3A 49 46 20 61 78 3C 37 34 XT:ca=0:IF ax<74 0004B0: 20 54 48 45 4E 20 31 32 35 0D 0A 31 32 33 20 46 THEN 125..123 F 0004C0: 4F 52 20 78 3D 31 20 54 4F 20 31 38 3A 49 46 20 OR x=1 TO 18:IF 0004D0: 64 28 31 2C 78 29 3D 35 20 54 48 45 4E 20 64 28 d(1,x)=5 THEN d( 0004E0: 31 2C 78 29 3D 34 3A 61 78 3D 61 78 2D 31 3A 49 1,x)=4:ax=ax-1:I 0004F0: 46 20 61 78 3C 37 34 20 54 48 45 4E 20 78 3D 31 F ax<74 THEN x=1 000500: 39 0D 0A 31 32 34 20 4E 45 C8 52 58 54 0D 0A 31 9..124 NE.RXT..1 000510: 32 35 20 49 46 20 61 78 3E 36 38 20 54 48 45 4E 25 IF ax>68 THEN 000520: 20 31 32 38 0D 0A 31 32 36 20 46 4F 52 20 78 3D 128..126 FOR x= 000530: 31 20 54 4F 20 31 38 3A 49 46 20 64 28 31 2C 78 1 TO 18:IF d(1,x 000540: 29 3D 33 20 54 48 45 4E 20 64 28 31 2C 78 29 3D )=3 THEN d(1,x)= 000550: 34 3A 61 78 3D 61 78 2B 31 3A 49 46 20 61 78 3E 4:ax=ax+1:IF ax> 000560: 36 38 20 54 48 45 4E 20 78 3D 31 39 0D 0A 31 32 68 THEN x=19..12 000570: 37 20 4E 45 58 54 0D 0A 31 32 38 20 46 4F 52 20 7 NEXT..128 FOR 000580: 78 3D 31 20 54 4F 20 31 38 3A 64 28 32 2C 78 29 x=1 TO 18:d(2,x) 000590: 3D 74 28 64 28 31 2C 78 29 2B 31 29 2B 49 4E 54 =t(d(1,x)+1)+INT 0005A0: 28 52 4E 44 2A 74 28 64 28 31 2C 78 29 2B 34 29 (RND*t(d(1,x)+4) 0005B0: 29 3A 4E 45 58 54 0D 0A 31 33 30 20 49 46 20 61 ):NEXT..130 IF a 0005C0: 69 3C 3E 30 20 41 4E 44 20 61 6C 3C 3E 30 20 54 i<>0 AND al<>0 T 0005D0: 48 45 4E 20 31 36 30 0D 0A 31 33 32 20 49 46 20 HEN 160..132 IF 0005E0: 49 4E 54 28 52 4E 44 2A 31 30 30 30 29 3C 3E 35 INT(RND*1000)<>5 0005F0: 30 30 20 54 48 45 4E 20 31 36 30 0D 0A 31 33 35 00 THEN 160..135 000600: 20 62 62 3D 61 70 3A 62 64 3D 49 AC 13 4E 54 28 bb=ap:bd=I..NT( 000610: 52 4E 44 2A 31 37 29 2B 31 3A 49 46 20 64 28 31 RND*17)+1:IF d(1 000620: 2C 62 64 29 3D 35 20 54 48 45 4E 20 31 33 35 0D ,bd)=5 THEN 135. 000630: 0A 31 34 30 20 62 65 3D 49 4E 54 28 52 4E 44 2A .140 be=INT(RND* 000640: 33 39 29 2B 31 3A 46 4F 52 20 6E 3D 31 20 54 4F 39)+1:FOR n=1 TO 000650: 20 61 68 3A 49 46 20 66 28 6E 29 3D 62 65 20 54 ah:IF f(n)=be T 000660: 48 45 4E 20 6E 3D 39 39 0D 0A 31 35 30 20 4E 45 HEN n=99..150 NE 000670: 58 54 3A 49 46 20 6E 3C 3E 31 30 30 20 54 48 45 XT:IF n<>100 THE 000680: 4E 20 31 34 30 0D 0A 31 36 30 20 61 6D 3D 30 3A N 140..160 am=0: 000690: 61 6E 3D 30 3A 72 63 3D 35 30 30 3A 46 4F 52 20 an=0:rc=500:FOR 0006A0: 6E 3D 31 20 54 4F 20 61 68 3A 72 62 3D 61 78 2B n=1 TO ah:rb=ax+ 0006B0: 72 28 49 4E 54 28 6A 28 6E 29 2F 31 30 29 29 2B r(INT(j(n)/10))+ 0006C0: 49 4E 54 28 52 4E 44 2A 38 29 3A 65 28 6E 29 3D INT(RND*8):e(n)= 0006D0: 65 28 6E 29 2B 72 62 3A 61 6D 3D 61 6D 2D 72 62 e(n)+rb:am=am-rb 0006E0: 2A 28 6E 3D 72 64 29 3A 61 6E 3D 61 6E 2D 72 62 *(n=rd):an=an-rb 0006F0: 2A 28 6E 3D 72 65 29 3A 49 46 20 65 28 6E 29 3C *(n=re):IF e(n)< 000700: 72 63 20 41 4E 44 20 6E 3C 3E 72 64 20 75 5D 41 rc AND n<>rd u]A 000710: 4E 44 20 6E 3C 3E 72 65 20 54 48 45 4E 20 72 63 ND n<>re THEN rc 000720: 3D 65 28 6E 29 3A 72 66 3D 6E 0D 0A 31 36 35 20 =e(n):rf=n..165 000730: 4E 45 58 54 3A 49 46 20 72 64 3E 30 20 54 48 45 NEXT:IF rd>0 THE 000740: 4E 20 47 4F 53 55 42 20 32 30 30 0D 0A 31 37 30 N GOSUB 200..170 000750: 20 4E 45 58 54 3A 47 4F 54 4F 20 38 30 20 0D 0A NEXT:GOTO 80 .. 000760: 31 38 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 61 180 FOR n=1 TO a 000770: 68 3A 49 46 20 66 28 6E 29 3D 31 20 54 48 45 4E h:IF f(n)=1 THEN 000780: 20 72 64 3D 6E 3A 72 65 3D 6E 2B 28 49 4E 54 28 rd=n:re=n+(INT( 000790: 6E 2F 32 29 3D 6E 2F 32 29 2D 28 49 4E 54 28 6E n/2)=n/2)-(INT(n 0007A0: 2F 32 29 3C 3E 6E 2F 32 29 3A 6E 3D 61 68 2B 31 /2)<>n/2):n=ah+1 0007B0: 0D 0A 31 39 30 20 4E 45 58 54 3A 52 45 54 55 52 ..190 NEXT:RETUR 0007C0: 4E 0D 0A 32 30 30 20 45 52 41 53 45 20 6E 2C 6F N..200 ERASE n,o 0007D0: 3A 44 49 4D 20 6E 28 32 2C 31 38 29 2C 6F 28 32 :DIM n(2,18),o(2 0007E0: 2C 31 30 29 3A 72 61 3D 61 6D 3A 72 62 3D 31 3A ,10):ra=am:rb=1: 0007F0: 72 68 3D 30 2D 28 62 65 3D 31 29 3A 47 4F 53 55 rh=0-(be=1):GOSU 000800: 42 20 33 35 30 3A 72 61 3D 61 6E 3A 72 62 3D 31 B 350:ra=an:rb=1 000810: 79 FF FF FF FE y....
previousnext* BLOCK 0029 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2274
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1153
Length of ONE bit pulse : 2306
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 112		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 BE B8 FF FF FF FE .......
previousnext* BLOCK 0030 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2251
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1128
Length of ONE bit pulse : 2257
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2712ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 129 614		000000: 16 32 3A 72 68 3D 30 2D 28 62 65 3D 66 28 72 65 .2:rh=0-(be=f(re 000010: 29 29 3A 47 4F 53 55 42 20 33 35 30 3A 6F 28 31 )):GOSUB 350:o(1 000020: 2C 33 29 3D 65 28 72 64 29 2D 61 6D 3A 6F 28 32 ,3)=e(rd)-am:o(2 000030: 2C 33 29 3D 65 28 72 65 29 2D 61 6E 3A 6F 28 31 ,3)=e(re)-an:o(1 000040: 2C 31 30 29 3D 6F 28 31 2C 33 29 3A 6F 28 32 2C ,10)=o(1,3):o(2, 000050: 31 30 29 3D 6F 28 32 2C 33 29 0D 0A 32 31 30 20 10)=o(2,3)..210 000060: 49 4E 4B 20 30 2C 39 3A 47 4F 53 55 42 20 38 37 INK 0,9:GOSUB 87 000070: 30 30 0D 0A 32 32 30 20 46 4F 52 20 78 3D 31 20 00..220 FOR x=1 000080: 54 4F 20 31 38 3A 47 4F 53 55 42 20 36 35 35 33 TO 18:GOSUB 6553 000090: 35 3A 4C 4F 43 41 54 45 20 32 31 2C 38 3A 50 45 5:LOCATE 21,8:PE 0000A0: 4E 20 32 3A 50 52 49 4E 54 20 55 53 49 4E 47 20 N 2:PRINT USING 0000B0: 22 23 23 22 3B 78 3B 3A 47 4F 53 55 42 20 39 30 "##";x;:GOSUB 90 0000C0: 30 30 3A 4C 4F 43 41 54 45 20 31 30 2C 39 3A 50 00:LOCATE 10,9:P 0000D0: 52 49 4E 54 20 70 61 24 28 32 29 3B 64 28 31 2C RINT pa$(2);d(1, 0000E0: 78 29 3A 4C 4F 43 41 54 45 20 31 35 2C 39 3A 50 x):LOCATE 15,9:P 0000F0: 52 49 4E 54 20 64 28 32 2C 78 29 3A 49 46 20 78 RINT d(2,x):IF x 000100: 3D 66 F8 31 20 41 4E 44 20 61 70 3D 31 20 54 48 =f.1 AND ap=1 TH 000110: 45 4E 20 32 32 38 20 45 4C 53 45 20 46 4F 52 20 EN 228 ELSE FOR 000120: 62 3D 31 20 54 4F 20 32 0D 0A 32 32 32 20 72 61 b=1 TO 2..222 ra 000130: 3D 6F 28 62 2C 31 30 29 2D 28 61 70 2D 31 29 2A =o(b,10)-(ap-1)* 000140: 61 78 3A 46 4F 52 20 63 3D 31 20 54 4F 20 78 2D ax:FOR c=1 TO x- 000150: 31 3A 72 61 3D 72 61 2B 28 6E 28 62 2C 63 29 2D 1:ra=ra+(n(b,c)- 000160: 64 28 31 2C 63 29 29 3A 4E 45 58 54 3A 4C 4F 43 d(1,c)):NEXT:LOC 000170: 41 54 45 20 32 34 2C 62 2A 32 2B 31 32 0D 0A 32 ATE 24,b*2+12..2 000180: 32 34 20 49 46 20 72 61 3D 30 20 54 48 45 4E 20 24 IF ra=0 THEN 000190: 50 52 49 4E 54 20 22 45 20 20 22 20 45 4C 53 45 PRINT "E " ELSE 0001A0: 20 49 46 20 72 61 3C 30 20 54 48 45 4E 20 50 52 IF ra<0 THEN PR 0001B0: 49 4E 54 20 22 2D 22 3B 55 53 49 4E 47 22 23 23 INT "-";USING"## 0001C0: 22 3B 41 42 53 28 72 61 29 20 45 4C 53 45 20 50 ";ABS(ra) ELSE P 0001D0: 52 49 4E 54 20 22 2B 22 3B 55 53 49 4E 47 22 23 RINT "+";USING"# 0001E0: 23 22 3B 72 61 0D 0A 32 32 36 20 4E 45 58 54 0D #";ra..226 NEXT. 0001F0: 0A 32 32 38 20 47 4F 53 55 42 20 32 35 30 3A 47 .228 GOSUB 250:G 000200: 4F 53 55 20 20 42 20 36 35 31 30 30 3A 6E 28 31 OSU B 65100:n(1 000210: 2C 78 29 3D 6F 28 31 2C 31 29 3A 6E 28 32 2C 78 ,x)=o(1,1):n(2,x 000220: 29 3D 6F 28 32 2C 31 29 3A 49 46 20 62 63 20 54 )=o(2,1):IF bc T 000230: 48 45 4E 20 47 4F 53 55 42 20 38 36 30 30 0D 0A HEN GOSUB 8600.. 000240: 32 33 30 20 4E 45 58 54 3A 47 4F 53 55 42 20 38 230 NEXT:GOSUB 8 000250: 36 30 30 3A 47 4F 54 4F 20 39 38 36 30 0D 0A 32 600:GOTO 9860..2 000260: 34 30 20 69 6E 24 3D 55 50 50 45 52 24 28 49 4E 40 in$=UPPER$(IN 000270: 4B 45 59 24 29 3A 49 46 20 69 6E 24 3D 22 43 22 KEY$):IF in$="C" 000280: 20 54 48 45 4E 20 62 63 3D 31 20 45 4C 53 45 20 THEN bc=1 ELSE 000290: 49 46 20 69 6E 24 3D 22 53 22 20 54 48 45 4E 20 IF in$="S" THEN 0002A0: 62 61 3D 31 20 45 4C 53 45 20 49 46 20 69 6E 24 ba=1 ELSE IF in$ 0002B0: 3D 22 46 22 20 54 48 45 4E 20 62 61 3D 30 0D 0A ="F" THEN ba=0.. 0002C0: 32 34 35 20 49 46 20 69 6E 24 3D 22 46 22 20 4F 245 IF in$="F" O 0002D0: 52 20 69 6E 24 3D 22 43 22 20 4F 52 20 69 6E 24 R in$="C" OR in$ 0002E0: 3D 22 53 22 20 54 48 45 4E 20 50 52 49 4E 54 20 ="S" THEN PRINT 0002F0: 43 48 52 24 28 37 29 3B 3A 47 4F 54 4F 20 38 38 CHR$(7);:GOTO 88 000300: 30 30 0D 0A 32 39 A8 34 36 20 52 45 54 55 52 4E 00..29.46 RETURN 000310: 0D 0A 32 35 30 20 46 4F 52 20 6E 3D 31 20 54 4F ..250 FOR n=1 TO 000320: 20 32 3A 6F 28 6E 2C 38 29 3D 6E 28 6E 2C 78 29 2:o(n,8)=n(n,x) 000330: 3A 4E 45 58 54 3A 6F 28 31 2C 34 29 3D 77 28 32 :NEXT:o(1,4)=w(2 000340: 29 2A 38 2B 31 32 3A 6F 28 32 2C 34 29 3D 6F 28 )*8+12:o(2,4)=o( 000350: 31 2C 34 29 2B 38 3A 46 4F 52 20 63 3D 31 20 54 1,4)+8:FOR c=1 T 000360: 4F 20 32 3A 6F 28 63 2C 35 29 3D 28 32 31 2D 77 O 2:o(c,5)=(21-w 000370: 28 31 29 29 2A 38 3A 6F 28 63 2C 37 29 3D 6F 28 (1))*8:o(c,7)=o( 000380: 63 2C 35 29 2D 77 28 32 30 29 3A 6F 28 63 2C 36 c,5)-w(20):o(c,6 000390: 29 3D 6F 28 63 2C 34 29 2D 77 28 31 39 29 3A 4E )=o(c,4)-w(19):N 0003A0: 45 58 54 0D 0A 32 35 35 20 4C 4F 43 41 54 45 20 EXT..255 LOCATE 0003B0: 77 28 32 29 2B 38 2C 77 28 31 29 2B 31 3A 50 52 w(2)+8,w(1)+1:PR 0003C0: 49 4E 54 20 70 61 24 28 34 29 3B 4D 49 44 24 28 INT pa$(4);MID$( 0003D0: 74 24 28 72 64 29 2C 33 2C 31 29 3B 70 61 24 28 t$(rd),3,1);pa$( 0003E0: 36 29 3B 4D 49 44 24 28 74 24 28 72 65 29 2C 33 6);MID$(t$(re),3 0003F0: 2C 31 29 0D 0A 32 36 30 20 46 4F 52 20 6E 3D 31 ,1)..260 FOR n=1 000400: 20 54 4F 20 32 3A 6F 0E 9B 28 6E 2C 31 29 3D 30 TO 2:o..(n,1)=0 000410: 3A 4E 45 58 54 3A 47 4F 53 55 42 20 33 34 30 3A :NEXT:GOSUB 340: 000420: 46 4F 52 20 6E 3D 31 20 54 4F 20 38 3A 46 4F 52 FOR n=1 TO 8:FOR 000430: 20 61 3D 31 20 54 4F 20 32 3A 43 4C 53 23 33 3A a=1 TO 2:CLS#3: 000440: 49 46 20 6E 28 61 2C 78 29 3E 30 20 54 48 45 4E IF n(a,x)>0 THEN 000450: 20 6E 28 61 2C 78 29 3D 6E 28 61 2C 78 29 2D 31 n(a,x)=n(a,x)-1 000460: 3A 72 61 3D 30 3A 72 62 3D 30 3A 47 4F 53 55 42 :ra=0:rb=0:GOSUB 000470: 20 32 38 30 3A 47 4F 53 55 42 20 33 30 30 3A 47 280:GOSUB 300:G 000480: 4F 53 55 42 20 32 34 30 3A 46 4F 52 20 62 3D 31 OSUB 240:FOR b=1 000490: 20 54 4F 20 33 3A 6F 28 61 2C 62 29 3D 6F 28 61 TO 3:o(a,b)=o(a 0004A0: 2C 62 29 2B 31 3A 4E 45 58 54 0D 0A 32 37 30 20 ,b)+1:NEXT..270 0004B0: 4E 45 58 54 3A 47 4F 53 55 42 20 33 34 30 3A 4E NEXT:GOSUB 340:N 0004C0: 45 58 54 3A 52 45 54 55 52 4E 0D 0A 32 38 30 20 EXT:RETURN..280 0004D0: 49 46 20 6E 28 61 2C 78 29 3D 30 20 54 48 45 4E IF n(a,x)=0 THEN 0004E0: 20 38 30 34 30 20 45 4C 53 45 20 72 63 3D 28 77 8040 ELSE rc=(w 0004F0: 28 31 39 29 2D 6F 28 61 2C 34 29 29 2F 33 3A 72 (19)-o(a,4))/3:r 000500: 62 3D 72 63 2B 49 4E 54 28 4F 27 52 4E 44 2A 28 b=rc+INT(O'RND*( 000510: 72 63 2F 32 29 29 3A 72 63 3D 28 77 28 32 30 29 rc/2)):rc=(w(20) 000520: 2D 6F 28 61 2C 35 29 29 2F 33 3A 72 61 3D 72 63 -o(a,5))/3:ra=rc 000530: 2B 49 4E 54 28 52 4E 44 2A 28 72 63 2F 32 29 29 +INT(RND*(rc/2)) 000540: 3A 49 46 20 49 4E 54 28 52 4E 44 2A 35 29 3C 32 :IF INT(RND*5)<2 000550: 20 54 48 45 4E 20 72 62 3D 72 62 2A 32 0D 0A 32 THEN rb=rb*2..2 000560: 39 30 20 49 46 20 6E 28 61 2C 78 29 3E 34 20 41 90 IF n(a,x)>4 A 000570: 4E 44 20 49 4E 54 28 52 4E 44 2A 32 30 29 3E 31 ND INT(RND*20)>1 000580: 34 20 54 48 45 4E 20 38 32 34 30 20 45 4C 53 45 4 THEN 8240 ELSE 000590: 20 52 45 54 55 52 4E 0D 0A 33 30 30 20 49 46 20 RETURN..300 IF 0005A0: 72 61 3D 30 20 41 4E 44 20 72 62 3D 30 20 54 48 ra=0 AND rb=0 TH 0005B0: 45 4E 20 52 45 54 55 52 4E 0D 0A 33 30 35 20 49 EN RETURN..305 I 0005C0: 46 20 77 28 35 29 3C 3E 77 28 36 29 20 54 48 45 F w(5)<>w(6) THE 0005D0: 4E 20 49 46 20 6F 28 61 2C 35 29 2D 72 61 3C 20 N IF o(a,5)-ra< 0005E0: 77 28 32 31 29 2B 31 20 41 4E 44 20 6F 28 61 2C w(21)+1 AND o(a, 0005F0: 35 29 2D 72 61 3E 20 77 28 32 31 29 2D 38 20 54 5)-ra> w(21)-8 T 000600: 48 45 4E 20 72 61 3D 77 28 32 31 57 79 29 2B 32 HEN ra=w(21Wy)+2 000610: 0D 0A 33 31 30 20 49 46 20 6F 28 61 2C 35 29 2D ..310 IF o(a,5)- 000620: 72 61 3C 30 20 54 48 45 4E 20 72 61 3D 6F 28 61 ra<0 THEN ra=o(a 000630: 2C 35 29 0D 0A 33 31 35 20 72 63 3D 77 28 32 30 ,5)..315 rc=w(20 000640: 29 2D 6F 28 61 2C 35 29 3A 49 46 20 72 61 3C 20 )-o(a,5):IF ra< 000650: 72 63 2F 32 20 54 48 45 4E 20 72 61 3D 72 63 2D rc/2 THEN ra=rc- 000660: 32 0D 0A 33 32 30 20 49 46 20 6F 28 61 2C 35 29 2..320 IF o(a,5) 000670: 3C 20 77 28 32 30 29 20 54 48 45 4E 20 49 46 20 < w(20) THEN IF 000680: 72 61 3E 30 20 54 48 45 4E 20 72 61 3D 2D 72 61 ra>0 THEN ra=-ra 000690: 0D 0A 33 32 32 20 49 46 20 6F 28 61 2C 35 29 3E ..322 IF o(a,5)> 0006A0: 20 77 28 32 30 29 20 54 48 45 4E 20 72 61 3D 41 w(20) THEN ra=A 0006B0: 42 53 28 72 61 29 0D 0A 33 32 35 20 49 46 20 6F BS(ra)..325 IF o 0006C0: 28 61 2C 34 29 2B 72 62 3C 31 37 32 20 54 48 45 (a,4)+rb<172 THE 0006D0: 4E 20 72 62 3D 72 62 2B 31 3A 47 4F 54 4F 20 33 N rb=rb+1:GOTO 3 0006E0: 32 35 0D 0A 33 33 30 20 49 46 20 6F 28 61 2C 34 25..330 IF o(a,4 0006F0: 29 2B 72 62 3E 32 35 35 20 54 48 45 4E 20 72 62 )+rb>255 THEN rb 000700: 3D 72 62 2D 31 3A 47 4F 54 4F 20 33 33 BC 2B 30 =rb-1:GOTO 33.+0 000710: 0D 0A 33 33 35 20 46 4F 52 20 7A 3D 31 20 54 4F ..335 FOR z=1 TO 000720: 20 31 30 30 2B 62 61 2A 31 31 30 30 3A 4E 45 58 100+ba*1100:NEX 000730: 54 3A 50 4C 4F 54 20 6F 28 61 2C 34 29 2A 32 2B T:PLOT o(a,4)*2+ 000740: 39 36 2C 6F 28 61 2C 35 29 2A 32 2B 34 38 3A 44 96,o(a,5)*2+48:D 000750: 52 41 57 52 20 72 62 2A 32 2C 2D 72 61 2A 32 3A RAWR rb*2,-ra*2: 000760: 6F 28 61 2C 34 29 3D 6F 28 61 2C 34 29 2B 72 62 o(a,4)=o(a,4)+rb 000770: 3A 6F 28 61 2C 35 29 3D 6F 28 61 2C 35 29 2D 72 :o(a,5)=o(a,5)-r 000780: 61 3A 49 46 20 6E 28 61 2C 78 29 3D 30 20 54 48 a:IF n(a,x)=0 TH 000790: 45 4E 20 53 4F 55 4E 44 20 31 2C 32 30 30 30 2C EN SOUND 1,2000, 0007A0: 32 30 0D 0A 33 34 30 20 46 4F 52 20 62 3D 31 20 20..340 FOR b=1 0007B0: 54 4F 20 32 3A 4C 4F 43 41 54 45 20 31 34 2C 62 TO 2:LOCATE 14,b 0007C0: 2A 32 2B 31 32 3A 50 52 49 4E 54 20 70 61 24 28 *2+12:PRINT pa$( 0007D0: 32 29 3B 55 53 49 4E 47 22 23 22 3B 6F 28 62 2C 2);USING"#";o(b, 0007E0: 31 29 3B 3A 4C 4F 43 41 54 45 20 31 37 2C 62 2A 1);:LOCATE 17,b* 0007F0: 32 2B 31 32 3A 50 52 49 4E 54 20 55 53 49 4E 47 2+12:PRINT USING 000800: 22 23 23 22 3B 6F 28 62 2C 32 29 3B 3A 4C 4F C4 "##";o(b,2);:LO. 000810: 1B FF FF FF FE .....
previousnext* BLOCK 0031 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2264
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1149
Length of ONE bit pulse : 2299
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 007		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 59 B3 FF FF FF FE .Y.....
previousnext* BLOCK 0032 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2258
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1138
Length of ONE bit pulse : 2277
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 2731ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 130 292		000000: 16 43 41 54 45 20 32 30 2C 62 2A 32 2B 31 32 3A .CATE 20,b*2+12: 000010: 50 52 49 4E 54 20 55 53 49 4E 47 22 23 23 23 22 PRINT USING"###" 000020: 3B 6F 28 62 2C 33 29 3B 3A 4E 45 58 54 3A 52 45 ;o(b,3);:NEXT:RE 000030: 54 55 52 4E 0D 0A 33 35 30 20 46 4F 52 20 6E 3D TURN..350 FOR n= 000040: 31 20 54 4F 20 31 38 3A 6E 28 72 62 2C 6E 29 3D 1 TO 18:n(rb,n)= 000050: 33 3A 4E 45 58 54 3A 72 61 3D 72 61 2D 35 34 3A 3:NEXT:ra=ra-54: 000060: 49 46 20 72 68 3D 31 20 54 48 45 4E 20 72 61 3D IF rh=1 THEN ra= 000070: 72 61 2B 6E 28 72 62 2C 62 64 29 2D 31 3A 6E 28 ra+n(rb,bd)-1:n( 000080: 72 62 2C 62 64 29 3D 31 0D 0A 33 36 30 20 49 46 rb,bd)=1..360 IF 000090: 20 72 61 3C 31 20 54 48 45 4E 20 52 45 54 55 52 ra<1 THEN RETUR 0000A0: 4E 20 0D 0A 33 37 30 20 72 63 3D 31 2B 49 4E 54 N ..370 rc=1+INT 0000B0: 28 52 4E 44 2A 31 37 29 3A 49 46 20 6E 28 72 62 (RND*17):IF n(rb 0000C0: 2C 72 63 29 3E 36 20 4F 52 20 28 62 64 3D 72 63 ,rc)>6 OR (bd=rc 0000D0: 20 41 4E 44 20 72 68 29 20 54 48 45 4E 20 33 37 AND rh) THEN 37 0000E0: 30 0D 0A 33 38 30 20 6E 28 72 62 2C 72 63 29 3D 0..380 n(rb,rc)= 0000F0: 6E 28 72 62 2C 72 63 29 2B 31 3A 72 61 3D 72 61 n(rb,rc)+1:ra=ra 000100: 2D 5D 47 31 3A 47 4F 54 4F 20 33 36 30 0D 0A 34 -]G1:GOTO 360..4 000110: 30 30 20 47 4F 53 55 42 20 36 35 35 30 30 3A 47 00 GOSUB 65500:G 000120: 4F 53 55 42 20 39 39 32 30 3A 52 41 4E 44 4F 4D OSUB 9920:RANDOM 000130: 49 5A 45 20 54 49 4D 45 3A 46 4F 52 20 6E 3D 31 IZE TIME:FOR n=1 000140: 20 54 4F 20 32 30 3A 6C 28 6E 2C 31 29 3D 6E 3A TO 20:l(n,1)=n: 000150: 4E 45 58 54 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 NEXT:FOR n=1 TO 000160: 32 30 3A 7A 31 3D 6C 28 6E 2C 31 29 3A 72 61 3D 20:z1=l(n,1):ra= 000170: 31 2B 49 4E 54 28 52 4E 44 2A 28 31 39 29 29 3A 1+INT(RND*(19)): 000180: 6C 28 6E 2C 31 29 3D 6C 28 72 61 2C 31 29 3A 6C l(n,1)=l(ra,1):l 000190: 28 72 61 2C 31 29 3D 7A 31 3A 4E 45 58 54 3A 61 (ra,1)=z1:NEXT:a 0001A0: 62 3D 31 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 34 b=1:FOR n=1 TO 4 0001B0: 30 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 44 2A 37 0:rb=1+INT(RND*7 0001C0: 29 3A 72 61 3D 49 4E 54 28 52 4E 44 2A 31 30 29 ):ra=INT(RND*10) 0001D0: 3A 49 46 20 72 61 3C 35 20 54 48 45 4E 20 72 62 :IF ra<5 THEN rb 0001E0: 3D 2D 72 62 0D 0A 34 32 30 20 47 4F 53 55 42 20 =-rb..420 GOSUB 0001F0: 39 38 30 30 3A 63 28 6E 29 3D 35 3A 6B 28 6E 29 9800:c(n)=5:k(n) 000200: 3D 30 3A 39 E2 4E 45 58 54 3A 61 66 3D 49 4E 54 =0:9.NEXT:af=INT 000210: 28 52 4E 44 2A 31 31 29 2B 31 0D 0A 35 30 30 20 (RND*11)+1..500 000220: 49 46 20 7A 61 3E 30 20 54 48 45 4E 20 35 35 30 IF za>0 THEN 550 000230: 0D 0A 35 31 30 20 49 46 20 73 28 34 29 3D 30 20 ..510 IF s(4)=0 000240: 4F 52 20 73 28 35 29 3D 30 20 54 48 45 4E 20 47 OR s(5)=0 THEN G 000250: 4F 53 55 42 20 37 31 30 30 0D 0A 35 32 30 20 49 OSUB 7100..520 I 000260: 46 20 7A 61 3E 30 20 54 48 45 4E 20 35 35 30 0D F za>0 THEN 550. 000270: 0A 35 33 30 20 43 4C 53 3A 4C 4F 43 41 54 45 20 .530 CLS:LOCATE 000280: 35 2C 39 3A 50 52 49 4E 54 22 59 4F 55 20 48 41 5,9:PRINT"YOU HA 000290: 56 45 20 46 41 49 4C 45 44 20 49 4E 20 59 4F 55 VE FAILED IN YOU 0002A0: 52 20 51 55 45 53 54 22 2C 2C 2C 54 41 42 28 37 R QUEST",,,TAB(7 0002B0: 29 3B 22 54 4F 20 42 45 20 54 48 45 20 4E 55 4D );"TO BE THE NUM 0002C0: 42 45 52 20 31 20 47 4F 4C 46 45 52 22 3A 47 4F BER 1 GOLFER":GO 0002D0: 53 55 42 20 39 39 33 30 3A 43 4C 53 3A 4E 45 57 SUB 9930:CLS:NEW 0002E0: 0D 0A 35 35 30 20 47 4F 53 55 42 20 36 35 35 30 ..550 GOSUB 6550 0002F0: 30 3A 72 61 3D 46 52 45 28 22 22 29 3A 61 67 3D 0:ra=FRE(""):ag= 000300: 49 4E 54 28 52 6F 37 4E 44 2A 33 29 3A 61 63 3D INT(Ro7ND*3):ac= 000310: 6C 28 61 62 2C 31 29 3A 50 52 49 4E 54 20 70 61 l(ab,1):PRINT pa 000320: 24 28 31 29 3A 43 4C 53 3A 4C 4F 43 41 54 45 20 $(1):CLS:LOCATE 000330: 31 30 2C 33 3A 50 52 49 4E 54 20 70 61 24 28 32 10,3:PRINT pa$(2 000340: 29 3B 22 20 22 3B 61 24 28 61 63 29 3B 22 20 22 );" ";a$(ac);" " 000350: 3B 70 61 24 28 31 29 3A 52 45 53 54 4F 52 45 20 ;pa$(1):RESTORE 000360: 39 39 35 30 0D 0A 35 36 30 20 4C 4F 43 41 54 45 9950..560 LOCATE 000370: 20 35 2C 35 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 5,5:FOR n=1 TO 000380: 31 30 3A 52 45 41 44 20 7A 24 3A 50 52 49 4E 54 10:READ z$:PRINT 000390: 20 54 41 42 20 28 31 32 29 3B 43 48 52 24 28 6E TAB (12);CHR$(n 0003A0: 2B 36 34 29 3B 22 20 20 22 3B 7A 24 3A 4E 45 58 +64);" ";z$:NEX 0003B0: 54 3A 47 4F 53 55 42 20 39 39 36 30 0D 0A 35 37 T:GOSUB 9960..57 0003C0: 30 20 47 4F 53 55 42 20 36 34 32 30 30 3A 49 46 0 GOSUB 64200:IF 0003D0: 20 69 6E 24 3E 22 4B 22 20 4F 52 20 69 6E 24 3C in$>"K" OR in$< 0003E0: 22 41 22 20 54 48 45 4E 20 35 37 30 0D 0A 35 37 "A" THEN 570..57 0003F0: 35 20 49 46 20 69 6E 24 3D 22 41 22 20 41 4E 44 5 IF in$="A" AND 000400: 20 4D 49 44 24 28 66 FD 13 24 2C 32 2C 31 29 3D MID$(f..$,2,1)= 000410: 22 30 22 20 54 48 45 4E 20 61 65 3D 32 0D 0A 35 "0" THEN ae=2..5 000420: 38 30 20 72 61 3D 41 53 43 28 69 6E 24 29 2D 36 80 ra=ASC(in$)-6 000430: 34 3A 49 46 20 4D 49 44 24 28 66 24 2C 72 61 2C 4:IF MID$(f$,ra, 000440: 31 29 3C 3E 22 31 22 20 54 48 45 4E 20 4F 4E 20 1)<>"1" THEN ON 000450: 72 61 20 47 4F 53 55 42 20 36 30 30 2C 31 30 30 ra GOSUB 600,100 000460: 30 2C 31 34 30 30 2C 32 32 30 30 2C 33 30 30 30 0,1400,2200,3000 000470: 2C 33 34 30 30 2C 33 38 30 30 2C 34 32 30 30 2C ,3400,3800,4200, 000480: 35 34 30 30 2C 35 30 30 30 30 0D 0A 35 39 30 20 5400,50000..590 000490: 47 4F 54 4F 20 35 35 30 0D 0A 36 30 30 20 61 6C GOTO 550..600 al 0004A0: 3D 30 3A 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D =0:RANDOMIZE TIM 0004B0: 45 3A 49 46 20 61 65 3D 32 20 54 48 45 4E 20 63 E:IF ae=2 THEN c 0004C0: 28 31 29 3D 63 28 31 29 2D 31 3A 47 4F 54 4F 20 (1)=c(1)-1:GOTO 0004D0: 38 30 30 0D 0A 36 30 35 20 47 4F 53 55 42 20 31 800..605 GOSUB 1 0004E0: 38 30 30 3A 47 4F 53 55 42 20 32 36 30 30 3A 72 800:GOSUB 2600:r 0004F0: 61 3D 31 3A 72 62 3D 30 2D 28 61 28 31 2C 33 29 a=1:rb=0-(a(1,3) 000500: 3E 30 20 41 4E 44 20 61 28 D4 7A 31 2C 33 29 3C >0 AND a(.z1,3)< 000510: 32 35 35 29 2D 32 2A 28 61 28 31 2C 33 29 3D 32 255)-2*(a(1,3)=2 000520: 35 35 29 3A 47 4F 53 55 42 20 39 38 30 30 0D 0A 55):GOSUB 9800.. 000530: 36 30 38 20 49 46 20 61 65 3D 31 20 54 48 45 4E 608 IF ae=1 THEN 000540: 20 37 30 30 0D 0A 36 31 30 20 61 69 3D 30 3A 47 700..610 ai=0:G 000550: 4F 53 55 42 20 39 38 36 30 3A 45 52 41 53 45 20 OSUB 9860:ERASE 000560: 6A 2C 65 3A 44 49 4D 20 6A 28 34 30 29 2C 65 28 j,e:DIM j(40),e( 000570: 34 30 29 3A 61 70 3D 30 3A 47 4F 53 55 42 20 35 40):ap=0:GOSUB 5 000580: 30 3A 49 46 20 6A 28 31 29 3E 38 30 20 54 48 45 0:IF j(1)>80 THE 000590: 4E 20 36 39 30 0D 0A 36 32 30 20 72 61 3D 30 3A N 690..620 ra=0: 0005A0: 46 4F 52 20 6E 3D 32 20 54 4F 20 34 30 3A 72 61 FOR n=2 TO 40:ra 0005B0: 3D 72 61 2D 28 6A 28 6E 29 3C 6A 28 31 29 29 3A =ra-(j(n)<j(1)): 0005C0: 4E 45 58 54 3A 49 46 20 72 61 3E 34 20 54 48 45 NEXT:IF ra>4 THE 0005D0: 4E 20 36 39 30 0D 0A 36 34 30 20 49 4E 4B 20 30 N 690..640 INK 0 0005E0: 2C 36 3A 42 4F 52 44 45 52 20 36 3A 43 4C 53 3A ,6:BORDER 6:CLS: 0005F0: 4C 4F 43 41 54 45 20 36 2C 31 30 3A 50 52 49 4E LOCATE 6,10:PRIN 000600: 54 22 59 4F 55 20 57 49 4C 4C 20 C9 41 48 41 56 T"YOU WILL .AHAV 000610: 45 20 54 4F 20 51 55 41 4C 49 46 59 20 46 4F 52 E TO QUALIFY FOR 000620: 22 3B 54 41 42 28 31 32 29 3B 22 54 48 45 20 46 ";TAB(12);"THE F 000630: 49 4E 41 4C 20 52 4F 55 4E 44 53 22 2C 2C 2C 54 INAL ROUNDS",,,T 000640: 41 42 28 35 29 3B 22 59 4F 55 20 4D 55 53 54 20 AB(5);"YOU MUST 000650: 46 49 4E 49 53 48 20 54 48 45 20 51 55 41 4C 49 FINISH THE QUALI 000660: 46 59 49 4E 47 22 2C 54 41 42 28 35 29 3B 22 52 FYING",TAB(5);"R 000670: 4F 55 4E 44 53 20 49 4E 20 54 48 45 20 54 4F 50 OUNDS IN THE TOP 000680: 20 46 49 56 45 22 3A 61 6C 3D 31 3A 47 4F 53 55 FIVE":al=1:GOSU 000690: 42 20 39 39 33 30 3A 61 69 3D 30 3A 47 4F 53 55 B 9930:ai=0:GOSU 0006A0: 42 20 37 30 30 30 3A 47 4F 53 55 42 20 36 37 30 B 7000:GOSUB 670 0006B0: 30 3A 47 4F 53 55 42 20 39 38 36 30 0D 0A 36 34 0:GOSUB 9860..64 0006C0: 35 20 45 52 41 53 45 20 65 2C 70 24 3A 44 49 4D 5 ERASE e,p$:DIM 0006D0: 20 65 28 34 30 29 2C 70 24 28 35 29 3A 72 61 3D e(40),p$(5):ra= 0006E0: 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 35 3A 77 0:FOR n=1 TO 5:w 0006F0: 28 6E 29 3D 66 28 6E 29 3A 77 28 6E 2B 35 29 3D (n)=f(n):w(n+5)= 000700: 6A 28 6E 29 3A 70 24 28 6E 29 3D 74 24 94 2D 28 j(n):p$(n)=t$.-( 000710: 66 28 6E 29 29 3A 72 61 3D 72 61 2D 28 66 28 6E f(n)):ra=ra-(f(n 000720: 29 3D 31 29 2A 6E 3A 4E 45 58 54 3A 47 4F 53 55 )=1)*n:NEXT:GOSU 000730: 42 20 35 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 B 50:FOR n=1 TO 000740: 35 3A 49 46 20 77 28 6E 29 3D 31 20 54 48 45 4E 5:IF w(n)=1 THEN 000750: 20 77 28 6E 2B 31 30 29 3D 31 3A 47 4F 54 4F 20 w(n+10)=1:GOTO 000760: 36 36 30 0D 0A 36 35 30 20 72 62 3D 49 4E 54 28 660..650 rb=INT( 000770: 52 4E 44 2A 33 38 29 2B 32 3A 46 4F 52 20 7A 3D RND*38)+2:FOR z= 000780: 31 31 20 54 4F 20 31 35 3A 49 46 20 77 28 7A 29 11 TO 15:IF w(z) 000790: 3D 72 62 20 54 48 45 4E 20 72 62 3D 39 39 0D 0A =rb THEN rb=99.. 0007A0: 36 35 35 20 4E 45 58 54 3A 49 46 20 72 62 3D 39 655 NEXT:IF rb=9 0007B0: 39 20 54 48 45 4E 20 36 35 30 20 45 4C 53 45 20 9 THEN 650 ELSE 0007C0: 77 28 6E 2B 31 30 29 3D 72 62 0D 0A 36 36 30 20 w(n+10)=rb..660 0007D0: 4E 45 58 54 3A 49 46 20 72 61 3D 30 20 54 48 45 NEXT:IF ra=0 THE 0007E0: 4E 20 77 28 31 31 29 3D 31 0D 0A 36 37 30 20 46 N w(11)=1..670 F 0007F0: 4F 52 20 6E 3D 31 31 20 54 4F 20 31 35 3A 49 46 OR n=11 TO 15:IF 000800: 20 72 61 3C 3E 6E 2D 31 30 20 54 48 45 4E 20 08 ra<>n-10 THEN . 000810: 38 FF FF FF FE 8....
previousnext* BLOCK 0033 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2282
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1164
Length of ONE bit pulse : 2329
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 136		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 CC C0 FF FF FF FE .......
previousnext* BLOCK 0034 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2282
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1137
Length of ONE bit pulse : 2276
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2699ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 132 906		000000: 16 6A 28 77 28 6E 29 29 3D 77 28 6E 2D 35 29 3A .j(w(n))=w(n-5): 000010: 74 24 28 77 28 6E 29 29 3D 70 24 28 6E 2D 31 30 t$(w(n))=p$(n-10 000020: 29 3A 66 28 77 28 6E 29 29 3D 33 30 2B 6E 0D 0A ):f(w(n))=30+n.. 000030: 36 38 30 20 4E 45 58 54 0D 0A 36 39 30 20 61 6C 680 NEXT..690 al 000040: 3D 30 3A 61 68 3D 34 30 3A 61 69 3D 30 3A 61 6A =0:ah=40:ai=0:aj 000050: 3D 32 3A 47 4F 53 55 42 20 37 30 31 30 3A 47 4F =2:GOSUB 7010:GO 000060: 54 4F 20 38 34 30 0D 0A 37 30 30 20 45 52 41 53 TO 840..700 ERAS 000070: 45 20 6A 2C 65 3A 44 49 4D 20 65 28 34 30 29 2C E j,e:DIM e(40), 000080: 6A 28 34 30 29 3A 61 69 3D 31 3A 47 4F 53 55 42 j(40):ai=1:GOSUB 000090: 20 37 30 30 30 3A 72 61 3D 30 3A 46 4F 52 20 6E 7000:ra=0:FOR n 0000A0: 3D 31 20 54 4F 20 34 30 3A 72 61 3D 72 61 2D 28 =1 TO 40:ra=ra-( 0000B0: 66 28 6E 29 3D 31 29 2A 6E 3A 4E 45 58 54 3A 6E f(n)=1)*n:NEXT:n 0000C0: 3D 31 3A 72 62 3D 30 2D 32 2A 28 72 61 3D 31 29 =1:rb=0-2*(ra=1) 0000D0: 2D 28 72 61 3E 31 20 41 4E 44 20 72 61 3C 36 29 -(ra>1 AND ra<6) 0000E0: 3A 72 62 3D 49 4E 54 28 52 4E 44 2A 72 62 29 3A :rb=INT(RND*rb): 0000F0: 47 4F 53 55 42 20 39 38 30 30 3A 47 4F 53 55 42 GOSUB 9800:GOSUB 000100: 20 DF F3 37 35 30 30 3A 47 4F 53 55 42 20 39 39 ..7500:GOSUB 99 000110: 33 30 0D 0A 38 30 30 20 61 70 3D 30 3A 61 69 3D 30..800 ap=0:ai= 000120: 30 3A 47 4F 53 55 42 20 39 38 36 30 3A 45 52 41 0:GOSUB 9860:ERA 000130: 53 45 20 65 2C 6A 3A 44 49 4D 20 65 28 34 30 29 SE e,j:DIM e(40) 000140: 2C 6A 28 34 30 29 3A 46 4F 52 20 6E 3D 32 20 54 ,j(40):FOR n=2 T 000150: 4F 20 34 30 3A 74 24 28 6E 2D 31 29 3D 75 24 28 O 40:t$(n-1)=u$( 000160: 6E 29 3A 66 28 6E 2D 31 29 3D 6E 3A 72 62 3D 6E n):f(n-1)=n:rb=n 000170: 3A 47 4F 53 55 42 20 34 30 3A 6A 28 6E 2D 31 29 :GOSUB 40:j(n-1) 000180: 3D 72 63 2B 63 28 6E 29 3A 4E 45 58 54 0D 0A 38 =rc+c(n):NEXT..8 000190: 31 35 20 47 4F 53 55 42 20 39 39 30 30 3A 74 24 15 GOSUB 9900:t$ 0001A0: 28 34 30 29 3D 7A 24 3A 66 28 34 30 29 3D 34 31 (40)=z$:f(40)=41 0001B0: 3A 6A 28 34 30 29 3D 35 30 2B 49 4E 54 28 52 4E :j(40)=50+INT(RN 0001C0: 44 2A 33 30 29 3A 61 68 3D 34 30 3A 61 6A 3D 32 D*30):ah=40:aj=2 0001D0: 3A 47 4F 53 55 42 20 36 30 30 30 3A 47 4F 53 55 :GOSUB 6000:GOSU 0001E0: 42 20 31 30 30 3A 47 4F 53 55 42 20 38 32 30 30 B 100:GOSUB 8200 0001F0: 3A 47 4F 53 55 42 20 36 35 30 30 0D 0A 38 32 30 :GOSUB 6500..820 000200: 20 61 68 69 55 3D 32 30 3A 47 4F 53 55 42 20 36 ahiU=20:GOSUB 6 000210: 30 30 30 3A 61 6A 3D 32 3A 47 4F 53 55 42 20 31 000:aj=2:GOSUB 1 000220: 30 30 3A 47 4F 53 55 42 20 38 32 30 30 0D 0A 38 00:GOSUB 8200..8 000230: 34 30 20 47 4F 53 55 42 20 37 35 30 30 3A 6C 28 40 GOSUB 7500:l( 000240: 61 62 2C 32 29 3D 66 28 31 29 3A 46 4F 52 20 6E ab,2)=f(1):FOR n 000250: 3D 31 20 54 4F 20 61 68 3A 49 46 20 66 28 6E 29 =1 TO ah:IF f(n) 000260: 3E 30 20 41 4E 44 20 66 28 6E 29 3C 34 31 20 54 >0 AND f(n)<41 T 000270: 48 45 4E 20 47 4F 53 55 42 20 37 30 3A 72 61 3D HEN GOSUB 70:ra= 000280: 2D 32 2A 28 6E 3C 36 29 2D 28 6E 3C 31 31 29 2B -2*(n<6)-(n<11)+ 000290: 28 6E 3E 32 30 29 3A 46 4F 52 20 7A 3D 31 20 54 (n>20):FOR z=1 T 0002A0: 4F 20 34 3A 77 28 7A 29 3D 77 28 7A 29 2B 72 61 O 4:w(z)=w(z)+ra 0002B0: 3A 4E 45 58 54 3A 47 4F 53 55 42 20 37 35 0D 0A :NEXT:GOSUB 75.. 0002C0: 38 39 30 20 4E 45 58 54 3A 46 4F 52 20 6E 3D 31 890 NEXT:FOR n=1 0002D0: 20 54 4F 20 31 30 3A 49 46 20 66 28 6E 29 3E 30 TO 10:IF f(n)>0 0002E0: 20 41 4E 44 20 66 28 6E 29 3C 34 31 20 54 48 45 AND f(n)<41 THE 0002F0: 4E 20 63 28 66 28 6E 29 29 3D 63 28 66 28 6E 29 N c(f(n))=c(f(n) 000300: 29 2D 28 6E 3D C9 D8 31 29 2A 33 2D 28 6E 3D 32 )-(n=..1)*3-(n=2 000310: 20 4F 52 20 6E 3D 33 29 2A 32 2D 28 6E 3C 31 31 OR n=3)*2-(n<11 000320: 29 0D 0A 38 39 35 20 4E 45 58 54 3A 47 4F 53 55 )..895 NEXT:GOSU 000330: 42 20 39 39 33 30 0D 0A 39 30 30 20 49 46 20 61 B 9930..900 IF a 000340: 28 31 2C 33 29 3E 30 20 41 4E 44 20 61 28 31 2C (1,3)>0 AND a(1, 000350: 33 29 3C 32 35 35 20 54 48 45 4E 20 7A 6E 3D 28 3)<255 THEN zn=( 000360: 7A 6E 2F 31 30 29 2A 39 0D 0A 39 31 30 20 7A 6F zn/10)*9..910 zo 000370: 3D 28 7A 6F 2A 28 61 76 2B 31 29 29 2A 34 3A 7A =(zo*(av+1))*4:z 000380: 63 3D 7A 63 2A 28 61 76 2B 31 29 3A 7A 31 3D 30 c=zc*(av+1):z1=0 000390: 3A 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 31 :CLS:PRINT TAB(1 0003A0: 34 29 3B 22 57 45 45 4B 4C 59 20 4E 45 57 53 22 4);"WEEKLY NEWS" 0003B0: 3B 2C 2C 2C 54 41 42 28 35 29 3B 22 50 52 49 5A ;,,,TAB(5);"PRIZ 0003C0: 45 20 4D 4F 4E 45 59 22 3B 3A 74 7A 3D 7A 6E 3A E MONEY";:tz=zn: 0003D0: 47 4F 53 55 42 20 36 33 34 37 30 3A 50 52 49 4E GOSUB 63470:PRIN 0003E0: 54 20 54 41 42 28 35 29 3B 22 54 52 41 56 45 4C T TAB(5);"TRAVEL 0003F0: 20 22 3B 6E 24 28 32 29 3B 3A 74 7A 3D 7A 63 3A ";n$(2);:tz=zc: 000400: 47 4F 53 55 42 20 36 C2 26 33 34 38 30 0D 0A 39 GOSUB 6.&3480..9 000410: 31 31 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 11 PRINT TAB(5); 000420: 22 48 4F 54 45 4C 20 22 3B 6E 24 28 32 29 3B 3A "HOTEL ";n$(2);: 000430: 74 7A 3D 7A 6F 3A 47 4F 53 55 42 20 36 33 34 38 tz=zo:GOSUB 6348 000440: 30 3A 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 0:PRINT TAB(5);" 000450: 45 4E 54 52 59 20 46 45 45 22 3B 3A 74 7A 3D 7A ENTRY FEE";:tz=z 000460: 64 3A 47 4F 53 55 42 20 36 33 34 38 30 0D 0A 39 d:GOSUB 63480..9 000470: 31 32 20 49 46 20 73 28 34 29 3E 30 20 54 48 45 12 IF s(4)>0 THE 000480: 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 N PRINT TAB(5);" 000490: 4D 4F 52 54 47 41 47 45 20 52 45 50 41 59 4D 45 MORTGAGE REPAYME 0004A0: 4E 54 53 22 3B 3A 74 7A 3D 7A 6D 3A 47 4F 53 55 NTS";:tz=zm:GOSU 0004B0: 42 20 36 33 34 38 30 0D 0A 39 31 35 20 49 46 20 B 63480..915 IF 0004C0: 61 28 31 2C 33 29 3E 30 20 54 48 45 4E 20 50 52 a(1,3)>0 THEN PR 0004D0: 49 4E 54 20 54 41 42 28 35 29 3B 22 43 41 44 44 INT TAB(5);"CADD 0004E0: 59 27 53 20 57 41 47 45 22 3B 3A 74 7A 3D 61 28 Y'S WAGE";:tz=a( 0004F0: 31 2C 32 29 3A 47 4F 53 55 42 20 36 33 34 38 30 1,2):GOSUB 63480 000500: 0D 0A 39 32 30 20 49 46 20 2C 8E 61 28 32 2C 33 ..920 IF ,.a(2,3 000510: 29 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 20 54 )>0 THEN PRINT T 000520: 41 42 28 35 29 3B 22 43 4F 41 43 48 27 53 20 57 AB(5);"COACH'S W 000530: 41 47 45 22 3B 3A 74 7A 3D 61 28 32 2C 32 29 3A AGE";:tz=a(2,2): 000540: 47 4F 53 55 42 20 36 33 34 38 30 0D 0A 39 32 35 GOSUB 63480..925 000550: 20 49 46 20 73 28 35 29 3E 30 20 54 48 45 4E 20 IF s(5)>0 THEN 000560: 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 4C 4F PRINT TAB(5);"LO 000570: 41 4E 20 52 45 50 41 59 4D 45 4E 54 53 22 3B 3A AN REPAYMENTS";: 000580: 74 7A 3D 7A 6C 3A 47 4F 53 55 42 20 36 33 34 38 tz=zl:GOSUB 6348 000590: 30 0D 0A 39 33 30 20 72 61 3D 30 3A 46 4F 52 20 0..930 ra=0:FOR 0005A0: 6E 3D 31 20 54 4F 20 37 20 53 54 45 50 20 32 3A n=1 TO 7 STEP 2: 0005B0: 72 65 3D 72 65 2B 56 41 4C 28 4D 49 44 24 28 76 re=re+VAL(MID$(v 0005C0: 24 28 31 29 2C 6E 2C 32 29 29 3A 4E 45 58 54 3A $(1),n,2)):NEXT: 0005D0: 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 4C 49 PRINT TAB(5);"LI 0005E0: 56 49 4E 47 20 43 4F 53 54 53 22 3B 3A 7A 32 3D VING COSTS";:z2= 0005F0: 31 37 35 2B 49 4E 54 28 52 4E 44 2A 37 35 29 3A 175+INT(RND*75): 000600: 49 46 20 72 65 3E 33 32 30 20 54 58 A8 48 45 4E IF re>320 TX.HEN 000610: 20 7A 32 3D 7A 32 2A 32 0D 0A 39 33 32 20 74 7A z2=z2*2..932 tz 000620: 3D 7A 32 3A 47 4F 53 55 42 20 36 33 34 38 30 0D =z2:GOSUB 63480. 000630: 0A 39 33 35 20 49 46 20 7A 70 3E 30 20 54 48 45 .935 IF zp>0 THE 000640: 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 N PRINT TAB(5);" 000650: 42 45 54 20 53 54 41 4B 45 53 22 3B 3A 74 7A 3D BET STAKES";:tz= 000660: 7A 70 3A 47 4F 53 55 42 20 36 33 34 38 30 0D 0A zp:GOSUB 63480.. 000670: 39 33 38 20 49 46 20 66 28 31 29 3D 61 75 20 54 938 IF f(1)=au T 000680: 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 HEN PRINT TAB(5) 000690: 3B 22 42 4F 4F 4B 49 45 53 20 52 45 54 55 52 4E ;"BOOKIES RETURN 0006A0: 53 22 3B 3A 74 7A 3D 7A 66 3A 47 4F 53 55 42 20 S";:tz=zf:GOSUB 0006B0: 36 33 34 37 30 0D 0A 39 34 30 20 49 46 20 62 65 63470..940 IF be 0006C0: 3D 31 20 54 48 45 4E 20 50 52 49 4E 54 20 54 41 =1 THEN PRINT TA 0006D0: 42 28 35 29 3B 22 48 4F 4C 45 20 49 4E 20 4F 4E B(5);"HOLE IN ON 0006E0: 45 22 3B 3A 74 7A 3D 31 30 30 30 30 3A 47 4F 53 E";:tz=10000:GOS 0006F0: 55 42 20 36 33 34 37 30 0D 0A 39 34 32 20 7A 31 UB 63470..942 z1 000700: 3D 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 46 69 20 =0:FOR n=1 TOFi 000710: 33 3A 49 46 20 73 28 6E 29 3E 30 20 54 48 45 4E 3:IF s(n)>0 THEN 000720: 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 63 24 PRINT TAB(5);c$ 000730: 28 73 28 6E 2B 37 29 29 3B 22 20 50 41 59 22 3B (s(n+7));" PAY"; 000740: 3A 74 7A 3D 73 28 31 30 2B 6E 29 3A 47 4F 53 55 :tz=s(10+n):GOSU 000750: 42 20 36 33 34 37 30 3A 7A 31 3D 7A 31 2B 73 28 B 63470:z1=z1+s( 000760: 6E 2B 31 30 29 3A 73 28 6E 29 3D 73 28 6E 29 2D n+10):s(n)=s(n)- 000770: 31 3A 49 46 20 73 28 6E 29 3D 30 20 54 48 45 4E 1:IF s(n)=0 THEN 000780: 20 73 28 31 30 2B 6E 29 3D 30 0D 0A 39 34 33 20 s(10+n)=0..943 000790: 4E 45 58 54 0D 0A 39 34 35 20 7A 31 3D 7A 6E 2D NEXT..945 z1=zn- 0007A0: 7A 6F 2D 7A 64 2D 7A 63 2D 7A 32 2B 7A 6C 2A 28 zo-zd-zc-z2+zl*( 0007B0: 73 28 35 29 3E 30 29 2B 7A 6D 2A 28 73 28 34 29 s(5)>0)+zm*(s(4) 0007C0: 3E 30 29 2D 7A 66 2A 28 66 28 31 29 3D 61 75 29 >0)-zf*(f(1)=au) 0007D0: 2D 7A 70 2B 61 28 31 2C 32 29 2A 28 61 28 31 2C -zp+a(1,2)*(a(1, 0007E0: 33 29 3E 30 29 2B 61 28 32 2C 32 29 2A 28 61 28 3)>0)+a(2,2)*(a( 0007F0: 32 2C 33 29 3E 30 29 2D 31 30 30 30 30 2A 28 62 2,3)>0)-10000*(b 000800: 65 3D 31 29 3A 7A 61 3D 7A 61 2B 7A 31 3A 50 6D e=1):za=za+z1:Pm 000810: 93 FF FF FF FE .....
previousnext* BLOCK 0035 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2265
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1163
Length of ONE bit pulse : 2328
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 1 987		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 2B CB FF FF FF FE .+.....
previousnext* BLOCK 0036 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2278
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1145
Length of ONE bit pulse : 2291
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2730ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 127 554		000000: 16 52 49 4E 54 20 2C 2C 54 41 42 28 35 29 3B 22 .RINT ,,TAB(5);" 000010: 42 41 4C 41 4E 43 45 22 3B 3A 74 7A 3D 41 42 53 BALANCE";:tz=ABS 000020: 28 7A 31 29 3A 47 4F 53 55 42 20 36 33 34 39 30 (z1):GOSUB 63490 000030: 3A 50 52 49 4E 54 20 54 41 42 28 33 35 29 3B 43 :PRINT TAB(35);C 000040: 48 52 24 28 34 35 2B 32 2A 28 7A 31 3E 30 29 29 HR$(45+2*(z1>0)) 000050: 0D 0A 39 34 36 20 49 46 20 62 65 3E 31 20 54 48 ..946 IF be>1 TH 000060: 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B EN PRINT TAB(5); 000070: 75 24 28 62 65 29 3B 22 20 48 41 53 20 57 4F 4E u$(be);" HAS WON 000080: 20 22 3B 3A 74 7A 3D 31 30 30 30 30 3A 47 4F 53 ";:tz=10000:GOS 000090: 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 20 22 UB 63500:PRINT " 0000A0: 20 20 20 20 20 46 4F 52 20 41 20 48 4F 4C 45 20 FOR A HOLE 0000B0: 49 4E 20 4F 4E 45 22 3A 6B 28 62 65 29 3D 6B 28 IN ONE":k(be)=k( 0000C0: 62 65 29 2B 31 30 30 30 30 0D 0A 39 34 38 20 62 be)+10000..948 b 0000D0: 62 3D 30 3A 62 64 3D 30 3A 62 65 3D 30 3A 47 4F b=0:bd=0:be=0:GO 0000E0: 53 55 42 20 39 39 36 30 3A 46 4F 52 20 6E 3D 34 SUB 9960:FOR n=4 0000F0: 20 54 4F 20 35 3A 49 46 20 73 28 6E 29 3E 30 20 TO 5:IF s(n)>0 000100: 54 F5 5D 48 45 4E 20 73 28 6E 29 3D 73 28 6E 29 T.]HEN s(n)=s(n) 000110: 2D 31 20 0D 0A 39 35 30 20 4E 45 58 54 3A 61 6B -1 ..950 NEXT:ak 000120: 3D 31 30 3A 7A 63 3D 30 3A 7A 70 3D 30 3A 61 75 =10:zc=0:zp=0:au 000130: 3D 30 3A 7A 66 3D 30 3A 7A 64 3D 30 3A 7A 6E 3D =0:zf=0:zd=0:zn= 000140: 30 3A 7A 6F 3D 30 3A 46 24 3D 22 30 30 30 30 30 0:zo=0:F$="00000 000150: 30 30 30 30 30 30 30 22 3A 61 65 3D 30 3A 61 62 0000000":ae=0:ab 000160: 3D 61 62 2B 31 0D 0A 39 35 32 20 49 46 20 61 28 =ab+1..952 IF a( 000170: 31 2C 33 29 3D 30 20 54 48 45 4E 20 39 36 30 0D 1,3)=0 THEN 960. 000180: 0A 39 35 35 20 61 28 31 2C 33 29 3D 61 28 31 2C .955 a(1,3)=a(1, 000190: 33 29 2D 31 3A 49 46 20 61 28 31 2C 33 29 3D 30 3)-1:IF a(1,3)=0 0001A0: 20 54 48 45 4E 20 50 52 49 4E 54 20 2C 2C 54 41 THEN PRINT ,,TA 0001B0: 42 28 35 29 3B 22 59 4F 55 52 20 43 4F 41 43 48 B(5);"YOUR COACH 0001C0: 20 48 41 53 20 52 45 53 49 47 4E 45 44 22 0D 0A HAS RESIGNED".. 0001D0: 39 35 37 20 49 46 20 61 28 31 2C 33 29 3D 32 35 957 IF a(1,3)=25 0001E0: 34 20 54 48 45 4E 20 61 28 31 2C 33 29 3D 30 0D 4 THEN a(1,3)=0. 0001F0: 0A 39 35 38 20 49 46 20 61 28 31 2C 33 29 3D 30 .958 IF a(1,3)=0 000200: 20 54 48 96 08 45 4E 20 61 76 3D 61 76 2D 31 0D TH..EN av=av-1. 000210: 0A 39 36 30 20 49 46 20 61 28 32 2C 33 29 3D 30 .960 IF a(2,3)=0 000220: 20 54 48 45 4E 20 39 36 38 0D 0A 39 36 32 20 61 THEN 968..962 a 000230: 28 32 2C 33 29 3D 61 28 32 2C 33 29 2D 31 3A 49 (2,3)=a(2,3)-1:I 000240: 46 20 61 28 32 2C 33 29 3D 30 20 54 48 45 4E 20 F a(2,3)=0 THEN 000250: 50 52 49 4E 54 20 2C 2C 54 41 42 28 35 29 3B 22 PRINT ,,TAB(5);" 000260: 59 4F 55 52 20 43 41 44 44 59 20 48 41 53 20 52 YOUR CADDY HAS R 000270: 45 53 49 47 4E 45 44 22 0D 0A 39 36 33 20 49 46 ESIGNED"..963 IF 000280: 20 61 28 32 2C 33 29 3D 32 35 34 20 54 48 45 4E a(2,3)=254 THEN 000290: 20 61 28 32 2C 33 29 3D 30 0D 0A 39 36 34 20 49 a(2,3)=0..964 I 0002A0: 46 20 61 28 32 2C 33 29 3D 30 20 54 48 45 4E 20 F a(2,3)=0 THEN 0002B0: 61 76 3D 61 76 2D 31 0D 0A 39 36 38 20 46 4F 52 av=av-1..968 FOR 0002C0: 20 6E 3D 31 20 54 4F 20 34 30 3A 49 46 20 63 28 n=1 TO 40:IF c( 0002D0: 6E 29 3C 30 20 54 48 45 4E 20 63 28 6E 29 3D 30 n)<0 THEN c(n)=0 0002E0: 20 45 4C 53 45 20 49 46 20 63 28 6E 29 3E 31 30 ELSE IF c(n)>10 0002F0: 20 54 48 45 4E 20 63 28 6E 29 3D 31 30 0D 0A 39 THEN c(n)=10..9 000300: 37 30 20 4E 45 40 51 58 54 0D 0A 39 38 30 20 52 70 NE@QXT..980 R 000310: 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A 49 46 ANDOMIZE TIME:IF 000320: 20 49 4E 54 28 52 4E 44 2A 32 30 29 3D 31 30 20 INT(RND*20)=10 000330: 54 48 45 4E 20 47 4F 53 55 42 20 39 35 30 30 0D THEN GOSUB 9500. 000340: 0A 39 39 32 20 63 28 31 29 3D 63 28 31 29 2D 61 .992 c(1)=c(1)-a 000350: 72 3A 61 72 3D 30 3A 61 66 3D 49 4E 54 28 52 4E r:ar=0:af=INT(RN 000360: 44 2A 31 31 29 2B 31 3A 47 4F 53 55 42 20 39 39 D*11)+1:GOSUB 99 000370: 34 30 3A 49 46 20 61 62 3E 32 30 20 54 48 45 4E 40:IF ab>20 THEN 000380: 20 38 35 30 30 20 45 4C 53 45 20 35 30 30 0D 0A 8500 ELSE 500.. 000390: 31 30 30 30 20 7A 63 3D 30 3A 7A 64 3D 30 3A 43 1000 zc=0:zd=0:C 0003A0: 4C 53 3A 4C 4F 43 41 54 45 20 31 33 2C 31 3A 50 LS:LOCATE 13,1:P 0003B0: 45 4E 20 33 3A 50 52 49 4E 54 20 22 4E 45 58 54 EN 3:PRINT "NEXT 0003C0: 20 22 3B 6E 24 28 33 29 3B 3A 4C 4F 43 41 54 45 ";n$(3);:LOCATE 0003D0: 20 37 2C 34 3A 50 52 49 4E 54 20 22 31 2E 20 4D 7,4:PRINT "1. M 0003E0: 41 4A 4F 52 20 22 3B 3A 50 45 4E 20 31 3A 50 52 AJOR ";:PEN 1:PR 0003F0: 49 4E 54 20 41 24 28 41 43 29 3B 3A 4C 4F 43 41 INT A$(AC);:LOCA 000400: 54 45 20 31 31 2C 35 BF 0F 3A 50 52 49 4E 54 20 TE 11,5..:PRINT 000410: 6E 24 28 32 29 22 54 4F 20 47 4F 20 20 22 3B 3A n$(2)"TO GO ";: 000420: 74 7A 3D 76 28 61 63 2C 32 29 3A 47 4F 53 55 42 tz=v(ac,2):GOSUB 000430: 20 36 33 35 30 30 0D 0A 31 30 30 35 20 4C 4F 43 63500..1005 LOC 000440: 41 54 45 20 31 31 2C 36 3A 50 52 49 4E 54 20 22 ATE 11,6:PRINT " 000450: 45 4E 54 52 41 4E 43 45 20 46 45 45 20 20 20 20 ENTRANCE FEE 000460: 22 3B 3A 74 7A 3D 76 28 61 63 2C 31 29 2F 32 30 ";:tz=v(ac,1)/20 000470: 30 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 4C 4F 0:GOSUB 63500:LO 000480: 43 41 54 45 20 31 31 2C 37 3A 50 45 4E 20 33 3A CATE 11,7:PEN 3: 000490: 50 52 49 4E 54 20 6E 24 28 31 29 3B 22 20 20 20 PRINT n$(1);" 0004A0: 20 22 3B 3A 74 7A 3D 76 28 61 63 2C 31 29 3A 47 ";:tz=v(ac,1):G 0004B0: 4F 53 55 42 20 36 33 35 30 30 0D 0A 31 30 31 30 OSUB 63500..1010 0004C0: 20 7A 31 3D 49 4E 54 28 28 31 30 30 30 2B 28 52 z1=INT((1000+(R 0004D0: 4E 44 2A 38 30 30 29 29 2A 31 30 29 3A 7A 32 3D ND*800))*10):z2= 0004E0: 31 30 30 2B 49 4E 54 28 52 4E 44 2A 31 30 30 29 100+INT(RND*100) 0004F0: 3A 4C 4F 43 41 54 45 20 37 2C 31 33 3A 50 52 49 :LOCATE 7,13:PRI 000500: 4E 54 20 22 32 2E 20 4D 49 D3 CB 4E 4F 52 20 22 NT "2. MI..NOR " 000510: 3B 6E 24 28 33 29 3B 22 20 41 54 20 22 3A 4C 4F ;n$(3);" AT ":LO 000520: 43 41 54 45 20 31 31 2C 31 34 3A 50 45 4E 20 31 CATE 11,14:PEN 1 000530: 3A 50 52 49 4E 54 20 69 24 28 61 66 29 3A 4C 4F :PRINT i$(af):LO 000540: 43 41 54 45 20 31 31 2C 31 37 3A 50 45 4E 20 33 CATE 11,17:PEN 3 000550: 3A 50 52 49 4E 54 20 6E 24 28 31 29 3B 22 20 20 :PRINT n$(1);" 000560: 20 20 22 3B 3A 74 7A 3D 7A 31 3A 47 4F 53 55 42 ";:tz=z1:GOSUB 000570: 20 36 33 35 30 30 3A 50 45 4E 20 31 0D 0A 31 30 63500:PEN 1..10 000580: 31 35 20 4C 4F 43 41 54 45 20 31 31 2C 31 35 3A 15 LOCATE 11,15: 000590: 50 52 49 4E 54 20 6E 24 28 32 29 3B 22 54 4F 20 PRINT n$(2);"TO 0005A0: 47 4F 20 20 22 3B 3A 74 7A 3D 7A 32 3A 47 4F 53 GO ";:tz=z2:GOS 0005B0: 55 42 20 36 33 35 30 30 3A 4C 4F 43 41 54 45 20 UB 63500:LOCATE 0005C0: 31 31 2C 31 36 3A 50 52 49 4E 54 20 22 45 4E 54 11,16:PRINT "ENT 0005D0: 52 41 4E 43 45 20 46 45 45 20 20 20 20 22 3B 3A RANCE FEE ";: 0005E0: 74 7A 3D 49 4E 54 28 7A 31 2F 31 35 30 29 3A 47 tz=INT(z1/150):G 0005F0: 4F 53 55 42 20 36 33 35 30 30 3A 4C 4F 43 41 54 OSUB 63500:LOCAT 000600: 45 20 37 2C 32 32 3A 50 52 49 4E 14 7F 54 22 4D E 7,22:PRIN..T"M 000610: 2E 20 4D 45 4E 55 22 0D 0A 31 30 32 30 20 47 4F . MENU"..1020 GO 000620: 53 55 42 20 36 34 32 30 30 3A 49 46 20 69 6E 24 SUB 64200:IF in$ 000630: 3C 3E 22 31 22 20 41 4E 44 20 69 6E 24 3C 3E 22 <>"1" AND in$<>" 000640: 32 22 20 41 4E 44 20 69 6E 24 3C 3E 22 4D 22 20 2" AND in$<>"M" 000650: 54 48 45 4E 20 31 30 32 30 20 45 4C 53 45 20 49 THEN 1020 ELSE I 000660: 46 20 69 6E 24 3D 22 4D 22 20 54 48 45 4E 20 61 F in$="M" THEN a 000670: 65 3D 32 3A 52 45 54 55 52 4E 20 0D 0A 31 30 32 e=2:RETURN ..102 000680: 35 20 4D 49 44 24 28 66 24 2C 32 2C 31 29 3D 22 5 MID$(f$,2,1)=" 000690: 31 22 3A 61 31 3D 56 41 4C 28 69 6E 24 29 3A 49 1":a1=VAL(in$):I 0006A0: 46 20 61 31 3D 32 20 54 48 45 4E 20 61 65 3D 31 F a1=2 THEN ae=1 0006B0: 3A 7A 63 3D 7A 32 3A 7A 64 3D 49 4E 54 28 7A 31 :zc=z2:zd=INT(z1 0006C0: 2F 31 35 30 29 3A 7A 65 3D 7A 31 3A 52 45 54 55 /150):ze=z1:RETU 0006D0: 52 4E 0D 0A 31 30 36 30 20 61 65 3D 30 3A 7A 63 RN..1060 ae=0:zc 0006E0: 3D 76 28 61 63 2C 32 29 3A 7A 64 3D 49 4E 54 28 =v(ac,2):zd=INT( 0006F0: 76 28 61 63 2C 31 29 2F 32 30 30 29 3A 7A 65 3D v(ac,1)/200):ze= 000700: 49 4E 54 28 76 28 61 63 2C 31 29 29 3A 20 FA 52 INT(v(ac,1)): .R 000710: 45 54 55 52 4E 20 0D 0A 31 34 30 30 20 43 4C 53 ETURN ..1400 CLS 000720: 3A 50 52 49 4E 54 20 54 41 42 28 31 37 29 3B 22 :PRINT TAB(17);" 000730: 50 52 41 43 54 49 43 45 22 3B 3A 4C 4F 43 41 54 PRACTICE";:LOCAT 000740: 45 20 31 31 2C 34 3A 50 52 49 4E 54 20 22 31 2E E 11,4:PRINT "1. 000750: 20 42 55 4E 4B 45 52 20 53 48 4F 54 53 22 2C 2C BUNKER SHOTS",, 000760: 2C 54 41 42 28 31 31 29 3B 22 32 2E 20 43 48 49 ,TAB(11);"2. CHI 000770: 50 50 49 4E 47 22 2C 2C 2C 54 41 42 28 31 31 29 PPING",,,TAB(11) 000780: 3B 22 33 2E 20 50 55 54 54 49 4E 47 22 2C 2C 2C ;"3. PUTTING",,, 000790: 54 41 42 28 31 31 29 3B 22 34 2E 20 44 52 49 56 TAB(11);"4. DRIV 0007A0: 49 4E 47 22 2C 2C 2C 54 41 42 28 31 31 29 3B 22 ING",,,TAB(11);" 0007B0: 35 2E 20 50 52 41 43 54 49 43 45 20 52 4F 55 4E 5. PRACTICE ROUN 0007C0: 44 22 3B 2C 2C 2C 2C 2C 54 41 42 28 31 31 29 3B D";,,,,,TAB(11); 0007D0: 22 4D 2E 20 4D 45 4E 55 22 0D 0A 31 34 31 35 20 "M. MENU"..1415 0007E0: 72 65 3D 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 re=0:FOR n=1 TO 0007F0: 37 20 53 54 45 50 20 32 3A 4C 4F 43 41 54 45 20 7 STEP 2:LOCATE 000800: 32 37 2C 6E 2B 33 3A 72 65 3D 72 65 2B 56 41 F9 27,n+3:re=re+VA. 000810: 54 FF FF FF FE T....
previousnext* BLOCK 0037 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2288
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1160
Length of ONE bit pulse : 2321
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 007		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 12 F7 FF FF FF FE .......
previousnext* BLOCK 0038 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2294
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1136
Length of ONE bit pulse : 2274
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2703ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 126 789		000000: 16 4C 28 4D 49 44 24 28 76 24 28 31 29 2C 6E 2C .L(MID$(v$(1),n, 000010: 32 29 29 3A 50 52 49 4E 54 20 4D 49 44 24 28 76 2)):PRINT MID$(v 000020: 24 28 31 29 2C 6E 2C 32 29 3A 4E 45 58 54 3A 72 $(1),n,2):NEXT:r 000030: 65 3D 72 65 2F 34 3A 4C 4F 43 41 54 45 20 35 2C e=re/4:LOCATE 5, 000040: 32 30 3A 50 52 49 4E 54 22 48 4F 55 52 53 20 41 20:PRINT"HOURS A 000050: 56 41 49 4C 41 42 4C 45 22 3B 61 6B 3B 3A 49 46 VAILABLE";ak;:IF 000060: 20 61 6B 3C 31 20 54 48 45 4E 20 4D 49 44 24 28 ak<1 THEN MID$( 000070: 66 24 2C 33 2C 31 29 3D 22 31 22 0D 0A 31 34 31 f$,3,1)="1"..141 000080: 38 20 72 61 3D 30 3A 47 4F 53 55 42 20 36 34 32 8 ra=0:GOSUB 642 000090: 30 30 3A 49 46 20 69 6E 24 3D 22 4D 22 20 54 48 00:IF in$="M" TH 0000A0: 45 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 20 49 EN RETURN ELSE I 0000B0: 46 20 69 6E 24 3C 22 31 22 20 4F 52 20 69 6E 24 F in$<"1" OR in$ 0000C0: 3E 22 35 22 20 54 48 45 4E 20 31 34 31 38 20 45 >"5" THEN 1418 E 0000D0: 4C 53 45 20 61 31 3D 56 41 4C 28 69 6E 24 29 3A LSE a1=VAL(in$): 0000E0: 49 46 20 61 31 3D 35 20 41 4E 44 20 61 6B 3C 33 IF a1=5 AND ak<3 0000F0: 20 54 48 45 4E 20 31 34 31 38 20 45 4C 53 45 20 THEN 1418 ELSE 000100: 49 27 D3 46 20 61 6B 3C 31 20 54 48 45 4E 20 31 I'.F ak<1 THEN 1 000110: 34 31 38 0D 0A 31 34 32 30 20 72 62 3D 28 61 31 418..1420 rb=(a1 000120: 2D 31 29 2A 32 2B 31 3A 72 61 3D 30 3A 49 46 20 -1)*2+1:ra=0:IF 000130: 61 31 3D 35 20 54 48 45 4E 20 61 6B 3D 61 6B 2D a1=5 THEN ak=ak- 000140: 32 3A 47 4F 53 55 42 20 31 36 30 30 3A 72 62 3D 2:GOSUB 1600:rb= 000150: 31 2B 49 4E 54 28 52 4E 44 2A 33 29 2A 32 3A 47 1+INT(RND*3)*2:G 000160: 4F 54 4F 20 31 34 39 30 20 20 0D 0A 31 34 33 30 OTO 1490 ..1430 000170: 20 49 4E 50 55 54 23 32 2C 22 48 4F 57 20 4D 41 INPUT#2,"HOW MA 000180: 4E 59 20 48 4F 55 52 53 20 22 3B 72 66 3A 43 4C NY HOURS ";rf:CL 000190: 53 23 32 3A 49 46 20 72 66 3E 61 6B 20 4F 52 20 S#2:IF rf>ak OR 0001A0: 72 66 3C 31 20 54 48 45 4E 20 31 34 33 30 0D 0A rf<1 THEN 1430.. 0001B0: 31 34 34 30 20 49 46 20 72 66 3D 31 20 54 48 45 1440 IF rf=1 THE 0001C0: 4E 20 47 4F 53 55 42 20 31 36 30 30 3A 47 4F 54 N GOSUB 1600:GOT 0001D0: 4F 20 31 34 39 30 0D 0A 31 34 35 30 20 46 4F 52 O 1490..1450 FOR 0001E0: 20 6E 3D 31 20 54 4F 20 72 66 3A 47 4F 53 55 42 n=1 TO rf:GOSUB 0001F0: 20 31 36 30 30 3A 4E 45 58 54 0D 0A 31 34 39 30 1600:NEXT..1490 000200: 20 72 64 01 C0 3D 56 41 4C 28 4D 49 44 24 28 76 rd..=VAL(MID$(v 000210: 24 28 31 29 2C 72 62 2C 32 29 29 2B 72 61 3A 72 $(1),rb,2))+ra:r 000220: 64 3D 46 4E 20 61 28 72 64 29 3A 4D 49 44 24 28 d=FN a(rd):MID$( 000230: 76 24 28 31 29 2C 72 62 2C 32 29 3D 52 49 47 48 v$(1),rb,2)=RIGH 000240: 54 24 28 53 54 52 24 28 72 64 29 2C 32 29 3A 47 T$(STR$(rd),2):G 000250: 4F 54 4F 20 31 34 30 30 0D 0A 31 36 30 30 20 61 OTO 1400..1600 a 000260: 6B 3D 61 6B 2D 31 3A 72 64 3D 49 4E 54 28 52 4E k=ak-1:rd=INT(RN 000270: 44 2A 31 30 29 3A 72 61 3D 72 61 2B 28 72 64 3C D*10):ra=ra+(rd< 000280: 33 29 2D 28 72 64 3E 35 29 2D 28 61 28 32 2C 33 3)-(rd>5)-(a(2,3 000290: 29 3E 30 29 2D 28 72 65 3C 36 35 29 2B 28 72 64 )>0)-(re<65)+(rd 0002A0: 3E 39 30 29 3A 52 45 54 55 52 4E 0D 0A 31 38 30 >90):RETURN..180 0002B0: 30 20 49 4E 4B 20 30 2C 31 3A 49 4E 4B 20 31 2C 0 INK 0,1:INK 1, 0002C0: 32 36 3A 42 4F 52 44 45 52 20 31 3A 43 4C 53 3A 26:BORDER 1:CLS: 0002D0: 77 28 31 29 3D 31 38 30 2B 49 4E 54 28 52 4E 44 w(1)=180+INT(RND 0002E0: 2A 34 30 29 3A 77 28 32 29 3D 38 30 30 2B 49 4E *40):w(2)=800+IN 0002F0: 54 28 52 4E 44 2A 34 30 30 29 3A 77 28 33 29 3D T(RND*400):w(3)= 000300: 34 35 30 2B 49 45 99 4E 54 28 52 4E 44 2A 31 30 450+IE.NT(RND*10 000310: 30 29 3A 77 28 34 29 3D 31 33 30 30 2B 49 4E 54 0):w(4)=1300+INT 000320: 28 52 4E 44 2A 34 30 30 29 0D 0A 31 38 30 34 20 (RND*400)..1804 000330: 49 46 20 61 28 31 2C 33 29 3D 30 20 54 48 45 4E IF a(1,3)=0 THEN 000340: 20 4C 4F 43 41 54 45 20 36 2C 34 3A 50 52 49 4E LOCATE 6,4:PRIN 000350: 54 20 22 31 2E 20 48 49 52 45 20 43 41 44 44 59 T "1. HIRE CADDY 000360: 20 20 22 3B 3A 74 7A 3D 77 28 31 29 3A 47 4F 53 ";:tz=w(1):GOS 000370: 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 20 2C UB 63500:PRINT , 000380: 2C 2C 54 41 42 28 36 29 3B 22 32 2E 20 48 49 52 ,,TAB(6);"2. HIR 000390: 45 20 50 45 52 4D 41 4E 45 4E 54 20 43 41 44 44 E PERMANENT CADD 0003A0: 59 22 2C 3A 74 7A 3D 77 28 32 29 3A 47 4F 53 55 Y",:tz=w(2):GOSU 0003B0: 42 20 36 33 34 35 30 3A 47 4F 54 4F 20 31 38 31 B 63450:GOTO 181 0003C0: 30 0D 0A 31 38 30 36 20 4C 4F 43 41 54 45 20 36 0..1806 LOCATE 6 0003D0: 2C 34 3A 50 52 49 4E 54 20 22 31 2E 20 53 41 43 ,4:PRINT "1. SAC 0003E0: 4B 20 43 41 44 44 59 22 0D 0A 31 38 31 30 20 49 K CADDY"..1810 I 0003F0: 46 20 61 28 32 2C 33 29 3D 30 20 54 48 45 4E 20 F a(2,3)=0 THEN 000400: 4C 4F 43 41 54 45 20 BF F5 36 2C 31 30 3A 50 52 LOCATE ..6,10:PR 000410: 49 4E 54 20 22 33 2E 20 48 49 52 45 20 43 4F 41 INT "3. HIRE COA 000420: 43 48 20 20 22 3B 3A 74 7A 3D 77 28 33 29 3A 47 CH ";:tz=w(3):G 000430: 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 OSUB 63500:PRINT 000440: 20 2C 2C 2C 54 41 42 28 36 29 3B 22 34 2E 20 48 ,,,TAB(6);"4. H 000450: 49 52 45 20 50 45 52 4D 41 4E 45 4E 54 20 43 4F IRE PERMANENT CO 000460: 41 43 48 22 2C 3A 74 7A 3D 77 28 34 29 3A 47 4F ACH",:tz=w(4):GO 000470: 53 55 42 20 36 33 34 35 30 3A 47 4F 54 4F 20 31 SUB 63450:GOTO 1 000480: 38 32 30 0D 0A 31 38 31 35 20 4C 4F 43 41 54 45 820..1815 LOCATE 000490: 20 36 2C 31 30 3A 50 52 49 4E 54 20 22 33 2E 20 6,10:PRINT "3. 0004A0: 53 41 43 4B 20 43 4F 41 43 48 22 0D 0A 31 38 32 SACK COACH"..182 0004B0: 30 20 4C 4F 43 41 54 45 20 36 2C 31 35 3A 50 52 0 LOCATE 6,15:PR 0004C0: 49 4E 54 20 22 35 2E 20 52 45 50 4C 41 43 45 20 INT "5. REPLACE 0004D0: 43 4C 55 42 53 22 2C 2C 2C 54 41 42 28 36 29 3B CLUBS",,,TAB(6); 0004E0: 22 36 2E 20 43 4F 4E 54 49 4E 55 45 22 3A 47 4F "6. CONTINUE":GO 0004F0: 53 55 42 20 39 39 36 30 0D 0A 31 38 33 30 20 47 SUB 9960..1830 G 000500: 4F 53 55 42 20 39 39 38 30 F9 3B 3A 49 46 20 61 OSUB 9980.;:IF a 000510: 31 3E 36 20 4F 52 20 61 31 3D 32 20 41 4E 44 20 1>6 OR a1=2 AND 000520: 61 28 31 2C 33 29 3D 31 20 4F 52 20 61 28 32 2C a(1,3)=1 OR a(2, 000530: 33 29 3D 31 20 41 4E 44 20 61 31 3D 34 20 54 48 3)=1 AND a1=4 TH 000540: 45 4E 20 31 38 33 30 20 45 4C 53 45 20 49 46 20 EN 1830 ELSE IF 000550: 61 31 3D 36 20 54 48 45 4E 20 52 45 54 55 52 4E a1=6 THEN RETURN 000560: 0D 0A 31 38 33 38 20 43 4C 53 3A 4F 4E 20 61 31 ..1838 CLS:ON a1 000570: 20 47 4F 54 4F 20 31 38 34 30 2C 31 38 35 30 2C GOTO 1840,1850, 000580: 31 38 36 30 2C 31 38 37 30 2C 31 38 38 30 0D 0A 1860,1870,1880.. 000590: 31 38 34 30 20 49 46 20 61 28 31 2C 33 29 3E 30 1840 IF a(1,3)>0 0005A0: 20 54 48 45 4E 20 61 28 31 2C 33 29 3D 30 3A 61 THEN a(1,3)=0:a 0005B0: 76 3D 61 76 2D 31 3A 47 4F 54 4F 20 31 38 30 30 v=av-1:GOTO 1800 0005C0: 0D 0A 31 38 34 35 20 61 28 31 2C 33 29 3D 32 35 ..1845 a(1,3)=25 0005D0: 35 3A 61 76 3D 61 76 2B 31 3A 61 28 31 2C 32 29 5:av=av+1:a(1,2) 0005E0: 3D 77 28 31 29 3A 72 62 3D 31 3A 72 61 3D 31 3A =w(1):rb=1:ra=1: 0005F0: 47 4F 53 55 42 20 39 38 30 30 3A 47 4F 54 4F 20 GOSUB 9800:GOTO 000600: 31 38 30 30 0D 0A 31 38 35 30 20 BE 33 61 28 31 1800..1850 .3a(1 000610: 2C 33 29 3D 49 4E 54 28 52 4E 44 2A 33 30 29 2B ,3)=INT(RND*30)+ 000620: 33 30 3A 61 28 31 2C 32 29 3D 77 28 32 29 3A 61 30:a(1,2)=w(2):a 000630: 76 3D 61 76 2B 31 3A 47 4F 54 4F 20 31 38 30 30 v=av+1:GOTO 1800 000640: 0D 0A 31 38 36 30 20 49 46 20 61 28 32 2C 33 29 ..1860 IF a(2,3) 000650: 3E 30 20 54 48 45 4E 20 61 28 32 2C 33 29 3D 30 >0 THEN a(2,3)=0 000660: 3A 61 76 3D 61 76 2D 31 3A 47 4F 54 4F 20 31 38 :av=av-1:GOTO 18 000670: 30 30 0D 0A 31 38 36 35 20 61 28 32 2C 33 29 3D 00..1865 a(2,3)= 000680: 32 35 35 3A 61 76 3D 61 76 2B 31 3A 61 28 32 2C 255:av=av+1:a(2, 000690: 32 29 3D 77 28 33 29 3A 47 4F 54 4F 20 31 38 30 2)=w(3):GOTO 180 0006A0: 30 0D 0A 31 38 37 30 20 61 28 32 2C 33 29 3D 49 0..1870 a(2,3)=I 0006B0: 4E 54 28 52 4E 44 2A 33 30 29 2B 33 30 3A 61 28 NT(RND*30)+30:a( 0006C0: 32 2C 32 29 3D 77 28 34 29 3A 61 76 3D 61 76 2B 2,2)=w(4):av=av+ 0006D0: 31 3A 47 4F 54 4F 20 31 38 30 30 0D 0A 31 38 38 1:GOTO 1800..188 0006E0: 30 20 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 20 0 CLS:PRINT TAB 0006F0: 28 31 38 29 3B 22 43 4C 55 42 53 22 2C 2C 2C 3A (18);"CLUBS",,,: 000700: 46 4F 52 20 6E 3D 31 20 54 4F 20 35 3A 51 A4 50 FOR n=1 TO 5:Q.P 000710: 52 49 4E 54 20 54 41 42 28 31 30 29 3B 70 61 24 RINT TAB(10);pa$ 000720: 28 34 29 3B 43 48 52 24 28 41 53 43 28 22 41 22 (4);CHR$(ASC("A" 000730: 29 2D 31 2B 6E 29 3B 70 61 24 28 31 29 3B 22 20 )-1+n);pa$(1);" 000740: 20 22 3B 6E 3B 22 57 4F 4F 44 22 3A 4E 45 58 54 ";n;"WOOD":NEXT 000750: 0D 0A 31 38 39 30 20 46 4F 52 20 6E 3D 31 20 54 ..1890 FOR n=1 T 000760: 4F 20 39 3A 50 52 49 4E 54 20 54 41 42 28 31 30 O 9:PRINT TAB(10 000770: 29 3B 70 61 24 28 34 29 3B 43 48 52 24 28 41 53 );pa$(4);CHR$(AS 000780: 43 28 22 41 22 29 2B 34 2B 6E 29 3B 70 61 24 28 C("A")+4+n);pa$( 000790: 31 29 3B 22 20 20 22 3B 6E 3B 22 49 52 4F 4E 22 1);" ";n;"IRON" 0007A0: 3A 4E 45 58 54 0D 0A 31 39 30 30 20 50 52 49 4E :NEXT..1900 PRIN 0007B0: 54 20 54 41 42 28 31 30 29 3B 70 61 24 28 34 29 T TAB(10);pa$(4) 0007C0: 3B 22 4F 22 3B 70 61 24 28 31 29 3B 22 20 20 20 ;"O";pa$(1);" 0007D0: 53 41 4E 44 20 57 45 44 47 45 22 3B 54 41 42 28 SAND WEDGE";TAB( 0007E0: 31 30 29 3B 70 61 24 28 34 29 3B 22 50 22 3B 70 10);pa$(4);"P";p 0007F0: 61 24 28 31 29 3B 22 20 20 20 50 55 54 54 49 4E a$(1);" PUTTIN 000800: 47 20 57 45 44 47 45 22 3B 54 41 42 28 31 30 D4 G WEDGE";TAB(10. 000810: 1B FF FF FF FE .....
previousnext* BLOCK 0039 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2258
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1151
Length of ONE bit pulse : 2303
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 240		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 F5 FC FF FF FF FE .......
previousnext* BLOCK 0040 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2260
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1136
Length of ONE bit pulse : 2274
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2726ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 128 867		000000: 16 29 3B 70 61 24 28 34 29 3B 22 51 22 3B 70 61 .);pa$(4);"Q";pa 000010: 24 28 31 29 3B 22 20 20 20 50 55 54 54 45 52 22 $(1);" PUTTER" 000020: 3A 49 46 20 61 77 3D 30 20 54 48 45 4E 20 47 4F :IF aw=0 THEN GO 000030: 53 55 42 20 39 39 33 30 3A 47 4F 54 4F 20 31 38 SUB 9930:GOTO 18 000040: 30 30 0D 0A 31 39 31 30 20 4C 4F 43 41 54 45 20 00..1910 LOCATE 000050: 32 37 2C 61 77 2B 32 3A 50 52 49 4E 54 20 70 61 27,aw+2:PRINT pa 000060: 24 28 32 29 3B 22 42 52 4F 4B 45 4E 22 3A 47 4F $(2);"BROKEN":GO 000070: 53 55 42 20 39 39 36 30 0D 0A 31 39 32 30 20 47 SUB 9960..1920 G 000080: 4F 53 55 42 20 36 34 32 30 30 3A 49 46 20 69 6E OSUB 64200:IF in 000090: 24 3C 22 41 22 20 4F 52 20 69 6E 24 3E 22 51 22 $<"A" OR in$>"Q" 0000A0: 20 54 48 45 4E 20 31 39 32 30 0D 0A 31 39 33 30 THEN 1920..1930 0000B0: 20 72 62 3D 41 53 43 28 69 6E 24 29 2D 36 34 3A rb=ASC(in$)-64: 0000C0: 49 46 20 72 62 3D 31 38 20 54 48 45 4E 20 31 38 IF rb=18 THEN 18 0000D0: 30 30 20 45 4C 53 45 20 49 46 20 72 62 3C 3E 61 00 ELSE IF rb<>a 0000E0: 77 20 54 48 45 4E 20 31 39 32 30 0D 0A 31 39 34 w THEN 1920..194 0000F0: 30 20 72 61 3D 2D 32 30 2A 28 61 77 3C 36 29 2D 0 ra=-20*(aw<6)- 000100: 31 91 61 35 2A 28 61 77 3E 35 29 3A 72 61 3D 72 1.a5*(aw>5):ra=r 000110: 61 2D 28 61 77 3C 36 29 2A 49 4E 54 28 52 4E 44 a-(aw<6)*INT(RND 000120: 2A 33 30 29 2D 28 61 77 3E 35 29 2A 49 4E 54 28 *30)-(aw>5)*INT( 000130: 52 4E 44 2A 32 35 29 3A 43 4C 53 3A 4C 4F 43 41 RND*25):CLS:LOCA 000140: 54 45 20 35 2C 31 31 3A 50 52 49 4E 54 22 43 4F TE 5,11:PRINT"CO 000150: 53 54 20 54 4F 20 52 45 50 4C 41 43 45 20 49 54 ST TO REPLACE IT 000160: 20 22 3B 3A 74 7A 3D 72 61 3A 47 4F 53 55 42 20 ";:tz=ra:GOSUB 000170: 36 33 35 30 30 3A 47 4F 53 55 42 20 39 39 37 30 63500:GOSUB 9970 000180: 3A 49 46 20 7A 24 3D 22 4E 22 20 54 48 45 4E 20 :IF z$="N" THEN 000190: 31 38 30 30 0D 0A 31 39 35 30 20 7A 61 3D 7A 61 1800..1950 za=za 0001A0: 2D 72 61 3A 47 4F 53 55 42 20 39 37 35 30 3A 79 -ra:GOSUB 9750:y 0001B0: 24 3D 4D 49 44 24 28 7A 24 2C 72 61 2C 32 29 3A $=MID$(z$,ra,2): 0001C0: 72 62 3D 46 4E 61 28 56 41 4C 28 79 24 29 2B 32 rb=FNa(VAL(y$)+2 0001D0: 29 0D 0A 31 39 36 30 20 61 77 3D 30 3A 76 24 28 )..1960 aw=0:v$( 0001E0: 31 29 3D 7A 24 3A 47 4F 54 4F 20 31 38 30 30 0D 1)=z$:GOTO 1800. 0001F0: 0A 32 32 30 30 20 43 4C 53 3A 50 52 49 4E 54 20 .2200 CLS:PRINT 000200: 54 41 42 4C 57 28 31 35 29 3B 70 61 24 28 32 29 TABLW(15);pa$(2) 000210: 3B 22 46 49 58 54 55 52 45 53 22 3B 70 61 24 28 ;"FIXTURES";pa$( 000220: 31 29 2C 2C 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 1),,:FOR n=1 TO 000230: 32 30 3A 50 45 4E 20 31 2D 32 2A 28 6E 2F 32 3D 20:PEN 1-2*(n/2= 000240: 49 4E 54 28 6E 2F 32 29 29 3A 50 52 49 4E 54 20 INT(n/2)):PRINT 000250: 54 41 42 28 35 29 3B 61 24 28 6C 28 6E 2C 31 29 TAB(5);a$(l(n,1) 000260: 29 3B 22 20 22 3B 3A 49 46 20 6E 3C 61 62 20 54 );" ";:IF n<ab T 000270: 48 45 4E 20 50 52 49 4E 54 20 75 24 28 6C 28 6E HEN PRINT u$(l(n 000280: 2C 32 29 29 0D 0A 32 32 31 30 20 4E 45 58 54 3A ,2))..2210 NEXT: 000290: 49 46 20 61 62 3C 32 31 20 54 48 45 4E 20 39 39 IF ab<21 THEN 99 0002A0: 34 30 20 45 4C 53 45 20 39 39 33 30 0D 0A 32 36 40 ELSE 9930..26 0002B0: 30 30 20 42 4F 52 44 45 52 20 31 3A 49 4E 4B 20 00 BORDER 1:INK 0002C0: 30 2C 31 3A 50 52 49 4E 54 20 70 61 24 28 31 29 0,1:PRINT pa$(1) 0002D0: 3A 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 31 :CLS:PRINT TAB(1 0002E0: 31 29 3B 70 61 24 28 34 29 3B 22 20 48 4F 54 45 1);pa$(4);" HOTE 0002F0: 4C 53 20 41 56 41 49 4C 41 42 4C 45 20 22 3B 70 LS AVAILABLE ";p 000300: 61 24 28 31 29 79 4D 3A 46 4F 52 20 6E 3D 31 20 a$(1)yM:FOR n=1 000310: 54 4F 20 34 3A 77 28 6E 29 3D 6E 2D 32 3A 77 28 TO 4:w(n)=n-2:w( 000320: 6E 2B 38 29 3D 31 2B 49 4E 54 28 52 4E 44 2A 34 n+8)=1+INT(RND*4 000330: 29 3A 4E 45 58 54 3A 77 28 35 29 3D 31 30 2B 49 ):NEXT:w(5)=10+I 000340: 4E 54 28 52 4E 44 2A 31 30 29 3A 77 28 36 29 3D NT(RND*10):w(6)= 000350: 32 30 2B 49 4E 54 28 52 4E 44 2A 31 35 29 3A 77 20+INT(RND*15):w 000360: 28 37 29 3D 35 30 2B 49 4E 54 28 52 4E 44 2A 35 (7)=50+INT(RND*5 000370: 30 29 3A 77 28 38 29 3D 31 30 30 2B 49 4E 54 28 0):w(8)=100+INT( 000380: 52 4E 44 2A 35 30 29 0D 0A 32 36 32 30 20 79 24 RND*50)..2620 y$ 000390: 3D 22 4D 49 4C 45 53 20 46 52 4F 4D 20 43 4F 55 ="MILES FROM COU 0003A0: 52 53 45 22 3A 7A 24 3D 22 20 50 45 52 20 4E 49 RSE":z$=" PER NI 0003B0: 47 48 54 22 3A 50 52 49 4E 54 20 2C 2C 54 41 42 GHT":PRINT ,,TAB 0003C0: 28 36 29 3B 22 31 2E 20 42 45 44 20 26 20 42 52 (6);"1. BED & BR 0003D0: 45 41 4B 46 41 53 54 20 20 22 3B 3A 74 7A 3D 77 EAKFAST ";:tz=w 0003E0: 28 35 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A (5):GOSUB 63500: 0003F0: 50 52 49 4E 54 20 7A 24 2C 54 41 42 28 39 29 3B PRINT z$,TAB(9); 000400: 77 28 39 29 3B 79 24 B5 D1 3A 46 4F 52 20 6E 3D w(9);y$..:FOR n= 000410: 33 20 54 4F 20 35 3A 50 52 49 4E 54 20 2C 2C 54 3 TO 5:PRINT ,,T 000420: 41 42 28 36 29 3B 55 53 49 4E 47 22 23 22 3B 6E AB(6);USING"#";n 000430: 2D 31 3B 3A 50 52 49 4E 54 20 22 2E 22 3B 6E 3B -1;:PRINT ".";n; 000440: 22 53 54 41 52 20 20 22 3B 3A 74 7A 3D 77 28 6E "STAR ";:tz=w(n 000450: 2B 33 29 3A 47 4F 53 55 42 20 36 33 35 30 30 0D +3):GOSUB 63500. 000460: 0A 32 36 33 30 20 50 52 49 4E 54 20 7A 24 2C 54 .2630 PRINT z$,T 000470: 41 42 28 39 29 3B 77 28 6E 2B 37 29 3B 79 24 3A AB(9);w(n+7);y$: 000480: 4E 45 58 54 3A 50 52 49 4E 54 20 2C 2C 2C 2C 2C NEXT:PRINT ,,,,, 000490: 2C 2C 2C 54 41 42 28 31 33 29 3B 70 61 24 28 35 ,,,TAB(13);pa$(5 0004A0: 29 3B 22 20 53 45 4C 45 43 54 20 48 4F 54 45 4C );" SELECT HOTEL 0004B0: 20 22 3B 70 61 24 28 31 29 0D 0A 32 36 37 30 20 ";pa$(1)..2670 0004C0: 47 4F 53 55 42 20 39 39 36 30 3A 47 4F 53 55 42 GOSUB 9960:GOSUB 0004D0: 20 39 39 38 30 3A 49 46 20 61 31 3C 31 20 4F 52 9980:IF a1<1 OR 0004E0: 20 61 31 3E 34 20 54 48 45 4E 20 32 36 37 30 0D a1>4 THEN 2670. 0004F0: 0A 32 36 38 30 20 61 72 3D 32 2B 77 28 61 31 29 .2680 ar=2+w(a1) 000500: 2D 49 4E 54 28 77 28 61 31 F7 C6 2B 38 29 2F 32 -INT(w(a1..+8)/2 000510: 29 3A 7A 6F 3D 77 28 61 31 2B 34 29 3A 47 4F 54 ):zo=w(a1+4):GOT 000520: 4F 20 36 35 31 30 30 0D 0A 33 30 30 30 20 43 4C O 65100..3000 CL 000530: 53 3A 50 45 4E 20 33 3A 50 52 49 4E 54 20 54 41 S:PEN 3:PRINT TA 000540: 42 28 31 30 29 3B 22 50 52 4F 46 45 53 53 49 4F B(10);"PROFESSIO 000550: 4E 41 4C 20 47 4F 4C 46 45 52 53 22 3A 72 61 3D NAL GOLFERS":ra= 000560: 31 3A 50 45 4E 20 31 0D 0A 33 30 31 30 20 46 4F 1:PEN 1..3010 FO 000570: 52 20 6E 3D 32 20 54 4F 20 32 31 3A 50 52 49 4E R n=2 TO 21:PRIN 000580: 54 20 54 41 42 28 35 29 3B 55 53 49 4E 47 22 23 T TAB(5);USING"# 000590: 23 22 3B 6E 2D 31 3B 3A 50 52 49 4E 54 20 54 41 #";n-1;:PRINT TA 0005A0: 42 28 38 29 3B 75 24 28 6E 29 3B 3A 49 46 20 4E B(8);u$(n);:IF N 0005B0: 3C 32 31 20 54 48 45 4E 20 50 52 49 4E 54 20 54 <21 THEN PRINT T 0005C0: 41 42 28 32 31 29 3B 55 53 49 4E 47 22 23 23 22 AB(21);USING"##" 0005D0: 3B 6E 2B 31 39 3B 3A 50 52 49 4E 54 20 22 20 22 ;n+19;:PRINT " " 0005E0: 3B 75 24 28 6E 2B 32 30 29 0D 0A 33 30 32 30 20 ;u$(n+20)..3020 0005F0: 4E 45 58 54 3A 47 4F 53 55 42 20 39 39 35 30 0D NEXT:GOSUB 9950. 000600: 0A 33 30 33 30 20 47 4F 53 55 42 92 7D 20 36 34 .3030 GOSUB.} 64 000610: 32 30 30 3A 49 46 20 49 4E 24 3D 22 4D 22 20 54 200:IF IN$="M" T 000620: 48 45 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 20 HEN RETURN ELSE 000630: 49 46 20 49 4E 24 3C 3E 22 43 22 20 54 48 45 4E IF IN$<>"C" THEN 000640: 20 33 30 33 30 0D 0A 33 30 34 30 20 43 4C 53 23 3030..3040 CLS# 000650: 32 3A 49 4E 50 55 54 23 32 2C 22 4E 75 6D 62 65 2:INPUT#2,"Numbe 000660: 72 20 74 6F 20 63 68 61 6E 67 65 22 3B 72 61 3A r to change";ra: 000670: 43 4C 53 23 32 3A 49 46 20 72 61 3C 31 20 4F 52 CLS#2:IF ra<1 OR 000680: 20 72 61 3E 33 39 20 54 48 45 4E 20 33 30 34 30 ra>39 THEN 3040 000690: 0D 0A 33 30 35 30 20 49 4E 50 55 54 23 32 2C 22 ..3050 INPUT#2," 0006A0: 4E 65 77 20 6E 61 6D 65 20 28 6D 61 78 20 31 31 New name (max 11 0006B0: 29 22 3B 7A 24 3A 43 4C 53 23 32 3A 49 46 20 7A )";z$:CLS#2:IF z 0006C0: 24 3D 22 22 20 4F 52 20 4C 45 4E 20 28 7A 24 29 $="" OR LEN (z$) 0006D0: 3E 31 31 20 54 48 45 4E 20 33 30 35 30 0D 0A 33 >11 THEN 3050..3 0006E0: 30 36 30 20 75 24 28 72 61 2B 31 29 3D 55 50 50 060 u$(ra+1)=UPP 0006F0: 45 52 24 28 7A 24 29 2B 53 50 41 43 45 24 28 31 ER$(z$)+SPACE$(1 000700: 31 2D 4C 45 4E 28 7A 24 29 29 3A 47 4F 33 90 54 1-LEN(z$)):GO3.T 000710: 4F 20 33 30 30 30 0D 0A 33 34 30 30 20 43 4C 53 O 3000..3400 CLS 000720: 3A 50 52 49 4E 54 20 54 41 42 28 31 38 29 3B 70 :PRINT TAB(18);p 000730: 61 24 28 32 29 3B 22 42 41 4E 4B 22 3B 70 61 24 a$(2);"BANK";pa$ 000740: 28 31 29 3A 49 46 20 73 28 34 29 3D 30 20 54 48 (1):IF s(4)=0 TH 000750: 45 4E 20 4C 4F 43 41 54 45 20 31 32 2C 36 3A 50 EN LOCATE 12,6:P 000760: 52 49 4E 54 20 22 31 2E 20 4D 4F 52 54 47 41 47 RINT "1. MORTGAG 000770: 45 20 48 4F 55 53 45 22 0D 0A 33 34 32 30 20 49 E HOUSE"..3420 I 000780: 46 20 73 28 35 29 3D 30 20 54 48 45 4E 20 4C 4F F s(5)=0 THEN LO 000790: 43 41 54 45 20 31 32 2C 38 3A 50 52 49 4E 54 20 CATE 12,8:PRINT 0007A0: 22 32 2E 20 4C 4F 41 4E 22 0D 0A 33 34 33 30 20 "2. LOAN"..3430 0007B0: 4C 4F 43 41 54 45 20 31 32 2C 31 31 3A 50 52 49 LOCATE 12,11:PRI 0007C0: 4E 54 20 22 4D 20 20 4D 45 4E 55 22 3A 47 4F 53 NT "M MENU":GOS 0007D0: 55 42 20 39 39 36 30 0D 0A 33 34 34 30 20 47 4F UB 9960..3440 GO 0007E0: 53 55 42 20 36 34 32 30 30 3A 49 46 20 49 4E 24 SUB 64200:IF IN$ 0007F0: 3D 22 4D 22 20 54 48 45 4E 20 52 45 54 55 52 4E ="M" THEN RETURN 000800: 20 20 45 4C 53 45 20 49 46 20 49 4E 24 3C 3E 1B ELSE IF IN$<>. 000810: B9 FF FF FF FE .....
previousnext* BLOCK 0041 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2284
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1165
Length of ONE bit pulse : 2331
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 1 832		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 28 30 FF FF FF FE .(0....
previousnext* BLOCK 0042 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2294
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1135
Length of ONE bit pulse : 2271
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 2718ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 128 417		000000: 16 22 31 22 20 4F 52 20 73 28 34 29 3E 30 20 54 ."1" OR s(4)>0 T 000010: 48 45 4E 20 33 35 30 30 0D 0A 33 34 36 30 20 72 HEN 3500..3460 r 000020: 62 3D 31 3A 47 4F 53 55 42 20 34 30 3A 7A 31 3D b=1:GOSUB 40:z1= 000030: 28 72 63 2A 32 30 30 30 2F 31 30 30 29 2A 38 30 (rc*2000/100)*80 000040: 3A 7A 32 3D 49 4E 54 28 7A 31 2B 28 7A 31 2F 31 :z2=INT(z1+(z1/1 000050: 30 30 29 2A 32 30 29 2F 38 30 3A 4C 4F 43 41 54 00)*20)/80:LOCAT 000060: 45 20 35 2C 31 35 3A 50 52 49 4E 54 22 54 48 45 E 5,15:PRINT"THE 000070: 20 42 41 4E 4B 20 57 49 4C 4C 20 4F 46 46 45 52 BANK WILL OFFER 000080: 20 59 4F 55 20 22 3B 3A 74 7A 3D 7A 31 3A 47 4F YOU ";:tz=z1:GO 000090: 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 22 SUB 63500:PRINT" 0000A0: 49 4E 54 45 52 45 53 54 20 52 41 54 45 20 2E 37 INTEREST RATE .7 0000B0: 25 20 50 45 52 20 57 45 45 4B 20 46 4F 52 20 38 % PER WEEK FOR 8 0000C0: 30 20 57 45 45 4B 53 22 2C 3A 47 4F 53 55 42 20 0 WEEKS",:GOSUB 0000D0: 33 36 30 30 0D 0A 33 34 37 30 20 49 46 20 7A 24 3600..3470 IF z$ 0000E0: 3C 3E 22 59 22 20 54 48 45 4E 20 33 34 30 30 20 <>"Y" THEN 3400 0000F0: 45 4C 53 45 20 73 28 34 29 3D 38 30 3A 7A 61 3D ELSE s(4)=80:za= 000100: 7A 6A 65 61 2B 7A 31 3A 7A 6D 3D 7A 32 3A 52 45 zjea+z1:zm=z2:RE 000110: 54 55 52 4E 0D 0A 33 35 30 30 20 49 46 20 49 4E TURN..3500 IF IN 000120: 24 3C 3E 22 32 22 20 4F 52 20 73 28 35 29 3E 30 $<>"2" OR s(5)>0 000130: 20 54 48 45 4E 20 33 34 34 30 0D 0A 33 35 31 30 THEN 3440..3510 000140: 20 49 4E 50 55 54 23 32 2C 22 48 4F 57 20 4D 55 INPUT#2,"HOW MU 000150: 43 48 20 22 3B 7A 31 3A 43 4C 53 23 32 3A 49 46 CH ";z1:CLS#2:IF 000160: 20 7A 31 3C 34 30 20 4F 52 20 7A 31 3E 31 30 30 z1<40 OR z1>100 000170: 30 30 20 54 48 45 4E 20 33 35 31 30 0D 0A 33 35 00 THEN 3510..35 000180: 31 35 20 7A 32 3D 49 4E 54 28 7A 31 2B 28 7A 31 15 z2=INT(z1+(z1 000190: 2F 31 30 30 29 2A 32 34 29 2F 34 30 3A 4C 4F 43 /100)*24)/40:LOC 0001A0: 41 54 45 20 35 2C 31 35 3A 50 52 49 4E 54 20 22 ATE 5,15:PRINT " 0001B0: 54 48 45 20 42 41 4E 4B 20 57 49 4C 4C 20 4C 4F THE BANK WILL LO 0001C0: 41 4E 20 59 4F 55 20 22 3B 3A 74 7A 3D 7A 31 3A AN YOU ";:tz=z1: 0001D0: 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E GOSUB 63500:PRIN 0001E0: 54 20 22 49 4E 54 45 52 45 53 54 20 52 41 54 45 T "INTEREST RATE 0001F0: 20 2E 38 25 20 50 45 52 20 57 45 45 4B 22 3B 22 .8% PER WEEK";" 000200: 54 4F 20 07 F2 42 45 20 52 45 50 41 49 44 20 4F TO ..BE REPAID O 000210: 56 45 52 20 34 30 20 57 45 45 4B 53 22 2C 3A 47 VER 40 WEEKS",:G 000220: 4F 53 55 42 20 33 36 30 30 0D 0A 33 35 32 30 20 OSUB 3600..3520 000230: 49 46 20 7A 24 3C 3E 22 59 22 20 54 48 45 4E 20 IF z$<>"Y" THEN 000240: 33 34 30 30 20 45 4C 53 45 20 73 28 35 29 3D 34 3400 ELSE s(5)=4 000250: 30 3A 7A 61 3D 7A 61 2B 7A 31 3A 7A 6C 3D 7A 32 0:za=za+z1:zl=z2 000260: 3A 52 45 54 55 52 4E 0D 0A 33 36 30 30 20 50 52 :RETURN..3600 PR 000270: 49 4E 54 22 41 54 20 22 3B 3A 74 7A 3D 7A 32 3A INT"AT ";:tz=z2: 000280: 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E GOSUB 63500:PRIN 000290: 54 20 22 20 50 45 52 20 57 45 45 4B 22 3A 47 4F T " PER WEEK":GO 0002A0: 54 4F 20 39 39 37 30 0D 0A 33 38 30 30 20 72 68 TO 9970..3800 rh 0002B0: 3D 30 3A 49 46 20 73 28 31 29 3E 30 20 41 4E 44 =0:IF s(1)>0 AND 0002C0: 20 73 28 32 29 3E 30 20 41 4E 44 20 73 28 33 29 s(2)>0 AND s(3) 0002D0: 3E 30 20 54 48 45 4E 20 52 45 54 55 52 4E 20 0D >0 THEN RETURN . 0002E0: 0A 33 38 32 30 20 43 4C 53 3A 50 52 49 4E 54 20 .3820 CLS:PRINT 0002F0: 54 41 42 28 31 35 29 3B 70 61 24 28 32 29 3B 22 TAB(15);pa$(2);" 000300: 20 53 50 4F 4E 50 6F 53 4F 52 53 48 49 50 20 22 SPONPoSORSHIP " 000310: 3B 70 61 24 28 31 29 3A 72 62 3D 31 3A 47 4F 53 ;pa$(1):rb=1:GOS 000320: 55 42 20 34 30 3A 72 65 3D 31 2B 49 4E 54 28 52 UB 40:re=1+INT(R 000330: 4E 44 2A 34 29 3A 49 46 20 72 65 3E 33 20 4F 52 ND*4):IF re>3 OR 000340: 20 73 28 72 65 29 3E 30 20 4F 52 20 61 62 3C 33 s(re)>0 OR ab<3 000350: 20 4F 52 20 72 68 3E 32 20 54 48 45 4E 20 4C 4F OR rh>2 THEN LO 000360: 43 41 54 45 20 31 30 2C 31 31 3A 50 52 49 4E 54 CATE 10,11:PRINT 000370: 20 22 4E 4F 20 4F 4E 45 20 49 53 20 49 4E 54 45 "NO ONE IS INTE 000380: 52 45 53 54 45 44 22 2C 2C 54 41 42 28 31 31 29 RESTED",,TAB(11) 000390: 3B 22 49 4E 20 53 50 4F 4E 53 4F 52 49 4E 47 20 ;"IN SPONSORING 0003A0: 59 4F 55 22 3A 4D 49 44 24 28 66 24 2C 37 2C 31 YOU":MID$(f$,7,1 0003B0: 29 3D 22 31 22 3A 47 4F 54 4F 20 39 39 34 30 0D )="1":GOTO 9940. 0003C0: 0A 33 38 37 30 20 72 68 3D 72 68 2B 31 3A 7A 24 .3870 rh=rh+1:z$ 0003D0: 3D 53 54 52 24 28 72 63 29 3A 4D 49 44 24 28 7A =STR$(rc):MID$(z 0003E0: 24 2C 33 2C 31 29 3D 22 39 22 3A 72 63 3D 56 41 $,3,1)="9":rc=VA 0003F0: 4C 28 7A 24 29 3A 72 62 3D 49 4E 54 28 28 52 4E L(z$):rb=INT((RN 000400: 44 2A 28 28 72 63 2D 30 3E 34 30 29 2A 35 29 2D D*((rc-0>40)*5)- 000410: 28 72 63 3E 39 30 29 2A 35 30 30 29 2B 28 72 63 (rc>90)*500)+(rc 000420: 2D 34 30 29 2A 35 29 0D 0A 33 38 38 30 20 72 61 -40)*5)..3880 ra 000430: 3D 31 2B 49 4E 54 28 28 52 4E 44 2A 28 28 72 63 =1+INT((RND*((rc 000440: 29 2F 32 35 29 2D 28 72 63 3E 39 30 29 2A 32 30 )/25)-(rc>90)*20 000450: 2D 28 72 63 3E 38 30 29 2A 31 30 2D 28 72 63 3E -(rc>80)*10-(rc> 000460: 37 30 29 2A 32 29 2D 28 72 63 3E 36 30 29 2A 32 70)*2)-(rc>60)*2 000470: 2D 28 72 63 3E 35 30 29 2A 32 29 0D 0A 33 38 39 -(rc>50)*2)..389 000480: 30 20 72 64 3D 31 2B 49 4E 54 28 52 4E 44 2A 39 0 rd=1+INT(RND*9 000490: 29 3A 4C 4F 43 41 54 45 20 31 32 2C 31 32 3A 50 ):LOCATE 12,12:P 0004A0: 52 49 4E 54 20 63 24 28 72 64 29 3B 22 20 4F 46 RINT c$(rd);" OF 0004B0: 46 45 52 22 2C 2C 2C 54 41 42 28 31 32 29 3B 3A FER",,,TAB(12);: 0004C0: 74 7A 3D 72 62 3A 47 4F 53 55 42 20 36 33 35 30 tz=rb:GOSUB 6350 0004D0: 30 3A 50 52 49 4E 54 20 22 20 50 45 52 20 22 3B 0:PRINT " PER "; 0004E0: 6E 24 28 33 29 2C 2C 54 41 42 28 31 32 29 3B 22 n$(3),,TAB(12);" 0004F0: 46 4F 52 22 3B 72 61 3B 6E 24 28 33 29 3B 22 53 FOR";ra;n$(3);"S 000500: 22 3A 47 4F 53 55 42 20 39 C2 7C 39 37 30 3A 49 ":GOSUB 9.|970:I 000510: 46 20 7A 24 3C 3E 22 59 22 20 54 48 45 4E 20 72 F z$<>"Y" THEN r 000520: 68 3D 72 68 2B 31 3A 47 4F 54 4F 20 33 38 32 30 h=rh+1:GOTO 3820 000530: 0D 0A 33 39 30 30 20 73 28 72 65 29 3D 72 61 3A ..3900 s(re)=ra: 000540: 73 28 37 2B 72 65 29 3D 72 64 3A 73 28 72 65 2B s(7+re)=rd:s(re+ 000550: 31 30 29 3D 72 62 3A 4D 49 44 24 28 66 24 2C 37 10)=rb:MID$(f$,7 000560: 2C 31 29 3D 22 31 22 3A 52 45 54 55 52 4E 20 0D ,1)="1":RETURN . 000570: 0A 34 32 30 30 20 43 4C 53 3A 4C 4F 43 41 54 45 .4200 CLS:LOCATE 000580: 20 31 37 2C 37 3A 50 52 49 4E 54 20 70 61 24 28 17,7:PRINT pa$( 000590: 31 2D 28 73 28 37 29 3D 30 29 29 3B 22 30 20 45 1-(s(7)=0));"0 E 0005A0: 41 53 59 22 3B 70 61 24 28 31 29 2C 2C 2C 2C 2C ASY";pa$(1),,,,, 0005B0: 54 41 42 28 31 37 29 3B 70 61 24 28 31 2D 28 73 TAB(17);pa$(1-(s 0005C0: 28 37 29 3D 31 29 29 3B 22 31 20 4D 45 44 49 55 (7)=1));"1 MEDIU 0005D0: 4D 22 3B 70 61 24 28 31 29 2C 2C 2C 2C 2C 54 41 M";pa$(1),,,,,TA 0005E0: 42 28 31 37 29 3B 70 61 24 28 31 2D 28 73 28 37 B(17);pa$(1-(s(7 0005F0: 29 3D 32 29 29 3B 22 32 20 48 41 52 44 22 3B 70 )=2));"2 HARD";p 000600: 61 24 28 31 29 2C 2C 2C 2C 2C 2C 10 E8 2C 54 41 a$(1),,,,,,..,TA 000610: 42 20 28 31 37 29 3B 22 4D 20 4D 45 4E 55 22 0D B (17);"M MENU". 000620: 0A 34 32 31 30 20 47 4F 53 55 42 20 36 34 32 30 .4210 GOSUB 6420 000630: 30 3A 49 46 20 69 6E 24 3D 22 4D 22 20 54 48 45 0:IF in$="M" THE 000640: 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 20 49 46 N RETURN ELSE IF 000650: 20 69 6E 24 20 3C 22 30 22 20 4F 52 20 69 6E 24 in$ <"0" OR in$ 000660: 20 3E 22 32 22 20 54 48 45 4E 20 34 32 31 30 0D >"2" THEN 4210. 000670: 0A 34 32 32 30 20 72 61 3D 56 41 4C 28 69 6E 24 .4220 ra=VAL(in$ 000680: 29 3A 49 46 20 72 61 3D 73 28 37 29 20 54 48 45 ):IF ra=s(7) THE 000690: 4E 20 34 32 31 30 0D 0A 34 32 33 30 20 47 4F 53 N 4210..4230 GOS 0006A0: 55 42 20 39 39 32 30 3A 72 62 3D 32 30 2A 28 72 UB 9920:rb=20*(r 0006B0: 61 2D 73 28 37 29 29 3A 73 28 37 29 3D 72 61 3A a-s(7)):s(7)=ra: 0006C0: 46 4F 52 20 6E 3D 31 20 54 4F 20 34 30 3A 49 46 FOR n=1 TO 40:IF 0006D0: 20 6E 3C 3E 31 20 54 48 45 4E 20 47 4F 53 55 42 n<>1 THEN GOSUB 0006E0: 20 39 38 30 30 0D 0A 34 32 34 30 20 4E 45 58 54 9800..4240 NEXT 0006F0: 3A 47 4F 54 4F 20 34 32 30 30 0D 0A 35 34 30 30 :GOTO 4200..5400 000700: 20 49 46 20 61 62 3C 31 20 54 48 45 4E 8B 49 20 IF ab<1 THEN.I 000710: 52 45 54 55 52 4E 20 45 4C 53 45 20 43 4C 53 3A RETURN ELSE CLS: 000720: 47 4F 53 55 42 20 39 39 32 30 3A 47 4F 53 55 42 GOSUB 9920:GOSUB 000730: 20 33 30 3A 47 4F 53 55 42 20 31 30 3A 43 4C 53 30:GOSUB 10:CLS 000740: 3A 50 52 49 4E 54 20 54 41 42 28 31 31 29 3B 70 :PRINT TAB(11);p 000750: 61 24 28 32 29 3B 6E 24 28 31 29 3B 22 4C 45 41 a$(2);n$(1);"LEA 000760: 47 55 45 22 3B 70 61 24 28 31 29 2C 2C 2C 3A 46 GUE";pa$(1),,,:F 000770: 4F 52 20 6E 3D 31 20 54 4F 20 32 30 0D 0A 35 34 OR n=1 TO 20..54 000780: 30 35 20 49 46 20 6B 28 66 28 6E 29 29 3E 30 20 05 IF k(f(n))>0 000790: 54 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 THEN PRINT TAB(5 0007A0: 29 3B 55 53 49 4E 47 22 23 23 22 3B 6E 3B 3A 50 );USING"##";n;:P 0007B0: 52 49 4E 54 20 54 41 42 28 39 29 3B 70 61 24 28 RINT TAB(9);pa$( 0007C0: 31 2D 28 66 28 6E 29 3D 31 29 29 3B 75 24 28 66 1-(f(n)=1));u$(f 0007D0: 28 6E 29 29 3B 22 20 20 22 3B 70 61 24 28 31 29 (n));" ";pa$(1) 0007E0: 3B 3A 74 7A 3D 6B 28 66 28 6E 29 29 3A 47 4F 53 ;:tz=k(f(n)):GOS 0007F0: 55 42 20 36 33 35 30 30 0D 0A 35 34 31 30 20 4E UB 63500..5410 N 000800: 45 58 54 3A 49 46 20 61 62 3C 32 31 20 54 48 3F EXT:IF ab<21 TH? 000810: 5E FF FF FF FE ^....
previousnext* BLOCK 0043 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2289
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1164
Length of ONE bit pulse : 2328
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 011		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 CF 3B FF FF FF FE ..;....
previousnext* BLOCK 0044 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2272
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 952
Length of ZERO bit pulse : 1140
Length of ONE bit pulse : 2281
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2737ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 130 472		000000: 16 45 4E 20 39 39 34 30 20 45 4C 53 45 20 39 39 .EN 9940 ELSE 99 000010: 33 30 0D 0A 36 30 30 30 20 49 46 20 61 69 3C 3E 30..6000 IF ai<> 000020: 30 20 4F 52 20 61 6C 3C 3E 30 20 4F 52 20 7A 61 0 OR al<>0 OR za 000030: 3C 30 20 54 48 45 4E 20 52 45 54 55 52 4E 20 45 <0 THEN RETURN E 000040: 4C 53 45 20 49 4E 4B 20 30 2C 32 3A 42 4F 52 44 LSE INK 0,2:BORD 000050: 45 52 20 32 3A 50 52 49 4E 54 20 70 61 24 28 31 ER 2:PRINT pa$(1 000060: 29 3A 43 4C 53 3A 4C 4F 43 41 54 45 20 31 2C 31 ):CLS:LOCATE 1,1 000070: 30 3A 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 0:PRINT "DO YOU 000080: 57 41 4E 54 20 54 4F 20 56 49 53 49 54 20 54 48 WANT TO VISIT TH 000090: 45 20 42 4F 4F 4B 49 45 53 3F 20 28 59 2F 4E 29 E BOOKIES? (Y/N) 0000A0: 22 3A 47 4F 53 55 42 20 39 38 39 30 3A 49 46 20 ":GOSUB 9890:IF 0000B0: 7A 24 3D 22 4E 22 20 54 48 45 4E 20 39 38 36 30 z$="N" THEN 9860 0000C0: 0D 0A 36 30 30 35 20 45 52 41 53 45 20 77 3A 44 ..6005 ERASE w:D 0000D0: 49 4D 20 77 28 34 30 29 3A 49 46 20 61 68 3D 32 IM w(40):IF ah=2 0000E0: 30 20 54 48 45 4E 20 47 4F 53 55 42 20 36 33 30 0 THEN GOSUB 630 0000F0: 30 20 45 4C 53 45 20 47 4F 53 55 42 20 36 32 30 0 ELSE GOSUB 620 000100: 30 16 6A 0D 0A 36 30 31 30 20 43 4C 53 3A 46 4F 0.j..6010 CLS:FO 000110: 52 20 6E 3D 31 20 54 4F 20 32 30 3A 4C 4F 43 41 R n=1 TO 20:LOCA 000120: 54 45 20 31 2C 6E 2B 31 3A 50 52 49 4E 54 20 55 TE 1,n+1:PRINT U 000130: 53 49 4E 47 22 23 23 22 3B 6E 3B 3A 50 52 49 4E SING"##";n;:PRIN 000140: 54 20 54 41 42 28 34 29 3B 52 49 47 48 54 24 28 T TAB(4);RIGHT$( 000150: 74 24 28 6E 29 2C 39 29 3B 55 53 49 4E 47 22 23 t$(n),9);USING"# 000160: 23 23 22 3B 77 28 6E 29 3B 3A 50 52 49 4E 54 20 ##";w(n);:PRINT 000170: 22 2F 31 22 3B 3A 49 46 20 61 68 3E 32 30 20 54 "/1";:IF ah>20 T 000180: 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 32 30 HEN PRINT TAB(20 000190: 29 3B 55 53 49 4E 47 22 23 23 22 3B 6E 2B 32 30 );USING"##";n+20 0001A0: 3B 3A 50 52 49 4E 54 20 22 20 22 3B 52 49 47 48 ;:PRINT " ";RIGH 0001B0: 54 24 28 74 24 28 6E 2B 32 30 29 2C 39 29 3B 22 T$(t$(n+20),9);" 0001C0: 20 22 3B 55 53 49 4E 47 22 23 23 23 22 3B 77 28 ";USING"###";w( 0001D0: 6E 2B 32 30 29 3B 3A 50 52 49 4E 54 22 2F 31 22 n+20);:PRINT"/1" 0001E0: 0D 0A 36 30 31 35 20 4E 45 58 54 0D 0A 36 30 32 ..6015 NEXT..602 0001F0: 30 20 49 4E 50 55 54 23 32 2C 22 50 4C 41 59 45 0 INPUT#2,"PLAYE 000200: 52 27 53 72 99 20 4E 55 4D 42 45 52 3F 20 28 30 R'Sr. NUMBER? (0 000210: 20 45 58 49 54 29 20 22 3B 72 61 3A 43 4C 53 23 EXIT) ";ra:CLS# 000220: 32 3A 49 46 20 72 61 3C 30 20 4F 52 20 72 61 3E 2:IF ra<0 OR ra> 000230: 61 68 20 54 48 45 4E 20 36 30 32 30 0D 0A 36 30 ah THEN 6020..60 000240: 33 30 20 49 46 20 72 61 3D 30 20 54 48 45 4E 20 30 IF ra=0 THEN 000250: 39 38 36 30 20 45 4C 53 45 20 49 46 20 66 28 72 9860 ELSE IF f(r 000260: 61 29 3D 31 20 54 48 45 4E 20 36 30 32 30 0D 0A a)=1 THEN 6020.. 000270: 36 31 34 30 20 43 4C 53 23 32 3A 49 4E 50 55 54 6140 CLS#2:INPUT 000280: 23 32 2C 22 48 4F 57 20 4D 55 43 48 20 22 3B 7A #2,"HOW MUCH ";z 000290: 70 3A 43 4C 53 23 32 3A 7A 70 3D 49 4E 54 28 7A p:CLS#2:zp=INT(z 0002A0: 70 29 3A 49 46 20 7A 61 2D 7A 70 3C 2D 31 30 30 p):IF za-zp<-100 0002B0: 30 30 20 4F 52 20 7A 70 3C 31 20 54 48 45 4E 20 00 OR zp<1 THEN 0002C0: 36 31 34 30 0D 0A 36 31 35 30 20 61 75 3D 66 28 6140..6150 au=f( 0002D0: 72 61 29 3A 7A 66 3D 49 4E 54 28 7A 70 2B 7A 70 ra):zf=INT(zp+zp 0002E0: 2A 77 28 72 61 29 29 3A 43 4C 53 23 32 3A 4C 4F *w(ra)):CLS#2:LO 0002F0: 43 41 54 45 20 35 2C 32 33 3A 50 52 49 4E 54 20 CATE 5,23:PRINT 000300: 22 54 48 49 53 2E B6 20 57 49 4C 4C 20 52 45 54 "THIS.. WILL RET 000310: 55 52 4E 20 22 3B 3A 74 7A 3D 7A 66 3A 47 4F 53 URN ";:tz=zf:GOS 000320: 55 42 20 36 33 35 30 30 3A 46 4F 52 20 6E 3D 31 UB 63500:FOR n=1 000330: 20 54 4F 20 34 30 30 30 3A 4E 45 58 54 3A 47 4F TO 4000:NEXT:GO 000340: 53 55 42 20 39 39 33 30 3A 47 4F 54 4F 20 39 38 SUB 9930:GOTO 98 000350: 36 30 0D 0A 36 32 30 30 20 46 4F 52 20 6E 3D 31 60..6200 FOR n=1 000360: 20 54 4F 20 34 30 3A 77 28 6E 29 3D 30 2D 28 35 TO 40:w(n)=0-(5 000370: 2D 49 4E 54 28 52 4E 44 2A 34 29 29 2A 28 6A 28 -INT(RND*4))*(j( 000380: 6E 29 3E 38 39 29 2D 28 6A 28 6E 29 3E 37 39 20 n)>89)-(j(n)>79 000390: 41 4E 44 20 6A 28 6E 29 3C 39 30 29 2A 28 31 35 AND j(n)<90)*(15 0003A0: 2D 49 4E 54 28 52 4E 44 2A 31 30 29 29 2D 28 6A -INT(RND*10))-(j 0003B0: 28 6E 29 3E 36 39 20 41 4E 44 20 6A 28 6E 29 3C (n)>69 AND j(n)< 0003C0: 38 30 29 2A 28 32 35 2D 49 4E 54 28 52 4E 44 2A 80)*(25-INT(RND* 0003D0: 31 30 29 29 2D 28 6A 28 6E 29 3E 35 39 20 41 4E 10))-(j(n)>59 AN 0003E0: 44 20 6A 28 6E 29 3C 37 30 29 2A 28 35 30 2D 49 D j(n)<70)*(50-I 0003F0: 4E 54 28 52 4E 44 2A 32 30 29 29 2D 28 6A 28 6E NT(RND*20))-(j(n 000400: 29 3C 36 30 29 2A 31 8C 79 30 30 3A 4E 45 58 54 )<60)*1.y00:NEXT 000410: 3A 52 45 54 55 52 4E 0D 0A 36 33 30 30 20 46 4F :RETURN..6300 FO 000420: 52 20 6E 3D 31 20 54 4F 20 32 30 3A 77 28 6E 29 R n=1 TO 20:w(n) 000430: 3D 65 28 6E 29 2D 65 28 31 29 2B 32 2D 28 6A 28 =e(n)-e(1)+2-(j( 000440: 6E 29 3C 39 30 29 2A 49 4E 54 28 52 4E 44 2A 32 n)<90)*INT(RND*2 000450: 29 2D 49 4E 54 28 52 4E 44 2A 35 29 2A 28 6A 28 )-INT(RND*5)*(j( 000460: 6E 29 3C 38 30 29 2D 28 6A 28 6E 29 3C 37 30 29 n)<80)-(j(n)<70) 000470: 2A 49 4E 54 28 52 4E 44 2A 35 29 3A 4E 45 58 54 *INT(RND*5):NEXT 000480: 3A 52 45 54 55 52 4E 0D 0A 36 35 30 30 20 47 4F :RETURN..6500 GO 000490: 53 55 42 20 39 38 36 30 3A 46 4F 52 20 6E 3D 32 SUB 9860:FOR n=2 0004A0: 31 20 54 4F 20 34 30 3A 49 46 20 66 28 6E 29 3E 1 TO 40:IF f(n)> 0004B0: 30 20 41 4E 44 20 20 66 28 6E 29 3C 34 31 20 54 0 AND f(n)<41 T 0004C0: 48 45 4E 20 47 4F 53 55 42 20 37 30 3A 46 4F 52 HEN GOSUB 70:FOR 0004D0: 20 61 3D 31 20 54 4F 20 34 3A 77 28 61 29 3D 77 a=1 TO 4:w(a)=w 0004E0: 28 61 29 2D 49 4E 54 28 52 4E 44 2A 32 29 3A 4E (a)-INT(RND*2):N 0004F0: 45 58 54 3A 63 28 66 28 6E 29 29 3D 63 28 66 28 EXT:c(f(n))=c(f( 000500: 6E 29 29 2D 32 0D 0A 36 35 ED C2 32 30 20 4E 45 n))-2..65..20 NE 000510: 58 54 3A 52 45 54 55 52 4E 20 0D 0A 36 37 30 30 XT:RETURN ..6700 000520: 20 72 65 3D 35 2D 28 61 6C 3D 30 29 2A 31 35 3A re=5-(al=0)*15: 000530: 49 46 20 72 63 3D 30 20 54 48 45 4E 20 52 45 54 IF rc=0 THEN RET 000540: 55 52 4E 20 45 4C 53 45 20 43 4C 53 3A 4C 4F 43 URN ELSE CLS:LOC 000550: 41 54 45 20 38 2C 38 3A 50 52 49 4E 54 20 22 59 ATE 8,8:PRINT "Y 000560: 4F 55 20 48 41 56 45 20 22 3B 3A 49 46 20 72 63 OU HAVE ";:IF rc 000570: 3E 72 65 20 54 48 45 4E 20 36 38 30 30 0D 0A 36 >re THEN 6800..6 000580: 37 31 30 20 50 52 49 4E 54 20 22 51 55 41 49 4C 710 PRINT "QUAIL 000590: 46 49 45 44 20 46 4F 52 20 54 48 45 22 2C 2C 2C FIED FOR THE",,, 0005A0: 2C 2C 54 41 42 28 36 29 3B 22 46 49 4E 41 4C 20 ,,TAB(6);"FINAL 0005B0: 53 54 41 47 45 53 20 4F 46 20 54 48 45 20 22 3B STAGES OF THE "; 0005C0: 6E 24 28 33 29 3A 50 52 49 4E 54 23 32 2C 70 61 n$(3):PRINT#2,pa 0005D0: 24 28 32 29 3A 47 4F 54 4F 20 39 39 33 30 0D 0A $(2):GOTO 9930.. 0005E0: 36 38 30 30 20 72 61 3D 65 28 72 63 29 2D 65 28 6800 ra=e(rc)-e( 0005F0: 72 65 29 3A 50 52 49 4E 54 20 22 46 41 49 4C 45 re):PRINT "FAILE 000600: 44 20 54 4F 20 51 55 41 49 4C 46 01 D7 59 22 2C D TO QUAILF..Y", 000610: 2C 2C 2C 2C 54 41 42 28 34 29 3B 22 46 4F 52 20 ,,,,TAB(4);"FOR 000620: 54 48 45 20 46 49 4E 41 4C 20 53 54 41 47 45 53 THE FINAL STAGES 000630: 20 42 59 22 3B 3A 49 46 20 72 61 20 54 48 45 4E BY";:IF ra THEN 000640: 20 50 52 49 4E 54 20 72 61 3B 22 53 54 52 4F 4B PRINT ra;"STROK 000650: 45 22 3B 3A 49 46 20 72 61 3E 31 20 54 48 45 4E E";:IF ra>1 THEN 000660: 20 50 52 49 4E 54 20 22 53 22 20 0D 0A 36 38 33 PRINT "S" ..683 000670: 30 20 49 46 20 72 61 3D 30 20 54 48 45 4E 20 50 0 IF ra=0 THEN P 000680: 52 49 4E 54 20 43 48 52 24 28 38 29 3B 43 48 52 RINT CHR$(8);CHR 000690: 24 28 38 29 3B 22 49 4E 20 41 20 50 4C 41 59 4F $(8);"IN A PLAYO 0006A0: 46 46 22 0D 0A 36 38 34 30 20 50 52 49 4E 54 23 FF"..6840 PRINT# 0006B0: 32 2C 70 61 24 28 32 29 3B 3A 47 4F 54 4F 20 39 2,pa$(2);:GOTO 9 0006C0: 39 33 30 0D 0A 37 30 30 30 20 47 4F 53 55 42 20 930..7000 GOSUB 0006D0: 39 38 36 30 3A 52 41 4E 44 4F 4D 49 5A 45 20 54 9860:RANDOMIZE T 0006E0: 49 4D 45 3A 46 4F 52 20 6E 3D 32 20 54 4F 20 34 IME:FOR n=2 TO 4 0006F0: 30 3A 66 28 6E 29 3D 6E 3A 6A 28 6E 29 3D 32 30 0:f(n)=n:j(n)=20 000700: 2B 49 4E 54 28 52 4E 44 2A 33 35 29 2D 99 7C 28 +INT(RND*35)-.|( 000710: 61 6C 3D 31 29 2A 31 35 3A 47 4F 53 55 42 20 39 al=1)*15:GOSUB 9 000720: 39 30 30 3A 74 24 28 6E 29 3D 7A 24 3A 4E 45 58 900:t$(n)=z$:NEX 000730: 54 3A 6D 28 31 29 3D 31 3A 66 28 31 29 3D 31 3A T:m(1)=1:f(1)=1: 000740: 74 24 28 31 29 3D 75 24 28 31 29 3A 72 62 3D 31 t$(1)=u$(1):rb=1 000750: 3A 47 4F 53 55 42 20 34 30 3A 6A 28 31 29 3D 72 :GOSUB 40:j(1)=r 000760: 63 0D 0A 37 30 31 30 20 61 6A 3D 32 3A 61 68 3D c..7010 aj=2:ah= 000770: 34 30 3A 61 70 3D 30 3A 47 4F 53 55 42 20 36 30 40:ap=0:GOSUB 60 000780: 30 30 3A 47 4F 53 55 42 20 31 30 30 3A 47 4F 53 00:GOSUB 100:GOS 000790: 55 42 20 38 32 30 30 3A 49 46 20 61 6C 3D 31 20 UB 8200:IF al=1 0007A0: 54 48 45 4E 20 52 45 54 55 52 4E 0D 0A 37 30 33 THEN RETURN..703 0007B0: 30 20 47 4F 53 55 42 20 36 30 30 30 3A 47 4F 53 0 GOSUB 6000:GOS 0007C0: 55 42 20 36 37 30 30 3A 61 68 3D 32 30 3A 47 4F UB 6700:ah=20:GO 0007D0: 53 55 42 20 39 38 36 30 3A 47 4F 53 55 42 20 31 SUB 9860:GOSUB 1 0007E0: 30 30 3A 47 4F 54 4F 20 38 32 30 30 0D 0A 37 31 00:GOTO 8200..71 0007F0: 30 30 20 43 4C 53 3A 49 4E 4B 20 30 2C 36 3A 42 00 CLS:INK 0,6:B 000800: 4F 52 44 45 52 20 36 3A 4C 4F 43 41 54 45 20 EF ORDER 6:LOCATE . 000810: 2A FF FF FF FE *....
previousnext* BLOCK 0045 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2302
Length of SYNC First pulse : 1270
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1176
Length of ONE bit pulse : 2352
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 1 999		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 F6 07 FF FF FF FE .......
previousnext* BLOCK 0046 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2312
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1111
Length of ZERO bit pulse : 1138
Length of ONE bit pulse : 2277
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 2709ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 132 049		000000: 16 35 2C 38 3A 50 52 49 4E 54 22 59 4F 55 20 41 .5,8:PRINT"YOU A 000010: 52 45 20 42 52 4F 4B 45 20 41 4E 44 20 48 41 56 RE BROKE AND HAV 000020: 45 20 42 45 45 4E 20 46 4F 52 43 45 44 22 2C 54 E BEEN FORCED",T 000030: 41 42 28 35 29 3B 22 54 4F 20 22 3B 3A 7A 31 3D AB(5);"TO ";:z1= 000040: 31 30 30 30 30 2D 7A 6C 2A 73 28 35 29 3A 49 46 10000-zl*s(5):IF 000050: 20 7A 31 3C 41 42 53 28 7A 61 29 20 54 48 45 4E z1<ABS(za) THEN 000060: 20 37 31 36 30 0D 0A 37 31 30 35 20 4C 4F 43 41 7160..7105 LOCA 000070: 54 45 20 35 2C 38 3A 50 52 49 4E 54 22 59 4F 55 TE 5,8:PRINT"YOU 000080: 20 41 52 45 20 42 52 4F 4B 45 20 41 4E 44 20 48 ARE BROKE AND H 000090: 41 56 45 20 42 45 45 4E 20 46 4F 52 43 45 44 22 AVE BEEN FORCED" 0000A0: 2C 54 41 42 28 35 29 3B 22 54 4F 20 22 3B 0D 0A ,TAB(5);"TO ";.. 0000B0: 37 31 32 30 20 7A 6C 3D 49 4E 54 28 7A 31 2B 28 7120 zl=INT(z1+( 0000C0: 7A 31 2F 31 30 30 29 2A 32 34 29 2F 34 30 3A 50 z1/100)*24)/40:P 0000D0: 52 49 4E 54 22 4F 42 54 41 49 4E 20 41 20 4C 4F RINT"OBTAIN A LO 0000E0: 41 4E 20 46 4F 52 20 22 3B 3A 74 7A 3D 7A 31 3A AN FOR ";:tz=z1: 0000F0: 47 4F 53 55 42 20 36 33 35 30 30 3A 73 28 35 29 GOSUB 63500:s(5) 000100: 3D 60 D6 34 30 3A 47 4F 54 4F 20 37 31 38 30 0D =`.40:GOTO 7180. 000110: 0A 37 31 36 30 20 72 62 3D 31 3A 47 4F 53 55 42 .7160 rb=1:GOSUB 000120: 20 34 30 3A 7A 31 3D 28 72 63 2A 32 30 30 30 2F 40:z1=(rc*2000/ 000130: 31 30 30 29 2A 38 30 3A 50 52 49 4E 54 22 4F 42 100)*80:PRINT"OB 000140: 54 41 49 4E 20 41 20 4D 4F 52 54 47 41 47 45 20 TAIN A MORTGAGE 000150: 46 4F 52 20 22 3B 3A 74 7A 3D 7A 31 3A 47 4F 53 FOR ";:tz=z1:GOS 000160: 55 42 20 36 33 35 30 30 3A 7A 6D 3D 49 4E 54 28 UB 63500:zm=INT( 000170: 7A 31 2B 28 7A 31 2F 31 30 30 29 2A 32 30 29 2F z1+(z1/100)*20)/ 000180: 38 30 3A 73 28 34 29 3D 38 30 0D 0A 37 31 38 30 80:s(4)=80..7180 000190: 20 7A 61 3D 7A 61 2B 7A 31 3A 47 4F 54 4F 20 39 za=za+z1:GOTO 9 0001A0: 39 33 30 0D 0A 37 35 30 30 20 7A 24 3D 22 4D 41 930..7500 z$="MA 0001B0: 4A 4F 52 22 3A 79 24 3D 61 24 28 61 63 29 3A 3A JOR":y$=a$(ac):: 0001C0: 7A 32 3D 76 28 61 63 2C 31 29 3A 49 46 20 61 69 z2=v(ac,1):IF ai 0001D0: 3D 31 20 54 48 45 4E 20 7A 24 3D 22 4D 49 4E 4F =1 THEN z$="MINO 0001E0: 52 22 3A 79 24 3D 69 24 28 61 66 29 3A 7A 32 3D R":y$=i$(af):z2= 0001F0: 7A 65 0D 0A 37 35 30 35 20 49 4E 4B 20 30 2C 39 ze..7505 INK 0,9 000200: 3A 42 4F 2F 69 52 44 45 52 20 39 3A 50 52 49 4E :BO/iRDER 9:PRIN 000210: 54 20 70 61 24 28 31 29 3A 43 4C 53 3A 50 52 49 T pa$(1):CLS:PRI 000220: 4E 54 20 54 41 42 20 28 39 29 70 61 24 28 34 29 NT TAB (9)pa$(4) 000230: 22 20 22 7A 24 22 20 22 3B 6E 24 28 33 29 3B 22 " "z$" ";n$(3);" 000240: 20 52 45 53 55 4C 54 20 22 70 61 24 28 31 29 3A RESULT "pa$(1): 000250: 4C 4F 43 41 54 45 20 31 30 2C 32 3A 50 52 49 4E LOCATE 10,2:PRIN 000260: 54 20 79 24 3B 3A 4C 4F 43 41 54 45 20 31 30 2C T y$;:LOCATE 10, 000270: 34 3A 50 52 49 4E 54 20 70 61 24 28 32 29 3B 22 4:PRINT pa$(2);" 000280: 54 4F 54 41 4C 20 22 3B 6E 24 28 31 29 3B 3A 74 TOTAL ";n$(1);:t 000290: 7A 3D 7A 32 3A 47 4F 53 55 42 20 36 33 35 30 30 z=z2:GOSUB 63500 0002A0: 3A 50 52 49 4E 54 20 70 61 24 28 31 29 2C 2C 2C :PRINT pa$(1),,, 0002B0: 2C 3A 72 62 3D 32 0D 0A 37 35 30 36 20 7A 31 3D ,:rb=2..7506 z1= 0002C0: 49 4E 54 28 28 7A 32 2F 31 30 30 29 2A 67 28 31 INT((z2/100)*g(1 0002D0: 29 29 3A 50 52 49 4E 54 20 54 41 42 28 37 29 3B )):PRINT TAB(7); 0002E0: 22 31 22 3B 3A 6E 3D 31 3A 47 4F 53 55 42 20 37 "1";:n=1:GOSUB 7 0002F0: 35 35 30 3A 49 46 20 65 28 32 29 3D 65 28 31 29 550:IF e(2)=e(1) 000300: 20 54 48 45 4E 63 EF 20 4C 4F 43 41 54 45 20 33 THENc. LOCATE 3 000310: 36 2C 36 3A 50 52 49 4E 54 20 22 2A 22 3A 4C 4F 6,6:PRINT "*":LO 000320: 43 41 54 45 20 31 32 2C 32 30 3A 50 52 49 4E 54 CATE 12,20:PRINT 000330: 20 22 2A 20 41 46 54 45 52 20 41 20 50 4C 41 59 "* AFTER A PLAY 000340: 4F 46 46 22 3A 4C 4F 43 41 54 45 20 31 2C 37 0D OFF":LOCATE 1,7. 000350: 0A 37 35 31 31 20 72 61 3D 31 3A 7A 31 3D 49 4E .7511 ra=1:z1=IN 000360: 54 28 28 7A 32 2F 31 30 30 29 2A 67 28 72 62 29 T((z2/100)*g(rb) 000370: 29 0D 0A 37 35 31 32 20 49 46 20 65 28 72 62 29 )..7512 IF e(rb) 000380: 3C 65 28 72 62 2B 72 61 29 20 54 48 45 4E 20 37 <e(rb+ra) THEN 7 000390: 35 31 34 20 45 4C 53 45 20 49 46 20 72 62 2B 72 514 ELSE IF rb+r 0003A0: 61 3C 31 31 20 54 48 45 4E 20 7A 31 3D 7A 31 2B a<11 THEN z1=z1+ 0003B0: 49 4E 54 28 28 7A 32 2F 31 30 30 29 2A 67 28 72 INT((z2/100)*g(r 0003C0: 62 2B 72 61 29 29 0D 0A 37 35 31 33 20 72 61 3D b+ra))..7513 ra= 0003D0: 72 61 2B 31 3A 47 4F 54 4F 20 37 35 31 32 0D 0A ra+1:GOTO 7512.. 0003E0: 37 35 31 34 20 72 61 3D 72 61 2D 31 3A 50 52 49 7514 ra=ra-1:PRI 0003F0: 4E 54 20 54 41 42 28 36 29 55 53 49 4E 47 22 23 NT TAB(6)USING"# 000400: 23 22 3B 72 62 3B 3A 8F CA 49 46 20 72 61 20 54 #";rb;:..IF ra T 000410: 48 45 4E 20 37 35 32 30 20 45 4C 53 45 20 6E 3D HEN 7520 ELSE n= 000420: 72 62 3A 47 4F 53 55 42 20 37 35 35 30 3A 47 4F rb:GOSUB 7550:GO 000430: 54 4F 20 37 35 33 30 0D 0A 37 35 32 30 20 7A 31 TO 7530..7520 z1 000440: 3D 49 4E 54 28 7A 31 2F 28 72 61 2B 31 29 29 3A =INT(z1/(ra+1)): 000450: 46 4F 52 20 6E 3D 72 62 20 54 4F 20 72 62 2B 72 FOR n=rb TO rb+r 000460: 61 3A 47 4F 53 55 42 20 37 35 35 30 3A 4E 45 58 a:GOSUB 7550:NEX 000470: 54 0D 0A 37 35 33 30 20 72 62 3D 72 62 2B 72 61 T..7530 rb=rb+ra 000480: 2B 31 3A 49 46 20 72 62 3C 31 31 20 54 48 45 4E +1:IF rb<11 THEN 000490: 20 37 35 31 31 20 45 4C 53 45 20 52 45 54 55 52 7511 ELSE RETUR 0004A0: 4E 0D 0A 37 35 35 30 20 50 52 49 4E 54 20 54 41 N..7550 PRINT TA 0004B0: 42 28 39 29 55 53 49 4E 47 20 22 5C 20 20 20 20 B(9)USING "\ 0004C0: 20 20 20 20 5C 20 20 23 23 23 20 20 20 20 20 20 \ ### 0004D0: 23 23 23 23 23 23 22 3B 74 24 28 6E 29 3B 65 28 ######";t$(n);e( 0004E0: 6E 29 2C 7A 31 3A 49 46 20 61 69 3D 30 20 41 4E n),z1:IF ai=0 AN 0004F0: 44 20 66 28 6E 29 3C 34 31 20 54 48 45 4E 20 6B D f(n)<41 THEN k 000500: 28 66 28 6E 29 29 3D 6B 28 94 1B 66 28 6E 29 29 (f(n))=k(..f(n)) 000510: 2B 7A 31 0D 0A 37 35 36 30 20 49 46 20 66 28 6E +z1..7560 IF f(n 000520: 29 3D 31 20 54 48 45 4E 20 7A 6E 3D 7A 31 3A 63 )=1 THEN zn=z1:c 000530: 28 31 29 3D 63 28 31 29 2B 33 0D 0A 37 35 37 30 (1)=c(1)+3..7570 000540: 20 52 45 54 55 52 4E 0D 0A 38 30 34 30 20 72 62 RETURN..8040 rb 000550: 3D 77 28 31 39 29 2D 6F 28 61 2C 34 29 3A 72 61 =w(19)-o(a,4):ra 000560: 3D 77 28 32 30 29 2D 6F 28 61 2C 35 29 3A 72 61 =w(20)-o(a,5):ra 000570: 3D 2D 72 61 3A 52 45 54 55 52 4E 20 0D 0A 38 32 =-ra:RETURN ..82 000580: 30 30 20 72 63 3D 30 3A 72 61 3D 32 30 3A 72 62 00 rc=0:ra=20:rb 000590: 3D 31 0D 0A 38 32 31 30 20 42 4F 52 44 45 52 20 =1..8210 BORDER 0005A0: 30 3A 50 52 49 4E 54 20 70 61 24 28 32 29 3A 43 0:PRINT pa$(2):C 0005B0: 4C 53 3A 50 52 49 4E 54 20 70 61 24 28 33 29 3B LS:PRINT pa$(3); 0005C0: 54 41 42 28 38 29 3B 22 20 50 4F 53 49 54 49 4F TAB(8);" POSITIO 0005D0: 4E 20 41 46 54 45 52 22 3B 61 70 3B 22 52 4F 55 N AFTER";ap;"ROU 0005E0: 4E 44 53 20 22 3B 70 61 24 28 32 29 2C 2C 2C 3A NDS ";pa$(2),,,: 0005F0: 46 4F 52 20 6E 3D 72 62 20 54 4F 20 72 61 3A 50 FOR n=rb TO ra:P 000600: 52 49 4E 54 20 54 41 42 28 39 29 D2 38 3B 70 61 RINT TAB(9).8;pa 000610: 24 28 32 2D 28 66 28 6E 29 3D 31 29 2D 32 2A 28 $(2-(f(n)=1)-2*( 000620: 66 28 6E 29 3D 61 75 20 41 4E 44 20 61 69 3D 30 f(n)=au AND ai=0 000630: 29 29 3B 55 53 49 4E 47 22 23 23 22 3B 6E 3B 0D ));USING"##";n;. 000640: 0A 38 32 31 32 20 49 46 20 66 28 6E 29 3D 31 20 .8212 IF f(n)=1 000650: 54 48 45 4E 20 72 63 3D 6E 0D 0A 38 32 31 34 20 THEN rc=n..8214 000660: 72 65 3D 65 28 6E 29 2D 28 61 70 2A 61 78 29 3A re=e(n)-(ap*ax): 000670: 7A 24 3D 53 54 52 24 28 41 42 53 28 72 65 29 29 z$=STR$(ABS(re)) 000680: 3A 7A 24 3D 52 49 47 48 54 24 28 7A 24 2C 4C 45 :z$=RIGHT$(z$,LE 000690: 4E 28 7A 24 29 2D 31 29 3A 49 46 20 72 65 3D 30 N(z$)-1):IF re=0 0006A0: 20 54 48 45 4E 20 7A 24 3D 22 45 22 20 45 4C 53 THEN z$="E" ELS 0006B0: 45 20 49 46 20 72 65 3C 30 20 54 48 45 4E 20 7A E IF re<0 THEN z 0006C0: 24 3D 22 2D 22 2B 7A 24 20 45 4C 53 45 20 7A 24 $="-"+z$ ELSE z$ 0006D0: 3D 22 2B 22 2B 7A 24 0D 0A 38 32 31 36 20 50 52 ="+"+z$..8216 PR 0006E0: 49 4E 54 20 54 41 42 28 31 35 29 3B 74 24 28 6E INT TAB(15);t$(n 0006F0: 29 3B 22 20 22 3B 55 53 49 4E 47 22 23 23 23 22 );" ";USING"###" 000700: 3B 65 28 6E 29 3B 3A 50 52 49 4E 54 20 6B FF 54 ;e(n);:PRINT k.T 000710: 41 42 28 33 32 29 3B 7A 24 3B 70 61 24 28 32 29 AB(32);z$;pa$(2) 000720: 3A 4E 45 58 54 3A 50 52 49 4E 54 23 32 2C 70 61 :NEXT:PRINT#2,pa 000730: 24 28 32 29 3A 47 4F 53 55 42 20 39 39 33 30 3A $(2):GOSUB 9930: 000740: 49 46 20 72 61 3E 3D 61 68 20 54 48 45 4E 20 52 IF ra>=ah THEN R 000750: 45 54 55 52 4E 0D 0A 38 32 32 30 20 72 62 3D 72 ETURN..8220 rb=r 000760: 61 2B 31 3A 72 61 3D 72 61 2B 32 30 3A 49 46 20 a+1:ra=ra+20:IF 000770: 72 61 3E 61 68 20 54 48 45 4E 20 72 61 3D 61 68 ra>ah THEN ra=ah 000780: 0D 0A 38 32 33 30 20 47 4F 54 4F 20 38 32 31 30 ..8230 GOTO 8210 000790: 0D 0A 38 32 34 30 20 50 52 49 4E 54 20 23 33 2C ..8240 PRINT #3, 0007A0: 22 4F 55 54 20 4F 46 20 42 4F 55 4E 44 53 22 3A "OUT OF BOUNDS": 0007B0: 6E 28 61 2C 78 29 3D 6E 28 61 2C 78 29 2D 31 3A n(a,x)=n(a,x)-1: 0007C0: 46 4F 52 20 62 3D 31 20 54 4F 20 33 3A 6F 28 61 FOR b=1 TO 3:o(a 0007D0: 2C 62 29 3D 6F 28 61 2C 62 29 2B 31 3A 4E 45 58 ,b)=o(a,b)+1:NEX 0007E0: 54 3A 50 4C 4F 54 20 6F 28 61 2C 34 29 2A 32 2B T:PLOT o(a,4)*2+ 0007F0: 39 36 2C 6F 28 61 2C 35 29 2A 32 2B 34 38 3A 72 96,o(a,5)*2+48:r 000800: 62 3D 30 3A 72 61 3D 28 72 61 2B 6F 28 61 2C BA b=0:ra=(ra+o(a,. 000810: 17 FF FF FF FE .....
previousnext* BLOCK 0047 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2273
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1147
Length of ONE bit pulse : 2293
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 1 776		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 11 0C FF FF FF FE .......
previousnext* BLOCK 0048 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2263
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1137
Length of ONE bit pulse : 2275
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2707ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 130 085		000000: 16 35 29 29 2A 32 2B 34 38 3A 49 46 20 49 4E 54 .5))*2+48:IF INT 000010: 28 52 4E 44 2A 31 30 29 3C 34 20 54 48 45 4E 20 (RND*10)<4 THEN 000020: 44 52 41 57 20 36 33 39 2C 72 61 3A 72 61 3D 30 DRAW 639,ra:ra=0 000030: 3A 47 4F 54 4F 20 36 35 31 30 30 0D 0A 38 32 35 :GOTO 65100..825 000040: 30 20 44 52 41 57 20 34 36 36 2C 72 61 3A 72 61 0 DRAW 466,ra:ra 000050: 3D 30 3A 47 4F 54 4F 20 36 35 31 30 30 0D 0A 38 =0:GOTO 65100..8 000060: 35 30 30 20 47 4F 53 55 42 20 38 35 39 30 3A 47 500 GOSUB 8590:G 000070: 4F 53 55 42 20 32 32 30 30 3A 47 4F 53 55 42 20 OSUB 2200:GOSUB 000080: 35 34 30 30 3A 49 46 20 66 28 31 29 3D 31 20 54 5400:IF f(1)=1 T 000090: 48 45 4E 20 43 4C 53 3A 4C 4F 43 41 54 45 20 38 HEN CLS:LOCATE 8 0000A0: 2C 38 3A 50 52 49 4E 54 22 43 4F 4E 47 52 41 54 ,8:PRINT"CONGRAT 0000B0: 55 4C 54 49 4F 4E 53 20 59 4F 55 20 48 41 56 45 ULTIONS YOU HAVE 0000C0: 20 22 2C 2C 2C 2C 54 41 42 28 36 29 3B 22 42 45 ",,,,TAB(6);"BE 0000D0: 43 4F 4D 45 20 54 48 45 20 4E 55 4D 42 45 52 20 COME THE NUMBER 0000E0: 31 20 47 4F 4C 46 45 52 22 3A 47 4F 53 55 42 20 1 GOLFER":GOSUB 0000F0: 39 39 33 30 0D 0A 38 35 31 30 20 47 4F 53 55 42 9930..8510 GOSUB 000100: 20 89 87 38 35 39 30 3A 46 4F 52 20 6E 3D 31 20 ..8590:FOR n=1 000110: 54 4F 20 32 30 3A 6C 28 6E 2C 32 29 3D 30 3A 4E TO 20:l(n,2)=0:N 000120: 45 58 54 3A 73 6E 3D 73 6E 2B 31 3A 47 4F 54 4F EXT:sn=sn+1:GOTO 000130: 20 34 30 30 0D 0A 38 35 39 30 20 43 4C 53 3A 4C 400..8590 CLS:L 000140: 4F 43 41 54 45 20 31 32 2C 31 31 3A 50 52 49 4E OCATE 12,11:PRIN 000150: 54 20 22 45 4E 44 20 4F 46 20 53 45 41 53 4F 4E T "END OF SEASON 000160: 22 3B 73 6E 2B 31 3A 47 4F 54 4F 20 39 39 33 30 ";sn+1:GOTO 9930 000170: 0D 0A 38 36 30 30 20 62 63 3D 30 3A 42 4F 52 44 ..8600 bc=0:BORD 000180: 45 52 20 30 3A 50 52 49 4E 54 20 70 61 24 28 32 ER 0:PRINT pa$(2 000190: 29 3A 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 ):CLS:PRINT TAB( 0001A0: 31 32 29 3B 22 53 43 4F 52 45 43 41 52 44 22 0D 12);"SCORECARD". 0001B0: 0A 38 36 31 30 20 4C 4F 43 41 54 45 20 37 2C 34 .8610 LOCATE 7,4 0001C0: 3A 50 52 49 4E 54 20 74 24 28 72 64 29 3A 46 4F :PRINT t$(rd):FO 0001D0: 52 20 62 3D 31 20 54 4F 20 39 3A 4C 4F 43 41 54 R b=1 TO 9:LOCAT 0001E0: 45 20 36 2B 28 62 2D 31 29 2A 33 2C 37 3A 50 52 E 6+(b-1)*3,7:PR 0001F0: 49 4E 54 20 55 53 49 4E 47 22 23 23 22 3B 62 3B INT USING"##";b; 000200: 3A 4E 45 C2 1D 58 54 3A 50 52 49 4E 54 22 20 4F :NE..XT:PRINT" O 000210: 55 54 22 3A 4C 4F 43 41 54 45 20 36 2C 31 31 3A UT":LOCATE 6,11: 000220: 46 4F 52 20 62 3D 31 30 20 54 4F 20 31 38 3A 50 FOR b=10 TO 18:P 000230: 52 49 4E 54 20 55 53 49 4E 47 22 23 23 22 3B 62 RINT USING"##";b 000240: 3B 3A 50 52 49 4E 54 20 22 20 22 3B 3A 4E 45 58 ;:PRINT " ";:NEX 000250: 54 3A 50 52 49 4E 54 20 22 20 49 4E 22 3A 4C 4F T:PRINT " IN":LO 000260: 43 41 54 45 20 33 31 2C 31 35 3A 50 52 49 4E 54 CATE 31,15:PRINT 000270: 20 22 54 4F 54 41 4C 22 0D 0A 38 36 32 30 20 50 "TOTAL"..8620 P 000280: 4C 4F 54 20 37 32 2C 33 31 32 3A 44 52 41 57 52 LOT 72,312:DRAWR 000290: 20 34 39 36 2C 30 3A 44 52 41 57 52 20 30 2C 2D 496,0:DRAWR 0,- 0002A0: 31 37 36 3A 44 52 41 57 52 20 2D 39 36 2C 30 3A 176:DRAWR -96,0: 0002B0: 44 52 41 57 52 20 30 2C 34 38 3A 50 4C 4F 54 20 DRAWR 0,48:PLOT 0002C0: 37 32 2C 33 31 32 3A 44 52 41 57 52 20 30 2C 2D 72,312:DRAWR 0,- 0002D0: 31 32 38 3A 44 52 41 57 52 20 34 39 36 2C 30 3A 128:DRAWR 496,0: 0002E0: 50 4C 4F 54 20 37 32 2C 32 34 38 3A 44 52 41 57 PLOT 72,248:DRAW 0002F0: 52 20 34 39 36 2C 30 3A 46 4F 52 20 62 3D 30 20 R 496,0:FOR b=0 000300: 54 4F 20 38 3A 85 9B 50 4C 4F 54 20 28 36 30 2B TO 8:..PLOT (60+ 000310: 32 34 2A 62 29 2A 32 2C 33 31 32 3A 44 52 41 57 24*b)*2,312:DRAW 000320: 52 20 30 2C 2D 31 32 38 3A 4E 45 58 54 0D 0A 38 R 0,-128:NEXT..8 000330: 36 33 35 20 50 45 4E 20 30 3A 4C 4F 43 41 54 45 635 PEN 0:LOCATE 000340: 20 36 2C 31 38 3A 50 52 49 4E 54 22 4F 56 45 52 6,18:PRINT"OVER 000350: 20 50 41 52 22 3A 50 45 4E 20 31 3A 4C 4F 43 41 PAR":PEN 1:LOCA 000360: 54 45 20 36 2C 31 39 3A 50 52 49 4E 54 20 22 50 TE 6,19:PRINT "P 000370: 41 52 22 3A 50 45 4E 20 32 3A 4C 4F 43 41 54 45 AR":PEN 2:LOCATE 000380: 20 36 2C 32 30 3A 50 52 49 4E 54 20 22 55 4E 44 6,20:PRINT "UND 000390: 45 52 20 50 41 52 22 3A 50 52 49 4E 54 20 70 61 ER PAR":PRINT pa 0003A0: 24 28 32 29 0D 0A 38 36 34 30 20 72 61 3D 30 3A $(2)..8640 ra=0: 0003B0: 72 62 3D 30 3A 72 63 3D 30 3A 46 4F 52 20 62 3D rb=0:rc=0:FOR b= 0003C0: 31 20 54 4F 20 39 3A 4C 4F 43 41 54 45 20 36 2B 1 TO 9:LOCATE 6+ 0003D0: 28 62 2D 31 29 2A 33 2C 39 3A 49 46 20 78 3E 3D (b-1)*3,9:IF x>= 0003E0: 62 20 54 48 45 4E 20 7A 31 3D 6E 28 31 2C 62 29 b THEN z1=n(1,b) 0003F0: 20 45 4C 53 45 20 7A 31 3D 30 0D 0A 38 36 34 35 ELSE z1=0..8645 000400: 20 50 45 4E 20 31 3A FC B1 49 46 20 7A 31 3D 30 PEN 1:..IF z1=0 000410: 20 54 48 45 4E 20 38 36 35 30 20 45 4C 53 45 20 THEN 8650 ELSE 000420: 49 46 20 7A 31 3C 64 28 31 2C 62 29 20 54 48 45 IF z1<d(1,b) THE 000430: 4E 20 50 45 4E 20 32 20 45 4C 53 45 20 49 46 20 N PEN 2 ELSE IF 000440: 7A 31 3E 64 28 31 2C 62 29 20 54 48 45 4E 20 50 z1>d(1,b) THEN P 000450: 45 4E 20 30 0D 0A 38 36 35 30 20 50 52 49 4E 54 EN 0..8650 PRINT 000460: 20 55 53 49 4E 47 22 23 23 22 3B 7A 31 3B 3A 72 USING"##";z1;:r 000470: 61 3D 72 61 2B 7A 31 3A 4E 45 58 54 3A 50 45 4E a=ra+z1:NEXT:PEN 000480: 20 31 3A 4C 4F 43 41 54 45 20 33 34 2C 39 3A 50 1:LOCATE 34,9:P 000490: 52 49 4E 54 20 55 53 49 4E 47 22 23 23 22 3B 72 RINT USING"##";r 0004A0: 61 0D 0A 38 36 36 30 20 46 4F 52 20 62 3D 31 30 a..8660 FOR b=10 0004B0: 20 54 4F 20 31 38 3A 4C 4F 43 41 54 45 20 36 2B TO 18:LOCATE 6+ 0004C0: 28 62 2D 31 30 29 2A 33 2C 31 33 3A 7A 31 3D 30 (b-10)*3,13:z1=0 0004D0: 2D 28 78 3E 62 29 2A 6E 28 31 2C 62 29 3A 50 45 -(x>b)*n(1,b):PE 0004E0: 4E 20 31 3A 49 46 20 7A 31 3D 30 20 54 48 45 4E N 1:IF z1=0 THEN 0004F0: 20 38 36 37 30 20 45 4C 53 45 20 49 46 20 7A 31 8670 ELSE IF z1 000500: 3C 64 28 31 2C 62 29 20 54 E4 B5 48 45 4E 20 50 <d(1,b) T..HEN P 000510: 45 4E 20 32 20 45 4C 53 45 20 49 46 20 7A 31 3E EN 2 ELSE IF z1> 000520: 64 28 31 2C 62 29 20 54 48 45 4E 20 50 45 4E 20 d(1,b) THEN PEN 000530: 30 0D 0A 38 36 37 30 20 50 52 49 4E 54 20 55 53 0..8670 PRINT US 000540: 49 4E 47 22 23 23 22 3B 7A 31 3B 3A 72 62 3D 72 ING"##";z1;:rb=r 000550: 62 2B 7A 31 3A 4E 45 58 54 3A 50 45 4E 20 31 3A b+z1:NEXT:PEN 1: 000560: 72 63 3D 72 62 2B 72 61 3A 4C 4F 43 41 54 45 20 rc=rb+ra:LOCATE 000570: 33 34 2C 31 33 3A 50 52 49 4E 54 20 55 53 49 4E 34,13:PRINT USIN 000580: 47 22 23 23 22 3B 72 62 3A 4C 4F 43 41 54 45 20 G"##";rb:LOCATE 000590: 33 32 2C 31 36 3A 50 52 49 4E 54 20 55 53 49 4E 32,16:PRINT USIN 0005A0: 47 22 23 23 23 22 3B 72 63 3B 0D 0A 38 36 39 30 G"###";rc;..8690 0005B0: 20 4C 4F 43 41 54 45 20 31 37 2C 32 35 3A 50 52 LOCATE 17,25:PR 0005C0: 49 4E 54 20 70 61 24 28 35 29 3B 22 52 22 3B 70 INT pa$(5);"R";p 0005D0: 61 24 28 32 29 3B 22 45 54 55 52 4E 22 3B 3A 69 a$(2);"ETURN";:i 0005E0: 6E 24 3D 22 22 3A 57 48 49 4C 45 20 69 6E 24 3C n$="":WHILE in$< 0005F0: 3E 22 52 22 3A 47 4F 53 55 42 20 36 34 32 30 30 >"R":GOSUB 64200 000600: 3A 57 45 4E 44 3A 62 63 3D 30 3A 9A 62 49 46 20 :WEND:bc=0:.bIF 000610: 78 3E 31 37 20 54 48 45 4E 20 52 45 54 55 52 4E x>17 THEN RETURN 000620: 0D 0A 38 37 30 30 20 42 4F 52 44 45 52 20 30 3A ..8700 BORDER 0: 000630: 50 52 49 4E 54 20 70 61 24 28 32 29 3B 3A 43 4C PRINT pa$(2);:CL 000640: 53 3A 4C 4F 43 41 54 45 20 38 2C 31 3A 49 46 20 S:LOCATE 8,1:IF 000650: 61 69 3D 31 20 54 48 45 4E 20 50 52 49 4E 54 20 ai=1 THEN PRINT 000660: 69 24 28 61 66 29 3B 20 45 4C 53 45 20 50 52 49 i$(af); ELSE PRI 000670: 4E 54 20 61 24 28 61 63 29 0D 0A 38 37 30 35 20 NT a$(ac)..8705 000680: 4C 4F 43 41 54 45 20 36 2C 38 3A 50 52 49 4E 54 LOCATE 6,8:PRINT 000690: 20 70 61 24 28 32 29 3B 3A 50 45 4E 20 32 3A 50 pa$(2);:PEN 2:P 0006A0: 52 49 4E 54 20 22 52 4F 55 4E 44 22 3B 54 41 42 RINT "ROUND";TAB 0006B0: 28 31 36 29 3B 22 48 4F 4C 45 22 3A 4C 4F 43 41 (16);"HOLE":LOCA 0006C0: 54 45 20 36 2C 39 3A 50 52 49 4E 54 20 70 61 24 TE 6,9:PRINT pa$ 0006D0: 28 32 29 3B 22 50 41 52 22 3B 54 41 42 28 32 30 (2);"PAR";TAB(20 0006E0: 29 3B 22 59 41 52 44 53 22 3B 3A 50 45 4E 20 32 );"YARDS";:PEN 2 0006F0: 3A 4C 4F 43 41 54 45 20 32 2C 32 30 3A 50 52 49 :LOCATE 2,20:PRI 000700: 4E 54 20 22 44 52 49 56 49 4E 47 3A 20 77 D4 22 NT "DRIVING: w." 000710: 3B 4D 49 44 24 28 76 24 28 31 29 2C 37 2C 32 29 ;MID$(v$(1),7,2) 000720: 3B 0D 0A 38 37 31 30 20 50 52 49 4E 54 20 22 20 ;..8710 PRINT " 000730: 20 43 48 49 50 50 49 4E 47 3A 20 22 3B 4D 49 44 CHIPPING: ";MID 000740: 24 28 76 24 28 31 29 2C 33 2C 32 29 3A 4C 4F 43 $(v$(1),3,2):LOC 000750: 41 54 45 20 32 2C 32 31 3A 50 52 49 4E 54 20 22 ATE 2,21:PRINT " 000760: 42 55 4E 4B 45 52 20 3A 20 22 3B 4D 49 44 24 28 BUNKER : ";MID$( 000770: 76 24 28 31 29 2C 31 2C 32 29 3B 22 20 20 50 55 v$(1),1,2);" PU 000780: 54 54 49 4E 47 20 3A 20 22 3B 4D 49 44 24 28 76 TTING : ";MID$(v 000790: 24 28 31 29 2C 35 2C 32 29 0D 0A 38 37 31 35 20 $(1),5,2)..8715 0007A0: 4C 4F 43 41 54 45 20 36 2C 33 3A 50 52 49 4E 54 LOCATE 6,3:PRINT 0007B0: 22 50 41 52 20 46 4F 52 20 43 4F 55 52 53 45 3A "PAR FOR COURSE: 0007C0: 22 3B 61 78 0D 0A 38 37 33 30 20 4C 4F 43 41 54 ";ax..8730 LOCAT 0007D0: 45 20 32 2C 31 34 3A 50 52 49 4E 54 20 50 41 24 E 2,14:PRINT PA$ 0007E0: 28 34 29 3B 52 49 47 48 54 24 28 54 24 28 52 44 (4);RIGHT$(T$(RD 0007F0: 29 2C 39 29 3A 4C 4F 43 41 54 45 20 32 2C 31 36 ),9):LOCATE 2,16 000800: 3A 50 52 49 4E 54 20 50 41 24 28 36 29 3B 52 7A :PRINT PA$(6);Rz 000810: 86 FF FF FF FE .....
previousnext* BLOCK 0049 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2281
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1158
Length of ONE bit pulse : 2317
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 007		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 84 7F FF FF FF FE .......
previousnext* BLOCK 0050 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2251
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1131
Length of ONE bit pulse : 2264
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 2702ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 124 792		000000: 16 49 47 48 54 24 28 54 24 28 52 45 29 2C 39 29 .IGHT$(T$(RE),9) 000010: 3B 50 41 24 28 32 29 3A 4C 4F 43 41 54 45 20 31 ;PA$(2):LOCATE 1 000020: 32 2C 31 32 3A 50 52 49 4E 54 20 22 48 4C 45 20 2,12:PRINT "HLE 000030: 52 4E 44 20 54 52 4E 20 50 41 52 22 0D 0A 38 37 RND TRN PAR"..87 000040: 34 30 20 50 4C 4F 54 20 38 2C 32 30 30 3A 44 52 40 PLOT 8,200:DR 000050: 41 57 52 20 30 2C 2D 36 34 3A 46 4F 52 20 62 3D AWR 0,-64:FOR b= 000060: 30 20 54 4F 20 32 3A 50 4C 4F 54 20 38 2C 33 32 0 TO 2:PLOT 8,32 000070: 2A 62 2B 31 33 36 3A 44 52 41 57 52 20 34 31 32 *b+136:DRAWR 412 000080: 2C 30 3A 4E 45 58 54 3A 50 4C 4F 54 20 34 32 30 ,0:NEXT:PLOT 420 000090: 2C 31 33 36 3A 44 52 41 57 52 20 30 2C 39 36 3A ,136:DRAWR 0,96: 0000A0: 50 4C 4F 54 20 31 36 38 2C 32 33 32 3A 44 52 41 PLOT 168,232:DRA 0000B0: 57 52 20 32 35 32 2C 30 3A 46 4F 52 20 62 3D 30 WR 252,0:FOR b=0 0000C0: 20 54 4F 20 33 3A 50 4C 4F 54 20 31 36 38 2B 62 TO 3:PLOT 168+b 0000D0: 2A 36 34 2C 32 33 32 3A 44 52 41 57 52 20 30 2C *64,232:DRAWR 0, 0000E0: 2D 39 36 3A 4E 45 58 54 0D 0A 38 37 35 30 20 4C -96:NEXT..8750 L 0000F0: 4F 43 41 54 45 20 31 33 2C 38 3A 50 45 4E 20 32 OCATE 13,8:PEN 2 000100: 3A 64 9D 50 52 49 4E 54 20 55 53 49 4E 47 22 23 :d.PRINT USING"# 000110: 22 3B 61 70 3B 3A 50 52 49 4E 54 20 70 61 24 28 ";ap;:PRINT pa$( 000120: 32 29 3B 0D 0A 38 37 36 30 20 4C 4F 43 41 54 45 2);..8760 LOCATE 000130: 20 36 2C 35 3A 50 52 49 4E 54 20 22 43 55 52 52 6,5:PRINT "CURR 000140: 45 4E 54 20 4C 45 41 44 45 52 20 22 3A 4C 4F 43 ENT LEADER ":LOC 000150: 41 54 45 20 36 2C 36 3A 50 52 49 4E 54 20 52 49 ATE 6,6:PRINT RI 000160: 47 48 54 24 28 74 24 28 72 66 29 2C 39 29 3B 65 GHT$(t$(rf),9);e 000170: 28 72 66 29 3B 3A 72 61 3D 65 28 72 66 29 2D 61 (rf);:ra=e(rf)-a 000180: 78 2A 61 70 3A 49 46 20 72 61 3D 30 20 54 48 45 x*ap:IF ra=0 THE 000190: 4E 20 50 52 49 4E 54 20 22 45 20 20 22 20 45 4C N PRINT "E " EL 0001A0: 53 45 20 49 46 20 72 61 3C 30 20 54 48 45 4E 20 SE IF ra<0 THEN 0001B0: 50 52 49 4E 54 20 22 2D 22 3B 55 53 49 4E 47 22 PRINT "-";USING" 0001C0: 23 23 22 3B 41 42 53 28 72 61 29 20 45 4C 53 45 ##";ABS(ra) ELSE 0001D0: 20 50 52 49 4E 54 20 22 2B 22 3B 55 53 49 4E 47 PRINT "+";USING 0001E0: 22 23 23 22 3B 72 61 0D 0A 38 38 30 30 20 4C 4F "##";ra..8800 LO 0001F0: 43 41 54 45 20 34 2C 32 35 3A 50 52 49 4E 54 20 CATE 4,25:PRINT 000200: 70 61 24 7C 25 28 35 2B 28 62 61 3D 31 29 2A 32 pa$|%(5+(ba=1)*2 000210: 29 3B 22 53 22 3B 70 61 24 28 32 29 3B 22 4C 4F );"S";pa$(2);"LO 000220: 57 20 22 3B 70 61 24 28 35 2B 28 62 61 3D 30 29 W ";pa$(5+(ba=0) 000230: 2A 32 29 3B 22 46 22 3B 70 61 24 28 32 29 3B 22 *2);"F";pa$(2);" 000240: 41 53 54 20 53 22 3B 70 61 24 28 35 29 3B 22 43 AST S";pa$(5);"C 000250: 22 3B 70 61 24 28 32 29 3B 22 4F 52 45 42 4F 41 ";pa$(2);"OREBOA 000260: 52 44 22 3B 3A 52 45 54 55 52 4E 0D 0A 39 30 30 RD";:RETURN..900 000270: 30 20 7A 31 3D 78 2F 33 3A 7A 33 3D 49 4E 54 28 0 z1=x/3:z3=INT( 000280: 7A 31 29 3A 49 46 20 49 4E 54 28 7A 31 29 3D 7A z1):IF INT(z1)=z 000290: 31 20 54 48 45 4E 20 7A 31 3D 31 3A 47 4F 54 4F 1 THEN z1=1:GOTO 0002A0: 20 39 30 31 30 0D 0A 39 30 30 35 20 7A 33 3D 7A 9010..9005 z3=z 0002B0: 33 2B 31 3A 7A 31 3D 28 49 4E 54 28 28 7A 31 2D 3+1:z1=(INT((z1- 0002C0: 49 4E 54 28 7A 31 29 29 2A 31 30 2F 33 29 2A 32 INT(z1))*10/3)*2 0002D0: 29 2D 31 0D 0A 39 30 31 30 20 7A 32 3D 56 41 4C )-1..9010 z2=VAL 0002E0: 28 4D 49 44 24 28 73 24 28 61 63 2C 7A 33 29 2C (MID$(s$(ac,z3), 0002F0: 7A 31 2C 32 29 29 2D 31 30 3A 45 52 41 53 45 20 z1,2))-10:ERASE 000300: 77 3A 44 49 4D 9D 56 20 77 28 33 37 29 3A 79 24 w:DIM.V w(37):y$ 000310: 3D 6A 24 28 7A 32 29 3A 7A 24 3D 62 24 28 31 2C =j$(z2):z$=b$(1, 000320: 56 41 4C 28 4C 45 46 54 24 28 79 24 2C 31 29 29 VAL(LEFT$(y$,1)) 000330: 29 3A 77 28 33 31 29 3D 56 41 4C 28 4D 49 44 24 ):w(31)=VAL(MID$ 000340: 28 7A 24 2C 38 2C 31 29 29 3A 77 28 32 36 29 3D (z$,8,1)):w(26)= 000350: 56 41 4C 28 4D 49 44 24 28 7A 24 2C 37 2C 31 29 VAL(MID$(z$,7,1) 000360: 29 0D 0A 39 30 31 32 20 77 28 31 29 3D 56 41 4C )..9012 w(1)=VAL 000370: 28 4D 49 44 24 28 7A 24 2C 33 2C 31 29 29 3A 77 (MID$(z$,3,1)):w 000380: 28 32 29 3D 56 41 4C 28 4D 49 44 24 28 7A 24 2C (2)=VAL(MID$(z$, 000390: 32 2C 31 29 29 2B 32 33 3A 77 28 31 38 29 3D 56 2,1))+23:w(18)=V 0003A0: 41 4C 28 4C 45 46 54 24 28 7A 24 2C 31 29 29 2B AL(LEFT$(z$,1))+ 0003B0: 37 3A 49 46 20 63 61 3D 31 20 54 48 45 4E 20 64 7:IF ca=1 THEN d 0003C0: 28 31 2C 78 29 3D 74 28 77 28 31 38 29 2D 31 33 (1,x)=t(w(18)-13 0003D0: 29 3A 49 46 20 49 4E 54 28 52 4E 44 2A 31 30 29 ):IF INT(RND*10) 0003E0: 3E 32 20 41 4E 44 20 64 28 31 2C 78 29 3D 35 20 >2 AND d(1,x)=5 0003F0: 54 48 45 4E 20 64 28 31 2C 78 29 3D 34 0D 0A 39 THEN d(1,x)=4..9 000400: 30 31 38 20 49 46 20 6F CA 63 61 3D 31 20 54 48 018 IF o.ca=1 TH 000410: 45 4E 20 52 45 54 55 52 4E 0D 0A 39 30 32 30 20 EN RETURN..9020 000420: 7A 24 3D 62 24 28 31 2C 56 41 4C 28 4D 49 44 24 z$=b$(1,VAL(MID$ 000430: 28 79 24 2C 32 2C 31 29 29 29 3A 77 28 36 29 3D (y$,2,1))):w(6)= 000440: 77 28 31 38 29 2B 77 28 31 29 2B 31 3A 77 28 37 w(18)+w(1)+1:w(7 000450: 29 3D 56 41 4C 28 4D 49 44 24 28 7A 24 2C 34 2C )=VAL(MID$(z$,4, 000460: 31 29 29 2B 32 33 3A 7A 24 3D 62 24 28 32 2C 56 1))+23:z$=b$(2,V 000470: 41 4C 28 4D 49 44 24 28 79 24 2C 37 2C 31 29 29 AL(MID$(y$,7,1)) 000480: 29 3A 77 28 33 29 3D 56 41 4C 28 4D 49 44 24 28 ):w(3)=VAL(MID$( 000490: 7A 24 2C 32 2C 31 29 29 3A 77 28 34 29 3D 56 41 z$,2,1)):w(4)=VA 0004A0: 4C 28 4C 45 46 54 24 28 7A 24 2C 31 29 29 0D 0A L(LEFT$(z$,1)).. 0004B0: 39 30 33 30 20 7A 24 3D 62 24 28 31 2C 56 41 4C 9030 z$=b$(1,VAL 0004C0: 28 4D 49 44 24 28 79 24 2C 33 2C 31 29 29 29 3A (MID$(y$,3,1))): 0004D0: 77 28 35 29 3D 77 28 36 29 2D 56 41 4C 28 4D 49 w(5)=w(6)-VAL(MI 0004E0: 44 24 28 7A 24 2C 36 2C 31 29 29 3A 77 28 32 31 D$(z$,6,1)):w(21 0004F0: 29 3D 28 32 32 2D 77 28 35 29 29 2A 38 3A 7A 24 )=(22-w(5))*8:z$ 000500: 3D 62 24 28 33 2C 56 41 4C 8B E3 28 4D 49 44 24 =b$(3,VAL..(MID$ 000510: 28 79 24 2C 34 2C 31 29 29 29 0D 0A 39 30 34 30 (y$,4,1)))..9040 000520: 20 77 28 38 29 3D 36 2B 56 41 4C 28 4D 49 44 24 w(8)=6+VAL(MID$ 000530: 28 7A 24 2C 32 2C 31 29 29 3A 77 28 38 29 3D 77 (z$,2,1)):w(8)=w 000540: 28 38 29 2B 32 2A 28 77 28 38 29 3D 77 28 35 29 (8)+2*(w(8)=w(5) 000550: 29 3A 77 28 39 29 3D 56 41 4C 28 4C 45 46 54 24 ):w(9)=VAL(LEFT$ 000560: 28 7A 24 2C 31 29 29 2B 32 33 3A 77 28 31 30 29 (z$,1))+23:w(10) 000570: 3D 36 2B 56 41 4C 28 4D 49 44 24 28 7A 24 2C 34 =6+VAL(MID$(z$,4 000580: 2C 31 29 29 3A 77 28 31 30 29 3D 77 28 31 30 29 ,1)):w(10)=w(10) 000590: 2D 32 2A 28 77 28 31 30 29 3D 77 28 35 29 29 3A -2*(w(10)=w(5)): 0005A0: 77 28 31 31 29 3D 56 41 4C 28 4D 49 44 24 28 7A w(11)=VAL(MID$(z 0005B0: 24 2C 33 2C 31 29 29 2B 32 33 3A 77 28 31 32 29 $,3,1))+23:w(12) 0005C0: 3D 36 2B 56 41 4C 28 4D 49 44 24 28 7A 24 2C 36 =6+VAL(MID$(z$,6 0005D0: 2C 31 29 29 3A 77 28 31 32 29 3D 77 28 31 32 29 ,1)):w(12)=w(12) 0005E0: 2B 32 2A 28 77 28 31 32 29 3D 77 28 35 29 29 3A +2*(w(12)=w(5)): 0005F0: 77 28 31 33 29 3D 56 41 4C 28 4D 49 44 24 28 7A w(13)=VAL(MID$(z 000600: 24 2C 35 2C 31 29 29 2B 32 33 0D EC 70 0A 39 30 $,5,1))+23..p.90 000610: 34 35 20 7A 24 3D 62 24 28 32 2C 56 41 4C 28 4D 45 z$=b$(2,VAL(M 000620: 49 44 24 28 79 24 2C 35 2C 31 29 29 29 3A 77 28 ID$(y$,5,1))):w( 000630: 31 34 29 3D 31 31 2B 56 41 4C 28 4D 49 44 24 28 14)=11+VAL(MID$( 000640: 7A 24 2C 34 2C 31 29 29 3A 77 28 31 34 29 3D 77 z$,4,1)):w(14)=w 000650: 28 31 34 29 2B 32 2A 28 77 28 31 34 29 3D 77 28 (14)+2*(w(14)=w( 000660: 35 29 29 3A 77 28 31 35 29 3D 56 41 4C 28 4D 49 5)):w(15)=VAL(MI 000670: 44 24 28 7A 24 2C 33 2C 31 29 29 2B 32 33 3A 77 D$(z$,3,1))+23:w 000680: 28 31 36 29 3D 31 31 2B 56 41 4C 28 4D 49 44 24 (16)=11+VAL(MID$ 000690: 28 7A 24 2C 36 2C 31 29 29 3A 77 28 31 36 29 3D (z$,6,1)):w(16)= 0006A0: 77 28 31 36 29 2B 32 2A 28 77 28 31 36 29 3D 77 w(16)+2*(w(16)=w 0006B0: 28 35 29 29 3A 77 28 31 37 29 3D 56 41 4C 28 4D (5)):w(17)=VAL(M 0006C0: 49 44 24 28 7A 24 2C 35 2C 31 29 29 2B 32 33 0D ID$(z$,5,1))+23. 0006D0: 0A 39 30 34 38 20 49 46 20 77 28 32 36 29 3E 32 .9048 IF w(26)>2 0006E0: 20 54 48 45 4E 20 77 28 32 37 29 3D 38 2B 56 41 THEN w(27)=8+VA 0006F0: 4C 28 4D 49 44 24 28 7A 24 2C 38 2C 31 29 29 3A L(MID$(z$,8,1)): 000700: 77 28 32 37 29 3D 77 28 32 37 29 2B 32 F6 86 2A w(27)=w(27)+2..* 000710: 28 77 28 32 37 29 3D 77 28 35 29 29 3A 77 28 32 (w(27)=w(5)):w(2 000720: 38 29 3D 56 41 4C 28 4D 49 44 24 28 7A 24 2C 37 8)=VAL(MID$(z$,7 000730: 2C 31 29 29 2B 32 33 0D 0A 39 30 35 30 20 77 28 ,1))+23..9050 w( 000740: 32 32 29 3D 77 28 31 29 2B 77 28 31 32 29 2D 36 22)=w(1)+w(12)-6 000750: 3A 77 28 32 33 29 3D 77 28 31 33 29 2D 32 33 3A :w(23)=w(13)-23: 000760: 77 28 32 35 29 3D 77 28 32 33 29 2B 77 28 32 32 w(25)=w(23)+w(22 000770: 29 2B 31 3A 49 46 20 49 4E 54 28 77 28 31 30 29 )+1:IF INT(w(10) 000780: 2F 32 29 3D 77 28 31 30 29 2F 32 20 54 48 45 4E /2)=w(10)/2 THEN 000790: 20 77 28 32 34 29 3D 31 3A 77 28 37 29 3D 77 28 w(24)=1:w(7)=w( 0007A0: 37 29 2B 77 28 32 33 29 3A 49 46 20 77 28 32 29 7)+w(23):IF w(2) 0007B0: 2B 77 28 32 33 29 3E 33 31 20 54 48 45 4E 20 77 +w(23)>31 THEN w 0007C0: 28 32 29 3D 32 33 3A 77 28 37 29 3D 77 28 32 29 (2)=23:w(7)=w(2) 0007D0: 2B 77 28 32 33 29 0D 0A 39 30 35 32 20 7A 24 3D +w(23)..9052 z$= 0007E0: 62 24 28 34 2C 56 41 4C 28 4D 49 44 24 28 79 24 b$(4,VAL(MID$(y$ 0007F0: 2C 36 2C 31 29 29 29 3A 49 46 20 77 28 32 36 29 ,6,1))):IF w(26) 000800: 3D 34 20 54 48 45 4E 20 77 28 33 32 29 3D 39 80 =4 THEN w(32)=9. 000810: CF FF FF FF FE .....
previousnext* BLOCK 0051 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
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 : 2255
Length of SYNC First pulse : 1190
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1148
Length of ONE bit pulse : 2296
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 17ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 1 964		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 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 63 74 FF FF FF FE .ct....
previousnext* BLOCK 0052 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2258
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1129
Length of ONE bit pulse : 2259
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 2714ms
Data : 2069 bytes
Total size : 2088 bytes

Sum DATA : 127 923		000000: 16 2B 56 41 4C 28 4D 49 44 24 28 7A 24 2C 38 2C .+VAL(MID$(z$,8, 000010: 31 29 29 3A 77 28 33 33 29 3D 32 33 2B 56 41 4C 1)):w(33)=23+VAL 000020: 28 4D 49 44 24 28 7A 24 2C 37 2C 31 29 29 0D 0A (MID$(z$,7,1)).. 000030: 39 30 35 38 20 49 46 20 49 4E 54 28 77 28 31 30 9058 IF INT(w(10 000040: 29 2F 32 29 3D 77 28 31 30 29 2F 32 20 54 48 45 )/2)=w(10)/2 THE 000050: 4E 20 39 30 36 35 0D 0A 39 30 36 30 20 77 28 32 N 9065..9060 w(2 000060: 34 29 3D 2D 31 3A 77 28 37 29 3D 77 28 32 29 2D 4)=-1:w(7)=w(2)- 000070: 77 28 32 33 29 3A 49 46 20 77 28 32 29 2D 77 28 w(23):IF w(2)-w( 000080: 32 33 29 3C 32 34 20 54 48 45 4E 20 77 28 37 29 23)<24 THEN w(7) 000090: 3D 32 34 3A 77 28 32 29 3D 77 28 37 29 2B 77 28 =24:w(2)=w(7)+w( 0000A0: 32 33 29 0D 0A 39 30 36 35 20 77 28 33 29 3D 77 23)..9065 w(3)=w 0000B0: 28 33 29 2B 77 28 36 29 3A 77 28 34 29 3D 77 28 (3)+w(6):w(4)=w( 0000C0: 34 29 2B 77 28 37 29 3A 77 28 31 39 29 3D 77 28 4)+w(7):w(19)=w( 0000D0: 34 29 2A 38 2B 34 3A 77 28 32 30 29 3D 28 32 32 4)*8+4:w(20)=(22 0000E0: 2D 77 28 33 29 29 2A 38 2D 34 0D 0A 39 30 39 30 -w(3))*8-4..9090 0000F0: 20 49 46 20 77 28 32 36 29 3C 32 20 54 48 45 4E IF w(26)<2 THEN 000100: 20 C3 F2 77 28 31 36 29 3D 30 3A 77 28 31 37 29 ..w(16)=0:w(17) 000110: 3D 30 3A 49 46 20 77 28 32 36 29 3D 30 20 54 48 =0:IF w(26)=0 TH 000120: 45 4E 20 77 28 31 34 29 3D 30 3A 77 28 31 35 29 EN w(14)=0:w(15) 000130: 3D 30 0D 0A 39 31 30 30 20 46 4F 52 20 6E 3D 31 =0..9100 FOR n=1 000140: 20 54 4F 20 32 34 3A 4C 4F 43 41 54 45 20 33 30 TO 24:LOCATE 30 000150: 2C 6E 3A 50 52 49 4E 54 20 70 61 24 28 31 29 3B ,n:PRINT pa$(1); 000160: 53 54 52 49 4E 47 24 28 31 31 2C 32 35 33 29 3B STRING$(11,253); 000170: 3A 4E 45 58 54 3A 72 61 3D 77 28 32 29 3A 46 4F :NEXT:ra=w(2):FO 000180: 52 20 6E 3D 31 20 54 4F 20 77 28 31 38 29 3A 72 R n=1 TO w(18):r 000190: 61 3D 72 61 2D 28 77 28 32 34 29 2A 28 6E 3E 77 a=ra-(w(24)*(n>w 0001A0: 28 32 32 29 20 41 4E 44 20 6E 3C 77 28 32 35 29 (22) AND n<w(25) 0001B0: 29 29 3A 4C 4F 43 41 54 45 20 72 61 2B 37 2C 6E )):LOCATE ra+7,n 0001C0: 2B 31 2B 77 28 31 29 3A 50 52 49 4E 54 20 22 20 +1+w(1):PRINT " 0001D0: 20 20 20 22 3A 4E 45 58 54 0D 0A 39 31 33 30 20 ":NEXT..9130 0001E0: 50 45 4E 20 33 3A 46 4F 52 20 6E 3D 30 20 54 4F PEN 3:FOR n=0 TO 0001F0: 20 34 20 53 54 45 50 20 32 3A 4C 4F 43 41 54 45 4 STEP 2:LOCATE 000200: 20 77 28 10 99 39 2B 6E 29 2B 37 2C 77 28 38 2B w(..9+n)+7,w(8+ 000210: 6E 29 2B 31 3A 50 52 49 4E 54 20 43 48 52 24 28 n)+1:PRINT CHR$( 000220: 32 35 34 29 3B 3A 4E 45 58 54 0D 0A 39 31 33 35 254);:NEXT..9135 000230: 20 4C 4F 43 41 54 45 20 77 28 39 29 2B 37 2C 77 LOCATE w(9)+7,w 000240: 28 31 30 29 2B 31 3A 50 52 49 4E 54 20 43 48 52 (10)+1:PRINT CHR 000250: 24 28 32 35 34 29 3B 3A 4C 4F 43 41 54 45 20 77 $(254);:LOCATE w 000260: 28 39 29 2B 37 2C 77 28 31 32 29 2B 31 3A 50 52 (9)+7,w(12)+1:PR 000270: 49 4E 54 20 43 48 52 24 28 32 35 34 29 3B 3A 4C INT CHR$(254);:L 000280: 4F 43 41 54 45 20 77 28 31 31 29 2B 37 2C 77 28 OCATE w(11)+7,w( 000290: 38 29 2B 31 3A 50 52 49 4E 54 20 43 48 52 24 28 8)+1:PRINT CHR$( 0002A0: 32 35 34 29 0D 0A 39 31 34 30 20 50 41 50 45 52 254)..9140 PAPER 0002B0: 20 31 3A 46 4F 52 20 6E 3D 30 20 54 4F 20 32 20 1:FOR n=0 TO 2 0002C0: 53 54 45 50 20 32 3A 49 46 20 77 28 31 34 2B 6E STEP 2:IF w(14+n 0002D0: 29 3E 30 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 )>0 THEN LOCATE 0002E0: 77 28 31 35 2B 6E 29 2B 37 2C 77 28 31 34 2B 6E w(15+n)+7,w(14+n 0002F0: 29 2B 31 3A 50 52 49 4E 54 20 43 48 52 24 28 32 )+1:PRINT CHR$(2 000300: 35 32 29 3B 43 26 11 48 52 24 28 32 35 31 29 3B 52);C&.HR$(251); 000310: 3A 4C 4F 43 41 54 45 20 77 28 31 35 2B 6E 29 2B :LOCATE w(15+n)+ 000320: 37 2C 77 28 31 34 2B 6E 29 2B 32 3A 50 52 49 4E 7,w(14+n)+2:PRIN 000330: 54 20 43 48 52 24 28 32 35 30 29 3B 43 48 52 24 T CHR$(250);CHR$ 000340: 28 32 34 39 29 0D 0A 39 31 34 31 20 4E 45 58 54 (249)..9141 NEXT 000350: 3A 49 46 20 77 28 32 37 29 3E 30 20 54 48 45 4E :IF w(27)>0 THEN 000360: 20 4C 4F 43 41 54 45 20 77 28 32 38 29 2B 37 2C LOCATE w(28)+7, 000370: 77 28 32 37 29 2B 31 3A 50 52 49 4E 54 20 43 48 w(27)+1:PRINT CH 000380: 52 24 28 32 35 32 29 3B 43 48 52 24 28 32 35 31 R$(252);CHR$(251 000390: 29 3B 3A 4C 4F 43 41 54 45 20 77 28 32 38 29 2B );:LOCATE w(28)+ 0003A0: 37 2C 77 28 32 37 29 2B 32 3A 50 52 49 4E 54 20 7,w(27)+2:PRINT 0003B0: 43 48 52 24 28 32 35 30 29 3B 43 48 52 24 28 32 CHR$(250);CHR$(2 0003C0: 34 39 29 0D 0A 39 31 35 30 20 49 46 20 77 28 35 49)..9150 IF w(5 0003D0: 29 3C 3E 77 28 36 29 20 54 48 45 4E 20 4C 4F 43 )<>w(6) THEN LOC 0003E0: 41 54 45 20 33 30 2C 77 28 35 29 2B 31 3A 50 52 ATE 30,w(5)+1:PR 0003F0: 49 4E 54 20 70 61 24 28 36 29 3B 53 54 52 49 4E INT pa$(6);STRIN 000400: 47 24 28 31 31 2C 32 20 6F 35 35 29 3B 0D 0A 39 G$(11,2 o55);..9 000410: 31 36 30 20 4C 4F 43 41 54 45 20 77 28 37 29 2B 160 LOCATE w(7)+ 000420: 37 2C 77 28 36 29 2B 31 3A 50 52 49 4E 54 20 70 7,w(6)+1:PRINT p 000430: 61 24 28 31 29 3B 43 48 52 24 28 32 34 38 29 3B a$(1);CHR$(248); 000440: 43 48 52 24 28 32 34 37 29 3B 43 48 52 24 28 32 CHR$(247);CHR$(2 000450: 34 36 29 3B 3A 4C 4F 43 41 54 45 20 77 28 37 29 46);:LOCATE w(7) 000460: 2B 37 2C 77 28 36 29 2B 32 3A 50 52 49 4E 54 20 +7,w(6)+2:PRINT 000470: 43 48 52 24 28 32 34 31 29 3B 22 20 22 3B 43 48 CHR$(241);" ";CH 000480: 52 24 28 32 34 35 29 3B 3A 4C 4F 43 41 54 45 20 R$(245);:LOCATE 000490: 77 28 37 29 2B 37 2C 77 28 36 29 2B 33 3A 50 52 w(7)+7,w(6)+3:PR 0004A0: 49 4E 54 20 43 48 52 24 28 32 34 32 29 3B 43 48 INT CHR$(242);CH 0004B0: 52 24 28 32 34 33 29 3B 43 48 52 24 28 32 34 34 R$(243);CHR$(244 0004C0: 29 3B 3A 4C 4F 43 41 54 45 20 77 28 34 29 2B 37 );:LOCATE w(4)+7 0004D0: 2C 77 28 33 29 2B 31 3A 50 45 4E 20 33 3A 50 52 ,w(3)+1:PEN 3:PR 0004E0: 49 4E 54 20 43 48 52 24 28 32 34 30 29 3B 70 61 INT CHR$(240);pa 0004F0: 24 28 31 29 3B 3A 52 45 54 55 52 4E 0D 0A 39 35 $(1);:RETURN..95 000500: 30 30 20 46 4F 52 20 6E 3D B2 AE 31 20 54 4F 20 00 FOR n=..1 TO 000510: 35 3A 61 77 3D 31 2B 49 4E 54 28 52 4E 44 2A 31 5:aw=1+INT(RND*1 000520: 36 29 3A 49 46 20 70 28 61 77 29 3E 30 20 54 48 6):IF p(aw)>0 TH 000530: 45 4E 20 6E 3D 39 39 0D 0A 39 35 31 30 20 4E 45 EN n=99..9510 NE 000540: 58 54 3A 49 46 20 6E 3C 31 30 20 54 48 45 4E 20 XT:IF n<10 THEN 000550: 52 45 54 55 52 4E 0D 0A 39 35 31 35 20 4C 4F 43 RETURN..9515 LOC 000560: 41 54 45 20 35 2C 31 39 3A 50 52 49 4E 54 20 22 ATE 5,19:PRINT " 000570: 4F 4E 45 20 4F 46 20 59 4F 55 52 20 43 4C 55 42 ONE OF YOUR CLUB 000580: 53 20 48 41 53 20 42 45 45 4E 20 44 41 4D 41 47 S HAS BEEN DAMAG 000590: 45 44 22 3B 20 0D 0A 39 35 32 30 20 70 28 61 77 ED"; ..9520 p(aw 0005A0: 29 3D 70 28 61 77 29 2D 31 3A 47 4F 53 55 42 20 )=p(aw)-1:GOSUB 0005B0: 39 37 35 30 3A 72 62 3D 56 41 4C 28 4D 49 44 24 9750:rb=VAL(MID$ 0005C0: 28 7A 24 2C 72 61 2C 32 29 29 3A 72 62 3D 72 62 (z$,ra,2)):rb=rb 0005D0: 2D 35 3A 72 62 3D 72 62 2D 28 72 62 3C 31 30 29 -5:rb=rb-(rb<10) 0005E0: 2A 28 31 30 2D 72 62 29 3A 4D 49 44 24 28 7A 24 *(10-rb):MID$(z$ 0005F0: 2C 72 61 2C 32 29 3D 52 49 47 48 54 24 28 53 54 ,ra,2)=RIGHT$(ST 000600: 52 24 28 72 62 29 2C 32 29 3A 76 D5 00 24 28 31 R$(rb),2):v..$(1 000610: 29 3D 7A 24 3A 52 45 54 55 52 4E 20 0D 0A 39 37 )=z$:RETURN ..97 000620: 35 30 20 7A 24 3D 76 24 28 31 29 3A 72 61 3D 2D 50 z$=v$(1):ra=- 000630: 35 2A 28 41 57 3D 31 37 29 2D 28 61 77 3C 31 33 5*(AW=17)-(aw<13 000640: 29 2A 37 2D 28 61 77 3E 31 32 20 41 4E 44 20 61 )*7-(aw>12 AND a 000650: 77 3C 31 35 29 2A 33 2D 28 61 77 3E 31 34 20 41 w<15)*3-(aw>14 A 000660: 4E 44 20 61 77 3C 3E 31 37 29 2A 31 3A 52 45 54 ND aw<>17)*1:RET 000670: 55 52 4E 0D 0A 39 38 30 30 20 46 4F 52 20 7A 3D URN..9800 FOR z= 000680: 31 20 54 4F 20 37 20 53 54 45 50 20 32 3A 79 24 1 TO 7 STEP 2:y$ 000690: 3D 4D 49 44 24 28 76 24 28 6E 29 2C 7A 2C 32 29 =MID$(v$(n),z,2) 0006A0: 3A 7A 31 3D 46 4E 61 28 56 41 4C 28 79 24 29 2B :z1=FNa(VAL(y$)+ 0006B0: 72 62 29 3A 79 24 3D 52 49 47 48 54 24 28 53 54 rb):y$=RIGHT$(ST 0006C0: 52 24 28 7A 31 29 2C 32 29 3A 4D 49 44 24 28 76 R$(z1),2):MID$(v 0006D0: 24 28 6E 29 2C 7A 2C 32 29 3D 79 24 3A 4E 45 58 $(n),z,2)=y$:NEX 0006E0: 54 3A 52 45 54 55 52 4E 0D 0A 39 38 32 30 20 47 T:RETURN..9820 G 0006F0: 4F 53 55 42 20 33 30 3A 46 4F 52 20 6E 3D 31 20 OSUB 30:FOR n=1 000700: 54 4F 20 33 39 3A 46 4F 52 20 7A 3D 6E 9C 8F 2B TO 39:FOR z=n..+ 000710: 31 20 54 4F 20 34 30 3A 49 46 20 6A 28 66 28 6E 1 TO 40:IF j(f(n 000720: 29 29 3E 6A 28 66 28 7A 29 29 20 54 48 45 4E 20 ))>j(f(z)) THEN 000730: 72 61 3D 66 28 6E 29 3A 66 28 6E 29 3D 66 28 7A ra=f(n):f(n)=f(z 000740: 29 3A 66 28 7A 29 3D 72 61 0D 0A 39 38 33 30 20 ):f(z)=ra..9830 000750: 4E 45 58 54 3A 4E 45 58 54 3A 52 45 54 55 52 4E NEXT:NEXT:RETURN 000760: 20 0D 0A 39 38 35 30 20 45 52 41 53 45 20 65 3A ..9850 ERASE e: 000770: 44 49 4D 20 65 28 34 30 29 3A 46 4F 52 20 6E 3D DIM e(40):FOR n= 000780: 31 20 54 4F 20 34 30 3A 72 62 3D 6E 3A 47 4F 53 1 TO 40:rb=n:GOS 000790: 55 42 20 34 30 3A 6A 28 6E 29 3D 72 63 3A 4E 45 UB 40:j(n)=rc:NE 0007A0: 58 54 3A 52 45 54 55 52 4E 20 0D 0A 39 38 36 30 XT:RETURN ..9860 0007B0: 20 50 52 49 4E 54 20 70 61 24 28 31 29 3A 42 4F PRINT pa$(1):BO 0007C0: 52 44 45 52 20 32 3A 49 4E 4B 20 30 2C 32 3A 49 RDER 2:INK 0,2:I 0007D0: 4E 4B 20 31 2C 32 36 3A 43 4C 53 3A 4C 4F 43 41 NK 1,26:CLS:LOCA 0007E0: 54 45 20 31 32 2C 38 3A 49 46 20 61 69 3D 30 20 TE 12,8:IF ai=0 0007F0: 54 48 45 4E 20 50 52 49 4E 54 20 61 24 28 61 63 THEN PRINT a$(ac 000800: 29 20 45 4C 53 45 20 50 52 49 4E 54 20 69 24 02 ) ELSE PRINT i$. 000810: 9B FF FF FF FE .....
previousnext* BLOCK 0053 : TURBO LOADING DATA
HEADER
Block Name : AGOLF
Block Number : 14
Block last : YES
File type : Ascii
File adress start : &9E7C
File adress length : &02B3
File adress execution : &0000
File length file : &0000

Length of PILOT pulse : 2245
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1154
Length of ONE bit pulse : 2308
Length of PILOT tone : 4095
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 263 bytes
Total size : 282 bytes

Sum DATA : 2 387		000000: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF.......... 000010: 00 0E FF 16 B3 02 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 43 8E FF FF FF FE .C.....
previousnext* BLOCK 0054 : TURBO LOADING DATA
DATA
Length of PILOT pulse : 2268
Length of SYNC First pulse : 1111
Length of SYNC Second pulse : 1032
Length of ZERO bit pulse : 1129
Length of ONE bit pulse : 2260
Length of PILOT tone : 4094
Used bits in last byte : 7 OK
Pause After this block : 18ms
Data : 779 bytes
Total size : 798 bytes

Sum DATA : 47 020		000000: 16 28 61 66 29 0D 0A 39 38 36 35 20 49 46 20 61 .(af)..9865 IF a 000010: 69 3D 31 20 54 48 45 4E 20 74 7A 3D 7A 65 20 45 i=1 THEN tz=ze E 000020: 4C 53 45 20 74 7A 3D 76 28 61 63 2C 31 29 0D 0A LSE tz=v(ac,1).. 000030: 39 38 37 30 20 50 52 49 4E 54 20 2C 2C 2C 2C 2C 9870 PRINT ,,,,, 000040: 2C 54 41 42 28 39 29 3B 22 54 4F 54 41 4C 20 22 ,TAB(9);"TOTAL " 000050: 3B 6E 24 28 31 29 3B 3A 47 4F 53 55 42 20 36 33 ;n$(1);:GOSUB 63 000060: 35 30 30 3A 47 4F 54 4F 20 39 39 32 30 0D 0A 39 500:GOTO 9920..9 000070: 38 39 30 20 7A 24 3D 49 4E 4B 45 59 24 3A 7A 24 890 z$=INKEY$:z$ 000080: 3D 55 50 50 45 52 24 28 7A 24 29 3A 49 46 20 7A =UPPER$(z$):IF z 000090: 24 3D 22 59 22 20 4F 52 20 7A 24 3D 22 4E 22 20 $="Y" OR z$="N" 0000A0: 54 48 45 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 THEN RETURN ELSE 0000B0: 20 39 38 39 30 0D 0A 35 30 30 30 30 20 4C 4F 43 9890..50000 LOC 0000C0: 41 54 45 20 35 2C 32 34 3A 50 52 49 4E 54 22 49 ATE 5,24:PRINT"I 0000D0: 4E 53 45 52 54 20 42 4C 41 4E 4B 20 54 41 50 45 NSERT BLANK TAPE 0000E0: 2C 50 52 45 53 53 20 53 50 41 43 45 22 3A 47 4F ,PRESS SPACE":GO 0000F0: 53 55 42 20 36 34 30 30 30 3A 49 46 20 49 4E 24 SUB 64000:IF IN$ 000100: 3C 2C DA 3E 22 20 22 20 54 48 45 4E 20 35 30 30 <,.>" " THEN 500 000110: 30 30 0D 0A 35 30 30 31 30 20 43 4C 4F 53 45 4F 00..50010 CLOSEO 000120: 55 54 3A 4F 50 45 4E 4F 55 54 20 22 67 6F 6C 66 UT:OPENOUT "golf 000130: 2E 73 61 76 22 3A 57 52 49 54 45 23 39 2C 61 61 .sav":WRITE#9,aa 000140: 2C 61 62 2C 61 65 2C 61 66 2C 61 6B 2C 61 71 2C ,ab,ae,af,ak,aq, 000150: 61 72 2C 61 76 2C 61 77 2C 73 6E 2C 7A 61 2C 7A ar,av,aw,sn,za,z 000160: 62 2C 7A 63 2C 7A 64 2C 7A 65 2C 7A 6C 2C 7A 6D b,zc,zd,ze,zl,zm 000170: 2C 7A 6F 2C 66 24 3A 46 4F 52 20 6E 3D 31 20 54 ,zo,f$:FOR n=1 T 000180: 4F 20 32 3A 46 4F 52 20 61 3D 31 20 54 4F 20 33 O 2:FOR a=1 TO 3 000190: 3A 57 52 49 54 45 23 39 2C 61 28 6E 2C 61 29 3A :WRITE#9,a(n,a): 0001A0: 4E 45 58 54 20 61 2C 6E 3A 46 4F 52 20 6E 3D 31 NEXT a,n:FOR n=1 0001B0: 20 54 4F 20 34 30 3A 57 52 49 54 45 23 39 2C 63 TO 40:WRITE#9,c 0001C0: 28 6E 29 2C 6B 28 6E 29 2C 76 24 28 6E 29 2C 75 (n),k(n),v$(n),u 0001D0: 24 28 6E 29 3A 4E 45 58 54 0D 0A 35 30 30 32 30 $(n):NEXT..50020 0001E0: 20 46 4F 52 20 6E 3D 31 20 54 4F 20 32 30 3A 57 FOR n=1 TO 20:W 0001F0: 52 49 54 45 23 39 2C 61 24 28 6E 29 2C 6C 28 6E RITE#9,a$(n),l(n 000200: 2C 31 29 DA 1F 2C 6C 28 6E 2C 32 29 3A 46 4F 52 ,1)..,l(n,2):FOR 000210: 20 61 3D 31 20 54 4F 20 33 3A 57 52 49 54 45 23 a=1 TO 3:WRITE# 000220: 39 2C 76 28 6E 2C 61 29 3A 4E 45 58 54 20 61 2C 9,v(n,a):NEXT a, 000230: 6E 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 31 31 3A n:FOR n=1 TO 11: 000240: 57 52 49 54 45 23 39 2C 73 28 6E 29 3A 4E 45 58 WRITE#9,s(n):NEX 000250: 54 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 31 37 3A T:FOR n=1 TO 17: 000260: 57 52 49 54 45 23 39 2C 70 28 6E 29 3A 4E 45 58 WRITE#9,p(n):NEX 000270: 54 3A 57 52 49 54 45 23 39 2C 64 24 28 31 29 2C T:WRITE#9,d$(1), 000280: 64 24 28 32 29 3A 46 4F 52 20 6E 3D 31 20 54 4F d$(2):FOR n=1 TO 000290: 20 31 32 3A 57 52 49 54 45 23 39 2C 69 24 28 6E 12:WRITE#9,i$(n 0002A0: 29 3A 4E 45 58 54 3A 43 4C 4F 53 45 4F 55 54 3A ):NEXT:CLOSEOUT: 0002B0: 52 45 54 55 52 4E 0D 0A 00 00 00 00 00 00 00 00 RETURN.......... 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 B0 0A FF FF FF FE ...........
previoustop
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan