home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / cartoon.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-15  |  3.3 KB  |  82 lines
  1. 10 DEFINT A-Z:DIM BR$(4,3),EY$(4),MO$(4,3)
  2. 20 DIM B(1000),E(1000),M(1000)
  3. 30 WIDTH 40:LOCATE ,,0:KEY OFF:COLOR 14,0,0:CLS
  4. 40 FOR W=1 TO 4:FOR X=1 TO 3:A$=""
  5. 50 FOR Y=1 TO 5:READ B:IF B=2 THEN B=32
  6. 60 A$=A$+CHR$(B):NEXT Y:BR$(W,X)=A$:NEXT X,W
  7. 70 FOR W=1 TO 4:A$=CHR$(32)
  8. 80 FOR Y=2 TO 4:READ B:A$=A$+CHR$(B):NEXT Y
  9. 90 EY$(W)=A$+CHR$(32):NEXT W
  10. 100 FOR W=1 TO 4:FOR X=1 TO 3:A$="":READ T
  11. 110 FOR Y=1 TO T:READ B,U
  12. 120 FOR Z=1 TO U:A$=A$+CHR$(B):NEXT Z,Y
  13. 130 MO$(W,X)=A$:NEXT X,W
  14. 140 FOR RO=1 TO 23:S=1:READ T
  15. 150 FOR X=1 TO T:READ KO,N
  16. 160 IF (RO=13 OR RO=14) AND X=3 THEN CH=178 ELSE CH=219
  17. 170 FOR CO=S TO S+N-1:COLOR KO
  18. 180 LOCATE RO,CO:PRINT CHR$(CH);
  19. 190 LOCATE RO,41-CO:PRINT CHR$(CH);:NEXT CO
  20. 200 S=S+N:NEXT X,RO:COLOR 14:LOCATE 25,2
  21. 210 PRINT "1 - 3 A)uto C)lear H)alt P)lay R)ecord";
  22. 220 KMAX=3:R=0:GOSUB 1000
  23. 230 K$=INKEY$:IF K$="" THEN 230
  24. 240 V=ASC(K$):K$=CHR$(V-(V>96)*(V<123)*32)
  25. 250 IF K$="H" THEN COLOR 14,0,0:CLS:END
  26. 260 IF K$<>"A" THEN 300
  27. 270 K$=INKEY$:IF K$<>"" THEN GOSUB 1000:GOTO 230
  28. 280 K=INT(RND(1)*4)+1:GOSUB 7000
  29. 290 FOR DE=1 TO 40:NEXT DE:GOTO 270
  30. 300 IF K$<>"R" THEN 330
  31. 310 IF R=1000 THEN COLOR 0,SC,4:GOTO 230
  32. 320 R=R+1:B(R)=B:E(R)=E:M(R)=M:GOTO 230
  33. 330 IF K$<>"C" AND K$<>"P" THEN 390
  34. 340 GOSUB 1000
  35. 350 IF K$="C" THEN COLOR 0,SC,0:R=0:GOTO 230
  36. 360 IF R=0 THEN SOUND 400,2:GOTO 230
  37. 370 COLOR 0,SC,9:FOR Q=1 TO R:B=B(Q):E=E(Q):M=M(Q)
  38. 380 GOSUB 2000:NEXT Q:COLOR 0,SC,0:GOTO 230
  39. 390 K=VAL(K$):IF K<1 OR K>KMAX THEN 230
  40. 400 GOSUB 7000:GOTO 230
  41. 1000 B=1:E=1:M=1:SC=7:GOSUB 2000:RETURN
  42. 2000 GOSUB 3000:GOSUB 4000:GOSUB 5000
  43. 2010 RETURN
  44. 3000 B1=B:B2=B:IF B=3 THEN B1=2:B2=3:GOTO 3020
  45. 3010 IF B=2 THEN B1=3:B2=2
  46. 3020 FOR X=1 TO 3
  47. 3030 COLOR 6,7:LOCATE X+2,11:PRINT BR$(B1,X);
  48. 3040 LOCATE X+2,26:PRINT BR$(B2,X);
  49. 3050 NEXT X:RETURN
  50. 4000 LOCATE 8,11:COLOR 1,7:PRINT EY$(E);
  51. 4010 LOCATE 8,26:PRINT EY$(E);:RETURN
  52. 5000 FOR X=1 TO 3:COLOR 12,7:LOCATE X+15,15
  53. 5010 PRINT MO$(M,X);:NEXT X:RETURN
  54. 5020 ON K GOTO 7010,7020,7030
  55. 5030 B=B+1:B=B+(B=5)*4:GOSUB 3000:RETURN
  56. 5040 E=E+1:E=E+(E=5)*4:GOSUB 4000:RETURN
  57. 7000 ON K GOTO 7010,7020,7030
  58. 7010 B=B+1:B=B+(B=5)*4:GOSUB 3000:RETURN
  59. 7020 E=E+1:E=E+(E=5)*4:GOSUB 4000:RETURN
  60. 7030 M=M+1:M=M+(M=5)*4:GOSUB 5000:RETURN
  61. 8000 DATA 2,2,2,2,2,2,2,2,2,2,219,219,219,219,219,2,2
  62. 8010 DATA 219,2,2,2,219,2,2,2,219,2,2,2,2,2,2,219,2,2
  63. 8020 DATA 2,2,2,219,2,2,2,2,2,219,2,2,2,2,2,2,219,219
  64. 8030 DATA 219,2,219,2,2,2,219,60,79,62,79,62,32,32,60
  65. 8040 DATA 79,45,45,45,1,219,12,5,32,1,219,1,32,8,219
  66. 8050 DATA 1,32,1,3,32,2,219,8,32,2,3,32,1,219,10,23,1
  67. 8060 DATA 3,32,2,219,8,32,2,1,32,12,3,32,4,219,4,32,4
  68. 8070 DATA 5,32,3,219,1,32,4,219,1,32,3,3,32,4,219,4
  69. 8080 DATA 32,4,3,32,2,219,8,32,2,5,32,1,219,1,32,8
  70. 8090 DATA 219,1,32,1,1,219,12,3,0,2,6,9,7,9,3,0,3,6,6
  71. 8100 DATA 7,11,3,0,3,6,5,7,12,3,0,4,6,4,7,13,4,0,3,12
  72. 8110 DATA 1,6,3,7,13,7,0,2,12,1,7,2,6,2,0,9,7,3,0,1
  73. 8120 DATA 13,0,2,12,1,7,1,12,1,7,1,6,1,7,1,0,1,7,7,0
  74. 8130 DATA 1,7,1,0,1,12,1,9,0,2,12,1,7,1,12,1,7,3,0,1
  75. 8140 DATA 7,7,0,2,12,2,10,0,3,12,1,7,1,12,1,7,2,0,1,7
  76. 8150 DATA 7,0,1,7,1,12,2,8,0,3,12,1,7,5,0,1,7,5,0,1,7
  77. 8160 DATA 2,12,2,8,0,3,12,1,7,1,12,1,7,4,0,5,7,2,12,3
  78. 8170 DATA 4,0,4,12,2,7,11,12,3,3,0,5,7,11,6,4,3,0,6,7
  79. 8180 DATA 9,6,5,2,0,7,7,13,2,0,8,7,12,2,0,8,7,12,2,0
  80. 8190 DATA 9,7,11,2,0,9,7,11,2,0,10,7,10,2,0,11,7,9,2
  81. 8200 DATA 0,12,7,8,2,0,13,7,7
  82.