; Atari LOGO›; Translated from the BASIC›; by Leo Laporte, 10/19/83›››PROC fuji()››  BYTE top, bottom, xpos, cntr = [0]››  BYTE ARRAY data = ›  [ 37 41 43 45 46 29 48 35 49 37 50›    39 51 41 52 43 53 44 54 45 55 46 ›    55 47 56 48 57 48 57 49 58 49 58›    50 59 50 59 51 59 51 59 52 60 52›    60 52 60 52 60 52 60 52 60 52 60 ]››  CARD x››  color = 1››  top = 5›  bottom = 61››  FOR xpos = 80 TO 84›    DO›      Plot(xpos, top)›      Drawto(xpos, bottom)›      Plot(160-xpos, top)›      Drawto(160-xpos, bottom)›    OD›                           ›  FOR xpos = 86 TO 115›    DO›      IF xpos > 90 THEN›        top = data(cntr) cntr ==+ 1›      FI››      bottom = data(cntr) cntr ==+ 1›     ›      Plot(xpos, top)›      Drawto(xpos, bottom)›      Plot(160-xpos, top)›      Drawto(160-xpos, bottom)›    OD››RETURN››PROC letters()››   BYTE x,y,i››   CARD cntr=[0]››   BYTE ARRAY atari = [›     49 55 61 76 81 87 93 104 0›     48 56 61 76 80 88 93 105 0›     47 57 61 76 79 89 93 106 0›     46 58 61 76 78 90 93 107 0›     45 50 54 59 67 70 77 82 86 91 93 96 103 108 0›     45 49 55 59 67 70 77 81 87 91 93 96 104 108 0›     45 48 56 59 67 70 77 80 88 91 93 96 104 108 0›     45 48 56 59 67 70 77 80 88 91 93 96 104 108 0›     45 48 56 59 67 70 77 80 88 91 93 96 104 108 0›     45 48 56 59 67 70 77 80 88 91 93 96 103 108 0›     45 59 67 70 77 91 93 107 0›     45 59 67 70 77 91 93 106 0›     45 59 67 70 77 91 93 105 0›     45 59 67 70 77 91 93 104 0›     45 48 56 59 67 70 77 80 88 91 93 96 100 105 0›     45 48 56 59 67 70 77 80 88 91 93 96 101 106 0›     45 48 56 59 67 70 77 80 88 91 93 96 102 107 0›     45 48 56 59 67 70 77 80 88 91 93 96 103 108 0›     45 48 56 59 67 70 77 80 88 91 93 96 104 109 0›     45 48 56 59 67 70 77 80 88 91 93 96 105 109 0›     1 1 ]››   i = 66›   color = 1››   DO›     x = atari(cntr) cntr ==+ 1››     IF x = 0 THEN›        x = 112›        y = 115›        Plot(x,i)›        Drawto(y,i)›        i ==+ 1››     ELSE y = atari(cntr) cntr ==+ 1›        IF x = 1 AND y = 1 THEN EXIT FI›        Plot(x,i)›        Drawto(y,i)›        IF x = 112 THEN i ==+ 1 FI›     FI›   OD››RETURN››PROC delay(BYTE time)››  BYTE jifs = 20››  jifs = 0››  DO   ›  UNTIL (jifs >= time)›  OD››RETURN›››PROC jingle()››  BYTE ARRAY music=›  [ 121  121  121  121 ›  91  96   108   121  0 ] ››  BYTE note, cntr = [0]›   ›  DO›    note = music(cntr) cntr ==+ 1›    IF note = 0 THEN EXIT FI›    SndRst()›    Delay(2)›    Sound(0, note, 10, 8)›    Delay(8)›  OD›  Delay(12)›  SndRst()››RETURN››PROC scroll()››  BYTE wsync = 54282,›       vcount = 54283,›       clr = 53270,›       ch = 764,›       cntr, chgclr = [0],›       incclr, delay››  DO›    FOR cntr = 1 TO 4 ›       DO›         incclr = chgclr›         FOR delay = 1 TO 9 DO OD›         DO›           wsync = 0›           clr = incclr›           incclr ==+ 1›         UNTIL vcount & 128›         OD›       OD›    chgclr ==+ 1›  UNTIL ch <> 255 ›  OD››RETURN›››PROC main()››  Graphics(23)›  ›  fuji()›  letters()›  jingle()›  scroll()››RETURN››