VEB Mikroprozessortechnik Dresden, Werk "Vlkerfreundschaft"

Plan bererfllt, stolz prsentierend: 

Werkzeug zur Strkung der Arbeiterklasse im Kampf gegen die
imperialistische Hochfinanz.



Genossen!

Hier isses nu endelich. Das wertvolligliche tool zum zerscannen
von hochwertigen pictures.

Many greetings to the most famous user of Fluchtmal, mOd modson.

See you im FDGB-Heim "Jungaktivist Fritz Heckert",

 NO/Escape
 
 
PS.: release date: am Wochenende im Mai neulich in Dresden/DDR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              em,2000000);
	
	{Adressen berechnen}
	LongInt(scr[0]):=Trunc(LongInt(mem)/2)*2+2;
	LongInt(scr[1]):=LongInt(scr[0])+52800;
	LongInt(map):=LongInt(scr[1])+52800;
	LongInt(texture):=LongInt(map)+52800;
	
	{Textur laden}
	Write('texture loading... please wait');
	datei:='d:\kunst\tunnel.xga';
	{datei:='j:\berge.bld';}
	{datei:='j:\holz.xga';}
	{datei:='j:\pica.bld';}
	{datei:='j:\temp\cindy.bld';}
	fh:=FOpen(datei,FO_READ);
	FRead(fh,307200,texture);
	FClose(fh);
	fh:=FOpen(datei,FO_READ);
	FRead(fh,307200,Pointer(LongInt(texture)+307200));
	FClose(fh);
	
	{Map generieren}
	GotoXY(1,1);Write('map calculating...  please wait');
	s:=50;
	FOR y:=0 TO 109 DO BEGIN
		ys:=sqrt(((110*s/(y+5))-(110*s/(y+6))))/3;
		FOR x:=0 TO 239 DO BEGIN
			ny:=Trunc(110*s/(y+5))-s;
			nx:=Trunc((x-120)*ys);
			WHILE nx>319 DO Dec(nx,319);
			WHILE ny>479 DO Dec(ny,479);
			MapInput(x,y,nx,ny,map);
		END;
	END;
	
	{Supervisormodus}
	os:=Super(NIL);
	
	{neue Bildschirmauflsung: 240*110, TV}
	olog7@  + g"@ KN3  ix&_Nup | #  ip` xr  ;Nu 	

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~p J@khײ e H&H(I6 x c`p a  Q`a  QJy  ixf ( g
"@N3  ix KLNuC ` 
 Jy  ixfn"(  b2(  f* ( gHP"@N _3  ixfFJ f     `2"( "h   g1`
1 R!A < g̰< 
g(  Nup `QBNuJy  ixf0"h "(  R!A  ( Se ( gHP"@N3  ix _NuRHHPJ@l
JAg -D@C &Ye2)t	AUA 2f"_  Nu' d 
     09876543210   icNu? @  
f
TO0< ` P0Nua  
3  ixNuJlD@|  | l@0; `p`p Nu                             HRHS&Hp '@ '@ '@  0+ |ױg$<  'B |ײf2< <`'|  P '|  d p `7|ײ 2< =J+ 4gl$+ 4NUL gVAUX g  PRN g  CON gDļ LPT gvCOM gX'|  (  ? Hk 4?NAPOJla 7|װ `6p &_$_Nukױ gp$<  'B 'B `p '|   B `+ 7< 1SbJ+ 8fp`+ 7< 1UbJ+ 8fp'|   `HSHR&H??< >NAXOJ@f7|װ p $_&_Nua v`a ,< 
g  p NuHRHP/( /( ??< ?NAO  _$_Jk >!@ B p NuHRHP/( /( ??< @NAO  _$_Jk B B p NuHPa  _J@f$"(  g"h  
 R A  ja p NuHRHP"h  ( B`J!f  QHQ?< 	NA\O _$_B B p Nu3 f  ixNu3 g  ixNu3 i  ixNuJ9  lo/( /( Bg?H2!h 3Q 2Nug4<H` /:X/:P?:JHQCA a "_a O 
NuBy  lBy  lA p,"@ "A  3@@  l"`"p"@ "  
1 B3  l"ONu/
Hz?< &NN\O$_Nu5| $Ap"
EPjW5|H jW$$ $ jW5BjW$$ $ jW5|h jWf !R !R $ANu5| $Ap"
EPjW5BjW$$ $ jW5|h jWf"#R #R $ANuJ9  lo @ 'h 0T  Nu2<@Jg@jD|   bH@|  bQAbYAJkSAЀj0 BNuBA`J9  lo/( /( Bg?H2!h 3Q 2Nug4<H` a i j 2""]@gTHVMSVACa 0@@OoB^BB`0C  l?BQOCAa  pAa RVCAa 
O 
3  l,_Nusquare  J9  lo"/( /( Bg?H   #2!h 3Q 2Nug4<H#2#h  #h  Ia INuH L @@g  JkfJg  a F@@?| :8څنHAHB6ڃن:BDHDHE&HCڃنڃن&HCڃنڃن&HC؃؃݆6:8HDHE| ڂنԅن҄kCՂӁS@CՆӆf R@@e2I\HHza 
I`2""]IL xNuJ9  lo/( /( Bg?H2!h 3Q 2Nug4<H` Za i Fl ,HMC  l?BQ: B@,<ڢ.<!h5@?c6@@?oB^BBJg -|@R` gjD@DEa 
@?bfFEgjD@DEa @?cbfcއ݆F"$a | @?e*gS@ԂV@?fJjD@iRF @ fJga F>GGG//? AOCa K/%/%?%A~a 	KMa MQC a 	C 
2""AC`Da 	A 
a rAa C 
  fIa l<,,O FEE n3  lL`Nu          ?*Eq?
`B?$r">?*¦?SK??%s7?x'?ߜ?P<? >m?H7+@H?;q?㤅	i?~HT?-!b2?JTB?Š[#?lF?kjqĎ?M 
Vv?F$?Z^ŝW?ɉl,~!?Փg?@&Nh?,n?zOUY
=?Lu7?SB?l?zߚ:R?{Vi`?l\@?7tn?d]J?	Z0?zF?gw?4N|?[R?&)e:Ӻ?˙y0?6Y_5?;Oq3?e3ZK?
׬?}w_?8=4;?﬋?       ?]?Ƞu? 2 H||@lDA| b
JjDNup NufJjDk0< a $( 0r@Ag8"( jNufJf
@ D NuH@a 	rJ@jR@fЀPD Nu"( fJfJ@kD NuD Nu D  Nu2""]INur 2`
r `r2""]INuap`
ap`apHQ// a  P.Nu@ TXJ? ?ry@ ڢ!h5?ڢ!h5?ڢ!h5?       @        @       NaN -INF +INF (C)Xmath by d'ART | b@0; 
ga Nu         add CJ9  lo(0(1H 0/) /) Bg?H(h 01@Nug4<H(` C^H Hz ` CNJ9  lo(0(1H 0/) /) Bg?H"h 01@Nug4<H"` 6CH Hz F` Jk  "$J@j R@`jHz@a ` ```````````, < CnDFf
bfc ABv F 	cJF Acz x v`JF !c
*x F  F cE:BDHDHEF F 	c
QFJg6<SFk
SQJklԅӄdSR@9   lf(C bf    g  Rd  Rd   R@`  JCg  9   lg  9   lfJk`  Jk  `kg  S@ԂӁCdSdS9   lf4C bfN  fJfD   f<Sd8Sk@gXtrS@ g2t`.JCg9   lg9   lfJk`JkJkS@ԂӁj@e4HzHz 8@ b n` 0BBB`9   lg9   lfP `
ЀP !1 L xNuJ9  loD/( /( Bg?H /) /) Bg?H8   D NuD  NuD NuD NuH Hz "` D `H``````
``2NqNqNqJ@jR@fJjFFF@JCjRCfJjFFFCCL xNudiv CAZ/ / ? AaFA0  ]HNuJ9  lo(0(1H 0/) /) Bg?H h 01@Nug4<H ` "H0Hz V` :Hza ` ව   BB`! ` Hzza ` ·H@FBB1 ` ```````````Η. > CG?bfbRGd6| /|$F,HF.h.BGHG҇~`"BAHA,HFp HAHB0246<?~ Gj
SWԅӄGd,
Q,HF.h.BGHG҇~HA`"BAHB02BB6| FjSG҄FdHG>HG9   lf,⎜b  HFRFk  Hz ``,  c9   lg~9   lfJ kb`lJ kf`X//&HC0BCHCH@B@4r Ђׁ"$dSGԅӄNu9   lf╚kf  g`
JfJg`,HFRdR`,HF @c"$Hza `
ЀP !1 LNumul J9  lo(0(1H 0/) /) Bg?H#h 01@Nug4<H#` H Hz Z`     BB`! ` Hza d` ԷH@FBB1 `  B@Hza b` ```````````. > CG?/p <6>܇׀HAHBHDHE>܇׀?<BCHCHF.HG܇׀.HG܇׀.HG܇׀.HG܇׀.HGև.HGևр?<6 HCHFp >܇׀>܇׀>և(".Jkއ9   lg  Jg
j ca0JfJg  9   lg  9   lfJkt`  Jk  `h/"HA.HGp ށ@H@HG0BGHBHE2t ށـׂ݂p "Jk
އل݆׃SANu   b c0a   bf$Jf  gJk؄݆׃SAR׀f RA`Jk؄݆׃SAAe "$Hza  `
ҁQ !1L Nu6C `6*) <<HFFg6() kfJfU`SCڅلj0"$HFFgJjNuf4Jf0]Nu() fJfY`JfJf
   Nu\H   NuJkS@ԂӁjNu0<rtv`  H@Fr t v`  <<6(FgFCp n@ b:H@ @9   lg 9   lg69  l[Ck
S@rt`  r t v`  @n0H@@ r t v9   lgv9   lgl89  l\Dj`t`Pv x R@fЀP9   lf g,` 9   lg 9   lgJ@k`J@j
JgRdR !1 .Nuv]H//? HW// 0a fPO0  ]H.Nu/
?< NATO$_J@gpNu/
?< NATO$_NuJ  lf  A  lBy  ifB  ihB  ipBy  ixB  iz   i~BP!H !H #  lB  lB9  iN  
Jy  lg   i |  iC *a > |  ia  |  jC a & |  ja *Nu  NVA ? 50ȮBn0.HAN  CAN  ACN  <0.A" HA@A  lzC  00.HAN  CAN  ACN  
H0.A" HA@A  |$C  0Rnnf XN^NuNVA C N  o  A C""2C AN  AN     cA =@A C""20<hHAN  CAN  FAN     cA =@`&A N     cA =@0.N^Nu@       H Ҁ0L NuҀ&/ SS22a  QNuH2QLNuHҀ46a  QNuH@JPg2TTQLNuHXNu$<  " Ё QNu2|
22|2|Nu0|       Nu0|  NuNVJ  f RN  N  )Pa hN  (#  l* < j N  H#  lR y  lRp N  "#     l2p-@pй  l2   
cAHA  lN"9  l2   
cAIC  lN"1 Ҽ q !  pй  l2   
cAHA  lN p  p N  "R  l2SdN  (#  l&p	r	N  "N  H#  l.N  (W@WD  N  (U@WD glALp N  )0#  lp	r	N  ""  9  l   cA  y  l.N  ) 9  l   cA N  )  y  lRp N  "N  ("y  lRpN  (N  (W@fp$N  (3  l$N  (U@f0<N  (3  l$A  l6 @ BBXBy  l@B  l2By  lJ3   lL   9 -  l"WD 9 +  l"WD 9    l"WD g   l"N  J gN    l"9 -  l"fp$N  (9 +  l"f
0<N  (9    l"fJ9  f
   `B9  9 *  l"g  Jy  lJf.A  l6C""2CAN  AC  l6""2A  l6CN  o3   lJy   lJf.A  l6C""2C`AN  FAC  l6""2A  l6CPN  lBy  lJRy  l@yg  l@oBy  l@A  l6C""209  l@A" HA@A  |$C  AN  CAN  A  l@/ / ? a O 
A" HA@A  lzC  AN  CAN  AN  #  lBA  l6C""209  l@A" HA@A  lzC  AN  CzAN  A  l@/ / ? a O 
A" HA@A  |$C  AN  CAN  AN  #  lF09  lLA 
HA  lN"p   9  lB"9  lF y  l.N  "N  (09  lLA 
HC  lN"q  pN  (Ry  lLy   lLo3   lL9   fN  (9   l"f 09  l$N  (N  ("y  l&pN  ( y  l*N  (p	r	N  " y  l.N   y  lR < j N  N^NuBALLS01.DAT?
=p
@       @       ?fffffff@       @ fffffffHR?< %NNTO$_NuHR? HQHP?< NNO $_NuHR?< NNTO @$_NuHR? ?< XNNXO$_NuHR?< YNNTO$_NuHRHP?<  NA\O$_NuH> ?NAO $_NuHR? ?< >NAXO$_NuHRO "O? HQN  	?< =NAO$_NuJ  fN  Nu   z
NB"
N







.6$ 6(N@46* L0$P(`0^&jZ88H

Tfl*BRN84B
@
^*
J`@&
4
&l


40 
>
(












 
 




                                                                                                                                                                                                                                                                                                                                r',
                            'dieses Programmes,die Version',
                            'und die Registrierung.');
                 7: Hilfe(2,'Die Liste 	der Leistungskurse',
                            'kann hiermit  nach  oben ver-',
                            'schoben werden.');
                 8: Hilfe(2,'Die Liste  der Leistungskurse',
                            'kann  hiermit nach unten ver-',
                            'schoben werden.');
                 10:BEGIN
                    Hilfe(2,'Hier werden  die  vorhandenen',
                            'Leistungskurse angezeigt  und',
                            'knnen ausgewhlt werden.');
                    DrawLKList(lkyr);
                    END;
                 11:Hilfe(2,'berschrift der Leistungskurs-',
                            'liste.Wenn ein Kurs angeklickt',
                            'wird, erscheint er hier.');
                 14:Hilfe(2,'Es  kann  der Name  eines vor-',
                            'hand