home *** CD-ROM | disk | FTP | other *** search
/ Level 1998 August / Level_1998-08_cd.bin / Readers / Engine / WINDOWS.ZIP / WINDOWS1.BAS < prev   
Encoding:
BASIC Source File  |  1997-10-26  |  19.4 KB  |  447 lines
  1. 0 REM PROGRAM WINDOWS 1.111
  2. CLS
  3. COLOR 11, 4
  4. PRINT "                        VYBER JAZYKU/LANGUAGE MENU:                             "
  5. COLOR 12, 1
  6. PRINT "                             1-CESKY/CZECH.                                     "
  7. PRINT "                           2-ANGLICKY/ENGLISH.                                  "
  8. COLOR 15, 1
  9. PRINT "                                                                                "
  10. LOCATE 4, 1: INPUT A$
  11. COLOR 15, 8
  12. PALETTE 0, 0
  13. IF A$ = "2" THEN GOTO 1
  14. IF A$ = "1" THEN GOTO 6
  15. GOTO 0
  16. 1 CLS
  17. COLOR 11, 4
  18. PRINT "                            WINDOWS 1 STARTER:                                  "
  19. COLOR 12, 1
  20. PRINT "                            1-WINDOWS 1 START.                                  "
  21. PRINT "                         2-WINDOWS 1 INTRO START.                               "
  22. PRINT "                          3-WINDOWS1 INFO SETUP.                                "
  23. PRINT "                        q,Q-QUIT WINDOWS 1 STARTUP.                             "
  24. COLOR 3
  25. PRINT "                                                                                "
  26. PRINT "                 W i n d o w s  1   v e r s i o n  1 . 1 1 1.                   "
  27. PRINT "                                                                                "
  28. COLOR 5
  29. PRINT "                  Windows were started :"; DATE$; " "; TIME$; "                     "
  30. COLOR 15, 8
  31. INPUT A$
  32. IF A$ = "1" THEN GOTO 3
  33. IF A$ = "2" THEN GOTO 2
  34. IF A$ = "q" THEN GOTO 5
  35. IF A$ = "Q" THEN GOTO 5
  36. IF A$ = "3" THEN GOTO 4
  37. BEEP
  38. GOTO 1
  39. 5 CLS
  40. PALETTE 0, 8
  41. COLOR 12, 1
  42. PRINT "                           WINDOWS 1 WILL END...                                "
  43. COLOR 28, 6
  44. PRINT "                      Press Enter or any key to exit.                           "
  45. COLOR 15, 1
  46. PRINT "                                                                                "
  47. LOCATE 3, 1: INPUT A$
  48. COLOR 15, 8
  49. PALETTE 0, 0
  50. CLS
  51. END
  52. 2 CLS
  53. COLOR 12, 1
  54. Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
  55. PLAY Music$
  56. WHILE PLAY(0) > 5: WEND
  57. PRINT "┌──────────────────────────────────────────────────────────────────────────────┐"
  58. PRINT "│    ┌┐┌┐                    ┌─┐            ┌─┐                    ┌─┐         │"
  59. PRINT "│  ┌┐││││┌┐                  │ └┐          ┌┘ │                   ┌┘ │         │"
  60. PRINT "│  ││├┤├┤││┌┐┌─────────────┐ └┐ └┐        ┌┘ ┌┘                  ┌┘┌┐│         │"
  61. PRINT "│  ├┤││││├┤├┤│┌────┐ ┌────┐│  │  │  ┌──┐  │  │ ┌─┐  ┌─┐    ┌─┐   │┌┘││         │"
  62. PRINT "│  ││││││││││││    │ │    ││  └┐ │ ┌┘  └┐ │ ┌┘ └─┘  │ └┐   │ │   └┘ ││         │"
  63. PRINT "│  ││├┤││││││││    │ │    ││   │ │┌┘ ┌┐ └┐│ │  ┌─┐  │  └┐  │ │      ││         │"
  64. PRINT "│  ├┤││├┤├┤│││└────┘ └────┘│   │ └┘ ┌┘└┐ └┘ │  │ │  │   └┐ │ │      ││         │"
  65. PRINT "│  ││└┘└┘││├┤│┌────┐ ┌────┐│   └┐  ┌┘  └┐  ┌┘  │ │  │ ┌┐ └┐│ │      ││         │"
  66. PRINT "│  └┘    └┘││││    │ │    ││    │  │    │  │   │ │  │ │└┐ └┘ │      ││         │"
  67. PRINT "│          └┘│└────┘ └────┘│    │  │    │  │   │ │  │ │ └┐   │      ││ ┌─┐     │"
  68. PRINT "│            └─────────────┘    └──┘    └──┘   └─┘  └─┘  └───┘      └┘ └─┘     │"
  69. PRINT "│                                                                              │"
  70. COLOR 11
  71. PRINT "│                                                                              │"
  72. PRINT "│      W   W I NN    N DDD    OOO  W   W  SSS              1     1             │"
  73. PRINT "│      W W W I N N   N D  D  O   O W W W S                11    11             │"
  74. PRINT "│      W W W I N  N  N D  D  O   O W W W  SSS     V   V  1 1   1 1             │"
  75. PRINT "│      W W W I N   N N D  D  O   O W W W     S     V V     1     1             │"
  76. PRINT "│       W W  I N    NN DDD    OOO   W W   SSS       V      1 O   1 O           │"
  77. PRINT "│                                                                              │"
  78. PRINT "│                                                                              │"
  79. PRINT "└──────────────────────────────────────────────────────────────────────────────┘"
  80. COLOR 28, 7
  81. PRINT "Press any key to continue.                                                      "
  82. COLOR 15, 8
  83. PALETTE 0, 0
  84. INPUT A$
  85. GOTO 3
  86. 6 CLS
  87. COLOR 11, 4
  88. PRINT "                            STARTER WINDOWS 1:                                  "
  89. COLOR 12, 1
  90. PRINT "                            1-SPUSTIT WINDOWS1.                                 "
  91. PRINT "                         2-SPUSTIT INTRO WINDOWS1.                              "
  92. PRINT "                          3-INFO SETUP WINDOWSU1.                               "
  93. PRINT "                        k,K-UKONCI WINDOWS1 STARTER.                            "
  94. COLOR 3
  95. PRINT "                                                                                "
  96. PRINT "                   W i n d o w s  1   v e r z e  1 . 1 1 1.                     "
  97. PRINT "                                                                                "
  98. COLOR 5
  99. PRINT "                  Windows byl spusten :"; DATE$; " "; TIME$; "                      "
  100. COLOR 15, 8
  101. INPUT A$
  102. IF A$ = "1" THEN GOTO 3
  103. IF A$ = "2" THEN GOTO 8
  104. IF A$ = "k" THEN GOTO 9
  105. IF A$ = "K" THEN GOTO 9
  106. IF A$ = "3" THEN GOTO 10
  107. BEEP
  108. GOTO 6
  109. 9 CLS
  110. PALETTE 0, 8
  111. COLOR 12, 1
  112. PRINT "                         WINDOWS 1 BUDE UKONCEN...                              "
  113. COLOR 28, 6
  114. PRINT "            Zmacknete Enter nebo nejakou klavesu pro ukonceni.                  "
  115. COLOR 15, 1
  116. PRINT "                                                                                "
  117. LOCATE 3, 1: INPUT A$
  118. COLOR 15, 8
  119. PALETTE 0, 0
  120. CLS
  121. END
  122. 10 CLS
  123. COLOR 1, 7
  124. PRINT "                        INFORMACE O SETUPU WINDOWSU:                            "
  125. COLOR 3, 4
  126. PRINT "Windows info setup vas ma za ukol seznamit jak se ovlada tento program, ke spu- "
  127. PRINT "steni Windowsu 1.111. Je to vcelku jednoduche: Windows spustite s QBASICu poloz-"
  128. PRINT "kami FILE/OPEN-Windows1.bas/F5, nebo z dosu ci manazeru602 napsanim QBASIC /run "
  129. PRINT "windows.bas. Po setupu se pohybujete pismeny, nebo cisly.Piste ta, ktere vam na "
  130. PRINT "monitoru vypise pocitac.Pokud zmacknete jine, nic se nedeje, protoze se take za-"
  131. PRINT "zadna funkce neuskutecni.Pri zapnuti windowsu vam da pocitac vybrat, zda chcete "
  132. PRINT "aby na vas mluvil Cesky, nebo Anglicky.Po te co si vyberete, naskoci hlavni menu"
  133. PRINT "setupu, kde si muzete vybrat:Ukoncit windows, spustit windows, tyto informace a "
  134. PRINT "nebo spustit windows s intrem(windows 1.111+hudba).Zaroven se vam dole objevi   "
  135. PRINT "kdy a v kolik jste se dostali do hlavniho menu setupu(datum+cas).               "
  136. PRINT "Vice vam uz nemam co rici a pokud se toho chcete dozvedet vice, spustte si kurz "
  137. PRINT "pouziti windowsu, nebo napovedu primo v programu.                               "
  138. COLOR 12, 1
  139. PRINT "                                                                                "
  140. COLOR 28
  141. PRINT "                           Ted zmacknete Esc.                                   "
  142. DO
  143. LOOP UNTIL INKEY$ = CHR$(27)
  144. COLOR 15, 8
  145. PALETTE 0, 0
  146. GOTO 6
  147. 4 CLS
  148. COLOR 1, 7
  149. PRINT "                        WINDOWS SETUP INFORMATIONS:                             "
  150. COLOR 3, 4
  151. PRINT "Windows info setup got function teacher, you will learn: control and run this   "
  152. PRINT "program(windows v.1). Is the easily: Windows is runing at the QBASIC the icons: "
  153. PRINT "FILE/OPEN-Windiws1.bas/F5, or in dos or Manager602, you write: QBASIC /run      "
  154. PRINT "windows1.bas. In setup you will moved as letter or number.You write letter/numb-"
  155. PRINT "er in monitor(computer will writed).You will write otherwise key, none functions"
  156. PRINT "not runing.With power Windows, computer write on monitor menu and you press key "
  157. PRINT "for speaking Czech or English.Anglicky.Press Enter.Main Menu will write on moni-"
  158. PRINT "tor and is for menu: Stop Windows an end, run windows, this information, or run "
  159. PRINT "Windows1 v.1.111 with intro(windows1 1.111+music).Time and date for run windows "
  160. PRINT "will down on monitor(dates+times).Czech informations will in files of manager.  "
  161. COLOR 12, 1
  162. PRINT "                                                                                "
  163. COLOR 28
  164. PRINT "                         This moment press Esc.                                 "
  165. COLOR 1, 5
  166. PRINT "  In Windows 1 is not all in English.Only these text.Manager of Windows1 is in  "
  167. PRINT "      Czech language.You will learn my language, Czech language.Thank you.      "
  168. DO
  169. LOOP UNTIL INKEY$ = CHR$(27)
  170. COLOR 15, 8
  171. PALETTE 0, 0
  172. GOTO 1
  173. 8 CLS
  174. COLOR 12, 1
  175. Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
  176. PLAY Music$
  177. WHILE PLAY(0) > 5: WEND
  178. PRINT "┌──────────────────────────────────────────────────────────────────────────────┐"
  179. PRINT "│    ┌┐┌┐                    ┌─┐            ┌─┐                    ┌─┐         │"
  180. PRINT "│  ┌┐││││┌┐                  │ └┐          ┌┘ │                   ┌┘ │         │"
  181. PRINT "│  ││├┤├┤││┌┐┌─────────────┐ └┐ └┐        ┌┘ ┌┘                  ┌┘┌┐│         │"
  182. PRINT "│  ├┤││││├┤├┤│┌────┐ ┌────┐│  │  │  ┌──┐  │  │ ┌─┐  ┌─┐    ┌─┐   │┌┘││         │"
  183. PRINT "│  ││││││││││││    │ │    ││  └┐ │ ┌┘  └┐ │ ┌┘ └─┘  │ └┐   │ │   └┘ ││         │"
  184. PRINT "│  ││├┤││││││││    │ │    ││   │ │┌┘ ┌┐ └┐│ │  ┌─┐  │  └┐  │ │      ││         │"
  185. PRINT "│  ├┤││├┤├┤│││└────┘ └────┘│   │ └┘ ┌┘└┐ └┘ │  │ │  │   └┐ │ │      ││         │"
  186. PRINT "│  ││└┘└┘││├┤│┌────┐ ┌────┐│   └┐  ┌┘  └┐  ┌┘  │ │  │ ┌┐ └┐│ │      ││         │"
  187. PRINT "│  └┘    └┘││││    │ │    ││    │  │    │  │   │ │  │ │└┐ └┘ │      ││         │"
  188. PRINT "│          └┘│└────┘ └────┘│    │  │    │  │   │ │  │ │ └┐   │      ││ ┌─┐     │"
  189. PRINT "│            └─────────────┘    └──┘    └──┘   └─┘  └─┘  └───┘      └┘ └─┘     │"
  190. PRINT "│                                                                              │"
  191. COLOR 11
  192. PRINT "│                                                                              │"
  193. PRINT "│      W   W I NN    N DDD    OOO  W   W  SSS              1     1             │"
  194. PRINT "│      W W W I N N   N D  D  O   O W W W S                11    11             │"
  195. PRINT "│      W W W I N  N  N D  D  O   O W W W  SSS     V   V  1 1   1 1             │"
  196. PRINT "│      W W W I N   N N D  D  O   O W W W     S     V V     1     1             │"
  197. PRINT "│       W W  I N    NN DDD    OOO   W W   SSS       V      1 O   1 O           │"
  198. PRINT "│                                                                              │"
  199. PRINT "│                                                                              │"
  200. PRINT "└──────────────────────────────────────────────────────────────────────────────┘"
  201. COLOR 28, 7
  202. PRINT "Zmacknete nejakou klavesu pro pokracovani.                                      "
  203. COLOR 15, 8
  204. PALETTE 0, 0
  205. INPUT A$
  206. GOTO 3
  207. 3 CLS
  208. A = 11
  209. B = 14
  210. C = 12
  211. D = 15
  212. E = 7
  213. F = 3
  214. G = 9
  215. H = 1
  216. I = 4
  217. J = 10
  218. K = 2
  219. L = 4
  220. M = 1
  221. N = 14
  222. O = 13
  223. P = 15
  224. Q = 29
  225. R = 15
  226. S = 10
  227. T = 1
  228. U = 8
  229. V = 12
  230. W = 1
  231. X = 28
  232. Y = 10
  233. 11 CLS
  234. COLOR A, B
  235. PRINT "┌─┬────────────────────────────────────────────────────────────────────────────┐"
  236. PRINT "│-│                             Spravce Windowsu 1:                            │"
  237. PRINT "└─┴────────────────────────────────────────────────────────────────────────────┘"
  238. COLOR C, D
  239. PRINT "┌──────┬─────┬─────────┬────────┬─────────────────────┬─────┬┬┬┬───────────────┐"
  240. PRINT "│Soubor│Barvy│Informace│Napoveda│Kurs pouziti Windows1│Ikony├┼┼┤WINDOWS1v.1.111│"
  241. PRINT "└──────┴─────┴─────────┴────────┴─────────────────────┴─────┴┴┴┴───────────────┘"
  242. COLOR E, F
  243. PRINT "┌──────────────────────────────────────────────────────────────────────────────┐"
  244. PRINT "│                                                                              │"
  245. PRINT "│                                                                              │"
  246. PRINT "│                                                                              │"
  247. PRINT "│                                                                              │"
  248. PRINT "│                                                                              │"
  249. PRINT "│                                                                              │"
  250. PRINT "│                                                                              │"
  251. PRINT "│                                                                              │"
  252. PRINT "│                                                                              │"
  253. PRINT "│    ┌─────┐        ┌────┐      ┌──────┐     ┌────┐                            │"
  254. PRINT "│    │-----│        │----│      │ -\/- │     │ oo │                            │"
  255. PRINT "│    │-(1)-│        │----│      │ _II_ │     │ ^^ │                            │"
  256. PRINT "│    └─────┘        └────┘      └──────┘     └────┘                            │"
  257. PRINT "│  Hlavni Menu.    Aplikace.  Prislusenstvi.  Hry.                             │"
  258. PRINT "└──────────────────────────────────────────────────────────────────────────────┘"
  259. PALETTE 0, 0
  260. COLOR G, H
  261. PRINT "Windows 1:\>                                                                    "
  262. COLOR K, L
  263. LOCATE 5, 2: PRINT "S"
  264. LOCATE 5, 9: PRINT "B"
  265. LOCATE 5, 23: PRINT "e"
  266. LOCATE 5, 25: PRINT "N"
  267. LOCATE 5, 34: PRINT "K"
  268. LOCATE 5, 56: PRINT "I"
  269. COLOR O, P
  270. LOCATE 5, 3: PRINT "oubor"
  271. LOCATE 5, 10: PRINT "arvy"
  272. LOCATE 5, 15: PRINT "Informac"
  273. LOCATE 5, 26: PRINT "apoveda"
  274. LOCATE 5, 35: PRINT "urz pouziti Windows1"
  275. LOCATE 5, 57: PRINT "kony"
  276. COLOR Q, R
  277. LOCATE 5, 65: PRINT "WINDOWS1v.1.111 "
  278. COLOR C, D
  279. LOCATE 5, 80: PRINT "│"
  280. COLOR M, N
  281. LOCATE 2, 33: PRINT "Spravce Windowsu 1:"
  282. COLOR I, J
  283. LOCATE 17, 31: PRINT "   ┌──────┐   "
  284. LOCATE 18, 31: PRINT "   │ -\/- │   "
  285. LOCATE 19, 31: PRINT "   │ _II_ │   "
  286. LOCATE 20, 31: PRINT "   └──────┘   "
  287. LOCATE 21, 31: PRINT "Prislusenstvi."
  288. LOCATE 17, 4: PRINT "   ┌─────┐  "
  289. LOCATE 18, 4: PRINT "   │-----│  "
  290. LOCATE 19, 4: PRINT "   │-(1)-│  "
  291. LOCATE 20, 4: PRINT "   └─────┘  "
  292. LOCATE 21, 4: PRINT "Hlavni Menu."
  293. LOCATE 17, 20: PRINT " ┌────┐  "
  294. LOCATE 18, 20: PRINT " │----│  "
  295. LOCATE 19, 20: PRINT " │----│  "
  296. LOCATE 20, 20: PRINT " └────┘  "
  297. LOCATE 21, 20: PRINT "Aplikace."
  298. LOCATE 17, 46: PRINT "┌────┐"
  299. LOCATE 18, 46: PRINT "│ oo │"
  300. LOCATE 19, 46: PRINT "│ ^^ │"
  301. LOCATE 20, 46: PRINT "└────┘"
  302. LOCATE 21, 46: PRINT " Hry. "
  303. COLOR G, H
  304. LOCATE 23, 13: INPUT A$
  305. COLOR 5, 8
  306. IF A$ = "-" THEN GOTO 12
  307. IF A$ = "r" THEN GOTO 13
  308. IF A$ = "R" THEN GOTO 13
  309. IF A$ = "U" THEN GOTO 14
  310. IF A$ = "u" THEN GOTO 14
  311. IF A$ = "z" THEN GOTO 15
  312. IF A$ = "Z" THEN GOTO 15
  313. GOTO 11
  314. 12 COLOR S, T
  315.  LOCATE 3, 2: PRINT "┌───────────────────────┬─┐"
  316.  LOCATE 4, 2: PRINT "│Zavrit Spravce Windowsu│Z│"
  317.  LOCATE 5, 2: PRINT "├───────────────────────┼─┤"
  318.  LOCATE 6, 2: PRINT "│Ukoncit program Windows│U│"
  319.  LOCATE 7, 2: PRINT "├───────────────────────┼─┤"
  320.  LOCATE 8, 2: PRINT "│Restartovat Windows1v.1│R│"
  321.  LOCATE 9, 2: PRINT "├───────────────────────┼─┤"
  322. LOCATE 10, 2: PRINT "│Navrat zpet do Spravce.│N│"
  323. LOCATE 11, 2: PRINT "└───────────────────────┴─┘"
  324. COLOR U, T
  325. LOCATE 4, 3: PRINT "Zavrit Spravce Windowsu"
  326. LOCATE 6, 3: PRINT "Ukoncit program Windows"
  327. LOCATE 8, 3: PRINT "Restartovat Windows1v.1"
  328. LOCATE 10, 3: PRINT "Navrat zpet do Spravce."
  329. COLOR K, T
  330. LOCATE 4, 27: PRINT "Z"
  331. LOCATE 6, 27: PRINT "U"
  332. LOCATE 8, 27: PRINT "R"
  333. LOCATE 10, 27: PRINT "N"
  334. COLOR G, H
  335. LOCATE 23, 13: INPUT A$
  336. IF A$ = "N" THEN GOTO 11
  337. IF A$ = "n" THEN GOTO 11
  338. IF A$ = "R" THEN GOTO 13
  339. IF A$ = "r" THEN GOTO 13
  340. IF A$ = "U" THEN GOTO 14
  341. IF A$ = "u" THEN GOTO 14
  342. IF A$ = "z" THEN GOTO 15
  343. IF A$ = "Z" THEN GOTO 15
  344. GOTO 12
  345. 13 COLOR V, W
  346.  LOCATE 9, 30: PRINT "┌───────────────────────────┐"
  347. LOCATE 10, 30: PRINT "│                           │"
  348. LOCATE 11, 30: PRINT "├───────────────────────────┤"
  349. LOCATE 12, 30: PRINT "│                           │"
  350. LOCATE 13, 30: PRINT "│                           │"
  351. LOCATE 14, 30: PRINT "│                           │"
  352. LOCATE 15, 30: PRINT "│                           │"
  353. LOCATE 16, 30: PRINT "└───────────────────────────┘"
  354. COLOR X, W
  355. LOCATE 10, 34: PRINT "U P O Z O R N E N I !"
  356. COLOR Y, W
  357.  LOCATE 11, 31: PRINT "Pokud restartujete Windows,"
  358.  LOCATE 12, 31: PRINT "budou vsechny barvy vraceny"
  359.  LOCATE 13, 31: PRINT "do standartu a bude Windows"
  360.  LOCATE 14, 31: PRINT "spusten znova."
  361.  LOCATE 15, 31: PRINT "------Restartovat:a/n------"
  362. COLOR G, H
  363. LOCATE 23, 13: INPUT A$
  364. IF A$ = "N" THEN GOTO 11
  365. IF A$ = "n" THEN GOTO 11
  366. IF A$ = "A" THEN GOTO 0
  367. IF A$ = "a" THEN GOTO 0
  368. GOTO 13
  369. 14 COLOR V, W
  370.  LOCATE 9, 30: PRINT "┌───────────────────────────┐"
  371. LOCATE 10, 30: PRINT "│                           │"
  372. LOCATE 11, 30: PRINT "├───────────────────────────┤"
  373. LOCATE 12, 30: PRINT "│                           │"
  374. LOCATE 13, 30: PRINT "│                           │"
  375. LOCATE 14, 30: PRINT "└───────────────────────────┘"
  376. COLOR X, W
  377. LOCATE 10, 34: PRINT "UKONCENI WINDOWSU 1 !"
  378. COLOR Y, W
  379.  LOCATE 12, 31: PRINT "Toto je konec vasi prace?"
  380.  LOCATE 13, 31: PRINT "------------a/n------------"
  381. COLOR G, H
  382. LOCATE 23, 13: INPUT A$
  383. IF A$ = "N" THEN GOTO 11
  384. IF A$ = "n" THEN GOTO 11
  385. IF A$ = "A" THEN GOTO 9
  386. IF A$ = "a" THEN GOTO 9
  387. GOTO 14
  388. 15 COLOR V, W
  389.  LOCATE 9, 30: PRINT "┌───────────────────────────┐"
  390. LOCATE 10, 30: PRINT "│                           │"
  391. LOCATE 11, 30: PRINT "├───────────────────────────┤"
  392. LOCATE 12, 30: PRINT "│                           │"
  393. LOCATE 13, 30: PRINT "│                           │"
  394. LOCATE 14, 30: PRINT "└───────────────────────────┘"
  395. COLOR X, W
  396. LOCATE 10, 32: PRINT "UZAVRENI SPRAVCE WINDOWSU!"
  397. COLOR Y, W
  398.  LOCATE 12, 31: PRINT "Uzavrit Spravce Windowsu?"
  399.  LOCATE 13, 31: PRINT "------------a/n------------"
  400. COLOR G, H
  401. LOCATE 23, 13: INPUT A$
  402. IF A$ = "N" THEN GOTO 11
  403. IF A$ = "n" THEN GOTO 11
  404. IF A$ = "A" THEN GOTO 16
  405. IF A$ = "a" THEN GOTO 16
  406. GOTO 15
  407. 16 CLS
  408. PALETTE 0, 8
  409. PRINT "                                                                                "
  410. PRINT "                                                                                "
  411. PRINT "                                                                                "
  412. PRINT "                                                                                "
  413. PRINT "                                                                                "
  414. PRINT "                                                                                "
  415. PRINT "                                                                                "
  416. PRINT "                                                                                "
  417. PRINT "                                                                                "
  418. PRINT "                                                                                "
  419. PRINT "                                                                                "
  420. PRINT "                                                                                "
  421. PRINT "                                                                                "
  422. PRINT "                                                                                "
  423. PRINT "                                                                                "
  424. PRINT "                                                                                "
  425. PRINT "                                                                                "
  426. PRINT "                                                                                "
  427. PRINT "                                                                                "
  428. PRINT "                                                                                "
  429. COLOR 3, 5
  430. LOCATE 22, 9: PRINT "Spravce Windowsu"
  431. COLOR 12, 5
  432. LOCATE 22, 9: PRINT "S"
  433. COLOR 0, 1
  434. INPUT A$
  435. IF A$ = "s" THEN GOTO 11
  436. IF A$ = "S" THEN GOTO 11
  437. GOTO 16
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.