PERL3
FILE INFORMATION
FILENAME(S): PERL3
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-12-02 23:47:50
APPEARS ON: 1 disk(s)
FILE HASH
a4415f887a58b1c6276f3d07ec3e0ac6f8bd40837011038047724ffad0bbb0ef
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 MATH U STUFE | PERL3 | PRG | swasti, flohmarkt | 14 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 01 00 8F 20 4E 52 2E 20 20 20 20 2D |..=.... NR. -| 00000010: 20 50 45 52 4C 33 20 2D 20 44 45 5A 49 4D 41 4C | PERL3 - DEZIMAL| 00000020: 42 52 55 43 48 45 4E 54 57 49 43 4B 4C 55 4E 47 |BRUCHENTWICKLUNG| 00000030: 20 28 33 20 50 45 52 49 4F 44 45 4E 29 00 81 08 | (3 PERIODEN)...| 00000040: 02 00 8F 20 42 2E 42 52 4F 43 4B 4D 41 4E 4E 2C |... B.BROCKMANN,| 00000050: 20 5A 45 4E 54 52 41 4C 53 54 45 4C 4C 45 20 46 | ZENTRALSTELLE F| 00000060: 55 45 52 20 50 52 4F 47 52 41 4D 4D 49 45 52 54 |UER PROGRAMMIERT| 00000070: 45 4E 20 55 4E 54 45 52 52 49 43 48 54 20 55 4E |EN UNTERRICHT UN| 00000080: 44 00 BC 08 03 00 8F 20 43 4F 4D 50 55 54 45 52 |D...... COMPUTER| 00000090: 20 49 4D 20 55 4E 54 45 52 52 49 43 48 54 2C 20 | IM UNTERRICHT, | 000000A0: 41 55 47 53 42 55 52 47 2C 20 56 45 52 53 49 4F |AUGSBURG, VERSIO| 000000B0: 4E 20 4D 41 45 52 5A 20 31 39 38 34 00 FF 08 04 |N MAERZ 1984....| 000000C0: 00 8F 20 50 52 4F 47 52 41 4D 4D 20 47 49 42 54 |.. PROGRAMM GIBT| 000000D0: 20 42 45 49 20 55 4E 45 4E 44 4C 49 43 48 45 4E | BEI UNENDLICHEN| 000000E0: 20 44 45 5A 49 4D 41 4C 42 52 55 45 43 48 45 4E | DEZIMALBRUECHEN| 000000F0: 20 33 20 50 45 52 49 4F 44 45 4E 20 41 55 53 00 | 3 PERIODEN AUS.| 00000100: 23 09 0A 00 8F 20 56 41 52 49 41 42 4C 45 3A 20 |#.... VARIABLE: | 00000110: 5A 41 45 48 4C 45 52 20 5A 2C 20 4E 45 4E 4E 45 |ZAEHLER Z, NENNE| 00000120: 52 20 4E 00 47 09 0B 00 8F 20 20 20 20 20 20 20 |R N.G.... | 00000130: 20 20 20 20 52 45 53 54 20 42 45 49 20 44 49 56 | REST BEI DIV| 00000140: 49 53 49 4F 4E 20 52 00 77 09 0C 00 8F 20 20 20 |ISION R.w.... | 00000150: 20 20 20 20 20 20 20 20 52 45 53 54 20 42 45 49 | REST BEI| 00000160: 20 45 4E 44 45 20 44 45 52 20 56 4F 52 50 45 52 | ENDE DER VORPER| 00000170: 49 4F 44 45 20 52 31 00 AA 09 0D 00 8F 20 20 20 |IODE R1...... | 00000180: 20 20 20 20 20 20 20 20 47 41 4E 5A 5A 41 48 4C | GANZZAHL| 00000190: 49 47 45 52 20 41 4E 54 45 49 4C 20 42 45 49 20 |IGER ANTEIL BEI | 000001A0: 44 49 56 49 53 49 4F 4E 20 47 00 F2 09 0E 00 8F |DIVISION G......| 000001B0: 20 20 20 20 20 20 20 20 20 20 20 53 54 45 4C 4C | STELL| 000001C0: 45 4E 5A 41 48 4C 20 44 45 52 20 56 4F 52 50 45 |ENZAHL DER VORPE| 000001D0: 52 49 4F 44 45 20 56 2C 20 53 54 45 4C 4C 45 4E |RIODE V, STELLEN| 000001E0: 5A 41 48 4C 20 44 45 52 20 50 45 52 49 4F 44 45 |ZAHL DER PERIODE| 000001F0: 20 50 00 22 0A 0F 00 8F 20 20 20 20 20 20 20 20 | P.".... | 00000200: 20 20 20 5A 41 48 4C 20 44 45 52 20 5A 49 46 46 | ZAHL DER ZIFF| 00000210: 45 52 4E 20 4E 41 43 48 20 44 45 4D 20 4B 4F 4D |ERN NACH DEM KOM| 00000220: 4D 41 00 46 0A 10 00 8F 20 20 20 20 20 20 20 20 |MA.F.... | 00000230: 20 20 20 5A 41 48 4C 20 44 45 52 20 50 45 52 49 | ZAHL DER PERI| 00000240: 4F 44 45 4E 20 4B 00 5B 0A 11 00 8F 20 48 49 4C |ODEN K.[.... HIL| 00000250: 46 53 56 41 52 49 41 42 4C 45 3A 00 61 0A 14 00 |FSVARIABLE:.a...| 00000260: 3A 00 70 0A 15 00 42 4C 24 B2 C7 28 31 34 37 29 |:.p...BL$..(147)| 00000270: 00 76 0A 1E 00 3A 00 80 0A 1F 00 99 20 42 4C 24 |.v...:...... BL$| 00000280: 00 AE 0A 23 00 99 22 C4 45 5A 49 4D 41 4C 42 52 |...#..".EZIMALBR| 00000290: 55 43 48 45 4E 54 57 49 43 4B 4C 55 4E 47 20 20 |UCHENTWICKLUNG | 000002A0: 20 20 20 20 28 30 3D 20 C5 4E 44 45 29 22 00 B4 | (0= .NDE)"..| 000002B0: 0A 24 00 99 00 C3 0A 25 00 97 20 35 33 32 37 32 |.$.....%.. 53272| 000002C0: 2C 32 33 00 D7 0A 28 00 8F 20 45 49 4E 47 41 42 |,23...(.. EINGAB| 000002D0: 45 20 42 52 55 43 48 00 E7 0A 2D 00 99 3A 99 22 |E BRUCH...-..:."| 000002E0: C2 52 55 43 48 22 3B 00 F0 0A 32 00 85 20 42 24 |.RUCH";...2.. B$| 000002F0: 00 03 0B 37 00 8B 20 42 24 B2 22 30 22 A7 20 35 |...7.. B$."0". 5| 00000300: 30 30 30 00 18 0B 3C 00 5A B2 C5 28 42 24 29 3A |000...<.Z..(B$):| 00000310: 20 5A 24 B2 C4 28 5A 29 00 35 0B 3D 00 8B 20 CA | Z$..(Z).5.=.. .| 00000320: 28 42 24 2C C3 28 5A 24 29 2C 31 29 B2 22 2F 22 |(B$,.(Z$),1)."/"| 00000330: 20 A7 20 37 31 00 66 0B 3E 00 99 20 3A 99 20 22 | . 71.f.>.. :. "| 00000340: C2 52 55 43 48 20 45 49 4E 47 45 42 45 4E 2C 20 |.RUCH EINGEBEN, | 00000350: 5A 2E C2 2E 20 20 20 31 2F 33 32 22 20 3A 20 99 |Z... 1/32" : .| 00000360: 20 3A 20 89 34 30 00 7F 0B 47 00 8B 20 5A B3 B1 | : .40...G.. Z..| 00000370: B5 28 5A 29 20 B0 20 5A B3 30 20 A7 20 39 30 00 |.(Z) . Z.0 . 90.| 00000380: A2 0B 4B 00 4E B2 C5 28 CA 28 42 24 2C C3 28 5A |..K.N..(.(B$,.(Z| 00000390: 24 29 AA 31 2C C3 28 42 24 29 AB C3 28 5A 24 29 |$).1,.(B$)..(Z$)| 000003A0: 29 29 00 BD 0B 4C 00 8B 20 4E B3 B1 20 B5 28 4E |))...L.. N.. .(N| 000003B0: 29 20 B0 20 4E B3 20 30 20 A7 20 39 30 00 CD 0B |) . N. 0 . 90...| 000003C0: 4D 00 8B 20 4E B3 B1 30 20 A7 20 39 35 00 02 0C |M.. N..0 . 95...| 000003D0: 4E 00 99 3A 20 99 22 C4 45 52 20 CE 45 4E 4E 45 |N..: .".ER .ENNE| 000003E0: 52 20 44 41 52 46 20 4E 49 43 48 54 20 CE 55 4C |R DARF NICHT .UL| 000003F0: 4C 20 53 45 49 4E 22 20 3A 20 99 20 3A 20 89 20 |L SEIN" : . : . | 00000400: 34 30 00 45 0C 5A 00 99 3A 99 22 C6 55 45 52 20 |40.E.Z..:.".UER | 00000410: DA 41 45 48 4C 45 52 20 55 4E 44 20 CE 45 4E 4E |.AEHLER UND .ENN| 00000420: 45 52 20 4E 55 52 20 4E 41 54 55 45 52 4C 49 43 |ER NUR NATUERLIC| 00000430: 48 45 20 DA 41 48 4C 45 4E 20 45 49 4E 47 45 42 |HE .AHLEN EINGEB| 00000440: 45 4E 22 3A 99 00 4E 0C 5B 00 89 20 34 30 00 70 |EN":..N.[.. 40.p| 00000450: 0C 5F 00 8B 20 5A B3 31 30 30 30 30 30 30 20 AF |._.. Z.1000000 .| 00000460: 20 4E 20 B3 31 30 30 30 30 30 30 20 A7 20 39 39 | N .1000000 . 99| 00000470: 00 AA 0C 60 00 99 3A 20 99 20 22 DA 41 45 48 4C |...`..: . ".AEHL| 00000480: 45 52 20 55 4E 44 20 CE 45 4E 4E 45 52 20 3C 20 |ER UND .ENNER < | 00000490: 31 30 30 30 30 30 30 20 57 41 45 48 4C 45 4E 22 |1000000 WAEHLEN"| 000004A0: 3A 20 99 20 3A 20 89 20 34 30 00 B7 0C 63 00 99 |: . : . 40...c..| 000004B0: 3A 99 20 22 3D 22 3B 00 DF 0C 64 00 8F 20 4C 41 |:. "=";...d.. LA| 000004C0: 45 4E 47 45 20 44 45 52 20 56 4F 52 50 45 52 49 |ENGE DER VORPERI| 000004D0: 4F 44 45 20 46 45 53 54 53 54 45 4C 4C 45 4E 00 |ODE FESTSTELLEN.| 000004E0: EE 0C 6E 00 41 B2 5A 20 3A 20 5A 31 B2 5A 00 FB |..n.A.Z : Z1.Z..| 000004F0: 0C 78 00 42 B2 4E 3A 4E 31 B2 4E 00 03 0D 82 00 |.x.B.N:N1.N.....| 00000500: 56 B2 30 00 0C 0D 8C 00 46 B2 31 30 00 16 0D 96 |V.0.....F.10....| 00000510: 00 8D 31 30 30 30 00 1E 0D A0 00 46 B2 32 00 28 |..1000.....F.2.(| 00000520: 0D B4 00 8D 31 30 30 30 00 30 0D BE 00 46 B2 35 |....1000.0...F.5| 00000530: 00 3A 0D C3 00 8D 31 30 30 30 00 50 0D C8 00 8F |.:....1000.P....| 00000540: 20 56 4F 52 4B 4F 4D 4D 41 53 54 45 4C 4C 45 4E | VORKOMMASTELLEN| 00000550: 00 5D 0D D2 00 47 B2 B5 28 41 AD 42 29 00 69 0D |.]...G..(A.B).i.| 00000560: DC 00 52 B2 41 AB 47 AC 42 00 76 0D E1 00 8B 52 |..R.A.G.B.v....R| 00000570: B2 30 A7 32 35 30 00 82 0D E6 00 47 24 B2 C4 28 |.0.250.....G$..(| 00000580: 47 29 00 9B 0D F0 00 99 20 C9 28 47 24 2C C3 28 |G)...... .(G$,.(| 00000590: 47 24 29 AB 31 29 AA 22 2C 22 3B 00 A5 0D F5 00 |G$).1).",";.....| 000005A0: 89 20 32 36 30 00 BA 0D FA 00 8F 20 5A 2F 4E 20 |. 260...... Z/N | 000005B0: 47 41 4E 5A 45 20 5A 41 48 4C 00 C2 0D FF 00 99 |GANZE ZAHL......| 000005C0: 20 47 00 CB 0D 00 01 89 36 30 30 00 DC 0D 04 01 | G......600.....| 000005D0: 8F 20 56 4F 52 50 45 52 49 4F 44 45 00 E4 0D 09 |. VORPERIODE....| 000005E0: 01 44 B2 30 00 F1 0D 0A 01 8B 56 B2 30 A7 33 32 |.D.0......V.0.32| 000005F0: 35 00 01 0E 0E 01 81 20 49 B2 31 A4 20 56 A9 20 |5...... I.1. V. | 00000600: 31 00 0C 0E 18 01 41 B2 52 AC 31 30 00 19 0E 22 |1.....A.R.10..."| 00000610: 01 47 B2 B5 28 41 AD 42 29 00 25 0E 2C 01 52 B2 |.G..(A.B).%.,.R.| 00000620: 41 AB 47 AC 42 00 36 0E 36 01 99 20 C9 28 C4 28 |A.G.B.6.6.. .(.(| 00000630: 47 29 2C 31 29 3B 00 40 0E 3B 01 44 B2 44 AA 31 |G),1);.@.;.D.D.1| 00000640: 00 48 0E 40 01 82 20 49 00 51 0E 45 01 52 31 B2 |.H.@.. I.Q.E.R1.| 00000650: 52 00 61 0E 46 01 8B 20 52 31 B2 30 A7 20 33 33 |R.a.F.. R1.0. 33| 00000660: 35 00 6B 0E 4A 01 99 22 20 22 3B 00 73 0E 4B 01 |5.k.J.." ";.s.K.| 00000670: 4B B2 30 00 7C 0E 4D 01 89 33 34 30 00 98 0E 4F |K.0.|.M..340...O| 00000680: 01 8F 20 44 49 56 49 53 49 4F 4E 20 5A 2F 4E 20 |.. DIVISION Z/N | 00000690: 47 45 48 54 20 41 55 46 00 9E 0E 50 01 99 00 A8 |GEHT AUF...P....| 000006A0: 0E 51 01 89 20 36 30 30 00 B6 0E 54 01 8F 20 50 |.Q.. 600...T.. P| 000006B0: 45 52 49 4F 44 45 00 BE 0E 59 01 50 B2 30 00 C9 |ERIODE...Y.P.0..| 000006C0: 0E 68 01 41 B2 52 AC 31 30 00 D6 0E 72 01 47 B2 |.h.A.R.10...r.G.| 000006D0: B5 28 41 AD 42 29 00 E2 0E 7C 01 52 B2 41 AB 47 |.(A.B)...|.R.A.G| 000006E0: AC 42 00 EC 0E 81 01 50 B2 50 AA 31 00 FD 0E 86 |.B.....P.P.1....| 000006F0: 01 99 20 C9 28 C4 28 47 29 2C 31 29 3B 00 07 0F |.. .(.(G),1);...| 00000700: 87 01 44 B2 44 AA 31 00 16 0F 88 01 8B 52 31 B2 |..D.D.1......R1.| 00000710: 52 A7 20 34 30 30 00 27 0F 89 01 8B 20 50 B1 35 |R. 400.'.... P.5| 00000720: 30 30 A7 20 35 30 30 00 30 0F 8B 01 89 33 36 30 |00. 500.0....360| 00000730: 00 47 0F 90 01 8F 20 45 4E 44 45 20 44 45 52 20 |.G.... ENDE DER | 00000740: 50 45 52 49 4F 44 45 00 56 0F 91 01 8B 20 50 B2 |PERIODE.V.... P.| 00000750: 31 A7 20 34 30 35 00 7F 0F 92 01 8F 20 5A 57 49 |1. 405...... ZWI| 00000760: 53 43 48 45 4E 52 41 55 4D 20 42 45 49 20 50 45 |SCHENRAUM BEI PE| 00000770: 52 49 4F 44 45 4E 4C 45 41 45 4E 47 45 3E 31 00 |RIODENLEAENGE>1.| 00000780: 89 0F 93 01 99 22 20 22 3B 00 93 0F 95 01 4B B2 |....." ";.....K.| 00000790: 4B AA 31 00 A2 0F 98 01 8B 20 4B B3 33 A7 20 33 |K.1...... K.3. 3| 000007A0: 34 30 00 AE 0F 9A 01 99 20 22 2E 2E 2E 22 00 B8 |40...... "..."..| 000007B0: 0F A4 01 89 20 36 30 30 00 DD 0F F4 01 8F 20 41 |.... 600...... A| 000007C0: 42 42 52 55 43 48 20 44 45 52 20 44 45 5A 49 4D |BBRUCH DER DEZIM| 000007D0: 41 4C 45 4E 54 57 49 43 4B 4C 55 4E 47 00 EA 0F |ALENTWICKLUNG...| 000007E0: F5 01 99 20 22 2E 2E 2E 22 3B 00 1A 10 F7 01 99 |... "...";......| 000007F0: 20 3A 20 99 22 C4 49 45 20 D0 45 52 49 4F 44 45 | : .".IE .ERIODE| 00000800: 20 48 41 54 20 4D 45 48 52 20 41 4C 53 20 35 30 | HAT MEHR ALS 50| 00000810: 30 20 D3 54 45 4C 4C 45 4E 22 00 24 10 F9 01 89 |0 .TELLEN".$....| 00000820: 20 36 30 30 00 48 10 58 02 8F 20 41 55 53 44 52 | 600.H.X.. AUSDR| 00000830: 55 43 4B 45 4E 20 44 45 5A 49 4D 41 4C 5A 41 48 |UCKEN DEZIMALZAH| 00000840: 4C 20 46 45 52 54 49 47 00 4E 10 62 02 99 00 57 |L FERTIG.N.b...W| 00000850: 10 6C 02 89 20 34 30 00 7C 10 E8 03 8F 20 55 50 |.l.. 40.|.... UP| 00000860: 3A 20 42 45 52 2E 20 4C 41 45 4E 47 45 20 44 45 |: BER. LAENGE DE| 00000870: 52 20 56 4F 52 50 45 52 49 4F 44 45 00 B0 10 EA |R VORPERIODE....| 00000880: 03 8F 20 54 45 49 4C 42 41 52 4B 45 49 54 20 44 |.. TEILBARKEIT D| 00000890: 55 52 43 48 20 46 41 4B 54 4F 52 20 46 20 28 46 |URCH FAKTOR F (F| 000008A0: 3D 31 30 3B 32 3B 35 29 20 50 52 55 45 46 45 4E |=10;2;5) PRUEFEN| 000008B0: 00 C9 10 ED 03 8B 20 4E 31 B2 B5 28 4E 31 AD 46 |...... N1..(N1.F| 000008C0: 29 AC 46 A7 20 31 30 32 30 00 D4 10 F2 03 89 20 |).F. 1020...... | 000008D0: 32 31 30 30 00 ED 10 FC 03 8B 20 5A 31 B2 B5 28 |2100...... Z1..(| 000008E0: 5A 31 AD 46 29 AC 46 A7 20 32 30 30 30 00 F7 10 |Z1.F).F. 2000...| 000008F0: 06 04 56 B2 56 AA 31 00 03 11 10 04 4E 31 B2 4E |..V.V.1.....N1.N| 00000900: 31 AD 46 00 0E 11 1A 04 89 20 31 30 30 35 00 1A |1.F...... 1005..| 00000910: 11 D0 07 5A 31 B2 5A 31 AD 46 00 26 11 DA 07 4E |...Z1.Z1.F.&...N| 00000920: 31 B2 4E 31 AD 46 00 31 11 E4 07 89 20 31 30 30 |1.N1.F.1.... 100| 00000930: 35 00 37 11 34 08 8E 00 3D 11 88 13 80 00 00 00 |5.7.4...=.......| 00000940: 00 DA 09 |... |
..=.... NR. - PERL3 - DEZIMALBRUCHENT WICKLUNG (3 PERIODEN)...... B.BROCKMANN, ZENTRALSTELLE FUER PROGRAMMIERTEN UNTER RICHT UND...... COMPUTER IM UNTERRICHT, AUGSBURG, VERSION MAERZ 1984...... PROGR AMM GIBT BEI UNENDLICHEN DEZIMALBRUECHEN 3 PERIODEN AUS.#.... VARIABLE: ZAEHLER Z, NENNER N.G.... REST BEI DIV ISION R.W.... REST BEI ENDE DE R VORPERIODE R1...... GANZZAHL IGER ANTEIL BEI DIVISION G...... STELLENZAHL DER VORPERIODE V, STELLEN ZAHL DER PERIODE P.".... ZAHL DER ZIFFERN NACH DEM KOMMA.F.... ZAHL DER PERIODEN K.[.... HILFSVARIAB LE:.A...:.P...BL$.G(147).V...:...... BL$ ...#.."DEZIMALBRUCHENTWICKLUNG (0= ENDE)"...$...C.%.. 53272,23.W.(.. EINGAB E BRUCH...-..:."BRUCH";...2.. B$...7.. B $."0". 5000...<.Z.E(B$): Z$.D(Z).5.=.. J (B$,C(Z$),1)."/" . 71.F.>.. :. "BRUCH EI NGEBEN, Z.B. 1/32" : . : .40..G.. Z.. .(Z) . Z.0 . 90...K.N.E(J(B$,C(Z$).1,C(B $).C(Z$)))...L.. N.. .(N) . N. 0 . 90.M. M.. N..0 . 95...N..: ."DER NENNER DARF N ICHT NULL SEIN" : . : . 40.E.Z..:."FUER ZAEHLER UND NENNER NUR NATUERLICHE ZAHLE N EINGEBEN":..N.[.. 40.P._.. Z.1000000 . N .1000000 . 99...`..: . "ZAEHLER UND N ENNER < 1000000 WAEHLEN": . : . 40...C.. :. "=";...D.. LAENGE DER VORPERIODE FEST STELLEN...N.A.Z : Z1.Z...X.B.N:N1.N..... V.0.....F.10......1000... .F.2.(....1000 .0...F.5.:.C..1000.P.H.. VORKOMMASTELLEN .].R.G..(A.B).I...R.A.G.B.V....R.0.250.. ...G$.D(G)...... I(G$,C(G$).1).",";..... . 260...... Z/N GANZE ZAHL.B.... G.K.... 600...... VORPERIODE.....D.0......V.0.32 5...... I.1. V. 1.....A.R.10...".G..(A.B ).%.,.R.A.G.B.6.6.. I(D(G),1);.@.;.D.D.1 .H.@.. I.Q.E.R1.R.A.F.. R1.0. 335.K.J.." ";.S.K.K.0.|.M..340...O.. DIVISION Z/N GEHT AUF...P.....Q.. 600...T.. PERIODE.. .Y.P.0.I.H.A.R.10.V.R.G..(A.B)...|.R.A.G .B.....P.P.1...... I(D(G),1);.....D.D.1. .....R1.R. 400.'.... P.500. 500.0....360 .G.... ENDE DER PERIODE.V.... P.1. 405. .... ZWISCHENRAUM BEI PERIODENLEAENGE>1. ....." ";.....K.K.1...... K.3. 340...... "..."...... 600...... ABBRUCH DER DEZIM ALENTWICKLUNG...... "...";...... : ."DIE PERIODE HAT MEHR ALS 500 STELLEN".$.... 600.H.X.. AUSDRUCKEN DEZIMALZAHL FERTIG .N.B...W.L.. 40.|.... UP: BER. LAENGE DE R VORPERIODE...... TEILBARKEIT DURCH FAK TOR F (F=10;2;5) PRUEFEN.I.... N1..(N1.F ).F. 1020.T.... 2100...... Z1..(Z1.F).F. 2000.....V.V.1.....N1.N1.F...... 1005.. .P.Z1.Z1.F.&.Z.N1.N1.F.1.... 1005.7.4... =........Z.
> CLICK IMAGE PREVIEW FOR FULL MODAL