| steelersfan1693 wrote: | | I know that I double posted but Istill need some help on this topic if there's anybody not busy. |
It is not considered double-posting if there are more than 24 hours between them. It is considere *bump*ing, and people are fine with it.
I am busy, but look at what I've got going:
Code:
::"Icon Editor for the 83+
::"7FF0411057105450567052505E48404440687FF4000CEEE948AD48AB48A9EEE949636F6E2046696C6500C9"
:Lbl ST
:ClrDraw
:PlotsOff
:FnOff
:AxesOff
:For(A,0,62)
:Pxl-On(A,0)
:Pxl-On(A,64)
:End
:For(A,1,63
:For(B,4,63,4
:Pxl-On(A-1,B)
:Pxl-On(B-1,A)
:End
:End
:Text(0,66,"[CLEAR]")
:Text(6,77,"=Quit")
:For(A,0,17)
:For(B,0,17,17)
:Pxl-On(A+13,B+70)
:Pxl-On(B+13,A+70)
:End
:End
:Text(31,66,"[DEL]="
:Text(37,83,"Clr")
:95→B
:56→A
:Repeat B=77
:B-1→B
:Pxl-On(A,B)
:End
:Pxl-Off(A,B)
:Repeat A=62
:A+1→A
:Pxl-On(A,B)
:End
:Text(57,79,"Save")
:1→C:1→D
:Lbl Z
:Repeat 0
:0→K
:Pxl-Change(4C-2,4D-1)
:Pxl-Change(4C-4,4D-1)
:Pxl-Change(4C-2,4D-3)
:Pxl-Change(4C-4,4D-3)
:Repeat (iPart(K/10)=2) or K=15 or K=34 or iPart(K/10)=4
:getKey→K
:End
:If K=22:Goto M
:If (K≥42 and K≤44)
:Then
:{16,16}→dim([A])
:For(A,1,16
:For(B,1,16
:Pxl-Off(A+13,B+70)
:0
:If pxl-Test(4A-3,4B-1)
:1
:Ans→[A](A,B)
:Pxl-Change(4A-3,4B-2)
:End:End
:End
:If K=43 or K=44
:Then
:For(Z,1,8)
:rowSwap([A],Z,17-Z)→[A]
:End
:End
:If K=42 or K=44
:Then
:[A]{^T}→[A]
:For(Z,1,8)
:rowSwap([A],Z,17-Z)→[A]
:End
:[A]{^T}→[A]
:End
:If (K≥42 and K≤44)
:Then
:For(A,1,16)
:For(B,1,16)
:If [A](A,B)
:Then
:For(E,4A-4,4A-2)
:For(F,4B-3,4B-1)
:Pxl-On(E,F)
:End
:End
:Pxl-On(A+13,B+70)
:Else
:For(E,4A-4,4A-2)
:For(F,4B-3,4B-1)
:Pxl-Off(E,F)
:End
:End
:Pxl-Off(A+13,B+70)
:End
:End
:End
:End
:If K=41
:Then
:For(A,1,16)
:For(B,1,16)
:For(E,4A-4,4A-2
:For(F,4B-3,4B-1
:Pxl-Change(E,F)
:End
:End
:Pxl-Change(A+13,B+70)
:End
:End
:End
:If (K≥24 and K≤26) or K=34 or K=41
:Then
:Pxl-Change(4C-2,4D-1)
:Pxl-Change(4C-2,4D-3)
:Pxl-Change(4C-4,4D-1)
:Pxl-Change(4C-4,4D-3)
:End
:If K=24 and D≠1
:D-1→D
:If K=25 and C≠1
:C-1→C
:If K=26 and D≠16
:D+1→D
:If K=34 and C≠16
:C+1→C
:If K=21
:Then
:Pxl-Change(4C-2,4D-2)
:Pxl-Change(4C-3,4D-1)
:Pxl-Change(4C-3,4D-2)
:Pxl-Change(4C-3,4D-3)
:Pxl-Change(4C-4,4D-2)
:Pxl-Change(C+13,D+70)
:End
:If K=23
:Goto ST
:If K=15
:Goto SA
:If K=45
:Goto Q
:End
:End
:Lbl SA
:Text(46,85,"I%
:Text(46,85,"
:":→Str1
:For(C,1,16
:For(D,1,16
:"0
:If pxl-Test(4C-3,4D-1)
:"1
:Str1+Ans→Str1
:Pxl-Change(4C-3,4D-2
:If int(50length(Str1)/256)=0
:Then
:Text(46,85,0)
:Else
:Text(46,85-4iPart(log(int(50length(Str1)/256))),int(50(length(Str1)/256
:End
:End:End
:sub(Str1,2,length(Str1)-1→Str1
:":→Str0
:For(X,1,length(Str1),4
:Text(46,85-4iPart(log(int(50(X/255)+50))),int(50(X/255)+50
:sub(Str1,X,4→Str2
:If Str2="0000
:"0
:If Str2="0001
:"1
:If Str2="0010
:"2
:If Str2="0011
:"3
:If Str2="0100
:"4
:If Str2="0101
:"5
:If Str2="0110
:"6
:If Str2="0111
:"7
:If Str2="1000
:"8
:If Str2="1001
:"9
:If Str2="1010
:"A
:If Str2="1011
:"B
:If Str2="1100
:"C
:If Str2="1101
:"D
:If Str2="1110
:"E
:If Str2="1111
:"F
:Str0+Ans→Str0
:End
:sub(Str0,2,length(Str0)-1→Str0
:"AsmPrgm:"+Str0+"49636F6E2046696C6500C9→Str0
:Text(46,77,100
:Pause
:Lbl Q
:ClrDraw
:ClrHome
:Output(1,1,"
_________________
calcs: 84+ 2.42 DCS6.2 and Emu84+SE 2.53MP with DCS7.0 |
![[t]](/forum/templates/Cemetech6/images/twitter.png)
![[t]](/forum/templates/Cemetech6/images/fb.png)
![[RSS]](/forum/templates/Cemetech6/images/rss.png)
And Xeno, nice job on getting the distinction between bumping and double-posting. We'll make an expert of you yet. 
What does the GUI say about his fill level? IT'S OVER 9000!!!