LLCREATE
FILE INFORMATION
FILENAME(S): LLCREATE
FILE TYPE(S): PRG
FILE SIZE: 834b
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
96bcd24778e98678db599307c1de67f1bb17a3239ce5976fab0e4c51fad09b72
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | LLCREATE | PRG | Curtcool, Bo | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 0A 00 8F 20 43 36 34 20 50 52 4F 47 |..*.... C64 PROG| 00000010: 52 41 4D 20 54 4F 20 43 52 45 41 54 45 20 4C 41 |RAM TO CREATE LA| 00000020: 54 4C 4F 4E 47 20 46 49 4C 45 00 4E 08 0C 00 86 |TLONG FILE.N....| 00000030: 20 41 24 28 35 30 30 29 2C 42 24 28 35 30 30 29 | A$(500),B$(500)| 00000040: 2C 43 28 35 30 30 29 2C 44 28 35 30 30 29 00 66 |,C(500),D(500).f| 00000050: 08 0D 00 52 24 B2 22 2C 22 3A 4A B2 31 3A 99 20 |...R$.",":J.1:. | 00000060: C7 28 31 34 37 29 00 8C 08 14 00 99 20 22 54 59 |.(147)...... "TY| 00000070: 50 45 20 45 41 43 48 20 4C 41 54 4C 4F 4E 47 20 |PE EACH LATLONG | 00000080: 45 4E 54 52 59 20 48 45 52 45 2C 22 00 B7 08 15 |ENTRY HERE,"....| 00000090: 00 99 20 22 53 54 41 52 54 49 4E 47 20 57 49 54 |.. "STARTING WIT| 000000A0: 48 20 54 48 45 20 43 41 4C 4C 53 49 47 4E 20 50 |H THE CALLSIGN P| 000000B0: 52 45 46 49 58 2C 22 00 E7 08 16 00 99 20 22 54 |REFIX,"...... "T| 000000C0: 48 45 4E 20 54 48 45 20 4E 41 4D 45 2C 20 4C 41 |HEN THE NAME, LA| 000000D0: 54 49 54 55 44 45 2C 20 41 4E 44 20 4C 4F 4E 47 |TITUDE, AND LONG| 000000E0: 49 54 55 44 45 2E 22 00 10 09 17 00 99 3A 99 20 |ITUDE."......:. | 000000F0: 22 4E 4F 54 45 3A 20 55 53 45 20 4D 49 4E 55 53 |"NOTE: USE MINUS| 00000100: 20 53 49 47 4E 20 54 4F 20 44 45 4E 4F 54 45 22 | SIGN TO DENOTE"| 00000110: 00 3A 09 18 00 99 20 22 45 41 53 54 20 4C 41 54 |.:.... "EAST LAT| 00000120: 49 54 55 44 45 20 4F 52 20 53 4F 55 54 48 20 4C |ITUDE OR SOUTH L| 00000130: 4F 4E 47 49 54 55 44 45 2E 22 00 5C 09 19 00 99 |ONGITUDE.".\....| 00000140: 3A 99 20 22 54 48 49 53 20 49 53 20 45 4E 54 52 |:. "THIS IS ENTR| 00000150: 59 20 4E 55 4D 42 45 52 20 22 3B 4A 00 8A 09 1A |Y NUMBER ";J....| 00000160: 00 99 20 22 50 52 45 46 49 58 3F 20 28 54 59 50 |.. "PREFIX? (TYP| 00000170: 45 20 27 5A 5A 5A 27 20 49 46 20 44 4F 4E 45 29 |E 'ZZZ' IF DONE)| 00000180: 22 3B 3A 85 20 41 24 28 4A 29 00 B2 09 1B 00 85 |";:. A$(J)......| 00000190: 20 22 4E 41 4D 45 20 4F 46 20 50 4C 41 43 45 20 | "NAME OF PLACE | 000001A0: 28 4E 4F 20 43 4F 4D 4D 41 53 29 22 3B 42 24 28 |(NO COMMAS)";B$(| 000001B0: 4A 29 00 C8 09 1C 00 85 20 22 4C 41 54 49 54 55 |J)...... "LATITU| 000001C0: 44 45 22 3B 43 28 4A 29 00 DF 09 1D 00 85 20 22 |DE";C(J)...... "| 000001D0: 4C 4F 4E 47 49 54 55 44 45 22 3B 44 28 4A 29 00 |LONGITUDE";D(J).| 000001E0: FE 09 1E 00 99 20 41 24 28 4A 29 52 24 42 24 28 |..... A$(J)R$B$(| 000001F0: 4A 29 52 24 43 28 4A 29 52 24 44 28 4A 29 00 22 |J)R$C(J)R$D(J)."| 00000200: 0A 1F 00 85 20 22 49 53 20 54 48 49 53 20 45 4E |.... "IS THIS EN| 00000210: 54 52 59 20 4F 4B 41 59 20 28 59 2F 4E 29 22 3B |TRY OKAY (Y/N)";| 00000220: 46 24 00 37 0A 20 00 8B 20 46 24 B3 B1 22 59 22 |F$.7. .. F$.."Y"| 00000230: 20 A7 20 89 20 32 35 00 41 0A 21 00 4A B2 4A AA | . . 25.A.!.J.J.| 00000240: 31 00 5D 0A 32 00 8B 20 41 24 28 4A AB 31 29 B3 |1.].2.. A$(J.1).| 00000250: B1 22 5A 5A 5A 22 20 A7 20 89 20 32 35 00 65 0A |."ZZZ" . . 25.e.| 00000260: 46 00 99 3A 99 00 8A 0A 48 00 85 22 3C 52 45 54 |F..:....H.."<RET| 00000270: 3E 20 57 48 45 4E 20 4E 45 57 20 44 49 53 4B 20 |> WHEN NEW DISK | 00000280: 52 45 41 44 59 22 3B 43 52 24 00 A7 0A 50 00 9F |READY";CR$...P..| 00000290: 20 32 2C 38 2C 32 2C 22 40 30 3A 4C 41 54 4C 4F | 2,8,2,"@0:LATLO| 000002A0: 4E 47 2C 53 2C 57 22 00 B7 0A 5A 00 81 20 4E B2 |NG,S,W"...Z.. N.| 000002B0: 31 20 A4 20 4A AB 31 00 D7 0A 64 00 98 32 2C 41 |1 . J.1...d..2,A| 000002C0: 24 28 4E 29 52 24 42 24 28 4E 29 52 24 43 28 4E |$(N)R$B$(N)R$C(N| 000002D0: 29 52 24 44 28 4E 29 00 DF 0A 66 00 99 20 4E 00 |)R$D(N)...f.. N.| 000002E0: E7 0A 6E 00 82 20 4E 00 EF 0A 78 00 A0 20 32 00 |..n.. N...x.. 2.| 000002F0: 2A 0B 82 00 99 3A 99 20 22 57 41 4E 54 20 54 4F |*....:. "WANT TO| 00000300: 20 50 55 54 20 4C 41 54 4C 4F 4E 47 20 4F 4E 20 | PUT LATLONG ON | 00000310: 41 4E 4F 54 48 45 52 20 44 49 53 4B 20 28 59 2F |ANOTHER DISK (Y/| 00000320: 4E 29 22 3B 3A 85 20 52 50 24 00 3F 0B 8C 00 8B |N)";:. RP$.?....| 00000330: 20 52 50 24 B2 22 59 22 20 A7 20 89 20 37 32 00 | RP$."Y" . . 72.| 00000340: 00 00 |.. |
..*.... C64 PROGRAM TO CREATE LATLONG FI LE.N.... A$(500),B$(500),C(500),D(500).F ...R$.",":J.1:. G(147)...... "TYPE EACH LATLONG ENTRY HERE,"...... "STARTING WIT H THE CALLSIGN PREFIX,"...... "THEN THE NAME, LATITUDE, AND LONGITUDE."......:. "NOTE: USE MINUS SIGN TO DENOTE".:.... " EAST LATITUDE OR SOUTH LONGITUDE.".\.... :. "THIS IS ENTRY NUMBER ";J...... "PREF IX? (TYPE 'ZZZ' IF DONE)";:. A$(J)...... "NAME OF PLACE (NO COMMAS)";B$(J).H.... "LATITUDE";C(J)...... "LONGITUDE";D(J). ..... A$(J)R$B$(J)R$C(J)R$D(J).".... "IS THIS ENTRY OKAY (Y/N)";F$.7. .. F$.."Y" . . 25.A.!.J.J.1.].2.. A$(J.1).."ZZZ" . . 25.E.F..:....H.."<RET> WHEN NEW DISK READY";CR$...P.. 2,8,2,"@0:LATLONG,S,W". ..Z.. N.1 . J.1.W.D..2,A$(N)R$B$(N)R$C(N )R$D(N)...F.. N...N.. N...X. 2.*....:. "WANT TO PUT LATLONG ON ANOTHER DISK (Y/ N)";:. RP$.?.... RP$."Y" . . 72...
> CLICK IMAGE PREVIEW FOR FULL MODAL