_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SPULEN

FILE INFORMATION

FILENAME(S): SPULEN

FILE TYPE(S): PRG

FILE SIZE: 3.7K

FIRST SEEN: 2025-10-20 14:29:54

APPEARS ON: 2 disk(s)

FILE HASH

a21e3bf728d79a6d3b265560db274f32e18601e65663fcfe72adf80f9d05a6dd

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PD LERN SPULEN PRG Treasure Chest - Klaus Der Suhler 32 8 DOWNLOAD FILE
145 SPULEN PRG Treasure Chest - Plattfuss 32 8 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 28 08 0A 00 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..(....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  00 4F 08 14 00 8F 2A 20  |********.O....* |
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000040: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 2A 00  |              *.|
00000050: 76 08 1E 00 8F 2A 20 20  20 20 20 20 20 53 50 55  |v....*       SPU|
00000060: 4C 45 4E 42 45 52 45 43  48 4E 55 4E 47 20 20 20  |LENBERECHNUNG   |
00000070: 20 20 20 20 20 2A 00 9D  08 28 00 8F 2A 20 20 20  |     *...(..*   |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 2A 00 C4 08  |            *...|
000000A0: 32 00 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |2..*************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000C0: 2A 2A 2A 2A 00 E5 08 3C  00 97 35 33 32 38 30 2C  |****...<..53280,|
000000D0: 31 35 3A 97 35 33 32 38  31 2C 31 35 3A 97 36 35  |15:.53281,15:.65|
000000E0: 37 2C 31 32 38 00 FF 08  46 00 8D 31 35 30 3A 8F  |7,128...F..150:.|
000000F0: 20 55 4E 54 45 52 50 52  4F 47 52 41 4D 4D 45 00  | UNTERPROGRAMME.|
00000100: 17 09 50 00 8D 32 32 30  3A 8F 20 45 52 4C 41 45  |..P..220:. ERLAE|
00000110: 55 54 45 52 55 4E 47 00  2A 09 5A 00 8D 34 39 30  |UTERUNG.*.Z..490|
00000120: 3A 8F 20 41 55 53 57 41  48 4C 00 4C 09 64 00 91  |:. AUSWAHL.L.d..|
00000130: 58 8D 36 30 30 2C 37 35  30 2C 39 30 30 3A 8F 20  |X.600,750,900:. |
00000140: 42 45 52 45 43 48 4E 55  4E 47 45 4E 00 58 09 6E  |BERECHNUNGEN.X.n|
00000150: 00 8B 58 B2 30 A7 39 30  00 75 09 78 00 8D 31 30  |..X.0.90.u.x..10|
00000160: 36 30 3A 8F 20 57 45 49  54 45 52 45 20 42 45 52  |60:. WEITERE BER|
00000170: 2E 2F 45 4E 44 00 7D 09  82 00 89 39 30 00 83 09  |./END.}....90...|
00000180: 8C 00 3A 00 A8 09 96 00  8F 20 2A 20 2A 20 2A 20  |..:...... * * * |
00000190: 2A 20 55 4E 54 45 52 50  52 4F 47 52 41 4D 4D 45  |* UNTERPROGRAMME|
000001A0: 20 2A 20 2A 20 2A 20 2A  00 AE 09 A0 00 3A 00 CE  | * * * *.....:..|
000001B0: 09 AA 00 96 A5 4B 28 44  4C 29 B2 BA 28 52 AC 52  |.....K(DL)..(R.R|
000001C0: AB 28 44 4C AB 58 30 29  AE 32 29 AA 59 30 00 DB  |.(DL.X0).2).Y0..|
000001D0: 09 B4 00 4C 47 B2 BC 28  31 30 29 00 13 0A BE 00  |...LG..(10).....|
000001E0: 96 A5 45 52 28 58 29 B2  B5 28 58 AD 31 30 AE 28  |..ER(X)..(X.10.(|
000001F0: B5 28 BC 28 58 29 AD 4C  47 AB 32 29 29 AA 2E 35  |.(.(X).LG.2))..5|
00000200: 29 AC 31 30 AE 28 B5 28  BC 28 58 29 AD 4C 47 AB  |).10.(.(.(X).LG.|
00000210: 32 29 29 00 19 0A C8 00  8E 00 1F 0A D2 00 3A 00  |2))...........:.|
00000220: 42 0A DC 00 8F 20 2A 20  2A 20 2A 20 2A 20 45 52  |B.... * * * * ER|
00000230: 4C 41 45 55 54 45 52 55  4E 47 20 2A 20 2A 20 2A  |LAEUTERUNG * * *|
00000240: 20 2A 00 48 0A E6 00 3A  00 6C 0A F0 00 49 B2 31  | *.H...:.l...I.1|
00000250: 32 3A 99 22 93 22 3B A6  49 29 3B 22 1F 12 20 20  |2:.".";.I);"..  |
00000260: 20 20 20 20 20 20 20 20  20 20 92 22 00 86 0A FA  |          ."....|
00000270: 00 99 A6 49 29 3B 22 12  20 4C 55 46 54 53 50 55  |...I);". LUFTSPU|
00000280: 4C 45 4E 20 92 22 00 A6  0A 04 01 99 A6 49 29 3B  |LEN .".......I);|
00000290: 22 12 20 20 20 20 20 20  20 20 20 20 20 20 92 22  |".            ."|
000002A0: 3A 99 3A 99 3A 99 00 D8  0A 0E 01 99 22 81 44 49  |:.:.:.......".DI|
000002B0: 45 20 48 45 52 53 54 45  4C 4C 55 4E 47 20 56 4F  |E HERSTELLUNG VO|
000002C0: 4E 20 49 4E 44 55 4B 54  49 56 49 54 41 45 54 45  |N INDUKTIVITAETE|
000002D0: 4E 20 49 53 54 22 3A 99  00 09 0B 18 01 99 22 49  |N IST":......."I|
000002E0: 4E 20 44 45 52 20 48 4F  43 48 46 52 45 51 55 45  |N DER HOCHFREQUE|
000002F0: 4E 5A 54 45 43 48 4E 49  4B 20 45 42 45 4E 53 4F  |NZTECHNIK EBENSO|
00000300: 20 48 41 45 55 2D 22 3A  99 00 27 0B 22 01 99 22  | HAEU-":..'.".."|
00000310: 46 49 47 20 57 49 45 20  53 43 48 57 49 45 52 49  |FIG WIE SCHWIERI|
00000320: 47 2E 22 3A 99 3A 99 00  5A 0B 2C 01 99 22 4D 49  |G.":.:..Z.,.."MI|
00000330: 54 20 20 44 49 45 53 45  4D 20 97 20 42 41 53 49  |T  DIESEM . BASI|
00000340: 43 20 2D 20 4C 55 46 54  53 50 55 4C 45 4E 50 52  |C - LUFTSPULENPR|
00000350: 4F 47 52 41 4D 4D 81 22  3A 99 00 8C 0B 36 01 99  |OGRAMM.":....6..|
00000360: 22 4B 4F 45 4E 4E 45 4E  20 53 49 45 20 20 56 4F  |"KOENNEN SIE  VO|
00000370: 4E 20 97 45 49 4E 4C 41  47 49 47 45 4E 20 20 5A  |N .EINLAGIGEN  Z|
00000380: 59 4C 49 4E 44 45 52 20  2D 22 3A 99 00 BF 0B 40  |YLINDER -":....@|
00000390: 01 99 22 53 50 55 4C 45  4E 20 4F 48 4E 45 20 4B  |.."SPULEN OHNE K|
000003A0: 45 52 4E 81 20 57 41 48  4C 57 45 49 53 45 20 44  |ERN. WAHLWEISE D|
000003B0: 45 52 45 4E 20 97 49 4E  44 55 4B 2D 22 3A 99 00  |EREN .INDUK-":..|
000003C0: F4 0B 4A 01 99 22 54 49  56 49 54 41 45 54 81 2C  |..J.."TIVITAET.,|
000003D0: 97 20 57 49 4E 44 55 4E  47 53 5A 41 48 4C 81 20  |. WINDUNGSZAHL. |
000003E0: 4F 44 45 52 20 44 49 45  20 97 53 50 55 4C 45 4E  |ODER DIE .SPULEN|
000003F0: 2D 22 3A 99 00 0E 0C 54  01 99 22 4C 41 45 4E 47  |-":....T.."LAENG|
00000400: 45 81 20 42 45 52 45 43  48 4E 45 4E 2E 22 00 18  |E. BERECHNEN."..|
00000410: 0C 5E 01 8D 31 31 37 30  00 50 0C 68 01 99 22 93  |.^..1170.P.h..".|
00000420: 1F A4 A4 A4 A4 A4 A4 A4  A4 22 3A 99 22 12 48 49  |.........":.".HI|
00000430: 4E 57 45 49 53 3A 92 20  20 20 20 20 20 20 20 20  |NWEIS:.         |
00000440: 20 20 20 9C 57 49 43 48  54 49 47 A0 21 20 20 22  |   .WICHTIG.!  "|
00000450: 00 67 0C 72 01 99 A3 32  30 29 22 1F C5 C5 C5 C5  |.g.r...20)".....|
00000460: C5 C5 C5 C5 C5 11 22 00  99 0C 7C 01 99 22 81 44  |......"...|..".D|
00000470: 45 52 20 20 53 50 55 4C  45 4E 44 55 52 43 48 4D  |ER  SPULENDURCHM|
00000480: 45 53 53 45 52 20 20 53  4F 4C 4C 20 4D 49 4E 44  |ESSER  SOLL MIND|
00000490: 45 53 54 45 4E 53 22 3A  99 00 CE 0C 86 01 99 22  |ESTENS":......."|
000004A0: 44 45 4E 20 95 46 55 45  4E 46 46 41 43 48 45 4E  |DEN .FUENFFACHEN|
000004B0: 81 20 44 52 41 48 54 44  55 52 43 48 4D 45 53 53  |. DRAHTDURCHMESS|
000004C0: 45 52 20 48 41 42 45 4E  2E 22 3A 99 3A 99 00 01  |ER HABEN.":.:...|
000004D0: 0D 90 01 99 22 44 41 53  20 20 56 45 52 48 41 45  |...."DAS  VERHAE|
000004E0: 4C 54 4E 49 53 20 20 95  53 50 55 4C 45 4E 44 55  |LTNIS  .SPULENDU|
000004F0: 52 43 48 4D 45 53 53 45  52 20 20 81 5A 55 22 3A  |RCHMESSER  .ZU":|
00000500: 99 00 34 0D 9A 01 99 22  95 53 50 55 4C 45 4E 4C  |..4....".SPULENL|
00000510: 41 45 4E 47 45 81 20 20  20 53 4F 4C 4C 54 45 20  |AENGE.   SOLLTE |
00000520: 20 46 55 45 52 20 20 55  4B 57 2D 53 50 55 4C 45  | FUER  UKW-SPULE|
00000530: 4E 22 3A 99 00 69 0D A4  01 99 22 5A 57 49 53 43  |N":..i...."ZWISC|
00000540: 48 45 4E 95 20 20 30 2E  37 81 20 55 4E 44 95 20  |HEN.  0.7. UND. |
00000550: 20 31 2E 35 2C 81 20 20  46 55 45 52 20 4B 57 2D  | 1.5,.  FUER KW-|
00000560: 53 50 55 4C 45 4E 22 3A  99 00 93 0D AE 01 99 22  |SPULEN":......."|
00000570: 5A 57 49 53 43 48 45 4E  95 20 30 2E 35 81 20 55  |ZWISCHEN. 0.5. U|
00000580: 4E 44 95 20 31 81 20 4C  49 45 47 45 4E 2E 22 3A  |ND. 1. LIEGEN.":|
00000590: 99 3A 99 00 C5 0D B8 01  99 22 42 45 49 20 55 4B  |.:......."BEI UK|
000005A0: 57 2D 53 50 55 4C 45 4E  20 53 4F 4C 4C 20 44 45  |W-SPULEN SOLL DE|
000005B0: 52 20 95 57 49 4E 44 55  4E 47 53 41 42 53 54 41  |R .WINDUNGSABSTA|
000005C0: 4E 44 22 3A 99 00 F1 0D  C2 01 99 22 47 4C 45 49  |ND":......."GLEI|
000005D0: 43 48 20 44 45 4D 20 44  52 41 48 54 44 55 52 43  |CH DEM DRAHTDURC|
000005E0: 48 4D 45 53 53 45 52 81  20 53 45 49 4E 2E 22 3A  |HMESSER. SEIN.":|
000005F0: 99 00 FB 0D CC 01 8D 31  31 37 30 00 01 0E D6 01  |.......1170.....|
00000600: 8E 00 07 0E E0 01 3A 00  2D 0E EA 01 8F 20 2A 20  |......:.-.... * |
00000610: 2A 20 2A 20 2A 20 2A 20  2A 20 41 55 53 57 41 48  |* * * * * AUSWAH|
00000620: 4C 20 2A 20 2A 20 2A 20  2A 20 2A 20 2A 00 33 0E  |L * * * * * *.3.|
00000630: F4 01 3A 00 5C 0E FE 01  99 22 93 11 11 11 11 11  |..:.\...."......|
00000640: 1F 53 49 45 20 4B 4F 45  4E 4E 45 4E 20 42 45 52  |.SIE KOENNEN BER|
00000650: 45 43 48 4E 45 4E 3A 22  3A 99 3A 99 00 86 0E 08  |ECHNEN:":.:.....|
00000660: 02 99 22 1E 20 20 20 20  20 20 49 4E 44 55 4B 54  |..".      INDUKT|
00000670: 49 56 49 54 41 45 54 20  20 20 3D 20 20 20 12 20  |IVITAET   =   . |
00000680: 31 20 92 22 3A 99 00 B0  0E 12 02 99 22 1E 20 20  |1 .":.......".  |
00000690: 20 20 20 20 57 49 4E 44  55 4E 47 53 5A 41 48 4C  |    WINDUNGSZAHL|
000006A0: 20 20 20 20 3D 20 20 20  12 20 32 20 92 22 3A 99  |    =   . 2 .":.|
000006B0: 00 DC 0E 1C 02 99 22 1E  20 20 20 20 20 20 53 50  |......".      SP|
000006C0: 55 4C 45 4E 4C 41 45 4E  47 45 20 20 20 20 3D 20  |ULENLAENGE    = |
000006D0: 20 20 12 20 33 20 92 22  3A 99 3A 99 00 06 0F 26  |  . 3 .":.:....&|
000006E0: 02 99 22 1F 57 45 4C 43  48 45 20 4D 4F 45 47 4C  |..".WELCHE MOEGL|
000006F0: 49 43 48 4B 45 49 54 20  57 41 45 48 4C 45 4E 20  |ICHKEIT WAEHLEN |
00000700: 53 49 45 20 3F 22 00 19  0F 30 02 A1 58 24 3A 8B  |SIE ?"...0..X$:.|
00000710: 58 24 B2 22 22 A7 35 36  30 00 32 0F 3A 02 58 B2  |X$."".560.2.:.X.|
00000720: C5 28 58 24 29 3A 8B 58  B3 31 B0 58 B1 33 A7 58  |.(X$):.X.1.X.3.X|
00000730: B2 30 00 38 0F 44 02 8E  00 3E 0F 4E 02 3A 00 64  |.0.8.D...>.N.:.d|
00000740: 0F 58 02 8F 2A 2A 2A 20  42 45 52 45 43 48 4E 55  |.X..*** BERECHNU|
00000750: 4E 47 20 49 4E 44 55 4B  54 49 56 49 54 41 45 54  |NG INDUKTIVITAET|
00000760: 20 2A 2A 2A 00 6A 0F 62  02 3A 00 84 0F 6C 02 99  | ***.j.b.:...l..|
00000770: 22 93 1F 47 45 42 45 4E  20 53 49 45 20 45 49 4E  |"..GEBEN SIE EIN|
00000780: 3A 22 3A 99 00 AD 0F 76  02 85 22 1E 57 49 4E 44  |:":....v..".WIND|
00000790: 55 4E 47 53 5A 41 48 4C  20 20 5B 57 49 4E 44 55  |UNGSZAHL  [WINDU|
000007A0: 4E 47 45 4E 5D 3A 81 20  22 3B 57 3A 99 00 D7 0F  |NGEN]:. ";W:....|
000007B0: 80 02 85 22 1E 53 50 55  4C 45 4E 4C 41 45 4E 47  |...".SPULENLAENG|
000007C0: 45 20 20 20 20 20 20 20  5B 20 43 4D 20 5D 3A 81  |E       [ CM ]:.|
000007D0: 20 22 3B 53 4C 3A 99 00  03 10 8A 02 85 22 1E 53  | ";SL:.......".S|
000007E0: 50 55 4C 45 4E 44 55 52  43 48 4D 45 53 53 45 52  |PULENDURCHMESSER|
000007F0: 20 20 5B 20 43 4D 20 5D  3A 81 20 22 3B 53 44 3A  |  [ CM ]:. ";SD:|
00000800: 99 3A 99 00 10 10 94 02  44 4C B2 53 44 AD 53 4C  |.:......DL.SD.SL|
00000810: 00 28 10 9E 02 8B 44 4C  B1 B2 2E 30 31 AF 44 4C  |.(....DL...01.DL|
00000820: B3 B2 31 30 A7 36 39 30  00 37 10 A8 02 8D 31 31  |..10.690.7....11|
00000830: 33 30 3A 89 36 30 30 00  67 10 B2 02 8B 44 4C B1  |30:.600.g....DL.|
00000840: B2 2E 30 31 AF 44 4C B3  B2 31 A7 52 B2 35 36 2E  |..01.DL..1.R.56.|
00000850: 31 30 32 3A 58 30 B2 35  35 2E 38 37 32 3A 59 30  |102:X0.55.872:Y0|
00000860: B2 AB 35 2E 30 38 33 00  94 10 BC 02 8B 44 4C B1  |..5.083......DL.|
00000870: 31 AF 44 4C B3 B2 31 30  A7 52 B2 32 30 2E 37 31  |1.DL..10.R.20.71|
00000880: 33 3A 58 30 B2 32 31 2E  33 33 36 3A 59 30 B2 32  |3:X0.21.336:Y0.2|
00000890: 2E 36 36 34 00 B2 10 C6  02 4C B2 A5 45 52 28 A5  |.664.....L..ER(.|
000008A0: 4B 28 44 4C 29 AC 57 AC  57 AC 53 44 AC 31 45 AB  |K(DL).W.W.SD.1E.|
000008B0: 39 29 00 D6 10 D0 02 99  22 90 49 4E 44 55 4B 54  |9)......".INDUKT|
000008C0: 49 56 49 54 41 45 54 3A  81 20 22 3B 4C 3B 22 90  |IVITAET:. ";L;".|
000008D0: 48 22 3A 99 3A 99 00 DC  10 DA 02 8E 00 E2 10 E4  |H":.:...........|
000008E0: 02 3A 00 08 11 EE 02 8F  20 2A 2A 2A 20 42 45 52  |.:...... *** BER|
000008F0: 45 43 48 4E 55 4E 47 20  57 49 4E 44 55 4E 47 53  |ECHNUNG WINDUNGS|
00000900: 5A 41 48 4C 20 2A 2A 2A  00 0E 11 F8 02 3A 00 28  |ZAHL ***.....:.(|
00000910: 11 02 03 99 22 93 1F 47  45 42 45 4E 20 53 49 45  |...."..GEBEN SIE|
00000920: 20 45 49 4E 3A 22 3A 99  00 59 11 0C 03 85 22 1E  | EIN:":..Y....".|
00000930: 49 4E 44 55 4B 54 49 56  49 54 41 45 54 20 20 20  |INDUKTIVITAET   |
00000940: 20 20 20 5B 20 48 20 5D  3A 81 20 20 22 3B 4C 3A  |   [ H ]:.  ";L:|
00000950: 4C B2 4C AC 31 45 39 3A  99 00 83 11 16 03 85 22  |L.L.1E9:......."|
00000960: 1E 53 50 55 4C 45 4E 4C  41 45 4E 47 45 20 20 20  |.SPULENLAENGE   |
00000970: 20 20 20 20 5B 20 43 4D  20 5D 3A 81 20 22 3B 53  |    [ CM ]:. ";S|
00000980: 4C 3A 99 00 AF 11 20 03  85 22 1E 53 50 55 4C 45  |L:.... ..".SPULE|
00000990: 4E 44 55 52 43 48 4D 45  53 53 45 52 20 20 5B 20  |NDURCHMESSER  [ |
000009A0: 43 4D 20 5D 3A 81 20 22  3B 53 44 3A 99 3A 99 00  |CM ]:. ";SD:.:..|
000009B0: BC 11 2A 03 44 4C B2 53  44 AD 53 4C 00 D4 11 34  |..*.DL.SD.SL...4|
000009C0: 03 8B 44 4C B1 B2 2E 30  31 AF 44 4C B3 B2 31 30  |..DL...01.DL..10|
000009D0: A7 38 34 30 00 E3 11 3E  03 8D 31 31 33 30 3A 89  |.840...>..1130:.|
000009E0: 37 35 30 00 13 12 48 03  8B 44 4C B1 B2 2E 30 31  |750...H..DL...01|
000009F0: AF 44 4C B3 B2 31 A7 52  B2 35 36 2E 31 30 32 3A  |.DL..1.R.56.102:|
00000A00: 58 30 B2 35 35 2E 38 37  32 3A 59 30 B2 AB 35 2E  |X0.55.872:Y0..5.|
00000A10: 30 38 33 00 40 12 52 03  8B 44 4C B1 31 AF 44 4C  |083.@.R..DL.1.DL|
00000A20: B3 B2 31 30 A7 52 B2 32  30 2E 37 31 33 3A 58 30  |..10.R.20.713:X0|
00000A30: B2 32 31 2E 33 33 36 3A  59 30 B2 32 2E 36 36 34  |.21.336:Y0.2.664|
00000A40: 00 5C 12 5C 03 57 B2 A5  45 52 28 BA 28 4C AD 28  |.\.\.W..ER(.(L.(|
00000A50: A5 4B 28 44 4C 29 AC 53  44 29 29 29 00 81 12 66  |.K(DL).SD)))...f|
00000A60: 03 99 22 90 57 49 4E 44  55 4E 47 53 5A 41 48 4C  |..".WINDUNGSZAHL|
00000A70: 3A 81 20 22 3B 57 3B 22  90 57 44 47 22 3A 99 3A  |:. ";W;".WDG":.:|
00000A80: 99 00 87 12 70 03 8E 00  8D 12 7A 03 3A 00 B3 12  |....p.....z.:...|
00000A90: 84 03 8F 20 2A 2A 2A 20  42 45 52 45 43 48 4E 55  |... *** BERECHNU|
00000AA0: 4E 47 20 53 50 55 4C 45  4E 4C 41 45 4E 47 45 20  |NG SPULENLAENGE |
00000AB0: 2A 2A 2A 00 B9 12 8E 03  3A 00 D3 12 98 03 99 22  |***.....:......"|
00000AC0: 93 1F 47 45 42 45 4E 20  53 49 45 20 45 49 4E 3A  |..GEBEN SIE EIN:|
00000AD0: 22 3A 99 00 04 13 A2 03  85 22 1E 49 4E 44 55 4B  |":.......".INDUK|
00000AE0: 54 49 56 49 54 41 45 54  20 20 20 20 20 20 20 5B  |TIVITAET       [|
00000AF0: 20 48 20 5D 3A 81 20 22  3B 4C 3A 4C B2 4C AC 31  | H ]:. ";L:L.L.1|
00000B00: 45 39 3A 99 00 2D 13 AC  03 85 22 1E 57 49 4E 44  |E9:..-....".WIND|
00000B10: 55 4E 47 53 5A 41 48 4C  20 20 5B 57 49 4E 44 55  |UNGSZAHL  [WINDU|
00000B20: 4E 47 45 4E 5D 3A 81 20  22 3B 57 3A 99 00 59 13  |NGEN]:. ";W:..Y.|
00000B30: B6 03 85 22 1E 53 50 55  4C 45 4E 44 55 52 43 48  |...".SPULENDURCH|
00000B40: 4D 45 53 53 45 52 20 20  5B 20 43 4D 20 5D 3A 81  |MESSER  [ CM ]:.|
00000B50: 20 22 3B 53 44 3A 99 3A  99 00 6A 13 C0 03 4B B2  | ";SD:.:..j...K.|
00000B60: 4C AD 28 57 AC 57 AC 53  44 29 00 80 13 CA 03 8B  |L.(W.W.SD)......|
00000B70: 4B B1 B2 2E 31 AF 4B B3  B2 32 30 A7 31 30 30 30  |K...1.K..20.1000|
00000B80: 00 B2 13 D4 03 99 22 1F  12 20 44 49 45 20 57 45  |......".. DIE WE|
00000B90: 52 54 45 2C 20 44 49 45  20 53 49 45 20 41 4E 47  |RTE, DIE SIE ANG|
00000BA0: 45 47 45 42 45 4E 20 48  41 42 45 4E 2C 4C 49 45  |EGEBEN HABEN,LIE|
00000BB0: 2D 22 00 C1 13 DE 03 8D  31 31 35 30 3A 89 39 30  |-"......1150:.90|
00000BC0: 30 00 F0 13 E8 03 8B 4B  B1 B2 2E 31 AF 4B B3 B2  |0......K...1.K..|
00000BD0: 36 2E 35 A7 52 B2 35 36  2E 31 30 32 3A 58 30 B2  |6.5.R.56.102:X0.|
00000BE0: 35 35 2E 38 37 32 3A 59  30 B2 AB 35 2E 30 38 33  |55.872:Y0..5.083|
00000BF0: 00 1D 14 F2 03 8B 4B B1  36 2E 35 AF 4B B3 B2 32  |......K.6.5.K..2|
00000C00: 30 A7 52 B2 32 30 2E 37  31 33 3A 58 30 B2 32 31  |0.R.20.713:X0.21|
00000C10: 2E 33 33 36 3A 59 30 B2  32 2E 36 36 34 00 41 14  |.336:Y0.2.664.A.|
00000C20: FC 03 53 4C B2 A5 45 52  28 53 44 AD 28 58 30 AB  |..SL..ER(SD.(X0.|
00000C30: BA 28 52 AC 52 AB 28 4B  AB 59 30 29 AE 32 29 29  |.(R.R.(K.Y0).2))|
00000C40: 29 00 65 14 06 04 99 22  1F 53 50 55 4C 45 4E 4C  |).e....".SPULENL|
00000C50: 41 45 4E 47 45 3A 81 20  22 3B 53 4C 3B 22 43 4D  |AENGE:. ";SL;"CM|
00000C60: 22 3A 99 3A 99 00 6B 14  10 04 8E 00 71 14 1A 04  |":.:..k.....q...|
00000C70: 3A 00 97 14 24 04 8F 2A  20 2A 20 2A 20 2A 20 57  |:...$..* * * * W|
00000C80: 45 49 54 45 52 45 20 42  45 52 2E 2F 45 4E 44 20  |EITERE BER./END |
00000C90: 2A 20 2A 20 2A 20 2A 00  9D 14 2E 04 3A 00 C2 14  |* * * *.....:...|
00000CA0: 38 04 99 22 1E 57 45 49  54 45 52 45 20 42 45 52  |8..".WEITERE BER|
00000CB0: 45 43 48 4E 55 4E 47 45  4E 3F 20 20 28 4A 2F 4E  |ECHNUNGEN?  (J/N|
00000CC0: 29 22 00 D6 14 42 04 A1  58 24 3A 8B 58 24 B2 22  |)"...B..X$:.X$."|
00000CD0: 22 A7 31 30 39 30 00 E4  14 4C 04 8B 58 24 B2 22  |".1090...L..X$."|
00000CE0: 4A 22 A7 8E 00 F4 14 56  04 8B 58 24 B2 22 4E 22  |J".....V..X$."N"|
00000CF0: A7 9C 3A 80 00 FE 14 60  04 89 31 30 39 30 00 31  |..:....`..1090.1|
00000D00: 15 6A 04 99 22 1F 12 20  44 49 45 20 57 45 52 54  |.j..".. DIE WERT|
00000D10: 45 2C 20 44 49 45 20 53  49 45 20 20 46 55 45 52  |E, DIE SIE  FUER|
00000D20: 20 20 53 50 55 4C 45 4E  4C 41 45 4E 47 45 22 3A  |  SPULENLAENGE":|
00000D30: 99 00 63 15 74 04 99 22  12 55 4E 44 20 2D 44 55  |..c.t..".UND -DU|
00000D40: 52 43 48 4D 45 53 53 45  52 20 20 41 4E 47 45 47  |RCHMESSER  ANGEG|
00000D50: 45 42 45 4E 20 48 41 42  45 4E 2C 20 4C 49 45 2D  |EBEN HABEN, LIE-|
00000D60: 22 3A 99 00 91 15 7E 04  99 22 12 46 45 52 4E 20  |":....~..".FERN |
00000D70: 4B 45 49 4E 45 20 53 49  4E 4E 56 4F 4C 4C 45 4E  |KEINE SINNVOLLEN|
00000D80: 20 45 52 47 45 42 4E 49  53 53 45 21 20 92 22 3A  | ERGEBNISSE! .":|
00000D90: 99 00 B5 15 88 04 99 22  11 11 9C 42 49 54 54 45  |......."...BITTE|
00000DA0: 20 4E 45 55 45 49 4E 47  41 42 45 21 22 3A 8D 31  | NEUEINGABE!":.1|
00000DB0: 31 37 30 3A 8E 00 DF 15  92 04 99 A3 33 31 29 3B  |170:........31);|
00000DC0: 22 1E 20 A4 A4 A4 A4 A4  A4 20 22 3A 99 A3 33 31  |". ...... ":..31|
00000DD0: 29 3B 22 1E 3C 12 52 45  54 55 52 4E 92 3E 22 00  |);".<.RETURN.>".|
00000DE0: F3 15 9C 04 A1 58 24 3A  8B 58 24 B2 22 22 A7 31  |.....X$:.X$."".1|
00000DF0: 31 38 30 00 07 16 A6 04  8B C6 28 58 24 29 B3 B1  |180.......(X$)..|
00000E00: 31 33 A7 31 31 38 30 00  0D 16 B0 04 8E 00 32 16  |13.1180.......2.|
00000E10: BA 04 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |...*************|
00000E20: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000E30: 2A 2A 00 57 16 C4 04 8F  2A 20 20 20 20 20 20 20  |**.W....*       |
00000E40: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000E50: 20 20 20 20 20 20 2A 00  7C 16 CE 04 8F 2A 20 20  |      *.|....*  |
00000E60: 50 52 4F 47 52 41 4D 4D  4C 41 45 4E 47 45 20 33  |PROGRAMMLAENGE 3|
00000E70: 37 38 31 20 42 59 54 45  53 20 20 2A 00 A1 16 D8  |781 BYTES  *....|
00000E80: 04 8F 2A 20 20 20 20 20  20 20 20 20 20 20 20 20  |..*             |
00000E90: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000EA0: 2A 00 C6 16 E2 04 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |*......*********|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000EC0: 2A 2A 2A 2A 2A 2A 00 00  00 00                    |******....      |
..(....*********************************
.O....*                               *.
V....*       SPULENBERECHNUNG        *..
.(..*                               *.D.
2..*********************************...<
..53280,15:.53281,15:.657,128...F..150:.
 UNTERPROGRAMME...P..220:. ERLAEUTERUNG.
*.Z..490:. AUSWAHL.L.D..X.600,750,900:. 
BERECHNUNGEN.X.N..X.0.90.U.X..1060:. WEI
TERE BER./END.}....90.....:...... * * * 
* UNTERPROGRAMME * * * *... .:.N.....K(D
L)..(R.R.(DL.X0).2).Y0.....LG..(10).....
..ER(X)..(X.10.(.(.(X).LG.2))..5).10.(.(
.(X).LG.2))...H.....R.:.B.... * * * * ER
LAEUTERUNG * * * *.H...:.L...I.12:.".";.
I);"..            .".......I);". LUFTSPU
LEN .".......I);".            .":.:.:..X
....".DIE HERSTELLUNG VON INDUKTIVITAETE
N IST":......."IN DER HOCHFREQUENZTECHNI
K EBENSO HAEU-":..'.".."FIG WIE SCHWIERI
G.":.:..Z.,.."MIT  DIESEM . BASIC - LUFT
SPULENPROGRAMM.":....6.."KOENNEN SIE  VO
N .EINLAGIGEN  ZYLINDER -":....@.."SPULE
N OHNE KERN. WAHLWEISE DEREN .INDUK-":..
..J.."TIVITAET.,. WINDUNGSZAHL. ODER DIE
 .SPULEN-":....T.."LAENGE. BERECHNEN."..
.^..1170.P.H.."..........":.".HINWEIS:. 
           .WICHTIG !  ".G.R...20)".EEEE
EEEEE."...|..".DER  SPULENDURCHMESSER  S
OLL MINDESTENS":..N...."DEN .FUENFFACHEN
. DRAHTDURCHMESSER HABEN.":.:......."DAS
  VERHAELTNIS  .SPULENDURCHMESSER  .ZU":
..4....".SPULENLAENGE.   SOLLTE  FUER  U
KW-SPULEN":..I...."ZWISCHEN.  0.7. UND. 
 1.5,.  FUER KW-SPULEN":......."ZWISCHEN
. 0.5. UND. 1. LIEGEN.":.:..E...."BEI UK
W-SPULEN SOLL DER .WINDUNGSABSTAND":....
B.."GLEICH DEM DRAHTDURCHMESSER. SEIN.":
....L..1170...V.......:.-.... * * * * * 
* AUSWAHL * * * * * *.3...:.\...."......
.SIE KOENNEN BERECHNEN:":.:.......".    
  INDUKTIVITAET   =   . 1 .":.......".  
    WINDUNGSZAHL    =   . 2 .":.......".
      SPULENLAENGE    =   . 3 .":.:....&
..".WELCHE MOEGLICHKEIT WAEHLEN SIE ?"..
.0..X$:.X$."".560.2.:.X.E(X$):.X.1.X.3.X
.0.8.D...>.N.:.D.X..*** BERECHNUNG INDUK
TIVITAET ***.J.B.:...L.."..GEBEN SIE EIN
:":....V..".WINDUNGSZAHL  [WINDUNGEN]:. 
";W:..W....".SPULENLAENGE       [ CM ]:.
 ";SL:.......".SPULENDURCHMESSER  [ CM ]
:. ";SD:.:......DL.SD.SL.(....DL...01.DL
..10.690.7....1130:.600.G....DL...01.DL.
.1.R.56.102:X0.55.872:Y0..5.083......DL.
1.DL..10.R.20.713:X0.21.336:Y0.2.664...F
.L..ER(.K(DL).W.W.SD.1E.9).V.P..".INDUKT
IVITAET:. ";L;".H":.:....Z.......:......
 *** BERECHNUNG WINDUNGSZAHL ***.....:.(
...."..GEBEN SIE EIN:":..Y....".INDUKTIV
ITAET      [ H ]:.  ";L:L.L.1E9:......."
.SPULENLAENGE       [ CM ]:. ";SL:.... .
.".SPULENDURCHMESSER  [ CM ]:. ";SD:.:..
..*.DL.SD.SL.T.4..DL...01.DL..10.840...>
..1130:.750...H..DL...01.DL..1.R.56.102:
X0.55.872:Y0..5.083.@.R..DL.1.DL..10.R.2
0.713:X0.21.336:Y0.2.664.\.\.W..ER(.(L.(
.K(DL).SD)))...F..".WINDUNGSZAHL:. ";W;"
.WDG":.:....P.....Z.:...... *** BERECHNU
NG SPULENLAENGE ***.....:.S...."..GEBEN 
SIE EIN:":.......".INDUKTIVITAET       [
 H ]:. ";L:L.L.1E9:..-....".WINDUNGSZAHL
  [WINDUNGEN]:. ";W:..Y....".SPULENDURCH
MESSER  [ CM ]:. ";SD:.:..J...K.L.(W.W.S
D)...J..K...1.K..20.1000...T..".. DIE WE
RTE, DIE SIE ANGEGEBEN HABEN,LIE-".A....
1150:.900......K...1.K..6.5.R.56.102:X0.
55.872:Y0..5.083......K.6.5.K..20.R.20.7
13:X0.21.336:Y0.2.664.A...SL..ER(SD.(X0.
.(R.R.(K.Y0).2))).E....".SPULENLAENGE:. 
";SL;"CM":.:..K.....Q...:...$..* * * * W
EITERE BER./END * * * *.....:.B.8..".WEI
TERE BERECHNUNGEN?  (J/N)".V.B..X$:.X$."
".1090...L..X$."J".....V..X$."N"..:....`
..1090.1.J..".. DIE WERTE, DIE SIE  FUER
  SPULENLAENGE":..C.T..".UND -DURCHMESSE
R  ANGEGEBEN HABEN, LIE-":....~..".FERN 
KEINE SINNVOLLEN ERGEBNISSE! .":......."
...BITTE NEUEINGABE!":.1170:........31);
". ...... ":..31);".<.RETURN.>"......X$:
.X$."".1180......F(X$)..13.1180.......2.
...*******************************.W.D..
*                             *.|.N..*  
PROGRAMMLAENGE 3781 BYTES  *...X..*     
                        *.F....*********
**********************....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL