Random demo
  • Entry name:
  • Category:
  • Publisher/Developer:
    BASIC 10-liners Contest 2022
  • Year:
  • Code:
    Michal Radecki-Mikulicz
  • Media format:
  • Controllers:
  • Programming language:
    Atari BASIC
Tuneup Tuneup Tuneup Tuneup Tuneup
source: https://bunsen.itch.io/tuneup-by-string
Listing 1
0 DIM Z$(40),​Z(40):​Z$="<DD8<||8<||8=||8":​G=20:​FOR I=1 TO 40
1 Z(I)=ASC(Z$(I,​I)):​POKE 32767+I,​Z(I):​NEXT I:​S=40580:​GRAPHICS 18:​GOSUB 9
2 FOR L=1 TO 6:​IF L=6 THEN GRAPHICS 2:​? #6;"   ";R:​? #6;" less is better":​END
3 FOR C=1 TO 4:​READ X:​POKE S+X,​C+128:​NEXT C:​A=S+22:​Y=0
4 POKE A,​B:​J=STICK(0):​Z=(J=7)-(J=11)+((J=13)-(J=14))*G:​IF Y=4 THEN GRAPHICS 18:​GOSUB 9:​NEXT L
5 POKE 77,​0:​D=PEEK(A+Z):​IF J+D<>14 AND J+D<>13 AND J+D<>11 AND J+D<>7 THEN 4
6 FOR T=1 TO 50:​NEXT T:​A=A+Z:​POKE A-Z,​0:​R=R+1:​B=B+1:​IF B>68 THEN B=65
7 IF PEEK(A+Z)=B+64 THEN Y=Y+1:​POKE A+Z,​0:​SOUND 1,​B*10,​10,​10:​FOR T=1 TO 30:​NEXT T:​SOUND 1,​0,​0,​0
8 GOTO 4:​DATA 42,​62,​82,​102,​27,​129,​136,​36,​29,​32,​36,​38,​101,​143,​120,​140,​38,​82,​118,​19
9 B=65:​POKE 756,​128:​POKE 708,​2:​FOR Q=0 TO 19:​POKE S-20+Q,​196:​POKE S+200+Q,​196:​NEXT Q:​RETURN  

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!