* Fortran77: use loop

UWOS · Nov 3, 2015 · 32fee4d · 32fee4d
1 parent 5a2f29c
commit 32fee4d
Show file tree

Hide file tree

Showing 4 changed files with 117 additions and 115 deletions.
diff --git a/QR.rb b/QR.rb
@@ -40,18 +40,18 @@
 ){y=q<n?         c[q]:y;c[n++]=z+y.charAt(0);System.out.Z(z=c[q]);q=0;}}}})]}"`n!vo              kevirtual~                     #$T/Zln(L#{S}J;)V`nreturn`n.end~method)+N]};H("DO,1< -                  #"||*s);s?w
 hile~t:=o         rd(move(1))do{i+:=1;u:=-i;every~0to~7do{u:=u*2+t%2;t/:=2};H("PL              EASE")^(i%4/3)                      ;H("DO,1SUB#"||i||"<-#"||((c-u)%256));c:=u;};H("P                   LEASEREADOUT
 ,1^nPLEASE          GIVEUP");end)]};}}"].tr(B,?&),51){%(show~"Z'#{e[$s].K~B+?",%             ("~"^q"~")}'.tr('&                      ','YY');"`n)}]]}^`");fim")})],62){"Zn#$S`n"}]                   });CloseStream
-(s);QUIT;"]}          ")]}"~DUP~FOR~S"~&A,&"~C~NE`x58T~S^"~&A)^",&"~C~0~DO~B~              ."~&char("~COUNT~.~."                        ~),&'"~CR~LOOP~S^"~&^"^""~C~S"~end~#$D"                     ~C~A~."~STOP"~C
-R~A~."~END"~C           R~B`x59E~;~D~).K(?"){'"34,"'}+?",?%]+'~""")']}."]}"               ))],15){"Pr!t#$S;"}}}}"}                          ]pq"}`x60);}"]}"))].K(?`x60,"Yx                       60"),'#{f(',')}']
-})"]}"))["~~~~^            "~^".""STOP~RUN."])](Zln(str"#{g*8}"s)))).rev                erse]}))]};}}"]};}/****//***                              */";t={};b="";L=""                            ;n=i=0;D=->n{L<<(n+
-62)%92+35;D};s.by             tes{|c|n>0?n-=1:(t[c]=(t[c]||[]).reject                {|j|j<i-3560};x=[];t[c].map{|j|k=(                                                                       0..90).f!d{|k|not~s[i
-+1+k]==s[j+k]}||91;                k>4&&x<<[k,j]};x=x.max)?(n,j=x                  ;x=b.size;(u=[x,3999].m!;D[u%87][u/87]                                                                   ;L<<b[0,u];b[0,u]="";x-
-=u)while~x>0;x=4001+i                     -j;D[x%87][x/87                       ][n-5]):b<<c;t[c]+=[i+=1]};"#!clude<stdio.h>                                                             `nchar*p=#{E[L]},s[99999],
-*q=s;!t~mX{!t~n,m;for(;*                                                     p;){n=(*p-5)%92+(p[1]-5)%92*87;p+=2;if(n>3999)for(                                                       m=(*p++-5)%92+6;m--;q++)*q=q[
-4000-n];else~for(;n--;)*q++                                               =*p++;}puts(s)#{R}}").tr~B,?`x21]};K(/`x21/,"Y",s);for(Z"                                               def!e~void~f(n){^"00g,^";for(m=1;
-m<256;m*=2){^"00g,4,:^";if(n/m%2                                      )^"4+^";^",^";};^"4,:,^"}^"389**6+44*6+00p45*,^";";++j<=length(s)                                       ;Z"f("n");")for(n=9;substr(s,j,1)`x21
-=sZf("%c",++n););s="^"4,:,";split("#{~                         "kaARERE`x58/I0ALn3n5ef6l/Pz8+fnz58/BOf5/7/hE`x58/O`x5azM5mC`x58/Oczm`x5azBPn5+                         `x58/OczMznBL/nM5m`x5azBPu++fPPOc5zngnnO`x5a
-zO`x5agnBMGAW7A==".unpack(?m)[0].bytes~*~g~}",a);for(i~!~a){s=s~0;for(c=a[i]+0;c;c--)s=s"1+";s=s",";}Z~s"@^"^nquit"})]],?']}');"]}";FORiTO`~UPBtDO`~INTn:=ABSt[i];Z(~(50+n%64)+c+~(50+n%8MOD8)+c+~(50+nMOD8)+b+"`x4
-a"+a)OD]*"REPR"]}")]}");end;)]+"`nsys.exit~0",/[^{}]/]}}",35){y<<",`n"+$S;"%s"}}")+y}]]></#{U}></xsl:#{I}>"].K~N,'"&~VbLf~&"'}":s="~~~":For~i=0To~7:s~&=Chr(32-(Asc(c)>>7-i~And~1)*23):Next:#$C(s~&n~&Chr(9)&n~&"~~
-"):Next:#$C(n~&n~&n):End~Sub:End~Module),3){%($H("%s",#$S);)+N}}end~endmodule)],?%]+R}}".reverse],/[`[`]$]/],"[f~",?]]}"~^x60.&]k^n::=^na)]};Z"0~0~-1";)]]};",?']}';cr"]]]}"|sed~-E~-e~'s/([`x5eY]|Y.){1,120}/Zf("%
-s","^0");^n/g'],7){%(Zf("%s","#{d[d[$s],?']}")`n)}}quit)]}")),196){%(Z#$S;)}}}").gsub(/[!HJKXYZ^`~]/){[B*2,:write,B,:tring,:gsub,"ain()",B*4,:print,g,:in][$&.ord%47%12]})))*"")#_buffer_for_future_bug_fixes_#_buf
+(s);QUIT;"]}          ")]}"~DUP~A~."~DO~10~I=1,"~.~CR~S"~&A,&"~C~."~10~~~~~~C              ONTINUE"~CR~S^"~&A)^"                        ,&"~C~0~DO~B~."~&char("~COUNT~.~."~),&'                     "~CR~LOOP~S^"~&
+^"^""~C~S"~en           d~#$D"~C~A~."~STOP"~CR~A~."~END"~CR~B`x59E~;~D~).K(               ?"){'"34,"'}+?",?%]+'~""                          ")']}."]}"))],15){"Pr!t#$S;"}}}                       }"}]pq"}`x60);}"]
+}"))].K(?`x60,"            Yx60"),'#{f(',')}']})"]}"))["~~~~^"~^".""STOP                ~RUN."])](Zln(str"#{g*8}"s))                              )).reverse]}))]};}                            }"]};}/****//****/"
+;t={};b="";L="";n             =i=0;D=->n{L<<(n+62)%92+35;D};s.bytes{|                c|n>0?n-=1:(t[c]=(t[c]||[]).reject                                                                       {|j|j<i-3560};x=[];t[
+c].map{|j|k=(0..90)                .f!d{|k|not~s[i+1+k]==s[j+k]}|                  |91;k>4&&x<<[k,j]};x=x.max)?(n,j=x;x=b                                                                   .size;(u=[x,3999].m!;D[
+u%87][u/87];L<<b[0,u]                     ;b[0,u]="";x-=u                       )while~x>0;x=4001+i-j;D[x%87][x/87][n-5]):b<                                                             <c;t[c]+=[i+=1]};"#!clude<
+stdio.h>`nchar*p=#{E[L]}                                                     ,s[99999],*q=s;!t~mX{!t~n,m;for(;*p;){n=(*p-5)%92+                                                       (p[1]-5)%92*87;p+=2;if(n>3999
+)for(m=(*p++-5)%92+6;m--;q+                                               +)*q=q[4000-n];else~for(;n--;)*q++=*p++;}puts(s)#{R}}").t                                               r~B,?`x21]};K(/`x21/,"Y",s);for(Z
+"def!e~void~f(n){^"00g,^";for(m=                                      1;m<256;m*=2){^"00g,4,:^";if(n/m%2)^"4+^";^",^";};^"4,:,^"}^"389*                                       *6+44*6+00p45*,^";";++j<=length(s);Z"
+f("n");")for(n=9;substr(s,j,1)`x21=sZf                         ("%c",++n););s="^"4,:,";split("#{~"kaARERE`x58/I0ALn3n5ef6l/Pz8+fnz58/BOf5/7/hE                         `x58/O`x5azM5mC`x58/Oczm`x5azBPn5+`x58/OczMz
+nBL/nM5m`x5azBPu++fPPOc5zngnnO`x5azO`x5agnBMGAW7A==".unpack(?m)[0].bytes~*~g~}",a);for(i~!~a){s=s~0;for(c=a[i]+0;c;c--)s=s"1+";s=s",";}Z~s"@^"^nquit"})]],?']}');"]}";FORiTO`~UPBtDO`~INTn:=ABSt[i];Z(~(50+n%64)+c+
+~(50+n%8MOD8)+c+~(50+nMOD8)+b+"`x4a"+a)OD]*"REPR"]}")]}");end;)]+"`nsys.exit~0",/[^{}]/]}}",35){y<<",`n"+$S;"%s"}}")+y}]]></#{U}></xsl:#{I}>"].K~N,'"&~VbLf~&"'}":s="~~~":For~i=0To~7:s~&=Chr(32-(Asc(c)>>7-i~And~1
+)*23):Next:#$C(s~&n~&Chr(9)&n~&"~~"):Next:#$C(n~&n~&n):End~Sub:End~Module),3){%($H("%s",#$S);)+N}}end~endmodule)],?%]+R}}".reverse],/[`[`]$]/],"[f~",?]]}"~^x60.&]k^n::=^na)]};Z"0~0~-1";)]]};",?']}';cr"]]]}"|sed~
+-E~-e~'s/([`x5eY]|Y.){1,120}/Zf("%s","^0");^n/g'],7){%(Zf("%s","#{d[d[$s],?']}")`n)}}quit)]}")),196){%(Z#$S;)}}}").gsub(/[!HJKXYZ^`~]/){[B*2,:write,B,:tring,:gsub,"ain()",B*4,:print,g,:in][$&.ord%47%12]})))*"")#
 ##################################################################  Quine Relay -- Copyright (c) 2013, 2014 Yusuke Endoh (@mametter), @hirekoke  #################################################################)
