COSMOS
FILE INFORMATION
FILENAME(S): COSMOS
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-12-02 22:47:53
APPEARS ON: 1 disk(s)
FILE HASH
7f7e09754f94a241d2f814e9f641cf08f9d9ac052eb60444d80568861dc0459b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SEITE 1 DISK NR | COSMOS | PRG | swasti, charly | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 53 08 00 00 8F 22 14 14 14 14 14 14 4C 4F |..S...."......LO| 00000010: 54 48 41 52 20 20 53 43 48 4D 49 44 54 8D 52 49 |THAR SCHMIDT.RI| 00000020: 54 5A 49 4E 47 45 52 53 54 52 2E 20 36 8D 38 33 |TZINGERSTR. 6.83| 00000030: 36 30 20 44 45 47 47 45 4E 44 4F 52 46 8D 50 52 |60 DEGGENDORF.PR| 00000040: 47 20 54 41 55 53 43 48 20 28 56 43 2D 36 34 29 |G TAUSCH (VC-64)| 00000050: 8D 22 CC 00 7C 08 64 00 8F 3E 3E 3E 20 4D 20 4F |."..|.d..>>> M O| 00000060: 20 44 20 45 20 4C 20 4C 20 43 20 4F 20 4D 20 50 | D E L L C O M P| 00000070: 20 55 20 54 20 45 20 52 20 3C 3C 3C 00 82 08 6E | U T E R <<<...n| 00000080: 00 8F 00 8F 08 73 00 97 35 33 32 38 30 2C 36 00 |.....s..53280,6.| 00000090: D5 08 78 00 86 41 24 28 32 35 30 29 2C 42 24 28 |..x..A$(250),B$(| 000000A0: 31 35 29 2C 5A 24 28 33 29 3A 43 24 B2 22 20 20 |15),Z$(3):C$." | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 22 3A 5A 24 28 31 29 B2 22 45 22 3A 5A 24 28 32 |":Z$(1)."E":Z$(2| 000000D0: 29 B2 22 4C 22 00 F4 08 82 00 5A 24 28 33 29 B2 |)."L".....Z$(3).| 000000E0: 22 53 22 3A 81 49 B2 30 A4 31 35 3A 87 42 24 28 |"S":.I.0.15:.B$(| 000000F0: 49 29 3A 82 00 3A 09 8C 00 83 20 48 4C 54 2C 4E |I):..:.... HLT,N| 00000100: 49 4D 2C 53 45 54 2C 41 44 44 2C 53 55 42 2C 4D |IM,SET,ADD,SUB,M| 00000110: 55 4C 2C 44 49 56 2C 4E 49 23 2C 2D 2D 2D 2C 4E |UL,DIV,NI#,---,N| 00000120: 4F 50 2C 53 50 55 2C 53 50 4E 2C 53 50 50 2C 53 |OP,SPU,SPN,SPP,S| 00000130: 50 4D 2C 4C 45 53 2C 44 52 4B 00 67 09 96 00 99 |PM,LES,DRK.g....| 00000140: 22 93 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 |"...............| 00000150: 12 05 20 20 43 20 4F 20 53 20 4D 20 4F 20 53 20 |.. C O S M O S | 00000160: 20 9A 92 11 11 11 22 00 97 09 A0 00 99 22 43 4F | ....."......"CO| 00000170: 4D 50 55 54 45 52 2D 53 49 4D 55 4C 41 54 49 4F |MPUTER-SIMULATIO| 00000180: 4E 53 2D 4D 4F 44 45 4C 4C 20 46 55 45 52 20 53 |NS-MODELL FUER S| 00000190: 43 48 55 4C 45 4E 22 00 C2 09 AA 00 99 22 91 A3 |CHULEN"......"..| 000001A0: A3 20 20 20 20 20 20 20 A3 20 20 20 20 20 20 20 |. . | 000001B0: 20 20 20 20 A3 A3 20 20 20 20 20 20 20 20 20 20 | .. | 000001C0: A3 22 00 F2 09 B4 00 99 22 11 11 11 43 20 4F 20 |."......"...C O | 000001D0: 53 20 4D 20 4F 20 53 20 20 53 49 4D 55 4C 49 45 |S M O S SIMULIE| 000001E0: 52 54 20 45 49 4E 45 4E 20 4B 4C 41 53 53 49 2D |RT EINEN KLASSI-| 000001F0: 11 22 00 13 0A BE 00 99 22 53 43 48 45 4E 20 45 |."......"SCHEN E| 00000200: 49 4E 2D 41 44 52 45 53 53 2D 52 45 43 48 4E 45 |IN-ADRESS-RECHNE| 00000210: 52 2E 22 00 21 0A C8 00 8D 38 33 30 3A 89 34 34 |R.".!....830:.44| 00000220: 30 00 42 0A D2 00 99 22 93 11 11 1D 1D 1D 1D 1D |0.B...."........| 00000230: 42 45 46 45 48 4C 53 52 50 45 52 54 4F 49 52 45 |BEFEHLSRPERTOIRE| 00000240: 3A 22 00 48 0A DC 00 99 00 73 0A E6 00 99 22 12 |:".H.....s....".| 00000250: 1E 20 4F 50 20 20 20 20 20 20 20 20 57 49 52 4B |. OP WIRK| 00000260: 55 4E 47 20 20 20 20 20 20 20 20 20 20 20 20 20 |UNG | 00000270: 9A 92 22 00 92 0A F0 00 99 22 11 11 4E 49 4D 20 |.."......"..NIM | 00000280: 20 41 4B 4B 55 5F 3C 41 44 29 3A 42 5A 5F 42 5A | AKKU_<AD):BZ_BZ| 00000290: 2B 31 00 AE 0A FA 00 99 22 11 4E 49 23 20 20 41 |+1......".NI# A| 000002A0: 4B 4B 55 5F 41 44 3A 42 5A 5F 42 5A 2B 31 00 D4 |KKU_AD:BZ_BZ+1..| 000002B0: 0A 04 01 99 22 11 53 45 54 20 20 3C 41 44 3E 5F |....".SET <AD>_| 000002C0: 41 4B 4B 55 3A 41 4B 4B 55 5F 30 3A 42 5A 5F 42 |AKKU:AKKU_0:BZ_B| 000002D0: 5A 2B 31 22 00 F9 0A 0E 01 99 22 11 11 41 44 44 |Z+1"......"..ADD| 000002E0: 20 20 41 4B 4B 55 5F 41 4B 4B 55 2B 3C 41 44 3E | AKKU_AKKU+<AD>| 000002F0: 3A 42 5A 5F 42 5A 2B 31 22 00 1D 0B 18 01 99 22 |:BZ_BZ+1"......"| 00000300: 11 53 55 42 20 20 41 4B 4B 55 5F 41 4B 4B 55 2D |.SUB AKKU_AKKU-| 00000310: 3C 41 44 3E 3A 42 5A 5F 42 5A 2B 31 22 00 41 0B |<AD>:BZ_BZ+1".A.| 00000320: 22 01 99 22 11 4D 55 4C 20 20 41 4B 4B 55 5F 41 |"..".MUL AKKU_A| 00000330: 4B 4B 55 2A 3C 41 44 3E 3A 42 5A 5F 42 5A 2B 31 |KKU*<AD>:BZ_BZ+1| 00000340: 22 00 65 0B 2C 01 99 22 11 44 49 56 20 20 41 4B |".e.,..".DIV AK| 00000350: 4B 55 5F 41 4B 4B 55 2F 3C 41 44 3E 3A 42 5A 5F |KU_AKKU/<AD>:BZ_| 00000360: 42 5A 2B 31 22 00 6E 0B 36 01 8D 38 33 30 00 9A |BZ+1".n.6..830..| 00000370: 0B 40 01 99 22 93 12 1E 20 4F 50 20 20 20 20 20 |.@.."... OP | 00000380: 20 20 20 57 49 52 4B 55 4E 47 20 20 20 20 20 20 | WIRKUNG | 00000390: 20 20 20 20 20 20 20 9A 92 22 00 B0 0B 4A 01 99 | .."...J..| 000003A0: 22 11 11 4E 4F 50 20 20 42 5A 5F 42 5A 2B 31 22 |"..NOP BZ_BZ+1"| 000003B0: 00 C3 0B 54 01 99 22 11 11 53 50 55 20 20 42 5A |...T.."..SPU BZ| 000003C0: 5F 41 44 00 E8 0B 5E 01 99 22 11 53 50 4E 20 20 |_AD...^..".SPN | 000003D0: 46 41 4C 4C 53 20 41 4B 4B 55 3D 30 20 44 41 4E |FALLS AKKU=0 DAN| 000003E0: 4E 20 42 5A 5F 41 44 22 00 01 0C 68 01 99 A3 31 |N BZ_AD"...h...1| 000003F0: 38 29 22 53 4F 4E 53 54 20 42 5A 5F 42 5A 2B 31 |8)"SONST BZ_BZ+1| 00000400: 22 00 26 0C 72 01 99 22 11 53 50 50 20 20 46 41 |".&.r..".SPP FA| 00000410: 4C 4C 53 20 41 4B 4B 55 3E 30 20 44 41 4E 4E 20 |LLS AKKU>0 DANN | 00000420: 42 5A 5F 41 44 22 00 3F 0C 7C 01 99 A3 31 38 29 |BZ_AD".?.|...18)| 00000430: 22 53 4F 4E 53 54 20 42 5A 5F 42 5A 2B 31 22 00 |"SONST BZ_BZ+1".| 00000440: 64 0C 86 01 99 22 11 53 50 4D 20 20 46 41 4C 4C |d....".SPM FALL| 00000450: 53 20 41 4B 4B 55 3C 30 20 44 41 4E 4E 20 42 5A |S AKKU<0 DANN BZ| 00000460: 5F 41 44 22 00 7D 0C 90 01 99 A3 31 38 29 22 53 |_AD".}.....18)"S| 00000470: 4F 4E 53 54 20 42 5A 5F 42 5A 2B 31 22 00 95 0C |ONST BZ_BZ+1"...| 00000480: 9A 01 99 22 11 4C 45 53 20 20 3C 41 44 3E 5F 49 |...".LES <AD>_I| 00000490: 4E 50 55 54 22 00 AE 0C A4 01 99 22 11 44 52 4B |NPUT"......".DRK| 000004A0: 20 20 4F 55 54 50 55 54 5F 3C 41 44 3E 22 00 CD | OUTPUT_<AD>"..| 000004B0: 0C AE 01 99 22 11 48 4C 54 20 20 50 52 4F 47 52 |....".HLT PROGR| 000004C0: 41 4D 4D 53 54 4F 50 22 3A 8D 38 33 30 00 FA 0C |AMMSTOP":.830...| 000004D0: B8 01 99 22 93 1D 1D 1D 1D 12 1E 20 4D 4F 44 45 |..."....... MODE| 000004E0: 4C 4C 43 4F 4D 50 55 54 45 52 20 3A 20 43 4F 53 |LLCOMPUTER : COS| 000004F0: 4D 4F 53 20 9A 92 11 11 11 22 00 18 0D C2 01 99 |MOS ....."......| 00000500: 22 90 31 9A 20 3A 20 50 52 4F 47 52 41 4D 4D 45 |".1. : PROGRAMME| 00000510: 49 4E 47 41 42 45 11 22 00 41 0D CC 01 99 22 90 |INGABE.".A....".| 00000520: 32 9A 20 3A 20 50 52 4F 47 52 41 4D 4D 41 55 53 |2. : PROGRAMMAUS| 00000530: 47 41 42 45 2F 2D 4B 4F 52 52 45 4B 54 55 52 11 |GABE/-KORREKTUR.| 00000540: 22 00 5E 0D D6 01 99 22 90 33 9A 20 3A 20 4D 55 |".^....".3. : MU| 00000550: 53 54 45 52 50 52 4F 47 52 41 4D 4D 11 22 00 79 |STERPROGRAMM.".y| 00000560: 0D E0 01 99 22 90 34 9A 20 3A 20 50 52 4F 47 52 |....".4. : PROGR| 00000570: 41 4D 4D 4C 41 55 46 11 22 00 9C 0D EA 01 99 22 |AMMLAUF."......"| 00000580: 20 20 20 20 20 20 20 20 90 45 9A 20 3A 20 45 49 | .E. : EI| 00000590: 4E 5A 45 4C 53 43 48 52 49 54 54 22 00 B8 0D F4 |NZELSCHRITT"....| 000005A0: 01 99 22 20 20 20 20 20 20 20 20 90 4C 9A 20 3A |.." .L. :| 000005B0: 20 4C 41 4E 47 53 41 4D 00 D6 0D FE 01 99 22 20 | LANGSAM......" | 000005C0: 20 20 20 20 20 20 20 90 53 9A 20 3A 20 53 43 48 | .S. : SCH| 000005D0: 4E 45 4C 4C 11 22 00 F6 0D 08 02 99 22 90 35 9A |NELL."......".5.| 000005E0: 20 3A 20 42 45 46 45 48 4C 53 52 45 50 45 52 54 | : BEFEHLSREPERT| 000005F0: 4F 49 52 45 11 22 00 18 0E 12 02 99 22 90 36 9A |OIRE."......".6.| 00000600: 20 3A 20 53 43 48 45 4D 41 54 49 53 43 48 45 52 | : SCHEMATISCHER| 00000610: 20 41 55 46 42 41 55 22 00 46 0E 1C 02 A1 5A 24 | AUFBAU".F....Z$| 00000620: 3A 91 C5 28 5A 24 29 AA 31 89 35 34 30 2C 38 37 |:..(Z$).1.540,87| 00000630: 30 2C 35 37 30 2C 37 31 30 2C 31 30 31 30 2C 32 |0,570,710,1010,2| 00000640: 31 30 2C 35 36 30 00 4F 0E 26 02 89 35 34 30 00 |10,560.O.&..540.| 00000650: 62 0E 30 02 8D 35 38 30 3A 8D 38 33 30 3A 89 34 |b.0..580:.830:.4| 00000660: 34 30 00 71 0E 3A 02 99 22 93 22 3B 3A 89 39 33 |40.q.:..".";:.93| 00000670: 30 00 95 0E 44 02 99 22 93 22 3B A3 32 32 29 22 |0...D..".";.22)"| 00000680: 1E 12 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 20 |.. PROGRAMM | 00000690: 20 20 20 92 22 00 AE 0E 4E 02 99 A3 35 29 22 11 | ."...N...5)".| 000006A0: 11 12 A1 42 45 46 45 48 4C 53 5A B6 92 22 00 D3 |...BEFEHLSZ.."..| 000006B0: 0E 58 02 99 A3 35 29 22 DD 22 3B A3 31 34 29 22 |.X...5)".";.14)"| 000006C0: DD 22 3A 99 A3 35 29 22 AD C0 C0 C0 C0 C0 C0 C0 |.":..5)"........| 000006D0: C0 BD 22 00 F2 0E 62 02 99 22 11 11 12 A1 20 42 |.."...b..".... B| 000006E0: 45 46 45 48 4C 53 52 45 47 49 53 54 45 52 20 B6 |EFEHLSREGISTER .| 000006F0: 92 22 00 21 0F 6C 02 99 22 DD 22 3B A3 35 29 22 |.".!.l..".";.5)"| 00000700: DD 22 3B A3 31 38 29 22 DD 22 3A 99 22 AD C0 C0 |.";.18)".":."...| 00000710: C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD |................| 00000720: 22 00 36 0F 76 02 99 22 20 4F 50 20 20 20 20 20 |".6.v.." OP | 00000730: 20 20 20 41 44 22 00 55 0F 80 02 99 22 11 11 12 | AD".U...."...| 00000740: A1 20 20 20 20 20 20 41 4B 4B 55 20 20 20 20 20 |. AKKU | 00000750: 20 20 B6 92 22 00 7D 0F 8A 02 99 22 DD 22 3B A3 | ..".}....".";.| 00000760: 31 38 29 22 DD 22 3A 99 22 AD C0 C0 C0 C0 C0 C0 |18)".":.".......| 00000770: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 9E 0F |............"...| 00000780: 94 02 99 22 11 11 11 11 12 A1 20 20 45 49 4E 20 |..."...... EIN | 00000790: 2F 20 41 55 53 47 41 42 45 20 20 B6 92 22 00 AF |/ AUSGABE .."..| 000007A0: 0F 9E 02 99 22 DD 22 3B A3 31 38 29 22 DD 22 00 |....".";.18)".".| 000007B0: C0 0F A8 02 99 22 DD 22 3B A3 31 38 29 22 DD 22 |.....".";.18)"."| 000007C0: 00 DE 0F B2 02 99 22 AD C0 C0 C0 C0 C0 C0 C0 C0 |......".........| 000007D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 13 9A 22 3B 00 E4 |............";..| 000007E0: 0F BC 02 8E 00 FE 0F C6 02 8F 3E 3E 3E 4D 55 53 |..........>>>MUS| 000007F0: 54 45 52 50 52 4F 47 52 41 4D 4D 3C 3C 3C 00 12 |TERPROGRAMM<<<..| 00000800: 10 D0 02 8C 3A 81 49 B2 30 A4 31 35 3A 87 46 24 |....:.I.0.15:.F$| 00000810: 3A 82 00 28 10 DA 02 81 49 B2 30 A4 31 31 3A 87 |:..(....I.0.11:.| 00000820: 41 24 28 49 29 3A 82 49 00 74 10 E4 02 83 20 22 |A$(I):.I.t.... "| 00000830: 4C 45 53 20 31 31 22 2C 22 4E 49 4D 20 31 31 22 |LES 11","NIM 11"| 00000840: 2C 22 53 50 4E 20 31 30 22 2C 22 53 50 50 20 36 |,"SPN 10","SPP 6| 00000850: 22 2C 22 44 52 4B 20 31 31 22 2C 22 53 50 55 20 |","DRK 11","SPU | 00000860: 30 22 2C 22 4D 55 4C 20 31 31 22 2C 22 53 45 54 |0","MUL 11","SET| 00000870: 20 31 31 22 00 91 10 EE 02 83 20 22 44 52 4B 20 | 11"...... "DRK | 00000880: 31 31 22 2C 22 53 50 55 20 30 22 2C 48 4C 54 2C |11","SPU 0",HLT,| 00000890: 2A 00 A4 10 F8 02 4E B2 31 30 3A 5A B2 32 3A 89 |*.....N.10:Z.2:.| 000008A0: 31 30 33 30 00 B1 10 02 03 8B 5A B2 31 A7 38 33 |1030......Z.1.83| 000008B0: 30 00 C7 10 0C 03 81 49 B2 31 A4 28 34 AB 5A 29 |0......I.1.(4.Z)| 000008C0: AE 38 3A A1 5A 5A 24 00 DD 10 16 03 8B 5A 5A 24 |.8:.ZZ$......ZZ$| 000008D0: B2 22 45 22 A7 5A B2 31 3A 89 38 36 30 00 F3 10 |."E".Z.1:.860...| 000008E0: 20 03 8B 5A 5A 24 B2 22 53 22 A7 5A B2 33 3A 89 | ..ZZ$."S".Z.3:.| 000008F0: 38 36 30 00 09 11 2A 03 8B 5A 5A 24 B2 22 4C 22 |860...*..ZZ$."L"| 00000900: A7 5A B2 32 3A 89 38 36 30 00 12 11 34 03 82 49 |.Z.2:.860...4..I| 00000910: 3A 8E 00 27 11 3E 03 A1 5A 5A 24 3A 8B 5A 5A 24 |:..'.>..ZZ$:.ZZ$| 00000920: B2 22 22 A7 38 33 30 00 38 11 48 03 8B 5A 5A 24 |."".830.8.H..ZZ$| 00000930: B2 22 4C 22 A7 5A B2 32 00 49 11 52 03 8B 5A 5A |."L".Z.2.I.R..ZZ| 00000940: 24 B2 22 53 22 A7 5A B2 33 00 5D 11 5C 03 99 22 |$."S".Z.3.].\.."| 00000950: 13 22 A3 31 34 29 5A 24 28 5A 29 3A 8E 00 78 11 |.".14)Z$(Z):..x.| 00000960: 66 03 8F 3E 3E 3E 50 52 4F 47 52 41 4D 4D 45 49 |f..>>>PROGRAMMEI| 00000970: 4E 47 41 42 45 3C 3C 3C 00 B7 11 70 03 99 22 93 |NGABE<<<...p..".| 00000980: 1D 1D 1D 1D 12 20 50 52 4F 47 52 41 4D 4D 45 49 |..... PROGRAMMEI| 00000990: 4E 47 41 42 45 20 92 11 22 3A 99 22 45 49 4E 47 |NGABE ..":."EING| 000009A0: 41 42 45 20 4D 49 54 20 2A 20 42 45 45 4E 44 45 |ABE MIT * BEENDE| 000009B0: 4E 21 22 3A 49 B2 30 00 D3 11 7A 03 81 49 B2 30 |N!":I.0...z..I.0| 000009C0: A4 32 35 30 3A 41 24 28 49 29 B2 22 22 3A 82 3A |.250:A$(I)."":.:| 000009D0: 49 B2 30 00 E2 11 84 03 99 49 2C 3A 85 41 24 28 |I.0......I,:.A$(| 000009E0: 49 29 00 FD 11 8E 03 8B 41 24 28 49 29 B3 B1 22 |I)......A$(I).."| 000009F0: 2A 22 A7 49 B2 49 AA 31 3A 89 39 30 30 00 07 12 |*".I.I.1:.900...| 00000A00: 98 03 4E B2 49 AB 31 00 2E 12 A2 03 81 4A B2 AB |..N.I.1......J..| 00000A10: 31 A4 4E A9 31 35 3A 81 49 B2 4A AA 31 A4 4A AA |1.N.15:.I.J.1.J.| 00000A20: 31 35 3A 99 49 2C 41 24 28 49 29 3A 82 49 00 48 |15:.I,A$(I):.I.H| 00000A30: 12 AC 03 99 22 42 45 52 49 43 48 54 49 47 55 4E |...."BERICHTIGUN| 00000A40: 47 20 28 4A 2F 4E 29 22 00 5B 12 B6 03 A1 41 24 |G (J/N)".[....A$| 00000A50: 3A 8B 41 24 B2 22 22 A7 39 35 30 00 6C 12 C0 03 |:.A$."".950.l...| 00000A60: 8B 41 24 B1 B3 22 4A 22 A7 39 38 30 00 99 12 CA |.A$.."J".980....| 00000A70: 03 85 22 42 45 46 45 48 4C 23 22 3B 4E 31 3A 99 |.."BEFEHL#";N1:.| 00000A80: 41 24 28 4E 31 29 3A 85 41 24 28 4E 31 29 3A 4A |A$(N1):.A$(N1):J| 00000A90: B2 4A AB 31 3A 89 39 34 30 00 B8 12 D4 03 82 4A |.J.1:.940......J| 00000AA0: 3A 81 4A B2 32 35 30 A4 30 A9 AB 31 3A 8B 41 24 |:.J.250.0..1:.A$| 00000AB0: 28 4A 29 B2 22 22 A7 82 00 C0 12 DE 03 4E B2 4A |(J)."".......N.J| 00000AC0: 00 C9 12 E8 03 89 34 34 30 00 E1 12 F2 03 8F 3E |......440......>| 00000AD0: 3E 3E 50 52 4F 47 52 41 4D 4D 4C 41 55 46 3C 3C |>>PROGRAMMLAUF<<| 00000AE0: 3C 00 E9 12 FC 03 5A B2 32 00 0B 13 06 04 8D 35 |<.....Z.2......5| 00000AF0: 38 30 3A 99 22 13 50 52 4F 47 52 41 4D 4D 4C 41 |80:.".PROGRAMMLA| 00000B00: 55 46 20 3A 22 3B 5A 24 28 5A 29 00 1B 13 10 04 |UF :";Z$(Z).....| 00000B10: 8D 31 30 35 30 3A 89 31 31 31 30 00 31 13 1A 04 |.1050:.1110.1...| 00000B20: 81 49 B2 50 41 AC 32 30 A4 50 41 AC 32 30 AA 32 |.I.PA.20.PA.20.2| 00000B30: 30 00 41 13 24 04 8B 50 42 B2 50 41 A7 31 30 38 |0.A.$..PB.PA.108| 00000B40: 30 00 53 13 2E 04 99 A3 32 31 29 43 24 3A 99 22 |0.S.....21)C$:."| 00000B50: 91 22 3B 00 85 13 38 04 8B 53 41 B2 31 A7 8B 49 |.";...8..SA.1..I| 00000B60: B2 C5 28 41 24 29 A7 99 A3 32 31 29 22 20 20 20 |..(A$)...21)" | 00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 00000B80: 99 22 91 22 3B 00 9E 13 42 04 99 A3 32 31 29 49 |.".";...B...21)I| 00000B90: 3B A3 32 35 29 3B 41 24 28 49 29 3A 82 49 00 A4 |;.25);A$(I):.I..| 00000BA0: 13 4C 04 8E 00 D4 13 56 04 81 42 5A B2 30 A4 4E |.L.....V..BZ.0.N| 00000BB0: 3A 99 22 13 11 11 11 11 22 3B A3 37 29 22 20 20 |:.".....";.7)" | 00000BC0: 20 9D 9D 9D 22 3B 42 5A 3A 50 41 B2 B5 28 42 5A | ...";BZ:PA..(BZ| 00000BD0: AD 32 30 29 00 F8 13 60 04 99 22 13 22 3B 3A 81 |.20)...`..".";:.| 00000BE0: 49 B2 30 A4 42 42 3A 99 22 11 22 3B 3A 82 49 3A |I.0.BB:.".";:.I:| 00000BF0: 99 A3 32 30 29 22 20 22 00 08 14 6A 04 8B 50 42 |..20)" "...j..PB| 00000C00: B2 50 41 A7 31 31 35 30 00 19 14 74 04 99 22 13 |.PA.1150...t..".| 00000C10: 11 22 3B 3A 8D 31 30 35 30 00 55 14 7E 04 99 22 |.";:.1050.U.~.."| 00000C20: 13 22 3B 3A 81 49 B2 50 41 AC 32 30 A4 42 5A 3A |.";:.I.PA.20.BZ:| 00000C30: 99 22 11 22 3B 3A 82 49 3A 99 A3 32 30 29 22 05 |.".";:.I:..20)".| 00000C40: 3E 9A 22 3A 42 42 B2 42 5A AB 50 41 AC 32 30 3A |>.":BB.BZ.PA.20:| 00000C50: 50 42 B2 50 41 00 77 14 88 04 4F 24 B2 C8 28 41 |PB.PA.w...O$..(A| 00000C60: 24 28 42 5A 29 2C 33 29 3A 41 24 B2 CA 28 41 24 |$(BZ),3):A$..(A$| 00000C70: 28 42 5A 29 2C 34 29 00 AA 14 92 04 99 22 13 11 |(BZ),4)......"..| 00000C80: 11 11 11 11 11 11 11 11 22 3B A3 32 29 4F 24 3B |........";.2)O$;| 00000C90: 22 1D 22 3B 22 20 20 20 20 20 20 20 20 22 3A 99 |".";" ":.| 00000CA0: 22 91 22 3B A3 37 29 3B 41 24 00 C7 14 9C 04 99 |".";.7);A$......| 00000CB0: 22 11 11 11 11 11 1D 22 3B 22 20 20 20 20 20 20 |"......";" | 00000CC0: 20 20 20 20 20 20 22 00 D6 14 A6 04 99 22 91 1D | "......"..| 00000CD0: 22 3B 41 4B 4B 55 00 FB 14 B0 04 53 B2 AB 31 3A |";AKKU.....S..1:| 00000CE0: 81 4B B2 30 A4 31 35 3A 8B 4F 24 B2 42 24 28 4B |.K.0.15:.O$.B$(K| 00000CF0: 29 A7 53 B2 4B 3A 89 31 32 32 30 00 02 15 BA 04 |).S.K:.1220.....| 00000D00: 82 4B 00 30 15 C4 04 8B 53 B3 30 A7 99 22 13 42 |.K.0....S.0..".B| 00000D10: 45 46 45 48 4C 20 4E 49 43 48 54 20 44 45 46 49 |EFEHL NICHT DEFI| 00000D20: 4E 49 45 52 54 22 3A 8D 38 33 30 3A 89 34 34 30 |NIERT":.830:.440| 00000D30: 00 6B 15 CE 04 91 53 AA 31 8D 31 32 38 30 2C 31 |.k....S.1.1280,1| 00000D40: 33 31 30 2C 31 33 34 30 2C 31 33 39 30 2C 31 34 |310,1340,1390,14| 00000D50: 31 30 2C 31 34 33 30 2C 31 34 35 30 2C 31 33 33 |10,1430,1450,133| 00000D60: 30 2C 31 34 37 30 2C 31 34 37 30 00 7A 15 D8 04 |0,1470,1470.z...| 00000D70: 8B 53 B3 31 30 A7 31 32 36 30 00 A1 15 E2 04 91 |.S.10.1260......| 00000D80: 53 AB 39 8D 31 34 39 30 2C 31 35 32 30 2C 31 35 |S.9.1490,1520,15| 00000D90: 35 30 2C 31 35 38 30 2C 31 36 31 30 2C 31 37 31 |50,1580,1610,171| 00000DA0: 30 00 AA 15 EC 04 8D 37 37 30 00 B2 15 F6 04 82 |0......770......| 00000DB0: 42 5A 00 C1 15 00 05 8F 3E 3E 3E 48 4C 54 3C 3C |BZ......>>>HLT<<| 00000DC0: 3C 00 CF 15 0A 05 8D 38 33 30 3A 89 34 34 30 00 |<......830:.440.| 00000DD0: D5 15 14 05 8E 00 E4 15 1E 05 8F 3E 3E 3E 4E 49 |...........>>>NI| 00000DE0: 4D 3C 3C 3C 00 FC 15 28 05 41 4B 4B 55 B2 C5 28 |M<<<...(.AKKU..(| 00000DF0: 41 24 28 C5 28 41 24 29 29 29 3A 8E 00 0D 16 32 |A$(.(A$))):....2| 00000E00: 05 41 4B 4B 55 B2 C5 28 41 24 29 3A 8E 00 1C 16 |.AKKU..(A$):....| 00000E10: 3C 05 8F 3E 3E 3E 53 45 54 3C 3C 3C 00 32 16 46 |<..>>>SET<<<.2.F| 00000E20: 05 41 24 28 C5 28 41 24 29 29 B2 C4 28 41 4B 4B |.A$(.(A$))..(AKK| 00000E30: 55 29 00 3B 16 50 05 99 22 13 22 00 56 16 5A 05 |U).;.P..".".V.Z.| 00000E40: 41 4B 4B 55 B2 30 3A 53 41 B2 31 3A 8D 31 30 35 |AKKU.0:SA.1:.105| 00000E50: 30 3A 53 41 B2 30 00 5C 16 64 05 8E 00 6B 16 6E |0:SA.0.\.d...k.n| 00000E60: 05 8F 3E 3E 3E 41 44 44 3C 3C 3C 00 88 16 78 05 |..>>>ADD<<<...x.| 00000E70: 41 4B 4B 55 B2 41 4B 4B 55 AA C5 28 41 24 28 C5 |AKKU.AKKU..(A$(.| 00000E80: 28 41 24 29 29 29 3A 8E 00 97 16 82 05 8F 3E 3E |(A$))):.......>>| 00000E90: 3E 53 55 42 3C 3C 3C 00 B4 16 8C 05 41 4B 4B 55 |>SUB<<<.....AKKU| 00000EA0: B2 41 4B 4B 55 AB C5 28 41 24 28 C5 28 41 24 29 |.AKKU..(A$(.(A$)| 00000EB0: 29 29 3A 8E 00 C3 16 96 05 8F 3E 3E 3E 4D 55 4C |)):.......>>>MUL| 00000EC0: 3C 3C 3C 00 E0 16 A0 05 41 4B 4B 55 B2 41 4B 4B |<<<.....AKKU.AKK| 00000ED0: 55 AC C5 28 41 24 28 C5 28 41 24 29 29 29 3A 8E |U..(A$(.(A$))):.| 00000EE0: 00 EF 16 AA 05 8F 3E 3E 3E 44 49 56 3C 3C 3C 00 |......>>>DIV<<<.| 00000EF0: 0C 17 B4 05 41 4B 4B 55 B2 41 4B 4B 55 AD C5 28 |....AKKU.AKKU..(| 00000F00: 41 24 28 C5 28 41 24 29 29 29 3A 8E 00 1B 17 BE |A$(.(A$))):.....| 00000F10: 05 8F 3E 3E 3E 4E 4F 50 3C 3C 3C 00 21 17 C8 05 |..>>>NOP<<<.!...| 00000F20: 8E 00 30 17 D2 05 8F 3E 3E 3E 53 50 55 3C 3C 3C |..0....>>>SPU<<<| 00000F30: 00 3F 17 DC 05 42 5A B2 C5 28 41 24 29 AB 31 00 |.?...BZ..(A$).1.| 00000F40: 45 17 E6 05 8E 00 54 17 F0 05 8F 3E 3E 3E 53 50 |E.....T....>>>SP| 00000F50: 4E 3C 3C 3C 00 6B 17 FA 05 8B 41 4B 4B 55 B2 30 |N<<<.k....AKKU.0| 00000F60: A7 42 5A B2 C5 28 41 24 29 AB 31 00 71 17 04 06 |.BZ..(A$).1.q...| 00000F70: 8E 00 80 17 0E 06 8F 3E 3E 3E 53 50 50 3C 3C 3C |.......>>>SPP<<<| 00000F80: 00 97 17 18 06 8B 41 4B 4B 55 B1 30 A7 42 5A B2 |......AKKU.0.BZ.| 00000F90: C5 28 41 24 29 AB 31 00 9D 17 22 06 8E 00 AC 17 |.(A$).1...".....| 00000FA0: 2C 06 8F 3E 3E 3E 53 50 4D 3C 3C 3C 00 C3 17 36 |,..>>>SPM<<<...6| 00000FB0: 06 8B 41 4B 4B 55 B3 30 A7 42 5A B2 C5 28 41 24 |..AKKU.0.BZ..(A$| 00000FC0: 29 AB 31 00 C9 17 40 06 8E 00 D8 17 4A 06 8F 3E |).1...@.....J..>| 00000FD0: 3E 3E 4C 45 53 3C 3C 3C 00 FB 17 54 06 99 22 13 |>>LES<<<...T..".| 00000FE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000FF0: 11 11 11 11 11 11 11 1D 3F 22 3B 00 11 18 5E 06 |........?";...^.| 00001000: 53 53 B2 31 3A 41 24 28 C5 28 41 24 29 29 B2 22 |SS.1:A$(.(A$))."| 00001010: 22 00 27 18 68 06 A1 49 49 24 3A 8B 49 49 24 B2 |".'.h..II$:.II$.| 00001020: 22 22 A7 31 36 34 30 00 48 18 72 06 8B 53 53 B2 |"".1640.H.r..SS.| 00001030: 31 A7 99 22 20 20 20 20 20 20 20 20 20 20 20 22 |1.." "| 00001040: 3A 99 22 91 1D 1D 22 3B 00 62 18 7C 06 53 53 B2 |:."...";.b.|.SS.| 00001050: 30 3A 8B C6 28 49 49 24 29 B3 B1 31 33 A7 31 36 |0:..(II$)..13.16| 00001060: 39 30 00 8B 18 86 06 99 3A 99 22 91 1D 20 20 20 |90......:.".. | 00001070: 20 20 20 20 20 20 13 22 3A 8B 50 41 B3 B1 B5 28 | .":.PA...(| 00001080: C5 28 41 24 29 AD 32 30 29 A7 8E 00 A2 18 90 06 |.(A$).20).......| 00001090: 53 41 B2 31 3A 8D 31 30 35 30 3A 54 53 41 B2 30 |SA.1:.1050:TSA.0| 000010A0: 3A 8E 00 CA 18 9A 06 99 49 49 24 3B 3A 41 24 28 |:.......II$;:A$(| 000010B0: C5 28 41 24 29 29 B2 41 24 28 C5 28 41 24 29 29 |.(A$)).A$(.(A$))| 000010C0: AA 49 49 24 3A 89 31 36 34 30 00 D0 18 A4 06 8E |.II$:.1640......| 000010D0: 00 DF 18 AE 06 8F 3E 3E 3E 44 52 4B 3C 3C 3C 00 |......>>>DRK<<<.| 000010E0: 16 19 B8 06 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........| 000010F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 20 |............... | 00001100: 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 | ":.".| 00001110: 1D 9E 3A 12 22 3B 00 2D 19 C2 06 99 41 24 28 C5 |..:.";.-....A$(.| 00001120: 28 41 24 29 29 3B 22 9A 92 13 22 3A 8E 00 33 19 |(A$));"...":..3.| 00001130: CC 06 80 00 73 19 D0 07 89 34 34 30 3A 8F 20 2A |....s....440:. *| 00001140: 2A 2A 20 4D 49 54 20 47 4F 54 4F 32 30 30 30 20 |** MIT GOTO2000 | 00001150: 42 45 49 20 41 42 42 52 55 43 48 20 57 49 45 44 |BEI ABBRUCH WIED| 00001160: 45 52 20 49 4E 53 20 50 52 4F 47 52 41 4D 4D 2A |ER INS PROGRAMM*| 00001170: 2A 2A 2A 00 00 00 E0 24 04 65 |***....$.e |
..S...."......LOTHAR SCHMIDT.RITZINGERS
TR. 6.8360 DEGGENDORF.PRG TAUSCH (VC-64)
."L.|.D..>>> M O D E L L C O M P U T E R
<<<...N.....S..53280,6.U.X..A$(250),B$(
15),Z$(3):C$." ":Z$(1).
"E":Z$(2)."L".....Z$(3)."S":.I.0.15:.B$(
I):..:.... HLT,NIM,SET,ADD,SUB,MUL,DIV,N
I#,---,NOP,SPU,SPN,SPP,SPM,LES,DRK.G....
"................. C O S M O S .....".
.. .."COMPUTER-SIMULATIONS-MODELL FUER S
CHULEN".B...."... . ..
."......"...C O S M O S SIMULIE
RT EINEN KLASSI-."......"SCHEN EIN-ADRES
S-RECHNER.".!.H..830:.440.B.R.."........
BEFEHLSRPERTOIRE:".H.....S....".. OP
WIRKUNG .."......"..NIM
AKKU_<AD):BZ_BZ+1......".NI# AKKU_AD:B
Z_BZ+1.T....".SET <AD>_AKKU:AKKU_0:BZ_B
Z+1"......"..ADD AKKU_AKKU+<AD>:BZ_BZ+1
"......".SUB AKKU_AKKU-<AD>:BZ_BZ+1".A.
"..".MUL AKKU_AKKU*<AD>:BZ_BZ+1".E.,.."
.DIV AKKU_AKKU/<AD>:BZ_BZ+1".N.6..830..
.@.."... OP WIRKUNG .
."...J.."..NOP BZ_BZ+1".C.T.."..SPU BZ
_AD...^..".SPN FALLS AKKU=0 DANN BZ_AD"
...H...18)"SONST BZ_BZ+1".&.R..".SPP FA
LLS AKKU>0 DANN BZ_AD".?.|...18)"SONST B
Z_BZ+1".D....".SPM FALLS AKKU<0 DANN BZ
_AD".}.....18)"SONST BZ_BZ+1"......".LES
<AD>_INPUT"......".DRK OUTPUT_<AD>".M
....".HLT PROGRAMMSTOP":.830......"....
... MODELLCOMPUTER : COSMOS ....."...B..
".1. : PROGRAMMEINGABE.".A.L..".2. : PRO
GRAMMAUSGABE/-KORREKTUR.".^.V..".3. : MU
STERPROGRAMM.".Y....".4. : PROGRAMMLAUF.
"......" .E. : EINZELSCHRITT"....
.." .L. : LANGSAM.V...." .
S. : SCHNELL."......".5. : BEFEHLSREPERT
OIRE."......".6. : SCHEMATISCHER AUFBAU"
.F....Z$:.E(Z$).1.540,870,570,710,1010,2
10,560.O.&..540.B.0..580:.830:.440.Q.:..
".";:.930...D..".";.22)".. PROGRAMM
."...N...5)"....BEFEHLSZ..".S.X...5)"
.";.14)".":..5)".........."...B..".... B
EFEHLSREGISTER ..".!.L..".";.5)".";.18)"
.":."...................".6.V.." OP
AD".U....".... AKKU ..".}.
...".";.18)".":."..................."...
..."...... EIN / AUSGABE .."......".";
.18)"."......".";.18)"."......".........
............";.........F..>>>MUSTERPROGR
AMM<<<...P..:.I.0.15:.F$:..(.Z..I.0.11:.
A$(I):.I.T.... "LES 11","NIM 11","SPN 10
","SPP 6","DRK 11","SPU 0","MUL 11","SET
11"...... "DRK 11","SPU 0",HLT,*.....N.
10:Z.2:.1030......Z.1.830.G....I.1.(4.Z)
.8:.ZZ$......ZZ$."E".Z.1:.860... ..ZZ$."
S".Z.3:.860...*..ZZ$."L".Z.2:.860...4..I
:..'.>..ZZ$:.ZZ$."".830.8.H..ZZ$."L".Z.2
.I.R..ZZ$."S".Z.3.].\..".".14)Z$(Z):..X.
F..>>>PROGRAMMEINGABE<<<...P.."...... PR
OGRAMMEINGABE ..":."EINGABE MIT * BEENDE
N!":I.0.S.Z..I.0.250:A$(I)."":.:I.0.....
.I,:.A$(I)......A$(I).."*".I.I.1:.900...
..N.I.1......J..1.N.15:.I.J.1.J.15:.I,A$
(I):.I.H...."BERICHTIGUNG (J/N)".[....A$
:.A$."".950.L....A$.."J".980...J.."BEFEH
L#";N1:.A$(N1):.A$(N1):J.J.1:.940...T..J
:.J.250.0..1:.A$(J)."".......N.J.I....44
0......>>>PROGRAMMLAUF<<<.....Z.2......5
80:.".PROGRAMMLAUF :";Z$(Z)......1050:.1
110.1....I.PA.20.PA.20.20.A.$..PB.PA.108
0.S.....21)C$:.".";...8..SA.1..I.E(A$)..
.21)" ":.".";...B...21)I
;.25);A$(I):.I...L...T.V..BZ.0.N:.".....
";.7)" ...";BZ:PA..(BZ.20)...`..".";:.
I.0.BB:.".";:.I:..20)" "...J..PB.PA.1150
...T.."..";:.1050.U.~..".";:.I.PA.20.BZ:
.".";:.I:..20)".>.":BB.BZ.PA.20:PB.PA.W.
..O$.H(A$(BZ),3):A$.J(A$(BZ),4)......"..
........";.2)O$;".";" ":.".";.7);
A$.G...."......";" ".V...."..
";AKKU.....S..1:.K.0.15:.O$.B$(K).S.K:.1
220......K.0.D..S.0..".BEFEHL NICHT DEFI
NIERT":.830:.440.K.N..S.1.1280,1310,1340
,1390,1410,1430,1450,1330,1470,1470.Z.X.
.S.10.1260......S.9.1490,1520,1550,1580,
1610,1710......770......BZ.A....>>>HLT<<
<.O....830:.440.U..........>>>NIM<<<...(
.AKKU.E(A$(E(A$))):....2.AKKU.E(A$):....
<..>>>SET<<<.2.F.A$(E(A$)).D(AKKU).;.P..
".".V.Z.AKKU.0:SA.1:.1050:SA.0.\.D...K.N
..>>>ADD<<<...X.AKKU.AKKU.E(A$(E(A$))):.
......>>>SUB<<<.....AKKU.AKKU.E(A$(E(A$)
)):..C....>>>MUL<<<... .AKKU.AKKU.E(A$(E
(A$))):.......>>>DIV<<<.....AKKU.AKKU.E(
A$(E(A$))):.......>>>NOP<<<.!.H...0.R..>
>>SPU<<<.?...BZ.E(A$).1.E.....T....>>>SP
N<<<.K....AKKU.0.BZ.E(A$).1.Q..........>
>>SPP<<<......AKKU.0.BZ.E(A$).1...".....
,..>>>SPM<<<.C.6..AKKU.0.BZ.E(A$).1.I.@.
..X.J..>>>LES<<<...T..".................
........?";...^.SS.1:A$(E(A$))."".'.H..I
I$:.II$."".1640.H.R..SS.1.." "
:."...";.B.|.SS.0:.F(II$)..13.1690......
:.".. .":.PA...(E(A$).20).......
SA.1:.1050:TSA.0:..J....II$;:A$(E(A$)).A
$(E(A$)).II$:.1640.P..........>>>DRK<<<.
.....".........................
":."...:.";.-.B..A$(E(A$));"...":..3.
L...S.P..440:. *** MIT GOTO2000 BEI ABBR
UCH WIEDER INS PROGRAMM****....$.E
> CLICK IMAGE PREVIEW FOR FULL MODAL