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 0000000..10fca61 Binary files /dev/null and b/adressenmeister.d64 differ diff --git a/adressenmeister.prg b/adressenmeister.prg new file mode 100644 index 0000000..a206637 Binary files /dev/null and b/adressenmeister.prg differ 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