diff --git a/SHA1SUMS b/SHA1SUMS
@@ -1,100 +1,100 @@
-224b95586ea7eb0d01fb7dd557ad7d6db7205624 *QR.rb
-d1234b0a34d6a867c7219a5d70d55cbfabae1d6c *QR.scala
-05a70cfcc397775e6f8af41cf9ec8fc303739b88 *QR.scm
-dbcb320ca90990d59413df2caca602d52b9fb2d6 *QR.sci
-6c1a9bc194cc8b26bed8a380719513c9f608f331 *QR.bash
-47ecbf19837463a7099a253f858945c524c5f1f5 *QR.sl
-68fa191ec758b90853b15168e65af0bb356022f0 *QR.st
-6f68aa8f7c5c866c10dddd791f1928b4b54cc07f *QR.spl
-1df57c7fe8472c0873265356e55daf04246288a9 *QR.sml
-8983f71df3eb6d38dc0411df2bbeea3ca0d11672 *QR.sq
-561598fb3910e5d065315ec13b963216e7b723e3 *QR.tcl
-7c8db618c4ec7fe1340f4b3b1599f5782a6a5321 *QR.t
-b0030355959ebc980313b967e8db73f37d9451e7 *QR.unl
-11c35ead7ca0dd454860a1cd5379a87ed11df874 *QR.vala
-c44adc7d506bf837c734f409a98307fa8fb05092 *QR.v
-c0a24cf98a386a685dd0338b2c91d7afa80989cf *QR.vb
-a0e6a922187b4856fb03ec05ba7528c04af93567 *QR.ws
-00bf3af6de285a25e63e96a06cb6696eae67787b *QR.xslt
-d3968b5ecd679044ba32b45b4c980c4daa3b6969 *QR.yorick
-f854635d9e84d72ca18eb5e2d7e872bee307fe67 *QR.azm
-0b9fa20294cac72c6d713988bd88ae1175e0141d *QR.+
-385a5964ebce09063e97a1a7880259c4af17a572 *qr.adb
-49ae152a808a00c29d0c37e16a1bdd0c31452b2e *QR.als
-cf28afa511f2f807c337a78bb611205cb7355d02 *QR.a68
-86f85abf04021f64167ac8909b823e76df6f1632 *QR.ante
-941a1b11c4d793d0d6e0fd6e232410d3bc2e96a3 *QR.asy
-78a5022259f118c2437b5bea1a3d6f417f370748 *QR.dats
-ff9344af6c2dfce30d42b65ccf033cc867d85dcf *QR.awk
-63fad3c298c8ffc5c92d447ea827c7b1b0de10e8 *QR.bc
-9ef375ef98838704eef9983407ec6f2bcb828f2e *QR.bef
-5917ca26317102841abc182dedd39fe027919f8a *QR.Blc
-a4d7497b48bc8d01cad9e5ed4da082b848dda7a7 *QR.bf
-ef98dc8d5a6de88bbd11bcd4e4c6f5c4e225fb73 *QR.c
-6e2c3ace5ae31c99f7557fadd5674d0c89511fa5 *QR.cpp
-4790faa96f0ea4abd6c4cbccc1f214f9d3b7585b *QR.cs
-4f168974254ff666765d9a809915d20f185857ef *QR.cd
-e6dd877b0defc54a70caf4902711c4993e935a42 *QR.chef
-96dc14ed5d1e3a1fc082a7176d80dd27d36e462c *QR.clj
-5bd5ca8b19cd9000c807917c801581ffa1ba7a35 *QR.cob
-eec1e695ce16a1bb66f7fb7c4f0c8113f8c841c8 *QR.coffee
-5022d1bdc197d37a424fc311ff81500be15601c6 *QR.lisp
-7df08a404f9305f4c1b66d81642ff4ac682d7ee4 *QR.d
-5306662942fbe9e5855c90676f5c61a20ca4e382 *QR.dc
-f2518e1d311d6b8d77382b97a4b2cac2aa0e640a *QR.ec
-efcf64529ec309937fe3ad4ea663ac5c2941921c *QR.exs
-85abe571df1f1984667fb26e08b2f36dc3fd3aae *QR.el
-98a864a3fc13e862bf4701e8cd44bf5fe76ab95d *QR.erl
-a8a4c776f22426170c904bbc308d2c89ceaa6fe3 *QR.fsx
-0aaeef890be33357cd2341a3bfa1cfa096ceadf2 *QR.false
-0122f01203a27fbe40bfc0ef0442c52bc93dafdc *QR.fs
-02fdb81e80fddd9c406ad321811be19170c4527a *QR.f
-5412803703512e2a36c8ae2fd6e792b23430d3a9 *QR.f90
-a17ecf1901cdb72c5b95a8ba13048f09c809f4e9 *QR.gbs
-96e39a26e234fdace7c450efc4553af6dd35119a *QR.g
-1ed3a3f65be62de285045b6f0d7b7eeed73d2000 *QR.gel
-697915d5aa675a350115c3a31b3c4efa79874e4c *QR.plt
-031b57dcdcc1bf589da09af2935a17e27eef94d5 *QR.go
-60e9224ad67aaa726ffebb42c788c2b7cd6e4524 *QR.gpt
-45cb9849a283b99260ba3cae83834c6e3d422553 *QR.gri
-32818f5e346166b0f18c16956b8bd8e7cbffa531 *QR.groovy
-115f0ae449c3cb2d84b92008e0adae9016a4e17b *QR.hs
-62fec7e6a73b7367367f7ce42b5044fc0b5fb2f7 *QR.hx
-4aded6c9693eab2d1f10204c936e97bfc58e649e *QR.icn
-759e9e0dce5562588a8607810f77b08e749fd00f *QR.i
-0d767b7f5622364a6211aa0676e896805f42afc6 *QR.j
-63a09e4f413e7967d70a8f042e5c1039464e7efd *QR.java
-890ced9c02cb88086547df7914d03548b82023a0 *QR.js
-398d9e0f2012813d5007308c1dfc5096a8933977 *QR.jq
-98432dce27039ad873250b478f182c9019a524b2 *QR.jl
-f4861406ed3fcdb345d24b52b59bfb78beb73100 *QR.lazy
-48a19278b92cd61bd8f131603443912756894625 *qr.li
-347616dc6e3c175ae1231a47d7c1f97a963ffe13 *QR.ll
-1aca4a0107c14e009893e4e83fbbb15901531567 *QR.logo
-7a17dd82bb71441ac69a8731bcac88e2a81223a4 *QR.lol
-0ea030a551e8ca8a65c2a038f9d0e92671125c44 *QR.lua
-4afed88400c80a844886d04a221a6d16e088e05f *QR.mk
-bd0b34641c36503fb4a0fb303153b284e12c3e0c *QR.mac
-31a67c660d303d05a4b0ddd8c8e5018d78b497b7 *QR.il
-0ba6a22a5b504767e2bd34a449d1fa8ea8b3f083 *QR.asm
-dfec9886f43b6f93d6d0a8452b265139f27ed30f *QR.neko
-03b1fadec4697eafe24be03252a3a88a20bc5f9f *QR.5c
-2df0381309fc33db7ad22a149bfdaa3e52199341 *QR.nim
-38448f9a3850b56533db9500e1cf8df273106756 *QR.m
-f36fc3db409c1b5fcec359839b773fa9e9a29255 *QR.ml
-783c282501faf0999ad897eeb04f8acaab7c9ee2 *QR.octave
-e7d800fca3d980b9e366751bc96d2f0194af1ba3 *QR.ook
-94168d7b75727bf85adf74a70c96f144a64e21d5 *QR.gp
-dea255b77142868e104a2cde81725e604b2edf20 *QR.pasm
-dc08568507992f2817d9c787cbfc05c9e8c83e3c *QR.pas
-6caa65152d6db81bd89a5b314d58f1bf37093f97 *QR.pl
-679d8b396f2151627c39009b37a54083940d5cdd *QR.php
-91bce0d837cf7fa238e028c0181cb4fa7616902f *QR.png
-00fb2f7720139eee260f42807ebe72a3bca2263d *QR.pike
-b54a6ad1b678c2a0caf0c5d23ad029bf99fd00b1 *QR.ps
-0a133ad048893485827fee0ce37f3a62ba0426c4 *QR.ppt
-2fcef1cea04a901cec0ba0a0839b5cc299cf9b10 *QR.prolog
-b31a010e9d24bc06a1d574ca122b06c39ea5f9a2 *QR.py
-82304a3fa0fee515a145e1937a10f08e4c5984e3 *QR.R
-9cb4e534638a4b052c2f2a9159671b10e2b2578e *QR.ratfor
-71cd47ad8b9f41895294914c3552613bc58b3116 *QR.rexx
+65fd2d38b268af1391e63b413605ea6793aad4e6 *QR.rb
+777642abe27ec9839f75253f80cbad8fe0485604 *QR.scala
+b054ac28101eebcb0070fa0194f588071a3de78a *QR.scm
+4c37f8ca26ed10ddfacb5c3528d324c7aa47ab95 *QR.sci
+e08a18c034eee54d0e8fd5d57d90ba22f2f44283 *QR.bash
+f9707fca76d5bc2f1feb92d67e0b74398cbad80d *QR.sl
+bedfa14654109c8cd278fe8e72634b3c527de3fc *QR.st
+979598a6472278688a5b51f19922f6b3bb05903c *QR.spl
+c8251ec62c6bc7ef080fa3061bc2b93721c1b9f6 *QR.sml
+3dab5f6d5feb03fe7a34b5aab5394ebf00c8eff7 *QR.sq
+b640dfe16fa96a7c087203f0f3ab2a348000b26c *QR.tcl
+9ce201ddf6e2db71cb8f8c5b64610d43e21b2d84 *QR.t
+37f5a06355ad5069d2a54a9a141bbbac843530e9 *QR.unl
+1cdefe1f9c56c9f86970b3f1ec68f105b0848180 *QR.vala
+30dc21f82d8d893ba33f44c04879a3d66e7fddb3 *QR.v
+78c34369f5e282aa3fd384b7840fae4d37f5b4c7 *QR.vb
+e9454ce0177afa06264ed446910a5ade4689a9a2 *QR.ws
+954ac0ff17386157ac1c081707cf93abd0868de6 *QR.xslt
+1f53eaf8222479a5588f86f988b3d696ed3311e4 *QR.yorick
+dd50f1d5a98e5b4edac811dfdad668f683d6c1db *QR.azm
+e40dd2eee0695203a68056925acfea57d570d5ef *QR.+
+5bd74bd056ec611ea7f5c066e5a22b14e79f90fa *qr.adb
+65dd2703f386ce4686a3669a4188fc627dea6f17 *QR.als
+e5ca329c234af753df81d4eff5fa0a83291629b8 *QR.a68
+f8b205df3d86b9865f7454b06238b0dae37946a2 *QR.ante
+1c22112038a25b8b8bf597e2c790ed24c17c2b1b *QR.asy
+d6ee7e7d190dd56bd25a6bfa6a8dc6bea5e9032e *QR.dats
+9852c196ad0841cf5748333a320368108e5f41b5 *QR.awk
+8b885cc13af1f86ee060379faf588f10acbb5f84 *QR.bc
+76382c767085f5a6921f9957d5c12d5a73d05123 *QR.bef
+df6e85aaf15789dc48af71529b27cb4c7b4d4827 *QR.Blc
+5030e4f9732fd6e124f916ef285f4adada84bf5c *QR.bf
+25f2ca4d5d39c23d51328925789b72c8b34414e1 *QR.c
+e2a60ee13a83bd7c642d996ffa30941a356eb0b1 *QR.cpp
+90842361adab0fd4e1f02734e8e9bac02f3f1d61 *QR.cs
+8d5595bcaca9963db461ee16da1a87a2c21c50bd *QR.cd
+551ecc37820101143530e374e17d77845205b7de *QR.chef
+5968bbc8e1358da9bf337fd9d2ba69d2ede27448 *QR.clj
+03122c85d98ee1e7a96851961109ac17f1fd41d3 *QR.cob
+fb066b2f4b91eb09a4c7a55785220e555a2281a0 *QR.coffee
+8705735fab352bbc56dbe012f5e9c0c62aa32a0b *QR.lisp
+2f69a3e16c9795b4e428cde49719ee1b06e56ab6 *QR.d
+acb3f74b61a98d7b43f35e20fb5cd6d807043ba5 *QR.dc
+58a34cf81ba8c58fae92bd86e5d9fbfa37c10660 *QR.ec
+797bbc30716d6386201a14d1b0abe329e61357e1 *QR.exs
+2843a1632d523d14d91cf6ab315c3a4042348ed5 *QR.el
+1588d5056cae26062f7f4d9b87c201de852e3717 *QR.erl
+4c5c0bcac74a557216d06cd165e38903de4892e2 *QR.fsx
+0e4697f181f1b9e964fdfd4d6417dbd5ff982f90 *QR.false
+7456638909c77205dfdc321d7b58d94477595d60 *QR.fs
+f751cd6309099123a176ce8099dfb1c8b063758b *QR.f
+eaf131067f1f34099688cd2bc694ff5de85e109b *QR.f90
+7ccdf579fabb96137a15b1b005e1113e2dff27c1 *QR.gbs
+9e6cabe70d753539de2b4d241e410362410a41fb *QR.g
+e34f7eebe8eeb5a56aee92f92e40a9f79ba79683 *QR.gel
+165465e84a2ad70ecf085077b5797d4dd482fe9c *QR.plt
+a2de04fffe49e361f24f4c365aff2504011aafb7 *QR.go
+beb7a0bb2f186a799d5ea200c1c92ff75d650a04 *QR.gpt
+515cf131262b6cb8fc6e2752fee3fc2298ece2b4 *QR.gri
+27b905c821f7e07e73b9606c0b9c767d776d6aa1 *QR.groovy
+4901d64f1b0fde9ca3cc632e21cf7879b80a1795 *QR.hs
+578a843cee199411fbe8bdaa56abb52104022db1 *QR.hx
+d89cf93e80ca6cea7447422dfd33ec25c9599203 *QR.icn
+f0b84b9ba86dd9e09101691614e9d845b0be0098 *QR.i
+f3acb72ece3fe3a9a9bb6f13a454ac6f11aaf1eb *QR.j
+1d453c974aff7ad4f38b3385ea9b425414577ddb *QR.java
+65c6eef24197f177584dbf42a235e1ef28be6b20 *QR.js
+0713e411ed3021ca71edfac5df75585d761e80dd *QR.jq
+b4d9937f1fc653c3ae5f82715a110721db2bfc3c *QR.jl
+552f261c38fc335450d393876880638f70f835a2 *QR.lazy
+73973442154d5a427dab71dff3f8551930f8dec3 *qr.li
+26ef7efa8a1b18c2df6d77dfb159497252008f0c *QR.ll
+a22a5be3b48908ecee2714731bf7beff5e7f104c *QR.logo
+86686334300a5a5d77b3a01c7f28fd968d0106ac *QR.lol
+d4f61ff96fdb86a2286dc3dfa10c911573966f80 *QR.lua
+aee2e45f456a27f5311c9d53612743ef6c0cfea9 *QR.mk
+47b31a92fd717c888504bb776b920badc0601ae2 *QR.mac
+50c2ada6b60652562f4ff543da17481cd086392a *QR.il
+73ee8b177b76f56b6acf91b5554700e77d8b68bc *QR.asm
+1e72e1179e3f2a2b3d773cea0ba64c16a811a61a *QR.neko
+12baa7595bc25439fb40e852ecc27a36df30a403 *QR.5c
+76651b61605fc4e0511fef1e9bb29fa38e19d943 *QR.nim
+13d3dead52a13f19cdc3d1b6029e6942d5d98688 *QR.m
+5026ad7a5a4bc2af1a87a9d306ecc8705e6feaae *QR.ml
+fc5df8124093a38d61775396f3bbb91482320329 *QR.octave
+57e4b05a8511da66ed015a5d630e29d830f7a840 *QR.ook
+94714f46cdd32d807250d41d2ae232bcc158df7c *QR.gp
+9eaffc04ec99111c46aa0e9b6c60c80580933336 *QR.pasm
+ee2a2f7c92f2d5cbbf23a9eff91d03d3ac8c933c *QR.pas
+4d50df13ed6f77d11a031e60fac64332bc304492 *QR.pl
+9988145eedf8bee0325040ed995a2083a7613dc6 *QR.php
+b8845af543f396fd441074898362312d37ee158a *QR.png
+45eb8c732fa86aa7360013948f06cae392c117c3 *QR.pike
+379b6a96bec44dbda8f649bd15c7faedb37d1ada *QR.ps
+ea0ab20ff5509518a6d9cbb40d09bf6721cc1224 *QR.ppt
+8387a6904f13b5fa1245a61b08558e84e8b5aefa *QR.prolog
+ef2c04251a3e47f112bc8d92ca86b6ff4565ad3f *QR.py
+e5e17b4b6815554d838e9a0685f2e0f30d3ffbee *QR.R
+df5fef208e9875f503dcc16871e2638704fd9521 *QR.ratfor
+d3527090b31a8e6286ac0dff049295f1225d8a02 *QR.rexx
diff --git a/src/code-gen.rb b/src/code-gen.rb
@@ -627,7 +627,9 @@ def code
         : D
           S" #$D" C
           S\\" print \\"(&" C
-          S\\" #{e[PREV]}" DUP FOR S" &A,&" C NEXT
+          S\\" #{e[PREV]}" DUP A ." DO 10 I=1," . CR
+          S" &A,&" C
+          ." 10      CONTINUE" CR
           S\\" &A)\\",&" C
           0 DO B ." &char(" COUNT . ." ),&'" CR LOOP
           S\\" &\\"\\"" C

diff --git a/thumbnail.png b/thumbnail.png