SEQ BASIC 4
FILE INFORMATION
FILENAME(S): SEQ BASIC 4
FILE TYPE(S): PRG
FILE SIZE: 762b
FIRST SEEN: 2025-11-30 21:28:03
APPEARS ON: 1 disk(s)
FILE HASH
1c06bf15610b31afc2b6e63c6636d7adb9db8d2818c3a4120073feff6e48c390
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UNIVERSAL DEMO | SEQ BASIC 4 | PRG | DuncanTwain | 24 | 8 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1F 04 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000020: 3D 04 02 00 8F 20 2A 20 20 20 20 20 20 45 58 41 |=.... * EXA| 00000030: 4D 50 4C 45 20 20 20 20 20 20 20 20 2A 00 5B 04 |MPLE *.[.| 00000040: 03 00 8F 20 2A 20 20 52 45 41 44 20 41 4E 44 20 |... * READ AND | 00000050: 57 52 49 54 45 20 41 20 20 20 2A 00 79 04 04 00 |WRITE A *.y...| 00000060: 8F 20 2A 20 20 53 45 51 55 45 4E 54 49 41 4C 20 |. * SEQUENTIAL | 00000070: 44 41 54 41 20 20 20 20 2A 00 97 04 05 00 8F 20 |DATA *...... | 00000080: 2A 20 20 46 49 4C 45 20 55 53 49 4E 47 20 44 52 |* FILE USING DR| 00000090: 49 56 45 20 30 20 2A 00 B5 04 09 00 8F 20 2A 2A |IVE 0 *...... **| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 00 E4 04 14 00 86 41 24 28 32 35 |*****......A$(25| 000000C0: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A |) :| 000000D0: 8F 20 20 20 20 20 20 20 53 45 54 20 41 24 20 41 |. SET A$ A| 000000E0: 52 52 41 59 00 12 05 1E 00 86 42 28 32 35 29 20 |RRAY......B(25) | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.| 00000100: 20 20 20 20 20 20 20 53 45 54 20 42 20 41 52 52 | SET B ARR| 00000110: 41 59 00 57 05 46 00 43 52 24 B2 C7 28 31 33 29 |AY.W.F.CR$..(13)| 00000120: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 20 20 | :. | 00000130: 20 20 20 20 53 45 54 20 53 54 52 49 4E 47 20 43 | SET STRING C| 00000140: 52 24 20 54 4F 20 41 20 43 41 52 52 49 41 47 45 |R$ TO A CARRIAGE| 00000150: 20 52 45 54 55 52 4E 00 6F 05 5A 00 99 22 12 57 | RETURN.o.Z..".W| 00000160: 52 49 54 45 20 54 45 53 54 20 46 49 4C 45 22 00 |RITE TEST FILE".| 00000170: 8D 05 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..d.. **********| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AB 05 |*************...| 00000190: 66 00 8F 20 2A 20 20 20 57 52 49 54 45 20 54 45 |f.. * WRITE TE| 000001A0: 53 54 20 46 49 4C 45 20 20 20 2A 00 C9 05 69 00 |ST FILE *...i.| 000001B0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0D 06 6E 00 CD 23 |*********...n..#| 000001D0: 32 2C 22 54 45 53 54 20 46 49 4C 45 22 2C 57 20 |2,"TEST FILE",W | 000001E0: 3A 8F 20 20 20 20 20 20 20 4F 50 45 4E 20 44 49 |:. OPEN DI| 000001F0: 53 4B 20 46 49 4C 45 20 32 20 4F 4E 20 44 52 49 |SK FILE 2 ON DRI| 00000200: 56 45 20 30 20 54 4F 20 57 52 49 54 45 00 3C 06 |VE 0 TO WRITE.<.| 00000210: 73 00 8D 31 30 30 30 20 20 20 20 20 20 20 20 20 |s..1000 | 00000220: 20 20 20 20 3A 8F 20 20 20 20 20 20 20 43 48 45 | :. CHE| 00000230: 43 4B 20 46 4F 52 20 45 52 52 4F 52 00 7C 06 78 |CK FOR ERROR.|.x| 00000240: 00 85 22 41 24 2C 42 22 3B 41 24 2C 42 20 20 20 |.."A$,B";A$,B | 00000250: 20 20 20 3A 8F 20 20 20 20 20 20 20 49 4E 50 55 | :. INPU| 00000260: 54 20 4E 41 4D 45 2C 20 4E 55 4D 42 45 52 20 49 |T NAME, NUMBER I| 00000270: 4E 54 4F 20 41 24 20 41 4E 44 20 42 00 AF 06 82 |NTO A$ AND B....| 00000280: 00 8B 41 24 B2 22 45 4E 44 22 A7 20 31 36 30 20 |..A$."END". 160 | 00000290: 20 20 20 3A 8F 20 20 20 20 20 20 20 53 54 4F 50 | :. STOP| 000002A0: 20 54 48 45 20 44 41 54 41 20 49 4E 50 55 54 00 | THE DATA INPUT.| 000002B0: EF 06 8C 00 98 32 2C 41 24 43 52 24 42 20 20 20 |.....2,A$CR$B | 000002C0: 20 20 20 20 20 3A 8F 20 20 20 20 20 20 20 57 52 | :. WR| 000002D0: 49 54 45 20 44 41 54 41 20 54 4F 20 46 49 4C 45 |ITE DATA TO FILE| 000002E0: 20 57 49 54 48 20 44 45 4C 49 4D 49 54 45 52 00 | WITH DELIMITER.| 000002F0: 1E 07 91 00 8D 20 31 30 30 30 |..... 1000 |
....... ***********************.=.... *
EXAMPLE *.[.... * READ AND
WRITE A *.Y.... * SEQUENTIAL DATA
*...... * FILE USING DRIVE 0 *...... **
*********************......A$(25)
:. SET A$ ARRAY......B(25)
:. SET B ARRAY.W.F.C
R$.G(13) :. SET STRING C
R$ TO A CARRIAGE RETURN.O.Z..".WRITE TES
T FILE"...D.. ***********************...
F.. * WRITE TEST FILE *.I.I.. ******
*****************...N.M#2,"TEST FILE",W
:. OPEN DISK FILE 2 ON DRIVE 0 TO
WRITE.<.S..1000 :. CHE
CK FOR ERROR.|.X.."A$,B";A$,B :.
INPUT NAME, NUMBER INTO A$ AND B....
..A$."END". 160 :. STOP THE DAT
A INPUT......2,A$CR$B :. WR
ITE DATA TO FILE WITH DELIMITER...... 10
00
> CLICK IMAGE PREVIEW FOR FULL MODAL