/ C64 Fever 92 #2 / C64_Fever_92-02_1992_-_de.d64 / 17 & 4 64 / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 47 4f 53 55 42 36 | 33 30 30 30 0a 32 20 52 |1 GOSUB6|3000.2 R|
|00000010| 45 4d 20 20 20 20 20 20 | 22 31 37 20 2b 20 34 22 |EM      |"17 + 4"|
|00000020| 0a 33 20 52 45 4d 20 49 | 44 45 45 3a 20 41 2e 20 |.3 REM I|DEE: A. |
|00000030| 57 45 49 4e 47 41 52 44 | 0a 34 20 52 45 4d 20 57 |WEINGARD|.4 REM W|
|00000040| 52 49 54 54 45 4e 20 4f | 4e 20 43 36 34 20 42 59 |RITTEN O|N C64 BY|
|00000050| 0a 35 20 52 45 4d 20 50 | 48 2e 20 42 45 52 54 53 |.5 REM P|H. BERTS|
|00000060| 43 48 47 0a 36 20 52 45 | 4d 20 3c 43 3e 20 31 39 |CHG.6 RE|M <C> 19|
|00000070| 38 33 0a 31 30 20 53 39 | 24 3d 22 c1 da d3 d8 22 |83.10 S9|$="...."|
|00000080| 0a 32 30 20 43 38 24 3d | 22 32 33 34 35 36 37 38 |.20 C8$=|"2345678|
|00000090| 39 54 42 44 4b 41 22 0a | 33 30 20 43 39 24 3d 22 |9TBDKA".|30 C9$="|
|000000a0| 20 32 20 33 20 34 20 35 | 20 36 20 37 20 38 20 39 | 2 3 4 5| 6 7 8 9|
|000000b0| 31 30 31 30 31 30 31 30 | 31 31 22 0a 34 30 20 47 |10101010|11".40 G|
|000000c0| 4f 53 55 42 35 37 30 30 | 30 0a 35 30 20 47 4f 53 |OSUB5700|0.50 GOS|
|000000d0| 55 42 35 38 30 30 30 0a | 36 30 20 50 4f 4b 45 35 |UB58000.|60 POKE5|
|000000e0| 39 34 36 38 2c 31 32 0a | 31 30 30 20 50 52 49 4e |9468,12.|100 PRIN|
|000000f0| 54 22 93 00 0a 35 30 30 | 20 44 49 4d 43 28 35 32 |T"...500| DIMC(52|
|00000100| 29 2c 50 28 31 30 29 2c | 44 28 31 30 29 0a 36 30 |),P(10),|D(10).60|
|00000110| 30 20 44 49 4d 53 24 28 | 35 32 29 2c 43 24 28 35 |0 DIMS$(|52),C$(5|
|00000120| 32 29 0a 31 31 30 30 20 | 47 4f 53 55 42 32 34 30 |2).1100 |GOSUB240|
|00000130| 30 30 0a 31 32 30 30 20 | 54 3d 30 0a 31 35 30 30 |00.1200 |T=0.1500|
|00000140| 20 4a 38 3d 4a 0a 31 36 | 30 30 20 49 46 41 39 3c | J8=J.16|00 IFA9<|
|00000150| 34 54 48 45 4e 32 32 30 | 30 0a 31 38 30 30 20 47 |4THEN220|0.1800 G|
|00000160| 4f 53 55 42 32 34 30 30 | 30 0a 32 32 30 30 20 49 |OSUB2400|0.2200 I|
|00000170| 46 4a 3c 34 32 54 48 45 | 4e 32 37 30 30 0a 32 34 |FJ<42THE|N2700.24|
|00000180| 30 30 20 47 4f 53 55 42 | 32 34 30 30 30 0a 32 37 |00 GOSUB|24000.27|
|00000190| 30 30 20 50 52 49 4e 54 | 22 13 11 11 11 11 11 11 |00 PRINT|".......|
|000001a0| 11 11 11 11 11 11 11 57 | 49 45 56 49 45 4c 20 44 |.......W|IEVIEL D|
|000001b0| 4d 20 53 45 54 5a 45 4e | 20 53 49 45 22 3b 0a 32 |M SETZEN| SIE";.2|
|000001c0| 38 30 30 20 49 4e 50 55 | 54 42 31 0a 32 39 30 30 |800 INPU|TB1.2900|
|000001d0| 20 4b 24 3d 42 24 0a 33 | 30 30 30 20 49 46 42 31 | K$=B$.3|000 IFB1|
|000001e0| 3d 30 54 48 45 4e 32 33 | 30 30 30 0a 33 31 30 30 |=0THEN23|000.3100|
|000001f0| 20 49 46 42 31 3e 30 54 | 48 45 4e 33 37 30 30 0a | IFB1>0T|HEN3700.|
|00000200| 33 33 30 30 20 47 4f 53 | 55 42 32 34 30 30 30 0a |3300 GOS|UB24000.|
|00000210| 33 36 30 30 20 42 31 3d | 2d 42 31 0a 33 37 30 30 |3600 B1=|-B1.3700|
|00000220| 20 49 46 42 31 3e 3d 31 | 54 48 45 4e 34 30 30 30 | IFB1>=1|THEN4000|
|00000230| 0a 33 38 30 30 20 50 52 | 49 4e 54 22 4d 49 4e 44 |.3800 PR|INT"MIND|
|00000240| 45 53 54 45 4e 53 20 31 | 20 44 4d 20 53 45 54 5a |ESTENS 1| DM SETZ|
|00000250| 45 4e 21 00 0a 33 39 30 | 30 20 47 4f 54 4f 31 35 |EN!..390|0 GOTO15|
|00000260| 30 30 0a 34 30 30 30 20 | 49 46 42 31 3c 3d 32 35 |00.4000 |IFB1<=25|
|00000270| 30 30 30 54 48 45 4e 34 | 34 30 30 0a 34 30 30 35 |000THEN4|400.4005|
|00000280| 20 49 46 4d 31 3d 31 54 | 48 45 4e 34 30 30 32 30 | IFM1=1T|HEN40020|
|00000290| 0a 34 31 30 30 20 50 52 | 49 4e 54 22 13 11 11 11 |.4100 PR|INT"....|
|000002a0| 11 11 11 11 11 11 11 11 | 11 12 44 41 53 20 4c 49 |........|..DAS LI|
|000002b0| 4d 49 54 20 42 45 54 52 | 41 45 47 54 20 32 35 30 |MIT BETR|AEGT 250|
|000002c0| 30 30 20 44 4d 92 20 20 | 20 20 20 20 20 20 20 20 |00 DM.  |        |
|000002d0| 20 22 0a 34 31 35 30 20 | 50 52 49 4e 54 22 20 20 | ".4150 |PRINT"  |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000300| 20 20 20 20 20 20 11 22 | 0a 34 32 30 30 20 47 4f |      ."|.4200 GO|
|00000310| 54 4f 32 37 30 30 0a 34 | 34 30 30 20 50 3d 30 3a |TO2700.4|400 P=0:|
|00000320| 44 3d 30 3a 50 39 3d 30 | 3a 44 39 3d 30 0a 34 35 |D=0:P9=0|:D9=0.45|
|00000330| 30 30 20 56 3d 30 0a 34 | 39 30 30 20 48 3d 30 0a |00 V=0.4|900 H=0.|
|00000340| 35 30 30 30 20 50 52 49 | 4e 54 22 93 00 0a 35 30 |5000 PRI|NT"...50|
|00000350| 35 30 20 4d 31 3d 31 0a | 35 31 30 30 20 47 4f 53 |50 M1=1.|5100 GOS|
|00000360| 55 42 33 30 30 30 30 0a | 35 33 30 30 20 47 4f 53 |UB30000.|5300 GOS|
|00000370| 55 42 33 31 33 30 30 0a | 35 34 30 30 20 47 4f 53 |UB31300.|5400 GOS|
|00000380| 55 42 35 36 30 30 30 3a | 52 45 4d 46 52 45 3d 31 |UB56000:|REMFRE=1|
|00000390| 32 30 39 23 37 2d 37 38 | 2d 30 31 23 0a 35 35 30 |209#7-78|-01#.550|
|000003a0| 30 20 4a 31 3d 4a 0a 35 | 35 35 30 20 4d 31 3d 32 |0 J1=J.5|550 M1=2|
|000003b0| 0a 35 36 30 30 20 47 4f | 53 55 42 33 30 30 30 30 |.5600 GO|SUB30000|
|000003c0| 0a 35 38 30 30 20 47 4f | 53 55 42 33 31 33 30 30 |.5800 GO|SUB31300|
|000003d0| 0a 35 38 38 35 20 20 20 | 20 0a 35 39 30 30 20 47 |.5885   | .5900 G|
|000003e0| 4f 53 55 42 33 36 30 30 | 30 0a 36 30 30 30 20 49 |OSUB3600|0.6000 I|
|000003f0| 46 50 3d 32 31 54 48 45 | 4e 36 36 30 30 0a 36 31 |FP=21THE|N6600.61|
|00000400| 30 30 20 49 46 44 3c 32 | 31 54 48 45 4e 38 30 30 |00 IFD<2|1THEN800|
|00000410| 30 0a 36 31 33 30 20 4d | 31 3d 31 0a 36 31 35 30 |0.6130 M|1=1.6150|
|00000420| 20 47 4f 53 55 42 33 36 | 30 30 30 0a 36 32 30 30 | GOSUB36|000.6200|
|00000430| 20 4b 24 3d 22 91 91 12 | 43 36 34 92 20 48 41 54 | K$="...|C64. HAT|
|00000440| 20 31 37 20 55 4e 44 20 | 34 22 0a 36 34 30 30 20 | 17 UND |4".6400 |
|00000450| 47 4f 53 55 42 33 34 38 | 30 30 0a 36 35 30 30 20 |GOSUB348|00.6500 |
|00000460| 47 4f 54 4f 32 31 35 30 | 30 0a 36 36 30 30 20 4d |GOTO2150|0.6600 M|
|00000470| 31 3d 31 0a 36 36 31 30 | 20 47 4f 53 55 42 33 36 |1=1.6610| GOSUB36|
|00000480| 30 30 30 0a 36 36 32 30 | 20 49 46 44 3c 32 31 54 |000.6620| IFD<21T|
|00000490| 48 45 4e 37 31 30 30 0a | 36 37 30 30 20 4b 24 3d |HEN7100.|6700 K$=|
|000004a0| 22 91 91 57 49 52 20 42 | 45 49 44 45 20 48 41 42 |"..WIR B|EIDE HAB|
|000004b0| 45 4e 20 31 37 20 55 4e | 44 20 34 22 0a 36 39 30 |EN 17 UN|D 4".690|
|000004c0| 30 20 47 4f 53 55 42 33 | 34 38 30 30 0a 37 30 30 |0 GOSUB3|4800.700|
|000004d0| 30 20 47 4f 54 4f 32 30 | 36 30 30 0a 37 31 30 30 |0 GOTO20|600.7100|
|000004e0| 20 4b 24 3d 22 91 91 53 | 49 45 20 48 41 42 45 4e | K$="..S|IE HABEN|
|000004f0| 20 31 37 20 55 4e 44 20 | 34 22 0a 37 33 30 30 20 | 17 UND |4".7300 |
|00000500| 47 4f 53 55 42 33 34 38 | 30 30 0a 37 34 30 30 20 |GOSUB348|00.7400 |
|00000510| 42 31 3d 31 2e 35 2a 42 | 31 0a 37 35 30 30 20 47 |B1=1.5*B|1.7500 G|
|00000520| 4f 54 4f 32 30 39 30 30 | 0a 38 30 30 30 20 49 46 |OTO20900|.8000 IF|
|00000530| 50 3c 32 32 54 48 45 4e | 39 32 30 30 0a 38 32 30 |P<22THEN|9200.820|
|00000540| 30 20 4b 24 3d 22 91 91 | 53 49 45 20 48 41 42 45 |0 K$="..|SIE HABE|
|00000550| 4e 20 53 49 43 48 20 54 | 4f 54 47 45 4b 41 55 46 |N SICH T|OTGEKAUF|
|00000560| 54 22 0a 38 33 30 30 20 | 47 4f 53 55 42 33 34 38 |T".8300 |GOSUB348|
|00000570| 30 30 0a 38 34 35 30 20 | 4d 31 3d 31 0a 38 35 30 |00.8450 |M1=1.850|
|00000580| 30 20 47 4f 53 55 42 33 | 36 30 30 30 0a 38 36 30 |0 GOSUB3|6000.860|
|00000590| 30 20 4d 31 3d 32 0a 39 | 31 30 30 20 47 4f 54 4f |0 M1=2.9|100 GOTO|
|000005a0| 32 31 35 30 30 0a 39 32 | 30 30 20 49 46 56 3d 30 |21500.92|00 IFV=0|
|000005b0| 54 48 45 4e 39 34 30 30 | 0a 39 33 30 30 20 47 4f |THEN9400|.9300 GO|
|000005c0| 54 4f 31 37 36 30 30 0a | 39 34 30 30 20 4b 24 3d |TO17600.|9400 K$=|
|000005d0| 22 91 57 4f 4c 4c 45 4e | 20 53 49 45 20 4e 4f 43 |".WOLLEN| SIE NOC|
|000005e0| 48 20 45 49 4e 45 20 4b | 41 52 54 45 22 0a 39 35 |H EINE K|ARTE".95|
|000005f0| 30 30 20 47 4f 53 55 42 | 33 34 38 30 30 0a 39 36 |00 GOSUB|34800.96|
|00000600| 30 30 20 50 52 49 4e 54 | 22 12 3f 9d 92 22 3b 3a |00 PRINT|".?..";:|
|00000610| 46 4f 52 49 3d 31 54 4f | 31 35 30 3a 4e 45 58 54 |FORI=1TO|150:NEXT|
|00000620| 0a 39 36 35 30 20 50 52 | 49 4e 54 22 20 9d 22 3b |.9650 PR|INT" .";|
|00000630| 3a 46 4f 52 49 3d 31 54 | 4f 31 35 30 3a 4e 45 58 |:FORI=1T|O150:NEX|
|00000640| 54 0a 39 36 37 30 20 47 | 45 54 41 24 3a 49 46 41 |T.9670 G|ETA$:IFA|
|00000650| 24 3d 22 22 54 48 45 4e | 39 36 30 30 0a 39 37 30 |$=""THEN|9600.970|
|00000660| 30 20 49 46 41 24 3d 22 | 4a 22 54 48 45 4e 31 34 |0 IFA$="|J"THEN14|
|00000670| 39 30 30 0a 39 38 30 30 | 20 49 46 41 24 3d 22 44 |900.9800| IFA$="D|
|00000680| 22 54 48 45 4e 31 34 37 | 30 30 0a 31 30 30 30 30 |"THEN147|00.10000|
|00000690| 20 4b 24 3d 22 91 20 20 | 20 20 20 20 20 20 20 20 | K$=".  |        |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 22 0a 31 30 30 |        |   ".100|
|000006b0| 35 30 20 47 4f 53 55 42 | 33 34 38 30 30 0a 31 30 |50 GOSUB|34800.10|
|000006c0| 31 30 30 20 47 4f 54 4f | 31 37 36 30 30 0a 31 34 |100 GOTO|17600.14|
|000006d0| 37 30 30 20 42 31 3d 32 | 2a 42 31 0a 31 34 38 30 |700 B1=2|*B1.1480|
|000006e0| 30 20 56 3d 31 0a 31 34 | 39 30 30 20 4b 24 3d 42 |0 V=1.14|900 K$=B|
|000006f0| 24 0a 31 34 39 35 30 20 | 4d 31 3d 4d 31 2b 31 0a |$.14950 |M1=M1+1.|
|00000700| 31 35 30 30 30 20 47 4f | 53 55 42 33 30 30 30 30 |15000 GO|SUB30000|
|00000710| 0a 31 35 32 30 30 20 47 | 4f 54 4f 38 30 30 30 0a |.15200 G|OTO8000.|
|00000720| 31 37 36 30 30 20 4d 31 | 3d 31 0a 31 37 36 35 30 |17600 M1|=1.17650|
|00000730| 20 47 4f 53 55 42 33 36 | 30 30 30 0a 31 37 36 36 | GOSUB36|000.1766|
|00000740| 30 20 4d 31 3d 32 0a 31 | 37 37 30 30 20 49 46 44 |0 M1=2.1|7700 IFD|
|00000750| 3e 31 36 54 48 45 4e 32 | 30 30 30 30 0a 31 37 37 |>16THEN2|0000.177|
|00000760| 35 30 20 4d 31 3d 4d 31 | 2b 31 0a 31 37 38 30 30 |50 M1=M1|+1.17800|
|00000770| 20 47 4f 53 55 42 33 31 | 33 30 30 0a 31 37 39 30 | GOSUB31|300.1790|
|00000780| 30 20 47 4f 53 55 42 33 | 36 30 30 30 0a 31 38 30 |0 GOSUB3|6000.180|
|00000790| 30 30 20 47 4f 54 4f 31 | 37 37 30 30 0a 32 30 30 |00 GOTO1|7700.200|
|000007a0| 30 30 20 49 46 44 3c 3d | 32 31 54 48 45 4e 32 30 |00 IFD<=|21THEN20|
|000007b0| 34 30 30 0a 32 30 31 30 | 30 20 4b 24 3d 22 91 91 |400.2010|0 K$="..|
|000007c0| 44 45 52 20 43 36 34 20 | 48 41 54 20 53 49 43 48 |DER C64 |HAT SICH|
|000007d0| 20 54 4f 54 47 45 4b 41 | 55 46 54 20 2d 2d 2d 2d | TOTGEKA|UFT ----|
|000007e0| 2d 2d 2d 2d 2d 2d 20 20 | 53 49 45 20 48 41 42 45 |------  |SIE HABE|
|000007f0| 4e 20 44 41 48 45 52 20 | 12 47 45 57 4f 4e 4e 45 |N DAHER |.GEWONNE|
|00000800| 4e 92 22 0a 32 30 31 35 | 30 20 50 52 49 4e 54 22 |N.".2015|0 PRINT"|
|00000810| 13 11 11 11 11 11 11 11 | 11 11 11 11 22 3b 4b 24 |........|....";K$|
|00000820| 3b 22 11 22 0a 32 30 32 | 30 30 20 52 45 4d 2a 2a |;".".202|00 REM**|
|00000830| 47 4f 53 55 42 33 34 38 | 30 30 0a 32 30 33 30 30 |GOSUB348|00.20300|
|00000840| 20 47 4f 54 4f 32 31 31 | 30 30 0a 32 30 34 30 30 | GOTO211|00.20400|
|00000850| 20 49 46 44 3c 50 54 48 | 45 4e 32 30 39 30 30 0a | IFD<PTH|EN20900.|
|00000860| 32 30 35 30 30 20 49 46 | 44 3e 50 54 48 45 4e 32 |20500 IF|D>PTHEN2|
|00000870| 31 35 30 30 0a 32 30 36 | 30 30 20 4b 24 3d 22 57 |1500.206|00 K$="W|
|00000880| 49 52 20 48 41 42 45 4e | 20 4b 41 52 54 45 4e 2d |IR HABEN| KARTEN-|
|00000890| 47 4c 45 49 43 48 53 54 | 41 4e 44 21 22 0a 32 30 |GLEICHST|AND!".20|
|000008a0| 37 30 30 20 47 4f 53 55 | 42 33 34 38 30 30 0a 32 |700 GOSU|B34800.2|
|000008b0| 30 38 30 30 20 47 4f 54 | 4f 32 31 38 30 30 0a 32 |0800 GOT|O21800.2|
|000008c0| 30 39 30 30 20 4b 24 3d | 22 53 49 45 20 48 41 42 |0900 K$=|"SIE HAB|
|000008d0| 45 4e 20 53 4f 45 42 45 | 4e 20 20 12 47 45 57 4f |EN SOEBE|N  .GEWO|
|000008e0| 4e 4e 45 4e 92 21 22 0a | 32 31 30 30 30 20 47 4f |NNEN.!".|21000 GO|
|000008f0| 53 55 42 33 34 38 30 30 | 0a 32 31 31 30 30 20 54 |SUB34800|.21100 T|
|00000900| 3d 54 2b 42 31 0a 32 31 | 32 30 30 20 47 4f 54 4f |=T+B1.21|200 GOTO|
|00000910| 32 31 38 30 30 0a 32 31 | 34 30 30 20 47 4f 53 55 |21800.21|400 GOSU|
|00000920| 42 33 34 38 30 30 0a 32 | 31 35 30 30 20 4b 24 3d |B34800.2|1500 K$=|
|00000930| 22 53 49 45 20 48 41 42 | 45 4e 20 47 45 52 41 44 |"SIE HAB|EN GERAD|
|00000940| 45 20 12 56 45 52 4c 4f | 52 45 4e 92 21 22 0a 32 |E .VERLO|REN.!".2|
|00000950| 31 36 30 30 20 47 4f 53 | 55 42 33 34 38 30 30 0a |1600 GOS|UB34800.|
|00000960| 32 31 37 30 30 20 54 3d | 54 2d 42 31 0a 32 31 38 |21700 T=|T-B1.218|
|00000970| 30 30 20 50 52 49 4e 54 | 0a 32 31 38 35 30 20 49 |00 PRINT|.21850 I|
|00000980| 46 54 3e 30 54 48 45 4e | 32 32 32 30 30 0a 32 31 |FT>0THEN|22200.21|
|00000990| 39 30 30 20 49 46 54 3c | 30 54 48 45 4e 32 32 34 |900 IFT<|0THEN224|
|000009a0| 30 30 0a 32 32 30 30 30 | 20 50 52 49 4e 54 22 91 |00.22000| PRINT".|
|000009b0| 91 49 48 52 20 4b 4f 4e | 54 4f 53 54 41 4e 44 20 |.IHR KON|TOSTAND |
|000009c0| 49 53 54 20 41 55 53 47 | 45 47 4c 49 43 48 45 4e |IST AUSG|EGLICHEN|
|000009d0| 20 28 4e 55 4c 4c 29 22 | 0a 32 32 31 30 30 20 47 | (NULL)"|.22100 G|
|000009e0| 4f 54 4f 20 31 35 30 30 | 0a 32 32 32 30 30 20 50 |OTO 1500|.22200 P|
|000009f0| 52 49 4e 54 22 91 91 53 | 49 45 20 42 45 53 49 54 |RINT"..S|IE BESIT|
|00000a00| 5a 45 4e 20 4a 45 54 5a | 54 20 44 4d 20 20 20 22 |ZEN JETZ|T DM   "|
|00000a10| 3b 54 0a 32 32 33 30 30 | 20 47 4f 54 4f 31 35 30 |;T.22300| GOTO150|
|00000a20| 30 0a 32 32 34 30 30 20 | 50 52 49 4e 54 22 91 91 |0.22400 |PRINT"..|
|00000a30| 49 48 52 45 20 53 43 48 | 55 4c 44 45 4e 20 42 45 |IHRE SCH|ULDEN BE|
|00000a40| 54 52 41 47 45 4e 20 44 | 4d 22 2c 2d 54 0a 32 32 |TRAGEN D|M",-T.22|
|00000a50| 35 30 30 20 47 4f 54 4f | 31 35 30 30 0a 32 33 30 |500 GOTO|1500.230|
|00000a60| 30 30 20 50 52 49 4e 54 | 22 93 00 0a 32 33 30 35 |00 PRINT|"...2305|
|00000a70| 30 20 49 46 54 3d 30 54 | 48 45 4e 32 33 34 30 30 |0 IFT=0T|HEN23400|
|00000a80| 0a 32 33 31 30 30 20 49 | 46 54 3c 30 54 48 45 4e |.23100 I|FT<0THEN|
|00000a90| 32 33 36 30 30 0a 32 33 | 32 30 30 20 50 52 49 4e |23600.23|200 PRIN|
|00000aa0| 54 22 48 45 52 5a 4c 49 | 43 48 45 4e 20 47 4c 55 |T"HERZLI|CHEN GLU|
|00000ab0| 45 43 4b 57 55 4e 53 43 | 48 21 20 53 49 45 20 44 |ECKWUNSC|H! SIE D|
|00000ac0| 55 45 52 46 45 4e 11 22 | 0a 32 33 32 31 30 20 50 |UERFEN."|.23210 P|
|00000ad0| 52 49 4e 54 54 22 20 44 | 4d 20 4e 41 43 48 20 48 |RINTT" D|M NACH H|
|00000ae0| 41 55 53 45 20 54 52 41 | 47 45 4e 21 22 0a 32 33 |AUSE TRA|GEN!".23|
|00000af0| 33 30 30 20 47 4f 54 4f | 32 33 38 30 30 0a 32 33 |300 GOTO|23800.23|
|00000b00| 34 30 30 20 50 52 49 4e | 54 22 53 49 45 20 48 41 |400 PRIN|T"SIE HA|
|00000b10| 42 45 4e 20 4d 49 54 20 | 41 55 53 47 45 47 4c 49 |BEN MIT |AUSGEGLI|
|00000b20| 43 48 45 4e 45 4d 20 4b | 4f 4e 54 4f 53 54 41 4e |CHENEM K|ONTOSTAN|
|00000b30| 44 22 3a 50 52 49 4e 54 | 0a 32 33 34 34 30 20 50 |D":PRINT|.23440 P|
|00000b40| 52 49 4e 54 22 28 4e 55 | 4c 4c 29 20 44 41 53 20 |RINT"(NU|LL) DAS |
|00000b50| 53 50 49 45 4c 20 42 45 | 45 4e 44 45 54 2e 00 0a |SPIEL BE|ENDET...|
|00000b60| 32 33 34 35 30 20 47 4f | 54 4f 32 33 38 30 30 0a |23450 GO|TO23800.|
|00000b70| 32 33 36 30 30 20 50 52 | 49 4e 54 22 57 49 52 20 |23600 PR|INT"WIR |
|00000b80| 42 45 44 41 55 45 52 4e | 20 53 45 48 52 2c 20 41 |BEDAUERN| SEHR, A|
|00000b90| 42 45 52 20 53 49 45 20 | 56 45 52 4c 49 45 52 45 |BER SIE |VERLIERE|
|00000ba0| 4e 20 20 20 11 44 4d 22 | 3b 2d 54 22 11 00 0a 32 |N   .DM"|;-T"...2|
|00000bb0| 33 38 30 30 20 50 52 49 | 4e 54 22 11 56 49 45 4c |3800 PRI|NT".VIEL|
|00000bc0| 45 4e 20 44 41 4e 4b 20 | 46 55 45 52 53 20 4d 49 |EN DANK |FUERS MI|
|00000bd0| 54 53 50 49 45 4c 45 4e | 21 22 3a 45 4e 44 0a 32 |TSPIELEN|!":END.2|
|00000be0| 34 30 30 30 20 52 45 4d | 2a 4d 49 53 43 48 2d 52 |4000 REM|*MISCH-R|
|00000bf0| 4f 55 54 49 4e 45 0a 32 | 34 31 30 30 20 50 52 49 |OUTINE.2|4100 PRI|
|00000c00| 4e 54 22 13 11 11 11 11 | 11 11 11 11 11 11 11 11 |NT".....|........|
|00000c10| 11 49 43 48 20 4d 49 53 | 43 48 45 20 44 49 45 20 |.ICH MIS|CHE DIE |
|00000c20| 4b 41 52 54 45 4e 21 00 | 0a 32 35 30 30 30 20 46 |KARTEN!.|.25000 F|
|00000c30| 4f 52 49 3d 31 54 4f 34 | 0a 32 35 31 30 30 20 46 |ORI=1TO4|.25100 F|
|00000c40| 4f 52 4a 3d 31 54 4f 31 | 33 0a 32 35 32 30 30 20 |ORJ=1TO1|3.25200 |
|00000c50| 57 31 3d 31 33 2a 28 49 | 2d 31 29 2b 4a 0a 32 35 |W1=13*(I|-1)+J.25|
|00000c60| 33 30 30 20 53 24 28 57 | 31 29 3d 4d 49 44 24 28 |300 S$(W|1)=MID$(|
|00000c70| 53 39 24 2c 49 2c 31 29 | 0a 32 35 34 30 30 20 43 |S9$,I,1)|.25400 C|
|00000c80| 24 28 57 31 29 3d 4d 49 | 44 24 28 43 38 24 2c 4a |$(W1)=MI|D$(C8$,J|
|00000c90| 2c 31 29 0a 32 35 35 30 | 30 20 43 28 57 31 29 3d |,1).2550|0 C(W1)=|
|00000ca0| 56 41 4c 28 4d 49 44 24 | 28 43 39 24 2c 32 2a 4a |VAL(MID$|(C9$,2*J|
|00000cb0| 2d 31 2c 32 29 29 0a 32 | 35 36 30 30 20 4e 45 58 |-1,2)).2|5600 NEX|
|00000cc0| 54 4a 0a 32 35 37 30 30 | 20 4e 45 58 54 49 0a 32 |TJ.25700| NEXTI.2|
|00000cd0| 35 38 30 30 20 46 4f 52 | 49 3d 31 54 4f 35 32 0a |5800 FOR|I=1TO52.|
|00000ce0| 32 35 39 30 30 20 4a 3d | 35 32 2a 52 4e 44 28 31 |25900 J=|52*RND(1|
|00000cf0| 29 2b 31 0a 32 36 30 30 | 30 20 54 54 24 3d 53 24 |)+1.2600|0 TT$=S$|
|00000d00| 28 49 29 0a 32 36 31 30 | 30 20 53 24 28 49 29 3d |(I).2610|0 S$(I)=|
|00000d10| 53 24 28 4a 29 0a 32 36 | 32 30 30 20 53 24 28 4a |S$(J).26|200 S$(J|
|00000d20| 29 3d 54 54 24 0a 32 36 | 33 30 30 20 54 54 24 3d |)=TT$.26|300 TT$=|
|00000d30| 43 24 28 49 29 0a 32 36 | 34 30 30 20 43 24 28 49 |C$(I).26|400 C$(I|
|00000d40| 29 3d 43 24 28 4a 29 0a | 32 36 35 30 30 20 43 24 |)=C$(J).|26500 C$|
|00000d50| 28 4a 29 3d 54 54 24 0a | 32 36 36 30 30 20 54 54 |(J)=TT$.|26600 TT|
|00000d60| 3d 43 28 49 29 0a 32 36 | 37 30 30 20 43 28 49 29 |=C(I).26|700 C(I)|
|00000d70| 3d 43 28 4a 29 0a 32 36 | 38 30 30 20 43 28 4a 29 |=C(J).26|800 C(J)|
|00000d80| 3d 54 54 0a 32 36 39 30 | 30 20 4e 45 58 54 49 0a |=TT.2690|0 NEXTI.|
|00000d90| 32 39 34 30 30 20 41 39 | 3d 30 0a 32 39 35 30 30 |29400 A9|=0.29500|
|00000da0| 20 4a 3d 30 0a 32 39 36 | 30 30 20 4a 31 3d 32 0a | J=0.296|00 J1=2.|
|00000db0| 32 39 37 30 30 20 4a 38 | 3d 30 0a 32 39 38 30 30 |29700 J8|=0.29800|
|00000dc0| 20 52 45 54 55 52 4e 0a | 33 30 30 30 30 20 4a 3d | RETURN.|30000 J=|
|00000dd0| 4a 2b 31 0a 33 30 31 30 | 30 20 50 28 4d 31 29 3d |J+1.3010|0 P(M1)=|
|00000de0| 4a 0a 33 30 32 30 30 20 | 49 46 43 28 4a 29 3c 31 |J.30200 |IFC(J)<1|
|00000df0| 31 54 48 45 4e 33 30 36 | 30 30 0a 33 30 33 30 30 |1THEN306|00.30300|
|00000e00| 20 50 39 3d 50 39 2b 31 | 0a 33 30 34 30 30 20 41 | P9=P9+1|.30400 A|
|00000e10| 39 3d 41 39 2b 31 0a 33 | 30 36 30 30 20 50 3d 50 |9=A9+1.3|0600 P=P|
|00000e20| 2b 43 28 4a 29 0a 33 30 | 37 30 30 20 49 46 50 3c |+C(J).30|700 IFP<|
|00000e30| 32 32 54 48 45 4e 33 31 | 31 30 30 0a 33 30 38 30 |22THEN31|100.3080|
|00000e40| 30 20 49 46 50 39 3d 30 | 54 48 45 4e 33 31 31 30 |0 IFP9=0|THEN3110|
|00000e50| 30 0a 33 30 39 30 30 20 | 50 3d 50 2d 31 30 0a 33 |0.30900 |P=P-10.3|
|00000e60| 31 30 30 30 20 50 39 3d | 50 39 2d 31 0a 33 31 31 |1000 P9=|P9-1.311|
|00000e70| 30 30 20 50 52 49 4e 54 | 22 13 11 11 11 11 11 11 |00 PRINT|".......|
|00000e80| 11 11 11 11 11 11 11 22 | 0a 33 31 31 35 30 20 47 |......."|.31150 G|
|00000e90| 4f 54 4f 33 39 30 30 30 | 0a 33 31 33 30 30 20 4a |OTO39000|.31300 J|
|00000ea0| 3d 4a 2b 31 0a 33 31 34 | 30 30 20 44 28 4d 31 29 |=J+1.314|00 D(M1)|
|00000eb0| 3d 4a 0a 33 31 35 30 30 | 20 49 46 43 28 4a 29 3c |=J.31500| IFC(J)<|
|00000ec0| 31 31 54 48 45 4e 33 31 | 39 30 30 0a 33 31 36 30 |11THEN31|900.3160|
|00000ed0| 30 20 44 39 3d 44 39 2b | 31 0a 33 31 37 30 30 20 |0 D9=D9+|1.31700 |
|00000ee0| 41 39 3d 41 39 2b 31 0a | 33 31 39 30 30 20 44 3d |A9=A9+1.|31900 D=|
|00000ef0| 44 2b 43 28 4a 29 0a 33 | 32 30 30 30 20 49 46 44 |D+C(J).3|2000 IFD|
|00000f00| 3c 32 32 54 48 45 4e 33 | 32 34 30 30 0a 33 32 31 |<22THEN3|2400.321|
|00000f10| 30 30 20 49 46 44 39 3d | 30 54 48 45 4e 33 32 34 |00 IFD9=|0THEN324|
|00000f20| 30 30 0a 33 32 32 30 30 | 20 44 3d 44 2d 31 30 0a |00.32200| D=D-10.|
|00000f30| 33 32 33 30 30 20 44 39 | 3d 44 39 2d 31 0a 33 32 |32300 D9|=D9-1.32|
|00000f40| 34 30 30 20 52 45 54 55 | 52 4e 0a 33 33 33 30 30 |400 RETU|RN.33300|
|00000f50| 20 46 4f 52 49 3d 31 54 | 4f 35 32 0a 33 33 34 30 | FORI=1T|O52.3340|
|00000f60| 30 20 50 28 49 29 3d 30 | 0a 33 33 35 30 30 20 44 |0 P(I)=0|.33500 D|
|00000f70| 28 49 29 3d 30 0a 33 33 | 36 30 30 20 4e 45 58 54 |(I)=0.33|600 NEXT|
|00000f80| 49 0a 33 33 37 30 30 20 | 52 45 54 55 52 4e 0a 33 |I.33700 |RETURN.3|
|00000f90| 33 38 30 30 20 46 4f 52 | 49 3d 31 54 4f 35 32 0a |3800 FOR|I=1TO52.|
|00000fa0| 33 33 39 30 30 20 50 52 | 49 4e 54 43 24 28 49 29 |33900 PR|INTC$(I)|
|00000fb0| 2b 53 24 28 49 29 3b 0a | 33 34 30 30 30 20 4e 45 |+S$(I);.|34000 NE|
|00000fc0| 58 54 49 0a 33 34 31 30 | 30 20 50 52 49 4e 54 0a |XTI.3410|0 PRINT.|
|00000fd0| 33 34 36 30 30 20 52 45 | 54 55 52 4e 0a 33 34 38 |34600 RE|TURN.348|
|00000fe0| 30 30 20 50 52 49 4e 54 | 22 13 11 11 11 11 11 11 |00 PRINT|".......|
|00000ff0| 11 11 11 11 11 22 3b 0a | 33 34 38 35 30 20 50 52 |.....";.|34850 PR|
|00001000| 49 4e 54 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |INT"    |        |
|00001010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001020| 20 20 20 20 20 20 20 20 | 20 22 0a 33 34 39 30 30 |        | ".34900|
|00001030| 20 50 52 49 4e 54 4b 24 | 3b 0a 33 35 30 30 30 20 | PRINTK$|;.35000 |
|00001040| 52 45 54 55 52 4e 0a 33 | 36 30 30 30 20 50 35 3d |RETURN.3|6000 P5=|
|00001050| 30 0a 33 36 35 30 30 20 | 50 52 49 4e 54 22 13 22 |0.36500 |PRINT"."|
|00001060| 3b 0a 33 37 30 30 30 20 | 47 4f 54 4f 34 30 30 30 |;.37000 |GOTO4000|
|00001070| 30 0a 33 39 30 30 30 20 | 50 35 3d 31 0a 34 30 30 |0.39000 |P5=1.400|
|00001080| 30 30 20 46 4f 52 4c 3d | 31 54 4f 38 0a 34 30 30 |00 FORL=|1TO8.400|
|00001090| 30 35 20 49 46 4d 31 3d | 31 54 48 45 4e 34 30 30 |05 IFM1=|1THEN400|
|000010a0| 32 30 0a 34 30 30 31 30 | 20 46 4f 52 49 35 3d 31 |20.40010| FORI5=1|
|000010b0| 54 4f 4d 31 2d 31 0a 34 | 30 30 31 32 20 50 52 49 |TOM1-1.4|0012 PRI|
|000010c0| 4e 54 22 1d 1d 1d 1d 1d | 1d 1d 1d 22 3b 0a 34 30 |NT".....|...";.40|
|000010d0| 30 31 35 20 4e 45 58 54 | 49 35 0a 34 30 30 32 30 |015 NEXT|I5.40020|
|000010e0| 20 49 46 50 35 3d 31 54 | 48 45 4e 34 30 30 35 30 | IFP5=1T|HEN40050|
|000010f0| 0a 34 30 30 33 30 20 49 | 3d 44 28 4d 31 29 0a 34 |.40030 I|=D(M1).4|
|00001100| 30 30 34 30 20 47 4f 54 | 4f 34 30 32 30 30 0a 34 |0040 GOT|O40200.4|
|00001110| 30 30 35 30 20 49 3d 50 | 28 4d 31 29 0a 34 30 32 |0050 I=P|(M1).402|
|00001120| 30 30 20 50 52 49 4e 54 | 22 12 22 3b 0a 34 30 32 |00 PRINT|".";.402|
|00001130| 35 30 20 52 3d 43 28 49 | 29 0a 34 30 33 30 30 20 |50 R=C(I|).40300 |
|00001140| 49 46 4c 3e 31 54 48 45 | 4e 34 30 35 30 30 0a 34 |IFL>1THE|N40500.4|
|00001150| 30 34 30 30 20 47 4f 54 | 4f 35 31 30 30 30 0a 34 |0400 GOT|O51000.4|
|00001160| 30 35 30 30 20 49 46 4c | 3e 32 54 48 45 4e 34 32 |0500 IFL|>2THEN42|
|00001170| 38 30 30 0a 34 30 36 30 | 30 20 52 45 4d 0a 34 30 |800.4060|0 REM.40|
|00001180| 36 35 30 20 49 46 43 24 | 28 49 29 3d 22 54 22 54 |650 IFC$|(I)="T"T|
|00001190| 48 45 4e 34 31 35 30 30 | 0a 34 30 37 30 30 20 50 |HEN41500|.40700 P|
|000011a0| 52 49 4e 54 52 49 47 48 | 54 24 28 43 24 28 49 29 |RINTRIGH|T$(C$(I)|
|000011b0| 2c 31 29 3b 53 24 28 49 | 29 3b 22 20 20 20 20 20 |,1);S$(I|);"     |
|000011c0| 22 3b 0a 34 30 38 30 30 | 20 47 4f 54 4f 35 35 30 |";.40800| GOTO550|
|000011d0| 30 30 0a 34 31 35 30 30 | 20 50 52 49 4e 54 22 31 |00.41500| PRINT"1|
|000011e0| 30 22 3b 53 24 28 49 29 | 3b 22 20 20 20 20 22 3b |0";S$(I)|;"    ";|
|000011f0| 0a 34 32 37 35 30 20 47 | 4f 54 4f 35 35 30 30 30 |.42750 G|OTO55000|
|00001200| 0a 34 32 38 30 30 20 49 | 46 4c 3e 33 54 48 45 4e |.42800 I|FL>3THEN|
|00001210| 34 33 34 30 30 0a 34 32 | 39 30 30 20 49 46 43 28 |43400.42|900 IFC(|
|00001220| 49 29 3c 31 31 54 48 45 | 4e 34 33 30 30 30 0a 34 |I)<11THE|N43000.4|
|00001230| 32 39 35 30 20 47 4f 54 | 4f 35 31 30 30 30 0a 34 |2950 GOT|O51000.4|
|00001240| 33 30 30 30 20 49 46 43 | 28 49 29 3e 32 54 48 45 |3000 IFC|(I)>2THE|
|00001250| 4e 34 33 32 30 30 0a 34 | 33 31 30 30 20 47 4f 54 |N43200.4|3100 GOT|
|00001260| 4f 35 31 30 30 30 0a 34 | 33 32 30 30 20 49 46 43 |O51000.4|3200 IFC|
|00001270| 28 49 29 3e 33 54 48 45 | 4e 35 33 30 30 30 0a 34 |(I)>3THE|N53000.4|
|00001280| 33 32 35 30 20 47 4f 54 | 4f 35 32 30 30 30 0a 34 |3250 GOT|O52000.4|
|00001290| 33 34 30 30 20 49 46 4c | 3e 34 54 48 45 4e 34 34 |3400 IFL|>4THEN44|
|000012a0| 32 30 30 0a 34 33 35 30 | 30 20 49 46 43 28 49 29 |200.4350|0 IFC(I)|
|000012b0| 3c 31 31 54 48 45 4e 34 | 33 36 35 30 0a 34 33 36 |<11THEN4|3650.436|
|000012c0| 30 30 20 47 4f 54 4f 35 | 32 30 30 30 0a 34 33 36 |00 GOTO5|2000.436|
|000012d0| 35 30 20 49 46 43 28 49 | 29 3c 39 54 48 45 4e 34 |50 IFC(I|)<9THEN4|
|000012e0| 33 37 35 30 0a 34 33 37 | 30 30 20 47 4f 54 4f 35 |3750.437|00 GOTO5|
|000012f0| 34 30 30 30 0a 34 33 37 | 35 30 20 49 46 43 28 49 |4000.437|50 IFC(I|
|00001300| 29 3e 33 54 48 45 4e 34 | 33 38 35 30 0a 34 33 38 |)>3THEN4|3850.438|
|00001310| 30 30 20 47 4f 54 4f 35 | 32 30 30 30 0a 34 33 38 |00 GOTO5|2000.438|
|00001320| 35 30 20 49 46 43 28 49 | 29 3e 34 54 48 45 4e 34 |50 IFC(I|)>4THEN4|
|00001330| 33 39 30 30 0a 34 33 38 | 38 30 20 47 4f 54 4f 35 |3900.438|80 GOTO5|
|00001340| 31 30 30 30 0a 34 33 39 | 30 30 20 49 46 43 28 49 |1000.439|00 IFC(I|
|00001350| 29 3e 35 54 48 45 4e 34 | 34 30 30 30 0a 34 33 39 |)>5THEN4|4000.439|
|00001360| 37 30 20 47 4f 54 4f 35 | 32 30 30 30 0a 34 34 30 |70 GOTO5|2000.440|
|00001370| 30 30 20 49 46 43 28 49 | 29 3e 36 54 48 45 4e 34 |00 IFC(I|)>6THEN4|
|00001380| 34 31 30 30 0a 34 34 30 | 37 30 20 47 4f 54 4f 35 |4100.440|70 GOTO5|
|00001390| 33 30 30 30 0a 34 34 31 | 30 30 20 49 46 43 28 49 |3000.441|00 IFC(I|
|000013a0| 29 3e 37 54 48 45 4e 35 | 33 30 30 30 0a 34 34 31 |)>7THEN5|3000.441|
|000013b0| 35 30 20 47 4f 54 4f 35 | 32 30 30 30 0a 34 34 32 |50 GOTO5|2000.442|
|000013c0| 30 30 20 49 46 4c 3e 35 | 54 48 45 4e 34 35 31 30 |00 IFL>5|THEN4510|
|000013d0| 30 0a 34 34 33 30 30 20 | 49 46 43 28 49 29 3c 31 |0.44300 |IFC(I)<1|
|000013e0| 31 54 48 45 4e 34 34 35 | 30 30 0a 34 34 34 30 30 |1THEN445|00.44400|
|000013f0| 20 47 4f 54 4f 35 31 30 | 30 30 0a 34 34 35 30 30 | GOTO510|00.44500|
|00001400| 20 49 46 43 28 49 29 3c | 31 30 54 48 45 4e 34 34 | IFC(I)<|10THEN44|
|00001410| 36 35 30 0a 34 34 35 35 | 30 20 47 4f 54 4f 35 34 |650.4455|0 GOTO54|
|00001420| 30 30 30 0a 34 34 36 35 | 30 20 49 46 43 28 49 29 |000.4465|0 IFC(I)|
|00001430| 3c 36 54 48 45 4e 34 34 | 38 30 30 0a 34 34 37 30 |<6THEN44|800.4470|
|00001440| 30 20 47 4f 54 4f 35 33 | 30 30 30 0a 34 34 38 30 |0 GOTO53|000.4480|
|00001450| 30 20 49 46 43 28 49 29 | 3c 34 54 48 45 4e 34 34 |0 IFC(I)|<4THEN44|
|00001460| 39 35 30 0a 34 34 38 35 | 30 20 47 4f 54 4f 35 31 |950.4485|0 GOTO51|
|00001470| 30 30 30 0a 34 34 39 35 | 30 20 47 4f 54 4f 35 32 |000.4495|0 GOTO52|
|00001480| 30 30 30 0a 34 35 31 30 | 30 20 49 46 4c 3e 36 54 |000.4510|0 IFL>6T|
|00001490| 48 45 4e 34 35 39 30 30 | 0a 34 35 32 30 30 20 49 |HEN45900|.45200 I|
|000014a0| 46 43 28 49 29 3c 31 31 | 54 48 45 4e 34 35 33 35 |FC(I)<11|THEN4535|
|000014b0| 30 0a 34 35 33 30 30 20 | 47 4f 54 4f 35 31 30 30 |0.45300 |GOTO5100|
|000014c0| 30 0a 34 35 33 35 30 20 | 49 46 43 28 49 29 3c 37 |0.45350 |IFC(I)<7|
|000014d0| 54 48 45 4e 34 35 35 30 | 30 0a 34 35 34 30 30 20 |THEN4550|0.45400 |
|000014e0| 47 4f 54 4f 35 33 30 30 | 30 0a 34 35 35 30 30 20 |GOTO5300|0.45500 |
|000014f0| 49 46 43 28 49 29 3d 34 | 54 48 45 4e 34 35 37 30 |IFC(I)=4|THEN4570|
|00001500| 30 0a 34 35 35 35 30 20 | 49 46 43 28 49 29 3d 35 |0.45550 |IFC(I)=5|
|00001510| 54 48 45 4e 34 35 37 30 | 30 0a 34 35 36 30 30 20 |THEN4570|0.45600 |
|00001520| 47 4f 54 4f 35 31 30 30 | 30 0a 34 35 37 30 30 20 |GOTO5100|0.45700 |
|00001530| 47 4f 54 4f 35 33 30 30 | 30 0a 34 35 39 30 30 20 |GOTO5300|0.45900 |
|00001540| 49 46 4c 3e 37 54 48 45 | 4e 34 38 31 30 30 0a 34 |IFL>7THE|N48100.4|
|00001550| 35 39 35 30 20 50 52 49 | 4e 54 22 20 20 20 20 22 |5950 PRI|NT"    "|
|00001560| 3b 0a 34 35 39 37 30 20 | 49 46 43 24 28 49 29 3d |;.45970 |IFC$(I)=|
|00001570| 22 54 22 54 48 45 4e 34 | 36 34 30 30 0a 34 36 30 |"T"THEN4|6400.460|
|00001580| 30 30 20 50 52 49 4e 54 | 22 20 22 3b 53 24 28 49 |00 PRINT|" ";S$(I|
|00001590| 29 3b 52 49 47 48 54 24 | 28 43 24 28 49 29 2c 31 |);RIGHT$|(C$(I),1|
|000015a0| 29 3b 0a 34 36 31 30 30 | 20 47 4f 54 4f 35 35 30 |);.46100| GOTO550|
|000015b0| 30 30 0a 34 36 34 30 30 | 20 50 52 49 4e 54 53 24 |00.46400| PRINTS$|
|000015c0| 28 49 29 3b 22 31 30 22 | 3b 0a 34 38 30 30 30 20 |(I);"10"|;.48000 |
|000015d0| 47 4f 54 4f 35 35 30 30 | 30 0a 34 38 31 30 30 20 |GOTO5500|0.48100 |
|000015e0| 47 4f 54 4f 35 31 30 30 | 30 0a 35 31 30 30 30 20 |GOTO5100|0.51000 |
|000015f0| 50 52 49 4e 54 22 20 20 | 20 20 20 20 20 22 3b 0a |PRINT"  |     ";.|
|00001600| 35 31 30 35 30 20 47 4f | 54 4f 35 35 30 30 30 0a |51050 GO|TO55000.|
|00001610| 35 32 30 30 30 20 50 52 | 49 4e 54 22 20 20 20 22 |52000 PR|INT"   "|
|00001620| 3b 53 24 28 49 29 3b 22 | 20 20 20 22 3b 0a 35 32 |;S$(I);"|   ";.52|
|00001630| 36 30 30 20 47 4f 54 4f | 35 35 30 30 30 0a 35 33 |600 GOTO|55000.53|
|00001640| 30 30 30 20 50 52 49 4e | 54 22 20 20 22 3b 53 24 |000 PRIN|T"  ";S$|
|00001650| 28 49 29 3b 22 20 22 3b | 53 24 28 49 29 3b 22 20 |(I);" ";|S$(I);" |
|00001660| 20 22 3b 0a 35 33 37 30 | 30 20 47 4f 54 4f 35 35 | ";.5370|0 GOTO55|
|00001670| 30 30 30 0a 35 34 30 30 | 30 20 50 52 49 4e 54 22 |000.5400|0 PRINT"|
|00001680| 20 20 22 3b 53 24 28 49 | 29 3b 53 24 28 49 29 3b |  ";S$(I|);S$(I);|
|00001690| 53 24 28 49 29 3b 22 20 | 20 22 3b 0a 35 35 30 30 |S$(I);" | ";.5500|
|000016a0| 30 20 50 52 49 4e 54 0a | 35 35 31 35 30 20 4e 45 |0 PRINT.|55150 NE|
|000016b0| 58 54 4c 0a 35 35 32 30 | 30 20 50 52 49 4e 54 0a |XTL.5520|0 PRINT.|
|000016c0| 35 35 33 30 30 20 52 45 | 54 55 52 4e 0a 35 36 30 |55300 RE|TURN.560|
|000016d0| 30 30 20 50 52 49 4e 54 | 22 13 12 20 20 20 20 20 |00 PRINT|"..     |
|000016e0| 20 20 92 a5 22 0a 35 36 | 31 30 30 20 50 52 49 4e |  ..".56|100 PRIN|
|000016f0| 54 22 12 20 20 20 20 20 | 20 20 92 a5 22 0a 35 36 |T".     |  ..".56|
|00001700| 32 30 30 20 50 52 49 4e | 54 22 12 20 92 a9 20 20 |200 PRIN|T". ..  |
|00001710| 12 20 20 20 92 a5 22 0a | 35 36 33 30 30 20 50 52 |.   ..".|56300 PR|
|00001720| 49 4e 54 22 12 20 92 20 | 12 20 20 92 20 12 a9 20 |INT". . |.  . .. |
|00001730| 92 a5 22 0a 35 36 34 30 | 30 20 50 52 49 4e 54 22 |..".5640|0 PRINT"|
|00001740| 12 20 92 20 12 20 20 92 | a3 df 12 20 92 a5 22 0a |. . .  .|... ..".|
|00001750| 35 36 35 30 30 20 50 52 | 49 4e 54 22 12 20 df 92 |56500 PR|INT". ..|
|00001760| 20 20 12 20 20 20 92 a5 | 22 0a 35 36 36 30 30 20 |  .   ..|".56600 |
|00001770| 50 52 49 4e 54 22 12 20 | 20 20 20 20 20 20 92 a5 |PRINT". |      ..|
|00001780| 22 0a 35 36 37 30 30 20 | 50 52 49 4e 54 22 12 20 |".56700 |PRINT". |
|00001790| 20 20 20 20 20 20 92 a5 | 22 0a 35 36 38 30 30 20 |      ..|".56800 |
|000017a0| 52 45 54 55 52 4e 0a 35 | 37 30 30 30 20 50 52 49 |RETURN.5|7000 PRI|
|000017b0| 4e 54 22 93 22 0a 35 37 | 31 30 30 20 46 4f 52 49 |NT".".57|100 FORI|
|000017c0| 3d 31 54 4f 31 30 30 0a | 35 37 32 30 30 20 50 52 |=1TO100.|57200 PR|
|000017d0| 49 4e 54 22 13 11 11 11 | 11 11 11 11 11 11 11 11 |INT"....|........|
|000017e0| 11 22 3b 54 41 42 28 31 | 35 29 0a 35 37 33 30 30 |.";TAB(1|5).57300|
|000017f0| 20 50 52 49 4e 54 22 31 | 12 37 92 20 12 55 92 4e | PRINT"1|.7. .U.N|
|00001800| 12 44 92 20 12 30 92 34 | 22 0a 35 37 34 30 30 20 |.D. .0.4|".57400 |
|00001810| 50 52 49 4e 54 22 13 11 | 11 11 11 11 11 11 11 11 |PRINT"..|........|
|00001820| 11 11 11 22 3b 54 41 42 | 28 31 35 29 0a 35 37 35 |...";TAB|(15).575|
|00001830| 30 30 20 50 52 49 4e 54 | 22 12 31 92 37 12 20 92 |00 PRINT|".1.7. .|
|00001840| 55 12 4e 92 44 12 20 92 | 30 12 34 22 0a 35 37 36 |U.N.D. .|0.4".576|
|00001850| 30 30 20 4e 45 58 54 0a | 35 37 37 30 30 20 52 45 |00 NEXT.|57700 RE|
|00001860| 54 55 52 4e 0a 35 38 30 | 30 30 20 50 52 49 4e 54 |TURN.580|00 PRINT|
|00001870| 22 93 1d 1d 1d 1d 1d 1d | 1d 1d 12 53 50 49 45 4c |".......|...SPIEL|
|00001880| 52 45 47 45 4c 20 31 37 | 20 55 4e 44 20 34 00 0a |REGEL 17| UND 4..|
|00001890| 35 38 30 30 35 20 50 4f | 4b 45 35 39 34 36 38 2c |58005 PO|KE59468,|
|000018a0| 31 34 0a 35 38 30 31 30 | 20 50 52 49 4e 54 3a 50 |14.58010| PRINT:P|
|000018b0| 52 49 4e 54 0a 35 38 30 | 32 30 20 50 52 49 4e 54 |RINT.580|20 PRINT|
|000018c0| 22 47 45 53 50 49 45 4c | 54 20 57 49 52 44 20 4d |"GESPIEL|T WIRD M|
|000018d0| 49 54 20 45 49 4e 45 4d | 20 4b 41 52 54 45 4e 53 |IT EINEM| KARTENS|
|000018e0| 50 49 45 4c 2c 20 44 41 | 53 00 0a 35 38 30 33 30 |PIEL, DA|S..58030|
|000018f0| 20 50 52 49 4e 54 22 46 | 4f 4c 47 45 4e 44 45 20 | PRINT"F|OLGENDE |
|00001900| 4b 41 52 54 45 4e 20 45 | 4e 54 48 41 45 4c 54 3a |KARTEN E|NTHAELT:|
|00001910| 11 00 0a 35 38 30 34 30 | 20 50 52 49 4e 54 22 32 |...58040| PRINT"2|
|00001920| 20 33 20 34 20 35 20 36 | 20 37 20 38 20 39 20 42 | 3 4 5 6| 7 8 9 B|
|00001930| 20 44 20 4b 20 41 11 00 | 0a 35 38 30 35 30 20 50 | D K A..|.58050 P|
|00001940| 52 49 4e 54 22 44 41 42 | 45 49 20 5a 41 45 48 4c |RINT"DAB|EI ZAEHL|
|00001950| 45 4e 20 44 49 45 20 42 | 49 4c 44 45 52 20 28 42 |EN DIE B|ILDER (B|
|00001960| 2c 44 2c 4b 29 20 4a 45 | 57 45 49 4c 53 00 0a 35 |,D,K) JE|WEILS..5|
|00001970| 38 30 36 30 20 50 52 49 | 4e 54 22 5a 45 48 4e 20 |8060 PRI|NT"ZEHN |
|00001980| 50 55 4e 4b 54 45 2c 20 | 41 53 20 31 31 20 50 55 |PUNKTE, |AS 11 PU|
|00001990| 4e 4b 54 45 2c 20 41 42 | 45 52 20 57 45 4e 4e 20 |NKTE, AB|ER WENN |
|000019a0| 32 31 11 00 0a 35 38 30 | 37 30 20 50 52 49 4e 54 |21...580|70 PRINT|
|000019b0| 22 55 45 42 45 52 53 43 | 48 52 49 54 54 45 4e 20 |"UEBERSC|HRITTEN |
|000019c0| 57 45 52 44 45 4e 2c 20 | 4e 55 52 20 31 20 50 55 |WERDEN, |NUR 1 PU|
|000019d0| 4e 4b 54 2e 11 00 0a 35 | 38 30 37 35 20 50 52 49 |NKT....5|8075 PRI|
|000019e0| 4e 54 22 44 49 45 20 5a | 41 48 4c 45 4e 20 5a 41 |NT"DIE Z|AHLEN ZA|
|000019f0| 45 48 4c 45 4e 20 49 48 | 52 45 4e 20 45 49 47 45 |EHLEN IH|REN EIGE|
|00001a00| 4e 57 45 52 54 2e 20 57 | 45 52 11 00 0a 35 38 30 |NWERT. W|ER...580|
|00001a10| 38 30 20 50 52 49 4e 54 | 22 44 49 45 20 48 4f 45 |80 PRINT|"DIE HOE|
|00001a20| 43 48 53 54 45 20 50 55 | 4e 4b 54 45 5a 41 48 4c |CHSTE PU|NKTEZAHL|
|00001a30| 20 28 4d 41 58 2e 32 31 | 21 29 20 45 52 2d 11 00 | (MAX.21|!) ER-..|
|00001a40| 0a 35 38 30 39 30 20 50 | 52 49 4e 54 22 52 45 49 |.58090 P|RINT"REI|
|00001a50| 43 48 54 20 28 43 36 34 | 20 4f 44 45 52 20 53 49 |CHT (C64| ODER SI|
|00001a60| 45 29 2c 20 47 45 57 49 | 4e 4e 54 2e 00 0a 35 38 |E), GEWI|NNT...58|
|00001a70| 31 30 30 20 50 52 49 4e | 54 22 11 20 20 20 20 20 |100 PRIN|T".     |
|00001a80| 20 20 20 56 45 52 53 54 | 41 4e 44 45 4e 20 28 4a |   VERST|ANDEN (J|
|00001a90| 2f 4e 29 22 0a 35 38 31 | 30 36 20 47 45 54 41 24 |/N)".581|06 GETA$|
|00001aa0| 3a 49 46 41 24 3d 22 22 | 54 48 45 4e 35 38 31 30 |:IFA$=""|THEN5810|
|00001ab0| 36 0a 35 38 31 30 37 20 | 49 46 41 24 3d 22 4a 22 |6.58107 |IFA$="J"|
|00001ac0| 54 48 45 4e 35 38 31 31 | 30 0a 35 38 31 30 38 20 |THEN5811|0.58108 |
|00001ad0| 47 4f 54 4f 35 38 30 30 | 30 0a 35 38 31 31 30 20 |GOTO5800|0.58110 |
|00001ae0| 50 52 49 4e 54 22 93 53 | 49 45 20 45 52 48 41 4c |PRINT".S|IE ERHAL|
|00001af0| 54 45 4e 20 5a 57 45 49 | 20 4b 41 52 54 45 4e 20 |TEN ZWEI| KARTEN |
|00001b00| 55 4e 44 20 4b 4f 45 4e | 4e 45 4e 20 53 4f 2d 00 |UND KOEN|NEN SO-.|
|00001b10| 0a 35 38 31 32 30 20 50 | 52 49 4e 54 22 56 49 45 |.58120 P|RINT"VIE|
|00001b20| 4c 45 20 4e 41 43 48 5a | 49 45 48 45 4e 20 20 57 |LE NACHZ|IEHEN  W|
|00001b30| 49 45 20 53 49 45 20 57 | 4f 4c 4c 45 4e 2c 20 41 |IE SIE W|OLLEN, A|
|00001b40| 42 45 52 11 00 0a 35 38 | 31 33 30 20 50 52 49 4e |BER...58|130 PRIN|
|00001b50| 54 22 53 49 45 20 44 55 | 45 52 46 45 4e 12 a0 32 |T"SIE DU|ERFEN..2|
|00001b60| 31 20 50 55 4e 4b 54 45 | 20 4e 49 43 48 54 20 55 |1 PUNKTE| NICHT U|
|00001b70| 45 42 45 52 53 43 48 52 | 45 49 00 0a 35 38 31 34 |EBERSCHR|EI..5814|
|00001b80| 30 20 50 52 49 4e 54 22 | 12 54 45 4e 2c 92 20 53 |0 PRINT"|.TEN,. S|
|00001b90| 4f 4e 53 54 20 56 45 52 | 4c 49 45 52 45 4e 20 53 |ONST VER|LIEREN S|
|00001ba0| 49 45 2e 20 47 4c 45 49 | 43 48 45 53 20 47 49 4c |IE. GLEI|CHES GIL|
|00001bb0| 54 11 00 0a 35 38 31 35 | 30 20 50 52 49 4e 54 22 |T...5815|0 PRINT"|
|00001bc0| 46 55 45 52 20 44 45 4e | 20 43 36 34 2e 20 57 45 |FUER DEN| C64. WE|
|00001bd0| 4e 4e 20 53 49 45 20 44 | 41 53 20 53 50 49 45 4c |NN SIE D|AS SPIEL|
|00001be0| 20 42 45 45 4e 2d 11 00 | 0a 35 38 31 36 30 20 50 | BEEN-..|.58160 P|
|00001bf0| 52 49 4e 54 22 44 45 4e | 20 57 4f 4c 4c 45 4e 2c |RINT"DEN| WOLLEN,|
|00001c00| 20 53 45 54 5a 45 4e 20 | 53 49 45 20 42 49 54 54 | SETZEN |SIE BITT|
|00001c10| 45 20 4e 55 4c 4c 20 44 | 4d 21 11 00 0a 35 38 31 |E NULL D|M!...581|
|00001c20| 37 30 20 50 52 49 4e 54 | 22 57 45 4e 4e 20 53 49 |70 PRINT|"WENN SI|
|00001c30| 45 20 44 49 45 20 46 52 | 41 47 45 2c 20 4f 42 20 |E DIE FR|AGE, OB |
|00001c40| 53 49 45 20 4e 4f 43 48 | 20 45 49 4e 45 11 00 0a |SIE NOCH| EINE...|
|00001c50| 35 38 31 38 30 20 50 52 | 49 4e 54 22 4b 41 52 54 |58180 PR|INT"KART|
|00001c60| 45 20 57 4f 4c 4c 45 4e | 2c 20 53 54 41 54 54 a0 |E WOLLEN|, STATT.|
|00001c70| 4d 49 54 20 27 4a 27 20 | 57 49 45 20 4a 41 20 4d |MIT 'J' |WIE JA M|
|00001c80| 49 54 11 00 0a 35 38 31 | 39 30 20 50 52 49 4e 54 |IT...581|90 PRINT|
|00001c90| 22 27 44 27 20 57 49 45 | 20 44 4f 50 50 45 4c 54 |"'D' WIE| DOPPELT|
|00001ca0| 20 42 45 41 4e 54 57 4f | 52 54 45 4e 2c 20 44 41 | BEANTWO|RTEN, DA|
|00001cb0| 4e 4e 20 45 52 48 41 4c | 2d 00 0a 35 38 32 30 30 |NN ERHAL|-..58200|
|00001cc0| 20 50 52 49 4e 54 22 54 | 45 4e a0 53 49 45 a0 45 | PRINT"T|EN.SIE.E|
|00001cd0| 49 4e 45 a0 57 45 49 54 | 45 52 45 a0 4b 41 52 54 |INE.WEIT|ERE.KART|
|00001ce0| 45 2c 20 5a 55 53 41 45 | 54 5a 4c 49 43 48 11 00 |E, ZUSAE|TZLICH..|
|00001cf0| 0a 35 38 32 31 30 20 50 | 52 49 4e 54 22 57 49 52 |.58210 P|RINT"WIR|
|00001d00| 44 20 49 48 52 20 45 49 | 4e 53 41 54 5a 20 56 45 |D IHR EI|NSATZ VE|
|00001d10| 52 44 4f 50 50 45 4c 54 | 2e 00 0a 35 38 32 32 30 |RDOPPELT|...58220|
|00001d20| 20 50 52 49 4e 54 22 11 | 11 20 20 20 20 20 20 20 | PRINT".|.       |
|00001d30| 20 20 20 20 56 45 52 53 | 54 41 4e 44 45 4e 3f 20 |    VERS|TANDEN? |
|00001d40| 28 4a 2f 4e 29 22 0a 35 | 38 32 33 30 20 47 45 54 |(J/N)".5|8230 GET|
|00001d50| 20 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 35 | A$:IFA$|=""THEN5|
|00001d60| 38 32 33 30 0a 35 38 32 | 34 30 20 49 46 41 24 3d |8230.582|40 IFA$=|
|00001d70| 22 4a 22 54 48 45 4e 52 | 45 54 55 52 4e 0a 35 38 |"J"THENR|ETURN.58|
|00001d80| 32 35 30 20 49 46 20 41 | 24 3d 22 4e 22 54 48 45 |250 IF A|$="N"THE|
|00001d90| 4e 35 38 30 30 30 0a 35 | 38 32 36 30 20 47 4f 54 |N58000.5|8260 GOT|
|00001da0| 4f 35 38 32 33 30 0a 36 | 33 30 30 30 20 44 41 54 |O58230.6|3000 DAT|
|00001db0| 41 20 31 36 39 2c 30 2c | 31 34 31 2c 33 32 2c 32 |A 169,0,|141,32,2|
|00001dc0| 30 38 2c 31 34 31 2c 33 | 33 2c 32 30 38 2c 31 34 |08,141,3|3,208,14|
|00001dd0| 31 2c 30 2c 34 2c 31 34 | 31 2c 31 2c 34 0a 36 33 |1,0,4,14|1,1,4.63|
|00001de0| 30 31 30 20 44 41 54 41 | 20 31 34 31 2c 32 2c 34 |010 DATA| 141,2,4|
|00001df0| 2c 31 36 39 2c 31 34 39 | 2c 31 34 31 2c 30 2c 32 |,169,149|,141,0,2|
|00001e00| 32 31 2c 31 36 39 2c 35 | 2c 31 34 31 2c 32 34 0a |21,169,5|,141,24.|
|00001e10| 36 33 30 32 30 20 44 41 | 54 41 20 32 30 38 2c 31 |63020 DA|TA 208,1|
|00001e20| 36 39 2c 31 32 38 2c 31 | 34 31 2c 31 33 36 2c 32 |69,128,1|41,136,2|
|00001e30| 2c 31 33 33 2c 35 36 2c | 39 36 2c 39 36 0a 36 33 |,133,56,|96,96.63|
|00001e40| 30 33 30 20 46 4f 52 49 | 3d 35 30 30 30 30 54 4f |030 FORI|=50000TO|
|00001e50| 35 30 30 33 35 3a 52 45 | 41 44 41 3a 50 4f 4b 45 |50035:RE|ADA:POKE|
|00001e60| 49 2c 41 3a 4e 45 58 54 | 0a 36 33 30 35 30 20 53 |I,A:NEXT|.63050 S|
|00001e70| 59 53 35 30 30 30 30 3a | 50 52 49 4e 54 43 48 52 |YS50000:|PRINTCHR|
|00001e80| 24 28 31 34 37 29 3a 50 | 52 49 4e 54 43 48 52 24 |$(147):P|RINTCHR$|
|00001e90| 28 35 29 0a 36 33 30 36 | 30 20 52 45 54 55 52 4e |(5).6306|0 RETURN|
|00001ea0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+