TEIL 23
FILE INFORMATION
FILENAME(S): TEIL 23
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 23:23:02
APPEARS ON: 1 disk(s)
FILE HASH
0d88a8837128b98390edcef922f9661ee7925d98bf01d31de90895aa3125def7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NR 45 2 | TEIL 23 | PRG | swasti, dinkel | 10 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 01 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.| 00000010: 35 33 32 38 31 2C 31 00 29 08 02 00 5A 24 B2 C7 |53281,1.)...Z$..| 00000020: 28 33 34 29 3A 89 34 38 30 00 5A 08 03 00 99 22 |(34):.480.Z...."| 00000030: 93 22 3A 81 49 B2 31 A4 33 39 3A 99 43 24 3B 3A |.":.I.1.39:.C$;:| 00000040: 82 3A 81 49 B2 31 A4 32 32 3A 99 22 9D 11 22 43 |.:.I.1.22:.".."C| 00000050: 24 3B 3A 82 3A 99 22 9D 22 3B 00 77 08 04 00 81 |$;:.:.".";.w....| 00000060: 49 B2 31 A4 33 38 3A 99 22 9D 22 43 24 22 9D 22 |I.1.38:."."C$"."| 00000070: 3B 3A 82 3A 99 43 24 00 92 08 05 00 81 49 B2 31 |;:.:.C$......I.1| 00000080: A4 32 33 3A 99 22 91 22 43 24 22 9D 22 3B 3A 82 |.23:."."C$".";:.| 00000090: 3A 8E 00 A3 08 07 00 A1 41 24 3A 8B 41 24 B2 22 |:.......A$:.A$."| 000000A0: 22 A7 37 00 AB 08 08 00 99 3A 8E 00 CF 08 E0 01 |".7......:......| 000000B0: 99 22 93 22 A3 31 30 29 22 5A 55 4F 52 44 4E 55 |.".".10)"ZUORDNU| 000000C0: 4E 47 53 2D 50 52 4F 47 52 41 4D 4D 11 11 22 00 |NGS-PROGRAMM..".| 000000D0: 09 09 E1 01 99 22 44 41 53 20 46 4F 4C 47 45 4E |....."DAS FOLGEN| 000000E0: 44 45 20 50 52 4F 47 52 41 4D 4D 20 4F 52 44 4E |DE PROGRAMM ORDN| 000000F0: 45 54 20 45 49 4E 45 20 4C 49 53 54 45 22 3A 8F |ET EINE LISTE":.| 00000100: 4C 2E 42 2E 4B 4F 45 4C 4E 00 37 09 E2 01 99 22 |L.B.KOELN.7...."| 00000110: 56 4F 4E 20 31 30 30 20 4E 41 4D 45 4E 20 4E 41 |VON 100 NAMEN NA| 00000120: 43 48 20 44 45 52 20 47 52 4F 45 53 53 45 20 44 |CH DER GROESSE D| 00000130: 45 52 20 44 41 5A 55 00 5E 09 E3 01 99 22 45 49 |ER DAZU.^...."EI| 00000140: 4E 47 45 47 45 42 45 4E 45 4E 20 28 50 4F 53 49 |NGEGEBENEN (POSI| 00000150: 54 49 56 45 4E 29 20 57 45 52 54 45 2E 11 00 8A |TIVEN) WERTE....| 00000160: 09 E4 01 99 22 48 49 45 52 20 45 49 4E 49 47 45 |...."HIER EINIGE| 00000170: 20 42 45 49 53 50 49 45 4C 45 2C 20 44 49 45 20 | BEISPIELE, DIE | 00000180: 5A 45 49 47 45 4E 20 57 49 45 00 BD 09 E5 01 99 |ZEIGEN WIE......| 00000190: 22 56 49 45 4C 53 45 49 54 49 47 20 44 49 45 53 |"VIELSEITIG DIES| 000001A0: 45 53 20 50 52 4F 47 52 41 4D 4D 20 41 4E 57 45 |ES PROGRAMM ANWE| 000001B0: 4E 44 42 41 52 22 3A 99 22 49 53 54 3A 00 FE 09 |NDBAR":."IST:...| 000001C0: E6 01 99 22 4D 49 54 20 44 49 45 53 45 4D 20 50 |..."MIT DIESEM P| 000001D0: 52 4F 47 52 41 4D 4D 20 4B 4F 45 4E 4E 45 4E 20 |ROGRAMM KOENNEN | 000001E0: 22 3A 99 A3 31 30 29 22 57 41 52 45 4E 20 4E 41 |":..10)"WAREN NA| 000001F0: 43 48 20 44 45 4E 20 50 52 45 49 53 45 4E 00 3D |CH DEN PREISEN.=| 00000200: 0A E7 01 99 A3 31 30 29 22 42 45 52 47 45 20 4E |.....10)"BERGE N| 00000210: 41 43 48 20 44 45 4E 20 48 4F 45 48 45 4E 22 3A |ACH DEN HOEHEN":| 00000220: 99 A3 31 30 29 22 53 43 48 55 45 4C 45 52 20 4E |..10)"SCHUELER N| 00000230: 41 43 48 20 44 45 4E 20 4E 4F 54 45 4E 00 6B 0A |ACH DEN NOTEN.k.| 00000240: E8 01 99 A3 31 30 29 22 46 49 52 4D 45 4E 20 4E |....10)"FIRMEN N| 00000250: 41 43 48 20 44 45 4D 20 55 4D 53 41 54 5A 22 3A |ACH DEM UMSATZ":| 00000260: 99 A3 31 30 29 22 55 53 57 2E 22 00 86 0A E9 01 |..10)"USW.".....| 00000270: 99 A3 32 34 29 22 47 45 4F 52 44 4E 45 54 20 57 |..24)"GEORDNET W| 00000280: 45 52 44 45 4E 2E 00 8D 0A EA 01 8D 37 00 C6 0A |ERDEN.......7...| 00000290: F4 01 99 22 93 22 A3 31 38 29 22 5A 55 4F 52 44 |...".".18)"ZUORD| 000002A0: 4E 55 4E 47 22 3A 99 22 31 30 20 44 49 4D 20 4E |NUNG":."10 DIM N| 000002B0: 24 28 31 30 30 29 2C 20 53 28 31 30 30 29 2C 50 |$(100), S(100),P| 000002C0: 54 28 31 30 30 29 00 08 0B F5 01 99 22 32 30 20 |T(100)......"20 | 000002D0: 50 52 49 4E 54 22 5A 24 22 57 49 45 56 49 45 4C |PRINT"Z$"WIEVIEL| 000002E0: 45 20 45 49 4E 47 41 42 45 4E 20 48 41 54 20 44 |E EINGABEN HAT D| 000002F0: 49 45 20 4C 49 53 54 45 22 5A 24 3A 99 22 33 30 |IE LISTE"Z$:."30| 00000300: 20 49 4E 50 55 54 20 4E 00 46 0B F6 01 99 22 34 | INPUT N.F...."4| 00000310: 30 20 50 52 49 4E 54 22 5A 24 22 45 49 4E 47 41 |0 PRINT"Z$"EINGA| 00000320: 42 45 20 56 4F 4E 20 22 5A 24 22 20 4E 20 22 5A |BE VON "Z$" N "Z| 00000330: 24 22 20 4E 41 4D 45 4E 20 55 4E 44 20 57 45 52 |$" NAMEN UND WER| 00000340: 54 45 4E 22 5A 24 00 5E 0B F8 01 99 22 35 30 20 |TEN"Z$.^...."50 | 00000350: 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 4E 00 82 |FOR I = 1 TO N..| 00000360: 0B F9 01 99 22 36 30 20 49 4E 50 55 54 20 4E 24 |...."60 INPUT N$| 00000370: 28 49 29 2C 20 53 28 49 29 22 3A 99 22 37 30 20 |(I), S(I)":."70 | 00000380: 22 3B 00 C9 0B FA 01 99 22 4E 45 58 54 22 3A 99 |";......"NEXT":.| 00000390: 22 38 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F |"80 FOR I = 1 TO| 000003A0: 20 4E 22 3A 99 22 39 30 20 4D 20 3D 20 2D 39 39 | N":."90 M = -99| 000003B0: 39 39 39 22 3A 99 22 31 30 30 20 46 4F 52 20 4A |999":."100 FOR J| 000003C0: 20 3D 20 31 20 54 4F 20 4E 00 14 0C FC 01 99 22 | = 1 TO N......"| 000003D0: 31 31 30 20 49 46 20 53 28 4A 29 20 3C 3D 20 4D |110 IF S(J) <= M| 000003E0: 20 54 48 45 4E 20 31 34 30 22 3A 99 22 31 32 30 | THEN 140":."120| 000003F0: 20 4D 20 3D 20 53 28 4A 29 22 3A 99 22 31 33 30 | M = S(J)":."130| 00000400: 20 49 53 20 3D 20 4A 22 3A 99 22 31 34 30 20 4E | IS = J":."140 N| 00000410: 45 58 54 22 00 4C 0C FE 01 99 22 31 35 30 20 50 |EXT".L...."150 P| 00000420: 54 28 49 29 20 3D 20 49 53 22 3A 99 22 31 36 30 |T(I) = IS":."160| 00000430: 20 53 28 49 53 29 20 3D 20 2D 53 28 49 53 29 22 | S(IS) = -S(IS)"| 00000440: 3A 99 22 31 37 30 20 4E 45 58 54 22 00 66 0C FF |:."170 NEXT".f..| 00000450: 01 99 22 31 38 30 20 50 52 49 4E 54 22 5A 24 22 |.."180 PRINT"Z$"| 00000460: 52 41 4E 47 22 3B 00 AA 0C 00 02 99 5A 24 22 2C |RANG";......Z$",| 00000470: 22 5A 24 22 4E 41 4D 45 22 5A 24 22 2C 22 5A 24 |"Z$"NAME"Z$","Z$| 00000480: 22 57 45 52 54 22 5A 24 3A 99 22 31 39 30 20 50 |"WERT"Z$:."190 P| 00000490: 52 49 4E 54 22 3A 99 22 32 30 30 20 46 4F 52 20 |RINT":."200 FOR | 000004A0: 49 20 3D 20 31 20 54 4F 20 4E 00 EA 0C 02 02 99 |I = 1 TO N......| 000004B0: 22 32 31 30 20 4B 20 3D 20 50 54 28 49 29 22 3A |"210 K = PT(I)":| 000004C0: 99 22 32 32 30 20 50 52 49 4E 54 20 49 2C 4E 24 |."220 PRINT I,N$| 000004D0: 28 4B 29 2C 2D 53 28 4B 29 22 3A 99 22 32 33 30 |(K),-S(K)":."230| 000004E0: 20 4E 45 58 54 22 3B 3A 8D 37 00 2D 0D 58 02 99 | NEXT";:.7.-.X..| 000004F0: 22 93 22 A3 31 35 29 22 57 4F 52 54 53 50 49 45 |".".15)"WORTSPIE| 00000500: 4C 11 22 3A 99 22 44 41 53 20 46 4F 4C 47 45 4E |L.":."DAS FOLGEN| 00000510: 44 45 20 50 52 4F 47 52 41 4D 4D 20 49 53 54 20 |DE PROGRAMM IST | 00000520: 45 49 4E 20 4C 45 52 4E 53 50 49 45 4C 00 5B 0D |EIN LERNSPIEL.[.| 00000530: 5A 02 8D 37 3A 99 22 44 45 52 20 43 4F 4D 50 55 |Z..7:."DER COMPU| 00000540: 54 45 52 20 53 43 48 52 45 49 42 54 20 45 49 4E |TER SCHREIBT EIN| 00000550: 20 45 4E 47 4C 49 53 43 48 45 53 00 86 0D 5B 02 | ENGLISCHES...[.| 00000560: 99 22 57 4F 52 54 20 41 55 46 20 44 45 4E 20 42 |."WORT AUF DEN B| 00000570: 49 4C 44 53 43 48 49 52 4D 2C 20 55 4E 44 20 45 |ILDSCHIRM, UND E| 00000580: 53 20 53 4F 4C 4C 00 BF 0D 5C 02 99 22 44 41 53 |S SOLL...\.."DAS| 00000590: 20 4A 45 57 45 49 4C 49 47 45 20 44 45 55 54 53 | JEWEILIGE DEUTS| 000005A0: 43 48 45 20 57 4F 52 54 20 45 49 4E 47 45 54 49 |CHE WORT EINGETI| 000005B0: 50 50 54 22 3A 99 22 57 45 52 44 45 4E 2E 11 00 |PPT":."WERDEN...| 000005C0: E6 0D 5E 02 99 22 44 45 52 20 43 4F 4D 50 55 54 |..^.."DER COMPUT| 000005D0: 45 52 20 53 54 45 4C 4C 54 20 46 45 53 54 2C 20 |ER STELLT FEST, | 000005E0: 4F 42 20 44 49 45 00 0E 0E 5F 02 99 22 41 4E 54 |OB DIE..._.."ANT| 000005F0: 57 4F 52 54 20 52 49 43 48 54 49 47 20 4F 44 45 |WORT RICHTIG ODE| 00000600: 52 20 46 41 4C 53 43 48 20 49 53 54 2E 11 00 35 |R FALSCH IST...5| 00000610: 0E 60 02 99 22 44 41 42 45 49 20 57 49 52 44 20 |.`.."DABEI WIRD | 00000620: 4A 45 44 45 20 56 4F 4B 41 42 45 4C 20 55 4E 44 |JEDE VOKABEL UND| 00000630: 20 49 48 52 45 00 66 0E 61 02 99 22 42 45 44 45 | IHRE.f.a.."BEDE| 00000640: 55 54 55 4E 47 20 49 4E 20 45 49 4E 45 4D 20 53 |UTUNG IN EINEM S| 00000650: 45 50 41 52 41 54 45 4E 20 44 41 54 41 2D 42 45 |EPARATEN DATA-BE| 00000660: 46 45 48 4C 22 3B 00 8F 0E 62 02 99 22 47 45 53 |FEHL";...b.."GES| 00000670: 50 45 49 43 48 45 52 54 2C 20 53 4F 44 41 53 53 |PEICHERT, SODASS| 00000680: 20 44 49 45 20 41 4E 5A 41 48 4C 20 44 45 52 00 | DIE ANZAHL DER.| 00000690: B8 0E 63 02 99 22 56 4F 4B 41 42 45 4C 4E 20 55 |..c.."VOKABELN U| 000006A0: 4E 44 20 49 48 52 20 53 43 48 49 45 52 49 47 4B |ND IHR SCHIERIGK| 000006B0: 45 49 54 53 47 52 41 44 00 E0 0E 64 02 99 22 4C |EITSGRAD...d.."L| 000006C0: 45 49 43 48 54 20 47 45 41 45 4E 44 45 52 54 20 |EICHT GEAENDERT | 000006D0: 57 45 52 44 45 4E 20 4B 41 4E 4E 2E 22 3A 8D 37 |WERDEN KANN.":.7| 000006E0: 00 2D 0F 6C 02 99 22 93 31 30 20 52 45 41 44 20 |.-.l..".10 READ | 000006F0: 4E 22 3A 99 22 32 30 20 46 4F 52 20 49 20 3D 20 |N":."20 FOR I = | 00000700: 31 20 54 4F 20 4E 22 3A 99 22 33 30 20 52 45 41 |1 TO N":."30 REA| 00000710: 44 20 57 24 2C 4E 53 22 3A 99 22 34 30 20 46 4F |D W$,NS":."40 FO| 00000720: 52 20 4B 20 3D 20 31 20 54 4F 20 4E 53 00 4C 0F |R K = 1 TO NS.L.| 00000730: 6E 02 99 22 35 30 20 52 45 41 44 20 53 24 28 4B |n.."50 READ S$(K| 00000740: 29 22 3A 99 22 36 30 20 4E 45 58 54 00 7A 0F 6F |)":."60 NEXT.z.o| 00000750: 02 99 22 37 30 20 50 52 49 4E 54 22 5A 24 22 55 |.."70 PRINT"Z$"U| 00000760: 45 42 45 52 53 45 54 5A 45 20 44 41 53 20 57 4F |EBERSETZE DAS WO| 00000770: 52 54 20 22 5A 24 22 3B 57 24 00 B7 0F 70 02 99 |RT "Z$";W$...p..| 00000780: 22 38 30 20 49 4E 50 55 54 20 52 24 22 3A 99 22 |"80 INPUT R$":."| 00000790: 39 30 20 49 46 20 52 24 20 3D 20 22 3B 5A 24 3B |90 IF R$ = ";Z$;| 000007A0: 22 48 49 4C 46 45 21 22 3B 5A 24 3B 22 20 54 48 |"HILFE!";Z$;" TH| 000007B0: 45 4E 20 31 37 30 22 00 D1 0F 71 02 99 22 31 30 |EN 170"...q.."10| 000007C0: 30 20 46 4F 52 20 4B 20 3D 20 31 20 54 4F 20 4E |0 FOR K = 1 TO N| 000007D0: 53 00 FF 0F 72 02 99 22 31 31 30 20 49 46 20 52 |S...r.."110 IF R| 000007E0: 24 20 3D 20 53 24 28 4B 29 20 54 48 45 4E 20 31 |$ = S$(K) THEN 1| 000007F0: 35 30 22 3A 99 22 31 32 30 20 4E 45 58 54 22 00 |50":."120 NEXT".| 00000800: 40 10 73 02 99 22 31 33 30 20 50 52 49 4E 54 22 |@.s.."130 PRINT"| 00000810: 5A 24 22 4E 45 49 4E 21 20 20 55 45 42 45 52 4C |Z$"NEIN! UEBERL| 00000820: 45 47 45 20 4E 4F 43 48 4D 41 4C 20 4F 44 45 52 |EGE NOCHMAL ODER| 00000830: 20 54 49 50 50 45 20 48 49 4C 46 45 21 22 5A 24 | TIPPE HILFE!"Z$| 00000840: 00 73 10 74 02 99 22 31 34 30 20 47 4F 20 54 4F |.s.t.."140 GO TO| 00000850: 20 38 30 22 3A 99 22 31 35 30 20 50 52 49 4E 54 | 80":."150 PRINT| 00000860: 20 22 3B 5A 24 3B 22 52 49 43 48 54 49 47 21 21 | ";Z$;"RICHTIG!!| 00000870: 22 5A 24 00 A7 10 76 02 99 22 31 36 30 20 47 4F |"Z$...v.."160 GO| 00000880: 54 4F 20 32 31 30 22 3A 99 22 31 37 30 20 50 52 |TO 210":."170 PR| 00000890: 49 4E 54 20 57 24 22 5A 24 22 20 42 45 44 45 55 |INT W$"Z$" BEDEU| 000008A0: 54 45 54 20 22 5A 24 00 F8 10 78 02 99 22 31 38 |TET "Z$...x.."18| 000008B0: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 53 22 |0 FOR K=1 TO NS"| 000008C0: 3A 99 22 31 39 30 20 50 52 49 4E 54 20 53 24 28 |:."190 PRINT S$(| 000008D0: 4B 29 22 3A 99 22 32 30 30 20 4E 45 58 54 22 3A |K)":."200 NEXT":| 000008E0: 99 22 32 31 30 20 4E 45 58 54 22 3A 99 22 32 32 |."210 NEXT":."22| 000008F0: 30 20 44 41 54 41 20 32 00 1B 11 7A 02 99 22 32 |0 DATA 2...z.."2| 00000900: 33 30 20 44 41 54 41 20 47 4F 41 4C 2C 33 2C 54 |30 DATA GOAL,3,T| 00000910: 4F 52 2C 5A 49 45 4C 2C 4D 41 4C 00 49 11 7C 02 |OR,ZIEL,MAL.I.|.| 00000920: 99 22 32 34 30 20 44 41 54 41 20 48 49 54 2C 33 |."240 DATA HIT,3| 00000930: 2C 53 54 4F 53 53 2C 54 52 45 46 46 45 52 2C 53 |,STOSS,TREFFER,S| 00000940: 43 48 4C 41 47 45 52 22 3B 00 50 11 8A 02 8D 37 |CHLAGER";.P....7| 00000950: 00 92 11 20 03 43 24 B2 22 12 D6 92 22 3A 8D 33 |... .C$."...":.3| 00000960: 3A 99 22 11 11 11 11 11 1D 1D 1D 48 49 45 52 4D |:."........HIERM| 00000970: 49 54 20 49 53 54 20 44 45 52 20 42 41 53 49 43 |IT IST DER BASIC| 00000980: 2D 4B 55 52 53 20 42 45 45 4E 44 45 54 2E 11 11 |-KURS BEENDET...| 00000990: 11 22 00 BC 11 48 03 99 22 1D 1D 53 49 45 20 57 |."...H.."..SIE W| 000009A0: 45 52 44 45 4E 20 4A 45 54 5A 54 20 49 4E 20 44 |ERDEN JETZT IN D| 000009B0: 45 52 20 4C 41 47 45 20 53 45 49 4E 00 F1 11 5C |ER LAGE SEIN...\| 000009C0: 03 99 22 1D 1D 49 48 52 45 20 45 49 47 45 4E 45 |.."..IHRE EIGENE| 000009D0: 4E 20 50 52 4F 47 52 41 4D 4D 45 20 5A 55 20 53 |N PROGRAMME ZU S| 000009E0: 43 48 52 45 49 42 45 4E 2E 22 3A 99 22 11 11 11 |CHREIBEN.":."...| 000009F0: 11 00 2B 12 66 03 99 22 1D 1D 48 45 52 5A 4C 49 |..+.f.."..HERZLI| 00000A00: 43 48 45 4E 20 47 4C 55 45 43 4B 57 55 4E 53 43 |CHEN GLUECKWUNSC| 00000A10: 48 20 55 4E 44 20 56 49 45 4C 22 3A 99 22 1D 1D |H UND VIEL":."..| 00000A20: 45 52 46 4F 4C 47 21 11 11 11 11 00 00 00 01 45 |ERFOLG!........E| 00000A30: 49 4C 53 20 5A 55 4D 20 4A 41 48 52 45 53 45 4E |ILS ZUM JAHRESEN| 00000A40: 44 45 00 5C 0E 30 01 99 22 28 47 52 41 44 4C 49 |DE.\.0.."(GRADLI| 00000A50: 4E 49 47 45 20 41 42 53 43 48 52 45 49 42 55 4E |NIGE ABSCHREIBUN| 00000A60: 47 29 2E 00 99 0E 38 01 99 22 11 31 30 20 50 52 |G)....8..".10 PR| 00000A70: 49 4E 54 20 22 3B 5A 24 3B 22 45 49 4E 47 41 42 |INT ";Z$;"EINGAB| 00000A80: 45 20 44 45 53 20 4E 45 4E 4E 57 45 52 54 53 22 |E DES NENNWERTS"| 00000A90: 3B 5A 24 3A 99 22 32 30 20 49 4E 50 55 54 20 49 |;Z$:."20 INPUT I| 00000AA0: 00 DB 0E 3A 01 99 22 33 30 20 50 52 49 4E 54 20 |...:.."30 PRINT | 00000AB0: 22 3B 5A 24 3B 22 45 49 4E 47 41 42 45 20 4C 41 |";Z$;"EINGABE LA| 00000AC0: 55 46 5A 45 49 54 28 49 4E 20 4A 41 48 52 45 4E |UFZEIT(IN JAHREN| 00000AD0: 29 22 3B 5A 24 3A 99 22 34 30 20 49 4E 50 55 54 |)";Z$:."40 INPUT| 00000AE0: 20 4E 00 12 0F 3C 01 99 22 35 30 20 50 52 49 4E | N...<.."50 PRIN| 00000AF0: 54 20 22 5A 24 22 45 49 4E 47 41 42 45 20 53 43 |T "Z$"EINGABE SC| 00000B00: 48 52 4F 54 54 57 45 52 54 22 5A 24 3A 99 22 36 |HROTTWERT"Z$:."6| 00000B10: 30 20 49 4E 50 55 54 20 53 00 5A 0F 3E 01 99 22 |0 INPUT S.Z.>.."| 00000B20: 37 30 20 50 52 49 4E 54 20 22 5A 24 22 45 4E 44 |70 PRINT "Z$"END| 00000B30: 45 20 44 45 53 20 4A 2E 22 5A 24 22 2C 22 5A 24 |E DES J."Z$","Z$| 00000B40: 22 41 42 53 43 48 52 45 49 42 55 4E 47 22 5A 24 |"ABSCHREIBUNG"Z$| 00000B50: 22 2C 22 5A 24 22 42 55 43 48 57 45 52 54 22 5A |","Z$"BUCHWERT"Z| 00000B60: 24 00 A1 0F 40 01 99 22 38 30 20 46 4F 52 20 4B |$...@.."80 FOR K| 00000B70: 20 3D 20 31 20 54 4F 20 4E 22 3A 99 22 39 30 20 | = 1 TO N":."90 | 00000B80: 42 20 3D 20 42 2D 28 49 2D 53 29 2F 4E 22 3A 99 |B = B-(I-S)/N":.| 00000B90: 22 31 30 30 20 50 52 49 4E 54 20 4B 2C 20 28 49 |"100 PRINT K, (I| 00000BA0: 2D 53 29 2F 4E 2C 20 42 00 BF 0F 42 01 99 22 31 |-S)/N, B...B.."1| 00000BB0: 31 30 20 4E 45 58 54 22 3A 99 22 31 32 30 20 45 |10 NEXT":."120 E| 00000BC0: 4E 44 22 3A 8D 37 00 F5 0F 20 03 43 24 B2 22 12 |ND":.7... .C$.".| 00000BD0: D6 22 3A 8D 33 3A 99 22 11 11 11 11 11 22 3B A3 |.":.3:.".....";.| 00000BE0: 39 29 22 45 4E 44 45 20 56 4F 4E 20 4C 45 4B 54 |9)"ENDE VON LEKT| 00000BF0: 49 4F 4E 20 39 20 54 45 49 4C 20 31 00 39 10 34 |ION 9 TEIL 1.9.4| 00000C00: 03 99 22 11 11 11 11 22 3B A3 31 29 22 54 45 49 |.."....";.1)"TEI| 00000C10: 4C 20 32 20 57 49 52 44 20 45 49 4E 47 45 4C 45 |L 2 WIRD EINGELE| 00000C20: 53 45 4E 2C 20 42 49 54 54 45 20 57 41 52 54 45 |SEN, BITTE WARTE| 00000C30: 4E 21 11 11 11 11 11 11 11 11 11 11 11 22 3A 93 |N!...........":.| 00000C40: 00 00 00 01 11 11 11 11 11 11 11 11 11 11 11 22 |..............."| 00000C50: 00 83 10 3E 03 93 00 00 00 01 C4 10 E2 00 99 22 |...>..........."| 00000C60: 57 4F 42 45 49 20 12 58 92 20 45 49 4E 45 20 56 |WOBEI .X. EINE V| 00000C70: 41 52 49 41 42 4C 45 20 4F 44 45 52 20 45 49 4E |ARIABLE ODER EIN| 00000C80: 20 54 45 52 4D 20 53 45 49 4E 22 3A 99 22 4B 41 | TERM SEIN":."KA| 00000C90: 4E 4E 2E 22 3A 8D 37 00 F3 10 90 01 43 24 B2 22 |NN.":.7.....C$."| 00000CA0: 12 23 22 3A 8D 33 3A 99 22 11 11 11 11 11 22 A3 |.#":.3:.".....".| 00000CB0: 31 30 29 22 45 4E 44 45 20 56 4F 4E 20 4C 45 4B |10)"ENDE VON LEK| 00000CC0: 54 49 4F 4E 20 38 00 28 11 92 01 99 22 11 11 11 |TION 8.(...."...| 00000CD0: 11 11 22 A3 32 29 22 57 45 4E 4E 20 53 49 45 20 |..".2)"WENN SIE | 00000CE0: 42 45 52 45 49 54 20 53 49 4E 44 20 46 55 45 52 |BEREIT SIND FUER| 00000CF0: 20 4C 45 4B 54 49 4F 4E 20 39 2C 00 5A 11 93 01 | LEKTION 9,.Z...| 00000D00: 99 A3 34 29 22 11 11 54 49 50 50 45 4E 20 53 49 |..4)"..TIPPEN SI| 00000D10: 45 20 42 49 54 54 45 20 20 4C 20 4F 20 41 20 44 |E BITTE L O A D| 00000D20: 20 20 45 49 4E 2E 11 11 11 11 11 11 11 00 60 11 | EIN.........`.| 00000D30: 95 01 A2 00 00 00 01 24 24 24 24 24 24 24 24 24 |.......$$$$$$$$$| 00000D40: 24 5A 45 49 43 4D FF 2E |$ZEICM.. |
.......53280,1:.53281,1.)...Z$.G(34):.48 0.Z....".":.I.1.39:.C$;:.:.I.1.22:.".."C $;:.:.".";.W....I.1.38:."."C$".";:.:.C$. .....I.1.23:."."C$".";:.:.......A$:.A$." ".7......:..O....".".10)"ZUORDNUNGS-PROG RAMM.."......"DAS FOLGENDE PROGRAMM ORDN ET EINE LISTE":.L.B.KOELN.7...."VON 100 NAMEN NACH DER GROESSE DER DAZU.^...."EI NGEGEBENEN (POSITIVEN) WERTE........"HIE R EINIGE BEISPIELE, DIE ZEIGEN WIE...... "VIELSEITIG DIESES PROGRAMM ANWENDBAR":. "IST:......"MIT DIESEM PROGRAMM KOENNEN ":..10)"WAREN NACH DEN PREISEN.=.....10) "BERGE NACH DEN HOEHEN":..10)"SCHUELER N ACH DEN NOTEN.K.....10)"FIRMEN NACH DEM UMSATZ":..10)"USW.".......24)"GEORDNET W ERDEN.......7.F....".".18)"ZUORDNUNG":." 10 DIM N$(100), S(100),PT(100)......"20 PRINT"Z$"WIEVIELE EINGABEN HAT DIE LISTE "Z$:."30 INPUT N.F...."40 PRINT"Z$"EINGA BE VON "Z$" N "Z$" NAMEN UND WERTEN"Z$.^ ...."50 FOR I = 1 TO N......"60 INPUT N$ (I), S(I)":."70 ";.I...."NEXT":."80 FOR I = 1 TO N":."90 M = -99999":."100 FOR J = 1 TO N......"110 IF S(J) <= M THEN 14 0":."120 M = S(J)":."130 IS = J":."140 N EXT".L...."150 PT(I) = IS":."160 S(IS) = -S(IS)":."170 NEXT".F...."180 PRINT"Z$" RANG";......Z$","Z$"NAME"Z$","Z$"WERT"Z$ :."190 PRINT":."200 FOR I = 1 TO N...... "210 K = PT(I)":."220 PRINT I,N$(K),-S(K )":."230 NEXT";:.7.-.X..".".15)"WORTSPIE L.":."DAS FOLGENDE PROGRAMM IST EIN LERN SPIEL.[.Z..7:."DER COMPUTER SCHREIBT EIN ENGLISCHES...[.."WORT AUF DEN BILDSCHIR M, UND ES SOLL...\.."DAS JEWEILIGE DEUTS CHE WORT EINGETIPPT":."WERDEN.....^.."DE R COMPUTER STELLT FEST, OB DIE..._.."ANT WORT RICHTIG ODER FALSCH IST...5.`.."DAB EI WIRD JEDE VOKABEL UND IHRE.F.A.."BEDE UTUNG IN EINEM SEPARATEN DATA-BEFEHL";.. .B.."GESPEICHERT, SODASS DIE ANZAHL DER. ..C.."VOKABELN UND IHR SCHIERIGKEITSGRAD ...D.."LEICHT GEAENDERT WERDEN KANN.":.7 .-.L..".10 READ N":."20 FOR I = 1 TO N": ."30 READ W$,NS":."40 FOR K = 1 TO NS.L. N.."50 READ S$(K)":."60 NEXT.Z.O.."70 PR INT"Z$"UEBERSETZE DAS WORT "Z$";W$...P.. "80 INPUT R$":."90 IF R$ = ";Z$;"HILFE!" ;Z$;" THEN 170".Q.Q.."100 FOR K = 1 TO N S...R.."110 IF R$ = S$(K) THEN 150":."12 0 NEXT".@.S.."130 PRINT"Z$"NEIN! UEBERL EGE NOCHMAL ODER TIPPE HILFE!"Z$.S.T.."1 40 GO TO 80":."150 PRINT ";Z$;"RICHTIG!! "Z$...V.."160 GOTO 210":."170 PRINT W$"Z $" BEDEUTET "Z$...X.."180 FOR K=1 TO NS" :."190 PRINT S$(K)":."200 NEXT":."210 NE XT":."220 DATA 2...Z.."230 DATA GOAL,3,T OR,ZIEL,MAL.I.|.."240 DATA HIT,3,STOSS,T REFFER,SCHLAGER";.P....7... .C$.".V.":.3 :."........HIERMIT IST DER BASIC-KURS BE ENDET...."...H.."..SIE WERDEN JETZT IN D ER LAGE SEIN...\.."..IHRE EIGENEN PROGRA MME ZU SCHREIBEN.":.".....+.F.."..HERZLI CHEN GLUECKWUNSCH UND VIEL":."..ERFOLG!. .......EILS ZUM JAHRESENDE.\.0.."(GRADLI NIGE ABSCHREIBUNG)....8..".10 PRINT ";Z$ ;"EINGABE DES NENNWERTS";Z$:."20 INPUT I ...:.."30 PRINT ";Z$;"EINGABE LAUFZEIT(I N JAHREN)";Z$:."40 INPUT N...<.."50 PRIN T "Z$"EINGABE SCHROTTWERT"Z$:."60 INPUT S.Z.>.."70 PRINT "Z$"ENDE DES J."Z$","Z$ "ABSCHREIBUNG"Z$","Z$"BUCHWERT"Z$...@.." 80 FOR K = 1 TO N":."90 B = B-(I-S)/N":. "100 PRINT K, (I-S)/N, B...B.."110 NEXT" :."120 END":.7... .C$.".V":.3:.".....";. 9)"ENDE VON LEKTION 9 TEIL 1.9.4.."...." ;.1)"TEIL 2 WIRD EINGELESEN, BITTE WARTE N!...........":................"...>.... ..D...."WOBEI .X. EINE VARIABLE ODER EIN TERM SEIN":."KANN.":.7.....C$.".#":.3:. ".....".10)"ENDE VON LEKTION 8.(...."... ..".2)"WENN SIE BEREIT SIND FUER LEKTION 9,.Z.....4)"..TIPPEN SIE BITTE L O A D EIN.........`........$$$$$$$$$$ZEICM..
> CLICK IMAGE PREVIEW FOR FULL MODAL