DIRECTORY LABELS

00000000: 01 1C 24 1C 0A 00 8F 20  44 49 52 45 43 54 4F 52  |..$.... DIRECTOR|
00000010: 59 20 4F 4E 20 41 20 4C  41 42 45 4C 20 50 52 4F  |Y ON A LABEL PRO|
00000020: 47 52 41 4D 00 48 1C 14  00 8F 20 46 4F 52 20 54  |GRAM.H.... FOR T|
00000030: 48 45 20 43 36 34 20 42  59 20 50 41 55 4C 20 4D  |HE C64 BY PAUL M|
00000040: 41 43 44 4F 4E 41 4C 44  00 5B 1C 1E 00 8F 20 32  |ACDONALD.[.... 2|
00000050: 20 4A 41 4E 55 41 52 59  20 38 36 00 A4 1C 28 00  | JANUARY 86...(.|
00000060: 8F 20 50 49 45 43 45 53  20 4C 41 52 47 45 20 41  |. PIECES LARGE A|
00000070: 4E 44 20 53 4D 41 4C 4C  20 46 52 4F 4D 20 4F 54  |ND SMALL FROM OT|
00000080: 48 45 52 20 50 55 42 4C  49 43 20 44 4F 4D 41 49  |HER PUBLIC DOMAI|
00000090: 4E 20 44 49 52 45 43 54  4F 52 59 20 50 52 4F 47  |N DIRECTORY PROG|
000000A0: 52 41 4D 53 00 E9 1C 32  00 8F 20 57 4F 52 4B 53  |RAMS...2.. WORKS|
000000B0: 20 57 49 54 48 20 45 50  53 4F 4E 20 52 58 2D 38  | WITH EPSON RX-8|
000000C0: 30 20 50 52 49 4E 54 45  52 53 20 41 4E 44 20 43  |0 PRINTERS AND C|
000000D0: 4F 4D 50 41 54 49 42 4C  45 53 20 55 53 49 4E 47  |OMPATIBLES USING|
000000E0: 20 53 54 41 4E 44 41 52  44 00 06 1D 3C 00 8F 20  | STANDARD...<.. |
000000F0: 33 20 31 2F 32 22 20 58  20 31 35 2F 31 36 22 20  |3 1/2" X 15/16" |
00000100: 4C 41 42 45 4C 53 00 4E  1D 46 00 8F 20 41 43 43  |LABELS.N.F.. ACC|
00000110: 4F 4D 4D 4F 44 41 54 45  53 20 33 33 20 44 49 52  |OMMODATES 33 DIR|
00000120: 45 43 54 4F 52 59 20 45  4E 54 52 49 45 53 20 41  |ECTORY ENTRIES A|
00000130: 53 20 57 45 4C 4C 20 41  53 20 44 49 53 4B 20 4E  |S WELL AS DISK N|
00000140: 41 4D 45 2C 20 53 49 5A  45 2C 20 41 4E 44 00 99  |AME, SIZE, AND..|
00000150: 1D 50 00 8F 20 54 49 54  4C 45 20 4F 4E 20 45 41  |.P.. TITLE ON EA|
00000160: 43 48 20 4C 41 42 45 4C  2E 20 53 4B 49 50 53 20  |CH LABEL. SKIPS |
00000170: 54 4F 20 4E 45 58 54 20  4C 41 42 45 4C 20 54 4F  |TO NEXT LABEL TO|
00000180: 20 43 4F 4D 50 4C 45 54  45 20 4C 41 52 47 45 52  | COMPLETE LARGER|
00000190: 20 4C 49 53 54 49 4E 47  53 00 9F 1D 5A 00 8F 00  | LISTINGS...Z...|
000001A0: B2 1D 5F 00 8B C2 28 32  31 35 29 B2 31 32 38 A7  |.._...(215).128.|
000001B0: FE 25 00 C7 1D 64 00 99  C7 28 31 34 29 3A A0 33  |.%...d...(14):.3|
000001C0: 3A 9F 33 2C 34 2C 34 00  F3 1D 6E 00 98 33 2C C7  |:.3,4,4...n..3,.|
000001D0: 28 32 37 29 3B 22 53 22  3B C7 28 31 29 3B C7 28  |(27);"S";.(1);.(|
000001E0: 31 35 29 3B C7 28 32 37  29 3B 22 41 22 3B C7 28  |15);.(27);"A";.(|
000001F0: 35 29 3B 00 1A 1E 78 00  86 46 58 24 28 32 35 36  |5);...x..FX$(256|
00000200: 29 2C 46 54 24 28 32 35  36 29 2C 46 4C 28 32 35  |),FT$(256),FL(25|
00000210: 36 29 2C 54 54 28 32 35  36 29 00 4B 1E 82 00 99  |6),TT(256).K....|
00000220: 22 93 11 11 1D 1D C1 4C  49 47 4E 20 50 52 49 4E  |"......LIGN PRIN|
00000230: 54 20 48 45 41 44 20 57  49 54 48 20 54 4F 50 20  |T HEAD WITH TOP |
00000240: 4F 46 20 4C 41 42 45 4C  2E 11 22 00 69 1E 8C 00  |OF LABEL..".i...|
00000250: 4E B2 AB 31 3A 81 49 B2  31 A4 32 35 36 3A 46 58  |N..1:.I.1.256:FX|
00000260: 24 28 49 29 B2 22 22 3A  82 00 8B 1E 96 00 42 4C  |$(I)."":......BL|
00000270: 24 B2 22 20 22 3A 81 49  B2 31 A4 34 30 3A 42 4C  |$." ":.I.1.40:BL|
00000280: 24 B2 42 4C 24 AA 22 A0  22 3A 82 00 B7 1E A0 00  |$.BL$.".":......|
00000290: A0 31 35 3A 9F 31 35 2C  38 2C 31 35 3A 9F 31 2C  |.15:.15,8,15:.1,|
000002A0: 38 2C 30 2C 22 24 30 22  3A 8D 35 31 30 3A A1 23  |8,0,"$0":.510:.#|
000002B0: 31 2C 41 24 2C 42 24 00  DF 1E AA 00 57 B2 36 30  |1,A$,B$.....W.60|
000002C0: 3A 4C 24 B2 22 22 3A 85  22 1D 1D C5 4E 54 45 52  |:L$."":."...NTER|
000002D0: 20 54 49 54 4C 45 20 2D  2D 3E 20 22 3B 4C 24 00  | TITLE --> ";L$.|
000002E0: 22 1F B4 00 8B C3 28 4C  24 29 B1 31 36 A7 20 99  |".....(L$).16. .|
000002F0: 22 4C 41 42 45 4C 20 53  54 52 49 4E 47 20 54 4F  |"LABEL STRING TO|
00000300: 4F 20 4C 4F 4E 47 2D 4D  41 58 20 49 53 20 31 36  |O LONG-MAX IS 16|
00000310: 20 43 48 41 52 41 43 54  45 52 53 2E 22 3A 89 31  | CHARACTERS.":.1|
00000320: 37 30 00 44 1F B9 00 99  22 11 D2 45 41 44 49 4E  |70.D...."..EADIN|
00000330: 47 20 C4 49 53 4B 20 C4  49 52 45 43 54 4F 52 59  |G .ISK .IRECTORY|
00000340: 2E 2E 2E 22 00 70 1F BE  00 A1 23 31 2C 41 24 2C  |...".p....#1,A$,|
00000350: 42 24 3A A1 23 31 2C 41  24 2C 42 24 3A 43 B2 30  |B$:.#1,A$,B$:C.0|
00000360: 3A 8B 41 24 B3 B1 22 22  A7 43 B2 C6 28 41 24 29  |:.A$.."".C..(A$)|
00000370: 00 8D 1F C8 00 8B 20 42  24 B3 B1 22 22 20 A7 20  |...... B$.."" . |
00000380: 43 B2 43 AA C6 28 42 24  29 AC 32 35 36 00 9F 1F  |C.C..(B$).256...|
00000390: D2 00 4E B2 4E AA 31 3A  46 4C 28 4E 29 B2 43 00  |..N.N.1:FL(N).C.|
000003A0: B8 1F DC 00 A1 23 31 2C  42 24 3A 8B 20 53 54 B3  |.....#1,B$:. ST.|
000003B0: B1 30 20 A7 20 33 31 30  00 CD 1F E6 00 8B 20 42  |.0 . 310...... B|
000003C0: 24 B3 B1 C7 28 33 34 29  20 A7 32 32 30 00 D7 1F  |$...(34) .220...|
000003D0: F0 00 4E 24 B2 22 22 00  FB 1F FA 00 A1 23 31 2C  |..N$.""......#1,|
000003E0: 42 24 3A 8B 42 24 B3 B1  C7 28 33 34 29 A7 4E 24  |B$:.B$...(34).N$|
000003F0: B2 4E 24 AA 42 24 3A 89  32 35 30 00 09 20 04 01  |.N$.B$:.250.. ..|
00000400: 46 58 24 28 4E 29 B2 4E  24 00 24 20 0E 01 A1 23  |FX$(N).N$.$ ...#|
00000410: 31 2C 42 24 3A 8B 20 42  24 B2 C7 28 33 32 29 20  |1,B$:. B$..(32) |
00000420: A7 32 37 30 00 2E 20 18  01 43 24 B2 22 22 00 51  |.270.. ..C$."".Q|
00000430: 20 22 01 43 24 B2 43 24  AA 42 24 3A A1 23 31 2C  | ".C$.C$.B$:.#1,|
00000440: 42 24 3A 8B 20 42 24 B3  B1 22 22 20 20 A7 32 39  |B$:. B$..""  .29|
00000450: 30 00 6E 20 2C 01 46 54  24 28 4E 29 B2 C8 28 43  |0.n ,.FT$(N)..(C|
00000460: 24 2C 33 29 3A 8B 53 54  B2 30 A7 31 39 30 00 99  |$,3):.ST.0.190..|
00000470: 20 36 01 A0 31 3A 99 22  11 D3 4F 52 54 49 4E 47  | 6..1:."..ORTING|
00000480: 2E 2E 2E 11 22 3A 42 46  B2 46 4C 28 4E 29 3A 4E  |....":BF.FL(N):N|
00000490: B2 4E AB 31 3A 8D 36 31  30 00 BF 20 40 01 50 B2  |.N.1:.610.. @.P.|
000004A0: B5 28 28 42 46 AC 31 30  30 AD 36 36 34 29 AA 2E  |.((BF.100.664)..|
000004B0: 35 29 3A 50 24 B2 CA 28  C4 28 50 29 2C 32 29 00  |5):P$..(.(P),2).|
000004C0: EB 20 4A 01 54 32 24 B2  46 58 24 28 30 29 3A 8B  |. J.T2$.FX$(0):.|
000004D0: 4C 24 B3 B1 22 22 A7 54  32 24 B2 54 32 24 AA 22  |L$.."".T2$.T2$."|
000004E0: A0 A0 28 22 AA 4C 24 AA  22 29 22 00 1D 21 54 01  |..(".L$.")"..!T.|
000004F0: 54 24 B2 22 20 2A 22 AA  46 58 24 28 30 29 AA C4  |T$." *".FX$(0)..|
00000500: 28 42 46 29 AA 22 20 42  4C 4F 43 4B 53 20 28 22  |(BF)." BLOCKS ("|
00000510: AA 50 24 AA 22 25 29 20  46 52 45 45 22 00 46 21  |.P$."%) FREE".F!|
00000520: 5E 01 8B 4C 24 B2 22 22  A7 54 24 B2 54 24 AA CA  |^..L$."".T$.T$..|
00000530: 28 42 4C 24 2C 31 2C 57  AB C3 28 54 24 29 AB 31  |(BL$,1,W..(T$).1|
00000540: 29 3A 89 33 37 30 00 7A  21 68 01 4B B2 57 AB 32  |):.370.z!h.K.W.2|
00000550: AB C3 28 54 24 29 AB C3  28 4C 24 29 3A 54 24 B2  |..(T$)..(L$):T$.|
00000560: 54 24 AA CA 28 42 4C 24  2C 31 2C 4B AB 31 29 AA  |T$..(BL$,1,K.1).|
00000570: 22 28 22 AA 4C 24 AA 22  29 22 00 94 21 72 01 54  |"(".L$.")"..!r.T|
00000580: 24 B2 54 24 AA 22 20 20  22 3A 98 33 2C 54 24 3A  |$.T$."  ":.3,T$:|
00000590: 51 B2 31 31 00 B0 21 7C  01 4C B2 39 3A 4B B2 B5  |Q.11..!|.L.9:K..|
000005A0: 28 28 4E AA 31 29 AD 33  29 3A 81 49 B2 31 A4 4B  |((N.1).3):.I.1.K|
000005B0: 00 BD 21 81 01 8B 51 B1  30 A7 33 39 30 00 D9 21  |..!...Q.0.390..!|
000005C0: 82 01 98 33 2C C7 28 32  37 29 3B 22 CA 22 3B C7  |...3,.(27);".";.|
000005D0: 28 31 36 29 3A 51 B2 31  31 00 0E 22 86 01 54 24  |(16):Q.11.."..T$|
000005E0: B2 C7 28 58 29 3A 4A B2  49 3A 8D 35 35 30 3A 54  |..(X):J.I:.550:T|
000005F0: 24 B2 54 24 AA 22 20 22  3A 4A B2 4B AA 49 3A 8D  |$.T$." ":J.K.I:.|
00000600: 35 35 30 3A 54 24 B2 54  24 AA 22 20 20 22 00 2C  |550:T$.T$."  ".,|
00000610: 22 90 01 4A B2 28 32 AC  4B 29 AA 49 3A 8D 35 35  |"..J.(2.K).I:.55|
00000620: 30 3A 54 24 B2 54 24 AA  22 20 20 22 00 60 22 9A  |0:T$.T$."  ".`".|
00000630: 01 54 24 B2 CA 28 54 24  2C 35 2C 31 39 29 AA 22  |.T$..(T$,5,19)."|
00000640: 20 20 22 AA CA 28 54 24  2C 33 31 2C 31 38 29 AA  |  "..(T$,31,18).|
00000650: 22 20 20 22 AA CA 28 54  24 2C 35 37 2C 31 38 29  |"  "..(T$,57,18)|
00000660: 00 79 22 A4 01 98 33 2C  54 24 20 3A 4C B2 4C AA  |.y"...3,T$ :L.L.|
00000670: 31 3A 51 B2 51 AB 31 3A  82 00 86 22 AE 01 8B 51  |1:Q.Q.1:..."...Q|
00000680: B2 30 A7 34 35 30 00 BA  22 B8 01 81 58 B2 31 A4  |.0.450.."...X.1.|
00000690: 51 AB 33 3A 98 33 2C C7  28 32 37 29 3B 22 4A 22  |Q.3:.3,.(27);"J"|
000006A0: 3B C7 28 31 35 29 3A 82  3A 98 33 2C C7 28 32 37  |;.(15):.:.3,.(27|
000006B0: 29 3B 22 4A 22 3B C7 28  31 29 00 E9 22 C2 01 99  |);"J";.(1).."...|
000006C0: 22 93 11 11 1D 1D C9 4E  53 45 52 54 20 4E 45 57  |"......NSERT NEW|
000006D0: 20 44 49 53 4B 20 46 4F  52 20 4E 45 58 54 20 4C  | DISK FOR NEXT L|
000006E0: 41 42 45 4C 20 41 4E 44  22 00 17 23 CC 01 99 22  |ABEL AND"..#..."|
000006F0: 20 20 50 52 45 53 53 20  D2 C5 D4 D5 D2 CE 2C 20  |  PRESS ......, |
00000700: 4F 52 20 50 52 45 53 53  20 41 4E 59 20 4F 54 48  |OR PRESS ANY OTH|
00000710: 45 52 20 4B 45 59 22 00  2A 23 D6 01 99 22 20 20  |ER KEY".*#..."  |
00000720: 54 4F 20 51 55 49 54 2E  11 22 00 3F 23 E0 01 A1  |TO QUIT..".?#...|
00000730: 4B 45 24 3A 8B 4B 45 24  B2 22 22 A7 34 38 30 00  |KE$:.KE$."".480.|
00000740: 52 23 EA 01 8B 4B 45 24  B2 C7 28 31 33 29 A7 31  |R#...KE$..(13).1|
00000750: 34 30 00 5F 23 F4 01 A0  33 3A A0 31 35 3A 80 00  |40._#...3:.15:..|
00000760: 6C 23 FE 01 8B 45 52 B3  32 30 A7 8E 00 A5 23 08  |l#...ER.20....#.|
00000770: 02 8B 45 52 B2 37 34 B0  45 52 B2 32 31 A7 45 52  |..ER.74.ER.21.ER|
00000780: 24 B2 22 20 20 22 AA 45  52 24 AA 22 2D 2D 49 53  |$."  ".ER$."--IS|
00000790: 20 44 49 53 4B 20 49 4E  53 45 52 54 45 44 3F 22  | DISK INSERTED?"|
000007A0: 3A 89 35 34 30 00 C9 23  12 02 45 52 24 B2 22 44  |:.540..#..ER$."D|
000007B0: 49 53 4B 20 45 52 52 4F  52 22 AA C4 28 45 52 29  |ISK ERROR"..(ER)|
000007C0: AA 22 3A 20 22 AA 45 52  24 00 D4 23 1C 02 99 45  |.": ".ER$..#...E|
000007D0: 52 24 3A 80 00 F9 23 26  02 54 B2 54 54 28 4A 29  |R$:...#&.T.TT(J)|
000007E0: 3A 8B 54 B2 30 A7 54 24  B2 54 24 AA CA 28 42 4C  |:.T.0.T$.T$..(BL|
000007F0: 24 2C 31 2C 32 34 29 3A  8E 00 12 24 30 02 8B 46  |$,1,24):...$0..F|
00000800: 4C 28 54 29 B3 31 30 30  A7 54 24 B2 54 24 AA 22  |L(T).100.T$.T$."|
00000810: A0 22 00 2A 24 3A 02 8B  46 4C 28 54 29 B3 31 30  |.".*$:..FL(T).10|
00000820: A7 54 24 B2 54 24 AA 22  A0 22 00 4D 24 44 02 54  |.T$.T$.".".M$D.T|
00000830: 24 B2 54 24 AA CA 28 C4  28 46 4C 28 54 29 29 2C  |$.T$..(.(FL(T)),|
00000840: 32 29 AA 22 A0 22 AA 46  58 24 28 54 29 00 7C 24  |2).".".FX$(T).|$|
00000850: 4E 02 8B 20 C3 28 46 58  24 28 54 29 29 B3 31 36  |N.. .(FX$(T)).16|
00000860: A7 54 24 B2 54 24 AA CA  28 42 4C 24 2C 31 2C 31  |.T$.T$..(BL$,1,1|
00000870: 36 AB C3 28 46 58 24 28  54 29 29 29 00 98 24 58  |6..(FX$(T)))..$X|
00000880: 02 54 24 B2 54 24 AA 22  A0 22 AA C8 28 46 54 24  |.T$.T$."."..(FT$|
00000890: 28 54 29 2C 33 29 3A 8E  00 B4 24 62 02 81 20 49  |(T),3):...$b.. I|
000008A0: B2 31 20 A4 20 4E 20 3A  20 54 54 28 49 29 B2 49  |.1 . N : TT(I).I|
000008B0: 20 3A 20 82 00 F7 24 6C  02 81 49 B2 31 20 A4 20  | : ...$l..I.1 . |
000008C0: 4E AB 31 20 3A 20 53 B2  49 20 3A 20 81 20 4A B2  |N.1 : S.I : . J.|
000008D0: 49 AA 31 20 A4 20 4E 20  3A 20 8B 20 46 58 24 28  |I.1 . N : . FX$(|
000008E0: 54 54 28 4A 29 29 B3 46  58 24 28 54 54 28 53 29  |TT(J)).FX$(TT(S)|
000008F0: 29 20 A7 20 53 B2 4A 00  2A 25 76 02 82 20 4A 20  |) . S.J.*%v.. J |
00000900: 3A 20 8B 20 53 B3 B1 49  20 A7 20 54 B2 54 54 28  |: . S..I . T.TT(|
00000910: 49 29 20 3A 20 54 54 28  49 29 B2 54 54 28 53 29  |I) : TT(I).TT(S)|
00000920: 20 3A 20 54 54 28 53 29  B2 54 00 36 25 80 02 82  | : TT(S).T.6%...|
00000930: 20 49 20 3A 20 8E 00 00  00 1A 1A 1A 1A           | I : ........   |

..$.... DIRECTORY ON A LABEL PROGRAM.H..
.. FOR THE C64 BY PAUL MACDONALD.[.... 2
 JANUARY 86...(.. PIECES LARGE AND SMALL
 FROM OTHER PUBLIC DOMAIN DIRECTORY PROG
RAMS...2.. WORKS WITH EPSON RX-80 PRINTE
RS AND COMPATIBLES USING STANDARD...<.. 
3 1/2" X 15/16" LABELS.N.F.. ACCOMMODATE
S 33 DIRECTORY ENTRIES AS WELL AS DISK N
AME, SIZE, AND...P.. TITLE ON EACH LABEL
. SKIPS TO NEXT LABEL TO COMPLETE LARGER
 LISTINGS...Z....._..B(215).128..%.G.D..
G(14): 3:.3,4,4...N..3,G(27);"S";G(1);G(
15);G(27);"A";G(5);...X..FX$(256),FT$(25
6),FL(256),TT(256).K....".....ALIGN PRIN
T HEAD WITH TOP OF LABEL..".I...N..1:.I.
1.256:FX$(I)."":......BL$." ":.I.1.40:BL
$.BL$." ":.... . 15:.15,8,15:.1,8,0,"$0"
:.510:.#1,A$,B$.....W.60:L$."":."..ENTER
 TITLE --> ";L$."....C(L$).16. ."LABEL S
TRING TOO LONG-MAX IS 16 CHARACTERS.":.1
70.D....".READING DISK DIRECTORY...".P..
..#1,A$,B$:.#1,A$,B$:C.0:.A$.."".C.F(A$)
...H.. B$.."" . C.C.F(B$).256...R.N.N.1:
FL(N).C......#1,B$:. ST..0 . 310.M.... B
$..G(34) .220.W...N$.""......#1,B$:.B$..
G(34).N$.N$.B$:.250.. ..FX$(N).N$.$ ...#
1,B$:. B$.G(32) .270.. ..C$."".Q ".C$.C$
.B$:.#1,B$:. B$..""  .290.N ,.FT$(N).H(C
$,3):.ST.0.190.. 6. 1:.".SORTING....":BF
.FL(N):N.N.1:.610.. @.P..((BF.100.664)..
5):P$.J(D(P),2).. J.T2$.FX$(0):.L$.."".T
2$.T2$."  (".L$.")"..!T.T$." *".FX$(0).D
(BF)." BLOCKS (".P$."%) FREE".F!^..L$.""
.T$.T$.J(BL$,1,W.C(T$).1):.370.Z!H.K.W.2
.C(T$).C(L$):T$.T$.J(BL$,1,K.1)."(".L$."
)"..!R.T$.T$."  ":.3,T$:Q.11..!|.L.9:K..
((N.1).3):.I.1.K..!...Q.0.390.Y!...3,G(2
7);"J";G(16):Q.11.."..T$.G(X):J.I:.550:T
$.T$." ":J.K.I:.550:T$.T$."  ".,"..J.(2.
K).I:.550:T$.T$."  ".`"..T$.J(T$,5,19)."
  ".J(T$,31,18)."  ".J(T$,57,18).Y"...3,
T$ :L.L.1:Q.Q.1:..."...Q.0.450.."...X.1.
Q.3:.3,G(27);"J";G(15):.:.3,G(27);"J";G(
1).."B..".....INSERT NEW DISK FOR NEXT L
ABEL AND"..#L.."  PRESS RETURN, OR PRESS
 ANY OTHER KEY".*#V.."  TO QUIT..".?#...
KE$:.KE$."".480.R#...KE$.G(13).140._#.. 
3: 15:..L#...ER.20....#...ER.74.ER.21.ER
$."  ".ER$."--IS DISK INSERTED?":.540.I#
..ER$."DISK ERROR".D(ER).": ".ER$.T#...E
R$:...#&.T.TT(J):.T.0.T$.T$.J(BL$,1,24):
...$0..FL(T).100.T$.T$." ".*$:..FL(T).10
.T$.T$." ".M$D.T$.T$.J(D(FL(T)),2)." ".F
X$(T).|$N.. C(FX$(T)).16.T$.T$.J(BL$,1,1
6.C(FX$(T)))..$X.T$.T$." ".H(FT$(T),3):.
..$B.. I.1 . N : TT(I).I : ...$L..I.1 . 
N.1 : S.I : . J.I.1 . N : . FX$(TT(J)).F
X$(TT(S)) . S.J.*%V.. J : . S..I . T.TT(
I) : TT(I).TT(S) : TT(S).T.6%... I : ...
.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL