home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 12 / run12.zip / JURASSIC.BAS < prev    next >
BASIC Source File  |  1994-05-07  |  4KB  |  32 lines
  1. 10 ' === JURASSIC.BAS === Een kleine dino-demo === (c) 1994 JPSOFT/RUN AD
  2. 20 DEFINT B-Z: KEY OFF: MUSIC = -1: KEY 15, CHR$(8) + CHR$(31): ON KEY(15) GOSUB 30: KEY(15) ON: GOSUB 40: GOTO 250
  3. 30 MUSIC = -1 - MUSIC: BGM = 1: SOUND 0, 0: GOSUB 50: IF NOT MUSIC THEN OY = CSRLIN: OX = POS(0): LOCATE 2, 58: PRINT "Niet aktief...      ": LOCATE OY, OX: RETURN ELSE RETURN
  4. 40 RESTORE 70: READ BGMN: DIM BGM$(BGMN), p(420): FOR I = 1 TO BGMN: READ BGM$(I): NEXT I: MUSIC = -1: BGM = 1: GOSUB 50: ON PLAY(6) GOSUB 50: PLAY ON: RETURN
  5. 50 IF MUSIC THEN PLAY "MB" + BGM$(BGM): BGM = BGM + 1: IF BGM = BGMN + 1 THEN GOSUB 30: RETURN
  6. 60 OY = CSRLIN: OX = POS(0): LOCATE 2, 58: PRINT STRING$(BGM, 177); STRING$(BGMN - BGM, 176): LOCATE OY, OX: RETURN
  7. 70 DATA 20,"mlt110o2l8c<b>l4c<gf>l8c<b>l4c<g","f>l8c<mnbmlb>c4.<l4gcl8mnb-2.ml>"
  8. 80 DATA"c<b>l4c<gf>l8c<b>l4c<gf>l8c<mnbml","b>c4mndmld4.mnfmlf2.ecd4.<mngml"
  9. 90 DATA"g4>ecd2.gcf4.mnemle4.mndd2.mlc<b",">l4c<gf>l8c<b>l4c<gf>l8c<mnbmlb>"
  10. 100 DATA"c4.<l4gcl8mnb-2.ml>c<b>l4c<gf>l8","c<b>l4c<gf>l8c<mnbmlb>c4mndmld4."
  11. 110 DATA"mnfmlf2.ecd4.<mngmlg4>ecd2.gcf4.","mnemle4.mndmld4.mncc4mlc<b>l2mn"
  12. 120 DATA"c.mll8c<b>l2mnc.mll8c<b>c4.mndml","d4.mnfmlf2.ecd4.<mngmlg4>ecd2.gc"
  13. 130 DATA"f4.mnemle4.mndmld2.ecd4.<mngmlg4",">ecd2.t105gcf4.mnt100emlt97e4.mn"
  14. 140 DATA"t95dmlt92d4.mnt90ct87c4mlt100>c<","b>t110l4c<gf>l8c<b>l4c<gf>l8c<mn"
  15. 150 DATA"bmlb>c4.<l4gcl8mnb-2.ml>c<b>l4c<","gf>l8c<b>l4c<gf>l8c<mnbmlb>c<gf#"
  16. 160 DATA"g4>fef2.c<mnbmlb>c<gf#g4>fed2d4.mncmsc8p4.p2p2.","p1p1"
  17. 170 DATA 254,0,0,15,128,0,7,192,0,3,224,0,1,240,0,0,249,223,0,124,112,0,62,224,0,63,128,0,63,128,0,223,192,0,31,192,0,103,224,0,1,224,0,0,112,0,0,48,0,0,48,0,0,16,0,0,16,0,0,16,0,0,16,0
  18. 180 DATA 6,9,"Hallo, ik ben een Pteranodon, een bepaald soort vliegende dinosaurus.",11,"Wil je meer over mij en nog veel meer dinosaurussen weten?",13,"Bestel dan heel gauw RUN Flagazine nummer 11!",15
  19. 190 DATA "Daarin vind je namelijk (naast vele andere interessante programma's,",17,"zoals de Bommelbank, de dinosaurus database van Jarno Peschier,",19,"inclusief plaatjes!"
  20. 200 FOR Y = 1 TO 21: FOR X = 1 TO 3: READ D: FOR Z = 7 TO 0 STEP -1: IF D - 2 ^ Z < 0 THEN 220
  21. 210 PSET (XP + (2 * (X * 8 + (8 - Z))), YP + Y), C: PSET (XP + (2 * (X * 8 + (8 - Z)) + 1), YP + Y), C: D = D - 2 ^ Z
  22. 220 NEXT Z, X, Y: RETURN
  23. 230 L = 3: FOR XP = 0 TO 580 STEP 3: PUT (XP, Y * 14 - 20 + 5 * SIN(XP / 75)), p, PSET: IF XP / 8 > L THEN LOCATE Y, L: PRINT LEFT$(T$, 1): T$ = MID$(T$, 2): L = L + 1
  24. 240 NEXT XP: LINE (580, Y * 14 - 13)-(639, Y * 14 + 10), 1, BF: RETURN
  25. 250 KEY OFF: SCREEN 9: COLOR 15, 1: CLS : LOCATE 2, 7, 0: PRINT "Jurassic Park Theme": LOCATE 3, 3: PRINT "Arrangement: Jarno Peschier": LOCATE 2, 50: PRINT "Muziek: "; STRING$(20, 176): LOCATE 3, 50
  26. 260 PRINT "Alt+S = Muziek aan/uitzetten": LINE (0, 300)-(639, 349), 6, BF: CIRCLE (500, 80), 10, 15: PAINT (500, 80), 15, 15: CIRCLE (510, 70), 15, 15: PAINT (510, 70), 15, 15: CIRCLE (519, 87), 14, 15
  27. 270 PAINT (519, 87), 15, 15: CIRCLE (529, 74), 17, 15: PAINT (529, 74), 15, 15: CIRCLE (310, 45), 25, 14: PAINT (310, 45), 14, 14: FOR A = 0 TO 8 * ATN(1) STEP ATN(1) / 4
  28. 280 LINE (310 + 25 * SIN(A), 45 + 25 * COS(A) * 3 / 4)-(310 + 35 * SIN(A), 45 + 35 * COS(A) * 3 / 4), 14: NEXT A: RESTORE 170: XP = 0: YP = 200: C = 10: GOSUB 200: GET (10, 198)-(67, 223), p
  29. 290 FOR XP = 10 TO 580 STEP 4: PUT (XP, 198 + 5 * SIN(XP / 75)), p, PSET: NEXT XP: LINE (580, 190)-(639, 235), 1, BF: RESTORE 180: READ J: FOR I = 1 TO J: READ Y: READ T$: GOSUB 230: NEXT I
  30. 300 RESTORE 180: READ J: FOR I = 1 TO J: READ Y: READ T$: T$ = "": GOSUB 230: NEXT I: Y = 12: T$ = "Druk op een toets...": GOSUB 230: WHILE INKEY$ = "": WEND: LOCATE , , 1: SCREEN 0: COLOR 7, 0: CLS : SOUND 0, 0: END
  31.  
  32.