home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 34 / 64er_Magazin_Sonderheft_34_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / digitaltechnik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  550 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem * ausbildungsarbeit:            *
  4. 4 rem * lernprogramm-digitaltechnik-1 *
  5. 5 rem *                               *
  6. 6 rem * erstellt-n.winterhalter-      *
  7. 7 rem * 1.is-et 1987/88               *
  8. 8 rem *                               *
  9. 9 rem * ausbildungswerkstatt-w.epting *
  10. 10 rem * s.siedle &.soehne            *
  11. 11 rem * 7743 furtwangen 1,bregstr.1  *
  12. 12 rem *                              *
  13. 13 rem ********************************
  14. 15 poke53280,0
  15. 20 poke53281,0
  16. 30 print""
  17. 40 print"[147]"
  18. 42 poke657,128:poke792,193:poke788,52
  19. 45 dimx(16):zz=15:                         fori=0to15:x(i)=i:next
  20. 50 a=1591:b=1831:z=1680:g=1716
  21. 55 gosub20000
  22. 60 goto12000
  23. 200 print" 'a' eingang a setzen oder ruecksetzen":print
  24. 210 print" 'b' eingang b setzen oder ruecksetzen":print
  25. 220 print" 'f' funktion erkannt":return
  26. 300 rem ** untermenue gatter **
  27. 310 print" 'a' eingang a setzen oder ruecksetzen":print
  28. 320 print" 'b' eingang b setzen oder ruecksetzen":print
  29. 330 print" 'm' menue":gosub940:return
  30. 340 rem ** warteschleife **
  31. 345 fori=1to90:next:return
  32. 360 forii=1to150:nextii:return
  33. 400 rem  ** tabelle fuellen **
  34. 410 ifpeek(a)=48andpeek(b)=48then435
  35. 415 ifpeek(a)=49andpeek(b)=48then440
  36. 420 ifpeek(a)=48andpeek(b)=49then445
  37. 425 ifpeek(a)=49andpeek(b)=49then450
  38. 430 return
  39. 435 t=1656:return
  40. 440 t=1736:return
  41. 445 t=1816:return
  42. 450 t=1896:return
  43. 580 rem ** gatter generell  **                  ** p=zeile q=spalte **
  44. 590 gosub800
  45. 600 print"   ? [176][192][192][192][192][174] "   :gosub800
  46. 610 print"a [192][192][192][179]    [194] "   :gosub800
  47. 620 print"     [194]    [194] ?"   :gosub800
  48. 630 print"     [194]    [171][192][192] z" :gosub800
  49. 635 print"     [194]    [194]  "   :gosub800
  50. 640 print"b [192][192][192][179]    [194]  "  :gosub800
  51. 645 print"   ? [173][192][192][192][192][189]
  52. 665 [142]
  53. 670 [143] ** tabelle          **                  ** p=zeile:q=spalte **
  54. 690 [141]800
  55. 700 [153]"  peek apeek bpeek z peek ":[141]800
  56. 710 [153]"tantan(NULL)tantan(NULL)tantan(NULL)tantantan< ":[141]800
  57. 720 [153]"1.peek 0peek 0peek   peek ":[141]800
  58. 730 [153]"  peek  peek  peek   peek ":[141]800
  59. 740 [153]"2.peek 1peek 0peek   peek ":[141]800
  60. 750 [153]"  peek  peek  peek   peek ":[141]800
  61. 760 [153]"3.peek 0peek 1peek   peek ":[141]800
  62. 770 [153]"  peek  peek  peek   peek ":[141]800
  63. 780 [153]"4.peek 1peek 1peek   peek ":[141]800
  64. 790 [142]
  65. 800 p[178]p[170]1:[151]211,q:[151]214,p:[158]58732:     [142]
  66. 805 [143] ** gatter 1 eingang **                  ** p=zeile q=spalte **
  67. 807 [141]800
  68. 810 [153]"     ortantantantan^ "   :[141]800
  69. 815 [153]"     peek    peek "   :[141]800
  70. 817 [139]h[177][178]0[167]920
  71. 820 [153]"   ? peek    peek ?"   :[141]800
  72. 825 [153]"  tantantan<    -tantan z" :[141]800
  73. 830 [153]"     peek    peek  "  :[141]800
  74. 835 [153]"     peek    peek  "  :[141]800
  75. 840 [153]"     /tantantantanexp
  76. 845 return
  77. 920 print"     [194]    [194]  "   :gosub800
  78. 925 print"     [194]    [171][192][192] z" :gosub800:       goto830
  79. 940 fori=1985to1995:pokei,peek(i+47261):    next:return
  80. 1000 rem ** und-nand-in/a-in/b-gatter **
  81. 1010 print"[147]":p=-1:q=0:gosub800
  82. 1012 ife=0then1020
  83. 1014 ife=1then1018
  84. 1016 ife=2then1022
  85. 1017 ife=3then1025
  86. 1018 print"         *** [146] nand-gatter  ***          [146]":goto1030
  87. 1020 print"         *** [146] und-gatter  ***           [146]":goto1030
  88. 1022 print"    *** [146] inhibitions-gatter a   ***     [146]":goto1030
  89. 1025 print"    *** [146] inhibitions-gatter b   ***     [146]":goto1030
  90. 1030 p=4:q=0:gosub800:gosub310
  91. 1080 p=13:q=4 :gosub590:                     p=12:q=22:gosub690
  92. 1090 pokeg,38
  93. 1092 ife=2then1160
  94. 1094 ife=3then1170
  95. 1100 ife=0then1120
  96. 1110 pokeg+2,87
  97. 1120 j=peek(203)
  98. 1125 ifj=36andy=0then15000
  99. 1130 ifj=10then1200
  100. 1135 ifj=21andy=80thenreturn
  101. 1140 ifj=28then1250
  102. 1145 ifj=49andy=0thengosub11000
  103. 1150 goto1120
  104. 1160 pokeg-83,87:goto1120
  105. 1170 pokeg+77,87:goto1120
  106. 1200 ifpeek(a)=49orpeek(a)=63then1220
  107. 1210 pokea,49:goto1230
  108. 1220 pokea,48
  109. 1230 gosub345:goto8010
  110. 1250 ifpeek(b)=49orpeek(b)=63then1270
  111. 1260 pokeb,49:goto1280
  112. 1270 pokeb,48
  113. 1280 gosub345:goto8010
  114. 1300 rem ** oder-nor-im/a-im/b-gatter **
  115. 1310 print"[147]":p=-1:q=0:gosub800
  116. 1312 iff=0then1320
  117. 1313 iff=2then1322
  118. 1314 iff=3then1324
  119. 1317 print"         *** [146] nor-gatter  ***           [146]":goto1330
  120. 1320 print"         *** [146] oder-gatter  ***          [146]":goto1330
  121. 1322 print"    *** [146] implikations-gatter a  ***     [146]":goto1330
  122. 1324 print"    *** [146] implikations-gatter b  ***     [146]":goto1330
  123. 1330 p=4:q=0:gosub800:gosub310
  124. 1380 p=13:q=4 :gosub590:                     p=12:q=22:gosub690
  125. 1390 pokeg+39,99:pokeg-1,62:                 pokeg,49
  126. 1392 iff=2then1460
  127. 1394 iff=3then1470
  128. 1400 iff=0then1420
  129. 1410 pokeg+2,87
  130. 1420 j=peek(203)
  131. 1425 ifj=36andy=0then15000
  132. 1430 ifj=10then1500
  133. 1435 ifj=21andy=80thenreturn
  134. 1440 ifj=28then1550
  135. 1445 ifj=49andy=0thengosub11000
  136. 1450 goto1420
  137. 1460 pokeg-83,87:goto1420
  138. 1470 pokeg+77,87:goto1420
  139. 1500 ifpeek(a)=49orpeek(a)=63then1520
  140. 1510 pokea,49:goto1530
  141. 1520 pokea,48
  142. 1530 gosub345:goto8050
  143. 1550 ifpeek(b)=49orpeek(b)=63then1570
  144. 1560 pokeb,49:goto1580
  145. 1570 pokeb,48
  146. 1580 gosub345:goto8050
  147. 1600 rem ** neg/a-neg/b-id/a-id/b **
  148. 1610 print"[147]":p=-1:q=0:h=-1:gosub800
  149. 1611 xx=1671
  150. 1612 ifn<3then1615
  151. 1614 print"     *** [146] identitaets-gatter    ***     [146]":goto1620
  152. 1615 print"      *** [146] negations-gatter    ***      [146]"
  153. 1620 p=4:q=0:gosub800
  154. 1625 print" ' ' eingang   setzen oder ruecksetzen":print
  155. 1630 print" 'm' menue":gosub940
  156. 1631 p=13:q=4 :gosub807
  157. 1632 ifn<3then1634
  158. 1633 pokez+35,103:pokez+36,62:goto1635
  159. 1634 pokez+36,49
  160. 1635 p=12:q=22:gosub690
  161. 1636 ifn<3then1639
  162. 1637 poke1708,n-2:poke1053,n-2:              poke1226,n-2:poke1237,n-2:goto1640
  163. 1639 poke1708,n:poke1052,n:poke1226,n:       poke1237,n:poke1718,87
  164. 1640 j=peek(203)
  165. 1642 ifj=36andy=0then15000
  166. 1643 ifj=21andy=80thenreturn
  167. 1645 ifj=10andn=1then1655
  168. 1647 ifj=28andn=2then1655
  169. 1648 ifj=10andn=3then1666
  170. 1649 ifj=28andn=4then1666
  171. 1650 ifj=49andy=0thengosub11000
  172. 1652 goto1640
  173. 1655 gosub1667:r=0
  174. 1657 ifpeek(xx)=63orpeek(xx)=49              then1664
  175. 1660 pokexx,49  :pokez,48+r:                 poke1736+u,48+r
  176. 1661 poke1896,peek(1816-v):                  gosub345:goto1640
  177. 1664 pokexx,48  :pokez,49-r:                 poke1816-u,49-r
  178. 1665 poke1656,peek(1736+v):                  gosub345:goto1640
  179. 1666 r=1:gosub1667:goto1657
  180. 1667 ifn=2orn=4then1669
  181. 1668 u=0:v=80:return
  182. 1669 u=80:v=0:return
  183. 1670 rem ** ex-or-aeq.-gatter **
  184. 1675 print"[147]":p=-1:q=0:gosub800
  185. 1676 ifl=0then1680
  186. 1677 print"      *** [146] aequivalenz-gatter  ***      [146]":goto1685
  187. 1680 print"         *** [146] ex-or-gatter  ***         [146]"
  188. 1685 p=4:q=0:gosub800:gosub310
  189. 1690 p=13:q=4 :gosub590:                     p=12:q=22:gosub690
  190. 1692 ifl=0then1695
  191. 1694 pokeg,61:goto1700
  192. 1695 pokeg-1,61:pokeg,49
  193. 1700 j=peek(203)
  194. 1702 ifj=36andy=0then15000
  195. 1705 ifj=10then1720
  196. 1707 ifj=21andy=80thenreturn
  197. 1710 ifj=28then1740
  198. 1712 ifj=49andy=0thengosub11000
  199. 1715 goto1700
  200. 1720 ifpeek(a)=49orpeek(a)=63then1730
  201. 1725 pokea,49:goto1735
  202. 1730 pokea,48
  203. 1735 gosub345:goto8080
  204. 1740 ifpeek(b)=49orpeek(b)=63then1750
  205. 1745 pokeb,49:goto1755
  206. 1750 pokeb,48
  207. 1755 gosub345:goto8080
  208. 1759 rem ** konstant-gatter **
  209. 1760 print"[147]":p=-1:q=0:gosub800
  210. 1765 ifh=0then1775
  211. 1770 print"      *** [146] konstant-gatter 1  ***     [146]":goto1780
  212. 1775 print"      *** [146] konstant-gatter 0  ***     [146]"
  213. 1780 p=4:q=15:gosub800:print"'m' menue"
  214. 1785 p=13:q=0 :gosub807:                     p=12:q=22:gosub690
  215. 1790 pokez-4,h+48
  216. 1795 fori=0to240step80:poke1656+i,h+48:      nexti
  217. 1800 j=peek(203)
  218. 1803 ifj=21andy=80thenreturn
  219. 1805 ifj=36andy=0then15000
  220. 1807 ifj=49andy=0thengosub11000
  221. 1810 goto1800
  222. 8000 rem ** und,nand,in/a,in/b **                ** z,t setzen         **
  223. 8010 ifpeek(a)=63orpeek(b)=63then1120
  224. 8011 ife=2then8032
  225. 8012 ife=3then8034
  226. 8015 s=(peek(a)-48andpeek(b)-48)+48
  227. 8020 ife=1thens=sgn(abs(s-49))+48
  228. 8025 pokez,s:gosub410:poket,peek(z)
  229. 8030 goto1120
  230. 8032 s=(not(peek(a)-48)andpeek(b)-48)+48     :goto8025
  231. 8034 s=(peek(a)-48andnot(peek(b)-48))+48     :goto8025
  232. 8040 rem ** oder,nor,im/a,im/b **                ** z,t setzen         **
  233. 8050 ifpeek(a)=63orpeek(b)=63then1420
  234. 8052 iff=2then8072
  235. 8054 iff=3then8074
  236. 8060 s=(peek(a)-48or(peek(b)-48))+48
  237. 8065 iff=1thens=sgn(abs(s-49))+48
  238. 8067 pokez,s:gosub410:poket,peek(z)
  239. 8070 goto1420
  240. 8072 s=(not(peek(a)-48)orpeek(b)-48)+50      :goto8067
  241. 8074 s=(peek(a)-48ornot(peek(b)-48))+50      :goto8067
  242. 8075 rem ** ex-or,aeq. **                        ** z,t setzen **
  243. 8080 ifpeek(a)=63orpeek(b)=63then1700
  244. 8085 s=((peek(a)-48andnot(peek(b)-48))or     (not(peek(a)-48)andpeek(b)-48))+48
  245. 8086 ifl=1thens=sgn(abs(s-49))+48
  246. 8090 pokez,s:gosub410:poket,peek(z)
  247. 8095 goto1700
  248. 10000 print"[147]":p=-1:q=0:gosub800
  249. 10010 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]":gosub800
  250. 10020 print"[194] ** lernprogramm-digitaltechnik-1 ** [194][146]":gosub800
  251. 10030 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]":gosub800
  252. 10040 gosub10200
  253. 10050 print"[194][146] der ausb.-berufe 'iege'             [194][146]":gosub800
  254. 10060 gosub10200
  255. 10070 print"[194][146] und 'kein' im 2.a.-jahr.            [194][146]":gosub800
  256. 10080 gosub10200
  257. 10090 print"[194][146] ausb.-werkstatt/w.epting            [194][146]":gosub800
  258. 10100 gosub10200:gosub22000:p=9:q=0:gosub800
  259. 10105 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]":gosub800
  260. 10110 gosub10200
  261. 10115 print"[194][146] 1 grundfunktionen erlernen          [194][146]":gosub800
  262. 10120 gosub10200
  263. 10125 gosub10200
  264. 10130 print"[194][146] 2 grundfunktionen ueberpuefen       [194][146]":gosub800
  265. 10135 gosub10200
  266. 10140 gosub10200
  267. 10145 print"[194][146] 3 ende                              [194][146]":gosub800
  268. 10150 gosub10200
  269. 10155 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]":gosub800
  270. 10160 print"[194] erstellt von n.winterhalter 1.is-et [194][146]":gosub800
  271. 10165 print"[194]                                     [194][146]":gosub800
  272. 10170 print"[194] s.siedle &.s. 7743 furtwangen, 1988 [194][146]":gosub800
  273. 10175 poke1984,237:fori=1985to2021:pokei,192:next:poke2022,253
  274. 10180 return
  275. 10200 print"[194][146]                                     [194][146]":gosub800:return
  276. 11000 print"":poke768,114:poke769,192:       poke49276,0
  277. 11010 open3,4
  278. 11020 cmd3:print#3
  279. 11030 close3
  280. 11040 ifpeek(49276)=1then11060
  281. 11050 sys49152
  282. 11060 poke768,139:poke769,227:return
  283. 11100 sys49152:return
  284. 12000 poke53265,peek(53265)and239
  285. 12002 u=0:gosub10000
  286. 12004 poke53265,peek(53265)or16
  287. 12040 j=peek(203):u=u+1
  288. 12050 ifj=56then15000
  289. 12055 ifj=8 then12120
  290. 12060 ifj=59then12500
  291. 12062 ifu=30 thengosub12100
  292. 12064 ifu=35 thengosub12110
  293. 12070 goto12040
  294. 12100 poke1254,81:poke1255,81:return
  295. 12110 poke1254,87:poke1255,87:u=0:            return
  296. 12120 poke1334,85:poke1335,73
  297. 12130 poke1254,87:poke1255,87:                fori=1to2300:next
  298. 12140 poke792,71:poke657,0:poke788,49
  299. 12200 print"[147]":poke198,0:end
  300. 12500 print"[147]":p=-1:q=0:gosub800
  301. 12510 print"       *** [146] grundfunktionen  ***       [146]"
  302. 12520 p=4:q=7:gosub800
  303. 12530 print"1  wichtige informationen":       print
  304. 12540 print"          fuer erstbenutzer"
  305. 12550 p=10:q=7:gosub800
  306. 12560 print"2  start der ueberpruefung"
  307. 12570 p=14:q=7:gosub800
  308. 12580 print"3  menue":gosub345
  309. 12590 j=peek(203)
  310. 12600 ifj=56then18000
  311. 12610 ifj=59then13000
  312. 12620 ifj=8 then12000
  313. 12640 goto12590
  314. 13000 print"[147]":p=-1:q=0:gosub800
  315. 13010 print"       *** [146] grundfunktionen  ***       [146]"
  316. 13015 p=7:q=4:gosub800:y=80
  317. 13020 print"durch das druecken einer taste":print
  318. 13030 print"    wird eine der 16 grundfunktionen":print
  319. 13040 print"    nach dem zufallsprinzip aus-":print
  320. 13050 print"    gewaehlt.":print
  321. 13060 j=peek(203)
  322. 13070 ifj<>64then13100
  323. 13080 goto13060
  324. 13100 print"[147]"
  325. 13110 gosub14105
  326. 13120 gosub20800
  327. 13160 print"[147]":p=-1:q=0:gosub800
  328. 13170 print"       *** [146] grundfunktionen  ***       [146]"
  329. 13180 p=4:q=0:gosub800:gosub200
  330. 13190 p=13:q=4 :gosub20430:                   p=12:q=22:gosub690
  331. 13200 ify$="a"thengosub1120
  332. 13210 ify$="b"thengosub1420
  333. 13220 ify$="c"thengosub13246
  334. 13230 ify$="d"thengosub1700
  335. 13240 ify$="e"thengosub1795
  336. 13245 gosub13250:goto13320
  337. 13246 ifx=0orx=14thenxx=1671-80
  338. 13247 ifx=1orx=15thenxx=1671+160
  339. 13248 goto1640
  340. 13250 print"[147]":p=-1:q=0:gosub800
  341. 13260 print"       *** [146] grundfunktionen  ***       [146]":print:print
  342. 13280 fori=0to7:print;i;"  "left$(a$(i),13):print:nexti
  343. 13290 p=2:q=21:gosub800:print"8   "left$(a$(8),13)
  344. 13300 p=4:q=21:gosub800:print"9   "left$(a$(9),13)
  345. 13305 p=6:q=23:gosub800
  346. 13307 fori=0to5:poke1325+(i*80),i+1:poke55597+(i*80),peek(646)
  347. 13310 print"  "left$(a$(10+i),13):p=p+1:gosub800:nexti:return
  348. 13320 p=18:q=1 :gosub20520:                   p=18:q=28:gosub20590
  349. 13330 p=19:q=15:gosub800:                     print"bestimmung"
  350. 13340 p=21:q=14:gosub800:                     print"der funktion"
  351. 13360 j=peek(203)
  352. 13370 ifj<>64then13390
  353. 13380 goto13360
  354. 13390 gosub20840
  355. 13400 ifx<>wthen13450
  356. 13410 fori=1to3
  357. 13420 p=17:q=1:gosub800:gosub20660
  358. 13430 forii=1to300:nextii
  359. 13440 p=17:q=1:gosub800:gosub20520:           forii=1to300:nextii:nexti
  360. 13445 goto12500
  361. 13450 fori=1to3
  362. 13460 p=17:q=28:gosub800:gosub20730
  363. 13470 forii=1to300:nextii
  364. 13480 p=17:q=28:gosub800:gosub20590:          forii=1to300:nextii:nexti
  365. 13485 ifyy=1then13520
  366. 13490 print"[147]":p=10:q=2:gosub800:
  367. 13500 print"....sie haben noch einen versuch !":yy=1
  368. 13510 fori=1to1700:nexti:goto13120
  369. 13520 fori=0to4:p=18+i:q=0:gosub800:
  370. 13530 print"                                       ":nexti:poke199,1
  371. 13540 fori=0to2:p=19+i:q=0:gosub800:
  372. 13545 print"                                       ":poke199,1:nexti
  373. 13547 p=20:q=1:gosub800:poke199,1
  374. 13550 print"richtig waere gewesen: ";left$(a$(x),13):poke199,0
  375. 13560 fori=1to5800:next:yy=0:goto12500
  376. 14105 ifzz<>-1then14130
  377. 14110 fori=0to15:x(i)=i:next:zz=15:
  378. 14130 ss=int(rnd(1)*zz+1)
  379. 14140 x=x(ss)
  380. 14150 fori=sstozz:x(i)=x(i+1):nexti
  381. 14160 zz=zz-1:return
  382. 15000 gosub13250:y=0
  383. 15010 p=18:q=1:gosub800:
  384. 15020 print"[176][192][192][192][192][192][192][192][192][192][192][174]           [176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  385. 15030 print" [194]          [194]           [194]            [194]"
  386. 15040 print" [194] m  menue [194]           [194] *  drucken [194]"
  387. 15050 print" [194]          [194]           [194]            [194]"
  388. 15060 print" [173][192][192][192][192][192][192][192][192][192][192][189]           [173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  389. 15100 j=peek(203)
  390. 15105 ifj=36then12000
  391. 15107 ifj=49thengosub11000
  392. 15110 ifj<>64then15130
  393. 15120 goto15100
  394. 15130 gosub20840:x=w:gosub20800
  395. 15140 ify$="a"thengoto1000
  396. 15150 ify$="b"thengoto1300
  397. 15160 ify$="c"thengoto1600
  398. 15170 ify$="d"thengoto1670
  399. 15180 ify$="e"thengoto1760
  400. 15190 goto15100
  401. 18000 print"[147]":p=-1:q=0:gosub800
  402. 18010 print"        *** [146] informationen  ***        [146]":print:print:print
  403. 18020 print"  hinter einem modul, das so aussieht:"
  404. 18030 p=6:q=12:gosub20430:print:print
  405. 18040 print"  verbirgt sich ein beliebiges gatter."
  406. 18045 p=21:q=12:gosub800
  407. 18047 print"taste druecken !"
  408. 18050 j=peek(203)
  409. 18060 ifj<>64then18080
  410. 18070 goto18050
  411. 18080 print"[147]":p=-1:q=0:gosub800
  412. 18090 print"        *** [146] informationen  ***        [146]":print:print:print
  413. 18100 print"  hinter einem modul kann sich ein  ":print
  414. 18110 print"  gatter mit einem eingang verbergen":print
  415. 18120 print"  oder ein gatter mit zwei eingaengen:":print
  416. 18130 p=11:q=2 :gosub20260:                   p=11:q=22:gosub20345
  417. 18140 p=21:q=12:gosub800
  418. 18150 print"taste druecken !"
  419. 18160 j=peek(203)
  420. 18170 ifj<>64then12500
  421. 18180 goto18160
  422. 20000 print:print:p=11:q=13:gosub800:         print"bitte warten !"
  423. 20005 fori=49152to49273
  424. 20010 readx:pokei,x:s=s+x:next:               dima$(17):goto20080
  425. 20020 data169,4,133,186,169,126,133,184,      169,0,160,4,133,113,132,114,133
  426. 20030 data183,133,185,32,192,255,166,184      ,32,201,255,162,25,169,13,32,210
  427. 20040 data255,32,225,255,240,46,160,0,        177,113,133,103,41,63,6,103,36
  428. 20050 data103,16,2,9,128,112,2,9,64,32,       210,255,200,192,40,208,230,152,24
  429. 20060 data101,113,133,113,144,2,230,114,      202,208,205,169,13,32,210,255,32
  430. 20070 data204,255,169,126,76,195,255
  431. 20075 data39,42,39,32,4,18,21,3,11,5,14,      146,137,131,136,148,137,135,160
  432. 20076 data161,169,1,141,124,192,162,128,      96
  433. 20080 a$(0)="negation a   c00010"
  434. 20090 a$(1)="negation b   c00020"
  435. 20100 a$(2)="und          a00000"
  436. 20110 a$(3)="nand         a10000"
  437. 20120 a$(4)="oder         b00000"
  438. 20130 a$(5)="nor          b01000"
  439. 20140 a$(6)="antivalenz   d00000"
  440. 20150 a$(8)="inhibition  aa20000"
  441. 20160 a$(9)="inhibition  ba30000"
  442. 20170 a$(10)="implikation ab02000"
  443. 20180 a$(11)="implikation bb03000"
  444. 20190 a$(7)="aequivalenz  d00001"
  445. 20200 a$(12)="konstante   0e00000"
  446. 20210 a$(13)="konstante   1e00100"
  447. 20230 a$(14)="identitaet  ac00030"
  448. 20240 a$(15)="identitaet  bc00040"
  449. 20250 return
  450. 20260 gosub800
  451. 20270 print"   ?       [146] ":gosub800
  452. 20280 print"a [192][192][192][174][176][192][192][174] [146] ":gosub800
  453. 20290 print"     [194][194]  [194] [146] ?":gosub800
  454. 20300 print"     [173][179] 1[215][192][146][192][192] z":gosub800
  455. 20310 print"      [194]  [194] [146] ":gosub800
  456. 20320 print"b [192][192][192] [173][192][192][189] [146] ":gosub800
  457. 20330 print"   ?       [146] ":gosub800
  458. 20340 return
  459. 20345 gosub800
  460. 20350 print"   ?       [146] ":gosub800
  461. 20360 print"a [192][192][192][174][176][192][192][174] [146] ":gosub800
  462. 20370 print"     [173][179]  [194] [146] ?":gosub800
  463. 20380 print"      [194] &[171][192][146][192][192] z":gosub800
  464. 20390 print"     [176][179]  [194] [146] ":gosub800
  465. 20400 print"b [192][192][192][189][173][192][192][189] [146] ":gosub800
  466. 20410 print"   ?       [146] ":gosub800
  467. 20420 return
  468. 20430 gosub800
  469. 20440 print"   ?       [146] ":gosub800
  470. 20450 print"a [192][192][192]      [146] ":gosub800
  471. 20460 print"           [146] ?":gosub800
  472. 20470 print"           [146][192][192] z":gosub800
  473. 20480 print"           [146] ":gosub800
  474. 20490 print"b [192][192][192]      [146] ":gosub800
  475. 20500 print"   ?       [146] ":gosub800
  476. 20510 return
  477. 20520 gosub800
  478. 20530 print"[176][192][192][192][192][192][192][192][192][192][174]":gosub800
  479. 20540 print"[194]         [194]":gosub800
  480. 20550 print"[194] richtig [194]":gosub800
  481. 20560 print"[194]         [194]":gosub800
  482. 20570 print"[173][192][192][192][192][192][192][192][192][192][189]"
  483. 20580 return
  484. 20590 gosub800
  485. 20600 print"[176][192][192][192][192][192][192][192][192][174]":gosub800
  486. 20610 print"[194]        [194]":gosub800
  487. 20620 print"[194] falsch [194]":gosub800
  488. 20630 print"[194]        [194]":gosub800
  489. 20640 print"[173][192][192][192][192][192][192][192][192][189]"
  490. 20650 return
  491. 20660 gosub800
  492. 20670 print"[176][192][192][192][192][192][192][192][192][192][174]":gosub800
  493. 20680 print"[194]         [146][194]":gosub800
  494. 20690 print"[194] richtig [146][194]":gosub800
  495. 20700 print"[194]         [146][194]":gosub800
  496. 20710 print"[173][192][192][192][192][192][192][192][192][192][189]"
  497. 20720 return
  498. 20730 gosub800
  499. 20740 print"[176][192][192][192][192][192][192][192][192][174]":gosub800
  500. 20750 print"[194]        [146][194]":gosub800
  501. 20760 print"[194] falsch [146][194]":gosub800
  502. 20770 print"[194]        [146][194]":gosub800
  503. 20780 print"[173][192][192][192][192][192][192][192][192][189]"
  504. 20790 return
  505. 20800 y$=mid$(a$(x),14,1)
  506. 20810 e=val(mid$(a$(x),15,1)):                f=val(mid$(a$(x),16,1))
  507. 20820 h=val(mid$(a$(x),17,1)):                n=val(mid$(a$(x),18,1))
  508. 20830 l=val(right$(a$(x),1)):return
  509. 20840 ifj<>35then20842
  510. 20841 w=0:return
  511. 20842 ifj<>56then20845
  512. 20843 w=1:return
  513. 20845 ifj<>59then20847
  514. 20846 w=2:return
  515. 20847 ifj<>8 then20850
  516. 20848 w=3:return
  517. 20850 ifj<>11then20852
  518. 20851 w=4:return
  519. 20852 ifj<>16then20855
  520. 20853 w=5:return
  521. 20855 ifj<>19then20857
  522. 20856 w=6:return
  523. 20857 ifj<>24then20860
  524. 20858 w=7:return
  525. 20860 ifj<>27then20862
  526. 20861 w=8:return
  527. 20862 ifj<>32then20865
  528. 20863 w=9:return
  529. 20865 ifj<>10then20867
  530. 20866 w=10:return
  531. 20867 ifj<>28then20870
  532. 20868 w=11:return
  533. 20870 ifj<>20then20872
  534. 20871 w=12:return
  535. 20872 ifj<>18then20875
  536. 20873 w=13:return
  537. 20875 ifj<>14then20877
  538. 20876 w=14:return
  539. 20877 ifj<>21then20880
  540. 20878 w=15:return
  541. 20880 ify=0then15100
  542. 20890 ify=80then13360
  543. 20900 return
  544. 22000 p=3:q=28:gosub800
  545. 22005 print" [176][192][192][174]":gosub800
  546. 22010 print"[192][179][215][215][194]":gosub800
  547. 22020 print" [194][167] [171][192]":gosub800
  548. 22030 print"[192][179][202][203][194]":gosub800
  549. 22040 print" [173][192][192][189]":return
  550.