DOKTOR

FILE INFORMATION

FILENAME(S): DOKTOR

FILE TYPE(S): SEQ

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 01:08:17

APPEARS ON: 2 disk(s)

FILE HASH

40d89b280bea531b53af2c2c04300f57a5e1736fa1c3d2db6388cfb524ba4fcc

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMAL 0 14	DOKTOR	SEQ	Treasure Chest - Wolfgang Rauprich	28	2	DOWNLOAD FILE
C OMAL 0 14	DOKTOR	SEQ	Treasure Chest - Wolfgang Rauprich	28	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 44  4F 4B 54 4F 52 20 57 49  |0010 //DOKTOR WI|
00000010: 4C 48 45 4C 4D 20 4F 4C  53 45 4E 53 20 50 52 4F  |LHELM OLSENS PRO|
00000020: 47 52 41 4D 4D 2F 2F 0D  0A 30 30 32 30 20 2F 2F  |GRAMM//..0020 //|
00000030: 47 45 53 43 48 52 49 45  42 45 4E 20 56 4F 4E 20  |GESCHRIEBEN VON |
00000040: 4D 41 52 54 48 41 20 4F  4C 53 45 4E 2F 2F 0D 0A  |MARTHA OLSEN//..|
00000050: 30 30 33 30 20 2F 2F 44  49 45 53 45 20 56 45 52  |0030 //DIESE VER|
00000060: 53 49 4F 4E 3A 20 4D 41  45 52 5A 20 31 39 38 32  |SION: MAERZ 1982|
00000070: 2F 2F 0D 0A 30 30 34 30  20 2F 2F 2A 0D 0A 30 30  |//..0040 //*..00|
00000080: 35 30 20 2F 2F 45 52 4B  4C 41 45 52 55 4E 47 45  |50 //ERKLAERUNGE|
00000090: 4E 2F 2F 0D 0A 30 30 36  30 20 44 49 4D 20 46 41  |N//..0060 DIM FA|
000000A0: 52 42 45 24 20 4F 46 20  31 30 2C 20 41 4E 54 57  |RBE$ OF 10, ANTW|
000000B0: 24 20 4F 46 20 31 30 0D  0A 30 30 37 30 20 2F 2F  |$ OF 10..0070 //|
000000C0: 2A 0D 0A 30 30 38 30 20  2F 2F 48 41 55 50 54 5A  |*..0080 //HAUPTZ|
000000D0: 45 49 4C 45 4E 2F 2F 0D  0A 30 30 39 30 20 50 52  |EILEN//..0090 PR|
000000E0: 49 4E 54 20 43 48 52 24  28 31 34 37 29 20 2F 2F  |INT CHR$(147) //|
000000F0: 41 42 4C 4F 45 53 43 48  45 4E 20 44 45 53 20 42  |ABLOESCHEN DES B|
00000100: 49 4C 44 53 43 48 49 52  4D 53 2F 2F 0D 0A 30 31  |ILDSCHIRMS//..01|
00000110: 30 30 20 52 45 50 45 41  54 20 0D 0A 30 31 31 30  |00 REPEAT ..0110|
00000120: 20 46 4F 52 20 49 3A 3D  31 20 54 4F 20 38 20 44  | FOR I:=1 TO 8 D|
00000130: 4F 20 50 52 49 4E 54 20  20 2F 2F 38 20 4C 45 45  |O PRINT  //8 LEE|
00000140: 52 5A 45 49 4C 45 4E 0D  0A 30 31 32 30 20 50 52  |RZEILEN..0120 PR|
00000150: 49 4E 54 20 22 57 45 4C  43 48 45 20 46 41 52 42  |INT "WELCHE FARB|
00000160: 45 20 48 41 54 20 49 48  52 20 47 45 53 49 43 48  |E HAT IHR GESICH|
00000170: 54 22 0D 0A 30 31 33 30  20 50 52 49 4E 54 20 22  |T"..0130 PRINT "|
00000180: 28 42 4C 41 53 53 2F 52  4F 53 41 2F 42 4C 41 55  |(BLASS/ROSA/BLAU|
00000190: 2F 47 45 4C 42 29 22 2C  0D 0A 30 31 34 30 20 49  |/GELB)",..0140 I|
000001A0: 4E 50 55 54 20 46 41 52  42 45 24 0D 0A 30 31 35  |NPUT FARBE$..015|
000001B0: 30 20 44 49 41 47 4E 4F  53 45 0D 0A 30 31 36 30  |0 DIAGNOSE..0160|
000001C0: 20 50 52 49 4E 54 20 43  48 52 24 28 31 39 29 20  | PRINT CHR$(19) |
000001D0: 2F 2F 4E 41 43 48 20 48  41 55 53 45 0D 0A 30 31  |//NACH HAUSE..01|
000001E0: 37 30 20 50 52 49 4E 54  20 22 57 45 49 55 E5 52  |70 PRINT "WEIU.R|
000001F0: 45 20 50 41 54 49 45 4E  54 45 4E 20 28 4A 2F 4E  |E PATIENTEN (J/N|
00000200: 29 22 2C 0D 0A 30 31 38  30 20 49 4E 50 55 54 20  |)",..0180 INPUT |
00000210: 41 4E 54 57 24 0D 0A 30  31 39 30 20 50 52 49 4E  |ANTW$..0190 PRIN|
00000220: 54 20 43 48 52 24 28 31  34 37 29 20 2F 2F 41 42  |T CHR$(147) //AB|
00000230: 4C 4F 45 53 43 48 45 4E  20 44 45 53 20 42 49 4C  |LOESCHEN DES BIL|
00000240: 44 53 43 48 49 52 4D 53  2F 2F 0D 0A 30 32 30 30  |DSCHIRMS//..0200|
00000250: 20 55 4E 54 49 4C 20 41  4E 54 57 24 3D 22 4E 22  | UNTIL ANTW$="N"|
00000260: 0D 0A 30 32 31 30 20 2F  2F 2A 0D 0A 30 32 32 30  |..0210 //*..0220|
00000270: 20 50 52 4F 43 20 44 49  41 47 4E 4F 53 45 20 0D  | PROC DIAGNOSE .|
00000280: 0A 30 32 33 30 20 50 52  49 4E 54 20 0D 0A 30 32  |.0230 PRINT ..02|
00000290: 34 30 20 43 41 53 45 20  46 41 52 42 45 24 20 4F  |40 CASE FARBE$ O|
000002A0: 46 0D 0A 30 32 35 30 20  57 48 45 4E 20 22 42 4C  |F..0250 WHEN "BL|
000002B0: 41 53 53 22 0D 0A 30 32  36 30 20 50 52 49 4E 54  |ASS"..0260 PRINT|
000002C0: 20 22 53 49 45 20 53 49  4E 44 20 45 54 57 41 53  | "SIE SIND ETWAS|
000002D0: 20 42 4C 55 54 41 52 4D  22 0D 0A 30 32 36 35 20  | BLUTARM"..0265 |
000002E0: 50 52 49 4E 54 20 22 55  4E 44 20 41 52 4D 20 41  |PRINT "UND ARM A|
000002F0: 4E 20 45 49 53 45 4E 2E  22 0D 0A 30 32 37 30 20  |N EISEN."..0270 |
00000300: 50 52 49 4E 54 20 22 49  43 48 20 56 45 52 4F 52  |PRINT "ICH VEROR|
00000310: 44 4E 45 20 45 49 4E 45  22 0D 0A 30 32 37 35 20  |DNE EINE"..0275 |
00000320: 50 52 49 4E 54 20 22 42  45 48 41 4E 44 4C 55 4E  |PRINT "BEHANDLUN|
00000330: 47 20 4D 49 54 20 41 4D  45 49 53 45 4E 2E 22 0D  |G MIT AMEISEN.".|
00000340: 0A 30 32 38 30 20 57 48  45 4E 20 22 52 4F 53 41  |.0280 WHEN "ROSA|
00000350: 22 0D 0A 30 32 39 30 20  50 52 49 4E 54 20 22 53  |"..0290 PRINT "S|
00000360: 49 45 20 53 49 4E 44 20  47 45 53 55 4E 44 2E 22  |IE SIND GESUND."|
00000370: 0D 0A 30 32 39 35 20 50  52 49 4E 54 20 22 42 49  |..0295 PRINT "BI|
00000380: 54 54 45 2C 20 52 41 55  42 45 4E 20 53 49 45 20  |TTE, RAUBEN SIE |
00000390: 4E 49 43 48 54 20 4D 45  49 4E 45 20 5A 45 49 54  |NICHT MEINE ZEIT|
000003A0: 2E 22 0D 0A 30 33 30 30  20 50 52 49 4E 54 20 22  |."..0300 PRINT "|
000003B0: 5A 45 49 54 20 49 53 54  20 47 45 4C 44 20 2D 22  |ZEIT IST GELD -"|
000003C0: 0D 0A 30 33 30 35 20 50  52 49 4E 54 20 22 41 55  |..0305 PRINT "AU|
000003D0: 43 48 20 46 55 45 52 20  44 49 45 20 5A 41 48 4C  |CH FUER DIE ZAHL|
000003E0: 45 4E 44 45 4E 20 4B 41  53 53 45 4E 2E 22 0D 0A  |ENDEN KASSEN."..|
000003F0: 30 33 31 30 20 57 48 45  4E 20 22 42 4C 41 55 22  |0310 WHEN "BLAU"|
00000400: 0D 0A 30 33 32 30 20 50  52 49 4E 54 20 22 53 49  |..0320 PRINT "SI|
00000410: 45 20 48 41 42 45 4E 20  5A 55 20 56 49 45 4C 20  |E HABEN ZU VIEL |
00000420: 47 45 54 52 55 4E 4B 45  4E 2E 22 0D 0A 30 33 33  |GETRUNKEN."..033|
00000430: 30 20 50 52 49 4E 54 20  22 49 43 48 20 45 52 54  |0 PRINT "ICH ERT|
00000440: 45 49 4C 45 20 49 48 4E  45 4E 22 0D 0A 30 33 33  |EILE IHNEN"..033|
00000450: 35 20 50 52 49 4E 54 20  22 53 54 52 49 4B 54 45  |5 PRINT "STRIKTE|
00000460: 53 20 41 4C 4B 4F 48 4F  4C 56 45 52 42 4F 54 22  |S ALKOHOLVERBOT"|
00000470: 0D 0A 30 33 34 30 20 50  52 49 4E 54 20 22 46 55  |..0340 PRINT "FU|
00000480: 45 52 20 44 49 45 20 4E  41 45 43 48 53 54 45 4E  |ER DIE NAECHSTEN|
00000490: 20 33 30 20 4A 41 48 52  45 2E 22 0D 0A 30 33 35  | 30 JAHRE."..035|
000004A0: 30 20 50 52 49 4E 54 20  22 44 41 4E 4E 20 53 50  |0 PRINT "DANN SP|
000004B0: 52 45 43 48 45 4E 20 57  49 52 20 55 4E 53 20 57  |RECHEN WIR UNS W|
000004C0: 49 45 44 45 52 2E 22 0D  0A 30 33 36 30 20 57 48  |IEDER."..0360 WH|
000004D0: 45 4E 20 22 47 45 4C 42  22 0D 0A 30 33 37 30 20  |EN "GELB"..0370 |
000004E0: 50 52 49 4E 54 20 22 53  49 4E 44 20 53 49 45 20  |PRINT "SIND SIE |
000004F0: 43 48 49 4E 45 53 45 20  28 4A 2F 4E 29 22 2C 0D  |CHINESE (J/N)",.|
00000500: 0A 30 33 38 30 20 49 4E  50 55 54 20 41 4E 54 57  |.0380 INPUT ANTW|
00000510: 24 0D 0A 30 33 39 30 20  49 46 20 41 4E 54 57 24  |$..0390 IF ANTW$|
00000520: 3D 22 4A 22 20 54 48 45  4E 0D 0A 30 34 30 30 20  |="J" THEN..0400 |
00000530: 50 52 49 4E 54 20 0D 0A  30 34 31 30 20 50 52 49  |PRINT ..0410 PRI|
00000540: 4E 54 20 22 49 48 4E 45  4E 20 46 45 48 4C 54 20  |NT "IHNEN FEHLT |
00000550: 4E 49 43 48 54 53 2E 22  0D 0A 30 34 32 30 20 50  |NICHTS."..0420 P|
00000560: 52 49 4E 54 20 22 49 48  52 45 20 48 41 55 54 46  |RINT "IHRE HAUTF|
00000570: 41 52 42 45 20 49 53 54  20 47 41 4E 5A 20 4E 4F  |ARBE IST GANZ NO|
00000580: 52 4D 41 4C 2E 22 0D 0A  30 34 33 30 20 45 4C 53  |RMAL."..0430 ELS|
00000590: 45 20 0D 0A 30 34 34 30  20 50 52 49 4E 54 20 22  |E ..0440 PRINT "|
000005A0: 53 49 45 20 53 49 4E 44  20 41 4E 20 47 45 4C 42  |SIE SIND AN GELB|
000005B0: 46 49 45 42 45 52 20 45  52 4B 52 41 4E 4B 54 22  |FIEBER ERKRANKT"|
000005C0: 0D 0A 30 34 35 30 20 50  52 49 4E 54 20 22 55 4E  |..0450 PRINT "UN|
000005D0: 44 20 53 4F 4C 4C 54 45  4E 20 4E 49 45 20 57 49  |D SOLLTEN NIE WI|
000005E0: 45 44 45 52 22 0D 0A 30  34 35 35 20 50 52 49 4E  |EDER"..0455 PRIN|
000005F0: 54 20 22 4E 41 43 48 20  41 46 52 49 4B 41 20 46  |T "NACH AFRIKA F|
00000600: 41 48 52 45 4E 2E 22 0D  0A 30 34 36 30 20 50 52  |AHREN."..0460 PR|
00000610: 49 4E 54 20 22 42 45 4E  55 54 5A 45 4E 20 53 49  |INT "BENUTZEN SI|
00000620: 45 20 5A 55 4E 41 45 43  48 53 54 22 0D 0A 30 34  |E ZUNAECHST"..04|
00000630: 36 35 20 50 52 49 4E 54  20 22 45 54 57 41 53 20  |65 PRINT "ETWAS |
00000640: 4D 41 4B 45 2D 55 50 2C  22 0D 0A 30 34 37 30 20  |MAKE-UP,"..0470 |
00000650: 50 52 49 4E 54 20 22 57  45 4E 4E 20 53 49 45 20  |PRINT "WENN SIE |
00000660: 4E 49 43 48 54 20 5A 55  20 53 45 48 52 20 41 55  |NICHT ZU SEHR AU|
00000670: 46 46 41 4C 4C 45 4E 20  57 4F 4C 4C 45 4E 2E 22  |FFALLEN WOLLEN."|
00000680: 0D 0A 30 34 38 30 20 45  4E 44 49 46 20 0D 0A 30  |..0480 ENDIF ..0|
00000690: 34 39 30 20 45 4E 44 43  41 53 45 20 0D 0A 30 35  |490 ENDCASE ..05|
000006A0: 30 30 20 45 4E 44 50 52  4F 43 20 44 49 41 47 4E  |00 ENDPROC DIAGN|
000006B0: 4F 53 45 0D 0A 30 35 31  30 20 2F 2F 0D 0A        |OSE..0510 //..  |

