home *** CD-ROM | disk | FTP | other *** search
/ Chestnut's Multimedia Mania / MM_MANIA.ISO / games / stars / view.bas < prev    next >
BASIC Source File  |  1990-08-07  |  2KB  |  31 lines
  1. 2 if peek(&h10)=1 then cls:print"Program requires color":end
  2. 10 cls:dim x(4575),y(4575):goto 18
  3. 11 if rv>995 then co=14:return
  4. 12 if rv>985 then co= 9:return
  5. 13 if rv>970 then co=12:return
  6. 14 co=11:return
  7. 18 on error goto 150
  8. 20 i$=inkey$:if i$>"" then 20
  9. 25 screen 9,,0,0:cls:locate 8,29:print"Are The Stars Random?":locate 10,18:print"Press <1> View Slides or <2> Exit the program"
  10. 30 i$=inkey$:if I$="2" then 140 else if i$<>"1" then 30
  11. 40 screen 9,,0,0:cls:locate 8,37:input"How many generations";nf$:nf=val(nf$):if nf=0 then nf=1
  12. 50 locate 16,21:print"During display press <ENTER> to stop slides":locate 10,20:input"Slides for every how many generations";gs$:gs=val(gs$):if gs=0 then gs=1
  13. 60 screen 9,,1,1:cls:for ge=0 to nf step gs
  14. 70 f$="GEN"+right$(str$(ge),len(str$(ge))-1)+".PIC"
  15. 80 open f$ for input as #1
  16. 90 for x=1 to 4575
  17. 95 if inkey$=chr$(13) then 20
  18. 98 input #1,x(x),y(x):next x:close #1
  19. 100 screen 9,,1,1:cls:for x=1 to 4575::co=15:rv=rnd*1000:if rv>950 then gosub 11
  20. 101 pset (x(x),y(x)),co:next x:sound 3000,.1
  21. 105 if inkey$=chr$(13) then 20
  22. 110 next ge:for x=1 to 3:sound 100,1:t=timer:while t+.5>timer:wend:next x
  23. 120 if inkey$="" then 120
  24. 130 goto 20
  25. 140 cls:end
  26. 150 i$=inkey$:if i$>"" then 150
  27. 170 screen 9,,0,0:cls:locate 4,1:print"Error"err"in line number"erl:print:print"See your DOS manul for error codes ..."
  28. 180 print:print"Error 53 in line 80 means that the generation you wanted is out of range":print"or does not exit in/on current drive/directory"
  29. 190 print:print"Press <ANY KEY> to rerun program/exit":sound 50,10
  30. 200 if inkey$>"" then resume 18 else 200
  31.