ICON GRABBER
FILE INFORMATION
FILENAME(S): ICON GRABBER
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-10-20 14:30:38
APPEARS ON: 3 disk(s)
FILE HASH
bcc385b3af998f4e43b89f8bf52b2265cf100a55324aa8581334f44d53082c06
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| G PD 15 | ICON GRABBER | PRG | Treasure Chest - Klaus Der Suhler | 34 | 13 | DOWNLOAD FILE |
| G T 24 0 | ICON GRABBER | PRG | Treasure Chest - Klaus Der Suhler | 25 | 9 | DOWNLOAD FILE |
| G PD 15 | ICON GRABBER | PRG | Treasure Chest - Klaus Der Suhler | 34 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 E8 03 8F 20 20 20 54 48 49 53 20 50 |..%.... THIS P|
00000010: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 45 58 41 4D |ROGRAM WILL EXAM|
00000020: 49 4E 45 20 41 00 47 08 F2 03 8F 20 44 49 53 4B |INE A.G.... DISK|
00000030: 20 46 4F 52 20 54 48 45 20 47 45 4F 53 20 49 43 | FOR THE GEOS IC|
00000040: 4F 4E 20 54 48 41 54 00 6A 08 FC 03 8F 20 4D 41 |ON THAT.j.... MA|
00000050: 54 43 48 45 53 20 54 48 45 20 47 49 56 45 4E 20 |TCHES THE GIVEN |
00000060: 46 49 4C 45 20 4E 41 4D 45 2E 00 8C 08 06 04 8F |FILE NAME.......|
00000070: 20 20 20 54 48 45 20 52 45 53 55 4C 54 20 49 53 | THE RESULT IS|
00000080: 20 54 48 45 20 49 43 4F 4E 20 49 4E 00 AD 08 10 | THE ICON IN....|
00000090: 04 8F 20 4D 45 4D 4F 52 59 20 41 53 20 44 41 54 |.. MEMORY AS DAT|
000000A0: 41 20 53 54 41 54 45 4D 45 4E 54 53 2E 00 B3 08 |A STATEMENTS....|
000000B0: 1A 04 8F 00 D8 08 24 04 8F 20 20 20 54 48 49 53 |......$.. THIS|
000000C0: 20 57 41 59 20 59 4F 55 20 43 41 4E 20 47 45 54 | WAY YOU CAN GET|
000000D0: 20 41 4E 20 49 43 4F 4E 00 FD 08 2E 04 8F 20 49 | AN ICON...... I|
000000E0: 4E 20 4D 45 4D 4F 52 59 2C 20 4C 49 53 54 20 54 |N MEMORY, LIST T|
000000F0: 48 45 20 4C 49 4E 45 53 2C 54 59 50 45 00 1E 09 |HE LINES,TYPE...|
00000100: 38 04 8F 20 4E 45 57 2C 20 54 48 45 4E 20 4C 4F |8.. NEW, THEN LO|
00000110: 41 44 20 49 4E 20 54 48 45 20 49 43 4F 4E 00 43 |AD IN THE ICON.C|
00000120: 09 42 04 8F 20 43 48 41 4E 47 45 52 20 50 52 4F |.B.. CHANGER PRO|
00000130: 47 52 41 4D 20 41 4E 44 20 48 49 54 20 52 45 54 |GRAM AND HIT RET|
00000140: 55 52 4E 00 65 09 4C 04 8F 20 4F 56 45 52 20 54 |URN.e.L.. OVER T|
00000150: 48 45 20 4C 49 4E 45 53 20 54 4F 20 41 44 44 20 |HE LINES TO ADD |
00000160: 54 48 45 4D 2E 00 6B 09 56 04 8F 00 8F 09 60 04 |THEM..k.V.....`.|
00000170: 8F 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D |. THIS PROGRAM|
00000180: 20 49 53 20 41 20 4D 45 53 53 20 4D 41 44 45 00 | IS A MESS MADE.|
00000190: B4 09 6A 04 8F 20 42 59 20 4A 4F 45 20 42 55 43 |..j.. BY JOE BUC|
000001A0: 4B 4C 45 59 20 46 52 4F 4D 20 54 48 45 20 47 55 |KLEY FROM THE GU|
000001B0: 54 54 45 44 00 D9 09 74 04 8F 20 52 45 4D 41 49 |TTED...t.. REMAI|
000001C0: 4E 53 20 4F 46 20 54 57 4F 20 4F 54 48 45 52 20 |NS OF TWO OTHER |
000001D0: 50 52 4F 47 52 41 4D 53 3A 00 DF 09 7E 04 8F 00 |PROGRAMS:...~...|
000001E0: F4 09 88 04 8F 20 20 20 49 43 4F 4E 20 43 48 41 |..... ICON CHA|
000001F0: 4E 47 45 52 00 10 0A 92 04 8F 20 20 20 20 20 42 |NGER...... B|
00000200: 59 20 44 4F 55 47 4C 41 53 20 43 55 52 54 49 53 |Y DOUGLAS CURTIS|
00000210: 00 16 0A 9C 04 8F 00 27 0A A6 04 8F 20 20 20 53 |.......'.... S|
00000220: 45 43 32 44 41 54 41 00 45 0A B0 04 8F 20 20 20 |EC2DATA.E.... |
00000230: 20 20 42 59 20 52 41 4E 44 59 20 57 49 4E 43 48 | BY RANDY WINCH|
00000240: 45 53 54 45 52 00 4B 0A BA 04 8F 00 51 0A C4 04 |ESTER.K.....Q...|
00000250: 8F 00 84 0A CE 04 97 35 33 32 38 31 2C 30 3A 97 |.......53281,0:.|
00000260: 35 33 32 38 30 2C 30 3A 97 36 34 36 2C 31 33 3A |53280,0:.646,13:|
00000270: 97 35 33 32 36 39 2C 30 3A 44 4E 24 B2 22 22 3A |.53269,0:DN$."":|
00000280: 49 55 B2 30 00 A9 0A D8 04 99 22 93 22 3A 99 A6 |IU.0......".":..|
00000290: 31 32 29 22 12 D7 92 20 49 43 4F 4E 20 47 52 41 |12)"... ICON GRA|
000002A0: 42 42 45 52 20 12 D7 92 22 00 E4 0A E2 04 99 22 |BBER ..."......"|
000002B0: 11 45 4E 54 45 52 20 54 48 45 20 46 49 4C 45 4E |.ENTER THE FILEN|
000002C0: 41 4D 45 20 4F 46 20 54 48 45 20 49 43 4F 4E 20 |AME OF THE ICON |
000002D0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 41 50 54 |YOU WANT TO CAPT|
000002E0: 55 52 45 22 00 F3 0A EC 04 85 22 11 2D 3E 22 3B |URE"......".->";|
000002F0: 49 4E 24 00 18 0B F6 04 99 22 11 46 49 4C 45 4E |IN$......".FILEN|
00000300: 41 4D 45 20 53 45 4C 45 43 54 45 44 20 49 53 20 |AME SELECTED IS |
00000310: 3E 22 49 4E 24 22 3C 22 00 33 0B 00 05 99 22 11 |>"IN$"<".3....".|
00000320: 49 53 20 54 48 49 53 20 43 4F 52 52 45 43 54 20 |IS THIS CORRECT |
00000330: 20 22 3B 00 54 0B 0A 05 85 22 20 59 9D 9D 9D 22 | ";.T...." Y..."|
00000340: 3B 41 4E 24 3A 8B 20 41 4E 24 B3 B1 22 59 22 A7 |;AN$:. AN$.."Y".|
00000350: 31 30 30 30 00 74 0B 14 05 85 22 11 53 54 41 52 |1000.t....".STAR|
00000360: 54 49 4E 47 20 4C 49 4E 45 20 4E 55 4D 42 45 52 |TING LINE NUMBER|
00000370: 22 3B 4C 4E 00 81 0B 1E 05 81 43 54 B2 31 A4 31 |";LN......CT.1.1|
00000380: 36 00 93 0B 28 05 50 44 24 B2 50 44 24 AA C7 28 |6...(.PD$.PD$..(|
00000390: 33 32 29 00 9B 0B 32 05 82 43 54 00 B1 0B 3C 05 |32)...2..CT...<.|
000003A0: 49 4E 24 B2 C8 28 49 4E 24 AA 50 44 24 2C 31 36 |IN$..(IN$.PD$,16|
000003B0: 29 00 C3 0B 46 05 9F 31 35 2C 38 2C 31 35 2C 22 |)...F..15,8,15,"|
000003C0: 49 30 22 00 F1 0B 50 05 84 31 35 2C 45 52 24 2C |I0"...P..15,ER$,|
000003D0: 45 4D 24 3A 8B 45 52 24 B3 B1 22 30 30 22 A7 99 |EM$:.ER$.."00"..|
000003E0: 45 52 24 AA 22 20 22 AA 45 4D 24 3A A0 31 35 3A |ER$." ".EM$:.15:|
000003F0: 80 00 FE 0B 5A 05 54 B2 31 38 3A 53 B2 31 00 0D |....Z.T.18:S.1..|
00000400: 0C 64 05 9F 32 2C 38 2C 32 2C 22 23 22 00 31 0C |.d..2,8,2,"#".1.|
00000410: 6E 05 98 31 35 2C 22 55 31 22 3B 32 3B 30 3B 54 |n..15,"U1";2;0;T|
00000420: 3B 53 3A 46 43 B2 30 3A 46 50 B2 32 3A 42 50 B2 |;S:FC.0:FP.2:BP.|
00000430: 35 00 6B 0C 78 05 98 31 35 2C 22 42 2D 50 22 3B |5.k.x..15,"B-P";|
00000440: 32 3B 30 3A A1 23 32 2C 4E 54 24 2C 4E 53 24 3A |2;0:.#2,NT$,NS$:|
00000450: 54 B2 C6 28 4E 54 24 AA C7 28 30 29 29 3A 53 B2 |T..(NT$..(0)):S.|
00000460: C6 28 4E 53 24 AA C7 28 30 29 29 00 A2 0C 82 05 |.(NS$..(0)).....|
00000470: 98 31 35 2C 22 42 2D 50 22 3B 32 3B 46 50 3A A1 |.15,"B-P";2;FP:.|
00000480: 23 32 2C 46 54 24 3A 46 54 24 B2 46 54 24 AA C7 |#2,FT$:FT$.FT$..|
00000490: 28 30 29 3A 8B C6 28 46 54 24 29 B2 30 A7 31 35 |(0):..(FT$).0.15|
000004A0: 35 30 00 B5 0C 8C 05 98 31 35 2C 22 42 2D 50 22 |50......15,"B-P"|
000004B0: 3B 32 3B 42 50 00 C2 0C 96 05 81 43 54 B2 31 A4 |;2;BP......CT.1.|
000004C0: 31 36 00 CE 0C A0 05 A1 23 32 2C 42 49 24 00 E3 |16......#2,BI$..|
000004D0: 0C AA 05 8B 42 49 24 B2 22 22 A7 42 49 24 B2 C7 |....BI$."".BI$..|
000004E0: 28 30 29 00 F1 0C B4 05 46 49 B2 C6 28 42 49 24 |(0).....FI..(BI$|
000004F0: 29 00 07 0D BE 05 8B 46 49 B1 31 32 37 A7 46 49 |)......FI.127.FI|
00000500: B2 46 49 AB 31 32 38 00 18 0D C8 05 8B 46 49 B3 |.FI.128......FI.|
00000510: 33 32 A7 46 49 B2 36 33 00 34 0D D2 05 8B 46 49 |32.FI.63.4....FI|
00000520: B1 39 36 AF 46 49 B3 31 32 33 A7 46 49 B2 46 49 |.96.FI.123.FI.FI|
00000530: AF 32 32 33 00 45 0D DC 05 8B 46 49 B2 33 34 A7 |.223.E....FI.34.|
00000540: 46 49 B2 36 33 00 57 0D E6 05 44 4E 24 B2 44 4E |FI.63.W...DN$.DN|
00000550: 24 AA C7 28 46 49 29 00 5F 0D F0 05 82 43 54 00 |$..(FI)._....CT.|
00000560: 71 0D FA 05 8B 44 4E 24 B2 49 4E 24 A7 31 35 38 |q....DN$.IN$.158|
00000570: 30 00 7C 0D 04 06 44 4E 24 B2 22 22 00 98 0D 0E |0.|...DN$.""....|
00000580: 06 46 43 B2 46 43 AA 31 3A 8B 46 43 B2 38 AF 54 |.FC.FC.1:.FC.8.T|
00000590: B3 B1 30 A7 31 33 39 30 00 AB 0D 18 06 8B 46 43 |..0.1390......FC|
000005A0: B2 38 AF 54 B2 30 A7 31 36 36 30 00 C7 0D 22 06 |.8.T.0.1660...".|
000005B0: 46 50 B2 46 50 AA 33 32 3A 42 50 B2 42 50 AA 33 |FP.FP.32:BP.BP.3|
000005C0: 32 3A 89 31 34 31 30 00 D7 0D 2C 06 A1 23 32 2C |2:.1410...,..#2,|
000005D0: 49 54 24 2C 49 53 24 00 F9 0D 36 06 49 54 B2 C6 |IT$,IS$...6.IT..|
000005E0: 28 49 54 24 AA C7 28 30 29 29 3A 49 53 B2 C6 28 |(IT$..(0)):IS..(|
000005F0: 49 53 24 AA C7 28 30 29 29 00 10 0E 40 06 98 31 |IS$..(0))...@..1|
00000600: 35 2C 22 55 31 22 3B 32 3B 30 3B 49 54 3B 49 53 |5,"U1";2;0;IT;IS|
00000610: 00 22 0E 4A 06 98 31 35 2C 22 42 2D 50 22 3B 32 |.".J..15,"B-P";2|
00000620: 3B 35 00 2F 0E 54 06 81 43 54 B2 31 A4 36 33 00 |;5./.T..CT.1.63.|
00000630: 4A 0E 5E 06 A1 23 32 2C 49 44 24 3A 49 44 B2 C6 |J.^..#2,ID$:ID..|
00000640: 28 49 44 24 AA C7 28 30 29 29 00 59 0E 68 06 97 |(ID$..(0)).Y.h..|
00000650: 38 33 31 AA 43 54 2C 49 44 00 68 0E 72 06 82 43 |831.CT,ID.h.r..C|
00000660: 54 3A 89 20 31 36 37 30 00 89 0E 7C 06 99 22 93 |T:. 1670...|..".|
00000670: 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 21 22 |FILE NOT FOUND!"|
00000680: 3A A0 32 3A A0 31 35 3A 80 00 94 0E 86 06 42 55 |:.2:.15:......BU|
00000690: B2 38 33 31 00 9F 0E 90 06 A0 32 3A A0 31 35 00 |.831......2:.15.|
000006A0: AC 0E 9A 06 51 24 B2 C7 28 33 34 29 00 BE 0E A4 |....Q$..(34)....|
000006B0: 06 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 CE |..15,8,15,"I0"..|
000006C0: 0E AE 06 8D 31 37 32 30 3A 89 31 37 35 30 00 E6 |....1720:.1750..|
000006D0: 0E B8 06 84 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 |....15,EN$,EM$,E|
000006E0: 54 24 2C 45 53 24 00 FB 0E C2 06 8B 20 45 4E 24 |T$,ES$...... EN$|
000006F0: B3 B1 22 30 30 22 89 32 30 32 30 00 01 0F CC 06 |.."00".2020.....|
00000700: 8E 00 10 0F D6 06 9F 32 2C 38 2C 32 2C 22 23 22 |.......2,8,2,"#"|
00000710: 00 2A 0F E0 06 9F 33 2C 38 2C 33 2C 22 54 45 4D |.*....3,8,3,"TEM|
00000720: 50 44 41 54 41 2C 53 2C 57 22 00 3F 0F EA 06 98 |PDATA,S,W".?....|
00000730: 33 2C 4C 4E 3B 22 52 45 4D 20 2D 2D 2D 3E 22 00 |3,LN;"REM --->".|
00000740: 5F 0F F4 06 99 22 93 57 52 49 54 49 4E 47 20 44 |_....".WRITING D|
00000750: 41 54 41 20 46 49 4C 45 20 2E 20 2E 20 2E 22 00 |ATA FILE . . .".|
00000760: 6C 0F FE 06 81 20 43 31 B2 30 A4 36 00 78 0F 08 |l.... C1.0.6.x..|
00000770: 07 4C 4E B2 4C 4E AA 31 00 8A 0F 12 07 98 33 2C |.LN.LN.1......3,|
00000780: 4C 4E 3B 22 44 41 54 41 22 3B 00 97 0F 1C 07 81 |LN;"DATA";......|
00000790: 20 43 32 B2 30 A4 37 00 C0 0F 26 07 42 55 B2 42 | C2.0.7...&.BU.B|
000007A0: 55 AA 31 3A 42 24 B2 C7 28 C2 28 42 55 29 29 3A |U.1:B$..(.(BU)):|
000007B0: 8B 20 42 24 B2 22 22 A7 20 42 24 B2 C7 28 30 29 |. B$."". B$..(0)|
000007C0: 00 F0 0F 30 07 58 58 24 B2 C4 28 C6 28 42 24 29 |...0.XX$..(.(B$)|
000007D0: 29 3A 59 59 24 B2 C9 28 22 30 30 30 22 AA C9 28 |):YY$..("000"..(|
000007E0: 58 58 24 2C C3 28 58 58 24 29 AB 31 29 2C 33 29 |XX$,.(XX$).1),3)|
000007F0: 00 0E 10 3A 07 98 33 2C 59 59 24 3B 3A 8B 20 43 |...:..3,YY$;:. C|
00000800: 32 B3 37 A7 20 98 33 2C C7 28 34 34 29 3B 00 14 |2.7. .3,.(44);..|
00000810: 10 44 07 82 00 21 10 4E 07 98 33 2C C7 28 31 33 |.D...!.N..3,.(13|
00000820: 29 00 27 10 58 07 82 00 33 10 62 07 4C 4E B2 4C |).'.X...3.b.LN.L|
00000830: 4E AA 31 00 45 10 6C 07 98 33 2C 4C 4E 3B 22 44 |N.1.E.l..3,LN;"D|
00000840: 41 54 41 22 3B 00 52 10 76 07 81 20 43 32 B2 30 |ATA";.R.v.. C2.0|
00000850: A4 36 00 7B 10 80 07 42 55 B2 42 55 AA 31 3A 42 |.6.{...BU.BU.1:B|
00000860: 24 B2 C7 28 C2 28 42 55 29 29 3A 8B 20 42 24 B2 |$..(.(BU)):. B$.|
00000870: 22 22 A7 20 42 24 B2 C7 28 30 29 00 AB 10 8A 07 |"". B$..(0).....|
00000880: 58 58 24 B2 C4 28 C6 28 42 24 29 29 3A 59 59 24 |XX$..(.(B$)):YY$|
00000890: B2 C9 28 22 30 30 30 22 AA C9 28 58 58 24 2C C3 |..("000"..(XX$,.|
000008A0: 28 58 58 24 29 AB 31 29 2C 33 29 00 C9 10 94 07 |(XX$).1),3).....|
000008B0: 98 33 2C 59 59 24 3B 3A 8B 20 43 32 B3 36 A7 20 |.3,YY$;:. C2.6. |
000008C0: 98 33 2C C7 28 34 34 29 3B 00 CF 10 9E 07 82 00 |.3,.(44);.......|
000008D0: DC 10 A8 07 98 33 2C C7 28 31 33 29 00 E8 10 B2 |.....3,.(13)....|
000008E0: 07 4C 4E B2 4C 4E AA 31 00 F8 10 BC 07 98 33 2C |.LN.LN.1......3,|
000008F0: 4C 4E 3B 22 52 45 4D 22 00 41 11 C6 07 98 33 2C |LN;"REM".A....3,|
00000900: 22 3F 22 51 24 22 4F 50 45 4E 31 2C 38 2C 31 35 |"?"Q$"OPEN1,8,15|
00000910: 2C 22 51 24 22 43 C8 28 33 34 29 22 51 24 22 53 |,"Q$"C.(34)"Q$"S|
00000920: 30 3A 54 45 4D 50 44 41 54 41 22 51 24 22 43 C8 |0:TEMPDATA"Q$"C.|
00000930: 28 33 34 29 22 51 24 22 3A 43 4C 4F 53 45 31 35 |(34)"Q$":CLOSE15|
00000940: 22 00 60 11 D0 07 98 33 2C 22 50 52 49 4E 54 22 |".`....3,"PRINT"|
00000950: 51 24 22 91 91 91 91 91 91 91 91 91 91 22 51 24 |Q$".........."Q$|
00000960: 00 84 11 DA 07 98 33 2C 22 43 4C 4F 53 45 32 3A |......3,"CLOSE2:|
00000970: 50 4F 4B 45 38 31 32 2C 34 37 3A 53 59 53 36 35 |POKE812,47:SYS65|
00000980: 34 38 34 22 00 8E 11 E4 07 A0 33 3A A0 32 00 96 |484"......3:.2..|
00000990: 11 EE 07 A0 31 35 00 B6 11 F8 07 99 22 93 22 3B |....15......".";|
000009A0: 3A 99 3A 99 3A 99 22 4F 50 45 4E 32 2C 38 2C 32 |:.:.:."OPEN2,8,2|
000009B0: 2C 22 3B 51 24 3B 00 CA 11 02 08 99 22 54 45 4D |,";Q$;......"TEM|
000009C0: 50 44 41 54 41 22 3B 51 24 3B 00 F0 11 0C 08 99 |PDATA";Q$;......|
000009D0: 22 3A 50 4F 4B 45 37 38 31 2C 32 3A 50 4F 4B 45 |":POKE781,2:POKE|
000009E0: 38 31 32 2C 37 33 3A 53 59 53 36 35 34 37 38 22 |812,73:SYS65478"|
000009F0: 00 0B 12 16 08 99 22 13 22 3B 3A 97 31 39 38 2C |......".";:.198,|
00000A00: 31 3A 97 36 33 31 2C 31 33 3A A2 00 00 00 1A 1A |1:.631,13:......|
00000A10: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000A20: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000A30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000A40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000A50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000A60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000A70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
..%.... THIS PROGRAM WILL EXAMINE A.G.
... DISK FOR THE GEOS ICON THAT.J.... MA
TCHES THE GIVEN FILE NAME....... THE R
ESULT IS THE ICON IN...... MEMORY AS DAT
A STATEMENTS........X.$.. THIS WAY YOU
CAN GET AN ICON...... IN MEMORY, LIST T
HE LINES,TYPE...8.. NEW, THEN LOAD IN TH
E ICON.C.B.. CHANGER PROGRAM AND HIT RET
URN.E.L.. OVER THE LINES TO ADD THEM..K.
V.....`.. THIS PROGRAM IS A MESS MADE.
..J.. BY JOE BUCKLEY FROM THE GUTTED.Y.T
.. REMAINS OF TWO OTHER PROGRAMS:...~...
..... ICON CHANGER...... BY DOUGLA
S CURTIS.......'.... SEC2DATA.E....
BY RANDY WINCHESTER.K.....Q.D.....N..5
3281,0:.53280,0:.646,13:.53269,0:DN$."":
IU.0...X..".":..12)".W. ICON GRABBER .W.
"......".ENTER THE FILENAME OF THE ICON
YOU WANT TO CAPTURE"......".->";IN$.....
.".FILENAME SELECTED IS >"IN$"<".3....".
IS THIS CORRECT ";.T...." Y...";AN$:. A
N$.."Y".1000.T....".STARTING LINE NUMBER
";LN......CT.1.16...(.PD$.PD$.G(32)...2.
.CT...<.IN$.H(IN$.PD$,16).C.F..15,8,15,"
I0"...P..15,ER$,EM$:.ER$.."00"..ER$." ".
EM$: 15:....Z.T.18:S.1...D..2,8,2,"#".1.
N..15,"U1";2;0;T;S:FC.0:FP.2:BP.5.K.X..1
5,"B-P";2;0:.#2,NT$,NS$:T.F(NT$.G(0)):S.
F(NS$.G(0))......15,"B-P";2;FP:.#2,FT$:F
T$.FT$.G(0):.F(FT$).0.1550......15,"B-P"
;2;BP.B....CT.1.16.N. ..#2,BI$......BI$.
"".BI$.G(0).....FI.F(BI$)......FI.127.FI
.FI.128...H..FI.32.FI.63.4.R..FI.96.FI.1
23.FI.FI.223.E....FI.34.FI.63.W...DN$.DN
$.G(FI)._....CT.Q....DN$.IN$.1580.|...DN
$."".....FC.FC.1:.FC.8.T..0.1390......FC
.8.T.0.1660.G.".FP.FP.32:BP.BP.32:.1410.
W.,..#2,IT$,IS$...6.IT.F(IT$.G(0)):IS.F(
IS$.G(0))...@..15,"U1";2;0;IT;IS.".J..15
,"B-P";2;5./.T..CT.1.63.J.^..#2,ID$:ID.F
(ID$.G(0)).Y.H..831.CT,ID.H.R..CT:. 1670
...|..".FILE NOT FOUND!": 2: 15:......BU
.831..... 2: 15.....Q$.G(34)......15,8,1
5,"I0".N....1720:.1750......15,EN$,EM$,E
T$,ES$...B.. EN$.."00".2020...L.....V..2
,8,2,"#".*....3,8,3,"TEMPDATA,S,W".?....
3,LN;"REM --->"._....".WRITING DATA FILE
. . .".L.... C1.0.6.X...LN.LN.1......3,
LN;"DATA";...... C2.0.7...&.BU.BU.1:B$.G
(B(BU)):. B$."". B$.G(0)...0.XX$.D(F(B$)
):YY$.I("000".I(XX$,C(XX$).1),3)...:..3,
YY$;:. C2.7. .3,G(44);...D...!.N..3,G(13
).'.X...3.B.LN.LN.1.E.L..3,LN;"DATA";.R.
V.. C2.0.6.{...BU.BU.1:B$.G(B(BU)):. B$.
"". B$.G(0).....XX$.D(F(B$)):YY$.I("000"
.I(XX$,C(XX$).1),3).I....3,YY$;:. C2.6.
.3,G(44);.O..........3,G(13).....LN.LN.1
......3,LN;"REM".A.F..3,"?"Q$"OPEN1,8,15
,"Q$"CH(34)"Q$"S0:TEMPDATA"Q$"CH(34)"Q$"
:CLOSE15".`.P..3,"PRINT"Q$".........."Q$
...Z..3,"CLOSE2:POKE812,47:SYS65484"....
. 3: 2..... 15......".";:.:.:."OPEN2,8,2
,";Q$;.J...."TEMPDATA";Q$;......":POKE78
1,2:POKE812,73:SYS65478"......".";:.198,
1:.631,13:..............................
........................................
........................................
........
> CLICK IMAGE PREVIEW FOR FULL MODAL