0010 //DOKTOR WILHELM OLSENS PROGRAMM//.
.0020 //GESCHRIEBEN VON MARTHA OLSEN//..
0030 //DIESE VERSION: MAERZ 1982//..0040
 //*..0050 //ERKLAERUNGEN//..0060 DIM FA
RBE$ OF 10, ANTW$ OF 10..0070 //*..0080 
//HAUPTZEILEN//..0090 PRINT CHR$(147) //
ABLOESCHEN DES BILDSCHIRMS//..0100 REPEA
T ..0110 FOR I:=1 TO 8 DO PRINT  //8 LEE
RZEILEN..0120 PRINT "WELCHE FARBE HAT IH
R GESICHT"..0130 PRINT "(BLASS/ROSA/BLAU
/GELB)",..0140 INPUT FARBE$..0150 DIAGNO
SE..0160 PRINT CHR$(19) //NACH HAUSE..01
70 PRINT "WEIU.RE PATIENTEN (J/N)",..018
0 INPUT ANTW$..0190 PRINT CHR$(147) //AB
LOESCHEN DES BILDSCHIRMS//..0200 UNTIL A
NTW$="N"..0210 //*..0220 PROC DIAGNOSE .
.0230 PRINT ..0240 CASE FARBE$ OF..0250 
WHEN "BLASS"..0260 PRINT "SIE SIND ETWAS
 BLUTARM"..0265 PRINT "UND ARM AN EISEN.
