COPIER
FILE INFORMATION
FILENAME(S): COPIER
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 18:12:03
APPEARS ON: 1 disk(s)
FILE HASH
72e4667b098a28c67589e62bc021af72cae416c3470a747af70f4b2b81113e1d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 63 S 3 | COPIER | PRG | Sailor, Ganheden | 33 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 0A 00 89 33 30 00 29 08 14 00 48 49 |.......30.)...HI| 00000010: B2 B5 28 4E 55 AD 32 35 36 29 3A 4C 4F B2 4E 55 |..(NU.256):LO.NU| 00000020: AB 48 49 AC 32 35 36 3A 8E 00 48 08 1E 00 8B 59 |.HI.256:..H....Y| 00000030: B2 30 A7 59 B2 31 3A 93 22 46 49 4C 45 43 4F 50 |.0.Y.1:."FILECOP| 00000040: 59 2E 4F 22 2C 38 2C 31 00 7D 08 28 00 97 35 31 |Y.O",8,1.}.(..51| 00000050: 2C 2E 3A 97 35 36 2C 34 37 3A 9C 3A 86 20 46 24 |,.:.56,47:.:. F$| 00000060: 28 31 30 30 29 2C 54 24 28 31 30 30 29 2C 45 41 |(100),T$(100),EA| 00000070: 28 31 30 30 29 2C 53 41 28 31 30 30 29 00 9F 08 |(100),SA(100)...| 00000080: 2D 00 44 44 25 B2 39 3A A0 32 3A 9F 32 2C 39 2C |-.DD%.9:.2:.2,9,| 00000090: 31 35 3A A0 32 3A 8B 53 54 A7 44 44 25 B2 38 00 |15:.2:.ST.DD%.8.| 000000A0: B0 08 2E 00 8B 44 44 25 B2 39 A7 8D 32 30 30 30 |.....DD%.9..2000| 000000B0: 00 C7 08 32 00 52 42 B2 31 3A 8D 35 32 30 3A 53 |...2.RB.1:.520:S| 000000C0: 41 B2 31 32 32 38 38 00 DA 08 3C 00 46 4C 24 B2 |A.12288...<.FL$.| 000000D0: 22 22 3A 46 B2 33 32 37 36 38 00 02 09 46 00 41 |"":F.32768...F.A| 000000E0: B2 C2 28 46 29 3A 8B 41 B3 B1 30 A7 46 4C 24 B2 |..(F):.A..0.FL$.| 000000F0: 46 4C 24 AA C7 28 41 29 3A 46 B2 46 AA 31 3A 89 |FL$..(A):F.F.1:.| 00000100: 37 30 00 1F 09 50 00 8B C3 28 46 4C 24 29 B1 31 |70...P...(FL$).1| 00000110: 36 A7 46 4C 24 B2 C8 28 46 4C 24 2C 31 36 29 00 |6.FL$..(FL$,16).| 00000120: 3F 09 5A 00 9F 32 2C 38 2C 32 2C 22 46 49 4C 45 |?.Z..2,8,2,"FILE| 00000130: 53 20 4F 4E 20 53 49 44 45 20 22 AA 53 49 24 00 |S ON SIDE ".SI$.| 00000140: 72 09 64 00 84 32 2C 41 24 3A 49 B2 53 54 3A 84 |r.d..2,A$:I.ST:.| 00000150: 32 2C 4E 46 24 3A 4E 46 B2 C5 28 4E 46 24 29 3A |2,NF$:NF..(NF$):| 00000160: 84 32 2C 4E 42 24 3A 4E 42 B2 C5 28 4E 42 24 29 |.2,NB$:NB..(NB$)| 00000170: AA 31 00 8F 09 6E 00 81 58 B2 31 A4 4E 46 3A 84 |.1...n..X.1.NF:.| 00000180: 32 2C 46 24 28 58 29 2C 54 24 28 58 29 3A 82 00 |2,F$(X),T$(X):..| 00000190: BF 09 78 00 4E 46 B2 4E 46 AA 31 3A 46 24 28 4E |..x.NF.NF.1:F$(N| 000001A0: 46 29 B2 22 4C 4F 41 44 53 54 41 52 20 52 45 41 |F)."LOADSTAR REA| 000001B0: 44 45 52 22 3A 54 24 28 4E 46 29 B2 22 50 22 00 |DER":T$(NF)."P".| 000001C0: D4 09 82 00 8B 41 24 B3 B1 46 4C 24 AF 49 B2 30 |.....A$..FL$.I.0| 000001D0: A7 31 30 30 00 E4 09 8C 00 8B 41 24 B2 46 4C 24 |.100......A$.FL$| 000001E0: A7 31 37 30 00 16 0A 96 00 99 22 1C 45 52 52 4F |.170......".ERRO| 000001F0: 52 2E 2E 2E 2E 46 49 4C 45 20 22 46 4C 24 22 20 |R....FILE "FL$" | 00000200: 4E 4F 54 20 46 4F 55 4E 44 20 49 4E 20 46 49 4C |NOT FOUND IN FIL| 00000210: 45 21 22 3A A0 32 00 1C 0A A0 00 90 00 23 0A AA |E!":.2.......#..| 00000220: 00 A0 32 00 29 0A B4 00 99 00 36 0A BE 00 99 3A |..2.).....6....:| 00000230: 97 31 39 38 2C 2E 00 3C 0A C8 00 3A 00 42 0A D2 |.198,..<...:.B..| 00000240: 00 3A 00 4B 0A DC 00 44 31 B2 2E 00 84 0A E6 00 |.:.K...D1.......| 00000250: 4E 55 B2 53 41 3A 8D 32 30 3A 44 31 B2 44 31 AA |NU.SA:.20:D1.D1.| 00000260: 31 3A 44 B2 44 31 3A 97 31 32 31 33 31 2C 48 49 |1:D.D1:.12131,HI| 00000270: 3A 97 31 32 31 33 35 2C 4C 4F 3A 53 41 28 44 31 |:.12135,LO:SA(D1| 00000280: 29 B2 53 41 00 A7 0A F0 00 8D 36 37 30 3A 99 22 |).SA......670:."| 00000290: 13 11 11 11 11 11 11 9A 52 45 41 44 49 4E 47 3A |........READING:| 000002A0: 05 22 46 24 28 44 29 00 C2 0A FA 00 9F 31 2C 38 |."F$(D)......1,8| 000002B0: 2C 32 2C 46 24 28 44 29 3A 9E 31 32 30 34 30 3A |,2,F$(D):.12040:| 000002C0: A0 31 00 EB 0A 04 01 45 41 28 44 31 29 B2 C2 28 |.1.....EA(D1)..(| 000002D0: 38 33 32 29 AA C2 28 38 33 33 29 AC 32 35 36 3A |832)..(833).256:| 000002E0: 53 41 B2 45 41 28 44 31 29 AA 31 00 10 0B 0E 01 |SA.EA(D1).1.....| 000002F0: 8B 20 28 45 41 28 44 31 29 B3 35 33 32 34 38 29 |. (EA(D1).53248)| 00000300: 20 AF 20 28 44 31 B3 4E 46 29 20 A7 20 32 33 30 | . (D1.NF) . 230| 00000310: 00 29 0B 18 01 8B 20 45 41 28 44 31 29 B3 35 33 |.).... EA(D1).53| 00000320: 32 34 38 20 A7 20 33 31 30 00 61 0B 22 01 44 31 |248 . 310.a.".D1| 00000330: B2 44 31 AB 31 3A 53 41 B2 31 32 32 38 38 3A 99 |.D1.1:SA.12288:.| 00000340: 22 11 11 96 20 20 20 20 20 20 20 20 20 20 20 20 |"... | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 22 00 7F 0B 2C 01 99 22 20 20 20 20 20 20 20 20 |"...,.." | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00000380: 8E 0B 36 01 8B 44 44 25 B2 39 A7 33 34 30 00 C0 |..6..DD%.9.340..| 00000390: 0B 3B 01 99 22 11 11 20 20 20 20 20 20 20 1E 49 |.;..".. .I| 000003A0: 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 4F |NSERT DESTINATIO| 000003B0: 4E 20 44 49 53 4B 2E 2E 2E 20 20 20 20 20 20 22 |N DISK... "| 000003C0: 00 F2 0B 40 01 99 22 20 20 20 20 50 52 45 53 53 |...@.." PRESS| 000003D0: 20 53 50 41 43 45 20 57 48 45 4E 20 52 45 41 44 | SPACE WHEN READ| 000003E0: 59 20 54 4F 20 43 4F 50 59 2E 22 3A 97 31 39 38 |Y TO COPY.":.198| 000003F0: 2C 2E 00 07 0C 4A 01 A1 41 24 3A 8B 41 24 B3 B1 |,....J..A$:.A$..| 00000400: 22 20 22 A7 33 33 30 00 35 0C 54 01 8B 52 42 A7 |" ".330.5.T..RB.| 00000410: 99 22 11 20 20 20 20 20 20 20 81 43 48 45 43 4B |.". .CHECK| 00000420: 49 4E 47 20 23 20 4F 46 20 42 4C 4F 43 4B 53 20 |ING # OF BLOCKS | 00000430: 46 52 45 45 22 00 47 0C 5E 01 8B 52 42 A7 52 42 |FREE".G.^..RB.RB| 00000440: B2 2E 3A 8D 37 39 30 00 5D 0C 68 01 44 32 B2 44 |..:.790.].h.D2.D| 00000450: 32 AA 31 3A 44 B2 44 32 3A 8D 36 37 30 00 80 0C |2.1:D.D2:.670...| 00000460: 72 01 99 22 13 11 11 11 11 11 11 9A 57 52 49 54 |r.."........WRIT| 00000470: 49 4E 47 3A 05 22 46 24 28 44 29 3A 8D 36 34 30 |ING:."F$(D):.640| 00000480: 00 8E 0C 7C 01 8B 28 4D 4D 29 A7 34 32 30 00 B0 |...|..(MM).420..| 00000490: 0C 86 01 4E 55 B2 45 41 28 44 32 29 3A 8D 32 30 |...NU.EA(D2):.20| 000004A0: 3A 97 38 33 32 2C 4C 4F 3A 97 38 33 33 3D 48 49 |:.832,LO:.833=HI| 000004B0: 00 D6 0C 90 01 4E 55 B2 53 41 28 44 32 29 3A 8D |.....NU.SA(D2):.| 000004C0: 32 30 3A 97 31 32 31 33 31 2C 48 49 3A 97 31 32 |20:.12131,HI:.12| 000004D0: 31 33 35 2C 4C 4F 00 02 0D 9A 01 9F 31 2C 44 44 |135,LO......1,DD| 000004E0: 25 2C 32 2C 46 24 28 44 29 AA 22 2C 22 AA 54 24 |%,2,F$(D).",".T$| 000004F0: 28 44 29 AA 22 2C 57 22 3A 9E 31 32 30 38 34 3A |(D).",W":.12084:| 00000500: A0 31 00 14 0D A4 01 8B 20 44 32 B3 44 31 20 A7 |.1...... D2.D1 .| 00000510: 20 33 36 30 00 23 0D AE 01 8B 44 44 25 B2 39 A7 | 360.#....DD%.9.| 00000520: 34 36 30 00 45 0D B3 01 99 22 11 20 20 20 20 20 |460.E....". | 00000530: 20 20 1E 49 4E 53 45 52 54 20 99 22 44 4E 24 22 | .INSERT ."DN$"| 00000540: 1E 2E 2E 2E 22 00 78 0D B8 01 99 22 20 50 52 45 |....".x...." PRE| 00000550: 53 53 20 53 50 41 43 45 20 57 48 45 4E 20 52 45 |SS SPACE WHEN RE| 00000560: 41 44 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |ADY TO CONTINUE.| 00000570: 22 3A 97 31 39 38 2C 2E 00 8D 0D C2 01 A1 41 24 |":.198,.......A$| 00000580: 3A 8B 41 24 B3 B1 22 20 22 A7 34 35 30 00 AC 0D |:.A$.." ".450...| 00000590: CC 01 8D 36 30 30 3A 8B 28 4D 4D 24 B3 B1 44 4E |...600:.(MM$..DN| 000005A0: 24 29 A7 8D 37 31 30 3A 89 34 36 30 00 EB 0D D6 |$)..710:.460....| 000005B0: 01 99 22 91 91 22 3B 3A 81 41 B2 31 A4 32 3A 99 |.."..";:.A.1.2:.| 000005C0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 20 20 20 20 20 20 20 20 22 3A 82 00 06 0E E0 01 | ":......| 000005F0: 99 22 91 91 91 22 3B 3A 97 38 33 32 2C 2E 3A 97 |."...";:.832,.:.| 00000600: 38 33 33 2C 33 32 00 18 0E EA 01 8B 20 44 31 B3 |833,32...... D1.| 00000610: 4E 46 20 A7 20 32 33 30 00 3A 0E F4 01 8D 31 30 |NF . 230.:....10| 00000620: 33 30 3A 8F 20 20 4C 4F 41 44 49 4E 47 20 49 4E |30:. LOADING IN| 00000630: 53 54 52 55 43 54 49 4F 4E 53 00 44 0E FE 01 89 |STRUCTIONS.D....| 00000640: 31 33 31 30 00 5A 0E 08 02 97 35 33 32 38 30 2C |1310.Z....53280,| 00000650: 30 3A 97 35 33 32 38 31 2C 30 00 94 0E 12 02 99 |0:.53281,0......| 00000660: C7 28 31 34 32 29 22 93 08 1F D5 C0 C0 C0 C0 C0 |.(142)".........| 00000670: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000680: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000690: C0 C9 22 3B 00 C7 0E 1C 02 99 22 DD 20 20 20 20 |..";......". | 000006A0: 20 20 20 1E 4C 4F 41 44 53 54 41 52 20 50 52 4F | .LOADSTAR PRO| 000006B0: 47 52 41 4D 20 43 4F 50 49 45 52 20 20 20 20 20 |GRAM COPIER | 000006C0: 20 20 20 1F DD 22 3B 00 FA 0E 26 02 99 22 DD 20 | ..";...&..". | 000006D0: 20 20 9A 42 59 3A 20 20 4D 49 4B 45 20 4D 41 59 | .BY: MIKE MAY| 000006E0: 4E 41 52 44 20 26 20 41 4C 41 4E 20 47 41 52 44 |NARD & ALAN GARD| 000006F0: 4E 45 52 20 20 20 1F DD 22 3B 00 2B 0F 30 02 99 |NER ..";.+.0..| 00000700: 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............| 00000710: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000720: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 3B 00 48 0F 3A 02 |.........";.H.:.| 00000730: 81 41 B2 32 31 37 A4 32 34 32 3A 97 41 2C C2 28 |.A.217.242:.A,.(| 00000740: 41 29 B0 31 32 38 3A 82 00 66 0F 44 02 8D 36 30 |A).128:..f.D..60| 00000750: 30 3A 53 49 24 B2 C9 28 44 4E 24 2C 31 29 3A 4D |0:SI$..(DN$,1):M| 00000760: 4D 24 B2 44 4E 24 00 96 0F 4E 02 99 22 11 11 11 |M$.DN$...N.."...| 00000770: 20 1E 50 4C 45 41 53 45 20 57 41 49 54 20 46 49 | .PLEASE WAIT FI| 00000780: 56 45 20 4D 4F 52 45 20 53 45 43 4F 4E 44 53 2E |VE MORE SECONDS.| 00000790: 2E 2E 20 22 3A 8E 00 B3 0F 58 02 9F 31 35 2C 38 |.. ":....X..15,8| 000007A0: 2C 31 35 2C 22 49 30 22 3A 9F 38 2C 38 2C 38 2C |,15,"I0":.8,8,8,| 000007B0: 22 23 22 00 C9 0F 62 02 98 31 35 2C 22 55 41 3A |"#"...b..15,"UA:| 000007C0: 38 20 30 20 31 38 20 30 22 00 DD 0F 6C 02 98 31 |8 0 18 0"...l..1| 000007D0: 35 2C 22 42 2D 50 3A 38 20 31 34 34 22 00 0D 10 |5,"B-P:8 144"...| 000007E0: 76 02 44 4E 24 B2 22 22 3A 81 41 B2 31 A4 31 36 |v.DN$."":.A.1.16| 000007F0: 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA |:.#8,A$:DN$.DN$.| 00000800: 41 24 3A 82 3A A0 38 3A A0 31 35 3A 8E 00 3D 10 |A$:.:.8:.15:..=.| 00000810: 80 02 9F 31 35 2C 44 44 25 2C 31 35 2C 22 52 30 |...15,DD%,15,"R0| 00000820: 3A 22 AA 46 24 28 44 29 AA 22 3D 22 AA 46 24 28 |:".F$(D)."=".F$(| 00000830: 44 29 3A 84 31 35 2C 45 52 3A A0 31 35 00 52 10 |D):.15,ER:.15.R.| 00000840: 8A 02 4D 4D B2 2E 3A 8B 45 52 B2 36 33 A7 4D 4D |..MM..:.ER.63.MM| 00000850: B2 31 00 58 10 94 02 8E 00 9B 10 9E 02 99 22 13 |.1.X..........".| 00000860: 11 11 11 11 22 3B 3A 81 41 B2 31 A4 32 30 3A 99 |....";:.A.1.20:.| 00000870: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000890: 20 20 20 20 20 20 20 20 22 3A 82 00 A1 10 A8 02 | ":......| 000008A0: 8E 00 E2 10 B2 02 99 22 91 91 91 91 91 91 22 3B |......."......";| 000008B0: 3A 81 41 B2 31 A4 36 3A 99 22 20 20 20 20 20 20 |:.A.1.6:." | 000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008E0: 20 22 00 F4 10 BC 02 82 3A 99 22 91 91 91 91 91 | "......:.".....| 000008F0: 22 3B 3A 8E 00 1B 11 C6 02 99 22 91 91 9F 20 22 |";:......."... "| 00000900: 4D 4D 24 22 9A 20 49 53 20 4E 4F 54 20 49 4E 20 |MM$". IS NOT IN | 00000910: 54 48 45 20 44 52 49 56 45 2E 22 00 48 11 D0 02 |THE DRIVE.".H...| 00000920: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000940: 20 20 20 20 20 20 20 22 00 6D 11 DA 02 99 22 20 | ".m...." | 00000950: 50 55 54 20 9F 22 4D 4D 24 22 20 9A 49 4E 20 54 |PUT ."MM$" .IN T| 00000960: 48 45 20 44 52 49 56 45 20 41 4E 44 22 00 9E 11 |HE DRIVE AND"...| 00000970: E4 02 99 22 20 20 20 20 20 20 20 50 52 45 53 53 |..." PRESS| 00000980: 20 05 53 50 41 43 45 20 9A 54 4F 20 54 52 59 20 | .SPACE .TO TRY | 00000990: 41 47 41 49 4E 2E 22 3A 97 31 39 38 2C 2E 00 B3 |AGAIN.":.198,...| 000009A0: 11 EE 02 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 |....A$:.A$.." ".| 000009B0: 37 35 30 00 F3 11 F8 02 99 22 91 91 91 91 22 3B |750......"....";| 000009C0: 3A 81 41 B2 31 A4 34 3A 99 22 20 20 20 20 20 20 |:.A.1.4:." | 000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009F0: 22 3A 82 00 00 12 02 03 99 22 91 91 91 22 3A 8E |":......."...":.| 00000A00: 00 1D 12 0C 03 8F 20 43 48 45 43 4B 20 23 20 4F |...... CHECK # O| 00000A10: 46 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 51 12 |F BLOCKS FREE.Q.| 00000A20: 16 03 9F 31 35 2C 44 44 25 2C 31 35 2C 22 49 30 |...15,DD%,15,"I0| 00000A30: 22 3A 84 31 35 2C 45 52 3A A0 31 35 3A 8B 28 45 |":.15,ER:.15:.(E| 00000A40: 52 B3 32 30 29 B0 28 45 52 B1 32 34 29 A7 38 31 |R.20).(ER.24).81| 00000A50: 30 00 92 12 20 03 8D 36 37 30 3A 99 22 13 11 11 |0... ..670:."...| 00000A60: 11 11 11 11 1C 20 54 48 45 20 44 49 53 4B 20 49 |..... THE DISK I| 00000A70: 4E 20 54 48 45 20 44 52 49 56 45 20 49 53 4E 27 |N THE DRIVE ISN'| 00000A80: 54 20 46 4F 52 4D 41 54 54 45 44 2E 22 3A 89 39 |T FORMATTED.":.9| 00000A90: 31 30 00 B3 12 2A 03 9F 31 35 2C 44 44 25 2C 31 |10...*..15,DD%,1| 00000AA0: 35 2C 22 49 30 22 3A 9F 38 2C 44 44 25 2C 38 2C |5,"I0":.8,DD%,8,| 00000AB0: 22 23 22 00 D7 12 34 03 98 31 35 2C 22 55 41 3A |"#"...4..15,"UA:| 00000AC0: 38 20 30 20 31 38 20 30 22 3A 98 31 35 2C 22 42 |8 0 18 0":.15,"B| 00000AD0: 2D 50 3A 38 20 34 22 00 FA 12 3E 03 42 41 B2 2E |-P:8 4"...>.BA..| 00000AE0: 3A 81 41 B2 31 A4 33 35 3A 8B 41 B2 31 38 A7 A1 |:.A.1.35:.A.18..| 00000AF0: 23 38 2C 41 24 3A 89 38 35 30 00 16 13 48 03 A1 |#8,A$:.850...H..| 00000B00: 23 38 2C 41 24 3A 42 41 B2 42 41 AA C6 28 41 24 |#8,A$:BA.BA..(A$| 00000B10: AA C7 28 2E 29 29 00 2A 13 52 03 81 42 B2 31 A4 |..(.)).*.R..B.1.| 00000B20: 33 3A A1 23 38 2C 41 24 3A 82 00 40 13 5C 03 82 |3:.#8,A$:..@.\..| 00000B30: 3A 8B 4E 42 B3 42 41 A7 A0 38 3A A0 31 35 3A 8E |:.NB.BA..8:.15:.| 00000B40: 00 4B 13 66 03 A0 38 3A A0 31 35 00 84 13 70 03 |.K.f..8:.15...p.| 00000B50: 8D 36 37 30 3A 99 22 1C 13 11 11 11 11 11 11 54 |.670:."........T| 00000B60: 48 45 52 45 27 53 20 4E 4F 54 20 45 4E 4F 55 47 |HERE'S NOT ENOUG| 00000B70: 48 20 52 4F 4F 4D 20 4F 4E 20 54 48 49 53 20 44 |H ROOM ON THIS D| 00000B80: 49 53 4B 22 00 A7 13 7A 03 99 22 46 4F 52 20 96 |ISK"...z.."FOR .| 00000B90: 22 46 24 28 44 29 22 1C 20 41 4E 44 20 54 48 45 |"F$(D)". AND THE| 00000BA0: 20 46 49 4C 45 53 22 00 C2 13 84 03 99 22 41 53 | FILES"......"AS| 00000BB0: 53 4F 43 49 41 54 45 44 20 57 49 54 48 20 49 54 |SOCIATED WITH IT| 00000BC0: 2E 22 00 E7 13 8E 03 99 22 11 11 9E 20 20 20 20 |."......"... | 00000BD0: 20 20 20 20 20 20 20 20 20 59 4F 55 52 20 4F 50 | YOUR OP| 00000BE0: 54 49 4F 4E 53 3A 22 00 11 14 98 03 99 22 11 11 |TIONS:"......"..| 00000BF0: 05 46 9A 4F 52 4D 41 54 20 41 20 44 49 53 4B 20 |.F.ORMAT A DISK | 00000C00: 46 4F 52 20 54 48 49 53 20 50 52 4F 47 52 41 4D |FOR THIS PROGRAM| 00000C10: 22 00 42 14 A2 03 99 22 05 54 9A 52 59 20 53 41 |".B....".T.RY SA| 00000C20: 56 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 |VING THIS PROGRA| 00000C30: 4D 20 4F 4E 20 41 4E 4F 54 48 45 52 20 44 49 53 |M ON ANOTHER DIS| 00000C40: 4B 22 00 6A 14 AC 03 99 22 11 05 51 9A 55 49 54 |K".j...."..Q.UIT| 00000C50: 20 28 46 4F 52 47 45 54 20 41 42 4F 55 54 20 43 | (FORGET ABOUT C| 00000C60: 4F 50 59 49 4E 47 20 49 54 29 00 91 14 B6 03 99 |OPYING IT)......| 00000C70: 22 11 50 52 45 53 53 20 05 46 9A 2C 20 05 54 9A |".PRESS .F., .T.| 00000C80: 2C 20 4F 52 20 05 51 9A 2E 22 3A 97 31 39 38 2C |, OR .Q..":.198,| 00000C90: 2E 00 B5 14 C0 03 41 B2 C2 28 32 30 33 29 3A 8B |......A..(203):.| 00000CA0: 41 B3 B1 32 31 AF 41 B3 B1 32 32 AF 41 B3 B1 36 |A..21.A..22.A..6| 00000CB0: 32 A7 39 36 30 00 CA 14 CA 03 8B 41 B2 36 32 A7 |2.960......A.62.| 00000CC0: 8D 31 32 35 30 3A 89 39 36 30 00 FF 14 D4 03 8B |.1250:.960......| 00000CD0: 41 B2 32 32 A7 99 22 11 20 20 20 20 20 20 20 81 |A.22..". .| 00000CE0: 43 48 45 43 4B 49 4E 47 20 23 20 4F 46 20 42 4C |CHECKING # OF BL| 00000CF0: 4F 43 4B 53 20 46 52 45 45 22 3A 89 37 39 30 00 |OCKS FREE":.790.| 00000D00: 2B 15 DE 03 99 22 11 9A 20 20 20 20 20 50 55 54 |+....".. PUT| 00000D10: 20 44 49 53 4B 20 54 4F 20 46 4F 52 4D 41 54 20 | DISK TO FORMAT | 00000D20: 49 4E 20 44 52 49 56 45 20 30 22 00 60 15 E8 03 |IN DRIVE 0".`...| 00000D30: 99 22 20 20 20 20 50 52 45 53 53 20 05 53 50 41 |." PRESS .SPA| 00000D40: 43 45 9A 20 57 48 45 4E 20 52 45 41 44 59 20 54 |CE. WHEN READY T| 00000D50: 4F 20 46 4F 52 4D 41 54 22 3A 97 31 39 38 2C 2E |O FORMAT":.198,.| 00000D60: 00 76 15 F2 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 |.v....A$:.A$.." | 00000D70: 22 A7 31 30 31 30 00 A5 15 FC 03 9F 31 35 2C 44 |".1010......15,D| 00000D80: 44 25 2C 31 35 2C 22 4E 30 3A 4C 4F 41 44 53 54 |D%,15,"N0:LOADST| 00000D90: 41 52 20 50 52 4F 47 53 2C 4D 4D 22 3A A0 31 35 |AR PROGS,MM":.15| 00000DA0: 3A 89 37 39 30 00 DB 15 06 04 8D 36 37 30 3A 99 |:.790......670:.| 00000DB0: 22 13 11 11 11 11 11 11 20 20 20 20 20 20 20 20 |"....... | 00000DC0: 20 9A 2D 2D 20 05 46 49 4E 49 53 48 45 44 20 43 | .-- .FINISHED C| 00000DD0: 4F 50 59 49 4E 47 20 9A 2D 2D 22 00 0D 16 10 04 |OPYING .--".....| 00000DE0: 99 22 11 11 9A 54 4F 20 4C 4F 41 44 20 54 48 49 |."...TO LOAD THI| 00000DF0: 53 20 50 52 4F 47 52 41 4D 20 46 52 4F 4D 20 42 |S PROGRAM FROM B| 00000E00: 41 53 49 43 2C 20 45 4E 54 45 52 3A 22 00 30 16 |ASIC, ENTER:".0.| 00000E10: 1A 04 99 22 11 11 05 4C 4F 41 44 20 22 C7 28 33 |..."...LOAD ".(3| 00000E20: 34 29 46 24 28 31 29 C7 28 33 34 29 22 2C 38 22 |4)F$(1).(34)",8"| 00000E30: 00 50 16 24 04 99 22 91 22 A3 33 30 29 22 9A 54 |.P.$..".".30)".T| 00000E40: 48 45 4E 2E 2E 2E 22 3A 99 22 11 05 52 55 4E 22 |HEN...":."..RUN"| 00000E50: 00 7C 16 2E 04 99 22 11 11 9A 20 20 20 20 20 20 |.|...."... | 00000E60: 50 4C 45 41 53 45 20 4D 41 4B 45 20 4E 4F 54 45 |PLEASE MAKE NOTE| 00000E70: 20 4F 46 20 54 48 49 53 2E 2E 2E 22 00 A4 16 38 | OF THIS..."...8| 00000E80: 04 99 22 11 20 20 20 20 20 20 20 20 20 50 52 45 |..". PRE| 00000E90: 53 53 20 05 53 50 41 43 45 20 9A 46 4F 52 20 4D |SS .SPACE .FOR M| 00000EA0: 4F 52 45 22 00 B9 16 42 04 8B C2 28 32 30 33 29 |ORE"...B...(203)| 00000EB0: B3 B1 36 30 A7 31 30 39 30 00 CC 16 4C 04 8D 36 |..60.1090...L..6| 00000EC0: 37 30 3A 99 22 13 11 11 11 11 11 22 00 FB 16 56 |70:."......"...V| 00000ED0: 04 99 22 9A 54 4F 20 52 45 41 44 20 41 42 4F 55 |..".TO READ ABOU| 00000EE0: 54 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 46 |T THIS PROGRAM F| 00000EF0: 52 4F 4D 20 42 41 53 49 43 2C 22 00 17 17 60 04 |ROM BASIC,"...`.| 00000F00: 99 22 45 4E 54 45 52 20 54 48 45 20 46 4F 4C 4C |."ENTER THE FOLL| 00000F10: 4F 57 49 4E 47 3A 22 00 53 17 6A 04 99 22 11 11 |OWING:".S.j.."..| 00000F20: 05 4C 4F 41 44 20 22 C7 28 33 34 29 22 4C 4F 41 |.LOAD ".(34)"LOA| 00000F30: 44 53 54 41 52 20 52 45 41 44 45 52 22 C7 28 33 |DSTAR READER".(3| 00000F40: 34 29 22 2C 38 2C 31 20 20 20 9A 54 48 45 4E 2E |4)",8,1 .THEN.| 00000F50: 2E 2E 22 00 82 17 74 04 99 22 05 11 4E 45 57 20 |.."...t.."..NEW | 00000F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F70: 20 20 20 20 20 20 20 20 20 9A 54 48 45 4E 2E 2E | .THEN..| 00000F80: 2E 22 00 A7 17 7E 04 99 22 05 11 53 59 53 20 36 |."...~.."..SYS 6| 00000F90: 37 39 2C 22 C7 28 33 34 29 22 54 2E 22 46 24 28 |79,".(34)"T."F$(| 00000FA0: 31 29 C7 28 33 34 29 00 D8 17 88 04 99 22 11 9A |1).(34)......"..| 00000FB0: 11 55 53 45 20 05 50 9A 20 54 4F 20 50 41 55 53 |.USE .P. TO PAUS| 00000FC0: 45 2C 20 05 43 9A 20 54 4F 20 43 4F 4E 54 49 4E |E, .C. TO CONTIN| 00000FD0: 55 45 2C 20 41 4E 44 22 00 ED 17 92 04 99 22 05 |UE, AND"......".| 00000FE0: 41 9A 20 54 4F 20 41 42 4F 52 54 2E 22 00 19 18 |A. TO ABORT."...| 00000FF0: 9C 04 99 22 11 11 9A 20 20 20 20 20 20 50 4C 45 |..."... PLE| 00001000: 41 53 45 20 4D 41 4B 45 20 4E 4F 54 45 20 4F 46 |ASE MAKE NOTE OF| 00001010: 20 54 48 49 53 2E 2E 2E 22 00 48 18 A6 04 99 22 | THIS...".H...."| 00001020: 11 20 20 20 50 52 45 53 53 20 05 53 50 41 43 45 |. PRESS .SPACE| 00001030: 20 9A 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4C | .TO RETURN TO L| 00001040: 4F 41 44 53 54 41 52 22 00 5D 18 B0 04 8B C2 28 |OADSTAR".].....(| 00001050: 32 30 33 29 B3 B1 36 30 A7 31 32 30 30 00 63 18 |203)..60.1200.c.| 00001060: BA 04 8E 00 80 18 C4 04 9F 33 2C 38 2C 33 2C 22 |.........3,8,3,"| 00001070: 46 49 4C 45 53 20 4F 4E 20 53 49 44 45 20 31 22 |FILES ON SIDE 1"| 00001080: 00 9C 18 CE 04 81 49 B2 2E A4 31 3A A1 23 33 2C |......I...1:.#3,| 00001090: 41 24 3A 49 B2 53 54 3A 99 41 24 3B 00 A5 18 D8 |A$:I.ST:.A$;....| 000010A0: 04 82 3A A0 33 00 DF 18 E2 04 99 22 11 20 9A 41 |..:.3......". .A| 000010B0: 52 45 20 59 4F 55 20 53 55 52 45 20 59 4F 55 20 |RE YOU SURE YOU | 000010C0: 57 41 4E 54 20 54 4F 20 51 55 49 54 3F 20 28 05 |WANT TO QUIT? (.| 000010D0: 59 9A 2F 05 4E 9A 29 22 3A 97 31 39 38 2C 2E 00 |Y./.N.)":.198,..| 000010E0: FE 18 EC 04 41 B2 C2 28 32 30 33 29 3A 8B 41 B3 |....A..(203):.A.| 000010F0: B1 32 35 AF 41 B3 B1 33 39 A7 31 32 36 30 00 3B |.25.A..39.1260.;| 00001100: 19 F6 04 8B 41 B2 33 39 A7 99 22 91 20 20 20 20 |....A.39..". | 00001110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001130: 20 22 3A 99 22 91 91 22 3B 3A 8E 00 63 19 00 05 | ":."..";:..c...| 00001140: 99 22 11 9A 50 4C 41 43 45 20 9F 22 44 4E 24 22 |."..PLACE ."DN$"| 00001150: 20 9A 49 4E 20 54 48 45 20 44 52 49 56 45 20 41 | .IN THE DRIVE A| 00001160: 4E 44 22 00 95 19 0A 05 99 22 50 52 45 53 53 20 |ND"......"PRESS | 00001170: 05 53 50 41 43 45 20 9A 54 4F 20 52 45 54 55 52 |.SPACE .TO RETUR| 00001180: 4E 20 54 4F 20 4C 4F 41 44 53 54 41 52 22 3A 97 |N TO LOADSTAR":.| 00001190: 31 39 38 2C 2E 00 AE 19 14 05 41 B2 C2 28 32 30 |198,......A..(20| 000011A0: 33 29 3A 8B 41 B3 B1 36 30 A7 31 33 30 30 00 B8 |3):.A..60.1300..| 000011B0: 19 1E 05 89 33 30 30 30 00 EE 19 D0 07 99 22 13 |....3000......".| 000011C0: 9E 11 11 11 11 11 11 20 20 20 49 53 20 44 52 49 |....... IS DRI| 000011D0: 56 45 20 39 20 59 4F 55 52 20 44 45 53 54 49 4E |VE 9 YOUR DESTIN| 000011E0: 41 54 49 4F 4E 3F 20 20 28 59 2F 4E 29 22 00 0C |ATION? (Y/N)"..| 000011F0: 1A DA 07 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF |....A$:.A$.."Y".| 00001200: 41 24 B3 B1 22 4E 22 A7 32 30 31 30 00 44 1A E4 |A$.."N".2010.D..| 00001210: 07 99 22 13 11 11 11 11 11 11 20 20 20 20 20 20 |.."....... | 00001220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001240: 20 20 20 22 00 56 1A EE 07 8B 41 24 B2 22 4E 22 | ".V....A$."N"| 00001250: A7 44 44 25 B2 38 00 5C 1A F8 07 8E 00 93 1A B8 |.DD%.8.\........| 00001260: 0B 97 34 35 2C 31 33 35 3A 97 34 36 2C 32 37 3A |..45,135:.46,27:| 00001270: 97 34 37 2C 31 34 32 3A 97 34 38 2C 32 37 3A 97 |.47,142:.48,27:.| 00001280: 34 39 2C 31 34 32 3A 97 35 30 2C 32 37 3A 97 35 |49,142:.50,27:.5| 00001290: 31 2C 30 00 BB 1A C2 0B 97 35 32 2C 31 32 38 3A |1,0......52,128:| 000012A0: 97 35 33 2C 30 3A 97 35 34 2C 30 3A 97 35 35 2C |.53,0:.54,0:.55,| 000012B0: 30 3A 97 35 36 2C 31 32 38 3A 9C 00 F4 1A 60 EA |0:.56,128:....`.| 000012C0: 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A 48 45 4C |.15,8,15,"R0:HEL| 000012D0: 4C 4F 20 43 4F 4E 4E 45 43 54 3D 48 45 4C 4C 4F |LO CONNECT=HELLO| 000012E0: 20 43 4F 4E 4E 45 43 54 22 3A 84 31 35 2C 45 52 | CONNECT":.15,ER| 000012F0: 3A A0 31 35 00 0A 1B 6A EA 8B 20 45 52 B3 B1 36 |:.15...j.. ER..6| 00001300: 33 20 A7 20 99 22 93 22 3A 80 00 41 1B 74 EA 41 |3 . .".":..A.t.A| 00001310: 24 B2 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |$."HELLO CONNECT| 00001320: 22 3A 51 24 B2 C7 28 33 34 29 3A 97 35 33 32 38 |":Q$..(34):.5328| 00001330: 31 2C 37 3A 97 35 33 32 38 30 2C 37 3A 99 22 93 |1,7:.53280,7:.".| 00001340: 22 00 5C 1B 7E EA 99 22 9E 13 11 11 11 4C 4F 41 |".\.~..".....LOA| 00001350: 44 22 51 24 41 24 51 24 22 2C 38 22 00 85 1B 88 |D"Q$A$Q$",8"....| 00001360: EA 99 22 11 11 11 11 52 55 4E 13 22 3A 97 36 33 |.."....RUN.":.63| 00001370: 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 31 39 |1,13:.632,13:.19| 00001380: 38 2C 32 3A A2 00 00 00 |8,2:.... |
.......30.)...HI..(NU.256):LO.NU.HI.256:
..H....Y.0.Y.1:."FILECOPY.O",8,1.}.(..51
,.:.56,47:.:. F$(100),T$(100),EA(100),SA
(100)...-.DD%.9: 2:.2,9,15: 2:.ST.DD%.8.
.....DD%.9..2000.G.2.RB.1:.520:SA.12288.
Z.<.FL$."":F.32768...F.A.B(F):.A..0.FL$.
FL$.G(A):F.F.1:.70...P..C(FL$).16.FL$.H(
FL$,16).?.Z..2,8,2,"FILES ON SIDE ".SI$.
R.D..2,A$:I.ST:.2,NF$:NF.E(NF$):.2,NB$:N
B.E(NB$).1...N..X.1.NF:.2,F$(X),T$(X):..
..X.NF.NF.1:F$(NF)."LOADSTAR READER":T$(
NF)."P".T....A$..FL$.I.0.100......A$.FL$
.170......".ERROR....FILE "FL$" NOT FOUN
D IN FILE!": 2... ...#... 2.).....6....:
.198,..<.H.:.B.R.:.K...D1.......NU.SA:.2
0:D1.D1.1:D.D1:.12131,HI:.12135,LO:SA(D1
).SA......670:."........READING:."F$(D).
B....1,8,2,F$(D):.12040: 1.....EA(D1).B(
832).B(833).256:SA.EA(D1).1...... (EA(D1
).53248) . (D1.NF) . 230.).... EA(D1).53
248 . 310.A.".D1.D1.1:SA.12288:."...
"..,.."
"...6..DD%.9.340...;.."..
.INSERT DESTINATION DISK... "
...@.." PRESS SPACE WHEN READY TO COP
Y.":.198,....J..A$:.A$.." ".330.5.T..RB.
.". .CHECKING # OF BLOCKS FREE".G.
^..RB.RB..:.790.].H.D2.D2.1:D.D2:.670...
R.."........WRITING:."F$(D):.640...|..(M
M).420.....NU.EA(D2):.20:.832,LO:.833=HI
.V...NU.SA(D2):.20:.12131,HI:.12135,LO..
....1,DD%,2,F$(D).",".T$(D).",W":.12084:
1...... D2.D1 . 360.#....DD%.9.460.E...
.". .INSERT ."DN$"....".X...." PRE
SS SPACE WHEN READY TO CONTINUE.":.198,.
...B..A$:.A$.." ".450...L..600:.(MM$..DN
$)..710:.460...V.."..";:.A.1.2:."
":......
."...";:.832,.:.833,32...... D1.NF . 230
.:....1030:. LOADING INSTRUCTIONS.D....
1310.Z....53280,0:.53281,0......G(142)".
..U.....................................
.I";.G....". .LOADSTAR PROGRAM COP
IER ..";...&..". .BY: MIKE MAY
NARD & ALAN GARDNER ..";.+.0.."J......
................................K";.H.:.
.A.217.242:.A,B(A).128:..F.D..600:SI$.I(
DN$,1):MM$.DN$...N.."... .PLEASE WAIT FI
VE MORE SECONDS... ":....X..15,8,15,"I0"
:.8,8,8,"#".I.B..15,"UA:8 0 18 0"...L..1
5,"B-P:8 144"...V.DN$."":.A.1.16:.#8,A$:
DN$.DN$.A$:.: 8: 15:..=....15,DD%,15,"R0
:".F$(D)."=".F$(D):.15,ER: 15.R...MM..:.
ER.63.MM.1.X..........".....";:.A.1.20:.
"
":............."......";:.A.1.6:."
"......
:.".....";:....F.."... "MM$". IS NOT IN
THE DRIVE.".H.P.."
".M.Z.." PUT ."MM$" .IN T
HE DRIVE AND"......" PRESS .SPACE
.TO TRY AGAIN.":.198,.......A$:.A$.." ".
750......"....";:.A.1.4:."
":......."...":.
...... CHECK # OF BLOCKS FREE.Q....15,DD
%,15,"I0":.15,ER: 15:.(ER.20).(ER.24).81
0... ..670:."........ THE DISK IN THE DR
IVE ISN'T FORMATTED.":.910...*..15,DD%,1
5,"I0":.8,DD%,8,"#".W.4..15,"UA:8 0 18 0
":.15,"B-P:8 4"...>.BA..:.A.1.35:.A.18..
#8,A$:.850...H..#8,A$:BA.BA.F(A$.G(.)).*
.R..B.1.3:.#8,A$:..@.\..:.NB.BA. 8: 15:.
.K.F. 8: 15...P..670:."........THERE'S N
OT ENOUGH ROOM ON THIS DISK"...Z.."FOR .
"F$(D)". AND THE FILES".B...."ASSOCIATED
WITH IT."......"... YOUR OP
TIONS:"......"...F.ORMAT A DISK FOR THIS
PROGRAM".B....".T.RY SAVING THIS PROGRA
M ON ANOTHER DISK".J...."..Q.UIT (FORGET
ABOUT COPYING IT)......".PRESS .F., .T.
, OR .Q..":.198,......A.B(203):.A..21.A.
.22.A..62.960.J.J..A.62..1250:.960...T..
A.22..". .CHECKING # OF BLOCKS FRE
E":.790.+....".. PUT DISK TO FORMAT
IN DRIVE 0".`...." PRESS .SPACE. WHEN
READY TO FORMAT":.198,..V....A$:.A$.."
".1010......15,DD%,15,"N0:LOADSTAR PROGS
,MM": 15:.790......670:.".......
.-- .FINISHED COPYING .--"......"...TO
LOAD THIS PROGRAM FROM BASIC, ENTER:".0.
..."...LOAD "G(34)F$(1)G(34)",8".P.$..".
".30)".THEN...":."..RUN".|...."...
PLEASE MAKE NOTE OF THIS..."...8..".
PRESS .SPACE .FOR MORE"...B..B(203)
..60.1090.L.L..670:."......"...V..".TO R
EAD ABOUT THIS PROGRAM FROM BASIC,"...`.
."ENTER THE FOLLOWING:".S.J.."...LOAD "G
(34)"LOADSTAR READER"G(34)",8,1 .THEN.
.."...T.."..NEW
.THEN..."...~.."..SYS 679,"G(34)"T."F$(
1)G(34).X...."...USE .P. TO PAUSE, .C. T
O CONTINUE, AND"......".A. TO ABORT."...
..."... PLEASE MAKE NOTE OF THIS...
".H....". PRESS .SPACE .TO RETURN TO L
OADSTAR".]....B(203)..60.1200.C.......D.
.3,8,3,"FILES ON SIDE 1"...N..I...1:.#3,
A$:I.ST:.A$;...X..: 3......". .ARE YOU S
URE YOU WANT TO QUIT? (.Y./.N.)":.198,..
....A.B(203):.A..25.A..39.1260.;....A.39
..".
":."..";:..C...."..PLACE ."DN$" .IN THE
DRIVE AND"......"PRESS .SPACE .TO RETUR
N TO LOADSTAR":.198,......A.B(203):.A..6
0.1300......3000...P.."........ IS DRI
VE 9 YOUR DESTINATION? (Y/N)"...Z..A$:.
A$.."Y".A$.."N".2010.D....".......
".V..
..A$."N".DD%.8.\..........45,135:.46,27:
.47,142:.48,27:.49,142:.50,27:.51,0...B.
.52,128:.53,0:.54,0:.55,0:.56,128:....`.
.15,8,15,"R0:HELLO CONNECT=HELLO CONNECT
":.15,ER: 15...J.. ER..63 . .".":..A.T.A
$."HELLO CONNECT":Q$.G(34):.53281,7:.532
80,7:.".".\.~..".....LOAD"Q$A$Q$",8"....
.."....RUN.":.631,13:.632,13:.198,2:....
> CLICK IMAGE PREVIEW FOR FULL MODAL