home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols200 / vol235 / boka-ei.bas < prev    next >
Encoding:
BASIC Source File  |  1994-07-13  |  6.3 KB  |  259 lines
  1. 1 WIDTH(255)
  2. 5 PRINT CHR$(26);
  3. 10 GOTO 1000
  4. 20 GOTO 1010
  5. 100 PRINT CHR$(26);:RETURN
  6. 110 REM
  7. 111 IF HO>51 THEN HO=51
  8. 112 IF VE>23 THEN VE=23
  9. 113 PRINT CHR$(27);"=";CHR$(VE+32);CHR$(HO+32);
  10. 115 RETURN
  11. 120 HO=PEEK(&HEF5A):VE=PEEK(&HEF5B)-&HF0
  12. 121 VE=VE*2
  13. 122 IF HO>127 THEN HO=HO-128:VE=VE+1
  14. 123 VE=VE-PEEK(&HEF62):IF VE<0 THEN VE=32+VE
  15. 124 RETURN
  16. 200 IN$=INKEY$:RETURN
  17. 210 GOSUB 200:IF IN$="" THEN 210
  18. 211 RETURN
  19. 250 PRINT CHR$(7);:RETURN
  20. 260 RV=RND(1):RETURN
  21. 270 FR=FRE(2):RETURN
  22. 300 SR$=STR$(SR)
  23. 301 Q7=LEN(SR$):IF Q7=0 THEN RETURN
  24. 302 IF RIGHT$(SR$,1)<>" " THEN 304
  25. 303 SR$=LEFT$(SR$,Q7-1):GOTO 301
  26. 304 IF LEFT$(SR$,1)<>" " THEN RETURN
  27. 305 SR$=RIGHT$(SR$,Q7-1):GOTO 301
  28. 310 Q4=SR:IF CN<>0 THEN 316
  29. 312 SR=INT(SR+.5):GOSUB 300:GOTO 330
  30. 316 Q5=SGN(SR):SR=ABS(SR):Q8=INT(SR):Q9=SR-Q8
  31. 318 FOR Q6=1 TO CN:Q9=Q9*10:NEXT Q6
  32. 320 Q9=INT(Q9+.5):SR=Q9:GOSUB 300
  33. 322 Q9$=RIGHT$("00000000000000000000"+SR$,CN)
  34. 324 IF Q8=0 AND Q9=0 THEN Q5=1
  35. 326 SR=Q8:GOSUB 300:IF Q5=-1 THEN SR$="-"+SR$
  36. 328 SR$=SR$+"."+Q9$
  37. 330 IF LEN(SR$)<=CT THEN 334
  38. 332 SR$=LEFT$("********************",CT):GOTO 340
  39. 334 SR$=RIGHT$("                    "+SR$,CT)
  40. 340 SR=Q4:RETURN
  41. 350 LPRINT SR$;:RETURN
  42. 360 LPRINT:RETURN
  43. 1000 A=100:GOTO 20
  44. 1010 GOTO 6000
  45. 1020 T=0
  46. 1030 DIM S(8)
  47. 1040 FOR I=0 TO 8:S(I)=0:NEXT I
  48. 1050 IF T=0 THEN 2000
  49. 1060 HO=26:VE=5:GOSUB 110:PRINT"nog een keer?";
  50. 1070 GOSUB 210
  51. 1080 IF IN$<>"j"AND IN$<>"J"THEN END
  52. 2000 T=1:GOSUB 100
  53. 2010 FOR I=1 TO 3
  54. 2020 FOR J=1 TO 6
  55. 2030 :PRINT"       ##       ##"
  56. 2040 NEXT J
  57. 2050 IF I=2 THEN PRINT"       ##       ##"
  58. 2060 IF I=3 THEN 2090
  59. 2070 PRINT"#########################"
  60. 2080 PRINT"#########################"
  61. 2090 NEXT I
  62. 2100 :
  63. 2110 FOR YC=0 TO 6 STEP 3:VE=2+YC*3
  64. 2120 FOR XC=1 TO 3:HO=9*XC-6
  65. 2130 GOSUB 110:SR=YC+XC:GOSUB 300:PRINT SR$
  66. 2140 NEXT XC
  67. 2150 NEXT YC
  68. 2160 :
  69. 2170 GOSUB 3000
  70. 2180 IF Z<>5 THEN S(4)=7:GOTO 2210
  71. 2190 IF S(0)=0 THEN S(0)=7:GOTO 2210
  72. 2200 S(2)=7
  73. 2210 GOSUB 3400
  74. 2220 GOSUB 3000
  75. 2230 GOSUB 3600
  76. 2240 IF R<>0 THEN 2400
  77. 2250 S(Z-1)=1:S(B)=0
  78. 2260 GOSUB 3400
  79. 2270 HO=26:VE=1:GOSUB 110
  80. 2280 PRINT"jy wint,"
  81. 2290 HO=26:VE=2:GOSUB 110
  82. 2300 PRINT"eerlijk ?!"
  83. 2310 GOTO 1040
  84. 2320 :
  85. 2400 A=0
  86. 2410 FOR I=0 TO 8
  87. 2420 IF S(I)=0 THEN A=1
  88. 2430 NEXT I
  89. 2440 IF A=1 THEN 2600
  90. 2450 S(Z-1)=1
  91. 2460 GOSUB 3400
  92. 2470 HO=26:VE=1:GOSUB 110
  93. 2480 PRINT"geholpen door"
  94. 2490 HO=26:VE=2:GOSUB 110
  95. 2500 PRINT"een goede"
  96. 2510 HO=26:VE=3:GOSUB 110
  97. 2520 PRINT"fee !"
  98. 2530 HO=26:VE=4:GOSUB 110
  99. 2540 PRINT"gelijkspel !"
  100. 2550 GOTO 1040
  101. 2560 :
  102. 2600 IF R<>2 THEN 2800
  103. 2610 S(B)=7
  104. 2620 GOSUB 3600
  105. 2630 IF R<>1 THEN 2700
  106. 2640 S(B)=7
  107. 2650 GOSUB 3400
  108. 2660 HO=26:VE=1:GOSUB 110
  109. 2670 PRINT"ik win! hoi !"
  110. 2680 GOTO 1040
  111. 2690 :
  112. 2700 GOSUB 3400
  113. 2710 GOTO 2220
  114. 2720 :
  115. 2800 IF R=3 THEN S(B)=7:GOTO 2640
  116. 2810 IF S(4)=0 THEN S(4)=7:GOTO 2700
  117. 2820 IF S(0)=0 THEN S(0)=7:GOTO 2700
  118. 2830 IF S(2)=0 THEN S(2)=7:GOTO 2700
  119. 2840 IF S(6)=0 THEN S(6)=7:GOTO 2700
  120. 2850 IF S(8)=0 THEN S(8)=7:GOTO 2700
  121. 2860 I=1
  122. 2870 IF S(I)=0 THEN S(I)=7:GOTO 2700
  123. 2880 I=I+2
  124. 2890 GOTO 2870
  125. 2900 :
  126. 3000 A=0:FOR I=0 TO 8
  127. 3010 IF S(I)=0 THEN A=1
  128. 3020 NEXT I
  129. 3030 IF A<>1 THEN 2470
  130. 3040 GOSUB 4000
  131. 3050 PRINT"jouw beurt";
  132. 3060 GOSUB 210
  133. 3070 IF(IN$<"0")OR(IN$>"9")THEN 3060
  134. 3080 Z=VAL(IN$)
  135. 3090 GOSUB 4000
  136. 3100 PRINT"             "
  137. 3110 IF Z=0 THEN 3310
  138. 3120 IF S(Z-1)=0 THEN 3300
  139. 3130 GOSUB 4000
  140. 3140 PRINT"huh ?"
  141. 3150 VE=VE+1:GOSUB 110
  142. 3160 PRINT"dat gaat niet"
  143. 3170 VE=VE+1:GOSUB 110
  144. 3180 PRINT" suffie!"
  145. 3190 FOR I=1 TO 1000:NEXT I
  146. 3200 GOSUB 4000
  147. 3210 PRINT"             "
  148. 3220 VE=VE+1:GOSUB 110
  149. 3230 PRINT"             "
  150. 3240 VE=VE+1:GOSUB 110
  151. 3250 PRINT"             "
  152. 3260 GOTO 3040
  153. 3270 :
  154. 3300 S(Z-1)=1:GOSUB 3400
  155. 3310 RETURN
  156. 3320 :
  157. 3400 FOR I=0 TO 6 STEP 3
  158. 3410 FOR J=0 TO 2
  159. 3420 K=I+J:B=S(K)
  160. 3430 IF B=0 THEN 3570
  161. 3440 VE=3*I:HO=9*J+1:GOSUB 110
  162. 3450 IF B<>1 THEN 3520
  163. 3460 :PRINT"x   x":VE=VE+1:GOSUB 110
  164. 3470 :PRINT" x x":VE=VE+1:GOSUB 110
  165. 3480 :PRINT"  x ":VE=VE+1:GOSUB 110
  166. 3490 :PRINT" x x":VE=VE+1:GOSUB 110
  167. 3500 :PRINT"x   x"
  168. 3510 GOTO 3570
  169. 3520 :PRINT" ooo":VE=VE+1:GOSUB 110
  170. 3530 :PRINT"o   o":VE=VE+1:GOSUB 110
  171. 3540 :PRINT"o   o":VE=VE+1:GOSUB 110
  172. 3550 :PRINT"o   o":VE=VE+1:GOSUB 110
  173. 3560 :PRINT" ooo"
  174. 3570 NEXT J
  175. 3580 NEXT I
  176. 3600 V=3
  177. 3610 GOSUB 3700:IF R=V THEN R=0:RETURN
  178. 3620 V=21
  179. 3630 GOSUB 3700:IF R=V THEN R=1:GOSUB 3700
  180. 3640 V=14
  181. 3650 GOSUB 3700:IF R=V THEN R=3:RETURN
  182. 3660 V=2
  183. 3670 GOSUB 3700:IF R=V THEN R=2:RETURN
  184. 3680 R=4:RETURN
  185. 3690 :
  186. 3700 F=0:E=2:I=1
  187. 3710 GOSUB 3900:IF R=V THEN RETURN
  188. 3720 F=3:E=5:I=1
  189. 3730 GOSUB 3900:IF R=V THEN RETURN
  190. 3740 F=6:E=8:I=1
  191. 3750 GOSUB 3900:IF R=V THEN RETURN
  192. 3760 F=0:E=6:I=3
  193. 3770 GOSUB 3900:IF R=V THEN RETURN
  194. 3780 F=1:E=7:I=3
  195. 3790 GOSUB 3900:IF R=V THEN RETURN
  196. 3800 F=5:E=1:I=3
  197. 3810 GOSUB 3900:IF R=V THEN RETURN
  198. 3820 F=0:E=8:I=4
  199. 3830 GOSUB 3900:IF R=V THEN RETURN
  200. 3840 F=2:E=6:I=2
  201. 3850 GOSUB 3900:RETURN
  202. 3860 :
  203. 3900 R=0
  204. 3910 FOR J=F TO E STEP I
  205. 3920 R=R+S(J)
  206. 3930 IF S(J)=0 THEN B=J
  207. 3940 NEXT J
  208. 3950 RETURN
  209. 3960 :
  210. 4000 HO=26:VE=0:GOSUB 110
  211. 4010 RETURN
  212. 4020 :
  213. 6000 GOSUB 100
  214. 6010 PRINT
  215. 6020 PRINT"   bbb   ooo  ttttt eeeee rrr"
  216. 6030 PRINT"   b  b o   o   t   e     r  r"
  217. 6040 PRINT"   bbb  o   o   t   eee   rrr"
  218. 6050 PRINT"   b  b o   o   t   e     r r"
  219. 6060 PRINT"   bbb   ooo    t   eeeee r  r"
  220. 6070 PRINT
  221. 6075 PRINT
  222. 6080 PRINT"      k  k   a     a    sss"
  223. 6090 PRINT"      k k   a a   a a  s"
  224. 6100 PRINT"      kk   a   a a   a  sss"
  225. 6110 PRINT"      k k  aaaaa aaaaa     s"
  226. 6120 PRINT"      k  k a   a a   a  sss"
  227. 6130 PRINT
  228. 6135 PRINT
  229. 6140 PRINT"                &"
  230. 6150 PRINT
  231. 6155 PRINT
  232. 6160 PRINT"   eeeee i eeeee rrr  eeeee n   n"
  233. 6170 PRINT"   e     i e     r  r e     nn  n"
  234. 6180 PRINT"   eee   i eee   rrr  eee   n n n"
  235. 6190 PRINT"   e     i e     r r  e     n  nn"
  236. 6200 PRINT"   eeeee i eeeee r  r eeeee n   n"
  237. 6210 GOSUB 210
  238. 6220 GOSUB 100
  239. 6230 PRINT"weet je hoe het gaat";
  240. 6240 INPUT IN$
  241. 6250 HO=0:VE=15:GOSUB 110
  242. 6260 PRINT"o.k., dan mag jij beginnen..."
  243. 6270 FOR I=1 TO 1000:NEXT I
  244. 6280 GOTO 1020
  245. 6290 :
  246. 10000 REM DE HERKOMST VAN DIT
  247. 10010 REM PROGRAMMA IS NIET
  248. 10020 REM BEKEND.
  249. 10030 :
  250. 10040 REM DOOR DE HOBBYSCOOP-GROEP
  251. 10050 REM AANGEPAST VOOR
  252. 10060 :
  253. 10070 REM  B A S I C O D E - 2
  254. 10080 :
  255. 10090 REM DECEMBER 1982
  256. DOOR DE HOBBYSCOOP-GROEP
  257. 10050 REM AANGEPAST VOOR
  258. 10060 :
  259. 10070 REM  B A S I C O