TEIL 22
FILE INFORMATION
FILENAME(S): TEIL 22
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-02 23:23:02
APPEARS ON: 1 disk(s)
FILE HASH
5b7d499ff3c50c408c7b9656eff92aeda7d26bce92e80c4a3a2a1a597fa0c31a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NR 45 2 | TEIL 22 | PRG | swasti, dinkel | 10 | 0 | 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 1F 08 02 00 89 31 36 00 |53281,1......16.| 00000020: 50 08 03 00 99 22 93 22 3A 81 49 B2 31 A4 33 39 |P....".":.I.1.39| 00000030: 3A 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A |:.C$;:.:.I.1.22:| 00000040: 99 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B |.".."C$;:.:.".";| 00000050: 00 6D 08 04 00 81 49 B2 31 A4 33 38 3A 99 22 9D |.m....I.1.38:.".| 00000060: 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 88 08 |"C$".";:.:.C$...| 00000070: 05 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 |...I.1.23:."."C$| 00000080: 22 9D 22 3B 3A 82 3A 8E 00 99 08 07 00 A1 41 24 |".";:.:.......A$| 00000090: 3A 8B 41 24 B2 22 22 A7 37 00 A1 08 08 00 99 3A |:.A$."".7......:| 000000A0: 8E 00 C4 08 09 00 99 22 13 22 3A 81 49 B2 30 A4 |.......".":.I.0.| 000000B0: 59 AB 31 3A 99 22 11 22 3B 3A 82 3A 99 22 91 91 |Y.1:.".";:.:."..| 000000C0: 22 3B 3A 8E 00 F5 08 0B 00 81 4A B2 31 A4 38 3A |";:.......J.1.8:| 000000D0: 99 22 3E 22 3B 3A 81 49 B2 31 A4 35 30 3A 82 3A |.">";:.I.1.50:.:| 000000E0: 99 22 9D 20 9D 22 3B 3A 81 4B B2 31 A4 35 30 3A |.". .";:.K.1.50:| 000000F0: 82 3A 82 3A 8E 00 39 09 0D 00 59 B2 59 31 3A 8D |.:.:..9...Y.Y1:.| 00000100: 39 3A 81 49 B2 30 A4 59 32 AB 59 31 3A 99 22 20 |9:.I.0.Y2.Y1:." | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 22 3A 82 00 42 09 0E 00 8D 39 | ":..B....9| 00000140: 3A 8E 00 54 09 0F 00 81 49 B2 31 A4 31 30 30 30 |:..T....I.1.1000| 00000150: 3A 82 3A 8E 00 87 09 10 00 5A 24 B2 C7 28 33 34 |:.:......Z$..(34| 00000160: 29 3A 43 24 B2 22 D6 22 3A 8D 33 3A 99 22 13 11 |):C$.".":.3:."..| 00000170: 11 11 11 11 11 22 A3 31 30 29 22 4C 45 4B 54 49 |.....".10)"LEKTI| 00000180: 4F 4E 20 39 11 11 22 00 A8 09 11 00 99 A3 37 29 |ON 9..".......7)| 00000190: 22 31 2E 20 53 41 56 45 22 3A 99 A3 37 29 22 11 |"1. SAVE":..7)".| 000001A0: 32 2E 20 4C 4F 41 44 22 00 ED 09 12 00 99 A3 37 |2. LOAD".......7| 000001B0: 29 22 11 33 2E 20 45 49 4E 49 47 45 20 50 52 4F |)".3. EINIGE PRO| 000001C0: 47 52 41 4D 4D 42 45 49 53 50 49 45 4C 45 11 22 |GRAMMBEISPIELE."| 000001D0: 3A 99 A3 31 30 29 22 42 45 57 45 47 55 4E 47 2C |:..10)"BEWEGUNG,| 000001E0: 20 41 42 53 43 48 52 45 49 42 55 4E 47 00 30 0A | ABSCHREIBUNG.0.| 000001F0: 13 00 99 A3 31 30 29 22 41 44 52 45 53 53 45 4E |....10)"ADRESSEN| 00000200: 4C 49 53 54 45 2C 20 4D 49 54 54 45 4C 57 45 52 |LISTE, MITTELWER| 00000210: 54 22 3A 99 A3 31 30 29 22 55 4E 44 20 53 54 41 |T":..10)"UND STA| 00000220: 4E 44 41 52 44 41 42 57 45 49 43 48 55 4E 47 2C |NDARDABWEICHUNG,| 00000230: 00 5F 0A 14 00 99 A3 31 30 29 22 4F 52 44 4E 55 |._.....10)"ORDNU| 00000240: 4E 47 53 2D 50 52 4F 47 52 41 4D 4D 2C 57 4F 52 |NGS-PROGRAMM,WOR| 00000250: 54 53 50 49 45 4C 29 22 3A 8D 37 3A 8D 33 35 00 |TSPIEL)":.7:.35.| 00000260: 92 0A 15 00 99 22 93 11 11 11 11 45 53 20 46 4F |.....".....ES FO| 00000270: 4C 47 45 4E 20 4E 55 4E 20 45 49 4E 49 47 45 20 |LGEN NUN EINIGE | 00000280: 50 52 4F 47 52 41 4D 4D 42 45 49 53 50 49 45 4C |PROGRAMMBEISPIEL| 00000290: 45 2E 00 C1 0A 16 00 99 22 11 53 49 45 20 53 4F |E.......".SIE SO| 000002A0: 4C 4C 45 4E 20 49 48 4E 45 4E 20 5A 45 49 47 45 |LLEN IHNEN ZEIGE| 000002B0: 4E 2C 20 57 49 45 20 56 49 45 4C 53 45 49 54 49 |N, WIE VIELSEITI| 000002C0: 47 00 EE 0A 17 00 99 22 44 45 52 20 43 4F 4D 50 |G......"DER COMP| 000002D0: 55 54 45 52 20 50 52 4F 47 52 41 4D 4D 49 45 52 |UTER PROGRAMMIER| 000002E0: 54 20 57 45 52 44 45 4E 20 4B 41 4E 4E 2E 00 13 |T WERDEN KANN...| 000002F0: 0B 19 00 44 24 B2 22 93 11 11 11 11 11 11 42 49 |...D$.".......BI| 00000300: 54 54 45 20 42 45 41 43 48 54 45 4E 20 53 49 45 |TTE BEACHTEN SIE| 00000310: 3A 11 11 00 5A 0B 1A 00 99 22 44 49 45 53 45 20 |:...Z...."DIESE | 00000320: 50 52 4F 47 52 41 4D 4D 45 20 4D 55 45 53 53 45 |PROGRAMME MUESSE| 00000330: 4E 20 56 4F 4E 20 44 45 52 20 43 41 53 53 45 54 |N VON DER CASSET| 00000340: 54 45 22 3B 3A 99 22 45 49 4E 47 45 4C 45 53 45 |TE";:."EINGELESE| 00000350: 4E 20 57 45 52 44 45 4E 2E 11 00 88 0B 1B 00 99 |N WERDEN........| 00000360: 22 4A 45 44 45 53 20 44 49 45 53 45 52 20 50 52 |"JEDES DIESER PR| 00000370: 4F 47 52 41 4D 4D 45 20 49 53 54 20 55 4E 54 45 |OGRAMME IST UNTE| 00000380: 52 20 53 45 49 4E 45 4D 00 D0 0B 1C 00 99 22 45 |R SEINEM......"E| 00000390: 49 47 45 4E 45 4E 20 4E 41 4D 45 4E 20 41 55 46 |IGENEN NAMEN AUF| 000003A0: 20 44 45 52 20 41 4E 44 45 52 45 4E 20 53 45 49 | DER ANDEREN SEI| 000003B0: 54 45 22 3A 99 22 44 45 52 20 43 41 53 53 45 54 |TE":."DER CASSET| 000003C0: 54 45 20 47 45 53 50 45 49 43 48 45 52 54 2E 11 |TE GESPEICHERT..| 000003D0: 00 1D 0C 1E 00 99 22 53 4F 20 44 41 53 53 20 53 |......"SO DASS S| 000003E0: 49 45 20 44 49 45 20 50 52 4F 47 52 41 4D 4D 45 |IE DIE PROGRAMME| 000003F0: 20 55 4E 41 42 48 41 45 4E 47 49 47 22 3A 99 22 | UNABHAENGIG":."| 00000400: 56 4F 4E 45 49 4E 41 4E 44 45 52 20 42 45 4E 55 |VONEINANDER BENU| 00000410: 54 5A 45 4E 20 4B 4F 45 4E 4E 45 4E 2E 00 29 0C |TZEN KOENNEN..).| 00000420: 20 00 8D 37 3A 89 31 30 30 00 3E 0C 23 00 99 22 | ..7:.100.>.#.."| 00000430: 93 22 3A 99 A3 31 32 29 22 53 41 56 45 22 00 85 |.":..12)"SAVE"..| 00000440: 0C 24 00 99 22 11 44 45 52 20 43 4F 4D 50 55 54 |.$..".DER COMPUT| 00000450: 45 52 20 42 49 45 54 45 54 20 49 48 4E 45 4E 20 |ER BIETET IHNEN | 00000460: 44 49 45 20 4D 4F 45 47 4C 49 43 48 2D 22 3A 99 |DIE MOEGLICH-":.| 00000470: 22 4B 45 49 54 20 50 52 4F 47 52 41 4D 4D 45 20 |"KEIT PROGRAMME | 00000480: 41 55 46 22 3B 00 AE 0C 25 00 99 22 20 45 49 4E |AUF";...%.." EIN| 00000490: 45 52 20 4B 41 53 53 45 54 54 45 20 5A 55 22 3A |ER KASSETTE ZU":| 000004A0: 99 22 53 50 45 49 43 48 45 52 4E 2E 11 22 00 F1 |."SPEICHERN.."..| 000004B0: 0C 26 00 99 22 5A 55 4E 41 45 43 48 53 54 20 4C |.&.."ZUNAECHST L| 000004C0: 45 47 45 4E 20 53 49 45 20 45 49 4E 45 20 4B 41 |EGEN SIE EINE KA| 000004D0: 53 53 45 54 54 45 20 49 4E 22 3A 99 22 44 41 53 |SSETTE IN":."DAS| 000004E0: 20 42 41 4E 44 47 45 52 41 45 54 20 45 49 4E 2E | BANDGERAET EIN.| 000004F0: 11 00 1F 0D 27 00 99 22 55 45 42 45 52 4C 45 47 |....'.."UEBERLEG| 00000500: 45 4E 20 53 49 45 20 53 49 43 48 2C 20 57 49 45 |EN SIE SICH, WIE| 00000510: 20 44 41 53 20 50 52 4F 47 52 41 4D 4D 2C 22 00 | DAS PROGRAMM,".| 00000520: 6C 0D 28 00 99 22 44 41 53 20 53 49 45 20 41 55 |l.(.."DAS SIE AU| 00000530: 46 20 42 41 4E 44 20 4E 45 48 4D 45 4E 20 57 4F |F BAND NEHMEN WO| 00000540: 4C 4C 45 4E 2C 20 48 45 49 53 53 45 4E 22 3A 99 |LLEN, HEISSEN":.| 00000550: 22 53 4F 4C 4C 2E 20 28 5A 55 4D 20 42 45 49 53 |"SOLL. (ZUM BEIS| 00000560: 50 49 45 4C 3A 20 4A 4F 48 4E 29 11 00 A2 0D 29 |PIEL: JOHN)....)| 00000570: 00 99 22 4E 55 4E 20 54 49 50 50 45 4E 20 53 49 |.."NUN TIPPEN SI| 00000580: 45 3A 11 22 3A 99 22 20 20 20 20 20 20 20 20 20 |E:.":." | 00000590: 20 53 41 56 45 22 5A 24 22 4A 4F 48 4E 22 5A 24 | SAVE"Z$"JOHN"Z$| 000005A0: 22 11 00 CB 0D 2A 00 99 22 45 49 4E 20 55 4E 44 |"....*.."EIN UND| 000005B0: 20 44 52 55 45 43 4B 45 4E 20 44 49 45 20 52 45 | DRUECKEN DIE RE| 000005C0: 54 55 52 4E 2D 54 41 53 54 45 11 00 16 0E 2B 00 |TURN-TASTE....+.| 000005D0: 99 22 44 45 52 20 43 4F 4D 50 55 54 45 52 20 57 |."DER COMPUTER W| 000005E0: 49 52 44 20 53 49 45 20 4D 49 54 3A 22 3A 99 3A |IRD SIE MIT:":.:| 000005F0: 99 22 20 20 20 20 20 20 20 50 52 45 53 53 20 50 |." PRESS P| 00000600: 4C 41 59 20 41 4E 44 20 52 45 43 20 4F 4E 20 54 |LAY AND REC ON T| 00000610: 41 50 45 23 31 22 00 56 0E 2C 00 99 3A 99 22 41 |APE#1".V.,..:."A| 00000620: 55 46 46 4F 52 44 45 52 4E 2C 20 41 55 46 4E 41 |UFFORDERN, AUFNA| 00000630: 48 4D 45 2D 20 55 4E 44 20 50 4C 41 59 2D 54 41 |HME- UND PLAY-TA| 00000640: 53 54 45 22 3A 99 22 44 45 53 20 52 45 43 4F 52 |STE":."DES RECOR| 00000650: 44 45 52 53 22 3B 00 6C 0E 2D 00 99 22 20 5A 55 |DERS";.l.-.." ZU| 00000660: 20 44 52 55 45 43 4B 45 4E 2E 22 3B 00 83 0E 2E | DRUECKEN.";....| 00000670: 00 8D 37 3A 99 22 93 22 A3 31 35 29 22 4C 4F 41 |..7:.".".15)"LOA| 00000680: 44 11 22 00 AD 0E 2F 00 99 22 41 4E 47 45 4E 4F |D.".../.."ANGENO| 00000690: 4D 4D 45 4E 2C 20 53 49 45 20 57 4F 4C 4C 45 4E |MMEN, SIE WOLLEN| 000006A0: 20 44 41 53 20 50 52 4F 47 52 41 4D 4D 00 FC 0E | DAS PROGRAMM...| 000006B0: 30 00 99 5A 24 22 4A 4F 48 4E 22 5A 24 22 20 56 |0..Z$"JOHN"Z$" V| 000006C0: 4F 4E 20 44 45 52 20 4B 41 53 53 45 54 54 45 20 |ON DER KASSETTE | 000006D0: 49 4E 20 44 45 4E 20 53 50 45 49 43 48 45 52 22 |IN DEN SPEICHER"| 000006E0: 3A 99 22 44 45 53 20 43 4F 4D 50 55 54 45 52 53 |:."DES COMPUTERS| 000006F0: 20 45 49 4E 4C 45 53 45 4E 2E 11 22 00 33 0F 31 | EINLESEN..".3.1| 00000700: 00 99 22 44 41 5A 55 20 54 49 50 50 45 4E 20 53 |.."DAZU TIPPEN S| 00000710: 49 45 2C 20 4E 41 43 48 44 45 4D 20 53 49 45 22 |IE, NACHDEM SIE"| 00000720: 3A 99 22 47 45 47 45 42 45 4E 45 4E 46 41 4C 4C |:."GEGEBENENFALL| 00000730: 53 22 3B 00 5E 0F 32 00 99 22 20 44 41 53 20 42 |S";.^.2.." DAS B| 00000740: 41 4E 44 20 5A 55 52 55 45 43 4B 20 47 45 53 50 |AND ZURUECK GESP| 00000750: 55 4C 54 22 3A 99 22 48 41 42 45 4E 3A 11 00 9F |ULT":."HABEN:...| 00000760: 0F 34 00 99 22 4C 4F 41 44 20 22 3B 5A 24 3B 22 |.4.."LOAD ";Z$;"| 00000770: 4A 4F 48 4E 22 3B 5A 24 3A 99 22 11 45 49 4E 20 |JOHN";Z$:.".EIN | 00000780: 55 4E 44 20 44 52 55 45 43 4B 45 4E 20 44 49 45 |UND DRUECKEN DIE| 00000790: 20 52 45 54 55 52 4E 2D 54 41 53 54 45 2E 22 00 | RETURN-TASTE.".| 000007A0: EA 0F 35 00 99 22 11 44 45 52 20 43 4F 4D 50 55 |..5..".DER COMPU| 000007B0: 54 45 52 20 46 4F 52 44 45 52 54 20 53 49 45 20 |TER FORDERT SIE | 000007C0: 4E 55 4E 20 4D 49 54 3A 22 3A 99 3A 99 22 20 20 |NUN MIT:":.:." | 000007D0: 20 20 20 20 20 50 52 45 53 53 20 50 4C 41 59 20 | PRESS PLAY | 000007E0: 4F 4E 20 54 41 50 45 23 31 22 00 29 10 36 00 99 |ON TAPE#1".).6..| 000007F0: 3A 99 22 41 55 46 2C 20 44 49 45 20 50 4C 41 59 |:."AUF, DIE PLAY| 00000800: 2D 54 41 53 54 45 20 44 45 53 20 52 45 43 4F 52 |-TASTE DES RECOR| 00000810: 44 45 52 53 20 5A 55 22 3A 99 22 44 52 55 45 43 |DERS ZU":."DRUEC| 00000820: 4B 45 4E 2E 20 22 3A 8D 37 00 2F 10 37 00 8E 00 |KEN. ":.7./.7...| 00000830: 36 10 63 00 8D 37 00 6F 10 64 00 99 22 93 22 A3 |6.c..7.o.d..".".| 00000840: 31 35 29 22 42 45 57 45 47 55 4E 47 11 22 3A 99 |15)"BEWEGUNG.":.| 00000850: 22 44 41 53 20 46 4F 4C 47 45 4E 44 45 20 45 49 |"DAS FOLGENDE EI| 00000860: 4E 46 41 43 48 45 20 50 52 4F 47 52 41 4D 4D 00 |NFACHE PROGRAMM.| 00000870: B3 10 65 00 99 22 49 4C 4C 55 53 54 52 49 45 52 |..e.."ILLUSTRIER| 00000880: 54 2C 20 57 49 45 20 42 45 57 45 47 4C 49 43 48 |T, WIE BEWEGLICH| 00000890: 45 20 5A 45 49 43 48 45 4E 22 3A 99 22 50 52 4F |E ZEICHEN":."PRO| 000008A0: 47 52 41 4D 4D 49 45 52 54 20 57 45 52 44 45 4E |GRAMMIERT WERDEN| 000008B0: 2E 11 22 00 DF 10 66 00 99 22 42 45 4D 2E 3A 46 |.."...f.."BEM.:F| 000008C0: 55 45 52 20 44 41 53 20 5A 45 49 43 48 45 4E 20 |UER DAS ZEICHEN | 000008D0: 12 C8 92 20 57 55 52 44 45 20 44 49 45 20 22 00 |... WURDE DIE ".| 000008E0: 0E 11 67 00 99 5A 24 22 4B 55 52 53 4F 52 20 4E |..g..Z$"KURSOR N| 000008F0: 41 43 48 20 4C 49 4E 4B 53 22 5A 24 22 2D 54 41 |ACH LINKS"Z$"-TA| 00000900: 53 54 45 20 42 45 4E 55 54 5A 54 2E 11 11 00 36 |STE BENUTZT....6| 00000910: 11 68 00 99 22 35 20 46 4F 52 20 49 20 3D 20 31 |.h.."5 FOR I = 1| 00000920: 20 54 4F 20 33 39 22 3A 99 22 37 20 50 52 49 4E | TO 39":."7 PRIN| 00000930: 54 20 22 5A 24 3B 00 7F 11 6A 00 99 22 20 D1 9D |T "Z$;...j.." ..| 00000940: 22 5A 24 22 3B 22 3A 99 22 39 20 4E 45 58 54 22 |"Z$";":."9 NEXT"| 00000950: 3A 99 22 31 31 20 46 4F 52 20 49 20 3D 20 31 20 |:."11 FOR I = 1 | 00000960: 54 4F 20 33 39 22 3A 99 22 31 33 20 50 52 49 4E |TO 39":."13 PRIN| 00000970: 54 22 5A 24 22 20 9D 9D D1 9D 22 5A 24 22 3B 00 |T"Z$" ...."Z$";.| 00000980: B5 11 6B 00 99 22 31 35 20 4E 45 58 54 22 3A 99 |..k.."15 NEXT":.| 00000990: 22 31 37 20 47 4F 54 4F 20 35 11 11 22 3A 99 22 |"17 GOTO 5..":."| 000009A0: 50 52 4F 42 49 45 52 45 4E 20 53 49 45 20 45 53 |PROBIEREN SIE ES| 000009B0: 20 41 55 53 21 00 BC 11 6C 00 8D 37 00 FC 11 2C | AUS!...l..7...,| 000009C0: 01 99 22 93 22 A3 31 33 29 22 41 42 53 43 48 52 |..".".13)"ABSCHR| 000009D0: 45 49 42 55 4E 47 11 22 3A 99 22 44 49 45 53 45 |EIBUNG.":."DIESE| 000009E0: 53 20 50 52 4F 47 52 41 4D 4D 20 42 45 52 45 43 |S PROGRAMM BEREC| 000009F0: 48 4E 45 54 20 44 49 45 20 41 42 2D 00 27 12 2D |HNET DIE AB-.'.-| 00000A00: 01 99 22 53 43 48 52 45 49 42 55 4E 47 20 55 4E |.."SCHREIBUNG UN| 00000A10: 44 20 44 45 4E 20 42 55 43 48 57 45 52 54 20 46 |D DEN BUCHWERT F| 00000A20: 55 45 52 20 45 49 4E 00 51 12 2F 01 99 22 41 4B |UER EIN.Q./.."AK| 00000A30: 54 49 45 4E 50 41 4B 45 54 2C 20 4A 45 57 45 49 |TIENPAKET, JEWEI| 00000A40: 4C 53 20 5A 55 4D 20 4A 41 48 52 45 53 45 4E 44 |LS ZUM JAHRESEND| 00000A50: 45 00 72 12 30 01 99 22 28 47 52 41 44 4C 49 4E |E.r.0.."(GRADLIN| 00000A60: 49 47 45 20 41 42 53 43 48 52 45 49 42 55 4E 47 |IGE ABSCHREIBUNG| 00000A70: 29 2E 00 AF 12 38 01 99 22 11 31 30 20 50 52 49 |)....8..".10 PRI| 00000A80: 4E 54 20 22 3B 5A 24 3B 22 45 49 4E 47 41 42 45 |NT ";Z$;"EINGABE| 00000A90: 20 44 45 53 20 4E 45 4E 4E 57 45 52 54 53 22 3B | DES NENNWERTS";| 00000AA0: 5A 24 3A 99 22 32 30 20 49 4E 50 55 54 20 49 00 |Z$:."20 INPUT I.| 00000AB0: F1 12 3A 01 99 22 33 30 20 50 52 49 4E 54 20 22 |..:.."30 PRINT "| 00000AC0: 3B 5A 24 3B 22 45 49 4E 47 41 42 45 20 4C 41 55 |;Z$;"EINGABE LAU| 00000AD0: 46 5A 45 49 54 28 49 4E 20 4A 41 48 52 45 4E 29 |FZEIT(IN JAHREN)| 00000AE0: 22 3B 5A 24 3A 99 22 34 30 20 49 4E 50 55 54 20 |";Z$:."40 INPUT | 00000AF0: 4E 00 28 13 3C 01 99 22 35 30 20 50 52 49 4E 54 |N.(.<.."50 PRINT| 00000B00: 20 22 5A 24 22 45 49 4E 47 41 42 45 20 53 43 48 | "Z$"EINGABE SCH| 00000B10: 52 4F 54 54 57 45 52 54 22 5A 24 3A 99 22 36 30 |ROTTWERT"Z$:."60| 00000B20: 20 49 4E 50 55 54 20 53 00 70 13 3E 01 99 22 37 | INPUT S.p.>.."7| 00000B30: 30 20 50 52 49 4E 54 20 22 5A 24 22 45 4E 44 45 |0 PRINT "Z$"ENDE| 00000B40: 20 44 45 53 20 4A 2E 22 5A 24 22 2C 22 5A 24 22 | DES J."Z$","Z$"| 00000B50: 41 42 53 43 48 52 45 49 42 55 4E 47 22 5A 24 22 |ABSCHREIBUNG"Z$"| 00000B60: 2C 22 5A 24 22 42 55 43 48 57 45 52 54 22 5A 24 |,"Z$"BUCHWERT"Z$| 00000B70: 00 B7 13 40 01 99 22 38 30 20 46 4F 52 20 4B 20 |...@.."80 FOR K | 00000B80: 3D 20 31 20 54 4F 20 4E 22 3A 99 22 39 30 20 42 |= 1 TO N":."90 B| 00000B90: 20 3D 20 42 2D 28 49 2D 53 29 2F 4E 22 3A 99 22 | = B-(I-S)/N":."| 00000BA0: 31 30 30 20 50 52 49 4E 54 20 4B 2C 20 28 49 2D |100 PRINT K, (I-| 00000BB0: 53 29 2F 4E 2C 20 42 00 D5 13 42 01 99 22 31 31 |S)/N, B...B.."11| 00000BC0: 30 20 4E 45 58 54 22 3A 99 22 31 32 30 20 45 4E |0 NEXT":."120 EN| 00000BD0: 44 22 3A 8D 37 00 0B 14 20 03 43 24 B2 22 12 D6 |D":.7... .C$."..| 00000BE0: 22 3A 8D 33 3A 99 22 11 11 11 11 11 22 3B A3 39 |":.3:.".....";.9| 00000BF0: 29 22 45 4E 44 45 20 56 4F 4E 20 4C 45 4B 54 49 |)"ENDE VON LEKTI| 00000C00: 4F 4E 20 39 20 54 45 49 4C 20 31 00 4E 14 34 03 |ON 9 TEIL 1.N.4.| 00000C10: 99 22 11 11 11 11 22 3B A3 31 29 22 54 45 49 4C |."....";.1)"TEIL| 00000C20: 20 32 20 57 49 52 44 20 45 49 4E 47 45 4C 45 53 | 2 WIRD EINGELES| 00000C30: 45 4E 2C 20 42 49 54 54 45 20 57 41 52 54 45 4E |EN, BITTE WARTEN| 00000C40: 21 11 11 11 11 11 11 11 11 11 11 11 11 22 00 5F |!............"._| 00000C50: 14 3E 03 93 22 54 45 49 4C 20 32 33 22 2C 38 00 |.>.."TEIL 23",8.| 00000C60: 00 00 01 4C 20 33 22 AB 31 00 |...L 3".1. |
.......53280,1:.53281,1......16.P...."."
:.I.1.39:.C$;:.:.I.1.22:.".."C$;:.:.".";
.M....I.1.38:."."C$".";:.:.C$......I.1.2
3:."."C$".";:.:.......A$:.A$."".7......:
..D....".":.I.0.Y.1:.".";:.:."..";:.....
..J.1.8:.">";:.I.1.50:.:.". .";:.K.1.50:
.:.:..9...Y.Y1:.9:.I.0.Y2.Y1:."
":..B....9
:..T....I.1.1000:.:......Z$.G(34):C$."V"
:.3:.".......".10)"LEKTION 9..".......7)
"1. SAVE":..7)".2. LOAD".......7)".3. EI
NIGE PROGRAMMBEISPIELE.":..10)"BEWEGUNG,
ABSCHREIBUNG.0.....10)"ADRESSENLISTE, M
ITTELWERT":..10)"UND STANDARDABWEICHUNG,
._.....10)"ORDNUNGS-PROGRAMM,WORTSPIEL)"
:.7:.35......".....ES FOLGEN NUN EINIGE
PROGRAMMBEISPIELE..A....".SIE SOLLEN IHN
EN ZEIGEN, WIE VIELSEITIG......"DER COMP
UTER PROGRAMMIERT WERDEN KANN......D$.".
......BITTE BEACHTEN SIE:...Z...."DIESE
PROGRAMME MUESSEN VON DER CASSETTE";:."E
INGELESEN WERDEN........"JEDES DIESER PR
OGRAMME IST UNTER SEINEM.P...."EIGENEN N
AMEN AUF DER ANDEREN SEITE":."DER CASSET
TE GESPEICHERT........"SO DASS SIE DIE P
ROGRAMME UNABHAENGIG":."VONEINANDER BENU
TZEN KOENNEN..). ..7:.100.>.#..".":..12)
"SAVE"...$..".DER COMPUTER BIETET IHNEN
DIE MOEGLICH-":."KEIT PROGRAMME AUF";...
%.." EINER KASSETTE ZU":."SPEICHERN.."..
.&.."ZUNAECHST LEGEN SIE EINE KASSETTE I
N":."DAS BANDGERAET EIN.....'.."UEBERLEG
EN SIE SICH, WIE DAS PROGRAMM,".L.(.."DA
S SIE AUF BAND NEHMEN WOLLEN, HEISSEN":.
"SOLL. (ZUM BEISPIEL: JOHN)....).."NUN T
IPPEN SIE:.":." SAVE"Z$"JOHN"Z$
"..K.*.."EIN UND DRUECKEN DIE RETURN-TAS
TE....+.."DER COMPUTER WIRD SIE MIT:":.:
." PRESS PLAY AND REC ON TAPE#1".V
.,..:."AUFFORDERN, AUFNAHME- UND PLAY-TA
STE":."DES RECORDERS";.L.-.." ZU DRUECKE
N.";......7:.".".15)"LOAD.".../.."ANGENO
MMEN, SIE WOLLEN DAS PROGRAMM...0..Z$"JO
HN"Z$" VON DER KASSETTE IN DEN SPEICHER"
:."DES COMPUTERS EINLESEN..".3.1.."DAZU
TIPPEN SIE, NACHDEM SIE":."GEGEBENENFALL
S";.^.2.." DAS BAND ZURUECK GESPULT":."H
ABEN:....4.."LOAD ";Z$;"JOHN";Z$:.".EIN
UND DRUECKEN DIE RETURN-TASTE."...5..".D
ER COMPUTER FORDERT SIE NUN MIT:":.:."
PRESS PLAY ON TAPE#1".).6..:."AUF,
DIE PLAY-TASTE DES RECORDERS ZU":."DRUEC
KEN. ":.7./.7...6.C..7.O.D..".".15)"BEWE
GUNG.":."DAS FOLGENDE EINFACHE PROGRAMM.
..E.."ILLUSTRIERT, WIE BEWEGLICHE ZEICHE
N":."PROGRAMMIERT WERDEN.."...F.."BEM.:F
UER DAS ZEICHEN .H. WURDE DIE "...G..Z$"
KURSOR NACH LINKS"Z$"-TASTE BENUTZT....6
.H.."5 FOR I = 1 TO 39":."7 PRINT "Z$;.
.J.." Q."Z$";":."9 NEXT":."11 FOR I = 1
TO 39":."13 PRINT"Z$" ..Q."Z$";...K.."15
NEXT":."17 GOTO 5..":."PROBIEREN SIE ES
AUS!...L..7...,..".".13)"ABSCHREIBUNG."
:."DIESES PROGRAMM BERECHNET DIE AB-.'.-
.."SCHREIBUNG UND DEN BUCHWERT FUER EIN.
Q./.."AKTIENPAKET, JEWEILS ZUM JAHRESEND
E.R.0.."(GRADLINIGE ABSCHREIBUNG)....8..
".10 PRINT ";Z$;"EINGABE DES NENNWERTS";
Z$:."20 INPUT I...:.."30 PRINT ";Z$;"EIN
GABE LAUFZEIT(IN JAHREN)";Z$:."40 INPUT
N.(.<.."50 PRINT "Z$"EINGABE SCHROTTWERT
"Z$:."60 INPUT S.P.>.."70 PRINT "Z$"ENDE
DES J."Z$","Z$"ABSCHREIBUNG"Z$","Z$"BUC
HWERT"Z$...@.."80 FOR K = 1 TO N":."90 B
= B-(I-S)/N":."100 PRINT K, (I-S)/N, B.
U.B.."110 NEXT":."120 END":.7... .C$.".V
":.3:.".....";.9)"ENDE VON LEKTION 9 TEI
L 1.N.4.."....";.1)"TEIL 2 WIRD EINGELES
EN, BITTE WARTEN!............"._.>.."TEI
L 23",8....L 3".1.
> CLICK IMAGE PREVIEW FOR FULL MODAL