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 >
Commodore BASIC  |  2023-02-26  |  27KB  |  865 lines
  1. 0 poke 53280,1:poke 53281,1:print"[147]":print chr$(142):print chr$(8)
  2. 1 fori=1to3000:next:poke 788,52:poke 792,193
  3. 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]"
  4. 11 print"[154][194]                                    [194][144] "
  5. 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] "
  6. 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] "
  7. 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] "
  8. 15 print"[154][194]                                    [194][144] "
  9. 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] "
  10. 17 print"[154][144]                                      "
  11. 18 print
  12. 19 print"                         [223]"
  13. 20 print"[146][223] [223]"
  14. 21 print"[159]                       [223][146][223] [223]"
  15. 22 print"[159][146][223] [223][146][223] [223][169]     "
  16. 23 print"[159][146][223] [223][146][223] [223][169] [146][169]"
  17. 24 print"[159][146][223] [223][146][223] [223][169] [146][169] [159][169]   "
  18. 25 print"[159][146][223] [223][146][223]  [146][169] [159][169] [146][169]"
  19. 26 print"[159][146][223] [223][146][223][146][169] [159][169] [146][169]"
  20. 27 print"[159][146][223] [223][146][159][169] [146][169]"
  21. 28 print"[159][146][223] [223][146][159][169] [146][169]"
  22. 29 print"[159][146][223]  [146][169]"
  23. 30 print"[159][146][223][146][169]"
  24. 31 wait 198,1:poke 198,0:goto 100
  25. 50 rem -----------
  26. 51 rem hintergrund
  27. 52 rem -----------
  28. 53 print"[147]"
  29. 54 print"                         [223]"
  30. 55 print"[146][223] [223]"
  31. 56 print"[159]                       [223][146][223] [223]"
  32. 57 print"[159][146][223] [223][146][223] [223][169]     "
  33. 58 print"[159][146][223] [223][146][223] [223][169] [146][169]"
  34. 59 print"[159][146][223] [223][146][223] [223][169] [146][169] [159][169]   "
  35. 60 print"[159][146][223] [223][146][223]  [146][169] [159][169] [146][169]"
  36. 61 print"[159][146][223] [223][146][223][146][169] [159][169] [146][169]"
  37. 62 print"[159][146][223] [223][146][159][169] [146][169]"
  38. 63 print"[159][146][223] [223][146][159][169] [146][169]"
  39. 64 print"[159][146][223]  [146][169]"
  40. 65 print"[159][146][223][146][169]"
  41. 66 return
  42. 100 gosub 50
  43. 101 print""
  44. 102 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  45. 103 print"[194]             [194][144] "
  46. 104 print"[194] funktionen: [194][144] "
  47. 105 print"[194]             [194][144] "
  48. 106 print"[194] disk        [194][144] "
  49. 107 print"[194] adressen    [194][144] "
  50. 109 print"[194] drucker     [194][144] "
  51. 110 print"[194] rechner     [194][144] "
  52. 111 print"[194] pause       [194][144] "
  53. 112 print"[194] spezial     [194][144] "
  54. 113 print"[194] quit        [194][144] "
  55. 114 print"[194]             [194][144] "
  56. 115 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  57. 116 print"[144]               "
  58. 117 print
  59. 118 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  60. 119 print"[194]             [194][144] "
  61. 120 print"[194] disk-status [194][144] "
  62. 121 print"[194]             [194][144] "
  63. 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]"
  64. 123 print"[194]             [194][144] [158][194]f1=[206][205] f3=[205][206] ret.=<[189][194][144] "
  65. 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] "
  66. 125 print"[144]               [146][144]                     "
  67. 130 print"[209][146][209][146]"
  68. 131 print" [146] [146]"
  69. 132 get wa$
  70. 133 if wa$="[134]"then 140
  71. 135 if wa$=chr$(13)then 1000
  72. 136 goto 132
  73. 140 print" [146] "
  74. 141 print"[209][209]"
  75. 142 print" [146] "
  76. 143 get wb$
  77. 144 if wb$="[133]"then 130
  78. 145 if wb$="[134]"then 150
  79. 146 if wb$=chr$(13)then 10000
  80. 147 goto 143
  81. 150 print" [146] "
  82. 151 print"[209][209]"
  83. 152 print" [146] "
  84. 153 get wc$
  85. 154 if wc$="[133]"then 140
  86. 155 if wc$="[134]"then 160
  87. 156 if wc$=chr$(13)then 20000
  88. 157 goto 153
  89. 160 print" [146] "
  90. 161 print"[209][209]"
  91. 162 print"  "
  92. 163 get wd$
  93. 164 if wd$="[133]"then 150
  94. 165 if wd$="[134]"then 170
  95. 166 if wd$=chr$(13)then 30000
  96. 167 goto 163
  97. 170 print" [146] "
  98. 171 print"[209][209]"
  99. 172 print"  "
  100. 173 get we$
  101. 174 if we$="[133]"then 160
  102. 175 if we$="[134]"then 180
  103. 176 if we$=chr$(13)then 33000
  104. 177 goto 173
  105. 180 print"  "
  106. 181 print"[209][209]"
  107. 182 print"  "
  108. 183 get wf$
  109. 184 if wf$="[133]"then 170
  110. 185 if wf$="[134]"then 200        
  111. 186 if wf$=chr$(13)then 34000
  112. 187 goto 183
  113. 200 print"  "
  114. 201 print"[209][209]"
  115. 202 print"  "
  116. 203 get wh$
  117. 204 if wh$="[133]"then 180
  118. 205 if wh$=chr$(13)then 40000
  119. 206 goto 203
  120. 1000 rem ------
  121. 1001 rem  disk
  122. 1002 rem ------
  123. 1003 print""
  124. 1004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  125. 1005 print"[154][194]               [194][144] "
  126. 1006 print"[154][194]  disk-menue:  [194][144] "
  127. 1007 print"[154][194]               [194][144] "
  128. 1008 print"[154][194] formatieren   [194][144] "
  129. 1009 print"[154][194] scratchen     [194][144] "
  130. 1010 print"[154][194] directory     [194][144] "
  131. 1011 print"[154][194] validate      [194][144] "
  132. 1012 print"[154][194] initialize    [194][144] "
  133. 1013 print"[154][194] zurueck       [194][144] "
  134. 1014 print"[154][194]               [194][144] "
  135. 1015 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  136. 1016 print"[154][144]                 "
  137. 1020 print"[154][209][209]"
  138. 1021 print"[154]  "
  139. 1022 get wa$
  140. 1023 if wa$="[134]"then 1030
  141. 1024 if wa$=chr$(13)then 2000
  142. 1025 goto 1022
  143. 1030 print"[154]  "
  144. 1031 print"[154][209][209]"
  145. 1032 print"[154]  "
  146. 1033 get wb$
  147. 1034 if wb$="[133]"then 1020
  148. 1035 if wb$="[134]"then 1040
  149. 1036 if wb$=chr$(13)then 3000
  150. 1037 goto 1033
  151. 1040 print"[154]  "
  152. 1041 print"[154][209][209]"
  153. 1042 print"[154]  "
  154. 1043 get wc$
  155. 1044 if wc$="[133]"then 1030
  156. 1045 if wc$="[134]"then 1050
  157. 1046 if wc$=chr$(13)then 4000
  158. 1047 goto 1043
  159. 1050 print"[154]  "
  160. 1051 print"[154][209][209]"
  161. 1052 print"[154]  "
  162. 1053 get wd$
  163. 1054 if wd$="[133]"then 1040
  164. 1055 if wd$="[134]"then 1060
  165. 1056 if wd$=chr$(13)then 5000
  166. 1057 goto 1053
  167. 1060 print"[154]  "
  168. 1061 print"[154][209][209]"
  169. 1062 print"[154]  "
  170. 1063 get we$
  171. 1064 if we$="[133]"then 1050
  172. 1065 if we$="[134]"then 1070
  173. 1066 if we$=chr$(13)then 6000
  174. 1067 goto 1063
  175. 1070 print"[154]  "
  176. 1071 print"[154][209][209]"
  177. 1072 print"[154]  "
  178. 1073 get wf$
  179. 1074 if wf$="[133]"then 1060
  180. 1075 if wf$=chr$(13)then 100
  181. 1076 goto 1073
  182. 2000 print""
  183. 2001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  184. 2002 print"[156][194]disk einlegen![194][144] "
  185. 2003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  186. 2004 print"[156][144]                "
  187. 2005 get fm$
  188. 2006 if fm$="q"then 100
  189. 2007 if fm$=" "then 2010
  190. 2008 goto 2005
  191. 2010 qy$="busy!":gosub 50000
  192. 2011 open 1,8,15,"n:formatted,64"
  193. 2012 close 1
  194. 2013 qy$="ready":gosub 50000
  195. 2014 goto 100
  196. 3000 print""
  197. 3001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  198. 3002 print"[156][194]disk einlegen![194][144] "
  199. 3003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  200. 3004 print"[156][144]                "
  201. 3005 get sc$
  202. 3006 if sc$="q"then 100
  203. 3007 if sc$=" "then 3010
  204. 3008 goto 3005
  205. 3010 qy$="busy!":gosub 50000
  206. 3011 open 1,8,15,"s:*"
  207. 3012 close 1
  208. 3013 qy$="ready":gosub 50000
  209. 3014 goto 100
  210. 4000 print""
  211. 4001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  212. 4002 print"[156][194]disk einlegen![194][144] "
  213. 4003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  214. 4004 print"[156][144]                "
  215. 4005 get di$
  216. 4006 if di$="q"then 100
  217. 4007 if di$=" "then 4010
  218. 4008 goto 4005
  219. 4010 qy$="busy!":gosub 50000
  220. 4011 gosub 50
  221. 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]"
  222. 4013 print"[154][194]                                  [194][144] "
  223. 4014 print"[154][194]             directory            [194][144] "
  224. 4015 print"[154][194]                                  [194][144] "
  225. 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] "
  226. 4017 print"[154][144]                                    "
  227. 4018 print
  228. 4019 open 2,8,15
  229. 4020 open 1,8,0,"$0"
  230. 4021 get#1,a$,b$
  231. 4022 get#1,a$,b$
  232. 4023 get#1,a$,b$
  233. 4024 c=0
  234. 4025 if a$<>"" then c=asc(a$)
  235. 4026 if b$<>"" then c=c+asc(b$)*256
  236. 4027 print"[156]"mid$(str$(c),2);tab(3);"[146]";
  237. 4028 get#1,b$:if st<>0 then 4100
  238. 4029 if b$<>chr$(34)then 4028
  239. 4030 get#1,b$:if b$<>chr$(34)then print b$;:goto 4030
  240. 4031 get#1,b$:if b$=chr$(32)then 4031
  241. 4032 print tab(19);:c$=""
  242. 4033 c$=c$+b$:get#1,b$:if b$<>""then 4033
  243. 4034 print""left$(c$,3)
  244. 4035 gett$:if t$="" then gosub 4200
  245. 4036 if st=0 then 4022
  246. 4100 print" blocks free"
  247. 4101 close 1:close 2:wait 198,1:poke 198,0:goto 100
  248. 4200 if t$="q"then close 1:close 2:goto 100
  249. 4201 return:rem zurueck zu zeile y
  250. 4202 rem ende der directory
  251. 5000 print""
  252. 5001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  253. 5002 print"[156][194]disk einlegen![194][144] "
  254. 5003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  255. 5004 print"[156][144]                "
  256. 5005 get vy$
  257. 5006 if vy$="q"then 100
  258. 5007 if vy$=" "then 5010
  259. 5008 goto 5005
  260. 5010 qy$="busy!":gosub 50000
  261. 5011 open 1,8,15,"v":close 1
  262. 5012 goto 100
  263. 6000 print""
  264. 6001 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  265. 6002 print"[156][194]disk einlegen![194][144] "
  266. 6003 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  267. 6004 print"[156][144]                "
  268. 6005 get it$
  269. 6006 if it$="q"then 100
  270. 6007 if it$=" "then 6010
  271. 6008 goto 6005
  272. 6010 qy$="busy!":gosub 50000
  273. 6011 open 15,8,15,"i":close 15
  274. 6012 goto 100
  275. 10000 print"[147]"
  276. 10001 gosub 50
  277. 10002 if da=1 then goto 11000
  278. 10003 if da=0 then gosub 19000
  279. 10004 da=1:goto 11000
  280. 10200 rem -------------fehlermeldung
  281. 10201 print""
  282. 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]"
  283. 10203 print"[156][194]                                  [194][144] "
  284. 10204 print"[156][194] es sind noch keine daten geladen [194][144] "
  285. 10205 print"[156][194]                                  [194][144] "
  286. 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] "
  287. 10207 print"[156][144]                                    ":return
  288. 10210 print""
  289. 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]"
  290. 10212 print"[156][194]                                  [194][144] "
  291. 10213 print"[156][194] tut mir leid,name nicht gefunden [194][144] "
  292. 10214 print"[156][194]                                  [194][144] "
  293. 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] "
  294. 10216 print"[156][144]                                    "
  295. 10217 wait 198,1:poke 198,0:return
  296. 10500 rem --------------------daten ???
  297. 10501 if z>0 then 10506
  298. 10502 gosub 10200
  299. 10506 fori=1to2000:next:return
  300. 11000 print""
  301. 11001 print"[159][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  302. 11002 print"[159][194]                 [194][144] "
  303. 11003 print"[159][194] adressenkartei: [194][144] "
  304. 11004 print"[159][194]                 [194][144] "
  305. 11005 print"[159][194] datei laden     [194][144] "
  306. 11006 print"[159][194] datei speichern [194][144] "
  307. 11007 print"[159][194] adres.eingeben  [194][144] "
  308. 11008 print"[159][194] adres.aendern   [194][144] "
  309. 11009 print"[159][194] adres.loeschen  [194][144] "
  310. 11010 print"[159][194] adres.zeigen    [194][144] "
  311. 11011 print"[159][194] zurueck         [194][144] "
  312. 11012 print"[159][194]                 [194][144] "
  313. 11013 print"[159][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  314. 11014 print"[159][144]                   "
  315. 11015 get wa$
  316. 11020 print"[159][209][209]"
  317. 11021 print"[159]  "
  318. 11022 get wa$
  319. 11023 if wa$="[134]"then 11030
  320. 11024 if wa$=chr$(13)then 12000
  321. 11025 goto 11022
  322. 11030 print"[159]  "
  323. 11031 print"[159][209][209]"
  324. 11032 print"[159]  "
  325. 11033 get wa$
  326. 11034 if wa$="[133]"then 11020
  327. 11035 if wa$="[134]"then 11040
  328. 11036 if wa$=chr$(13)then 13000
  329. 11037 goto 11033
  330. 11040 print"[159]  "
  331. 11041 print"[159][209][209]"
  332. 11042 print"[159]  "
  333. 11043 get wa$
  334. 11044 if wa$="[133]"then 11030
  335. 11045 if wa$="[134]"then 11050
  336. 11046 if wa$=chr$(13)then 14000
  337. 11047 goto 11043
  338. 11050 print"[159]  "
  339. 11051 print"[159][209][209]"
  340. 11052 print"[159]  "
  341. 11053 get wa$
  342. 11054 if wa$="[133]"then 11040
  343. 11055 if wa$="[134]"then 11060
  344. 11056 if wa$=chr$(13)then 15000
  345. 11057 goto 11053
  346. 11060 print"[159]  "
  347. 11061 print"[159][209][209]"
  348. 11062 print"[159]  "
  349. 11063 get wa$
  350. 11064 if wa$="[133]"then 11050
  351. 11065 if wa$="[134]"then 11070
  352. 11066 if wa$=chr$(13)then 16000
  353. 11067 goto 11063
  354. 11070 print"[159]  "
  355. 11071 print"[159][209][209]"
  356. 11072 print"[159]  "
  357. 11073 get wa$
  358. 11074 if wa$="[133]"then 11060
  359. 11075 if wa$="[134]"then 11080
  360. 11076 if wa$=chr$(13)then 17000
  361. 11077 goto 11073
  362. 11080 print"[159]  "
  363. 11081 print"[159][209][209]"
  364. 11082 print"[159]  "
  365. 11083 get wa$
  366. 11084 if wa$="[133]"then 11070
  367. 11085 if wa$=chr$(13)then 18000
  368. 11086 goto 11083
  369. 12000 rem ------------------datei laden
  370. 12001 rem -----------------------------
  371. 12002 print""
  372. 12004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  373. 12005 print"[154][194]              [194][144] "
  374. 12006 print"[154][194] datei laden: [194][144] "
  375. 12007 print"[154][194]              [194][144] "
  376. 12008 print"[154][194] bitte legen  [194][144] "
  377. 12009 print"[154][194] sie ihre     [194][144] "
  378. 12010 print"[154][194] adressendisk [194][144] "
  379. 12011 print"[154][194] ein,oder     [194][144] "
  380. 12012 print"[154][194] druecken sie [194][144] "
  381. 12013 print"[154][194] 'q' fuer     [194][144] "
  382. 12014 print"[154][194] zurueck!     [194][144] "
  383. 12015 print"[154][194]              [194][144] "
  384. 12016 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  385. 12017 print"[154][144]                "
  386. 12018 get wa$
  387. 12019 if wa$=" "then 12030
  388. 12020 if wa$="q"then 10000
  389. 12021 goto 12018
  390. 12030 print""
  391. 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]"
  392. 12032 print"[156][194]                                   [194][144] "
  393. 12033 print"[156][194] moment,die daten werden geladen ! [194][144] "
  394. 12034 print"[156][194]                                   [194][144] "
  395. 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] "
  396. 12036 print"[156][144]                                     "
  397. 12037 open 1,8,2,"mega-win/adr.,s,r"
  398. 12038 input#1,z
  399. 12039 fory=1toz
  400. 12040 fori=1to7
  401. 12041 input#1,d$(y,i)
  402. 12042 next i
  403. 12043 next y
  404. 12044 close 1
  405. 12045 forx=1to2000:next
  406. 12046 goto 10000
  407. 13000 rem --------------datei speichern
  408. 13001 rem -----------------------------
  409. 13002 gosub 10500:if z=0 then 10000
  410. 13003 print""
  411. 13004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  412. 13005 print"[154][194]              [194][144] "
  413. 13006 print"[154][194]  speichern:  [194][144] "
  414. 13007 print"[154][194]              [194][144] "
  415. 13008 print"[154][194] bitte legen  [194][144] "
  416. 13009 print"[154][194] sie zum      [194][144] "
  417. 13010 print"[154][194] speichern    [194][144] "
  418. 13011 print"[154][194] ihre         [194][144] "
  419. 13012 print"[154][194] adressendisk [194][144] "
  420. 13013 print"[154][194] ein,oder     [194][144] "
  421. 13014 print"[154][194] druecken sie [194][144] "
  422. 13015 print"[154][194] 'q' fuer     [194][144] "
  423. 13016 print"[154][194] zurueck !    [194][144] "
  424. 13017 print"[154][194]              [194][144] "
  425. 13018 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  426. 13019 print"[154][144]                "
  427. 13020 get wa$
  428. 13021 if wa$="q"then 10000
  429. 13022 if wa$=" "then 13030
  430. 13023 goto 13020
  431. 13030 print""
  432. 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]"
  433. 13032 print"[156][194]                                   [194][144] "
  434. 13033 print"[156][194] moment,die daten werden gesichert [194][144] "
  435. 13034 print"[156][194]                                   [194][144] "
  436. 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] "
  437. 13036 print"[156][144]                                     "
  438. 13037 open 15,8,15,"s:mega-win/adr."
  439. 13038 close 15
  440. 13039 open 1,8,2,"@:mega-win/adr.,s,w"
  441. 13040 print#1,z
  442. 13041 fory=1 to z
  443. 13042 fori=1 to 7
  444. 13043 if d$(y,i)="" then print#1," ":goto 13045
  445. 13044 print#1,d$(y,i)
  446. 13045 next i
  447. 13046 next y
  448. 13047 close 1
  449. 13048 forx=1to2000:next
  450. 13049 goto 10000
  451. 14000 rem ------------adressen eingeben
  452. 14001 rem -----------------------------
  453. 14002 rem
  454. 14003 print"[147]"
  455. 14004 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  456. 14005 print"[154][194]                 [194][144] "
  457. 14006 print"[154][194]  adr. eingeben  [194][144] "
  458. 14007 print"[154][194]                 [194][144] "
  459. 14008 print"[154][194]               : [194][144] "
  460. 14009 print"[154][194]               : [194][144] "
  461. 14010 print"[154][194]               : [194][144] "
  462. 14011 print"[154][194]               : [194][144] "
  463. 14012 print"[154][194]               : [194][144] "
  464. 14013 print"[154][194]               : [194][144] "
  465. 14014 print"[154][194]               : [194][144] "
  466. 14015 print"[154][194]                 [194][144] "
  467. 14016 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  468. 14017 print"[154][144]                   "
  469. 14018 z=z+1
  470. 14019 print""
  471. 14020 fori=1to7
  472. 14021 print"[154]";f$(i);"[146]";
  473. 14022 input d$(z,i)
  474. 14023 next
  475. 14024 print""
  476. 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]"
  477. 14026 print"[156][194]                                   [194][144] "
  478. 14027 print"[156][194] alles richtig eingegeben('j'/'n') [194][144] "
  479. 14028 print"[156][194]                                   [194][144] "
  480. 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] "
  481. 14030 print"[156][144]                                     "
  482. 14031 get wa$
  483. 14032 if wa$="j"then 14035
  484. 14033 if wa$="n"then z=z-1:goto 14000
  485. 14034 goto 14031
  486. 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]"
  487. 14036 print"[156][194]                                   [194][144] "
  488. 14037 print"[156][194]    weitere eingaben('j'/'n')      [194][144] "
  489. 14038 print"[156][194]                                   [194][144] "
  490. 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] "
  491. 14040 print"[156][144]                                     "
  492. 14041 get wa$
  493. 14042 if wa$="j"then 14000
  494. 14043 if wa$="n"then 10000
  495. 14044 goto 14041
  496. 15000 rem ------------adressen aendern
  497. 15001 rem ----------------------------
  498. 15002 gosub 10500:if z=0 then 10000
  499. 15003 zz=1
  500. 15004 gosub 50
  501. 15005 print""
  502. 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]"
  503. 15007 print"[154][194]                                   [194][144] "
  504. 15008 print"[154][194]         adressen aendern          [194][144] "
  505. 15009 print"[154][194]                                   [194][144] "
  506. 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] "
  507. 15011 print"[154][144]                                     "
  508. 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]"
  509. 15014 print"[156][194]                                   [194][144] "
  510. 15015 print"[156][194] - ------------------------------- [194][144] "
  511. 15016 print"[156][194] - ------------------------------- [194][144] "
  512. 15017 print"[156][194] - ------------------------------- [194][144] "
  513. 15018 print"[156][194] - ------------------------------- [194][144] "
  514. 15019 print"[156][194] - ------------------------------- [194][144] "
  515. 15020 print"[156][194] - ------------------------------- [194][144] "
  516. 15021 print"[156][194] - ------------------------------- [194][144] "
  517. 15022 print"[156][194]                                   [194][144] "
  518. 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] "
  519. 15024 print"[156][144]                                     "
  520. 15025 print"[145][145][145][145][145][145][145][145][145][145][145]"
  521. 15026 fori=1to7
  522. 15027 print"[156]";i;f$(i);d$(zz,i)
  523. 15028 next
  524. 15029 get x$:if x$="" then 15029
  525. 15030 if asc(x$)<133 or asc(x$)>136 then 15029
  526. 15031 if asc(x$)=136 then 10000
  527. 15032 if asc(x$)=133 and zz<z then zz=zz+1:goto 15004
  528. 15033 if asc(x$)=134 and zz>1 then zz=zz-1:goto 15004
  529. 15034 if asc(x$)=135 then 15036
  530. 15035 goto 15029
  531. 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]"
  532. 15037 print"[158][194]bitte geben sie die feldnummer ein![194][144] "
  533. 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] "
  534. 15039 print"[158][144]                                     "
  535. 15040 get fx$
  536. 15041 if fx$="1"then x=1:goto 15050
  537. 15042 if fx$="2"then x=2:goto 15050
  538. 15043 if fx$="3"then x=3:goto 15050
  539. 15044 if fx$="4"then x=4:goto 15050
  540. 15045 if fx$="5"then x=5:goto 15050
  541. 15046 if fx$="6"then x=6:goto 15050
  542. 15047 if fx$="7"then x=7:goto 15050
  543. 15048 goto 15040
  544. 15050 input"[144]neuer inhalt:";d$(zz,x)
  545. 15051 goto 15004
  546. 16000 rem ------------adressen loeschen
  547. 16001 rem -----------------------------
  548. 16002 gosub 10500:if z=0 then 10000
  549. 16003 gosub 50
  550. 16004 print""
  551. 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]"
  552. 16006 print"[154][194]                                   [194][144] "
  553. 16007 print"[154][194]         adressen loeschen         [194][144] "
  554. 16008 print"[154][194]                                   [194][144] "
  555. 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] "
  556. 16010 print"[154][144]                                     "
  557. 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]"
  558. 16012 print"[156][194]                                   [194][144] "                
  559. 16013 print"[156][194] zum loeschen einzelner adressen,  [194][144] "
  560. 16014 print"[156][194] geben sie bitte im unteren teil   [194][144] "
  561. 16015 print"[156][194] name und vorname ein.soll die     [194][144] "
  562. 16016 print"[156][194] adresse jedoch fuer immer         [194][144] "
  563. 16017 print"[156][194] geloescht sein,muessen sie nach   [194][144] "
  564. 16018 print"[156][194] dem loeschen die daten speichern! [194][144] "
  565. 16019 print"[156][194]                                   [194][144] "
  566. 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] "
  567. 16021 print"[156][144]                                     "
  568. 16022 print
  569. 16023 input"[144]vorname :";d1$
  570. 16024 input"[144]nachname:";d2$
  571. 16025 x=1
  572. 16026 if d$(x,2)=d1$ and d$(x,3)=d2$ then 16030
  573. 16027 if x<z then x=x+1:goto 16026
  574. 16028 gosub 10210:goto 10000
  575. 16030 print""
  576. 16031 gosub 50
  577. 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]"
  578. 16033 print"[154][194]                                   [194][144] "
  579. 16034 print"[154][194]                                   [194][144] "
  580. 16035 print"[154][194]                                   [194][144] "
  581. 16036 print"[154][194]                                   [194][144] "
  582. 16037 print"[154][194]                                   [194][144] "
  583. 16038 print"[154][194]                                   [194][144] "
  584. 16039 print"[154][194]                                   [194][144] "
  585. 16040 print"[154][194]                                   [194][144] "
  586. 16041 print"[154][194]                                   [194][144] "
  587. 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] "
  588. 16043 print"[154][144]                                     "
  589. 16044 print""
  590. 16045 fori=1to7
  591. 16046 print"";f$(i);d$(x,i)
  592. 16047 next
  593. 16048 fori=1to5000:next
  594. 16049 print""
  595. 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]"
  596. 16051 print"[158][194]                                   [194][144] "
  597. 16052 print"[158][194] soll ich diese adresse loeschen ? [194][144] "
  598. 16053 print"[158][194]                                   [194][144] "
  599. 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] "
  600. 16055 print"[158][144]                                     "
  601. 16056 get wa$
  602. 16057 if wa$="j"then 16060
  603. 16058 if wa$="n"then 10000
  604. 16059 goto 16056
  605. 16060 for y=x to z-1
  606. 16061 fori=1to7
  607. 16062 d$(y,i)=d$(y+1,i)
  608. 16063 nexti:next y
  609. 16064 z=z-1
  610. 16065 goto 10000
  611. 17000 rem ------------adressen ausgeben
  612. 17001 rem -----------------------------
  613. 17002 gosub 10500
  614. 17003 if z=0 then 10000
  615. 17004 gosub 17005:goto 17020
  616. 17005 gosub 50
  617. 17006 print""
  618. 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]"
  619. 17008 print"[154][194]                                   [194][144] "
  620. 17009 print"[154][194]        adressen ausgeben:         [194][144] "
  621. 17010 print"[154][194]                                   [194][144] "
  622. 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] "
  623. 17012 print"[154][144]                                     "
  624. 17013 return
  625. 17020 print""
  626. 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]"
  627. 17022 print"[158][194]drucker oder bildschirm ('d'/'b') ?[194][144] "
  628. 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] "
  629. 17024 print"[158][144]                                     "
  630. 17025 get g$
  631. 17026 if g$="d"then open 1,4:goto 17030
  632. 17027 if g$="b"then 17030
  633. 17028 goto 17025
  634. 17030 gosub 17005
  635. 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]"
  636. 17032 print"[156][194]                                   [194][144] "
  637. 17033 print"[156][194] bitte geben sie unten einige      [194][144] "
  638. 17034 print"[156][194] begriffe ein,nach denen der       [194][144] "
  639. 17035 print"[156][194] computer suchen soll,damit sie    [194][144] "
  640. 17036 print"[156][194] nicht alle adressen absuchen      [194][144] "
  641. 17037 print"[156][194] muessen.                          [194][144] "
  642. 17038 print"[156][194]                                   [194][144] "
  643. 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] "
  644. 17040 print"[156][144]                                     "
  645. 17041 print"bitte geben sie suchbegriffe ein:"
  646. 17042 fori=1to7:s$(i)="":next
  647. 17043 fori=1to7
  648. 17044 print f$(i);
  649. 17045 input s$(i)
  650. 17046 next
  651. 17047 fory=1toz
  652. 17048 s=0
  653. 17049 fori=1to7
  654. 17050 if s$(i)="" then s=s+1:goto 17052
  655. 17051 if left$(d$(y,i),len(s$(i)))=s$(i) then s=s+1
  656. 17052 next i
  657. 17053 if s<>7 then 17069
  658. 17054 if g$="d"then print#1
  659. 17055 if g$="b"then gosub 17005:print
  660. 17056 fori=1to7
  661. 17057 if g$="b"then print f$(i);d$(y,i)
  662. 17058 if g$="d"then print#1,f$(i);d$(y,i)
  663. 17059 next i
  664. 17060 if g$="d"then 17069
  665. 17061 print""
  666. 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]"
  667. 17063 print"[158][194]                                   [194][144] "
  668. 17064 print"[158][194]   bitte druecken sie eine taste   [194][144] "
  669. 17065 print"[158][194]                                   [194][144] "
  670. 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] "
  671. 17067 print"[158][144]                                     "
  672. 17068 wait 198,1:poke 198,0
  673. 17069 next y
  674. 17070 gosub 17005
  675. 17071 print
  676. 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]"
  677. 17073 print"[194]                                   [194][144] "
  678. 17074 print"[194] keine weiteren adressen vorhanden [194][144] "
  679. 17075 print"[194]                                   [194][144] "
  680. 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] "
  681. 17077 print"[144]                                     "
  682. 17078 wait 198,1:poke 198,0
  683. 17079 if g$="d"then close 1
  684. 17080 goto 10000
  685. 18000 rem ---------------------zurueck
  686. 18001 rem ----------------------------
  687. 18002 print""
  688. 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]"
  689. 18004 print"[194]                                   [194][144] "
  690. 18005 print"[194] sind alle daten gespeichert (j/n) [194][144] "
  691. 18006 print"[194]                                   [194][144] "
  692. 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] "
  693. 18008 print"[144]                                     "
  694. 18009 get wa$
  695. 18010 if wa$="j"then 100
  696. 18011 if wa$="n"then 10000
  697. 18012 goto 18009
  698. 19000 rem ---------------dimensionieren
  699. 19001 rem -----------------------------
  700. 19002 dim d$(200,7)
  701. 19003 f$(1)="anrede        "
  702. 19004 f$(2)="vorname       "
  703. 19005 f$(3)="nachname      "
  704. 19006 f$(4)="strasse: :    "
  705. 19007 f$(5)="plz/wohnort   "
  706. 19008 f$(6)="telefonnummer "
  707. 19009 f$(7)="bemerkung     "
  708. 19010 return
  709. 20000 print"[147]"
  710. 20001 rem ----- druck text -----
  711. 20002 print""
  712. 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]"
  713. 20004 print"[154][194]                                   [194][144] "
  714. 20005 print"[154][194] --- mega-windows  textdrucker --- [194][144] "
  715. 20006 print"[154][194]                                   [194][144] "
  716. 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] "
  717. 20008 print"[154][144]                                     "
  718. 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]"
  719. 20010 print"[155][194]----[219]----[219]----[219]----[219]----[219]----[219]----[219][194][144] "
  720. 20011 print"[155][194]12345678901234567890123456789012345[194][144] "
  721. 20012 print"[155][194]         1         2         3     [194][144] "
  722. 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] "
  723. 20014 print"[155][144]                                     "
  724. 20015 print
  725. 20016 poke 19,1
  726. 20017 input">";a$
  727. 20018 if a$="*end*"then 100
  728. 20019 if a$<>"*end*"then 20030
  729. 20030 open 4,4
  730. 20031 print#4,a$
  731. 20032 close 4
  732. 20033 goto 20017
  733. 30000 print"[147]"
  734. 30001 gosub 50
  735. 30002 print""
  736. 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]"
  737. 30004 print"[154][194]                                   [194][144] "
  738. 30005 print"[154][194] - mega-windows  rechnerfunktion - [194][144] "
  739. 30006 print"[154][194]                                   [194][144] "
  740. 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] "
  741. 30008 print"[154][144]                                     "
  742. 30009 print
  743. 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]"
  744. 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] "
  745. 30012 print"[155][194][194]----------- -[194][194][144] [194]  eingeben     [194][144] "
  746. 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] "
  747. 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] "
  748. 30015 print"[155][194][194]7[194][194]8[194][194]9[194][194]*[194][194]/[194][194][144] [194]3.zweiten      [194][144] "
  749. 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] "
  750. 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] "
  751. 30018 print"[155][194][194]4[194][194]5[194][194]6[194][194]+[194][194]-[194][194][144] [194]4.ergebnis     [194][144] "
  752. 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] "
  753. 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] "
  754. 30021 print"[155][194][194]1[194][194]2[194][194]3[194][194]0[194][194]x[194][194][144] [144]                 "
  755. 30022 print"[155][171][219][195][189][173][195][189][173][195][189][173][195][189][202][195][219][179][144] "
  756. 30023 print"[155][173][177][195][195][195][195][195][195][195][195][195][195][195][195][195][177][189][144] "
  757. 30024 print"[155][144]                 "
  758. 30025 print
  759. 30026 input"1.faktor";a
  760. 30027 input"[145][154]rechenw.";rw$
  761. 30028 input"[145]2.faktor";b
  762. 30029 if left$(rw$,1)="+" then eg=a+b:goto 30035
  763. 30030 if left$(rw$,1)="-" then eg=a-b:goto 30035
  764. 30031 if left$(rw$,1)="*" then eg=a*b:goto 30035
  765. 30032 if left$(rw$,1)="/" then eg=a/b:goto 30035
  766. 30033 if left$(rw$,1)="x" then 100
  767. 30034 goto 30000
  768. 30035 print"[155]";a:fori=1to 1000:next
  769. 30036 print"[155]";left$(rw$,1):fori=1to1000:next
  770. 30037 print"[155]---------"
  771. 30038 print"[155]";b:fori=1to1000:next:print"[155]---------"
  772. 30039 print"[155]";eg
  773. 30040 print"[155][155]="
  774. 30041 wait 198,1:poke 198,0:goto 30000
  775. 33000 print"[147]"
  776. 33001 print"[158]mega-windows pausefunktion"
  777. 33002 print
  778. 33003 fori=1to3000:next:print"[147]"
  779. 33004 fori=1to192:print"[156]pause[146]";:next
  780. 33005 fori=1to3000:next:print""
  781. 33006 print"                         [223]"
  782. 33007 print"[145][146][223] [223]"
  783. 33008 print"[159]                       [223][146][223] [223]"
  784. 33009 print"[145][159][146][223] [223][146][223] [223][169]     "
  785. 33010 print"[159][146][223] [223][146][223] [223][169] [146][169]"
  786. 33011 print"[145][159][146][223] [223][146][223] [223][169] [146][169] [159][169]   "
  787. 33012 print"[159][146][223] [223][146][223]  [146][169] [159][169] [146][169]"
  788. 33013 print"[145][159][146][223] [223][146][223][146][169] [159][169] [146][169]"
  789. 33014 print"[159][146][223] [223][146][159][169] [146][169]"
  790. 33015 print"[145][159][146][223] [223][146][159][169] [146][169]"
  791. 33016 print"[159][146][223]  [146][169]"
  792. 33017 print"[145][159][146][223][146][169]"
  793. 33018 wait 198,1:poke 198,0:goto 100
  794. 34000 print""
  795. 34001 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  796. 34002 print"[154][194]                [194][144] "
  797. 34003 print"[154][194] -spezialmenue- [194][144] "
  798. 34004 print"[154][194]         [224]     [224][194][144] "
  799. 34005 print"[154][194] installieren   [194][144] "
  800. 34006 print"[154][194] copyright      [194][144] "
  801. 34007 print"[154][194] zurueck        [194][144] "
  802. 34008 print"[154][194]                [194][144] "
  803. 34009 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  804. 34010 print"[154][144]                  "
  805. 34011 print"[154][209][209]"
  806. 34012 print"[154]  "
  807. 34013 get a$
  808. 34014 if a$="[134]"then 34020
  809. 34015 if a$=chr$(13)then 34100
  810. 34016 goto 34013
  811. 34020 print"[154]  "
  812. 34021 print"[154][209][209]"
  813. 34022 print"[154]  "
  814. 34023 get a$
  815. 34024 if a$="[133]"then 34011
  816. 34025 if a$="[134]"then 34030
  817. 34026 if a$=chr$(13)then 34200
  818. 34027 goto 34023
  819. 34030 print"[154]  "
  820. 34031 print"[154][209][209]"
  821. 34032 get a$
  822. 34033 if a$="[133]"then 34020
  823. 34034 if a$=chr$(13)then 100
  824. 34035 goto 34032
  825. 34100 print""
  826. 34101 print"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  827. 34102 print"[156][194]disk einlegen![194][144] "
  828. 34103 print"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  829. 34104 print"[156][144]                "
  830. 34105 get a$
  831. 34106 if a$="q"then 100
  832. 34107 if a$<>"" and a$<>"q"then 34110
  833. 34108 goto 34105
  834. 34110 save"mega-windows/sc",8,1
  835. 34111 goto 100
  836. 34200 print""
  837. 34300 print""
  838. 34301 print"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  839. 34302 print"[158][194]              [194][144] "
  840. 34303 print"[158][194] copyright by [194][144] "
  841. 34304 print"[158][194]commodore-soft[194][144] "
  842. 34305 print"[158][194]  written by  [194][144] "
  843. 34306 print"[158][194]manuel pohl'93[194][144] "
  844. 34307 print"[158][194]              [194][144] "
  845. 34308 print"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  846. 34309 print"[158][144]                "
  847. 34310 wait 198,1:poke 198,0:goto 100
  848. 40000 print""
  849. 40001 print"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  850. 40002 print"[154][194]              [194][144] "
  851. 40003 print"[154][194] moechten sie [194][144] "
  852. 40004 print"[154][194] mega-windows [194][144] "
  853. 40005 print"[154][194]   wirklich   [194][144] "
  854. 40006 print"[154][194]   beenden?   [194][144] "
  855. 40007 print"[154][194]  'j' / 'n'   [194][144] "
  856. 40008 print"[154][194]              [194][144] "
  857. 40009 print"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
  858. 40010 print"[154][144]                "
  859. 40011 get a$
  860. 40012 if a$="j"then sys 64738
  861. 40013 if a$="n"then 100
  862. 40014 goto 40011
  863. 50000 print"";qy$
  864. 50001 return
  865.