From cebe3221325944a9e493cea106a3844fce4ce2b6 Mon Sep 17 00:00:00 2001
From: Michael Clemens <clemens@fsfe.org>
Date: Tue, 29 Jan 2013 11:21:29 +0100
Subject: [PATCH] added source code, updated README

---
 README.md           |  10 +++
 adressenmeister.d64 | Bin 0 -> 175531 bytes
 adressenmeister.prg | Bin 0 -> 5092 bytes
 adressenmeister.txt | 209 ++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 219 insertions(+)
 create mode 100644 adressenmeister.d64
 create mode 100644 adressenmeister.prg
 create mode 100644 adressenmeister.txt

diff --git a/README.md b/README.md
index e69de29..693fe98 100644
--- a/README.md
+++ b/README.md
@@ -0,0 +1,10 @@
+= Adressenmeister =
+
+This is my very first software project from 1992 written in BASIC 2.0 on my C64. It was never really finished but had a nice intro screen and was able to print labels on a wire printer. An example for such a print can be seen in /images
+
+== files ==
+
+adressenmeister.prg: The original prg-file rescued from a floppy disc
+adressenmeister.txt: A text-converted version of the source code
+
+More on http://blogs.fsfe.org/clemens
diff --git a/adressenmeister.d64 b/adressenmeister.d64
new file mode 100644
index 0000000000000000000000000000000000000000..10fca615480a0501da1aa0f44cfea6e9ec091a83
GIT binary patch
literal 175531
zcmeI14R9RgdB<PZ7S`!|b&{o%Eb_AB#FnzMZ|_SVCM_r3+B&Q|$#*BkIGHr<U_cs5
zNn5orO`DO82^!NW$OM0sF>1ynsmp{E$PAg%Gy`<Pq@K2EXv$DJF`dFthPIHQ9VW>{
zecs(YS+->Nh3#}^-}iq;(rNYVv+wi&{r7qHJ=ikS`-S?!UuOm2f1T+w2L9l$vjXtH
z&h*j$;D7jEX9eJYo#~_h!~gKV&I-W)I@3r0hyUS!ofUxpb*7L05C6meIx7JG>r5a0
zAO45`byfiW*O@;0Kl~5>>#P9$uQPr0fA}B%*I5DhUuXL0|L{Njud@R1zs~g0|KWf5
zUuOm2f1T;0|HJ?Azs?H4|2or0|A+tKf1MS8|8=I1{ty4d|2iuG|LaU2{U82^|8-UX
z{@0m4`ak>+|Ld#({I4^8^ndst{?}On_+MxG=>PCP{I9bD@W0OV(f{Fp_+MuQ;D4Rz
zqyNMI@W0Lq!2deaNB@Wa;eVYKfd6%-kNyw;!~Z%f0RQVuAN?QxhyQg}0RGpRKKeiW
z5C7||0Q|2ree{3$AO6=_0r+2M`sn}gKm4z=0`R}i^wIy}fB0W#1>k?3>7)O{|M0)g
z3c&w5(?|b@|KWd~6@dSBrjPy)|HJ<}D**rNOdtIp{)hi{RsjCjnLheI{15-@tN{G4
zGkx@b_#gh)SpoQ8XZq;>@IU;ovjXtH&h*j$;eYsFX9eJYo#~_h!~gKV&I-W)I@3r0
zhyUS!ofUxpb*7L05C6meIx7JG>r5a0AO45`byfiW*O@;0Kl~5>>#P9$uQPr0fA}B%
z*I5DhUuXL0|L{Njud@R1zs~g0|KWf5UuOm2f1T;0|HJ?Azs?H4|2or0|A+tKf1MS8
z|8=I1{ty4d|2iuG|LaU2{U82^|8-UX{@0m4`ak>+|Ld#({I4^8^ndst{?}On_+MxG
z=>PCP{I9bD@W0OV(f{Fp_+MuQ;D4RzqyNMI@W0Lq!2deaNB@Wa;eVYKfd6%-kNyw;
z!~Z%f0RQVuAN?QxhyQg}0RGpRKKeiW5C7||0Q|2reeL_dQM;kGx3-S`A@Ac^p5rC%
z@G|{#c##+Ad!F7`=x2%dvHi7eZrlz&%6s|9O}vmF9m_i7e01C?IK?vO+lLYqcd+(m
zcFH_%vioWeu~XbM45R1r*VgPKxih6loomad%k$2civ1>gs`eH-ZEYx>da7{R`BMIm
z$|ozQorg;%d$0CZ5qjzCjK3~^6X&${Jgst!YI68Er?=zuMif-!<r<UKMeblH(#gc2
z5n-F6cgE+7PsYz?62o8IKYU^^nK)Op_75LsUD21~C;0TaMAAwPyKjc96tkj(_Pkqr
z{z;pk<u)6NK4Q-wpbUw0oaLe{abo&h$~wUIM{gEy)0R!ge>M7IVxCvLQ__@uCTb-Q
zA7FFQ2a<=qbZkEQT#`;m*jAh!i@uj!NXO%G_O0lF)RAP`O4HQ`t-*w455%oZ%CeJ#
z^mfQfr>sQUc8}T__ImW$)Db&Lu}NzvW5wNncAS2XTlOG*B?l-pY1x?+Gun*0zP>(_
z?X3UCCZT<CqLM#2GCnc7k5Ah>6YD`H#wPnjeOnF1mz-?wrky4mtG}z}1h<DQo0aNc
zt$CEENT*NL-*C-Qp54ZNrT*+Sr`UY`?VFF$uTPpc6wI&kB~Fsk8S&u-?pArM{_i%Q
zOj#6vygpS+e`aUuPu4DQJ4F(FrT%B`p(pA;8*#1mFZGL&qh_mbt5rrQ=ZiUB&XbGD
zobETLv}o?8wEtCqJmM|jM!G(sinB<AQEwJa{#Cxf6B#?1W?fr0-XetP>B(h_bPG&5
z<#NU0PJXXbtc;74+3|6wY_jZ@S_-7NJyXSfmHb38@06UPIlM?R5SD6Hw{Ge1^G)X+
zI+HR~_;}vgOE*=SXNx@Nke?sjveiqLD@~2=b4uA<iLUGL9fb+Hu__c+EbUD7uF3x5
zmXEE?o-bEKR_^B7H!-<~o9xG1;@$-gPVr)viYV~O>?AGOXgF>T`<5Ga?+Dw<cyGum
zDRzC++tE`d-B6r-(#J<93WbT>M9JZq6d%cw#(bJ?dDla?H%+#Ybo85lqfOE6M!&4n
zC|nOMG(9ci>DALeNeyO#@1^fqI=Nu7$C^6ZT@J0;MNf>PuZ_u`ZTh_bx8mZ8UrqK(
z(*<!@q$^W0y3wg~<tZt7ffQ)UZSfL1izR_{EI+=-F^$GqG9CZ!j>JIk?(gnMCwkd`
zcQ(xm`)!CtXMJzh#X4sn6`t;i^@#YD@MJIB7Q1$KDaHC@AMrxQV%J@g(oV!h=G0&>
zn~a%m=7X{Av)--!Q0#_T;pgF_tGbzM>Q-klU+m`-f+T4$Rqp3y>bBz*GTH7u+t{DR
zZk#>F_t5R+`2HP8B;)M)Sj9d3)Ss<7o{6*bvCnwRdp&mB>I#e|&-?=kx*eJgzV#R{
zP|k8SXOa$o)VR(+T=EZ#Tk;nT(?41q-|ro#VERMF_^s`(lc@DnEfr^<HD2C6{Uo*A
z)F8XvxPFJ{xfHwGSlV$S5l>N9OS0p}rrz~i@t+vC^{#Eje{P)bUEPWk>_sEqx6+FL
z!FZ^Tt|QuGnq4s77r&&bFTZPi`s02pHk!Te^JdotPoJN5y}nwX%up}e*!`A^t+D$*
zeQbNX<8vPl+h@A%xl6DK&64c5yA$r=i`c~RLH332<eY1~Q{Ab#RmQ8DidOf>-RU`D
z*T=gvbG}`_**)l;^|#$a>zzeb{KxKL_bj935=vVlcd;rZGjf<!Dea2f&sHeqBM-Cn
zDgAO}iLIsdxyWPeQcAxcImcEgEkvFc*AWBrp~$zzTfykD$am<ZRpavU$a9Rw<uj4z
zS#?}KA9;Z-*m0Xo_ip4xCO;#4>i(X2Gtw}4`iPj0c05Dl(Y8|bA9X$&uZeiNIy2oN
z%J#P1L$P+;N+iSqJ4v3UflTk>bj%jBHc3gmLo|95c7o>koo#QXkGKh}%%GK_hk*pm
zha`>fp%k5w8M5fAHr=AX+cuu@0p8R0z#(_cJ<)cW-bl6IAGMvOP=h<7yY;)>jZg2i
zuh@Qn+V*u3-};a{6v=pED!P++sNn@MWUIrK+R>`{nw{FiKbd!^EtQ=yr+D3>$()A!
z>-@3D_BXs!cZP<;Kyr{BY^c<`RUB=2hTce3@y&*<4WbHv0#=*;6|4BmhJS7F9yi`@
z7;CI{QCf1*og@w)7PEi&;)93RceggSG*K{B7F{z`t&TfpKHSYc+VSf%m)zWm0nrdY
z)p4hL_~Ok?$EjD}+;P{8dvkxT<M51obK9w2c6Z19Gva=}r{lpH-wuD!@vs+ox?{-?
zO!u-ccbszrAMbd2#;fX$j#oeE%8fQw+x&_@8B2@VsWJ^l@ko+wZs<5=KDhej&ZRZq
z`o*SUik`6d(V(Rhf35jWI&s~{csjRrWU=JrEAA{e+3Dt&t`@s*ajI0#Py4}t-8|TN
zmBdqv#ftDgr5_!eD(*GePnsXO+6m=Fny1F*RN5WS)Jgw6_8V@We?Rs+)xjU_x_jMW
zPSIPtKJQJ8bl3dqiQ(s?9{Y)|d)<6{yN>yDW4`O`haC4OyS{$;xKEOWzR~r}nsJ|`
zUh=K3=e)(8?>fJFabldk)b&GmSwHIfr`ZK#1GmLy<bC5iAE)lRsdbxG?XE4Y(-u8`
z(}O{rm0It!j#$-~Ee5J(c^eVY&Qg}xj|^HCwM1%e^Z@L>N!Tg>NQOPq`nGk1Clj2y
zCAB-z@hs}P{@;_-Iun$}PNYPpgynTf>XSBIl=`Oo&1=I?v`+T>4b^L_arRfO7j~|F
z<oJGTZdY}f{d4Qrc2$SjTdfW8m0{NSTKDcb@AhGAnmsT{ABPm#y>0YkKfCYK^rN+A
z!=~6y(Y>zzYO3kDdcX(#tL$~7u_zztOT~vWSG>S2S9}@2@W1a8^L4M%w3M5XU#NS7
zVn67N{94^ROln3xRd>%uzbQUj_vS`-y8NK-#~Xe4Hti|JuAcTV?B{jkw51j8>S{X|
zW1~CUDC(2hG8bE?@rm*;nQVLeGh#Z5j+I*!o3d4VDtaO>y8Afy;oM~V+yCOwQE??|
zZnVQ2acEaZ8_;4l=ZqIQeL_;C&7->oy|w+hL*6LL(XbVJ&iFu_{a*Wd|LBN+RD51=
zZ~G4qxzk~>{lX!4It=u(Q|)gZqRqw&?eEbQ#p=c;#J1Dj@aE_zZRsY<w7wlT?ke`W
zmwcuD=YDcA-`#Dloo4U0FMCIgO+8|pB=%k2$38SKN5s4w@iyvWci=u0j5ogQP0XH2
z`Yh!j-$h%j5}ir$qauFvviP~i>zlnLijR-RcT!wV#N{r=c~2V;HqJCtc{HTyJ6)Q-
zQ$qTl+r~~d-qB3ue!Fo=<f3|u6SM<&@<pfmfUv64A2e=ixwyZlN{6U%{afR0?m_?g
z#`liVbYGNa>@X3o@%K~LcD_clQ(U7pOM7%0Aj6zCHuS7h%F(AYR79RI`dhHd%0mN7
zcfN7?%(qiED|EiIX6B2Byf1eCgpLbwi-f~-*s4zk%9VVfKvpCB_}g9oLC9oZ>D)xK
zgOI!4TUkK$gN7$MYrKyCz0PZ{G_t<mxmj#gU+Jv%LjR*PVq8<99i=~EKicv)R~wjn
z7M)6Ua!<Cre6>(gZn59b`kO5*Cg=&fdbe3&!Xb%0+nT!z+t@<O%`tD|=~V9vVt1y+
z>hg|ey`uu?Q!Nkp2Zew%pTv0jUdwy_!4ZFlni(33v)5V<bbAT*Rrj-Euke1$v;N^J
zvvot3wJ$G!B*>Te0Nwc6^5*FB`d_Wf%Ny7GGM1M&T>e#k?kzafi=5KZ(o(jtl*rQ0
zC2^Vm``7YegI#{nm8-O`yi@iK{{N4%Xr&4Re<_)i4FZ2<(MlBt{!%h28wCE!qLnHP
z{H0`4HVFKcMJrVp_)E#8Y!LV>i&m;I@RyQF*&y&&7Ohla;4dYUvO(alELy3;z+Xxx
zWrM(9S+r7xfxnbY$_9bIvS_6W1Ai%*lnnxZWzk9%2L4hqDH{a-%A%Dj4E&{JQZ@+u
zl|?I682C%cq-+rQD~ndDFz}a>N!cLqR~D^QVc;(%ld?hJuPj=r!oXijCS`-bUs<$L
zg@M16Ov(m<zp`kh3Il&BnUoCze`V216$buNGASDb{>q}2Dh&LkWKuQ={FOy3RT%h7
z$)s!$_$!N6sxa`El1bSh@K+YCRAJyRC6ls2;IAxNslvctN+xB4z+YLkQiXxPluXJ7
zfxoh7r3wRoDVdZF0)J)EN)-nFQZgwU1pdmRl`0JUrDRez2>g{rD^(cyOUa~c5cn&L
zR;n=Ymy$`@An;cftyE#)FC~+*LEx_}TB*XoUrHurgTP-|v{HqEzm!bM27$k_Xr&4R
ze<_)i4FZ2<(MlBt{!%h28wCE!qLnHP{H0`4HVFKcMJrVp_)E#8Y!LV>i&m;I@RyQF
z*&y&&7Ohla;4dYUvO(alELy3;z+XxxWrM(9S+r7xfxnbY$_9bIvS_6W1Ai%*lnnxZ
zWzk9%2L4hqDH{a-%A%Dj4E&{JQZ@+ul|?I682C%cq-+rQD~ndDFz}a>N!cLqR~D^Q
zVc;(%ld?hJuPj=r!oXijCS`-bUs<$Lg@M16Ov(m<zp`kh3Il&BnUoCze`V216$buN
zGASDb{>q}2Dh&LkWKuQ={FOy3RT%h7$)s!$_$!N6sxa`El1bSh@K+YCRAJyRC6ls2
z;IAxNslvctN+xB4z&|+JS~o@Q^7677wig5c;QYg!0sO;EFZkNQKe&cr&H(;lrWbte
z;2&JWFlPY&Fw+aZcJL3bVVE<3f0*e7Upx2**D%Z(z(36Ng0CI?gKHS(4B#JTdcoHY
z{=qd2a|ZAaGrizz2mjz2hB*WHhnZgRwS#|f4a1xP{KHHy_}algxQ1cQ0RCa77kusD
zA6&yQX8`{&(+j?K@DHwGm@|NXnCS&yJNO6JFw7aiKg{%kuO0k@YZ&GX;2&ms!PgG{
z!8HtX2JjCvz2IvH|KJ*iIRp5InO^X<gMV-h!<+&9!%Q#u+QC1#hGEVC{$ZvUeC^;L
zT*EMD0RJ%43%+*n53XUDGk|}X=>=aq_y^Z8%o)Hx%=Ch<9sGl980HM%A7*;N*AD){
zH4JkG@DDS+;A;o};2MTG1NeuTUhuVpe{c=MoB{m9OfUG_!9Tc$$N&X2R-oqpr}qB=
DHmf7}

literal 0
HcmV?d00001

diff --git a/adressenmeister.prg b/adressenmeister.prg
new file mode 100644
index 0000000000000000000000000000000000000000..a206637b3edad0061a125e2a3319720b5e4d915e
GIT binary patch
literal 5092
zcmbVP3v64}89t~j#E(2|C-JLchpV#2<tDvP$97@EiEoli?CZqW4y8<tO%0HUv9c{2
zXly8b08yDn-O@H))pk>PtV5KwAQi1+s4!8nY8!(w)G<+}6*0s%K;2Zq#P*$YuhYD!
z3OCX9^?$$fpZ|6K|MNw4i8?R&AzeYUG)GI+pf>&tYS9AjCZ5aqEYTHYsIHmg+G!6>
z(C+JK!R+bJ8hP52HwuPjQ@T8@0Jo-YEtwLw3go`J5i&)EKp@aI_gb3Wo!e8|Yg}sY
zvL}oOtqy@4uDc1#=0mY`s<6v=(EO3Tv%JgLUJ}Tex|<nv_O-{gi(W@5Y&T(LKYTK1
zp5if&2j-AP?Ii;7dTt{-bX7@7qLkqevM7;O&mCm=5X4%F2%hz1$M69~7B#Zcb3fUk
zNSY$bDlt9V$%J)C+MiT1_YP%tq*UdAB@SiQlP`PrksTCkR8h<Dhcp)7?s<qz@KBkD
zWV)X!<olijWMVZmD7r)@Jx{WIG;uZA=6Qxa>Uey}^DGvX`2tyo?#DdG$okdfi03)7
z-cd%L^E^)`Wl5GK^1kOd*`Vs8jtx^{3U+o$Vp4;-DLke{T@w{u=2AIH+Pr@t8)Ow&
zRZJ&EgaCiCgzxx3L}axKP*s$Z8Zo`E1B-XEl*CI!1OI?PxgzPc6<h_m+xr%<vLq@B
z*Qmk{n8S2KCbOMXC~-vCSdkS3{Za3GWP@WvG9@N;QC48I3ggonRwUCRc9oM7IqcoI
zXp-s@{5|S@dl9d&m%Se>a`Px7<}9PKm?R&2^NXhhR&y(G(Vk+VP|Oue22E<TJ8PRg
zbQpz-OCX)TCjbq!S;exsraNEk8KA>*r?OCaqq+rhm9KdT@FgRgyRK6p{k}Vv?4UB@
zLrT8am+Yk)QhvSf>Weqg>@xBd-~NlI$b|3KOE%-{A>rzR@Ce;UVJTKf8P}W5zTaQ6
zQxk#T>eK4*n(XoIted2=23H^U{g;al`fl`am;dUkdNv6`_dv}!0=8-8sBPl>;#l&V
zQK|~7p!VOstscjKYp_46P9h%vHZD5+bAictRMY<F*%md`*kOkDY^9f8YZ^JDWE=g4
zby-y)hW~zV6}}@~WXS)XcMrnbrKZRlf7!=P-Q+)l2b@M8>+`1JDgRPG!b-Ebl40A1
zl`B<x28_}trr}rqzxkbDzw7U>-{kfJm~7$5vvZzdo@dU5eUiJlw7#hUVBlC=D*@{?
zJD|H6y4y(-eS|vreEn-Keh?jG4P8l#SXE})dl<fF4t~7;%0@>&Ynu5^;BpL?JBM>(
zy`_G%k>@;vJGRCh3USXZBRlJFYuu-iXX^JcT`<-vBB6$98MW}x_G?yJ37*@R>lZhj
z%k3mp(#Y=L>u=#gH@j|~1sd)PvEpO7$vC}jy7?uY!-KP`kt-YC4P9W`ZfzKBW@*DA
zbDC=fZsW@W!-1ck$%ZEx9#>n(AR<|$eLM>VS`f%X4UrbSY-<Z<tFy~MAV(YSa^G3i
z>60pulMSbsn5na&49y+MF`*QvKp-D9<XRntMzv&@4cc$!dkulqHJ)_krE0cfLu_EE
zWE=hADPhaZ%ROXsK04T#tYD@LU>hv_TH`t_TySt<Ww5(iGR!hBXo2i%eC2%Dfoi2>
zo5L>nH;t*tc@$TwRvE{!4D~(z6{}AmA2#kj-vYaed0j5Mr%NE0H~sc}@ZPFXuGu}<
z^xFBLR(`13;adI8CKBZbl85cutW66=qo*I+vhF0TDl8+DO>3i@X#t1AK=VP-CRtbC
z(<H_mY1WalQa;@DfGf1P5VJ%gFE*WVh1~)>t5A?mOXSU_)p19`fGh4|)A4N6QCD24
zi4}+&19Yi_wrgS);>!b<x#E&5W^MQj0l}5RRYwjmUX%mhT0Wmi+!%Omd5uZj8o08(
z#w6|x>}#K95?cd{6ALqmp9XG8%x4n62%JdFW)jB((u!#&@yEcn6`V;Zx=v07&ay9z
zOS~WW(iO9~#M!{JSAa__4lWaGT%svBEMnjwED|XN?-MtOwMzzb&_&Uq6l^qWB4ZXQ
zQN(yh=STPF4~ne0k|fz3d{^8+RfS^mV|26WEn-5t?^VzM1!`nPW11AvnfRFbGByPV
z;5Ua-91IS2xa7d02om{q@KopgfWH*Xt*iz7FTqDw)&l-c&@W8~d~s-<v~a*<p;x5&
z0T)9ld1k<6k`C>brvsh~5rqeQH5m%6Wse{)pmbji9am-rd^9Ag2>5vD0kszJiO@0C
zu~8zMLuXWH+&mpxtz9^eI~_WzT_}$WG*kUTd0b!fMqocJk6YLLwthi8?z_$Tq&tx|
zHa{@JnZm*5U3j=4rtn7den111bv~nmcXT@3DSzU~`KbAEhUYV<t&O!K(=O9|(f*=9
zmbV;X?^u`4RT<+bQxF_lBOey}YMB<9NFYNkzZ}`bI3*f--Y~n-&T=4IRyJqkEsEbk
zR-a+<k$iK@u@Pq^=W5-pOCsNEIpIpXT`8-Tds<!{*~>U%wdK?Z#{UcLT?sPP^3Dhd
z!1FC<up_gszi5=4_6hqeI%pb$HjFyQ0#3Gk>?&t$j`c%X*2()V|8u35+scx%s*_mj
zqMIDAb6E>N^D1Cm7><Ss2g-Ry9<%wpf%%zjtpgDI_g1WdvRSk+C*fnpC4DvidUI>o
z)i-P!SjnT7H;q1UAe&|pCpKR9wk~y)xzTl*9&Ila@#C=!m{sc367#elZ~gpy?JR}U
znHne#_98(av`WqfYbwYJoG8%2EJ9V9r&0{xHp)p5A5*+E+@GjHqiR|mPRhYTDs~68
zF*EZRUc##0Wuzzk_0i3=mk%yy@N}`3d3|^t7lUsZwOJym5?LF*W0Yt2_VD^qo?Tf>
zkUPWok203OF}!8eJqSMtZ+C#Z!uwpHo*+L7AK<{p!cUGm4dSiv>z~o`OCxV$C37>F
zMOA|?WGF@%IDILHACyRyi2`<=El-Dx=#jVPdMs-)DMa3z=P~<{c5mcE$Qg}h<JzgR
z8C7AI%|ZdG!@-$d1_F6FvUrRa8$Wf^2Gok|U}VV{59N!Ii^mX3`a-+Xm00ycJBAkf
z(9#L=Qsj~`oST!8ItTjCh-Vg5R}$nuk%loA{EMQYF*o?$XvD#{McWv@rdd}LWLfl5
zrm`dYIS0}oy=<1s+U}_Y8H@^C^P1@LF(+HwqF2KuknK-hXFrQxGd8Er6x7pm(J~j$
ztTS*Yaw2+zW8UfLEi*mP^jc{C5&Z@??riisHMc{tI~Q~Xfm|B9%h9LDCKk{KXRnIg
z!}ayWHoMMF#P)wiXLrUPpX;m&XP<~2ndhtuXP=H8bBsF?J2BI^Bn*Eg_9{2)jo6=S
zZoVBm<-k9Rot_I{6n}@q>*N1&z37We<DV^MH^k-fSt(=uP$l1vD_ndoWlWwTcgNLn
zUe8l;ZG1-2)d~vE{5Y<Uvr>I5o*Z{e^{IHuS@pYkdZAUw%%9>JzUs~Rs&S_b3Hd*S
C!uA>f

literal 0
HcmV?d00001

diff --git a/adressenmeister.txt b/adressenmeister.txt
new file mode 100644
index 0000000..27340e1
--- /dev/null
+++ b/adressenmeister.txt
@@ -0,0 +1,209 @@
+10 REM * A D R E S S E N M E I S T E R * 
+20 REM * ( C ) BY MICHAEL CLEMENS  '92 * 
+100 PRINT"{clr}" 
+101 PRINT "{down}{down}{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{red}A{purple}D{yellow}R{cyan}E{green}S{lblue}S{orange}E{brown}N-" 
+102 PRINT"{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{lgreen}M{lblue}E{brown}I{grey3}S{grey2}T{lblue}E{lred}R" 
+103 PRINT"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{yellow}( C ) B Y   M I C H A E L  C L E M E N S{white}" 
+110 POKE53280,0:POKE53281,0 
+120 V=53248 
+130 POKEV+21,4 
+140 POKE2042,13 
+150 FORN=0TO62:READQ:POKE832+N,Q:NEXT 
+160 POKE V+23,4:POKE V+29,4 
+165 FOR MICHI=1 TO 2 
+170 FORX=0TO250 
+180 POKEV+4,X 
+190 POKEV+5,X 
+192 FOR T=1 TO 15:NEXT 
+194 NEXTX 
+195 NEXT MICHI 
+196 GOTO10100 
+200 DATA35,59,48,82,170,64,138,179,54,251,170,16 
+210 DATA139,43,96,0,0,0,109,40,180,137,173,164 
+220 DATA109,106,181,41,40,164,205,40,180,0,0,0 
+230 DATA110,220,0,132,148,0,100,216,0,36,148,0,196,212,0 
+240 DATA0,0,0,68,65,128,134,194,0,69,81,160 
+900 GOTO 5000 
+1000 PRINT"{clr}" 
+1010 POKE53280,14:POKE53281,6 
+1100 PRINT"{right}{right}{right}{right}**** COMMODORE 64 BASIC V2 ****" 
+1200 PRINT"{down}{right}NOTIZBLOCK V1.2 BY MICHAEL CLEMENS '92" 
+1300 PRINT"{down}READY." 
+1400 POKE 19,1 
+1500 OPEN 4,4 
+1600 INPUT A$ 
+1700 PRINT 
+1900 IF A$="@M"THEN CLOSE 4:POKE19,0:GOTO 5000 
+2000 PRINT#4,A$ 
+2100 CLOSE 4 
+2200 GOTO 1400 
+2300 CLOSE 4 
+2400 PRINT"{clr}" 
+2450 INPUT"{rvson}{right}{right}{right}{right}{right}{right}{right}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}SIND SIE SICH SICHER{rvsoff}";A$ 
+2451 IF A$="J"THEN 2500 
+2452 IF A$<>"J"THEN 5000 
+2500 PRINT"{clr}{rvson}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}AUF WIEDERSEHEN!{rvsoff}" 
+2700 WAIT 198,1 
+2800 SYS 64738 
+2900 PRINT"{clr}" 
+3000 PRINT"    **** COMMODORE 64 BASIC V2 ****" 
+3100 PRINT"{down} ADRESSENDRUCKER BY MICHAEL CLEMENS '92" 
+3300 OPEN 4,4 
+3400 INPUT"{down}{down}{down}{down}{down}{down}{right}{right}{right}N A M E :";A$:IF A$="@M"THENGOTO5000 
+3600 INPUT"{down}{right}{right}{right}S T R A S S E :";B$:IF B$="@M" THEN GOTO5000 
+3800 INPUT"{down}{right}{right}{right}P L Z / O R T :";C$:IF C$="@M" THEN GOTO5000 
+3900 INPUT"{down}{right}{right}{right}T E L.:";D$:IF D$="@M" THEN GOTO 5000 
+3945 PRINT#4,A$:PRINT#4,B$:PRINT#4,C$:PRINT#4,D$ 
+3950 CLOSE4 
+4000 INPUT"{down}{down}{right}{right}NOCH EINE ADRESSE (J/N)";A$ 
+4100 IF A$="J"THEN GOTO 2900 
+4200 IF A$<>"J"THEN GOTO 5000 
+5000 CLOSE 4:PRINT"{clr}":POKEV+21,0:POKE53281,6:POKE53280,14 
+5100 PRINT"    **** COMMODORE 64 BASIC V2 ****" 
+5200 PRINT"{down} ** M E N U E ** BY MICHAEL CLEMENS '92" 
+5300 PRINT"{down}{down}{down}{down}{right}-P R O G R A M M" 
+5400 PRINT"{down}{right}{right}{rvson}A{rvsoff}DRESSENDRUCKER" 
+5500 PRINT"{down}{right}{right}{rvson}N{rvsoff}OTIZBLOCK" 
+5600 PRINT"{down}{down}{down}{right}-S O N S T I G E S" 
+5700 PRINT"{down}{right}{right}{rvson}E{rvsoff}RSTE HILFE" 
+5850 PRINT"{down}{right}{right}{rvson}R{rvsoff}AUS HIER" 
+5900 PRINT"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}-D R U C K E R" 
+6000 PRINT"{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{rvson}B{rvsoff}REITDRUCK" 
+6100 PRINT"{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{rvson}K{rvsoff}URSIVDRUCK" 
+6200 PRINT"{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{rvson}U{rvsoff}NTERSTREICHUNG"
+6300 PRINT"{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{rvson}S{rvsoff}CHATTENDRUCK" 
+6350 PRINT"{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{rvson}F{rvsoff}ETTDRUCK" 
+6360 PRINT"{down}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{rvson}NLQ{rvsoff}-DRUCK" 
+6400 INPUT"{down}{down}{down}{right}{right}{right}{right}{right}WAS MOECHTEN SIE";M$ 
+6500 IF M$="E"THEN GOTO 26000 
+6700 IF M$="A"THEN GOTO 2900 
+6800 IF M$="N"THEN GOTO 1000 
+6900 IF M$="B" THEN GOTO 26990 
+7000 IF M$="K" THEN GOTO 27100 
+7100 IF M$="U" THEN GOTO 27200 
+7200 IF M$="S" THEN GOTO 27300 
+7201 IF M$="R" THEN GOTO 2400 
+7202 IF M$="NLQ" THEN GOTO 30000 
+10100 POKE53280,0:POKE53281,0 
+10200 V=53248 
+10300 POKEV+21,4 
+10400 POKE2042,13 
+10500 FORN=0TO62:READQ:POKE832+N,Q:NEXT 
+10600 POKE V+23,4:POKE V+29,4 
+10700 FOR MICHI=1 TO 2 
+10800 FORX=0TO250 
+10900 POKEV+4,255 
+11000 POKEV+5,X 
+11100 FOR T=1 TO 15:NEXT 
+11200 NEXTX 
+11300 NEXT MICHI 
+11350 GOTO 12000 
+11400 DATA,,,,,,,,,1,255,,2,170,128,4,,64,8,,32,8,198,32,8,214,32,8,16 
+11500 DATA 32 ,10,16,160,9,1,32,8,130,32,4,124,64,2,,128,1,131,,,68,,,68,0,0,0 
+11600 DATA0,0,0,0,0,0,0 
+12000 POKE53280,0:POKE53281,0 
+12100 V=53248 
+12200 POKEV+21,4 
+12300 POKE2042,13 
+12400 FORN=0TO62:READQ:POKE832+N,Q:NEXT 
+12500 POKE V+23,4:POKE V+29,4 
+12600 FOR MICHI=1 TO 1 
+12700 FORX=0TO250 
+12800 POKEV+4,X 
+12900 POKEV+5,150 
+13000 FOR T=1 TO 15:NEXT 
+13100 NEXTX 
+13200 NEXT MICHI 
+13250 POKEV+21,0 
+13300 GOTO5000 
+13400 DATA35,59,48,82,170,64,138,179,54,251,170,16 
+13500 DATA139,43,96,0,0,0,109,40,180,137,173,164 
+13600 DATA109,106,181,41,40,164,205,40,180,0,0,0 
+13700 DATA110,220,0,132,148,0,100,216,0,36,148,0,196,212,0 
+13800 DATA0,0,0,68,65,128,134,194,0,69,81,160 
+13900 GOTO 5000 
+26000 PRINT"{clr}" 
+26010 PRINT"    **** COMMODORE 64 BASIC V2 ****" 
+26020 PRINT"{down} ERSTE-HILFE V.1 BY MICHAEL CLEMENS '92" 
+26030 PRINT"{down}{down}{down}{down}{down}{right}{right}{right}WAS IST LOS?" 
+26040 PRINT"{down}{right}{right}{right}{rvson}D{rvsoff}RUCKT DER DRUCKER NICHT ODER " 
+26045 INPUT"{right}{right}{right}{rvson}B{rvsoff}LEIBEN DIE NADELN HAENGEN";A$ 
+26050 IF A$="D"THEN GOTO 26070 
+26060 IF A$="B"THEN GOTO 26150 
+26070 OPEN4,4 
+26080 PRINT#4,CHR$(7) 
+26090 CLOSE4 
+26100 INPUT"{down}{right}{right}{right}HOEREN SIE DEN PIEPSER (J/N)";A$ 
+26110 IF A$="J"THEN GOTO 26115 
+26111 IF A$="N" THEN GOTO 26135 
+26115 PRINT"{down}{right}{right}{right}DANN MUESSTE EIGENTLICH ALLES" 
+26120 PRINT"{right}{right}{right}FUNKTIONIEREN":WAIT 198,1:GOTO 5000 
+26135 PRINT"{down}{right}{right}{right}VIELLEICHT LIEGT ES AN DER" 
+26140 PRINT"{right}{right}{right}DRUCKERADRESSE (MOMENTAN NR.4)":WAIT 198,1:GOTO 5000 
+26150 PRINT"{down}{right}{right}{right}VIELLEICHT IST DER DRUCKKOPF " 
+26160 PRINT"{right}{right}{right}ZU NAH AM PAPIER":WAIT 198,1:GOTO 5000 
+26990 PRINT"{clr}":INPUT"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{right}{right}{right}{right}{right}{rvson}E{rvsoff}IN- ODER {rvson}A{rvsoff}US- SCHALTEN";F$ 
+26991 IF F$="E" THEN GOTO 27000 
+26992 IF F$<>"E" THEN GOTO 27030 
+27000 OPEN4,4 
+27010 PRINT#4,CHR$(14) 
+27020 CLOSE 4 
+27025 GOTO 5000 
+27030 OPEN4,4 
+27040 PRINT#4,CHR$(15) 
+27050 CLOSE 4 
+27060 GOTO5000 
+27100 PRINT"{clr}":INPUT"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{right}{right}{right}{right}{right}{rvson}E{rvsoff}IN- ODER {rvson}A{rvsoff}US- SCHALTEN";F$ 
+27105 PRINT"{down}{down}{right}{right}{rvson}ACHTUNG: NLQ WIRD MIT EINGESCHALTET":WAIT 198,1 
+27110 IF F$="E" THEN GOTO 27141 
+27120 IF F$<>"E" THEN GOTO 27160 
+27130 IF B$="N"THEN PRINT"{down}{right}{right}{right}VIELLEICHT STIMMT DIE DRUCKERADRESSE" 
+27140 PRINT"{right}{right}{right}NICHT":WAIT 198,1:GOTO 5000 
+27141 OPEN4,4 
+27142 PRINT#4, CHR$(27);CHR$(120);CHR$(49) 
+27143 CLOSE4 
+27144 OPEN4,4 
+27145 PRINT#4, CHR$(27);CHR$(52) 
+27150 CLOSE 4 
+27155 GOTO 5000 
+27160 OPEN4,4 
+27165 PRINT#4,CHR$(27);CHR$(53) 
+27166 CLOSE4 
+27167 OPEN4,4 
+27169 PRINT#4, CHR$(27);CHR$(120);CHR$(48) 
+27170 CLOSE 4 
+27175 GOTO5000 
+27200 PRINT"{clr}":INPUT"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{right}{right}{right}{right}{right}{rvson}E{rvsoff}IN- ODER {rvson}A{rvsoff}US- SCHALTEN";F$ 
+27210 IF F$="E" THEN GOTO 27230 
+27220 IF F$<>"E" THEN GOTO 27260 
+27230 OPEN4,4 
+27240 PRINT#4,CHR$(27);CHR$(45);CHR$(49) 
+27250 CLOSE 4 
+27255 GOTO 5000 
+27257 PRINT#4, CHR$(27);CHR$(120);CHR$(49) 
+27260 OPEN4,4 
+27265 PRINT#4,CHR$(27);CHR$(45);CHR$(48) 
+27270 CLOSE 4 
+27275 GOTO5000 
+27300 PRINT"{clr}":INPUT"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{right}{right}{right}{right}{right}{rvson}E{rvsoff}IN- ODER {rvson}A{rvsoff}US- SCHALTEN";F$ 
+27310 IF F$="E" THEN GOTO 27330 
+27320 IF F$<>"E" THEN GOTO 27360 
+27330 OPEN4,4 
+27340 PRINT#4,CHR$(27);CHR$(69) 
+27350 CLOSE 4 
+27355 GOTO 5000 
+27360 OPEN4,4 
+27365 PRINT#4,CHR$(27);CHR$(69) 
+27370 CLOSE 4 
+27375 GOTO5000 
+30000 PRINT"{clr}":INPUT"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{right}{right}{right}{right}{right}{rvson}E{rvsoff}IN- ODER {rvson}A{rvsoff}US- SCHALTEN";F$ 
+30001 IF F$="E" THEN GOTO 30003 
+30002 IF F$<>"E" THEN GOTO 30008 
+30003 OPEN4,4 
+30004 PRINT#4,CHR$(27);CHR$(120);CHR$(49) 
+30005 CLOSE 4 
+30006 GOTO 5000 
+30008 OPEN4,4 
+30009 PRINT#4,CHR$(27);CHR$(120);CHR$(48) 
+30010 CLOSE 4 
+30011 GOTO5000
\ No newline at end of file