QuoteBegin-"BASIC Code"+<table border="0" align="center" width="95%" cellpadding="3" cellspacing="1"><tr><td><b>QUOTE</b> ("BASIC Code")</td></tr><tr><td id="QUOTE">QuoteEBegin:
:8,12?dim([A]
:Asm(prgmZDEL
:ClrDraw:RecallPic 1:StorePic 0:ClrDraw:2,0:Asm(prgmXLIB:DelVar Pic0
:19:Asm(prgmR
:4?X:Asm(prgmZPIC:StorePic 8:3?X:Asm(prgmZPIC:StorePic 7
:0getKey
:Repeat getKey
:
:For(Z,0,9
:real(20,8,0,0,96,62,0,0
:End
:End
:real(20,8,0,0,96,62,0,0,2
:For(Z,0,56,8:real(20,2,0,24,96,8,0,Z,3-(Z=56:End
:Asm(prgmINVE
:Text(26,26,"2nd: START
:Text(32,18,"ALPHA: CONTINUE
:Repeat Z=21 or Z=31:getKey?Z:End
:For(?,27,33,6:real(20,2,0,24,56,5,18,?,2+(?=27:End
:1?U
:29?dim(L<span style="font-size:7pt;line-height:100%">1</span>:94?A
:20?dim(L<span style="font-size:7pt;line-height:100%">3</span>
:Fill 0,L<span style="font-size:7pt;line-height:100%">3</span>
:?1?E:1?F:1?C:0?D
:1??:0?PV:0?S
:If Z=21 or L<span style="font-size:7pt;line-height:100%">1</span>(1)=0:Then:211?<b>N</b>
:5?B
:1?G
:0?H
:0?I
:0?M:99?L:
:0?J
:0?K
:prgmAC
:StorePic 9
:311?<b>N</b>:prgmAC
:StorePic 8
:411?<b>N</b>:prgmAC
:StorePic 7
:94?A:511?<b>N</b>:prgmAC
:StorePic 6
:For(Z,0,56,8:real(20,2,0,24,96,8,0,Z,3-(Z=56:End
:For(Z,8,56,8:real(20,2,0,24,96,8,0,Z,1:End
:"AHUD
:prgm?:Asm(prgmZDEL
:real(20,1,16,16,24,16,24,32,1
:For(Z,24,40,8:For(?,32,40,8:real(20,1,56,8,8,8,Z,?,1:End:End
:
:For(?,9,7,?1:For(Z,0,46,?5+?:For(X,0,1:real(20,?,0,Z+8,96,48-Z,0,8,1:real(20,?-1,0,8,96,Z+8,0,56-Z,X:End:End:End
:511?<b>N</b>
:4?A:Else:real(20,2,0,24,96,8,0,0,3
:L<span style="font-size:7pt;line-height:100%">1</span>(1?<b>N</b>:L<span style="font-size:7pt;line-height:100%">1</span>(2)?A:L<span style="font-size:7pt;line-height:100%">1</span>(3?B:L<span style="font-size:7pt;line-height:100%">1</span>(4?G:L<span style="font-size:7pt;line-height:100%">1</span>(5?H:L<span style="font-size:7pt;line-height:100%">1</span>(6?I:L<span style="font-size:7pt;line-height:100%">1</span>(7?M:L<span style="font-size:7pt;line-height:100%">1</span>(8?L:L<span style="font-size:7pt;line-height:100%">1</span>(9?J:L<span style="font-size:7pt;line-height:100%">1</span>(10?K
:For(Z,1,20:L<span style="font-size:7pt;line-height:100%">1</span>(9+Z?L<span style="font-size:7pt;line-height:100%">3</span>(Z:End
:
:
:"AHUD
:prgm?:Asm(prgmZDEL
:If M:real(20,2,0,24,8,8,56+8M,0,1
:End
:DelVar Pic6DelVar Pic7DelVar Pic8DelVar Pic9
:
:prgmAC:0?U
:
:For(Z,8A,8A-8,?1:For(?,0,1:real(20,2,8-8G,32H,8,8,8B-8,Z,?:End:End:0getKey?Z
:
:
:While 1
:real(20,2,8-8G,32H,8,8,8B-8,8A-8
:getKey?Z
:If Z=25 and 24<[A](A+1,B:3?E
:1-(E=0)-2(E>0?C:E-1?E
:If 24<[A](A-1,B:?1?E
:real(20,2,8-8G,32H,8,8,8B-8,8A-8,1
:If 24<[A](A+C,B:0?C:A+C?A
:If Z?25:(Z=26)-(Z=24?D
:If D:Then:D?G:not(H?H:End
:If 24<[A](A,B+D:0?D:B+D?B
:If L<1 or A?1 or A?8 or B?1 or B?12 or Z=22 or Z=21:prgmAB
:
:prgmZTEMP
:
:End
Generated by
http://www.cemetech.net/projects/basicelite/sourcecoder.php,