PRANDCR
FILE INFORMATION
FILENAME(S): PRANDCR
FILE TYPE(S): SEQ
FILE SIZE: 510b
FIRST SEEN: 2025-11-02 16:30:42
APPEARS ON: 1 disk(s)
FILE HASH
1fea7666aca15e34aec74b6e6c7b34907c993a4b2883b81a345a705142b0f175
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 15 | PRANDCR | SEQ | Treasure Chest - OzzyC64 | 4 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 50 52 4F 47 52 41 4D 20 50 52 41 4E 44 43 52 28 |PROGRAM PRANDCR(|
00000010: 52 41 4E 44 4F 4D 20 46 49 4C 45 20 43 52 45 41 |RANDOM FILE CREA|
00000020: 54 45 2C 31 31 2F 31 32 2F 38 32 29 3B 0D 0D 43 |TE,11/12/82);..C|
00000030: 4F 4E 53 54 20 44 49 53 4B 55 4E 49 54 3D 38 3B |ONST DISKUNIT=8;|
00000040: 0D 20 20 20 20 20 20 44 41 54 41 43 48 41 4E 3D |. DATACHAN=|
00000050: 32 3B 0D 20 20 20 20 20 20 43 4D 44 43 48 41 4E |2;. CMDCHAN|
00000060: 3D 31 35 3B 0D 20 20 20 20 20 20 46 49 45 4C 44 |=15;. FIELD|
00000070: 53 45 50 3D 24 32 30 3B 0D 0D 56 41 52 20 52 45 |SEP=$20;..VAR RE|
00000080: 43 4F 52 44 53 49 5A 45 2C 20 46 49 4C 45 53 49 |CORDSIZE, FILESI|
00000090: 5A 45 3A 20 49 4E 54 45 47 45 52 3B 0D 20 20 20 |ZE: INTEGER;. |
000000A0: 20 44 41 54 41 4F 55 54 2C 20 43 4F 4D 4D 41 4E | DATAOUT, COMMAN|
000000B0: 44 49 4E 2C 20 43 4F 4D 4D 41 4E 44 4F 55 54 3A |DIN, COMMANDOUT:|
000000C0: 20 54 45 58 54 3B 0D 0D 50 52 4F 43 45 44 55 52 | TEXT;..PROCEDUR|
000000D0: 45 20 50 4F 53 49 54 49 4F 4E 28 43 48 41 4E 4E |E POSITION(CHANN|
000000E0: 45 4C 2C 20 52 45 43 4F 52 44 4E 55 4D 42 45 52 |EL, RECORDNUMBER|
000000F0: 2C 20 53 54 41 52 54 50 4F 53 49 54 49 4F 4E 3A |, STARTPOSITION:|
00000100: 20 49 4E 54 45 47 45 52 29 3B 0D 20 20 42 45 47 | INTEGER);. BEG|
00000110: 49 4E 0D 20 20 20 20 57 52 49 54 45 4C 4E 28 43 |IN. WRITELN(C|
00000120: 4F 4D 4D 41 4E 44 4F 55 54 2C 43 4F 4E 43 41 54 |OMMANDOUT,CONCAT|
00000130: 28 27 50 27 2C 0D 20 20 20 20 20 20 20 20 20 20 |('P',. |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 43 48 52 28 43 48 41 4E 4E 45 4C 29 | CHR(CHANNEL)|
00000160: 2C 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |,. |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 43 48 52 28 52 45 43 4F 52 44 4E 55 4D 42 45 52 |CHR(RECORDNUMBER|
00000190: 29 2C 43 48 52 28 52 45 43 4F 52 44 4E 55 4D 42 |),CHR(RECORDNUMB|
000001A0: 45 52 20 53 48 52 20 38 29 2C 0D 20 20 20 20 20 |ER SHR 8),. |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 43 48 52 28 53 54 41 | CHR(STA|
000001D0: 52 54 50 4F 53 49 54 49 4F 4E 29 29 29 0D 20 20 |RTPOSITION))). |
000001E0: 45 4E 44 3B 0D 0D 46 55 4E 43 54 49 4F 4E 20 44 |END;..FUNCTION D|
000001F0: 49 53 4B 45 52 52 4F 52 3A 20 42 4F FF FF |ISKERROR: BO.. |
PROGRAM PRANDCR(RANDOM FILE CREATE,11/12
/82);..CONST DISKUNIT=8;. DATACHAN=
2;. CMDCHAN=15;. FIELDSEP=$20;
..VAR RECORDSIZE, FILESIZE: INTEGER;.
DATAOUT, COMMANDIN, COMMANDOUT: TEXT;..
PROCEDURE POSITION(CHANNEL, RECORDNUMBER
, STARTPOSITION: INTEGER);. BEGIN. W
RITELN(COMMANDOUT,CONCAT('P',.
CHR(CHANNEL),.
CHR(RECORDNUMBER
),CHR(RECORDNUMBER SHR 8),.
CHR(STARTPOSITION))).
END;..FUNCTION DISKERROR: BO..
> CLICK IMAGE PREVIEW FOR FULL MODAL