> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 88 13 AA 24 43 30 30 30 00 17 08 BA |.......$C000....|
00000010: 13 B7 24 43 30 30 30 00 2E 08 EC 13 20 57 49 4E |..$C000..... WIN|
00000020: 44 4F 57 A0 31 30 2C 33 2C 34 2C 34 2C 31 00 35 |DOW.10,3,4,4,1.5|
00000030: 08 1E 14 20 E3 00 52 08 50 14 A1 57 49 4E 44 4F |... ..R.P..WINDO|
00000040: 57 A0 58 2C 59 2C 58 31 2C 59 31 2C 43 4F 4C 56 |W.X,Y,X1,Y1,COLV|
00000050: 41 4C 00 5B 08 51 14 20 C2 23 58 00 64 08 52 14 |AL.[.Q. .#X.d.R.|
00000060: 20 D3 54 39 00 6D 08 53 14 20 C2 23 59 00 76 08 | .T9.m.S. .#Y.v.|
00000070: 54 14 20 D3 54 38 00 82 08 82 14 20 D5 42 45 47 |T. .T8..... .BEG|
00000080: 49 4E 00 8E 08 B4 14 54 31 20 A8 22 B0 22 00 9A |IN.....T1 ."."..|
00000090: 08 E6 14 54 32 20 A8 22 AE 22 00 A6 08 18 15 54 |...T2 .".".....T|
000000A0: 33 20 A8 22 AD 22 00 B2 08 4A 15 54 37 20 A8 22 |3 ."."...J.T7 ."|
000000B0: BD 22 00 BE 08 7C 15 54 34 20 A8 22 DD 22 00 CA |."...|.T4 ."."..|
000000C0: 08 AE 15 54 35 20 A8 22 C0 22 00 D6 08 E0 15 54 |...T5 .".".....T|
000000D0: 36 20 A8 22 20 22 00 E1 08 E1 15 54 38 20 A5 30 |6 ." ".....T8 .0|
000000E0: 30 00 EC 08 E2 15 54 39 20 A5 30 30 00 FD 08 12 |0.....T9 .00....|
000000F0: 16 53 45 54 20 CA 23 43 4F 4C 56 41 4C 00 09 09 |.SET .#COLVAL...|
00000100: 44 16 20 D2 24 30 32 38 36 00 17 09 76 16 50 4F |D. .$0286...v.PO|
00000110: 49 4E 54 20 C2 54 38 00 20 09 A8 16 20 C3 54 39 |INT .T8. ... .T9|
00000120: 00 27 09 DA 16 20 E5 00 33 09 0C 17 20 D6 24 46 |.'... ..3... .$F|
00000130: 46 46 30 00 3A 09 3E 17 20 E3 00 49 09 70 17 42 |FF0.:.>. ..I.p.B|
00000140: 45 47 49 4E 20 D6 53 45 54 00 52 09 A2 17 20 CA |EGIN .SET.R... .|
00000150: 54 31 00 5E 09 D4 17 20 D6 24 46 46 44 32 00 68 |T1.^... .$FFD2.h|
00000160: 09 06 18 20 C2 23 30 30 00 71 09 38 18 20 CA 54 |... .#00.q.8. .T|
00000170: 35 00 80 09 6A 18 45 45 4E 20 D6 24 46 46 44 32 |5...j.EEN .$FFD2|
00000180: 00 87 09 9C 18 20 EF 00 93 09 CE 18 20 C0 23 58 |..... ...... .#X|
00000190: 31 2D 32 00 9D 09 00 19 20 F6 45 45 4E 00 A6 09 |1-2..... .EEN...|
000001A0: 32 19 20 CA 54 32 00 B2 09 64 19 20 D6 24 46 46 |2. .T2...d. .$FF|
000001B0: 44 32 00 BF 09 C8 19 44 52 49 45 20 C9 54 38 00 |D2.....DRIE .T8.|
000001C0: C9 09 2C 1A 20 D6 53 45 54 00 D2 09 5E 1A 20 CA |..,. .SET...^. .|
000001D0: 54 34 00 DE 09 90 1A 20 D6 24 46 46 44 32 00 E8 |T4..... .$FFD2..|
000001E0: 09 C2 1A 20 C2 23 30 30 00 F1 09 F4 1A 20 CA 54 |... .#00..... .T|
000001F0: 36 00 01 0A 26 1B 45 45 4E 4E 20 D6 24 46 46 44 |6...&.EENN .$FFD|
00000200: 32 00 08 0A 58 1B 20 EF 00 14 0A 8A 1B 20 C0 23 |2...X. ...... .#|
00000210: 58 31 2D 32 00 1F 0A BC 1B 20 F6 45 45 4E 4E 00 |X1-2..... .EENN.|
00000220: 28 0A EE 1B 20 CA 54 34 00 34 0A 20 1C 20 D6 24 |(... .T4.4. . .$|
00000230: 46 46 44 32 00 3D 0A 52 1C 20 CA 54 38 00 49 0A |FFD2.=.R. .T8.I.|
00000240: 84 1C 20 C4 23 59 31 2B 31 00 54 0A B6 1C 20 F6 |.. .#Y1+1.T... .|
00000250: 44 52 49 45 00 5D 0A 4C 1D 20 C9 54 38 00 67 0A |DRIE.].L. .T8.g.|
00000260: 7E 1D 20 D6 53 45 54 00 70 0A 7F 1D 20 CA 54 33 |~. .SET.p... .T3|
00000270: 00 7C 0A 80 1D 20 D6 24 46 46 44 32 00 86 0A B0 |.|... .$FFD2....|
00000280: 1D 20 C2 23 30 30 00 8F 0A E2 1D 20 CA 54 35 00 |. .#00..... .T5.|
00000290: A0 0A 14 1E 45 45 4E 4E 4E 20 D6 24 46 46 44 32 |....EENNN .$FFD2|
000002A0: 00 A7 0A 46 1E 20 EF 00 B3 0A 78 1E 20 C0 23 58 |...F. ....x. .#X|
000002B0: 31 2D 32 00 BF 0A AA 1E 20 F6 45 45 4E 4E 4E 00 |1-2..... .EENNN.|
000002C0: C8 0A DC 1E 20 CA 54 37 00 D4 0A 0E 1F 20 D6 24 |.... .T7..... .$|
000002D0: 46 46 44 32 00 DA 0A 40 1F A2 00 FE 0A 72 1F 3B |FFD2...@.....r.;|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 15 |**************..|
00000300: 0B A4 1F A1 53 43 52 45 45 4E 43 4F 4C 4F 52 A0 |....SCREENCOLOR.|
00000310: 43 4F 4C 4F 52 00 22 0B D6 1F 20 C3 23 43 4F 4C |COLOR."... .#COL|
00000320: 4F 52 00 2E 0B 08 20 20 D4 35 33 32 38 31 00 34 |OR.... .53281.4|
00000330: 0B 3A 20 A2 00 58 0B 6C 20 3B 2A 2A 2A 2A 2A 2A |.: ..X.l ;******|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 0B 9E 20 A1 42 4F |********.o.. .BO|
00000360: 52 44 45 52 43 4F 4C 4F 52 A0 43 4F 4C 4F 52 00 |RDERCOLOR.COLOR.|
00000370: 7C 0B D0 20 20 C3 23 43 4F 4C 4F 52 00 88 0B 02 ||.. .#COLOR....|
00000380: 21 20 D4 35 33 32 38 30 00 8E 0B 34 21 A2 00 B2 |! .53280...4!...|
00000390: 0B 66 21 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.f!;************|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 00 C7 0B 98 21 A1 46 49 4C 4C 43 4F 4C 4F |**....!.FILLCOLO|
000003C0: 52 A0 43 4F 4C 4F 52 00 D4 0B CA 21 20 CA 23 43 |R.COLOR....! .#C|
000003D0: 4F 4C 4F 52 00 DF 0B FC 21 20 C2 23 24 30 30 00 |OLOR....! .#$00.|
000003E0: F1 0B 2E 22 54 45 58 31 20 D2 24 44 38 30 30 2C |..."TEX1 .$D800,|
000003F0: 58 00 FF 0B 60 22 20 D2 24 44 39 30 30 2C 58 00 |X...`" .$D900,X.|
00000400: 0D 0C 92 22 20 D2 24 44 41 30 30 2C 58 00 14 0C |..." .$DA00,X...|
00000410: C4 22 20 EF 00 1F 0C F6 22 20 F6 54 45 58 31 00 |." ....." .TEX1.|
00000420: 31 0C 28 23 54 45 58 32 20 D2 24 44 42 30 30 2C |1.(#TEX2 .$DB00,|
00000430: 58 00 38 0C 5A 23 20 EF 00 43 0C 8C 23 20 C0 23 |X.8.Z# ..C..# .#|
00000440: 24 45 38 00 4E 0C BE 23 20 F6 54 45 58 32 00 54 |$E8.N..# .TEX2.T|
00000450: 0C F0 23 A2 00 78 0C 22 24 3B 2A 2A 2A 2A 2A 2A |..#..x."$;******|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 00 86 0C 54 24 A1 43 4F |********...T$.CO|
00000480: 4C 4F 52 49 4E 43 00 91 0C 86 24 20 C2 23 24 30 |LORINC....$ .#$0|
00000490: 30 00 A3 0C B8 24 54 45 58 31 20 C9 24 44 38 30 |0....$TEX1 .$D80|
000004A0: 30 2C 58 00 B1 0C EA 24 20 C9 24 44 39 30 30 2C |0,X....$ .$D900,|
000004B0: 58 00 BF 0C 1C 25 20 C9 24 44 41 30 30 2C 58 00 |X....% .$DA00,X.|
000004C0: C6 0C 4E 25 20 EF 00 D1 0C 80 25 20 F6 54 45 58 |..N% .....% .TEX|
000004D0: 31 00 E3 0C B2 25 54 45 58 32 20 C9 24 44 42 30 |1....%TEX2 .$DB0|
000004E0: 30 2C 58 00 EA 0C E4 25 20 EF 00 F5 0C 16 26 20 |0,X....% .....& |
000004F0: C0 23 24 45 38 00 00 0D 48 26 20 F6 54 45 58 32 |.#$E8...H& .TEX2|
00000500: 00 06 0D 7A 26 A2 00 2A 0D AC 26 3B 2A 2A 2A 2A |...z&..*..&;****|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 0D DE 26 A1 |**********.7..&.|
00000530: 43 4C 52 48 4F 4D 45 00 41 0D 10 27 20 CA 31 34 |CLRHOME.A..' .14|
00000540: 37 00 4D 0D 42 27 20 D6 24 46 46 44 32 00 53 0D |7.M.B' .$FFD2.S.|
00000550: 74 27 A2 00 77 0D A6 27 3B 2A 2A 2A 2A 2A 2A 2A |t'..w..';*******|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 00 9B 0D D8 27 3B 2A 20 4D |*******....';* M|
00000580: 41 43 52 4F 20 54 45 58 54 20 41 44 52 45 53 2C |ACRO TEXT ADRES,|
00000590: 58 2C 59 2C 4B 4C 45 55 52 20 2A 00 BF 0D 0A 28 |X,Y,KLEUR *....(|
000005A0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000005C0: DF 0D 3C 28 A1 54 45 58 54 A0 54 41 44 52 2C 58 |..<(.TEXT.TADR,X|
000005D0: 56 41 4C 2C 59 56 41 4C 2C 43 4F 4C 56 41 4C 00 |VAL,YVAL,COLVAL.|
000005E0: ED 0D 6E 28 20 CA 23 43 4F 4C 56 41 4C 00 F9 0D |..n( .#COLVAL...|
000005F0: A0 28 20 D2 24 30 32 38 36 00 05 0E D2 28 20 C2 |.( .$0286....( .|
00000600: 23 59 56 41 4C 00 11 0E 04 29 20 C3 23 58 56 41 |#YVAL....) .#XVA|
00000610: 4C 00 18 0E 36 29 20 E5 00 24 0E 68 29 20 D6 24 |L...6) ..$.h) .$|
00000620: 46 46 46 30 00 2F 0E 9A 29 20 C2 23 24 30 30 00 |FFF0./..) .#$00.|
00000630: 40 0E CC 29 54 45 58 31 20 CA 54 41 44 52 2C 58 |@..)TEX1 .TADR,X|
00000640: 00 4B 0E FE 29 20 C4 23 24 46 46 00 56 0E 30 2A |.K..) .#$FF.V.0*|
00000650: 20 F7 54 45 58 32 00 62 0E 62 2A 20 D6 24 46 46 | .TEX2.b.b* .$FF|
00000660: 44 32 00 69 0E 94 2A 20 EF 00 74 0E C6 2A 20 D5 |D2.i..* ..t..* .|
00000670: 54 45 58 31 00 7F 0E F8 2A 54 45 58 32 20 E4 00 |TEX1....*TEX2 ..|
00000680: 85 0E 2A 2B A2 00 A7 0E 5C 2B 3B 2A 2A 2A 2A 2A |..*+....\+;*****|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006A0: 2A 2A 2A 2A 2A 2A 2A 00 C9 0E 8E 2B 3B 2A 20 4D |*******....+;* M|
000006B0: 41 43 52 4F 20 50 52 49 4E 54 20 41 44 52 45 53 |ACRO PRINT ADRES|
000006C0: 20 20 20 20 20 20 20 20 2A 00 EB 0E C0 2B 3B 2A | *....+;*|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FB 0E F2 2B |***********....+|
000006F0: A1 50 52 49 4E 54 A0 54 41 44 52 00 06 0F 24 2C |.PRINT.TADR...$,|
00000700: 20 C2 23 24 30 30 00 17 0F 56 2C 54 45 58 31 20 | .#$00...V,TEX1 |
00000710: CA 54 41 44 52 2C 58 00 22 0F 88 2C 20 C4 23 24 |.TADR,X.".., .#$|
00000720: 46 46 00 2D 0F BA 2C 20 F7 54 45 58 32 00 39 0F |FF.-.., .TEX2.9.|
00000730: EC 2C 20 D6 24 46 46 44 32 00 40 0F 1E 2D 20 EF |., .$FFD2.@..- .|
00000740: 00 4B 0F 50 2D 20 D5 54 45 58 31 00 56 0F 82 2D |.K.P- .TEX1.V..-|
00000750: 54 45 58 32 20 E4 00 61 0F B4 2D 20 CA 23 24 30 |TEX2 ..a..- .#$0|
00000760: 44 00 6D 0F E6 2D 20 D6 24 46 46 44 32 00 73 0F |D.m..- .$FFD2.s.|
00000770: 18 2E A2 00 95 0F 4A 2E 3B 2A 2A 2A 2A 2A 2A 2A |......J.;*******|
00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000790: 2A 2A 2A 2A 2A 00 B7 0F 7C 2E 3B 2A 20 4D 41 43 |*****...|.;* MAC|
000007A0: 52 4F 20 4B 45 59 20 57 41 49 54 20 20 20 20 20 |RO KEY WAIT |
000007B0: 20 20 20 20 20 20 2A 00 D9 0F AE 2E 3B 2A 2A 2A | *.....;***|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 0F E0 2E A1 4B |*********......K|
000007E0: 45 59 A0 57 41 49 54 00 F6 0F 12 2F 54 45 58 31 |EY.WAIT..../TEX1|
000007F0: 20 C2 23 24 30 30 00 02 10 44 2F 20 D3 24 30 30 | .#$00...D/ .$00|
00000800: 43 36 00 0E 10 76 2F 20 CA 24 30 30 43 35 00 1A |C6...v/ .$00C5..|
00000810: 10 A8 2F 20 C4 23 57 41 49 54 00 25 10 DA 2F 20 |../ .#WAIT.%../ |
00000820: F6 54 45 58 31 00 2B 10 0C 30 A2 00 52 10 3E 30 |.TEX1.+..0..R.>0|
00000830: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000850: 2A 2A 00 79 10 70 30 3B 2A 20 4D 41 43 52 4F 20 |**.y.p0;* MACRO |
00000860: 4C 4F 41 44 20 4E 41 41 4D 41 44 52 45 53 2C 4C |LOAD NAAMADRES,L|
00000870: 45 2E 4E 41 41 4D 20 20 2A 00 A0 10 A2 30 3B 2A |E.NAAM *....0;*|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008A0: 00 BF 10 D4 30 A1 4C 4F 41 44 A0 4E 41 41 4D 41 |....0.LOAD.NAAMA|
000008B0: 44 52 45 53 2C 4C 45 4E 47 54 45 4E 41 41 4D 00 |DRES,LENGTENAAM.|
000008C0: CA 10 06 31 20 CA 23 24 30 34 00 D5 10 38 31 20 |...1 .#$04...81 |
000008D0: C2 23 24 30 38 00 E0 10 6A 31 20 C3 23 24 30 31 |.#$08...j1 .#$01|
000008E0: 00 EC 10 9C 31 20 D6 24 46 46 42 41 00 FE 10 CE |....1 .$FFBA....|
000008F0: 31 20 CA 23 4C 45 4E 47 54 45 4E 41 41 4D 00 12 |1 .#LENGTENAAM..|
00000900: 11 00 32 20 C2 23 3C 28 4E 41 41 4D 41 44 52 45 |..2 .#<(NAAMADRE|
00000910: 53 29 00 26 11 32 32 20 C3 23 3E 28 4E 41 41 4D |S).&.22 .#>(NAAM|
00000920: 41 44 52 45 53 29 00 32 11 64 32 20 D6 24 46 46 |ADRES).2.d2 .$FF|
00000930: 42 44 00 3D 11 96 32 20 CA 23 24 30 30 00 48 11 |BD.=..2 .#$00.H.|
00000940: C8 32 20 C2 23 24 46 46 00 53 11 FA 32 20 C3 23 |.2 .#$FF.S..2 .#|
00000950: 24 46 46 00 5F 11 2C 33 20 D6 24 46 46 44 35 00 |$FF._.,3 .$FFD5.|
00000960: 65 11 5E 33 A2 00 00 00 |e.^3.... |
.......$C000......$C000..... WINDOW 10,3
,4,4,1.5... ..R.P..WINDOW X,Y,X1,Y1,COLV
AL.[.Q. B#X.D.R. ST9.M.S. B#Y.V.T. ST8..
... UBEGIN.....T1 .".".....T2 .".".....T
3 ."."...J.T7 ."."...|.T4 .".".J...T5 ."
.".V...T6 ." ".....T8 .00.....T9 .00....
.SET J#COLVAL...D. R$0286...V.POINT BT8.
... CT9.'.Z. ..3... V$FFF0.:.>. ..I.P.B
EGIN VSET.R... JT1.^.T. V$FFD2.H... B#00
.Q.8. JT5...J.EEN V$FFD2..... ....N. .#X
1-2..... .EEN...2. JT2...D. V$FFD2...H.D
RIE IT8.I.,. VSET.R.^. JT4..... V$FFD2..
.B. B#00..... JT6...&.EENN V$FFD2...X. .
..... .#X1-2..... .EENN.(... JT4.4. . V$
FFD2.=.R. JT8.I... D#Y1+1.T... .DRIE.].L
. IT8.G.~. VSET.P.. JT3.|... V$FFD2....
. B#00..... JT5. ...EENNN V$FFD2...F. ..
..X. .#X1-2..... .EENNN.H... JT7.T... V$
FFD2.Z.@.....R.;************************
******......SCREENCOLOR COLOR.".V. C#COL
OR.... T53281.4.: ..X.L ;**************
****************.O.. .BORDERCOLOR COLOR.
|.P C#COLOR....! T53280...4!....F!;****
**************************.G..!.FILLCOLO
R COLOR.T.J! J#COLOR....! B#$00...."TEX1
R$D800,X...`" R$D900,X...." R$DA00,X...
D" ....." .TEX1.1.(#TEX2 R$DB00,X.8.Z# .
.C..# .#$E8.N..# .TEX2.T..#..X."$;******
************************...T$.COLORINC..
..$ B#$00....$TEX1 I$D800,X....$ I$D900,
X....% I$DA00,X.F.N% ..Q..% .TEX1....%TE
X2 I$DB00,X....% .....& .#$E8...H& .TEX2
...Z&..*..&;****************************
**.7..&.CLRHOME.A..' J147.M.B' V$FFD2.S.
T'..W..';******************************.
..X';* MACRO TEXT ADRES,X,Y,KLEUR *....(
;******************************...<(.TEX
T TADR,XVAL,YVAL,COLVAL...N( J#COLVAL...
( R$0286...R( B#YVAL....) C#XVAL...6) .
.$.H) V$FFF0./..) B#$00.@.L)TEX1 JTADR,X
.K..) D#$FF.V.0* .TEX2.B.B* V$FFD2.I..*
..T.F* UTEX1...*TEX2 ....*+....\+;*****
***********************.I..+;* MACRO PRI
NT ADRES *....+;*****************
***********....+.PRINT TADR...$, B#$00..
.V,TEX1 JTADR,X.".., D#$FF.-.., .TEX2.9.
., V$FFD2.@..- ..K.P- UTEX1.V..-TEX2 ..A
..- J#$0D.M..- V$FFD2.S.......J.;*******
*********************...|.;* MACRO KEY W
AIT *.Y...;*******************
*********......KEY WAIT..../TEX1 B#$00..
.D/ S$00C6...V/ J$00C5..../ D#WAIT.%.Z/
.TEX1.+..0..R.>0;***********************
**********.Y.P0;* MACRO LOAD NAAMADRES,L
E.NAAM *. ..0;*************************
********...T0.LOAD NAAMADRES,LENGTENAAM.
J..1 J#$04.U.81 B#$08...J1 C#$01....1 V$
FFBA...N1 J#LENGTENAAM....2 B#<(NAAMADRE
S).&.22 C#>(NAAMADRES).2.D2 V$FFBD.=..2
J#$00.H.H2 B#$FF.S..2 C#$FF._.,3 V$FFD5.
E.^3....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL