Jack Rabbit

Gallery

Source Code

   1 PRINT "JACKRABBIT"
   5 DIM A(25)
   7 LET D=0
  10 FOR A=1 TO 25
  20 LET A(A)=27
  30 NEXT A
  40 LET Z=13
  50 LET A(Z)=128
  60 PRINT AT 6,0;
  70 FOR A=1 TO 25
  80 PRINT CHR$ A(A)
 100 IF 5*INT (A/5)=A THEN PRINT 
 110 NEXT A
 120 LET D=D+1
 130 PRINT ,D
 140 LET C=INT (RND*5)+1
 150 IF C=2 OR C=3 THEN GOTO 140
 160 IF RND>.5 THEN LET C=-C
 170 LET A(Z)=27
 180 LET Z=Z+C
 190 GOTO 50
 200 SAVE "1022%5"
 210 RUN