PSYCHATER
FILE INFORMATION
FILENAME(S): PSYCHATER
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-10-20 14:30:01
APPEARS ON: 2 disk(s)
FILE HASH
f47d63f1392f0fab8c8b04d37b551e2f9dbd08e8ec96e8a5e204b00de2498003
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MULTISOFT | PSYCHATER | PRG | Treasure Chest - Klaus Der Suhler | 16 | 2 | DOWNLOAD FILE |
| MULTISOFT | PSYCHATER | PRG | Treasure Chest - Klaus Der Suhler | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000020: 3D 08 14 00 8F 20 2A 20 45 44 44 49 20 44 45 52 |=.... * EDDI DER|
00000030: 20 50 53 59 43 48 4F 4C 4F 47 45 20 2A 00 5B 08 | PSYCHOLOGE *.[.|
00000040: 1E 00 8F 20 2A 20 28 43 29 20 55 4E 44 20 57 52 |... * (C) UND WR|
00000050: 49 54 54 45 4E 20 20 42 59 20 2A 00 79 08 28 00 |ITTEN BY *.y.(.|
00000060: 8F 20 2A 20 4F 4C 49 56 45 52 20 20 53 54 49 45 |. * OLIVER STIE|
00000070: 4D 45 52 4C 49 4E 47 20 2A 00 97 08 32 00 8F 20 |MERLING *...2.. |
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 00 9D 08 3C 00 3A 00 A3 08 |*******...<.:...|
000000A0: 46 00 3A 00 A9 08 50 00 3A 00 AF 08 5A 00 3A 00 |F.:...P.:...Z.:.|
000000B0: D6 08 5B 00 99 22 93 11 11 11 11 1D 1D 1D 4B 4F |..[.."........KO|
000000C0: 50 49 45 20 41 55 46 20 44 52 55 43 4B 45 52 3F |PIE AUF DRUCKER?|
000000D0: 28 4A 2F 4E 29 22 00 F4 08 5C 00 A1 20 44 24 3A |(J/N)"...\.. D$:|
000000E0: 8B 20 44 24 B3 B1 22 4A 22 AF 44 24 B3 B1 22 4E |. D$.."J".D$.."N|
000000F0: 22 A7 39 32 00 26 09 64 00 99 22 93 11 11 11 11 |".92.&.d..".....|
00000100: 11 11 1D 4D 4F 4D 45 54 2C 20 49 43 48 20 4D 55 |...MOMET, ICH MU|
00000110: 53 53 20 55 45 42 45 52 4C 45 47 45 4E 2E 22 3A |SS UEBERLEGEN.":|
00000120: 9F 34 2C 34 2C 30 00 35 09 6E 00 8F 20 2A 2A 2A |.4,4,0.5.n.. ***|
00000130: 2A 2A 2A 2A 2A 00 44 09 78 00 8F 20 2A 20 49 4E |*****.D.x.. * IN|
00000140: 49 54 20 2A 00 53 09 82 00 8F 20 2A 2A 2A 2A 2A |IT *.S.... *****|
00000150: 2A 2A 2A 00 96 09 8C 00 86 20 53 44 28 32 30 2C |***...... SD(20,|
00000160: 32 29 2C 57 44 24 28 33 39 29 2C 57 44 28 33 39 |2),WD$(39),WD(39|
00000170: 29 2C 57 54 24 28 32 30 29 3A 86 20 57 41 24 28 |),WT$(20):. WA$(|
00000180: 32 30 29 2C 54 41 28 31 35 2C 31 29 2C 53 41 24 |20),TA(15,1),SA$|
00000190: 28 33 36 2C 32 29 00 BF 09 96 00 81 41 B2 31 A4 |(36,2)......A.1.|
000001A0: 32 30 3A 87 53 44 28 41 2C 30 29 3A 87 53 44 28 |20:.SD(A,0):.SD(|
000001B0: 41 2C 31 29 3A 87 53 44 28 41 2C 32 29 3A 82 00 |A,1):.SD(A,2):..|
000001C0: DC 09 A0 00 81 41 B2 31 A4 33 39 3A 87 57 44 24 |.....A.1.39:.WD$|
000001D0: 28 41 29 3A 87 57 44 28 41 29 3A 82 00 08 0A AA |(A):.WD(A):.....|
000001E0: 00 81 41 B2 31 A4 33 36 3A 87 53 41 24 28 41 2C |..A.1.36:.SA$(A,|
000001F0: 30 29 3A 87 53 41 24 28 41 2C 31 29 3A 87 53 41 |0):.SA$(A,1):.SA|
00000200: 24 28 41 2C 32 29 3A 82 00 51 0A C8 00 83 31 2C |$(A,2):..Q....1,|
00000210: 31 2C 31 2C 32 2C 33 2C 33 2C 34 2C 35 2C 36 2C |1,1,2,3,3,4,5,6,|
00000220: 37 2C 38 2C 37 2C 39 2C 31 30 2C 31 31 2C 31 32 |7,8,7,9,10,11,12|
00000230: 2C 31 33 2C 31 34 2C 31 35 2C 31 36 2C 31 35 2C |,13,14,15,16,15,|
00000240: 31 37 2C 31 38 2C 31 38 2C 31 39 2C 31 39 2C 31 |17,18,18,19,19,1|
00000250: 39 00 9E 0A D2 00 83 32 30 2C 32 30 2C 32 30 2C |9......20,20,20,|
00000260: 32 31 2C 32 32 2C 32 31 2C 32 33 2C 32 34 2C 32 |21,22,21,23,24,2|
00000270: 34 2C 32 35 2C 32 36 2C 32 36 2C 32 37 2C 32 38 |4,25,26,26,27,28|
00000280: 2C 32 38 2C 32 39 2C 32 39 2C 32 39 2C 33 30 2C |,28,29,29,29,30,|
00000290: 33 31 2C 33 30 2C 33 32 2C 33 33 2C 33 32 00 BE |31,30,32,33,32..|
000002A0: 0A DC 00 83 33 34 2C 33 34 2C 33 34 2C 33 35 2C |....34,34,34,35,|
000002B0: 33 36 2C 33 35 2C 33 36 2C 33 35 2C 33 36 00 0B |36,35,36,35,36..|
000002C0: 0B 2C 01 83 56 41 54 45 52 2C 31 2C 4D 55 54 54 |.,..VATER,1,MUTT|
000002D0: 45 52 2C 31 2C 42 52 55 44 45 52 2C 31 2C 53 43 |ER,1,BRUDER,1,SC|
000002E0: 48 57 45 53 54 45 52 2C 31 2C 4F 4E 4B 45 4C 2C |HWESTER,1,ONKEL,|
000002F0: 31 2C 54 41 4E 54 45 2C 31 2C 4E 45 46 46 45 2C |1,TANTE,1,NEFFE,|
00000300: 31 2C 52 45 43 48 4E 45 52 2C 32 00 53 0B 36 01 |1,RECHNER,2.S.6.|
00000310: 83 43 4F 4D 50 55 54 45 52 2C 32 2C 4C 45 48 52 |.COMPUTER,2,LEHR|
00000320: 45 52 2C 33 2C 53 43 48 55 4C 45 2C 33 2C 4B 4C |ER,3,SCHULE,3,KL|
00000330: 41 53 53 45 4E 41 52 42 45 49 54 2C 33 2C 54 52 |ASSENARBEIT,3,TR|
00000340: 4F 54 54 45 4C 2C 34 2C 41 52 53 43 48 4C 4F 43 |OTTEL,4,ARSCHLOC|
00000350: 48 2C 34 00 9E 0B 40 01 83 41 52 53 43 48 2C 34 |H,4...@..ARSCH,4|
00000360: 2C 53 43 48 57 45 49 4E 2C 34 2C 49 44 49 4F 54 |,SCHWEIN,4,IDIOT|
00000370: 2C 34 2C 42 49 4E 2C 35 2C 57 41 52 2C 36 2C 57 |,4,BIN,5,WAR,6,W|
00000380: 45 52 44 45 2C 37 2C 42 49 53 54 2C 38 2C 57 41 |ERDE,7,BIST,8,WA|
00000390: 52 53 54 2C 39 2C 57 49 52 53 54 2C 31 30 00 E9 |RST,9,WIRST,10..|
000003A0: 0B 4A 01 83 48 41 42 45 2C 31 31 2C 48 41 53 54 |.J..HABE,11,HAST|
000003B0: 2C 31 32 2C 48 41 53 53 45 2C 31 33 2C 4C 49 45 |,12,HASSE,13,LIE|
000003C0: 42 45 2C 31 34 2C 52 45 47 45 4E 2C 31 35 2C 57 |BE,14,REGEN,15,W|
000003D0: 45 54 54 45 52 2C 31 35 2C 53 55 43 48 45 2C 31 |ETTER,15,SUCHE,1|
000003E0: 36 2C 57 49 4C 4C 2C 31 37 00 2E 0C 54 01 83 45 |6,WILL,17...T..E|
000003F0: 4C 54 45 52 4E 2C 31 2C 47 45 53 43 48 57 49 53 |LTERN,1,GESCHWIS|
00000400: 54 45 52 2C 31 2C 57 4F 43 48 45 2C 31 38 2C 53 |TER,1,WOCHE,18,S|
00000410: 54 55 4E 44 45 2C 31 38 2C 4E 45 49 4E 2C 31 39 |TUNDE,18,NEIN,19|
00000420: 2C 4A 41 48 52 2C 31 38 2C 4A 41 2C 32 30 00 3C |,JAHR,18,JA,20.<|
00000430: 0C 5E 01 83 4D 4F 4E 41 54 2C 31 38 00 71 0C 91 |.^..MONAT,18.q..|
00000440: 01 83 22 41 22 2C 22 45 52 5A 41 45 48 4C 45 20 |.."A","ERZAEHLE |
00000450: 4D 49 52 20 4D 45 48 52 20 56 4F 4E 20 44 45 49 |MIR MEHR VON DEI|
00000460: 4E 45 52 20 46 41 4D 49 4C 49 45 20 21 22 2C 22 |NER FAMILIE !","|
00000470: 22 00 9A 0C 92 01 83 22 41 22 2C 22 42 45 55 4E |"......"A","BEUN|
00000480: 52 55 48 49 47 45 4E 20 44 49 43 48 20 43 4F 4D |RUHIGEN DICH COM|
00000490: 50 55 54 45 52 3F 22 2C 22 22 00 BD 0C 93 01 83 |PUTER?",""......|
000004A0: 22 41 22 2C 22 4D 41 43 48 45 20 49 43 48 20 44 |"A","MACHE ICH D|
000004B0: 49 52 20 41 4E 47 53 54 3F 22 2C 22 22 00 DB 0C |IR ANGST?",""...|
000004C0: 94 01 83 22 41 22 2C 22 49 47 49 54 54 2C 20 53 |..."A","IGITT, S|
000004D0: 43 48 55 4C 45 20 21 22 2C 22 22 00 29 0D 95 01 |CHULE !","".)...|
000004E0: 83 22 41 22 2C 22 57 45 52 20 44 49 45 20 53 43 |."A","WER DIE SC|
000004F0: 48 55 4C 45 20 4B 45 4E 4E 54 2C 20 55 4E 44 20 |HULE KENNT, UND |
00000500: 53 49 43 48 20 4E 49 43 48 54 20 44 52 55 45 43 |SICH NICHT DRUEC|
00000510: 4B 54 2C 20 44 45 52 20 49 53 54 20 56 45 52 55 |KT, DER IST VERU|
00000520: 45 43 4B 54 2E 22 2C 22 22 00 53 0D 96 01 83 22 |ECKT.","".S...."|
00000530: 41 22 2C 22 57 41 53 20 49 53 54 20 44 45 49 4E |A","WAS IST DEIN|
00000540: 20 4C 49 45 42 4C 49 4E 47 53 46 41 43 48 3F 22 | LIEBLINGSFACH?"|
00000550: 2C 22 22 00 77 0D 97 01 83 22 41 22 2C 22 57 49 |,"".w...."A","WI|
00000560: 45 53 4F 20 53 41 47 53 54 20 44 55 20 53 4F 57 |ESO SAGST DU SOW|
00000570: 41 53 3F 22 2C 22 22 00 96 0D 98 01 83 22 41 22 |AS?",""......"A"|
00000580: 2C 22 48 4F 45 52 45 20 42 49 54 54 45 20 41 55 |,"HOERE BITTE AU|
00000590: 46 21 22 2C 22 22 00 BE 0D 99 01 83 22 5A 22 2C |F!",""......"Z",|
000005A0: 22 57 41 52 55 4D 20 4D 45 49 4E 53 54 20 44 55 |"WARUM MEINST DU|
000005B0: 2C 20 44 55 20 42 49 53 54 22 2C 22 3F 22 00 E5 |, DU BIST","?"..|
000005C0: 0D 9A 01 83 22 5A 22 2C 22 57 49 45 20 4C 41 4E |...."Z","WIE LAN|
000005D0: 47 45 20 42 49 53 54 20 44 55 20 53 43 48 4F 4E |GE BIST DU SCHON|
000005E0: 22 2C 22 3F 22 00 2D 0E 9B 01 83 22 5A 22 2C 22 |","?".-...."Z","|
000005F0: 4D 45 49 4E 53 54 20 44 55 20 45 53 20 4D 41 43 |MEINST DU ES MAC|
00000600: 48 54 20 45 49 4E 45 4E 20 50 4F 53 49 54 49 56 |HT EINEN POSITIV|
00000610: 45 4E 20 45 49 4E 44 52 55 43 4B 2C 20 44 41 53 |EN EINDRUCK, DAS|
00000620: 53 20 44 55 22 2C 22 42 49 53 54 3F 22 00 4F 0E |S DU","BIST?".O.|
00000630: 9C 01 83 22 5A 22 2C 22 57 49 45 20 4C 41 4E 47 |..."Z","WIE LANG|
00000640: 45 20 57 41 52 53 54 20 44 55 22 2C 22 3F 22 00 |E WARST DU","?".|
00000650: 6D 0E 9D 01 83 22 5A 22 2C 22 57 41 52 55 4D 20 |m...."Z","WARUM |
00000660: 57 41 52 53 54 20 44 55 22 2C 22 3F 22 00 91 0E |WARST DU","?"...|
00000670: 9E 01 83 22 41 22 2C 22 55 4E 44 20 57 49 45 20 |..."A","UND WIE |
00000680: 49 53 54 20 45 53 20 48 45 55 54 45 3F 22 2C 22 |IST ES HEUTE?","|
00000690: 22 00 CA 0E 9F 01 83 22 5A 22 2C 22 47 4C 41 55 |"......"Z","GLAU|
000006A0: 42 53 54 20 44 55 2C 20 45 53 20 57 41 45 52 45 |BST DU, ES WAERE|
000006B0: 20 47 55 54 2C 20 57 45 4E 4E 20 44 55 22 2C 22 | GUT, WENN DU","|
000006C0: 57 55 45 52 44 45 53 54 3F 22 00 F2 0E A0 01 83 |WUERDEST?"......|
000006D0: 22 41 22 2C 22 56 4F 52 53 41 45 54 5A 45 20 46 |"A","VORSAETZE F|
000006E0: 41 53 53 45 4E 20 49 53 54 20 47 55 54 21 22 2C |ASSEN IST GUT!",|
000006F0: 22 22 00 16 0F A1 01 83 22 5A 22 2C 22 57 49 45 |""......"Z","WIE|
00000700: 53 4F 20 53 4F 4C 4C 54 45 20 49 43 48 22 2C 22 |SO SOLLTE ICH","|
00000710: 53 45 49 4E 3F 22 00 40 0F A2 01 83 22 5A 22 2C |SEIN?".@...."Z",|
00000720: 22 57 41 52 55 4D 20 4D 45 49 4E 53 54 20 44 55 |"WARUM MEINST DU|
00000730: 2C 20 49 43 48 20 57 41 45 52 45 22 2C 22 3F 22 |, ICH WAERE","?"|
00000740: 00 67 0F A3 01 83 22 5A 22 2C 22 57 41 52 55 4D |.g...."Z","WARUM|
00000750: 20 4D 45 49 4E 53 54 20 44 55 20 49 43 48 20 57 | MEINST DU ICH W|
00000760: 41 52 22 2C 22 3F 22 00 90 0F A4 01 83 22 5A 22 |AR","?"......"Z"|
00000770: 2C 22 57 49 45 53 4F 20 4D 45 49 4E 53 54 20 44 |,"WIESO MEINST D|
00000780: 55 20 49 43 48 20 57 45 52 44 45 22 2C 22 3F 22 |U ICH WERDE","?"|
00000790: 00 AD 0F AE 01 83 22 5A 22 2C 22 57 49 45 53 4F |......"Z","WIESO|
000007A0: 20 48 41 53 54 20 44 55 22 2C 22 3F 22 00 CA 0F | HAST DU","?"...|
000007B0: B8 01 83 22 5A 22 2C 22 57 41 52 55 4D 20 48 41 |..."Z","WARUM HA|
000007C0: 53 54 20 44 55 22 2C 22 3F 22 00 EF 0F C2 01 83 |ST DU","?"......|
000007D0: 22 5A 22 2C 22 57 49 45 53 4F 20 53 4F 4C 4C 54 |"Z","WIESO SOLLT|
000007E0: 45 20 49 43 48 22 2C 22 48 41 42 45 4E 3F 22 00 |E ICH","HABEN?".|
000007F0: 14 10 CC 01 83 22 5A 22 2C 22 57 41 52 55 4D 20 |....."Z","WARUM |
00000800: 53 4F 4C 4C 54 45 20 49 43 48 22 2C 22 48 41 42 |SOLLTE ICH","HAB|
00000810: 45 4E 3F 22 00 32 10 D6 01 83 22 5A 22 2C 22 57 |EN?".2...."Z","W|
00000820: 41 52 55 4D 20 48 41 53 53 54 20 44 55 22 2C 22 |ARUM HASST DU","|
00000830: 3F 22 00 68 10 E0 01 83 22 5A 22 2C 22 4D 45 49 |?".h...."Z","MEI|
00000840: 4E 53 54 20 44 55 20 44 41 53 20 49 53 54 20 4E |NST DU DAS IST N|
00000850: 4F 52 4D 41 4C 2C 20 44 41 53 53 20 44 55 22 2C |ORMAL, DASS DU",|
00000860: 22 48 41 53 53 54 3F 22 00 9F 10 EA 01 83 22 5A |"HASST?"......"Z|
00000870: 22 2C 22 4D 45 49 4E 53 54 20 44 55 20 44 41 53 |","MEINST DU DAS|
00000880: 20 49 53 54 20 4E 4F 52 4D 41 4C 2C 20 44 41 53 | IST NORMAL, DAS|
00000890: 53 20 44 55 22 2C 22 4C 49 45 42 53 54 3F 22 00 |S DU","LIEBST?".|
000008A0: BD 10 F4 01 83 22 41 22 2C 22 44 41 53 20 49 53 |....."A","DAS IS|
000008B0: 54 20 53 43 48 4F 45 4E 2E 22 2C 22 22 00 F9 10 |T SCHOEN.",""...|
000008C0: FE 01 83 22 41 22 2C 22 57 49 52 20 52 45 44 45 |..."A","WIR REDE|
000008D0: 4E 20 55 45 42 45 52 20 44 49 43 48 2C 20 4E 49 |N UEBER DICH, NI|
000008E0: 43 48 54 20 55 45 42 45 52 20 44 41 53 20 57 45 |CHT UEBER DAS WE|
000008F0: 54 54 45 52 2E 22 2C 22 22 00 18 11 08 02 83 22 |TTER.",""......"|
00000900: 5A 22 2C 22 57 41 52 55 4D 20 53 55 43 48 53 54 |Z","WARUM SUCHST|
00000910: 20 44 55 22 2C 22 3F 22 00 37 11 12 02 83 22 5A | DU","?".7...."Z|
00000920: 22 2C 22 57 49 45 53 4F 20 53 55 43 48 53 54 20 |","WIESO SUCHST |
00000930: 44 55 22 2C 22 3F 22 00 66 11 1C 02 83 22 5A 22 |DU","?".f...."Z"|
00000940: 2C 22 4D 45 49 4E 53 54 20 44 55 2C 20 45 53 20 |,"MEINST DU, ES |
00000950: 49 53 54 20 47 55 54 2C 22 2C 22 5A 55 20 57 4F |IST GUT,","ZU WO|
00000960: 4C 4C 45 4D 3F 22 00 85 11 26 02 83 22 5A 22 2C |LLEM?"...&.."Z",|
00000970: 22 57 41 52 55 4D 20 57 49 4C 4C 53 54 20 44 55 |"WARUM WILLST DU|
00000980: 22 2C 22 3F 22 00 A0 11 2A 02 83 22 41 22 2C 22 |","?"...*.."A","|
00000990: 44 41 53 20 49 53 54 20 4C 41 4E 47 22 2C 22 22 |DAS IST LANG",""|
000009A0: 00 BC 11 2B 02 83 22 41 22 2C 22 47 41 4E 5A 20 |...+.."A","GANZ |
000009B0: 45 48 52 4C 49 43 48 3F 22 2C 22 22 00 DE 11 30 |EHRLICH?",""...0|
000009C0: 02 83 22 41 22 2C 22 42 49 53 54 20 44 55 20 44 |.."A","BIST DU D|
000009D0: 49 52 20 53 49 43 48 45 52 3F 22 2C 22 22 00 12 |IR SICHER?",""..|
000009E0: 12 58 02 99 22 93 05 12 20 20 20 20 20 20 20 20 |.X.."... |
000009F0: 20 20 20 20 20 20 20 20 45 44 44 49 20 20 20 20 | EDDI |
00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A10: 92 22 00 4D 12 62 02 99 22 45 44 44 49 3A 20 48 |.".M.b.."EDDI: H|
00000A20: 41 4C 4C 4F 20 49 43 48 20 42 49 4E 20 45 44 44 |ALLO ICH BIN EDD|
00000A30: 49 2E 20 57 49 45 20 4C 41 55 54 45 54 20 44 45 |I. WIE LAUTET DE|
00000A40: 49 4E 20 56 4F 52 4E 41 4D 45 20 3F 22 00 5E 12 |IN VORNAME ?".^.|
00000A50: 63 02 8B 20 44 24 B2 22 4E 22 A7 36 32 30 00 9B |c.. D$."N".620..|
00000A60: 12 64 02 98 34 2C 22 45 44 44 49 3A 20 48 41 4C |.d..4,"EDDI: HAL|
00000A70: 4C 4F 20 49 43 48 20 42 49 4E 20 45 44 44 49 2E |LO ICH BIN EDDI.|
00000A80: 20 57 49 45 20 4C 41 55 54 45 54 20 44 45 49 4E | WIE LAUTET DEIN|
00000A90: 20 56 4F 52 4E 41 4D 45 20 3F 22 00 AD 12 6C 02 | VORNAME ?"...l.|
00000AA0: 4E 41 24 B2 22 50 41 54 49 45 4E 54 22 00 B7 12 |NA$."PATIENT"...|
00000AB0: 76 02 8D 35 30 30 30 00 C7 12 80 02 4E 41 24 B2 |v..5000.....NA$.|
00000AC0: 57 54 24 28 57 54 29 00 FD 12 8A 02 99 22 45 44 |WT$(WT)......"ED|
00000AD0: 44 49 3A 20 54 41 47 43 48 45 4E 2C 20 22 3B 4E |DI: TAGCHEN, ";N|
00000AE0: 41 24 3B 22 2E 20 53 41 47 45 20 4D 49 52 20 44 |A$;". SAGE MIR D|
00000AF0: 45 49 4E 20 50 52 4F 42 4C 45 4D 21 22 00 0E 13 |EIN PROBLEM!"...|
00000B00: 8B 02 8B 20 44 24 B2 22 4E 22 A7 36 36 30 00 46 |... D$."N".660.F|
00000B10: 13 8C 02 98 34 2C 22 45 44 44 49 3A 20 54 41 47 |....4,"EDDI: TAG|
00000B20: 43 48 45 4E 2C 20 22 3B 4E 41 24 3B 22 2E 20 53 |CHEN, ";NA$;". S|
00000B30: 41 47 45 20 4D 49 52 20 44 45 49 4E 20 50 52 4F |AGE MIR DEIN PRO|
00000B40: 42 4C 45 4D 21 22 00 5D 13 94 02 8F 20 2A 2A 2A |BLEM!".].... ***|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 74 13 |*************.t.|
00000B60: 9E 02 8F 20 2A 20 48 41 55 50 54 53 43 48 45 49 |... * HAUPTSCHEI|
00000B70: 46 45 20 2A 00 8B 13 A8 02 8F 20 2A 2A 2A 2A 2A |FE *...... *****|
00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 95 13 BC 02 |***********.....|
00000B90: 8D 35 30 30 30 00 9F 13 C6 02 8D 35 32 30 30 00 |.5000......5200.|
00000BA0: B2 13 D0 02 8B 20 53 5A 24 B2 22 3F 22 A7 36 30 |..... SZ$."?".60|
00000BB0: 30 30 00 C2 13 DA 02 8B 20 54 5A B2 30 A7 36 30 |00...... TZ.0.60|
00000BC0: 30 30 00 D6 13 E4 02 52 57 B2 B5 28 BB 28 31 29 |00.....RW..(.(1)|
00000BD0: AC 54 5A 29 AA 31 00 E7 13 EE 02 52 53 B2 B5 28 |.TZ).1.....RS..(|
00000BE0: BB 28 31 29 AC 33 29 00 F7 13 F8 02 57 47 B2 54 |.(1).3).....WG.T|
00000BF0: 41 28 52 57 2C 30 29 00 08 14 02 03 53 47 B2 53 |A(RW,0).....SG.S|
00000C00: 44 28 57 47 2C 52 53 29 00 1F 14 0C 03 8B 53 41 |D(WG,RS)......SA|
00000C10: 24 28 53 47 2C 30 29 B2 22 41 22 A7 38 35 30 00 |$(SG,0)."A".850.|
00000C20: 2F 14 16 03 53 56 B2 54 41 28 52 57 2C 31 29 00 |/...SV.TA(RW,1).|
00000C30: 39 14 20 03 8D 35 33 30 30 00 43 14 2A 03 8D 35 |9. ..5300.C.*..5|
00000C40: 34 30 30 00 54 14 34 03 8D 35 36 37 30 3A 55 53 |400.T.4..5670:US|
00000C50: 24 B2 22 22 00 78 14 3E 03 55 53 24 B2 55 53 24 |$."".x.>.US$.US$|
00000C60: AA 53 41 24 28 53 47 2C 31 29 AA 53 52 24 AA 53 |.SA$(SG,1).SR$.S|
00000C70: 41 24 28 53 47 2C 32 29 00 81 14 48 03 89 39 30 |A$(SG,2)...H..90|
00000C80: 30 00 9A 14 52 03 55 53 24 B2 22 22 3A 55 53 24 |0...R.US$."":US$|
00000C90: B2 53 41 24 28 53 47 2C 31 29 00 A5 14 84 03 8D |.SA$(SG,1)......|
00000CA0: 20 35 38 30 30 00 AE 14 8E 03 89 37 30 30 00 C0 | 5800......700..|
00000CB0: 14 88 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000CC0: 00 D2 14 92 13 8F 20 2A 20 45 49 4E 47 41 42 45 |...... * EINGABE|
00000CD0: 20 2A 00 E4 14 9C 13 8F 20 2A 2A 2A 2A 2A 2A 2A | *...... *******|
00000CE0: 2A 2A 2A 2A 00 0E 15 A6 13 99 C7 28 31 33 29 3B |****.......(13);|
00000CF0: 4E 41 24 3B 22 3A 20 22 3B 3A 9F 31 2C 30 3A 84 |NA$;": ";:.1,0:.|
00000D00: 31 2C 53 24 3A A0 31 3A 99 C7 28 31 33 29 00 20 |1,S$:.1:..(13). |
00000D10: 15 A7 13 8B 20 44 24 B2 22 4E 22 A7 35 30 34 30 |.... D$."N".5040|
00000D20: 00 3F 15 A8 13 98 34 2C C7 28 31 30 29 3B 4E 41 |.?....4,.(10);NA|
00000D30: 24 3B 22 3A 20 22 3B 53 24 3B C7 28 31 30 29 00 |$;": ";S$;.(10).|
00000D40: 53 15 B0 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S.... **********|
00000D50: 2A 2A 2A 00 67 15 BA 13 8F 20 2A 20 5A 45 52 4C |***.g.... * ZERL|
00000D60: 45 47 55 4E 47 20 2A 00 7B 15 C4 13 8F 20 2A 2A |EGUNG *.{.... **|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B 15 CE 13 |***********.....|
00000D80: 53 5A 24 B2 CA 28 53 24 2C C3 28 53 24 29 2C 31 |SZ$..(S$,.(S$),1|
00000D90: 29 3A 57 54 B2 31 3A 46 4C B2 30 00 B3 15 D3 13 |):WT.1:FL.0.....|
00000DA0: 81 41 B2 31 A4 32 30 3A 57 54 24 28 41 29 B2 22 |.A.1.20:WT$(A)."|
00000DB0: 22 3A 82 00 C8 15 D8 13 53 24 B2 C8 28 53 24 2C |":......S$..(S$,|
00000DC0: C3 28 53 24 29 AB 31 29 00 D7 15 E2 13 81 41 B2 |.(S$).1)......A.|
00000DD0: 31 A4 C3 28 53 24 29 00 E8 15 EC 13 41 24 B2 CA |1..(S$).....A$..|
00000DE0: 28 53 24 2C 41 2C 31 29 00 09 16 F6 13 8B 20 41 |(S$,A,1)...... A|
00000DF0: 24 B2 C7 28 33 32 29 AF 46 4C B2 30 A7 46 4C B2 |$..(32).FL.0.FL.|
00000E00: 31 3A 57 54 B2 57 54 AA 31 00 1D 16 00 14 8B 20 |1:WT.WT.1...... |
00000E10: 41 24 B2 C7 28 33 32 29 A7 35 31 35 30 00 2F 16 |A$..(32).5150./.|
00000E20: 0A 14 8B 20 41 24 B3 B1 22 22 A7 46 4C B2 30 00 |... A$.."".FL.0.|
00000E30: 46 16 14 14 57 54 24 28 57 54 29 B2 57 54 24 28 |F...WT$(WT).WT$(|
00000E40: 57 54 29 AA 41 24 00 4D 16 1E 14 82 41 00 53 16 |WT).A$.M....A.S.|
00000E50: 28 14 8E 00 65 16 50 14 8F 20 2A 2A 2A 2A 2A 2A |(...e.P.. ******|
00000E60: 2A 2A 2A 2A 2A 00 77 16 5A 14 8F 20 2A 20 54 41 |*****.w.Z.. * TA|
00000E70: 42 45 4C 4C 45 20 2A 00 89 16 64 14 8F 20 2A 2A |BELLE *...d.. **|
00000E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 16 6E 14 54 5A |*********...n.TZ|
00000E90: B2 31 00 9E 16 78 14 81 41 B2 31 A4 57 54 00 AA |.1...x..A.1.WT..|
00000EA0: 16 82 14 81 42 B2 31 A4 33 39 00 ED 16 8C 14 8B |....B.1.39......|
00000EB0: 20 C8 28 57 54 24 28 41 29 2C C3 28 57 44 24 28 | .(WT$(A),.(WD$(|
00000EC0: 42 29 29 29 B2 57 44 24 28 42 29 A7 54 41 28 54 |B))).WD$(B).TA(T|
00000ED0: 5A 2C 30 29 B2 57 44 28 42 29 3A 54 41 28 54 5A |Z,0).WD(B):TA(TZ|
00000EE0: 2C 31 29 B2 41 3A 54 5A B2 54 5A AA 31 00 FD 16 |,1).A:TZ.TZ.1...|
00000EF0: 96 14 82 3A 82 3A 54 5A B2 54 5A AB 31 00 03 17 |...:.:TZ.TZ.1...|
00000F00: A0 14 8E 00 14 17 B4 14 8F 20 2A 2A 2A 2A 2A 2A |......... ******|
00000F10: 2A 2A 2A 2A 00 25 17 BE 14 8F 20 2A 20 53 41 54 |****.%.... * SAT|
00000F20: 5A 2D 54 20 2A 00 36 17 C8 14 8F 20 2A 2A 2A 2A |Z-T *.6.... ****|
00000F30: 2A 2A 2A 2A 2A 2A 00 4E 17 D2 14 81 41 B2 31 A4 |******.N....A.1.|
00000F40: 31 30 3A 57 41 24 28 41 29 B2 22 22 3A 82 00 5A |10:WA$(A)."":..Z|
00000F50: 17 DC 14 53 56 B2 53 56 AA 31 00 67 17 E6 14 81 |...SV.SV.1.g....|
00000F60: 41 B2 53 56 A4 57 54 00 82 17 F0 14 57 41 24 28 |A.SV.WT.....WA$(|
00000F70: 41 AB 28 53 56 AB 31 29 29 B2 57 54 24 28 41 29 |A.(SV.1)).WT$(A)|
00000F80: 3A 82 00 88 17 FA 14 8E 00 99 17 18 15 8F 20 2A |:............. *|
00000F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AA 17 22 15 8F 20 |*********...".. |
00000FA0: 2A 20 55 4D 44 52 45 48 20 2A 00 BB 17 2C 15 8F |* UMDREH *...,..|
00000FB0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C8 17 36 15 | **********...6.|
00000FC0: 5A 47 B2 57 54 AB 53 56 00 D4 17 40 15 81 41 B2 |ZG.WT.SV...@..A.|
00000FD0: 31 A4 5A 47 00 F9 17 68 15 8B 20 57 41 24 28 41 |1.ZG...h.. WA$(A|
00000FE0: 29 B2 22 49 43 48 22 A7 57 41 24 28 41 29 B2 22 |)."ICH".WA$(A)."|
00000FF0: 44 55 22 3A 89 35 36 30 30 00 1E 18 72 15 8B 20 |DU":.5600...r.. |
00001000: 57 41 24 28 41 29 B2 22 44 55 22 A7 57 41 24 28 |WA$(A)."DU".WA$(|
00001010: 41 29 B2 22 49 43 48 22 3A 89 35 36 30 30 00 36 |A)."ICH":.5600.6|
00001020: 18 7C 15 8B 20 57 41 24 28 41 29 B2 22 4D 49 52 |.|.. WA$(A)."MIR|
00001030: 22 A7 35 35 36 30 00 4E 18 86 15 8B 20 57 41 24 |".5560.N.... WA$|
00001040: 28 41 29 B2 22 44 49 52 22 A7 35 35 37 30 00 68 |(A)."DIR".5570.h|
00001050: 18 87 15 8B 20 57 41 24 28 41 29 B2 22 4D 45 49 |.... WA$(A)."MEI|
00001060: 4E 45 22 A7 35 35 36 30 00 82 18 8A 15 8B 20 57 |NE".5560...... W|
00001070: 41 24 28 41 29 B2 22 44 45 49 4E 45 22 A7 35 35 |A$(A)."DEINE".55|
00001080: 37 30 00 9B 18 90 15 8B 20 57 41 24 28 41 29 B2 |70...... WA$(A).|
00001090: 22 4D 49 43 48 22 A7 35 35 36 30 00 B4 18 9A 15 |"MICH".5560.....|
000010A0: 8B 20 57 41 24 28 41 29 B2 22 44 49 43 48 22 A7 |. WA$(A)."DICH".|
000010B0: 35 35 37 30 00 CD 18 A4 15 8B 20 57 41 24 28 41 |5570...... WA$(A|
000010C0: 29 B2 22 4D 45 49 4E 22 A7 35 35 36 30 00 E6 18 |)."MEIN".5560...|
000010D0: AE 15 8B 20 57 41 24 28 41 29 B2 22 44 45 49 4E |... WA$(A)."DEIN|
000010E0: 22 A7 35 35 37 30 00 F0 18 B3 15 89 35 36 30 30 |".5570......5600|
000010F0: 00 1B 19 B8 15 57 41 24 28 41 29 B2 22 44 22 AA |.....WA$(A)."D".|
00001100: C9 28 57 41 24 28 41 29 2C C3 28 57 41 24 28 41 |.(WA$(A),.(WA$(A|
00001110: 29 29 AB 31 29 3A 89 35 36 30 30 00 46 19 C2 15 |)).1):.5600.F...|
00001120: 57 41 24 28 41 29 B2 22 4D 22 AA C9 28 57 41 24 |WA$(A)."M"..(WA$|
00001130: 28 41 29 2C C3 28 57 41 24 28 41 29 29 AB 31 29 |(A),.(WA$(A)).1)|
00001140: 3A 89 35 36 30 30 00 4D 19 E0 15 82 41 00 53 19 |:.5600.M....A.S.|
00001150: EA 15 8E 00 69 19 26 16 8F 20 2A 2A 2A 2A 2A 2A |....i.&.. ******|
00001160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7F 19 30 16 8F 20 |*********...0.. |
00001170: 2A 20 4D 41 4B 45 2D 53 54 52 49 4E 47 20 2A 00 |* MAKE-STRING *.|
00001180: 95 19 3A 16 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..:.. **********|
00001190: 2A 2A 2A 2A 2A 00 A1 19 44 16 53 52 24 B2 22 20 |*****...D.SR$." |
000011A0: 22 00 AF 19 4E 16 81 41 B2 31 A4 5A 47 AA 31 00 |"...N..A.1.ZG.1.|
000011B0: C2 19 58 16 53 52 24 B2 53 52 24 AA 57 41 24 28 |..X.SR$.SR$.WA$(|
000011C0: 41 29 00 D2 19 62 16 53 52 24 B2 53 52 24 AA 22 |A)...b.SR$.SR$."|
000011D0: 20 22 00 D9 19 6C 16 82 41 00 DF 19 76 16 8E 00 | "...l..A...v...|
000011E0: F1 19 A8 16 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000011F0: 2A 00 03 1A B2 16 8F 20 2A 20 41 55 53 47 41 42 |*...... * AUSGAB|
00001200: 45 20 2A 00 15 1A BC 16 8F 20 2A 2A 2A 2A 2A 2A |E *...... ******|
00001210: 2A 2A 2A 2A 2A 00 27 1A C6 16 99 22 45 44 44 49 |*****.'...."EDDI|
00001220: 3A 20 22 3B 55 53 24 00 36 1A C7 16 8B 20 44 24 |: ";US$.6.... D$|
00001230: B2 22 4E 22 A7 8E 00 4C 1A C8 16 98 34 2C 22 45 |."N"...L....4,"E|
00001240: 44 44 49 3A 20 22 3B 55 53 24 3A 8E 00 6B 1A 70 |DDI: ";US$:..k.p|
00001250: 17 99 22 45 44 44 49 3A 20 45 52 5A 41 45 48 4C |.."EDDI: ERZAEHL|
00001260: 45 20 57 45 49 54 45 52 20 21 22 00 7C 1A 71 17 |E WEITER !".|.q.|
00001270: 8B 20 44 24 B2 22 4E 22 A7 37 30 30 00 A2 1A 72 |. D$."N".700...r|
00001280: 17 98 34 2C 22 45 44 44 49 3A 20 45 52 5A 41 45 |..4,"EDDI: ERZAE|
00001290: 48 4C 45 20 57 45 49 54 45 52 20 21 22 3A 89 37 |HLE WEITER !":.7|
000012A0: 30 30 00 00 00 |00... |
....... ***********************.=.... *
EDDI DER PSYCHOLOGE *.[.... * (C) UND WR
ITTEN BY *.Y.(.. * OLIVER STIEMERLING
*...2.. ***********************...<.:...
F.:...P.:...Z.:.V.[.."........KOPIE AUF
DRUCKER?(J/N)"...\.. D$:. D$.."J".D$.."N
".92.&.D.."........MOMET, ICH MUSS UEBER
LEGEN.":.4,4,0.5.N.. ********.D.X.. * IN
IT *.S.... ********...... SD(20,2),WD$(3
9),WD(39),WT$(20):. WA$(20),TA(15,1),SA$
(36,2)......A.1.20:.SD(A,0):.SD(A,1):.SD
(A,2):.... ..A.1.39:.WD$(A):.WD(A):.....
..A.1.36:.SA$(A,0):.SA$(A,1):.SA$(A,2):.
.Q.H..1,1,1,2,3,3,4,5,6,7,8,7,9,10,11,12
,13,14,15,16,15,17,18,18,19,19,19...R..2
0,20,20,21,22,21,23,24,24,25,26,26,27,28
,28,29,29,29,30,31,30,32,33,32......34,3
4,34,35,36,35,36,35,36...,..VATER,1,MUTT
ER,1,BRUDER,1,SCHWESTER,1,ONKEL,1,TANTE,
1,NEFFE,1,RECHNER,2.S.6..COMPUTER,2,LEHR
ER,3,SCHULE,3,KLASSENARBEIT,3,TROTTEL,4,
ARSCHLOCH,4...@..ARSCH,4,SCHWEIN,4,IDIOT
,4,BIN,5,WAR,6,WERDE,7,BIST,8,WARST,9,WI
RST,10...J..HABE,11,HAST,12,HASSE,13,LIE
BE,14,REGEN,15,WETTER,15,SUCHE,16,WILL,1
7...T..ELTERN,1,GESCHWISTER,1,WOCHE,18,S
TUNDE,18,NEIN,19,JAHR,18,JA,20.<.^..MONA
T,18.Q...."A","ERZAEHLE MIR MEHR VON DEI
NER FAMILIE !",""......"A","BEUNRUHIGEN
DICH COMPUTER?",""......"A","MACHE ICH D
IR ANGST?",""......"A","IGITT, SCHULE !"
,"".)...."A","WER DIE SCHULE KENNT, UND
SICH NICHT DRUECKT, DER IST VERUECKT.","
".S...."A","WAS IST DEIN LIEBLINGSFACH?"
,"".W...."A","WIESO SAGST DU SOWAS?","".
....."A","HOERE BITTE AUF!",""......"Z",
"WARUM MEINST DU, DU BIST","?"......"Z",
"WIE LANGE BIST DU SCHON","?".-...."Z","
MEINST DU ES MACHT EINEN POSITIVEN EINDR
UCK, DASS DU","BIST?".O...."Z","WIE LANG
E WARST DU","?".M...."Z","WARUM WARST DU
","?"......"A","UND WIE IST ES HEUTE?","
".J...."Z","GLAUBST DU, ES WAERE GUT, WE
NN DU","WUERDEST?"... .."A","VORSAETZE F
ASSEN IST GUT!",""......"Z","WIESO SOLLT
E ICH","SEIN?".@...."Z","WARUM MEINST DU
, ICH WAERE","?".G...."Z","WARUM MEINST
DU ICH WAR","?"......"Z","WIESO MEINST D
U ICH WERDE","?"......"Z","WIESO HAST DU
","?".J...."Z","WARUM HAST DU","?"...B..
"Z","WIESO SOLLTE ICH","HABEN?"...L.."Z"
,"WARUM SOLLTE ICH","HABEN?".2.V.."Z","W
ARUM HASST DU","?".H...."Z","MEINST DU D
AS IST NORMAL, DASS DU","HASST?"......"Z
","MEINST DU DAS IST NORMAL, DASS DU","L
IEBST?"......"A","DAS IST SCHOEN.",""...
..."A","WIR REDEN UEBER DICH, NICHT UEBE
R DAS WETTER.",""......"Z","WARUM SUCHST
DU","?".7...."Z","WIESO SUCHST DU","?".
F...."Z","MEINST DU, ES IST GUT,","ZU WO
LLEM?"...&.."Z","WARUM WILLST DU","?". .
*.."A","DAS IST LANG",""...+.."A","GANZ
EHRLICH?",""...0.."A","BIST DU DIR SICHE
R?",""...X.."... EDDI
.".M.B.."EDDI: HALLO ICH
BIN EDDI. WIE LAUTET DEIN VORNAME ?".^.
C.. D$."N".620...D..4,"EDDI: HALLO ICH B
IN EDDI. WIE LAUTET DEIN VORNAME ?"...L.
NA$."PATIENT"...V..5000.G...NA$.WT$(WT).
....."EDDI: TAGCHEN, ";NA$;". SAGE MIR D
EIN PROBLEM!"...... D$."N".660.F....4,"E
DDI: TAGCHEN, ";NA$;". SAGE MIR DEIN PRO
BLEM!".].... ****************.T.... * HA
UPTSCHEIFE *...... ****************.....
.5000...F..5200...P.. SZ$."?".6000.B.Z..
TZ.0.6000.V...RW..(.(1).TZ).1.....RS..(
.(1).3).....WG.TA(RW,0).....SG.SD(WG,RS)
......SA$(SG,0)."A".850./...SV.TA(RW,1).
9. ..5300.C.*..5400.T.4..5670:US$."".X.>
.US$.US$.SA$(SG,1).SR$.SA$(SG,2)...H..90
0...R.US$."":US$.SA$(SG,1)...... 5800...
...700...... ***********.R.... * EINGABE
*...... ***********......G(13);NA$;": "
;:.1,0:.1,S$: 1:.G(13). .... D$."N".5040
.?....4,G(10);NA$;": ";S$;G(10).S.... **
***********.G.... * ZERLEGUNG *.{.D.. **
***********...N.SZ$.J(S$,C(S$),1):WT.1:F
L.0...S..A.1.20:WT$(A)."":..H.X.S$.H(S$,
C(S$).1).W....A.1.C(S$).....A$.J(S$,A,1)
...... A$.G(32).FL.0.FL.1:WT.WT.1......
A$.G(32).5150./.... A$.."".FL.0.F...WT$(
WT).WT$(WT).A$.M....A.S.(...E.P.. ******
*****.W.Z.. * TABELLE *...D.. **********
*...N.TZ.1...X..A.1.WT......B.1.39......
H(WT$(A),C(WD$(B))).WD$(B).TA(TZ,0).WD(
B):TA(TZ,1).A:TZ.TZ.1......:.:TZ.TZ.1...
........ **********.%.... * SATZ-T *.6.
H.. **********.N.R..A.1.10:WA$(A)."":..Z
...SV.SV.1.G....A.SV.WT.....WA$(A.(SV.1)
).WT$(A):............. **********..."..
* UMDREH *...,.. **********.H.6.ZG.WT.SV
.T.@..A.1.ZG...H.. WA$(A)."ICH".WA$(A)."
DU":.5600...R.. WA$(A)."DU".WA$(A)."ICH"
:.5600.6.|.. WA$(A)."MIR".5560.N.... WA$
(A)."DIR".5570.H.... WA$(A)."MEINE".5560
...... WA$(A)."DEINE".5570...... WA$(A).
"MICH".5560...... WA$(A)."DICH".5570.M..
.. WA$(A)."MEIN".5560...... WA$(A)."DEIN
".5570......5600.....WA$(A)."D".I(WA$(A)
,C(WA$(A)).1):.5600.F.B.WA$(A)."M".I(WA$
(A),C(WA$(A)).1):.5600.M....A.S.....I.&.
. ***************..0.. * MAKE-STRING *.
..:.. ***************...D.SR$." "...N..A
.1.ZG.1.B.X.SR$.SR$.WA$(A).R.B.SR$.SR$."
".Y.L..A...V........ ***********......
* AUSGABE *...... ***********.'.F.."EDDI
: ";US$.6.G.. D$."N"...L.H..4,"EDDI: ";U
S$:..K.P.."EDDI: ERZAEHLE WEITER !".|.Q.
. D$."N".700...R..4,"EDDI: ERZAEHLE WEIT
ER !":.700...
> CLICK IMAGE PREVIEW FOR FULL MODAL