News Games Software Hardware Books Demos Graphics Source code Disks Fonts Ref. cards PC tools Links My projects Atari family Collection Guestbook Contact
Random game
Random demo
Random game
Back button image

Atari 8-bit Source code

Entry name:
 Procrastination 
Publisher/Developer:

BASIC 10-liner Contest 2015 (NOMAM 2015)
(Software library)
  • Category:

    Games
  • Year:

    2015
  • Code:

    Kevin Savetz
  • Media format:

    Diskette
  • Maximum players:

    1
  • Programming language:

    Turbo Basic XL
Procrastination Procrastination Procrastination
Listing 1 
10 GRAPHICS 1:​? #6;"procrastination":​? #6;"HIT SPACEBAR BEFORE I TOUCH THE *":​POSITION 0,​12:​? #6;"SCORE:​":​S=0
20 POKE 710,​0:​POKE 708,​90:​POSITION 19,​9:​? #6;"*":​A=0:​POKE 764,​255
25 IF PEEK(764)<>255:​GOTO 80:​ENDIF:​S=S+A*12:​POSITION 7,​12:​? #6;S:​SOUND 1,​255,​10,​8:​SOUND
26 IF RAND(81*A)>A THEN 25
30 POSITION A,​9:​? #6;">":​SOUND 0,​255-A*5,​10,​10:​PAUSE 3:​SOUND
40 A=A+1:​IF A=20:​GOTO 70:​ELSE:​GOTO 25:​ENDIF
70 POSITION 7,​12:​? #6;"0! you lose":​SOUND 0,​120,​8,​10:​PAUSE 30:​END
80 FOR X=12 TO 0 STEP -1:​SOUND 0,​20+X*2,​10,​X:​PAUSE 2:​NEXT X:​SOUND
90 POSITION 0,​13:​? #6;"game over":​END
References
https://gkanold.wixsite.com/homeputerium/gamelist
Listing downloads

Copyright holder
This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!