Adressenmeister - my very first "software project" (C64 BASIC)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

209 lines
9.5 KiB

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