home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_93-12_1993_-_de_Side_B.d64
/
mega-windows
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
27KB
|
865 lines
0 poke 53280,1:poke 53281,1:print"[147]":print chr$(142):print chr$(8)
1 fori=1to3000:next:poke 788,52:poke 792,193
10 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
11 print"[154][194] [194][144] "
12 print"[154][194] [213][178][201][213][195][201][213][195][201][213][195][201] [201][178][213][178][213][201][213][178][195][201][213][195][201][201][178][213][213][195][201] [194][144] "
13 print"[154][194] -[194][194][194][171][195] [194] [174][171][195][179] [194][194][194][194][194][194][194][194] [194][194] [194][194][194][194][202][195][201]- [194][144] "
14 print"[154][194] [203][177][202][202][195][203][202][195][203][203] [202] [202][177][203][177][203][202][203][177][195][203][202][195][203][202][177][203][202][195][203] [194][144] "
15 print"[154][194] [194][144] "
16 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17 print"[154][144] "
18 print
19 print" [223]"
20 print"[146][223] [223]"
21 print"[159] [223][146][223] [223]"
22 print"[159][146][223] [223][146][223] [223][169] "
23 print"[159][146][223] [223][146][223] [223][169] [146][169]"
24 print"[159][146][223] [223][146][223] [223][169] [146][169] [159][169] "
25 print"[159][146][223] [223][146][223] [146][169] [159][169] [146][169]"
26 print"[159][146][223] [223][146][223][146][169] [159][169] [146][169]"
27 print"[159][146][223] [223][146][159][169] [146][169]"
28 print"[159][146][223] [223][146][159][169] [146][169]"
29 print"[159][146][223] [146][169]"
30 print"[159][146][223][146][169]"
31 wait 198,1:poke 198,0:goto 100
50 rem -----------
51 rem hintergrund
52 rem -----------
53 print"[147]"
54 print" [223]"
55 print"[146][223] [223]"
56 print"[159] [223][146][223] [223]"
57 print"[159][146][223] [223][146][223] [223][169] "
58 print"[159][146][223] [223][146][223] [223][169] [146][169]"
59 print"[159][146][223] [223][146][223] [223][169] [146][169] [159][169] "
60 print"[159][146][223] [223][146][223] [146][169] [159][169] [146][169]"
61 print"[159][146][223] [223][146][223][146][169] [159][169] [146][169]"
62 print"[159][146][223] [223][146][159][169] [146][169]"
63 print"[159][146][223] [223][146][159][169] [146][169]"
64 print"[159][146][223] [146][169]"
65 print"[159][146][223][146][169]"
66 return
100 gosub 50
101 print""
102 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
103 print"[194] [194][144] "
104 print"[194] funktionen: [194][144] "
105 print"[194] [194][144] "
106 print"[194] disk [194][144] "
107 print"[194] adressen [194][144] "
109 print"[194] drucker [194][144] "
110 print"[194] rechner [194][144] "
111 print"[194] pause [194][144] "
112 print"[194] spezial [194][144] "
113 print"[194] quit [194][144] "
114 print"[194] [194][144] "
115 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
116 print"[144] "
117 print
118 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
119 print"[194] [194][144] "
120 print"[194] disk-status [194][144] "
121 print"[194] [194][144] "
122 print"[194] --< >-- [194][144] [158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
123 print"[194] [194][144] [158][194]f1=[206][205] f3=[205][206] ret.=<[189][194][144] "
124 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] [158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
125 print"[144] [146][144] "
130 print"[209][146][209][146]"
131 print" [146] [146]"
132 get wa$
133 if wa$="[134]"then 140
135 if wa$=chr$(13)then 1000
136 goto 132
140 print" [146] "
141 print"[209][209]"
142 print" [146] "
143 get wb$
144 if wb$="[133]"then 130
145 if wb$="[134]"then 150
146 if wb$=chr$(13)then 10000
147 goto 143
150 print" [146] "
151 print"[209][209]"
152 print" [146] "
153 get wc$
154 if wc$="[133]"then 140
155 if wc$="[134]"then 160
156 if wc$=chr$(13)then 20000
157 goto 153
160 print" [146] "
161 print"[209][209]"
162 print" "
163 get wd$
164 if wd$="[133]"then 150
165 if wd$="[134]"then 170
166 if wd$=chr$(13)then 30000
167 goto 163
170 print" [146] "
171 print"[209][209]"
172 print" "
173 get we$
174 if we$="[133]"then 160
175 if we$="[134]"then 180
176 if we$=chr$(13)then 33000
177 goto 173
180 print" "
181 print"[209][209]"
182 print" "
183 get wf$
184 if wf$="[133]"then 170
185 if wf$="[134]"then 200
186 if wf$=chr$(13)then 34000
187 goto 183
200 print" "
201 print"[209][209]"
202 print" "
203 get wh$
204 if wh$="[133]"then 180
205 if wh$=chr$(13)then 40000
206 goto 203
1000 rem ------
1001 rem disk
1002 rem ------
1003 print""
1004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1005 print"[154][194] [194][144] "
1006 print"[154][194] disk-menue: [194][144] "
1007 print"[154][194] [194][144] "
1008 print"[154][194] formatieren [194][144] "
1009 print"[154][194] scratchen [194][144] "
1010 print"[154][194] directory [194][144] "
1011 print"[154][194] validate [194][144] "
1012 print"[154][194] initialize [194][144] "
1013 print"[154][194] zurueck [194][144] "
1014 print"[154][194] [194][144] "
1015 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
1016 print"[154][144] "
1020 print"[154][209][209]"
1021 print"[154] "
1022 get wa$
1023 if wa$="[134]"then 1030
1024 if wa$=chr$(13)then 2000
1025 goto 1022
1030 print"[154] "
1031 print"[154][209][209]"
1032 print"[154] "
1033 get wb$
1034 if wb$="[133]"then 1020
1035 if wb$="[134]"then 1040
1036 if wb$=chr$(13)then 3000
1037 goto 1033
1040 print"[154] "
1041 print"[154][209][209]"
1042 print"[154] "
1043 get wc$
1044 if wc$="[133]"then 1030
1045 if wc$="[134]"then 1050
1046 if wc$=chr$(13)then 4000
1047 goto 1043
1050 print"[154] "
1051 print"[154][209][209]"
1052 print"[154] "
1053 get wd$
1054 if wd$="[133]"then 1040
1055 if wd$="[134]"then 1060
1056 if wd$=chr$(13)then 5000
1057 goto 1053
1060 print"[154] "
1061 print"[154][209][209]"
1062 print"[154] "
1063 get we$
1064 if we$="[133]"then 1050
1065 if we$="[134]"then 1070
1066 if we$=chr$(13)then 6000
1067 goto 1063
1070 print"[154] "
1071 print"[154][209][209]"
1072 print"[154] "
1073 get wf$
1074 if wf$="[133]"then 1060
1075 if wf$=chr$(13)then 100
1076 goto 1073
2000 print""
2001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
2002 print"[156][194]disk einlegen![194][144] "
2003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
2004 print"[156][144] "
2005 get fm$
2006 if fm$="q"then 100
2007 if fm$=" "then 2010
2008 goto 2005
2010 qy$="busy!":gosub 50000
2011 open 1,8,15,"n:formatted,64"
2012 close 1
2013 qy$="ready":gosub 50000
2014 goto 100
3000 print""
3001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
3002 print"[156][194]disk einlegen![194][144] "
3003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
3004 print"[156][144] "
3005 get sc$
3006 if sc$="q"then 100
3007 if sc$=" "then 3010
3008 goto 3005
3010 qy$="busy!":gosub 50000
3011 open 1,8,15,"s:*"
3012 close 1
3013 qy$="ready":gosub 50000
3014 goto 100
4000 print""
4001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4002 print"[156][194]disk einlegen![194][144] "
4003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
4004 print"[156][144] "
4005 get di$
4006 if di$="q"then 100
4007 if di$=" "then 4010
4008 goto 4005
4010 qy$="busy!":gosub 50000
4011 gosub 50
4012 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4013 print"[154][194] [194][144] "
4014 print"[154][194] directory [194][144] "
4015 print"[154][194] [194][144] "
4016 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
4017 print"[154][144] "
4018 print
4019 open 2,8,15
4020 open 1,8,0,"$0"
4021 get#1,a$,b$
4022 get#1,a$,b$
4023 get#1,a$,b$
4024 c=0
4025 if a$<>"" then c=asc(a$)
4026 if b$<>"" then c=c+asc(b$)*256
4027 print"[156]"mid$(str$(c),2);tab(3);"[146]";
4028 get#1,b$:if st<>0 then 4100
4029 if b$<>chr$(34)then 4028
4030 get#1,b$:if b$<>chr$(34)then print b$;:goto 4030
4031 get#1,b$:if b$=chr$(32)then 4031
4032 print tab(19);:c$=""
4033 c$=c$+b$:get#1,b$:if b$<>""then 4033
4034 print""left$(c$,3)
4035 gett$:if t$="" then gosub 4200
4036 if st=0 then 4022
4100 print" blocks free"
4101 close 1:close 2:wait 198,1:poke 198,0:goto 100
4200 if t$="q"then close 1:close 2:goto 100
4201 return:rem zurueck zu zeile y
4202 rem ende der directory
5000 print""
5001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
5002 print"[156][194]disk einlegen![194][144] "
5003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
5004 print"[156][144] "
5005 get vy$
5006 if vy$="q"then 100
5007 if vy$=" "then 5010
5008 goto 5005
5010 qy$="busy!":gosub 50000
5011 open 1,8,15,"v":close 1
5012 goto 100
6000 print""
6001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
6002 print"[156][194]disk einlegen![194][144] "
6003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
6004 print"[156][144] "
6005 get it$
6006 if it$="q"then 100
6007 if it$=" "then 6010
6008 goto 6005
6010 qy$="busy!":gosub 50000
6011 open 15,8,15,"i":close 15
6012 goto 100
10000 print"[147]"
10001 gosub 50
10002 if da=1 then goto 11000
10003 if da=0 then gosub 19000
10004 da=1:goto 11000
10200 rem -------------fehlermeldung
10201 print""
10202 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
10203 print"[156][194] [194][144] "
10204 print"[156][194] es sind noch keine daten geladen [194][144] "
10205 print"[156][194] [194][144] "
10206 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
10207 print"[156][144] ":return
10210 print""
10211 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
10212 print"[156][194] [194][144] "
10213 print"[156][194] tut mir leid,name nicht gefunden [194][144] "
10214 print"[156][194] [194][144] "
10215 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
10216 print"[156][144] "
10217 wait 198,1:poke 198,0:return
10500 rem --------------------daten ???
10501 if z>0 then 10506
10502 gosub 10200
10506 fori=1to2000:next:return
11000 print""
11001 print"[159][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
11002 print"[159][194] [194][144] "
11003 print"[159][194] adressenkartei: [194][144] "
11004 print"[159][194] [194][144] "
11005 print"[159][194] datei laden [194][144] "
11006 print"[159][194] datei speichern [194][144] "
11007 print"[159][194] adres.eingeben [194][144] "
11008 print"[159][194] adres.aendern [194][144] "
11009 print"[159][194] adres.loeschen [194][144] "
11010 print"[159][194] adres.zeigen [194][144] "
11011 print"[159][194] zurueck [194][144] "
11012 print"[159][194] [194][144] "
11013 print"[159][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
11014 print"[159][144] "
11015 get wa$
11020 print"[159][209][209]"
11021 print"[159] "
11022 get wa$
11023 if wa$="[134]"then 11030
11024 if wa$=chr$(13)then 12000
11025 goto 11022
11030 print"[159] "
11031 print"[159][209][209]"
11032 print"[159] "
11033 get wa$
11034 if wa$="[133]"then 11020
11035 if wa$="[134]"then 11040
11036 if wa$=chr$(13)then 13000
11037 goto 11033
11040 print"[159] "
11041 print"[159][209][209]"
11042 print"[159] "
11043 get wa$
11044 if wa$="[133]"then 11030
11045 if wa$="[134]"then 11050
11046 if wa$=chr$(13)then 14000
11047 goto 11043
11050 print"[159] "
11051 print"[159][209][209]"
11052 print"[159] "
11053 get wa$
11054 if wa$="[133]"then 11040
11055 if wa$="[134]"then 11060
11056 if wa$=chr$(13)then 15000
11057 goto 11053
11060 print"[159] "
11061 print"[159][209][209]"
11062 print"[159] "
11063 get wa$
11064 if wa$="[133]"then 11050
11065 if wa$="[134]"then 11070
11066 if wa$=chr$(13)then 16000
11067 goto 11063
11070 print"[159] "
11071 print"[159][209][209]"
11072 print"[159] "
11073 get wa$
11074 if wa$="[133]"then 11060
11075 if wa$="[134]"then 11080
11076 if wa$=chr$(13)then 17000
11077 goto 11073
11080 print"[159] "
11081 print"[159][209][209]"
11082 print"[159] "
11083 get wa$
11084 if wa$="[133]"then 11070
11085 if wa$=chr$(13)then 18000
11086 goto 11083
12000 rem ------------------datei laden
12001 rem -----------------------------
12002 print""
12004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
12005 print"[154][194] [194][144] "
12006 print"[154][194] datei laden: [194][144] "
12007 print"[154][194] [194][144] "
12008 print"[154][194] bitte legen [194][144] "
12009 print"[154][194] sie ihre [194][144] "
12010 print"[154][194] adressendisk [194][144] "
12011 print"[154][194] ein,oder [194][144] "
12012 print"[154][194] druecken sie [194][144] "
12013 print"[154][194] 'q' fuer [194][144] "
12014 print"[154][194] zurueck! [194][144] "
12015 print"[154][194] [194][144] "
12016 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
12017 print"[154][144] "
12018 get wa$
12019 if wa$=" "then 12030
12020 if wa$="q"then 10000
12021 goto 12018
12030 print""
12031 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
12032 print"[156][194] [194][144] "
12033 print"[156][194] moment,die daten werden geladen ! [194][144] "
12034 print"[156][194] [194][144] "
12035 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
12036 print"[156][144] "
12037 open 1,8,2,"mega-win/adr.,s,r"
12038 input#1,z
12039 fory=1toz
12040 fori=1to7
12041 input#1,d$(y,i)
12042 next i
12043 next y
12044 close 1
12045 forx=1to2000:next
12046 goto 10000
13000 rem --------------datei speichern
13001 rem -----------------------------
13002 gosub 10500:if z=0 then 10000
13003 print""
13004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
13005 print"[154][194] [194][144] "
13006 print"[154][194] speichern: [194][144] "
13007 print"[154][194] [194][144] "
13008 print"[154][194] bitte legen [194][144] "
13009 print"[154][194] sie zum [194][144] "
13010 print"[154][194] speichern [194][144] "
13011 print"[154][194] ihre [194][144] "
13012 print"[154][194] adressendisk [194][144] "
13013 print"[154][194] ein,oder [194][144] "
13014 print"[154][194] druecken sie [194][144] "
13015 print"[154][194] 'q' fuer [194][144] "
13016 print"[154][194] zurueck ! [194][144] "
13017 print"[154][194] [194][144] "
13018 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
13019 print"[154][144] "
13020 get wa$
13021 if wa$="q"then 10000
13022 if wa$=" "then 13030
13023 goto 13020
13030 print""
13031 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
13032 print"[156][194] [194][144] "
13033 print"[156][194] moment,die daten werden gesichert [194][144] "
13034 print"[156][194] [194][144] "
13035 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
13036 print"[156][144] "
13037 open 15,8,15,"s:mega-win/adr."
13038 close 15
13039 open 1,8,2,"@:mega-win/adr.,s,w"
13040 print#1,z
13041 fory=1 to z
13042 fori=1 to 7
13043 if d$(y,i)="" then print#1," ":goto 13045
13044 print#1,d$(y,i)
13045 next i
13046 next y
13047 close 1
13048 forx=1to2000:next
13049 goto 10000
14000 rem ------------adressen eingeben
14001 rem -----------------------------
14002 rem
14003 print"[147]"
14004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
14005 print"[154][194] [194][144] "
14006 print"[154][194] adr. eingeben [194][144] "
14007 print"[154][194] [194][144] "
14008 print"[154][194] : [194][144] "
14009 print"[154][194] : [194][144] "
14010 print"[154][194] : [194][144] "
14011 print"[154][194] : [194][144] "
14012 print"[154][194] : [194][144] "
14013 print"[154][194] : [194][144] "
14014 print"[154][194] : [194][144] "
14015 print"[154][194] [194][144] "
14016 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
14017 print"[154][144] "
14018 z=z+1
14019 print""
14020 fori=1to7
14021 print"[154]";f$(i);"[146]";
14022 input d$(z,i)
14023 next
14024 print""
14025 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
14026 print"[156][194] [194][144] "
14027 print"[156][194] alles richtig eingegeben('j'/'n') [194][144] "
14028 print"[156][194] [194][144] "
14029 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
14030 print"[156][144] "
14031 get wa$
14032 if wa$="j"then 14035
14033 if wa$="n"then z=z-1:goto 14000
14034 goto 14031
14035 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
14036 print"[156][194] [194][144] "
14037 print"[156][194] weitere eingaben('j'/'n') [194][144] "
14038 print"[156][194] [194][144] "
14039 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
14040 print"[156][144] "
14041 get wa$
14042 if wa$="j"then 14000
14043 if wa$="n"then 10000
14044 goto 14041
15000 rem ------------adressen aendern
15001 rem ----------------------------
15002 gosub 10500:if z=0 then 10000
15003 zz=1
15004 gosub 50
15005 print""
15006 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
15007 print"[154][194] [194][144] "
15008 print"[154][194] adressen aendern [194][144] "
15009 print"[154][194] [194][144] "
15010 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
15011 print"[154][144] "
15013 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
15014 print"[156][194] [194][144] "
15015 print"[156][194] - ------------------------------- [194][144] "
15016 print"[156][194] - ------------------------------- [194][144] "
15017 print"[156][194] - ------------------------------- [194][144] "
15018 print"[156][194] - ------------------------------- [194][144] "
15019 print"[156][194] - ------------------------------- [194][144] "
15020 print"[156][194] - ------------------------------- [194][144] "
15021 print"[156][194] - ------------------------------- [194][144] "
15022 print"[156][194] [194][144] "
15023 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
15024 print"[156][144] "
15025 print"[145][145][145][145][145][145][145][145][145][145][145]"
15026 fori=1to7
15027 print"[156]";i;f$(i);d$(zz,i)
15028 next
15029 get x$:if x$="" then 15029
15030 if asc(x$)<133 or asc(x$)>136 then 15029
15031 if asc(x$)=136 then 10000
15032 if asc(x$)=133 and zz<z then zz=zz+1:goto 15004
15033 if asc(x$)=134 and zz>1 then zz=zz-1:goto 15004
15034 if asc(x$)=135 then 15036
15035 goto 15029
15036 print"":print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
15037 print"[158][194]bitte geben sie die feldnummer ein![194][144] "
15038 print"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
15039 print"[158][144] "
15040 get fx$
15041 if fx$="1"then x=1:goto 15050
15042 if fx$="2"then x=2:goto 15050
15043 if fx$="3"then x=3:goto 15050
15044 if fx$="4"then x=4:goto 15050
15045 if fx$="5"then x=5:goto 15050
15046 if fx$="6"then x=6:goto 15050
15047 if fx$="7"then x=7:goto 15050
15048 goto 15040
15050 input"[144]neuer inhalt:";d$(zz,x)
15051 goto 15004
16000 rem ------------adressen loeschen
16001 rem -----------------------------
16002 gosub 10500:if z=0 then 10000
16003 gosub 50
16004 print""
16005 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16006 print"[154][194] [194][144] "
16007 print"[154][194] adressen loeschen [194][144] "
16008 print"[154][194] [194][144] "
16009 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16010 print"[154][144] "
16011 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16012 print"[156][194] [194][144] "
16013 print"[156][194] zum loeschen einzelner adressen, [194][144] "
16014 print"[156][194] geben sie bitte im unteren teil [194][144] "
16015 print"[156][194] name und vorname ein.soll die [194][144] "
16016 print"[156][194] adresse jedoch fuer immer [194][144] "
16017 print"[156][194] geloescht sein,muessen sie nach [194][144] "
16018 print"[156][194] dem loeschen die daten speichern! [194][144] "
16019 print"[156][194] [194][144] "
16020 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16021 print"[156][144] "
16022 print
16023 input"[144]vorname :";d1$
16024 input"[144]nachname:";d2$
16025 x=1
16026 if d$(x,2)=d1$ and d$(x,3)=d2$ then 16030
16027 if x<z then x=x+1:goto 16026
16028 gosub 10210:goto 10000
16030 print""
16031 gosub 50
16032 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][179]loeschen[171][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16033 print"[154][194] [194][144] "
16034 print"[154][194] [194][144] "
16035 print"[154][194] [194][144] "
16036 print"[154][194] [194][144] "
16037 print"[154][194] [194][144] "
16038 print"[154][194] [194][144] "
16039 print"[154][194] [194][144] "
16040 print"[154][194] [194][144] "
16041 print"[154][194] [194][144] "
16042 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16043 print"[154][144] "
16044 print""
16045 fori=1to7
16046 print"";f$(i);d$(x,i)
16047 next
16048 fori=1to5000:next
16049 print""
16050 print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16051 print"[158][194] [194][144] "
16052 print"[158][194] soll ich diese adresse loeschen ? [194][144] "
16053 print"[158][194] [194][144] "
16054 print"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16055 print"[158][144] "
16056 get wa$
16057 if wa$="j"then 16060
16058 if wa$="n"then 10000
16059 goto 16056
16060 for y=x to z-1
16061 fori=1to7
16062 d$(y,i)=d$(y+1,i)
16063 nexti:next y
16064 z=z-1
16065 goto 10000
17000 rem ------------adressen ausgeben
17001 rem -----------------------------
17002 gosub 10500
17003 if z=0 then 10000
17004 gosub 17005:goto 17020
17005 gosub 50
17006 print""
17007 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17008 print"[154][194] [194][144] "
17009 print"[154][194] adressen ausgeben: [194][144] "
17010 print"[154][194] [194][144] "
17011 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17012 print"[154][144] "
17013 return
17020 print""
17021 print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17022 print"[158][194]drucker oder bildschirm ('d'/'b') ?[194][144] "
17023 print"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17024 print"[158][144] "
17025 get g$
17026 if g$="d"then open 1,4:goto 17030
17027 if g$="b"then 17030
17028 goto 17025
17030 gosub 17005
17031 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17032 print"[156][194] [194][144] "
17033 print"[156][194] bitte geben sie unten einige [194][144] "
17034 print"[156][194] begriffe ein,nach denen der [194][144] "
17035 print"[156][194] computer suchen soll,damit sie [194][144] "
17036 print"[156][194] nicht alle adressen absuchen [194][144] "
17037 print"[156][194] muessen. [194][144] "
17038 print"[156][194] [194][144] "
17039 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17040 print"[156][144] "
17041 print"bitte geben sie suchbegriffe ein:"
17042 fori=1to7:s$(i)="":next
17043 fori=1to7
17044 print f$(i);
17045 input s$(i)
17046 next
17047 fory=1toz
17048 s=0
17049 fori=1to7
17050 if s$(i)="" then s=s+1:goto 17052
17051 if left$(d$(y,i),len(s$(i)))=s$(i) then s=s+1
17052 next i
17053 if s<>7 then 17069
17054 if g$="d"then print#1
17055 if g$="b"then gosub 17005:print
17056 fori=1to7
17057 if g$="b"then print f$(i);d$(y,i)
17058 if g$="d"then print#1,f$(i);d$(y,i)
17059 next i
17060 if g$="d"then 17069
17061 print""
17062 print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17063 print"[158][194] [194][144] "
17064 print"[158][194] bitte druecken sie eine taste [194][144] "
17065 print"[158][194] [194][144] "
17066 print"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17067 print"[158][144] "
17068 wait 198,1:poke 198,0
17069 next y
17070 gosub 17005
17071 print
17072 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17073 print"[194] [194][144] "
17074 print"[194] keine weiteren adressen vorhanden [194][144] "
17075 print"[194] [194][144] "
17076 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17077 print"[144] "
17078 wait 198,1:poke 198,0
17079 if g$="d"then close 1
17080 goto 10000
18000 rem ---------------------zurueck
18001 rem ----------------------------
18002 print""
18003 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
18004 print"[194] [194][144] "
18005 print"[194] sind alle daten gespeichert (j/n) [194][144] "
18006 print"[194] [194][144] "
18007 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
18008 print"[144] "
18009 get wa$
18010 if wa$="j"then 100
18011 if wa$="n"then 10000
18012 goto 18009
19000 rem ---------------dimensionieren
19001 rem -----------------------------
19002 dim d$(200,7)
19003 f$(1)="anrede "
19004 f$(2)="vorname "
19005 f$(3)="nachname "
19006 f$(4)="strasse: : "
19007 f$(5)="plz/wohnort "
19008 f$(6)="telefonnummer "
19009 f$(7)="bemerkung "
19010 return
20000 print"[147]"
20001 rem ----- druck text -----
20002 print""
20003 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
20004 print"[154][194] [194][144] "
20005 print"[154][194] --- mega-windows textdrucker --- [194][144] "
20006 print"[154][194] [194][144] "
20007 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
20008 print"[154][144] "
20009 print"[155][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
20010 print"[155][194]----[219]----[219]----[219]----[219]----[219]----[219]----[219][194][144] "
20011 print"[155][194]12345678901234567890123456789012345[194][144] "
20012 print"[155][194] 1 2 3 [194][144] "
20013 print"[155][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
20014 print"[155][144] "
20015 print
20016 poke 19,1
20017 input">";a$
20018 if a$="*end*"then 100
20019 if a$<>"*end*"then 20030
20030 open 4,4
20031 print#4,a$
20032 close 4
20033 goto 20017
30000 print"[147]"
30001 gosub 50
30002 print""
30003 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
30004 print"[154][194] [194][144] "
30005 print"[154][194] - mega-windows rechnerfunktion - [194][144] "
30006 print"[154][194] [194][144] "
30007 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
30008 print"[154][144] "
30009 print
30010 print"[155][176][178][195][195][195][195][195][195][195][195][195][195][195][195][195][178][174][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
30011 print"[155][171][219][195][195][195][195][195][195][195][195][195][195][195][195][195][219][179][144] [194]1.ersten faktor[194][144] "
30012 print"[155][194][194]----------- -[194][194][144] [194] eingeben [194][144] "
30013 print"[155][171][177][195][195][195][195][195][195][195][195][195][195][195][195][195][177][179][144] [194]2.rechenweise [194][144] "
30014 print"[155][194][176][195][174][176][195][174][176][195][174][213][195][201][213][195][201][194][144] [194] eingeben [194][144] "
30015 print"[155][194][194]7[194][194]8[194][194]9[194][194]*[194][194]/[194][194][144] [194]3.zweiten [194][144] "
30016 print"[155][194][173][195][189][173][195][189][173][195][189][202][195][203][202][195][203][194][144] [194] faktor [194][144] "
30017 print"[155][194][176][195][174][176][195][174][176][195][174][213][195][201][213][195][201][194][144] [194] eingeben [194][144] "
30018 print"[155][194][194]4[194][194]5[194][194]6[194][194]+[194][194]-[194][194][144] [194]4.ergebnis [194][144] "
30019 print"[155][194][173][195][189][173][195][189][173][195][189][202][195][203][202][195][203][194][144] [194] abwarten [194][144] "
30020 print"[155][194][176][195][174][176][195][174][176][195][174][176][195][174][213][195][201][194][144] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
30021 print"[155][194][194]1[194][194]2[194][194]3[194][194]0[194][194]x[194][194][144] [144] "
30022 print"[155][171][219][195][189][173][195][189][173][195][189][173][195][189][202][195][219][179][144] "
30023 print"[155][173][177][195][195][195][195][195][195][195][195][195][195][195][195][195][177][189][144] "
30024 print"[155][144] "
30025 print
30026 input"1.faktor";a
30027 input"[145][154]rechenw.";rw$
30028 input"[145]2.faktor";b
30029 if left$(rw$,1)="+" then eg=a+b:goto 30035
30030 if left$(rw$,1)="-" then eg=a-b:goto 30035
30031 if left$(rw$,1)="*" then eg=a*b:goto 30035
30032 if left$(rw$,1)="/" then eg=a/b:goto 30035
30033 if left$(rw$,1)="x" then 100
30034 goto 30000
30035 print"[155]";a:fori=1to 1000:next
30036 print"[155]";left$(rw$,1):fori=1to1000:next
30037 print"[155]---------"
30038 print"[155]";b:fori=1to1000:next:print"[155]---------"
30039 print"[155]";eg
30040 print"[155][155]="
30041 wait 198,1:poke 198,0:goto 30000
33000 print"[147]"
33001 print"[158]mega-windows pausefunktion"
33002 print
33003 fori=1to3000:next:print"[147]"
33004 fori=1to192:print"[156]pause[146]";:next
33005 fori=1to3000:next:print""
33006 print" [223]"
33007 print"[145][146][223] [223]"
33008 print"[159] [223][146][223] [223]"
33009 print"[145][159][146][223] [223][146][223] [223][169] "
33010 print"[159][146][223] [223][146][223] [223][169] [146][169]"
33011 print"[145][159][146][223] [223][146][223] [223][169] [146][169] [159][169] "
33012 print"[159][146][223] [223][146][223] [146][169] [159][169] [146][169]"
33013 print"[145][159][146][223] [223][146][223][146][169] [159][169] [146][169]"
33014 print"[159][146][223] [223][146][159][169] [146][169]"
33015 print"[145][159][146][223] [223][146][159][169] [146][169]"
33016 print"[159][146][223] [146][169]"
33017 print"[145][159][146][223][146][169]"
33018 wait 198,1:poke 198,0:goto 100
34000 print""
34001 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
34002 print"[154][194] [194][144] "
34003 print"[154][194] -spezialmenue- [194][144] "
34004 print"[154][194] [224] [224][194][144] "
34005 print"[154][194] installieren [194][144] "
34006 print"[154][194] copyright [194][144] "
34007 print"[154][194] zurueck [194][144] "
34008 print"[154][194] [194][144] "
34009 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
34010 print"[154][144] "
34011 print"[154][209][209]"
34012 print"[154] "
34013 get a$
34014 if a$="[134]"then 34020
34015 if a$=chr$(13)then 34100
34016 goto 34013
34020 print"[154] "
34021 print"[154][209][209]"
34022 print"[154] "
34023 get a$
34024 if a$="[133]"then 34011
34025 if a$="[134]"then 34030
34026 if a$=chr$(13)then 34200
34027 goto 34023
34030 print"[154] "
34031 print"[154][209][209]"
34032 get a$
34033 if a$="[133]"then 34020
34034 if a$=chr$(13)then 100
34035 goto 34032
34100 print""
34101 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
34102 print"[156][194]disk einlegen![194][144] "
34103 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
34104 print"[156][144] "
34105 get a$
34106 if a$="q"then 100
34107 if a$<>"" and a$<>"q"then 34110
34108 goto 34105
34110 save"mega-windows/sc",8,1
34111 goto 100
34200 print""
34300 print""
34301 print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
34302 print"[158][194] [194][144] "
34303 print"[158][194] copyright by [194][144] "
34304 print"[158][194]commodore-soft[194][144] "
34305 print"[158][194] written by [194][144] "
34306 print"[158][194]manuel pohl'93[194][144] "
34307 print"[158][194] [194][144] "
34308 print"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
34309 print"[158][144] "
34310 wait 198,1:poke 198,0:goto 100
40000 print""
40001 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
40002 print"[154][194] [194][144] "
40003 print"[154][194] moechten sie [194][144] "
40004 print"[154][194] mega-windows [194][144] "
40005 print"[154][194] wirklich [194][144] "
40006 print"[154][194] beenden? [194][144] "
40007 print"[154][194] 'j' / 'n' [194][144] "
40008 print"[154][194] [194][144] "
40009 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
40010 print"[154][144] "
40011 get a$
40012 if a$="j"then sys 64738
40013 if a$="n"then 100
40014 goto 40011
50000 print"";qy$
50001 return