"..0270 PRINT "ICH VERORDNE EINE"..0275 
PRINT "BEHANDLUNG MIT AMEISEN."..0280 WH
EN "ROSA"..0290 PRINT "SIE SIND GESUND."
..0295 PRINT "BITTE, RAUBEN SIE NICHT ME
INE ZEIT."..0300 PRINT "ZEIT IST GELD -"
..0305 PRINT "AUCH FUER DIE ZAHLENDEN KA
SSEN."..0310 WHEN "BLAU"..0320 PRINT "SI
E HABEN ZU VIEL GETRUNKEN."..0330 PRINT 
"ICH ERTEILE IHNEN"..0335 PRINT "STRIKTE
S ALKOHOLVERBOT"..0340 PRINT "FUER DIE N
AECHSTEN 30 JAHRE."..0350 PRINT "DANN SP
RECHEN WIR UNS WIEDER."..0360 WHEN "GELB
"..0370 PRINT "SIND SIE CHINESE (J/N)",.
.0380 INPUT ANTW$..0390 IF ANTW$="J" THE
N..0400 PRINT ..0410 PRINT "IHNEN FEHLT 
NICHTS."..0420 PRINT "IHRE HAUTFARBE IST
 GANZ NORMAL."..0430 ELSE ..0440 PRINT "
SIE SIND AN GELBFIEBER ERKRANKT"..0450 P
RINT "UND SOLLTEN NIE WIEDER"..0455 PRIN
T "NACH AFRIKA FAHREN."..0460 PRINT "BEN
UTZEN SIE ZUNAECHST"..0465 PRINT "ETWAS 
MAKE-UP,"..0470 PRINT "WENN SIE NICHT ZU
 SEHR AUFFALLEN WOLLEN."..0480 ENDIF ..0
490 ENDCASE ..0500 ENDPROC DIAGNOSE..051
0 //..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL