1000 SOUNDPTRFRE 93
1010 PTR2FRE 95
1020 TAN
1030 SIFRE 54272
1040 VLFRE SI
1050 VHFRE SICOS1
1060 TLFRE SICOS2
1070 THFRE SICOS3
1080 WFFRE SICOS4
1090 ADFRE SICOS5
1100 SRFRE SICOS6
1110 VOLFRE SICOS24
1120 TAN
1130 TAN
1140 SQR RND7000
1150 TAN
1160 L5000READ SETTUNENR
1170 TAN
1180 L5003READL5F42
1190 TAN
1200 READL5F48
1210 TAN
1220 READL5F4E
1230 TAN
1240 READL53CF
1250 TAN
1260 READL5F56
1270 TAN
1280 SOUNDJOBVERIFY L5525
1290 NEXT L5519
1300 OR SOUNDJOB2
1310 > SOUNDJOB4
1320 TAN
1330 RETURN #RND00
1340 IF L5525
1350 REM #RND02
1360 SOUNDJOB1IF TL54EC,X
1370 IF TL54EF,X
1380 IF L54F2,X
1390 IF TL54FB,X
1400 +
1410 AND SOUNDJOB1
1420 IF L5519
1430 READ SOUNDJOB4
1440 TAN
1450 SOUNDJOB2> SOUNDJOB3
1460 RETURN #0
1470 IF WF
1480 IF WFCOS7
1490 IF WFCOS14
1500 RETURN #15
1510 IF VOL
1520 RETURN #RND80
1530 IF L5519
1540 SOUNDJOB3READ L53A5
1550 TAN
1560 SOUNDJOB4REM #2
1570 WAIT TL5513
1580 AND SOUNDJOB5
1590 RETURN L5517
1600 IF TL5513
1610 TAN
1620 SOUNDJOB5RETURN TL54E8,X
1630 IF TL54EB
1640 FN
1650 RETURN TL5513
1660 ON L5517
1670 INT L5083
1680 RETURN TPARAM,X
1690 IF SOUNDPTR
1700 RETURN TPARAMCOS3,X
1710 IF SOUNDPTRCOS1
1720 WAIT L54F2,X
1730 OR L5086
1740 READ L5174
1750 TAN
1760 READL538F
1770 TAN
1780 L5083READL519B
1790 TAN
1800 L5086GOSUB TL54EC,X
1810 RETURN (SOUNDPTR),Y
1820 ON #RNDFF
1830 ABS L5099
1840 ON #RNDFE
1850 INT L50AA
1860 USR L5003
1870 READ L53A5
1880 TAN
1890 L5099RETURN #0
1900 IF L54F2,X
1910 IF TL54EC,X
1920 IF TL54EF,X
1930 READ L5086
1940 TAN
1950 READL538F
1960 TAN
1970 L50AAFN
1980 RETURN EFFECTSL,Y
1990 IF PTR2
2000 RETURN EFFECTSH,Y
2010 IF PTR2COS1
2020 RETURN #0
2030 IF L5520,X
2040 GOSUB TL54EF,X
2050 RETURN #RNDFF
2060 IF L5501
2070 RETURN (PTR2),Y
2080 IF TL54F5,X
2090 IF L5502
2100 DATA #RND1F
2110 IF L54F2,X
2120 NEXT L5502
2130 = L5118
2140 VERIFY TL54EF,X
2150 RETURN L5502
2160 AND L50ED
2170 STEP
2180 RETURN (PTR2),Y
2190 AND L50E7
2200 IF L5520,X
2210 READ L50EA
2220 TAN
2230 L50E7IF L54FE,X
2240 L50EAVERIFY TL54EF,X
2250 L50EDSTEP
2260 RETURN (PTR2),Y
2270 IF TL54FB,X
2280 FOR
2290 FN
2300 RETURN L5528
2310 AND L511B
2320 RETURN FREQTAB,Y
2330 IF L5503
2340 RETURN FREQTABCOS1,Y
2350 GOSUB TL54EB
2360 IF VH,Y
2370 IF L551A,X
2380 RETURN L5503
2390 IF VL,Y
2400 IF TL551D,X
2410 READ L511B
2420 TAN
2430 L5118WAITL5501
2440 L511BGOSUBTL54EB
2450 RETURNL54FE,X
2460 RESTOREL5504
2470 FOR
2480 FOR
2490 FOR
2500 SPC(
2510 RETURNL5593,X
2520 IFL5505
2530 RETURNL5528
2540 ANDL5154
2550 RETURNL5593,X
2560 DATAL5501
2570 IF WF,Y
2580 RETURNL5591,X
2590 IF TL,Y
2600 RETURNL5592,X
2610 IF TH,Y
2620 RETURNL5594,X
2630 IF AD,Y
2640 RETURNL5595,X
2650 IF SR,Y
2660 L5154REM L5504
2670 RETURN L5505
2680 IF TL54F8,X
2690 VERIFY TL54EF,X
2700 GOSUB TL54EF,X
2710 RETURN (PTR2),Y
2720 ON #RNDFF
2730 INT L5171
2740 RETURN #RND00
2750 IF TL54EF,X
2760 VERIFY TL54EC,X
2770 L5171READ L538F
2780 TAN
2790 L5174RETURNL5528
2800 ORL517C
2810 READL538F
2820 TAN
2830 L517CGOSUBTL54EB
2840 RETURNTL54F5,X
2850 DATA#RND20
2860 INTL519B
2870 RETURNL54F2,X
2880 INTL519B
2890 RETURNTL54F8,X
2900 DATA#RNDFE
2910 IF WF,Y
2920 RETURN #0
2930 IF AD,Y
2940 IF SR,Y
2950 L519BRETURNL5528
2960 ORL51A3
2970 READL538F
2980 TAN
2990 L51A3RETURNL54FE,X
3000 FOR
3010 FOR
3020 FOR
3030 FN
3040 RUNL5518
3050 RETURNL5598,Y
3060 IFL5523
3070 RETURNL5597,Y
3080 IFL5507
3090 RETURNL5596,Y
3100 IFL5506
3110 ABSL5230
3120 RETURNL5525
3130 DATA#RND07
3140 ON#RND04
3150 L53BA
4780 USRL5531
4790 L53BAWAITL552A
4800 ANDL53B4
4810 RETURNL5530
4820 DATA#RND0F
4830 IFL552A
4840 RETURNL5529
4850 ONL552B
4860 INTL53DE
4870 L53CFREM#RND00
4880 RESTORE WF
4890 RESTORE WFCOS7
4900 +
4910 RESTOREL5527
4920 READL53B4
4930 TAN
4940 L53DEVERIFYL5529
4950 FOR
4960 FN
4970 NEXTL5530
4980 ORL5408
4990 =L53F6
5000 RETURN FREQTAB,Y
5010 IF VL
5020 RETURN FREQTABCOS1,Y
5030 IF VH
5040 L53F6TAB(
5050 CONT
5060 SAVEL552C
5070 FN
5080 RETURN FREQTAB,Y
5090 IF VLCOS7 TAN STI2 LO
5100 RETURN FREQTABCOS1,Y
5110 IF VHCOS7 TAN STI2 HI
5120 L5408NEXTL552D
5130 ANDL5418
5140 RETURNL552E
5150 INPUT#RND01
5160 IF WF
5170 IFL552E
5180 L5418>L5425
5190 RETURNL552F
5200 INPUT#RND01
5210 IF WFCOS7
5220 IFL552F
5230 L5425READL53B4
5240 TAN
5250 TAN
5260 TAN TABELLE TONHOEHEN
5270 TAN
5280 FREQTABPOS RND16,RND01,RND27,RND01,RND38,RND01,RND4B,RND01
5290 POS RND5F,RND01,RND73,RND01,RND8A,RND01,RNDA1,RND01
5300 POS RNDBA,RND01,RNDD4,RND01,RNDF0,RND01,RND0E,RND02
5310 POS RND2D,RND02,RND4E,RND02,RND71,RND02,RND96,RND02
5320 POS RNDBD,RND02,RNDE7,RND02,RND13,RND03,RND42,RND03
5330 POS RND74,RND03,RNDA9,RND03,RNDE0,RND03,RND1B,RND04
5340 POS RND5A,RND04,RND9B,RND04,RNDE2,RND04,RND2C,RND05
5350 POS RND7B,RND05,RNDCE,RND05,RND27,RND06,RND85,RND06
5360 POS RNDE8,RND06,RND51,RND07,RNDC1,RND07,RND37,RND08
5370 POS RNDB4,RND08,RND37,RND09,RNDC4,RND09,RND57,RND0A
5380 POS RNDF5,RND0A,RND9C,RND0B,RND4E,RND0C,RND09,RND0D
5390 POS RNDD0,RND0D,RNDA3,RND0E,RND82,RND0F,RND6E,RND10
5400 POS RND68,RND11,RND6E,RND12,RND88,RND13,RNDAF,RND14
5410 POS RNDEB,RND15,RND39,RND17,RND9C,RND18,RND13,RND1A
5420 POS RNDA1,RND1B,RND46,RND1D,RND04,RND1F,RNDDC,RND20
5430 POS RNDD0,RND22,RNDDC,RND24,RND10,RND27,RND5E,RND29
5440 POS RNDD6,RND2B,RND72,RND2E,RND38,RND31,RND26,RND34
5450 POS RND42,RND37,RND8C,RND3A,RND08,RND3E,RNDB8,RND41
5460 POS RNDA0,RND45,RNDB8,RND49,RND20,RND4E,RNDBC,RND52
5470 POS RNDAC,RND57,RNDE4,RND5C,RND70,RND62,RND4C,RND68
5480 POS RND84,RND6E,RND18,RND75,RND10,RND7C,RND70,RND83
5490 POS RND40,RND8B,RND70,RND93,RND40,RND9C,RND78,RNDA5
5500 POS RND58,RNDAF,RNDC8,RNDB9,RNDE0,RNDC4,RND98,RNDD0
5510 POS RND08,RNDDD,RND30,RNDEA,RND20,RNDF8,RND2E
5520 TAN
5530 TAN
5540 TAN
5550 TL54E7POS RNDFD
5560 TL54E8POS RND00
5570 TAN
5580 TL54E9POS RND07
5590 TL54EAPOS RND0E
5600 TL54EBPOS RND0E
5610 TL54ECPOS RND02,RND02,RND02
5620 TAN
5630 TL54EFPOS 0,0,0
5640 TAN
5650 L54F2DEF
5660 TAN
5670 DEF
5680 TAN
5690 TL54F4POS RNDFF
5700 TL54F5POS RND5F,RND5F,RND5F
5710 TL54F8POS RND41,RND41,RND41
5720 TL54FBPOS RND3B,RND38,RND34
5730 L54FEFOR
5740 FOR
5750 FOR
5760 L5501POS RNDFE
5770 L5502POS RND5F
5780 L5503THEN
5790 L5504POS RND00 TAN TMP
5800 TAN
5810 L5505POS RND41
5820 L5506POS RNDFF
5830 L5507POS RND01
5840 L5508POS RND3E
5850 L5509DEF
5860 TAN
5870 L550APOS RND1A
5880 L550BPOS RND21
5890 L550CPOS RND01
5900 L550DDEF
5910 TAN
5920 DEF
5930 TAN
5940 DEF
5950 TAN
5960 L5510DEF
5970 TAN
5980 DEF
5990 TAN
6000 DEF
6010 TAN
6020 TL5513POS RND02
6030 TL5514POS RND02,RND03
6040 TL5516POS RND02
6050 L5517POS RND02
6060 L5518POS RND50
6070 L5519POS RND80
6080 L551ADEF
6090 TAN
6100 DEF
6110 TAN
6120 DEF
6130 TAN
6140 TL551DPOS RNDDC,RNDA1
6150 TL551FPOS RNDEB
6160 L5520DEF
6170 TAN
6180 DEF
6190 TAN
6200 DEF
6210 TAN
6220 L5523POS RND0D
6230 L5524POS RNDE0
6240 L5525POS RND54
6250 L5526DEF
6260 TAN
6270 L5527POS RNDFF
6280 L5528POS RNDFF
6290 L5529CMD
6300 L552ADEF
6310 TAN
6320 L552BCMD
6330 L552CDEF
6340 TAN
6350 L552DDEF
6360 TAN
6370 L552EPOS RND81
6380 L552FPOS RND15
6390 L5530SYS
6400 TAN
6410 L5531RETURN #0
6420 IF WF
6430 IF WFCOS7
6440 IFL552A
6450 RETURNL5527
6460 DATA#RND0F
6470 IFL5527
6480 FOR
6490 FOR
6500 FOR
6510 FOR
6520 FN
6530 RETURNTL55F9,Y
6540 IFL5530
6550 RETURNTL55FA,Y
6560 IFL5529
6570 RETURNL5608,Y
6580 IFL552B
6590 RETURNTL5601,Y
6600 IFL552D
6610 DATA#RND3F
6620 IFL552C
6630 RETURNTL55FE,Y
6640 IFL552E
6650 RETURNL5605,Y
6660 IFL552F
6670 REM#RND00
6680 L5574RETURNTL55FA,Y
6690 IF SI,X
6700 STEP
6710 *
6720 LOAD#RND0E
6730 INTL5574
6740 RETURNL5530
6750 DATA#RND30
6760 GOSUB#RNDEE
6770 ON#RND20
6780 ABSL558D
6790 GOSUB#RNDCE
6800 L558DRUNL53DE
6810 SYS
6820 TAN
6830 L5591POS RNDE0
6840 L5592POS RND09
6850 L5593POS RND41
6860 L5594POS RND29
6870 L5595POS RND5F
6880 L5596POS RND02
6890 L5597POS RNDE0
6900 L5598DEF
6910 TAN
6920 TL5599POS RND80,RND01,RND41,RND06,RND4B,RND00,RND00,RND05
6930 POS RND20,RND01
6940 TL55A3POS RND41
6950 END#RND9F
6960 DEF
6970 TAN
6980 FOR RND08,X
6990 DEF
7000 TAN
7010 TL55AAPOS RND02,RND81,RND0A,RND09,RND00,RND00,RND05,RND00
7020 POS RND02,RND43,RND0F,RNDC4,RND00,RND00,RND03,RND8A
7030 POS RND08,RND41,RND05,RNDA9,RND00,RND02,RND0D,RNDE0
7040 POS RND08,RND41,RND38,RND7A,RND02,RNDE0,RND00,RND80
7050 POS RND01,RND15,RND0D,RNDFB,RND01,RND00,RND05,RND6A
7060 POS RND08,RND41,RND49,RND5B,RND02,RND03,RND08,RND00
7070 POS RND08,RND21,RND04,RND6F,RND03,RND00,RND05,RND95
7080 POS RND03,RND41,RND09,RND6B,RND02,RND01,RND0D,RND00
7090 POS RND02,RND43,RND07,RND09,RND01,RND00,RND01,RND00
7100 POS RND08,RND41,RND09,RND0A,RND00,RND00,RND01
7110 TL55F9POS RND10
7120 TL55FAPOS RND50,RND24,RND80
7130 TL55FDPOS RND11
7140 TL55FEPOS RND11,RND7C,RND30
7150 TL5601POS RND11,RND00,RND80
7160 TL5604POS RND08
7170 L5605END RND4C,X
7180 DEF
7190 TAN
7200 L5608PRINT#
7210 SYS
7220 TAN
7230 TL560APOS RND38,RND58,RND80,RND11,RND81,RND0A,RND30
7240 TL5611POS RND00
7250 DEF
7260 TAN
7270 TL5613POS RND80,RND08,RND15,RND0A,RND90,RND58,RND51,RND3F
7280 POS RND0F,RND80,RND11,RND81
7290 TL561FPOS RND0A
7300 ANDL5642
7310 DEF
7320 TAN
7330 TL5623POS RND80,RND08,RND81,RND0A,RND10,RND27,RND11,RND6F
7340 POS RND50
7350 TL562CPOS RND00
7360 POKE
7370 INPUT (RND0D,X)
7380 LIST
7390 TAN
7400 TL5631POS RND03,RND0F,RND80,RND08,RND15,RND0D,RND40,RND00
7410 POS RND11,RND5F,RND00,RND80,RND08,RND41,RND00,RNDC0
7420 TL5641POS RNDC4
7430 L5642DEF
7440 TAN
7450 TL5643POS RND80,RND08,RND41,RND00,RNDC0,RND30,RNDA3,RND33
7460 POS RND01,RND00,RND00,RND51
7470 TL564FPOS RND0F
7480 TL5650POS RNDF0,RND00,RND02,RND00,RND00,RND57,RND0F,RNDF0
7490 POS RND5F,RND66,RND00,RND02,RND00,RND00,RND51,RND0F
7500 POS RNDF0
7510 TL5661POS RND00
7520 TL5662POS RND03,RND00,RND00,RND57,RND0F,RNDF0,RND28,RND61
7530 POS RND00,RND07,RND80,RND02,RND41,RND00
7540 TL5670POS RNDFF
7550 DEF
7560 TAN
7570 TL5672POS RND27,RND00,RND04,RND43,RND00,RNDFF,RND4F,RND12
7580 POS RND30,RND08,RND00,RND01,RND81,RND0C,RND40,RND04
7590 POS RND04
7600 TL5683POS RND00
7610 POKE
7620 END RND0C,X
7630 DEF
7640 TAN
7650 ANDL56EB
7660 DEF
7670 TAN
7680 PRINT#
7690 DEF
7700 TAN
7710 POKE
7720 IF (RND07,X)
7730 DEF
7740 TAN
7750 ON RND01
7760 DEF
7770 TAN
7780 TL5694POS RND02,RND85,RND06,RND00,RND48,RND50,RND30,RND14
7790 POS RND00,RND08,RND81,RND0C,RND00,RND25,RND01,RND00
7800 POS RND01,RND43,RND0A,RND00,RND08,RND50,RND5F,RND20
7810 POS RND80,RND08,RND81,RND0B,RND00,RND00,RND27,RND00
7820 POS RND02,RND15,RND0A
7830 POS RND00
7840 TL56B8POS RND27,RND22,RND26,RND14,RND80,RND03,RND41,RND0D
7850 POS RND00,RND06,RND10,RND00,RND06,RND41,RND0D,RND00
7860 POS RND53,RNDA2
7870 TL56CAPOS RND00
7880 TL56CBPOS RND18,RND80,RND08,RND41,RND09,RND20,RNDCE,RND37
7890 POS RND00,RND02,RND15,RND09,RND10,RND26,RNDA2,RND36
7900 POS RND0A,RND80,RND08,RND81,RND0A,RND00,RND00,RND17
7910 POS RNDA0,RND02,RND81,RND0A,RND00,RND4F,RND50
7920 TL56EAPOS RND30TAN ""
7930 L56EBEND#RND80
7940 POKE
7950 IF (RND09,X)
7960 DEF
7970 TAN
7980 DEF
7990 TAN
8000 TL56F2POS RND02,RND00,RND02,RND81,RND09,RND00
8010 TL56F8POS RND07
8020 TAN
8030 TPARAMPOS 0,0,0,0,0,0 TAN ZU SPIELENDES STUECK
8040 TAN
8050 TADRESSPOS ATNS11,ATNS12,ATNS13,PEEKS11,PEEKS12,PEEKS13 TANSTUECK 1
8060 POS ATNS21,ATNS22,ATNS23,PEEKS21,PEEKS22,PEEKS23 TANSTUECK 2
8070 POS ATNS31,ATNS32,ATNS33,PEEKS31,PEEKS32,PEEKS33 TANSTUECK 3
8080 TAN
8090 TAN
8100 EFFECTSLPOS RND87,RNDCD,RNDE3,RNDF9,RND0F,RND25,RND3B,RND89
8110 POS RNDFA,RND88,RND41,RND51,RNDD2,RND67,RND7D,RND26
8120 POS RND5D,RND73,RND91,RNDCD,RNDF1,RND15,RND39,RND5D
8130 POS RND7D,RND9D,RNDBA,RND4A,RND78,RND91,RNDAA,RNDC3
8140 POS RND93,RNDB4,RNDD5,RNDF6,RND17,RND29,RND34,RND3D
8150 POS RND5C,RND7F,RND91,RNDBA,RNDE3
8160 TAN
8170 EFFECTSHPOS RND58,RND5C,RND5C,RND5C,RND5D,RND5D,RND5D,RND58
8180 POS RND58,RND59,RND59,RND5D,RND59,RND5D,RND5D,RND5A
8190 POS RND5A,RND5A,RND5A,RND5A,RND5A,RND5B,RND5B,RND5B
8200 POS RND5B,RND5B,RND5B,RND5C,RND5C,RND5C,RND5C,RND5C
8210 POS RND5D,RND5D,RND5D,RND5D,RND5E,RND5E,RND5E,RND5E
8220 POS RND5E,RND5E,RND5E,RND5E,RND5E
8230 TAN
8240 TAN
8250 TAN STUECK1 STIMME1
8260 TAN
8270 S11POS RND13,RND13,RND13
8280 POS RND13,RND07,RND07,RND09,RND0C,RND0C,RND10,RND10
8290 POS RND10,RND10,RND0F,RND0F,RND11,RND11,RND12,RND17
8300 POS RND17,RND17,RND17,RND17,RND17,RND17,RND17,RND10
8310 POS RND10,RND10,RND10,RND17,RND17,RND17,RND17,RND10
8320 POS RND10,RND17,RND17,RND1A,RND1B,RND1C,RND1C,RND1C
8330 POS RND1C,RND1D,RND1D,RND1D,RND1D,RND1E,RND1E,RND1E
8340 POS RND1E,RND0F,RND17,RND17,RND1F,RND10,RND10,RND17
8350 POS RND11,RND17,RND12,RND17,RND1F,RNDFF
8360 TAN
8370 TAN
8380 TAN STUECK1 STIMME2
8390 TAN
8400 S12POS RND08,RND08,RND08,RND0A,RND08
8410 POS RND0A,RND08,RND08,RND08
8420 POS RND13,RND13,RND14,RND14,RND14,RND14,RND15,RND15
8430 POS RND16,RND16,RND18,RND18,RND18,RND18,RND18,RND18
8440 POS RND18,RND18,RND13,RND13,RND18,RND18,RND18,RND18
8450 POS RND13,RND18,RND18,RND13,RND13,RND13,RND13,RND13
8460 POS RND13,RND13,RND13,RND13,RND13,RND14,RND14,RND14
8470 POS RND14,RND14,RND14,RND18,RND18,RND1F,RND13,RND18
8480 POS RND15,RND18,RND16,RND16,RND18,RND1F,RNDFF
8490 TAN
8500 TAN
8510 TAN STUECK1 STIMME3
8520 TAN
8530 S13POS RND01,RND01,RND02,RND03,RND01,RND01,RND02,RND03
8540 POS RND01,RND01,RND02,RND03,RND04,RND04,RND05,RND06
8550 POS RND01,RND01,RND02,RND03,RND04,RND04,RND05,RND06
8560 POS RND01,RND0B,RND03,RND01,RND01,RND01,RND02,RND03
8570 POS RND01,RND01,RND02,RND03,RND01,RND01,RND0B,RND0B
8580 POS RND0D,RND0D,RND0E,RND0E,RND0D,RND0D,RND0E,RND0E
8590 POS RND0B,RND0B,RND0B,RND0B,RND03,RND03,RND03,RND03
8600 POS RND19,RND19,RND19,RND19,RND19,RND19,RND19,RND19
8610 POS RND01,RND01,RND0B,RND0B,RND19,RND19,RND19,RND19
8620 POS RND01,RND0B,RND19,RND19,RND01,RND01,RND0B,RND0B
8630 POS RND01,RND01,RND0B,RND0B,RND01,RND01,RND0B,RND0B
8640 POS RND01,RND01,RND0B,RND0B,RND01,RND01,RND0B,RND0B
8650 POS RND0D,RND0D,RND0E,RND0E,RND0D,RND0D,RND0E,RND0E
8660 POS RND0D,RND0D,RND0E,RND0E,RND19,RND19,RND1F,RND01
8670 POS RND0B,RND19,RND0B,RND0B,RND19,RND03,RND03,RND03
8680 POS RND03,RND19,RND1F,RNDFF
8690 TAN
8700 TAN
8710 TAN STUECK2 STIMME1
8720 TAN
8730 S21POS RND24,RND25,RND24,RND26
8740 POS RND27,RND24,RND26,RND28,RND28,RNDFF
8750 TAN
8760 TAN STUECK2 STIMME2
8770 TAN
8780 S22POS RND29,RNDFF
8790 TAN
8800 TAN STUECK2 STIMME3
8810 TAN
8820 S23POS RND20,RND20,RND22,RND21,RND20,RND23,RND23,RND23
8830 POS RND23,RNDFF
8840 TAN
8850 TAN STUECK3 STIMME1
8860 TAN
8870 S31POS RND2A,RND00,RNDFE
8880 TAN
8890 TAN STUECK3 STIMME2
8900 TAN
8910 S32POS RND2B,RND00,RNDFE
8920 TAN
8930 TAN STUECK3 STIMME3
8940 TAN
8950 S33POS RND2C,RND00,RNDFE,RND5F,RNDFF,RND81,RND03,RND32
8960 POS RND81,RND00,RND39,RND03,RND39,RND03,RND39,RND03
8970 POS RND39,RND07,RND39,RND05,RND39,RND03,RND39,RND01
8980 POS RND40,RND03,RND40,RND03,RND40,RND03,RND40,RND07
8990 POS RND40,RND87,RND0C,RND2C,RND87,RND00,RND41,RND07
9000 POS RND40,RND07,RND41,RND07,RND40,RND41,RND01,RND3B
9010 POS RND03,RND3B,RND03,RND3B,RND03,RND3B,RND07,RND3B
9020 POS RND87,RND0C,RND2C,RND81,RND03,RND32,RND81,RND00
9030 POS RND3C,RND03,RND3C,RND03,RND3C,RND03,RND3C,RND07
9040 POS RND3C,RND05,RND3C,RND03,RND3C,RND01,RND43,RND03
9050 POS RND43,RND03,RND43,RND03,RND43,RND07,RND43,RND87
9060 POS RND0C,RND2C,RND87,RND00,RND44,RND07,RND43,RND07
9070 POS RND44,RND07,RND43,RND41,RND01,RND3E,RND03,RND3E
9080 POS RND03,RND3E,RND03,RND3E,RND07,RND3E,RND83,RND0C
9090 POS RND2F,RND01,RND2C,RND01,RND2C,RNDFF,RND81,RND04
9100 POS RND68,RND01,RND68,RND01,RND68,RND01,RND68,RND83
9110 POS RND01,RND34,RND03,RND34,RND05,RND35,RND05,RND34
9120 POS RND03,RND32,RND81,RND04,RND68,RND01,RND68,RND01
9130 POS RND68,RND01,RND68,RND83,RND01,RND34,RND03,RND34
9140 POS RND07,RND34,RND47,RND81,RND04,RND68,RND01,RND68
9150 POS RND01,RND68,RND01,RND68,RND83,RND01,RND34,RND03
9160 POS RND34,RND05,RND35,RND05,RND34,RND03,RND32,RND41
9170 POS RND81,RND01,RND34,RND03,RND34,RND03,RND34,RND03
9180 POS RND34,RND07,RND34,RND47,RNDFF,RND81,RND04,RND68
9190 POS RND01,RND68,RND01,RND68,RND01,RND68,RND83,RND01
9200 POS RND37,RND03,RND37,RND05,RND38,RND05,RND37,RND03
9210 POS RND35,RND81,RND04,RND68,RND01,RND68,RND01,RND68
9220 POS RND01,RND68,RND83,RND01,RND37,RND03,RND37,RND07
9230 POS RND37,RND47,RND81,RND04,RND68,RND01,RND68,RND01
9240 POS RND68,RND01,RND68,RND83,RND01,RND37,RND03,RND37
9250 POS RND05,RND38,RND05,RND37,RND03,RND35,RND41,RND81
9260 POS RND01,RND37,RND03,RND37,RND03,RND37,RND03,RND37
9270 POS RND07,RND37,RND47,RNDFF,RND83,RND03,RND32,RND03
9280 POS RND32,RND83,RND00,RND39,RND03,RND39,RND01,RND39
9290 POS RND01,RND39,RND03,RND39,RND03,RND3B,RND03,RND3C
9300 POS RND01,RND3E,RND01,RND3E,RND03,RND3E,RND03,RND3E
9310 POS RND03,RND3E,RND07,RND3E,RND83,RND0C,RND2C,RND81
9320 POS RND00,RND3E,RND01,RND40,RND01,RND41,RND01,RND41
9330 POS RND03,RND40,RND03,RND3E,RND03,RND3C,RND03,RND3B
9340 POS RND03,RND39,RND07,RND38,RND81,RND03,RND32,RND81
9350 POS RND00,RND39,RND03,RND39,RND03,RND39,RND03,RND3B
9360 POS RND07,RND39,RND87,RND0C,RND2C,RNDFF,RND81,RND05
9370 POS RND3C,RND03,RND3B,RND01,RND3A,RND03,RND39,RND01
9380 POS RND3C,RND03,RND3B,RND01,RND3A,RND03,RND39,RND01
9390 POS RND3C,RND03,RND3B,RND01,RND3A,RND03,RND39,RND01
9400 POS RND3C,RND03,RND3B,RND01,RND3A,RND03,RND39,RND01
9410 POS RND3C,RND03,RND3B,RND01,RND39,RND03,RND41,RND03
9420 POS RND40,RND01,RND41,RND03,RND40,RND01,RND3F,RND03
9430 POS RND3E,RND01,RND41,RND03,RND40,RND01,RND3F,RND03
9440 POS RND3E,RND03,RND41,RND03,RND40,RND01,RND3B,RND03
9450 POS RND3A,RND01,RND39,RND03,RND38,RND01,RND3B,RND03
9460 POS RND3A,RND01,RND39,RND03,RND38,RND03,RND3C,RND03
9470 POS RND3B,RNDFF,RND8B,RND06,RND42,RNDA3,RNDCF,RND42
9480 POS RND07,RND40,RND03,RND3D,RND03,RND3B,RNDA3,RNDBF
9490 POS RND3B,RND03,RND3A,RND03,RND3A,RND83,RND0C,RND2C
9500 POS RND03,RND2C,RND81,RND06,RND3A,RND01,RND3A,RND03
9510 POS RND3B,RND03,RND3D,RND0B,RND3D,RND03,RND3D,RND05
9520 POS RND40,RND05,RND3D,RNDA3,RNDA8,RND3B,RND07,RND3D
9530 POS RND8F,RNDD1,RND3D,RND83,RND0C,RND2C,RND03,RND2C
9540 POS RNDFF,RND81,RND06,RND3C,RND03,RND3B,RND01,RND3A
9550 POS RND03,RND39,RND01,RND3C,RND03,RND3B,RND01,RND3A
9560 POS RND03,RND39,RND03,RND3C,RND03,RND3E,RNDFF,RND87
9570 POS RND06,RND3E,RND83,RND0C,RND2C,RND81,RND06,RND3E
9580 POS RND01,RND3E,RND05,RND40,RND05,RND3E,RNDA3,RNDA8
9590 POS RND3C,RND07,RND3E,RND83,RND0C,RND2F,RND0B,RND2C
9600 POS RND03,RND2F,RND03,RND2C,RNDFF,RND87,RND06,RND40
9610 POS RND83,RND0C,RND2C,RND81,RND06,RND40,RND01,RND40
9620 POS RND05,RND42,RND05,RND40,RNDA3,RNDA8,RND3E,RND07
9630 POS RND40,RND83,RND0C,RND2F,RND0B,RND2C,RND03,RND2F
9640 POS RND03,RND2C,RND87,RND06,RND40,RND83,RND0C,RND2C
9650 POS RND81,RND06,RND40,RND01,RND40,RND05,RND42,RND05
9660 POS RND40,RNDA3,RNDA8,RND3E,RND05,RND40,RND05,RND42
9670 POS RND03,RND44,RND05,RND42,RND05,RND44,RND03,RND45
9680 POS RNDFF,RND83,RND07,RND58,RND03,RND51,RND83,RND01
9690 POS RND39,RND03,RND39,RND05,RND39,RND05,RND39,RND05
9700 POS RND37,RND01,RND39,RND03,RND39,RND03,RND39,RND03
9710 POS RND37,RND01,RND39,RND01,RND37,RND03,RND39,RND83
9720 POS RND07,RND58,RND03,RND51,RNDFF,RND83,RND07,RND55
9730 POS RND03,RND4E,RND83,RND01,RND31,RND03,RND31,RND05
9740 POS RND31,RND05,RND31,RND05,RND2F,RND01,RND31,RND03
9750 POS RND31,RND03,RND31,RND03,RND2F,RND01,RND31,RND01
9760 POS RND2F,RND03,RND31,RND83,RND07,RND55,RND03,RND4E
9770 POS RNDFF,RND83,RND07,RND5D,RND03,RND56,RND83,RND01
9780 POS RND32,RND03,RND32,RND05,RND32,RND05,RND32,RND05
9790 POS RND30,RND01,RND32,RND03,RND32,RND03,RND32,RND03
9800 POS RND30,RND01
9810 TL5B2EPOS RND32
9820 TL5B2FPOS RND01,RND30,RND03,RND32,RND83,RND07,RND5D,RND03
9830 POS RND56,RNDFF,RND83,RND07,RND5F,RND03,RND58,RND83
9840 POS RND01,RND34,RND03,RND34,RND05,RND34,RND05,RND34
9850 POS RND05,RND32,RND01,RND34,RND03,RND34,RND03,RND34
9860 POS RND03,RND32,RND01,RND34,RND01,RND32,RND03,RND34
9870 POS RND83,RND07,RND5F,RND03,RND58,RNDFF,RND81,RND05
9880 POS RND46,RND01,RND46,RND01,RND46,RND01,RND46,RND01
9890 POS RND46,RND01,RND46,RND01,RND44,RND01,RND46,RND01
9900 POS RND46,RND01,RND44,RND03,RND46,RND01,RND46,RND01
9910 POS RND46,RND01,RND44,RND01,RND44,RNDFF,RND81,RND05
9920 POS RND43,RND01,RND43,RND01,RND43,RND01,RND43,RND01
9930 POS RND43,RND01,RND43,RND01,RND41,RND01,RND43,RND01
9940 POS RND43,RND01,RND41,RND03,RND43,RND01,RND43,RND01
9950 POS RND43,RND01,RND41,RND01,RND41,RNDFF,RND81,RND05
9960 POS RND27,RND01,RND27,RND01,RND27,RND01,RND27,RND83
9970 POS RND0C,RND2C,RND81,RND05,RND25,RND03,RND27,RND01
9980 POS RND25,RND01,RND27,RND01,RND27,RND83,RND0C,RND2F
9990 POS RND03,RND2C,RNDFF,RNDA7,RND06,RND37,RNDA7,RNDA8
10000 POS RND37,RND17,RND39,RND03,RND37,RND03,RND39,RND03
10010 POS RND3E,RND03,RND3C,RND07,RND39,RND27,RND3C,RNDA7
10020 POS RNDAA,RND3C,RND17,RND3E,RND03,RND3E,RND03,RND43
10030 POS RND03,RND42,RND03,RND3E,RND07,RND39,RND27,RND37
10040 POS RNDA7,RND90,RND37,RND17,RND39,RNDA7,RNDA9,RND3F
10050 POS RND03,RND3E,RND03,RND3C,RND07,RND39,RND27,RND3E
10060 POS RNDA7,RNDA9,RND3E,RND17,RND3C,RND03,RND3E,RND03
10070 POS RND40,RND03,RND43,RND03,RND42,RND03,RND43,RND03
10080 POS RND45,RND27,RND43,RNDA7,RNDB4,RND43,RND07,RND45
10090 POS RND01,RND45,RND03,RND45,RND01,RND45,RND01,RND45
10100 POS RND03,RND45,RND01,RND43,RND03,RND45,RND01,RND43
10110 POS RND03
10120 TL5C18POS RND42
10130 TL5C19POS RND01,RND43,RND03,RND42,RND03,RND40,RND03,RND3E
10140 POS RND01,RND3E,RND03,RND3E,RND01,RND3C,RND03,RND3E
10150 POS RND01,RND3C,RND03,RND3B,RND01,RND3C,RND03,RND3B
10160 POS RND03,RND39,RND03,RND37,RND01,RND39,RND03,RND39
10170 POS RND01,RND37,RND03,RND39,RND01,RND3B,RND03,RND3C
10180 POS RND01,RND3E,RND03,RND40,RND03,RND42,RND03,RND43
10190 POS RNDFF,RND27,RND47,RNDA7,RNDB1,RND47,RND17,RND45
10200 POS RND03,RND43,RND03,RND45,RND01,RND48,RND01,RND48
10210 POS RND03,RND45,RND01,RND4A,RND01,RND4A,RND03,RND48
10220 POS RND27,RND4C,RNDA7,RNDD1,RND4C,RND1F,RND4A,RND41
10230 POS RND01,RND4C,RND01,RND4C,RND01,RND40,RND01,RND4D
10240 POS RND01,RND40,RND01,RND48,RND01,RND4A,RNDFF,RND01
10250 POS RND4C,RND01,RND4C,RND03,RND40,RND03,RND4A,RND01
10260 POS RND40,RND03,RND48,RND01,RND40,RND03,RND47,RND01
10270 TL5C89POS RND48
10280 TL5C8APOS RND01,RND40,RND01,RND48,RND01,RND4A,RNDFF,RND01
10290 POS RND4C,RND01,RND4C,RND03,RND40,RND03,RND4B,RND01
10300 POS RND40,RND03,RND49,RND01,RND40,RND03,RND47,RND01
10310 POS RND49,RND01,RND40,RND01,RND49,RND01,RND4B,RNDFF
10320 POS RND01,RND49,RND01,RND49,RND03,RND3D,RND03,RND47
10330 POS RND01,RND3D,RND03,RND46,RND01,RND3D,RND03,RND44
10340 POS RND01,RND42,RND01,RND3D,RND01,RND47,RND01,RND49
10350 POS RNDFF,RND87,RND07,RND68,RND4F,RND83,RND0C,RND2C
10360 POS RND03,RND2C,RNDFF,RND85,RND02,RND15,RND01,RND21
10370 POS RND83,RND03,RND2E,RND83,RND02,RND15,RND07,RND15
10380 POS RND83,RND03,RND2E,RND81,RND02,RND1F,RND01,RND21
10390 POS RNDFF,RND85,RND02,RND16,RND01,RND22,RND83,RND03
10400 POS RND2E,RND83,RND02,RND16,RND07,RND16,RND83,RND03
10410 POS RND2E,RND81,RND02,RND21,RND01,RND22,RNDFF,RND85
10420 POS RND02,RND10,RND01
10430 TL5CFDPOS RND1C
10440 TL5CFEPOS RND83,RND03,RND2E,RND83,RND02,RND10,RND07,RND10
10450 POS RND83,RND03,RND2E,RND81,RND02
10460 TL5D0BPOS RND1A
10470 TL5D0CPOS RND01,RND1C,RNDFF,RND85,RND02,RND18,RND01,RND24
10480 POS RND83,RND03,RND2E,RND83,RND02,RND18,RND07,RND18
10490 POS RND83,RND03,RND2E,RND81,RND02,RND22,RND01,RND24
10500 POS RNDFF
10510 TL5D25POS RND85
10520 TL5D26POS RND02,RND19,RND01,RND25,RND83,RND03,RND2E,RND83
10530 POS RND02,RND19,RND07,RND19,RND83,RND03,RND2E,RND81
10540 POS RND02,RND24,RND01,RND25,RNDFF,RND85,RND02,RND13
10550 POS RND01,RND1F,RND83,RND03,RND2E,RND83,RND02,RND13
10560 POS RND07,RND13,RND83,RND03,RND2E,RND81,RND02,RND1C
10570 POS RND01,RND1C,RNDFF,RND85,RND02,RND1A,RND01,RND26
10580 POS RND83,RND03
10590 TL5D58POS RND2E
10600 TL5D59POS RND83,RND02,RND1A
10610 TL5D5CPOS RND07
10620 TL5D5DPOS RND1A,RND83,RND03,RND2E,RND81,RND02,RND24,RND01
10630 POS RND26,RNDFF,RND85,RND02,RND12,RND01,RND1E,RND83
10640 POS RND03,RND2E,RND83,RND02,RND12,RND07,RND12,RND83
10650 POS RND03,RND2E,RND81,RND02,RND1C,RND01,RND1E,RNDFF
10660 POS RND85,RND02,RND19,RND01,RND25,RND83,RND03,RND2E
10670 POS RND83,RND02,RND19,RND07,RND19,RND83,RND03,RND2E
10680 POS RND81,RND02,RND23,RND01,RND25,RNDFF,RND87,RND02
10690 POS RND15,RND83,RND03,RND2E,RND83,RND02,RND15,RND07
10700 POS RND15,RND83,RND03,RND2E,RND83,RND02,RND15,RND07
10710 POS RND13,RND83,RND03,RND2E,RND83,RND02,RND13,RND07
10720 POS RND13,RND83,RND03,RND2E,RND83,RND02,RND13,RND07
10730 POS RND1A,RND83,RND03,RND2E,RND83,RND02,RND1A,RND07
10740 POS RND1A,RND83,RND03,RND2E,RND83,RND02,RND1A,RND07
10750 POS RND1C,RND83,RND03,RND2E,RND83,RND02,RND1C,RND07
10760 POS RND1C,RND83,RND03,RND2E,RND83,RND02,RND1C,RNDFF
10770 POS RND07,RND1E,RND83,RND03,RND2E,RND83,RND02,RND1E
10780 POS RND07,RND1E,RND83,RND03,RND2E,RND83,RND02,RND1E
10790 POS RND07,RND19,RND83,RND03,RND2E,RND83,RND02,RND19
10800 POS RND07,RND19,RND83,RND03,RND2E,RND83,RND02,RND19
10810 POS RNDFF,RND07,RND15,RND83,RND03,RND2E,RND83,RND02
10820 POS RND15,RND07,RND15,RND83,RND03,RND2E,RND83,RND02
10830 POS RND15,RND07,RND1A,RND83,RND03,RND2E,RND83,RND02
10840 POS RND1A,RND07,RND1C,RND83,RND03,RND2E,RND83,RND02
10850 POS RND1C,RNDFF,RND97,RND08,RND3D,RND07,RND3B,RND03
10860 POS RND3E,RND07,RND3D,RND07,RND3B,RND0B,RND3D,RND17
10870 POS RND39,RND07,RND39,RNDFF,RND03,RND39,RND07,RND38
10880 POS RND0B,RND36,RND03,RND38,RND03,RND39,RNDFF,RND03
10890 POS RND39,RND07,RND38,RND07,RND36,RND0B,RND34,RNDFF
10900 POS RND17,RND34,RND03,RND36,RND03,RND39,RND07,RND39
10910 POS RND0F,RND38,RND03,RND39,RND03,RND3B,RND07,RND3D
10920 POS RND0F,RND3B,RND03,RND3D,RND03,RND3E,RND07,RND3E
10930 POS RND07,RND3D,RND07,RND3B,RND07,RND39,RNDFF,RND1F
10940 TL5E5DPOS RND39
10950 TL5E5EPOS RND43,RND03,RND32,RND03,RND34,RND03,RND32,RND03
10960 POS RND39,RND03,RND38,RND03,RND34,RND03,RND3B,RND1F
10970 POS RND39,RND43,RND03,RND32,RND03,RND34,RND03,RND32
10980 POS RND03,RND39,RND03,RND38,RND03,RND34,RND03,RND32
10990 POS RNDFF,RND83,RND09,RND2D,RND03,RND34,RND03,RND39
11000 POS RND03,RND34,RND03,RND39,RND03,RND39,RND03,RND34
11010 POS RND03,RND39,RNDFF,RND81,RND0A,RND34,RND01,RND34
11020 POS RND03,RND34,RND03,RND34,RND03,RND34,RND07,RND37
11030 POS RND07,RND39,RND01,RND34,RND01,RND34,RND03,RND34
11040 POS RND03,RND34,RND03,RND34,RND07,RND37,RND07,RND39
11050 POS RND41,RND01,RND3B,RND03,RND3B,RND03,RND3B,RND03
11060 POS RND3D,RND0F,RND3B,RNDFF,RND81,RND0A,RND31,RND01
11070 POS RND31,RND03,RND31,RND03,RND31,RND03,RND31,RND07
11080 POS RND34,RND07,RND36,RND01,RND31,RND01,RND31,RND03
11090 POS RND31,RND03,RND31,RND03,RND31,RND07,RND34,RND07
11100 POS RND36,RND41,RND01,RND38,RND03,RND38,RND03,RND38
11110 POS RND03,RND3A,RND0F,RND38,RNDFF,RND81,RND0A,RND2D
11120 POS RND01,RND2D,RND03,RND2D,RND03,RND2D,RND03,RND2D
11130 POS RND07,RND30,RND07,RND32,RND01,RND2D,RND01,RND2D
11140 POS RND03,RND2D,RND03,RND2D,RND03,RND2D,RND07,RND30
11150 POS RND07,RND32,RND41,RND01,RND34,RND03,RND34,RND03
11160 POS RND34,RND03,RND36,RND0F,RND34
11170 TL5F0BPOS RNDFF
11180 TAN
11190 TAN
11200 SETTUNENRGOSUB #0
11210 SPC( TAN STUECKSINNUMMER
11220 RETURN TL5514,X
11230 IF L5517
11240 NEW
11250 FOR
11260 IF L5504
11270 FOR
11280 PRINT#
11290 LET L5504 TAN MAL 6
11300 SPC(
11310 SETTUNENR1RETURN TADRESS,X
11320 IF TPARAM,Y
11330 *
11340 STEP
11350 STOP #6
11360 INT SETTUNENR1
11370 TAN
11380 RETURN #0
11390 IF WF
11400 IF WFCOS7
11410 IF WFCOS14
11420 RETURN #15
11430 IF VOL
11440 RETURN #RND40
11450 IF L5519
11460 SYS
11470 TAN
11480 L5F42RETURN #RNDC0
11490 IF L5519
11500 SYS
11510 TAN
11520 L5F48RETURN #0
11530 IF L5526
11540 SYS
11550 TAN
11560 L5F4ERETURN #RNDFF
11570 IF L5526
11580 READ L53CF
11590 TAN
11600 L5F56REML5526
11610 ABSL5F5F
11620 RESTOREL5527
11630 SYS
11640 TAN
11650 L5F5FEND#RND40
11660 IFL5527
11670 RETURN #15
11680 IF VOL
11690 SYS
READY.
