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

Atari 8-bit Source code
Heisser Draht Heisser Draht Heisser Draht Heisser Draht
Listing 1 
5 GRAPHICS 0:​? "FUEHRE DEN DRAHT BIS ZUM ZIEL ..."
10 IF STICK(1)=14 THEN T=500:​S=50:​SOUND 0,​S,​14,​15:​FOR N=1 TO 30:​NEXT N:​SOUND 0,​0,​0,​0:​GOTO 30
20 GOTO 10
30 PRINT T:​T=T-1
40 IF STICK(1)=13 THEN PRINT "SCHADE,​ BERUEHRT":​S=250:​SOUND 0,​S,​14,​15:​FOR N=1 TO 30:​NEXT N:​SOUND 0,​0,​0,​0:​GOTO 10
50 IF STICK(1)=11 THEN PRINT "TOLL,​ ";T;" PUNKTE":​S=70:​SOUND 0,​S,​14,​15:​FOR N=1 TO 30:​NEXT N:​SOUND 0,​0,​0,​0:​GOTO 10
60 GOTO 30
References
https://forums.atariage.com/topic/208333-nomam-2013-retro-meeting-with-lots-of-8-bit-ataris/
https://www.vitoco.cl/atari/10liner/
https://forums.atariage.com/topic/221948-basic-ten-liners-contest-2014/page/14/#comment-3068328
https://forums.atariage.com/topic/221948-basic-ten-liners-contest-2014/page/14/#comment-3068021
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!