added source code, updated README

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

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