home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / BEERMAT / BEERMAT1.MSA / BITS.STB / 13LINER.LST next >
File List  |  1994-07-22  |  1KB  |  19 lines
  1. ' Advanced Bobsled Simulator
  2. ' (C) Fallen Angels 1994
  3. '
  4. ' Coded by Kev Davis for ST Beermat's Thirteen-Liner Coding Contest.
  5. '
  6. DIM x(40)
  7. tt=TIMER
  8. REPEAT
  9.   x=x+(STICK(1) AND 8)/8-(STICK(1) AND 4)/4+(x>18)-(x<-17)
  10.   r=(r+1) MOD 25
  11.   x(r)=RAND(38)+1
  12.   ADD t,0.5
  13.   PRINT "b1";AT(1,25);STRING$(-39*(t=191),"~");AT(1,1);STR$(t*2);"m";AT(x+20,6);CHR$(27);"bbV";AT(x+19,5);"bj\bmδbb/";AT(1,25);STRING$((200-t)/(1+(STICK(1) AND 2))," "+CHR$(8));
  14.   PRINT AT(RAND(39)+1,25);"b6.";AT(RAND(39+1),25);"b6";MID$(".'`,",RAND(5)+1,1);
  15.   PRINT AT(x(r),25);CHR$(27);"b"+STR$(6+RAND(3));"/¯\";CHR$(27);"b1"
  16. UNTIL SQR((x+19-x((r+7) MOD 25))^2)<2 OR t=200
  17. PRINT CHR$(27);"b";STR$(1-2*(t=200));AT(x+19,5);"\|/";AT(x+19,6);CHR$(7);"-*-";AT(x+19,7);"/|\";AT(x+18,4);".";AT(x+20,8);"' `";AT(x+17,9);",";AT(16,20);"b";STR$(1+(t=200));"GAME OVER";AT(16,21);"b";STR$(1+(t<>200));"WELL DONE"
  18. PRINT AT(1,1);"boDistance travelled : ";t*2;" metres";SPC(10);AT(1,2);"Time taken         : ";(TIMER-tt)/200;" seconds";SPC(5);AT(1,3);STRING$(40,"=")
  19.