ADDRESS FILE
FILE INFORMATION
FILENAME(S): ADDRESS FILE
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 1 disk(s)
FILE HASH
e1e1ec90e65fab510aef47f9949b01298e251f331b6f16ecb1c954687269420d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE JAN 85 | ADDRESS FILE | PRG | Radd Maxx | 17 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 05 00 99 22 93 22 00 42 08 0A 00 4C |.......".".B...L| 00000010: B2 31 32 3A 9E 36 35 35 31 37 3A 41 B2 C2 28 37 |.12:.65517:A..(7| 00000020: 38 31 29 3A 51 24 B2 C7 28 31 33 29 3A 8B 41 B2 |81):Q$..(13):.A.| 00000030: 34 30 A7 97 35 33 32 38 31 2C 31 35 3A 4C B2 32 |40..53281,15:L.2| 00000040: 30 30 00 65 08 14 00 86 4D 24 28 4C 2C 36 29 2C |00.e....M$(L,6),| 00000050: 4E 24 28 36 29 3A 81 49 B2 31 A4 36 3A 87 4E 24 |N$(6):.I.1.6:.N$| 00000060: 28 49 29 3A 82 00 A5 08 1E 00 83 4C 41 53 54 20 |(I):.......LAST | 00000070: 4E 41 4D 45 2C 46 49 52 53 54 20 4E 41 4D 45 2C |NAME,FIRST NAME,| 00000080: 41 44 44 52 45 53 53 2C 43 49 54 59 2F 53 54 41 |ADDRESS,CITY/STA| 00000090: 54 45 2C 5A 49 50 20 43 4F 44 45 2C 54 45 4C 45 |TE,ZIP CODE,TELE| 000000A0: 50 48 4F 4E 45 00 F0 08 28 00 99 22 93 11 11 1D |PHONE...(.."....| 000000B0: 1D 1D 1D 12 90 41 44 44 52 45 53 53 20 46 49 4C |.....ADDRESS FIL| 000000C0: 45 22 51 24 22 11 11 1D 31 2E 2E 52 45 54 52 49 |E"Q$"...1..RETRI| 000000D0: 45 56 45 20 46 49 4C 45 22 51 24 22 11 1D 32 2E |EVE FILE"Q$"..2.| 000000E0: 2E 41 44 44 2F 53 54 41 52 54 20 46 49 4C 45 22 |.ADD/START FILE"| 000000F0: 00 30 09 32 00 99 22 11 1D 33 2E 2E 45 44 49 54 |.0.2.."..3..EDIT| 00000100: 20 46 49 4C 45 22 51 24 22 11 1D 34 2E 2E 44 49 | FILE"Q$"..4..DI| 00000110: 53 50 4C 41 59 20 46 49 4C 45 22 51 24 22 11 1D |SPLAY FILE"Q$"..| 00000120: 35 2E 2E 53 41 56 45 20 41 4E 44 20 45 4E 44 22 |5..SAVE AND END"| 00000130: 00 61 09 3C 00 85 22 11 11 59 4F 55 52 20 43 48 |.a.<.."..YOUR CH| 00000140: 4F 49 43 45 22 3B 42 3A 91 42 8D 34 35 30 2C 37 |OICE";B:.B.450,7| 00000150: 30 2C 31 33 30 2C 32 34 30 2C 34 35 30 3A 89 34 |0,130,240,450:.4| 00000160: 30 00 9D 09 46 00 4E B2 4E AA 31 3A 99 22 93 52 |0...F.N.N.1:.".R| 00000170: 45 43 4F 52 44 20 23 22 4E 3A 81 4A B2 31 A4 36 |ECORD #"N:.J.1.6| 00000180: 3A 99 51 24 22 1D 12 90 22 3B 4E 24 28 4A 29 3B |:.Q$"...";N$(J);| 00000190: 22 92 1F 22 3A 85 4D 24 28 4E 2C 4A 29 00 BF 09 |"..":.M$(N,J)...| 000001A0: 50 00 82 4A 3A 99 22 11 20 12 4E 92 45 58 54 20 |P..J:.". .N.EXT | 000001B0: 12 44 92 45 4C 45 54 45 20 12 45 92 4E 44 22 00 |.D.ELETE .E.ND".| 000001C0: EB 09 5A 00 A1 41 24 3A 8B 41 24 B2 22 22 B0 28 |..Z..A$:.A$."".(| 000001D0: 41 24 B3 B1 22 44 22 AF 41 24 B3 B1 22 4E 22 AF |A$.."D".A$.."N".| 000001E0: 41 24 B3 B1 22 45 22 29 A7 39 30 00 FA 09 64 00 |A$.."E").90...d.| 000001F0: 8B 41 24 B2 22 4E 22 A7 37 30 00 09 0A 6E 00 8B |.A$."N".70...n..| 00000200: 41 24 B2 22 45 22 A7 34 30 00 17 0A 78 00 4E B2 |A$."E".40...x.N.| 00000210: 4E AB 31 3A 89 37 30 00 37 0A 82 00 8D 36 36 30 |N.1:.70.7....660| 00000220: 3A 81 49 B2 31 A4 4E 3A 8B 42 24 B2 4D 24 28 49 |:.I.1.N:.B$.M$(I| 00000230: 2C 31 29 A7 31 35 30 00 61 0A 8C 00 82 49 3A 99 |,1).150.a....I:.| 00000240: 22 93 11 22 42 24 22 11 49 53 20 4E 4F 54 20 49 |".."B$".IS NOT I| 00000250: 4E 20 46 49 4C 45 2E 22 3A 8D 36 32 30 3A 89 34 |N FILE.":.620:.4| 00000260: 30 00 93 0A 96 00 8D 36 35 30 3A 99 22 11 43 48 |0......650:.".CH| 00000270: 41 4E 47 45 20 57 48 41 54 3A 22 3A 81 4A B2 31 |ANGE WHAT:":.J.1| 00000280: A4 36 3A 99 22 1D 22 4A 22 2E 2E 22 4E 24 28 4A |.6:."."J".."N$(J| 00000290: 29 3A 82 00 CC 0A A0 00 99 22 1D 1D 37 20 2E 2E |):......."..7 ..| 000002A0: 44 45 4C 45 54 45 20 45 4E 54 52 59 11 22 3A 85 |DELETE ENTRY.":.| 000002B0: 22 59 4F 55 52 20 43 48 4F 49 43 45 22 3B 4A 3A |"YOUR CHOICE";J:| 000002C0: 8B 4A B3 31 B0 4A B1 37 A7 31 36 30 00 D9 0A AA |.J.1.J.7.160....| 000002D0: 00 8B 4A B2 37 A7 32 31 30 00 F5 0A B4 00 99 22 |..J.7.210......"| 000002E0: 93 12 22 4D 24 28 49 2C 31 29 22 2C 20 22 4D 24 |.."M$(I,1)", "M$| 000002F0: 28 49 2C 32 29 00 35 0B BE 00 99 22 11 12 90 4F |(I,2).5...."...O| 00000300: 4C 44 20 22 4E 24 28 4A 29 22 20 49 53 1F 22 3A |LD "N$(J)" IS.":| 00000310: 99 4D 24 28 49 2C 4A 29 51 24 51 24 22 12 90 43 |.M$(I,J)Q$Q$"..C| 00000320: 4F 52 52 45 43 54 45 44 20 22 4E 24 28 4A 29 22 |ORRECTED "N$(J)"| 00000330: 20 49 53 1F 22 00 4C 0B C8 00 85 4D 24 28 49 2C | IS.".L....M$(I,| 00000340: 4A 29 3A 8D 36 32 30 3A 89 32 32 30 00 7D 0B D2 |J):.620:.220.}..| 00000350: 00 81 41 B2 49 A4 4E AB 31 3A 81 4A B2 31 A4 36 |..A.I.N.1:.J.1.6| 00000360: 3A 4D 24 28 41 2C 4A 29 B2 4D 24 28 41 AA 31 2C |:M$(A,J).M$(A.1,| 00000370: 4A 29 3A 82 4A 2C 41 3A 4E B2 4E AB 31 00 C9 0B |J):.J,A:N.N.1...| 00000380: DC 00 99 22 93 11 1D 44 4F 20 59 4F 55 20 57 49 |..."...DO YOU WI| 00000390: 53 48 20 54 4F 3A 22 51 24 22 11 1D 31 2E 2E 43 |SH TO:"Q$"..1..C| 000003A0: 4F 4E 54 49 4E 55 45 20 45 44 49 54 49 4E 47 22 |ONTINUE EDITING"| 000003B0: 51 24 22 11 1D 32 2E 2E 52 45 54 55 52 4E 20 54 |Q$"..2..RETURN T| 000003C0: 4F 20 4D 45 4E 55 11 11 22 00 EE 0B E6 00 85 22 |O MENU.."......"| 000003D0: 1D 59 4F 55 52 20 43 48 4F 49 43 45 22 3B 42 3A |.YOUR CHOICE";B:| 000003E0: 91 42 89 31 33 30 2C 34 30 3A 89 32 33 30 00 32 |.B.130,40:.230.2| 000003F0: 0C F0 00 99 22 93 90 11 57 48 49 43 48 20 44 4F |...."...WHICH DO| 00000400: 20 59 4F 55 20 57 41 4E 54 22 51 24 22 11 1D 31 | YOU WANT"Q$"..1| 00000410: 2E 2E 41 4C 50 48 41 42 45 54 49 43 41 4C 22 51 |..ALPHABETICAL"Q| 00000420: 24 22 11 1D 32 2E 2E 49 4E 44 49 56 49 44 55 41 |$"..2..INDIVIDUA| 00000430: 4C 22 00 69 0C FA 00 99 22 11 1D 33 2E 2E 4D 45 |L".i...."..3..ME| 00000440: 4E 55 11 11 22 3A 85 22 59 4F 55 52 20 43 48 4F |NU..":."YOUR CHO| 00000450: 49 43 45 22 3B 42 3A 91 42 89 32 36 30 2C 34 31 |ICE";B:.B.260,41| 00000460: 30 2C 34 30 3A 89 32 35 30 00 9E 0C 04 01 47 B2 |0,40:.250.....G.| 00000470: 4E 3A 8B 4E B2 30 A7 99 22 11 4E 4F 20 52 45 43 |N:.N.0..".NO REC| 00000480: 4F 52 44 53 20 49 4E 20 46 49 4C 45 2E 22 3A 81 |ORDS IN FILE.":.| 00000490: 49 B2 31 A4 32 30 30 30 3A 82 3A 89 34 30 00 AB |I.1.2000:.:.40..| 000004A0: 0C 0E 01 47 B2 B5 28 47 AD 32 29 00 B8 0C 18 01 |...G..(G.2).....| 000004B0: 8B 47 B2 30 A7 33 38 30 00 C5 0C 22 01 81 41 B2 |.G.0.380..."..A.| 000004C0: 31 A4 4E AB 47 00 E1 0C 2C 01 8B 4D 24 28 41 2C |1.N.G...,..M$(A,| 000004D0: 31 29 B3 B2 4D 24 28 41 AA 47 2C 31 29 A7 33 35 |1)..M$(A.G,1).35| 000004E0: 30 00 27 0D 36 01 52 24 B2 4D 24 28 41 2C 31 29 |0.'.6.R$.M$(A,1)| 000004F0: 3A 53 24 B2 4D 24 28 41 2C 32 29 3A 54 24 B2 4D |:S$.M$(A,2):T$.M| 00000500: 24 28 41 2C 33 29 3A 55 24 B2 4D 24 28 41 2C 34 |$(A,3):U$.M$(A,4| 00000510: 29 3A 56 24 B2 4D 24 28 41 2C 35 29 3A 57 24 B2 |):V$.M$(A,5):W$.| 00000520: 4D 24 28 41 2C 36 29 00 46 0D 40 01 81 4A B2 31 |M$(A,6).F.@..J.1| 00000530: A4 36 3A 4D 24 28 41 2C 4A 29 B2 4D 24 28 41 AA |.6:M$(A,J).M$(A.| 00000540: 47 2C 4A 29 3A 82 00 8B 0D 4A 01 4D 24 28 41 AA |G,J):....J.M$(A.| 00000550: 47 2C 31 29 B2 52 24 3A 4D 24 28 41 AA 47 2C 32 |G,1).R$:M$(A.G,2| 00000560: 29 B2 53 24 3A 4D 24 28 41 AA 47 2C 33 29 B2 54 |).S$:M$(A.G,3).T| 00000570: 24 3A 4D 24 28 41 AA 47 2C 34 29 B2 55 24 3A 4D |$:M$(A.G,4).U$:M| 00000580: 24 28 41 AA 47 2C 35 29 B2 56 24 00 A0 0D 54 01 |$(A.G,5).V$...T.| 00000590: 4D 24 28 41 AA 47 2C 36 29 B2 57 24 3A 45 B2 41 |M$(A.G,6).W$:E.A| 000005A0: 00 A7 0D 5E 01 82 41 00 B4 0D 68 01 8B 45 B2 30 |...^..A...h..E.0| 000005B0: A7 32 37 30 00 C1 0D 72 01 45 B2 30 3A 89 32 38 |.270...r.E.0:.28| 000005C0: 30 00 FA 0D 7C 01 99 22 93 22 3A 4C B2 30 3A 81 |0...|..".":L.0:.| 000005D0: 49 B2 31 A4 4E 3A 4C B2 4C AA 31 3A 99 4D 24 28 |I.1.N:L.L.1:.M$(| 000005E0: 49 2C 31 29 22 2C 20 22 4D 24 28 49 2C 32 29 3A |I,1)", "M$(I,2):| 000005F0: 8B 4C B3 B1 31 30 A7 34 30 30 00 0C 0E 86 01 4C |.L..10.400.....L| 00000600: B2 30 3A 8D 36 32 30 3A 99 22 93 22 00 1D 0E 90 |.0:.620:."."....| 00000610: 01 82 49 3A 8D 36 32 30 3A 89 32 34 30 00 3D 0E |..I:.620:.240.=.| 00000620: 9A 01 8D 36 36 30 3A 81 49 B2 31 A4 4E 3A 8B 42 |...660:.I.1.N:.B| 00000630: 24 B2 4D 24 28 49 2C 31 29 A7 34 34 30 00 44 0E |$.M$(I,1).440.D.| 00000640: A4 01 82 49 00 6F 0E AE 01 99 22 93 11 11 22 3B |...I.o...."...";| 00000650: 42 24 3A 99 22 11 49 53 20 4E 4F 54 20 49 4E 20 |B$:.".IS NOT IN | 00000660: 46 49 4C 45 22 3A 8D 36 32 30 3A 89 32 34 30 00 |FILE":.620:.240.| 00000670: 82 0E B8 01 8D 36 35 30 3A 8D 36 32 30 3A 89 32 |.....650:.620:.2| 00000680: 34 30 00 A1 0E C2 01 99 22 93 44 49 53 4B 20 4F |40......".DISK O| 00000690: 52 20 43 41 53 53 45 54 54 45 20 28 44 2F 43 29 |R CASSETTE (D/C)| 000006A0: 22 00 C6 0E CC 01 A1 45 24 3A 8B 28 45 24 B3 B1 |"......E$:.(E$..| 000006B0: 22 44 22 AF 45 24 B3 B1 22 43 22 29 B0 45 24 B2 |"D".E$.."C").E$.| 000006C0: 22 22 A7 34 36 30 00 ED 0E D6 01 8B 45 24 B2 22 |"".460......E$."| 000006D0: 44 22 A7 46 24 B2 22 40 30 3A 41 44 44 52 45 53 |D".F$."@0:ADDRES| 000006E0: 53 45 53 22 3A 46 B2 31 3A 89 34 39 30 00 0A 0F |SES":F.1:.490...| 000006F0: E0 01 46 24 B2 22 41 44 44 52 45 53 53 45 53 22 |..F$."ADDRESSES"| 00000700: 3A 46 B2 30 3A 47 24 B2 22 22 00 17 0F EA 01 8B |:F.0:G$.""......| 00000710: 42 B2 35 A7 35 34 30 00 2A 0F F4 01 8B 46 B2 31 |B.5.540.*....F.1| 00000720: A7 47 24 B2 22 2C 53 2C 52 22 00 46 0F FE 01 9F |.G$.",S,R".F....| 00000730: 31 2C 31 AA 37 AC 46 2C 38 AC 46 2C 46 24 AA 47 |1,1.7.F,8.F,F$.G| 00000740: 24 3A 8D 35 38 30 00 5D 0F 08 02 84 31 2C 4E 3A |$:.580.]....1,N:| 00000750: 81 49 B2 31 A4 4E 3A 81 4A B2 31 A4 36 00 81 0F |.I.1.N:.J.1.6...| 00000760: 12 02 84 31 2C 4D 24 28 49 2C 4A 29 3A 82 3A 82 |...1,M$(I,J):.:.| 00000770: 3A 8D 35 38 30 3A A0 31 3A 8D 35 38 30 3A 89 34 |:.580:.1:.580:.4| 00000780: 30 00 94 0F 1C 02 8B 46 B2 31 A7 47 24 B2 22 2C |0......F.1.G$.",| 00000790: 53 2C 57 22 00 B2 0F 26 02 9F 31 2C 31 AA 37 AC |S,W"...&..1,1.7.| 000007A0: 46 2C 31 AA 37 AC 46 2C 46 24 AA 47 24 3A 8D 35 |F,1.7.F,F$.G$:.5| 000007B0: 38 30 00 C9 0F 30 02 98 31 2C 4E 3A 81 49 B2 31 |80...0..1,N:.I.1| 000007C0: A4 4E 3A 81 4A B2 31 A4 36 00 EB 0F 3A 02 98 31 |.N:.J.1.6...:..1| 000007D0: 2C 4D 24 28 49 2C 4A 29 3A 82 3A 82 3A 8D 35 38 |,M$(I,J):.:.:.58| 000007E0: 30 3A A0 31 3A 8D 35 38 30 3A 80 00 F6 0F 44 02 |0:.1:.580:....D.| 000007F0: 8B 46 B2 30 A7 8E 00 0C 10 4E 02 8B 4F B2 30 A7 |.F.0.....N..O.0.| 00000800: 9F 31 35 2C 38 2C 31 35 3A 4F B2 31 00 2C 10 58 |.15,8,15:O.1.,.X| 00000810: 02 84 31 35 2C 41 2C 42 24 2C 43 2C 44 3A 8B 41 |..15,A,B$,C,D:.A| 00000820: A7 99 41 2C 42 24 2C 43 2C 44 3A 90 00 32 10 62 |..A,B$,C,D:..2.b| 00000830: 02 8E 00 4E 10 6C 02 99 22 11 11 12 90 41 4E 59 |...N.l.."....ANY| 00000840: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 27 22 00 61 | KEY TO CONT'".a| 00000850: 10 76 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 |.v..A$:.A$."".63| 00000860: 30 00 67 10 80 02 8E 00 AA 10 8A 02 99 22 93 11 |0.g.........."..| 00000870: 22 4D 24 28 49 2C 31 29 22 2C 20 22 4D 24 28 49 |"M$(I,1)", "M$(I| 00000880: 2C 32 29 51 24 4D 24 28 49 2C 33 29 51 24 4D 24 |,2)Q$M$(I,3)Q$M$| 00000890: 28 49 2C 34 29 22 20 22 4D 24 28 49 2C 35 29 51 |(I,4)" "M$(I,5)Q| 000008A0: 24 4D 24 28 49 2C 36 29 3A 8E 00 EA 10 94 02 99 |$M$(I,6):.......| 000008B0: 22 93 11 1D 1D 1D 57 48 41 54 20 4E 41 4D 45 20 |".....WHAT NAME | 000008C0: 44 4F 20 59 4F 55 22 51 24 22 1D 1D 1D 57 41 4E |DO YOU"Q$"...WAN| 000008D0: 54 20 28 4C 41 53 54 20 4E 41 4D 45 29 3F 22 3A |T (LAST NAME)?":| 000008E0: 85 22 11 11 22 3B 42 24 3A 8E 00 00 00 |."..";B$:.... |
.......".".B...L.12:.65517:A.B(781):Q$.G (13):.A.40..53281,15:L.200.E....M$(L,6), N$(6):.I.1.6:.N$(I):.......LAST NAME,FIR ST NAME,ADDRESS,CITY/STATE,ZIP CODE,TELE PHONE...(..".........ADDRESS FILE"Q$"... 1..RETRIEVE FILE"Q$"..2..ADD/START FILE" .0.2.."..3..EDIT FILE"Q$"..4..DISPLAY FI LE"Q$"..5..SAVE AND END".A.<.."..YOUR CH OICE";B:.B.450,70,130,240,450:.40...F.N. N.1:.".RECORD #"N:.J.1.6:.Q$"...";N$(J); "..":.M$(N,J)...P..J:.". .N.EXT .D.ELETE .E.ND"...Z..A$:.A$."".(A$.."D".A$.."N". A$.."E").90...D..A$."N".70...N..A$."E".4 0...X.N.N.1:.70.7....660:.I.1.N:.B$.M$(I ,1).150.A....I:.".."B$".IS NOT IN FILE." :.620:.40......650:.".CHANGE WHAT:":.J.1 .6:."."J".."N$(J):..L. .."..7 ..DELETE E NTRY.":."YOUR CHOICE";J:.J.1.J.7.160.Y.. ..J.7.210......".."M$(I,1)", "M$(I,2).5. ..."...OLD "N$(J)" IS.":.M$(I,J)Q$Q$"..C ORRECTED "N$(J)" IS.".L.H..M$(I,J):.620: .220.}.R..A.I.N.1:.J.1.6:M$(A,J).M$(A.1, J):.J,A:N.N.1.I...."...DO YOU WISH TO:"Q $"..1..CONTINUE EDITING"Q$"..2..RETURN T O MENU.."......".YOUR CHOICE";B:.B.130,4 0:.230.2...."...WHICH DO YOU WANT"Q$"..1 ..ALPHABETICAL"Q$"..2..INDIVIDUAL".I.... "..3..MENU..":."YOUR CHOICE";B:.B.260,41 0,40:.250.....G.N:.N.0..".NO RECORDS IN FILE.":.I.1.2000:.:.40.....G..(G.2)..... .G.0.380.E."..A.1.N.G...,..M$(A,1)..M$(A .G,1).350.'.6.R$.M$(A,1):S$.M$(A,2):T$.M $(A,3):U$.M$(A,4):V$.M$(A,5):W$.M$(A,6). F.@..J.1.6:M$(A,J).M$(A.G,J):....J.M$(A. G,1).R$:M$(A.G,2).S$:M$(A.G,3).T$:M$(A.G ,4).U$:M$(A.G,5).V$. .T.M$(A.G,6).W$:E.A ...^..A...H..E.0.270.A.R.E.0:.280...|.." .":L.0:.I.1.N:L.L.1:.M$(I,1)", "M$(I,2): .L..10.400.....L.0:.620:."."......I:.620 :.240.=....660:.I.1.N:.B$.M$(I,1).440.D. ...I.O...."...";B$:.".IS NOT IN FILE":.6 20:.240......650:.620:.240...B..".DISK O R CASSETTE (D/C)".F.L..E$:.(E$.."D".E$.. "C").E$."".460...V..E$."D".F$."@0:ADDRES SES":F.1:.490.....F$."ADDRESSES":F.0:G$. ""......B.5.540.*....F.1.G$.",S,R".F.... 1,1.7.F,8.F,F$.G$:.580.]....1,N:.I.1.N:. J.1.6......1,M$(I,J):.:.:.580: 1:.580:.4 0......F.1.G$.",S,W"...&..1,1.7.F,1.7.F, F$.G$:.580.I.0..1,N:.I.1.N:.J.1.6...:..1 ,M$(I,J):.:.:.580: 1:.580:....D..F.0.... .N..O.0..15,8,15:O.1.,.X..15,A,B$,C,D:.A ..A,B$,C,D:..2.B...N.L.."....ANY KEY TO CONT'".A.V..A$:.A$."".630.G..........".. "M$(I,1)", "M$(I,2)Q$M$(I,3)Q$M$(I,4)" " M$(I,5)Q$M$(I,6):.......".....WHAT NAME DO YOU"Q$"...WANT (LAST NAME)?":."..";B$ :....
> CLICK IMAGE PREVIEW FOR FULL MODAL