EDITEXTE.LOGO

FILE INFORMATION

FILENAME(S): EDITEXTE.LOGO

FILE TYPE(S): PRG

FILE SIZE: 975b

FIRST SEEN: 2025-12-02 02:15:02

APPEARS ON: 1 disk(s)

FILE HASH

a64d76bd781bc76e88d1e021146833e7b234faa365f3d0396c7fb4343b938bf5

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PANS TAAL 06	EDITEXTE.LOGO	PRG	The BAM Archive	24	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 45 43 52  0D 20 4D 41 4B 45 20 22  |. TO ECR. MAKE "|
00000010: 42 20 4C 50 55 54 20 3A  44 20 3A 42 0D 20 49 46  |B LPUT :D :B. IF|
00000020: 20 3A 46 20 3D 20 5B 5D  20 54 48 45 4E 20 4D 41  | :F = [] THEN MA|
00000030: 4B 45 20 22 46 20 5B 40  5D 20 45 43 52 49 54 31  |KE "F [@] ECRIT1|
00000040: 0D 20 4D 41 4B 45 20 22  42 20 4C 50 55 54 20 5B  |. MAKE "B LPUT [|
00000050: 2E 5D 20 3A 42 0D 20 45  43 52 49 54 31 0D 45 4E  |.] :B. ECRIT1.EN|
00000060: 44 0D 0D 54 4F 20 45 43  52 49 54 31 0D 20 49 46  |D..TO ECRIT1. IF|
00000070: 20 2E 4E 4F 44 45 53 20  3E 20 33 30 30 20 54 48  | .NODES > 300 TH|
00000080: 45 4E 20 2E 47 43 4F 4C  4C 0D 20 4D 41 4B 45 20  |EN .GCOLL. MAKE |
00000090: 22 41 20 46 49 52 53 54  20 43 55 52 53 4F 52 50  |"A FIRST CURSORP|
000000A0: 4F 53 0D 20 4D 41 4B 45  20 22 45 20 4C 41 53 54  |OS. MAKE "E LAST|
000000B0: 20 43 55 52 53 4F 52 50  4F 53 0D 20 4D 41 4B 45  | CURSORPOS. MAKE|
000000C0: 20 22 44 20 52 51 0D 20  43 55 52 53 4F 52 20 3A  | "D RQ. CURSOR :|
000000D0: 41 20 3A 45 20 50 52 49  4E 54 31 20 3A 44 20 50  |A :E PRINT1 :D P|
000000E0: 52 49 4E 54 31 20 43 48  41 52 20 33 32 0D 20 49  |RINT1 CHAR 32. I|
000000F0: 46 20 45 4D 50 54 59 3F  20 3A 44 20 54 48 45 4E  |F EMPTY? :D THEN|
00000100: 20 50 52 20 5B 5D 20 4D  41 4B 45 20 22 44 20 5B  | PR [] MAKE "D [|
00000110: 3F 5D 20 4D 41 4B 45 20  22 46 20 5B 5D 20 45 43  |?] MAKE "F [] EC|
00000120: 52 0D 20 49 46 20 46 49  52 53 54 20 3A 44 20 3D  |R. IF FIRST :D =|
00000130: 20 22 54 20 54 48 45 4E  20 4D 41 4B 45 20 22 44  | "T THEN MAKE "D|
00000140: 20 4C 41 53 54 20 3A 44  20 43 55 52 53 4F 52 20  | LAST :D CURSOR |
00000150: 3A 41 20 3A 45 20 52 45  50 45 41 54 20 3A 44 20  |:A :E REPEAT :D |
00000160: 5B 50 52 49 4E 54 31 20  43 48 41 52 20 33 32 5D  |[PRINT1 CHAR 32]|
00000170: 20 4D 41 4B 45 20 22 46  20 5B 5D 20 45 43 52 0D  | MAKE "F [] ECR.|
00000180: 20 49 46 20 3A 44 20 3D  20 5B 46 49 4E 5D 20 54  | IF :D = [FIN] T|
00000190: 48 45 4E 20 45 52 41 53  45 20 50 52 4F 43 45 44  |HEN ERASE PROCED|
000001A0: 55 52 45 53 20 2E 47 43  4F 4C 4C 20 52 45 41 44  |URES .GCOLL READ|
000001B0: 20 22 53 41 55 56 45 0D  20 45 43 52 0D 45 4E 44  | "SAUVE. ECR.END|
000001C0: 0D 0D 54 4F 20 45 43 52  49 54 0D 20 43 4C 45 41  |..TO ECRIT. CLEA|
000001D0: 52 54 45 58 54 0D 20 2E  47 43 4F 4C 4C 0D 20 50  |RTEXT. .GCOLL. P|
000001E0: 52 49 4E 54 31 20 22 27  1C 12 D4 41 42 3D 54 20  |RINT1 "'...AB=T |
000001F0: 2B 20 4E 53 20 2A 20 D2  45 54 55 52 4E 20 2A 20  |+ NS * .ETURN * |
00000200: C6 49 4E 20 2A 20 CE 4F  44 45 53 20 27 20 50 52  |.IN * .ODES ' PR|
00000210: 20 2E 4E 4F 44 45 53 0D  20 54 45 58 54 43 4F 4C  | .NODES. TEXTCOL|
00000220: 4F 52 20 39 0D 20 50 52  20 5B 5D 20 50 52 20 5B  |OR 9. PR [] PR [|
00000230: 5D 0D 20 4D 41 4B 45 20  22 44 20 5B 5D 0D 20 45  |]. MAKE "D []. E|
00000240: 43 52 49 54 31 0D 45 4E  44 0D 0D 54 4F 20 45 44  |CRIT1.END..TO ED|
00000250: 49 54 45 58 54 45 0D 20  50 52 20 43 48 41 52 20  |ITEXTE. PR CHAR |
00000260: 31 34 0D 20 4D 41 4B 45  20 22 46 20 5B 40 5D 0D  |14. MAKE "F [@].|
00000270: 20 43 4C 45 41 52 54 45  58 54 20 54 45 58 54 42  | CLEARTEXT TEXTB|
00000280: 47 20 38 0D 20 50 52 20  22 27 1F 12 20 2A 20 C5  |G 8. PR "'.. * .|
00000290: 3D C5 C3 D2 C9 D2 C5 20  2D 20 C9 3D C9 CD D0 D2  |=...... - .=....|
000002A0: C9 CD C5 D2 20 2D 20 C3  3D C3 CF D2 D2 C9 C7 C5  |.... - .=.......|
000002B0: D2 20 2A 20 92 27 0D 20  54 45 58 54 43 4F 4C 4F  |. * .'. TEXTCOLO|
000002C0: 52 20 38 0D 20 4D 41 4B  45 20 22 52 20 52 43 0D  |R 8. MAKE "R RC.|
000002D0: 20 49 46 20 3A 52 20 3D  20 22 45 20 54 48 45 4E  | IF :R = "E THEN|
000002E0: 20 4D 41 4B 45 20 22 42  20 5B 5D 20 45 43 52 49  | MAKE "B [] ECRI|
000002F0: 54 0D 20 49 46 20 3A 52  20 3D 20 22 49 20 54 48  |T. IF :R = "I TH|
00000300: 45 4E 20 45 52 41 53 45  20 50 52 4F 43 45 44 55  |EN ERASE PROCEDU|
00000310: 52 45 53 20 2E 47 43 4F  4C 4C 20 52 45 41 44 20  |RES .GCOLL READ |
00000320: 22 49 4D 50 52 49 4D 45  0D 20 49 46 20 3A 52 20  |"IMPRIME. IF :R |
00000330: 3D 20 22 43 20 54 48 45  4E 20 45 52 41 53 45 20  |= "C THEN ERASE |
00000340: 50 52 4F 43 45 44 55 52  45 53 20 2E 47 43 4F 4C  |PROCEDURES .GCOL|
00000350: 4C 20 52 45 41 44 20 22  43 4F 52 52 49 47 45 0D  |L READ "CORRIGE.|
00000360: 20 45 44 49 54 45 58 54  45 0D 45 4E 44 0D 0D 4D  | EDITEXTE.END..M|
00000370: 41 4B 45 20 22 52 20 22  45 0D 4D 41 4B 45 20 22  |AKE "R "E.MAKE "|
00000380: 42 20 5B 5D 0D 4D 41 4B  45 20 22 46 20 5B 40 5D  |B [].MAKE "F [@]|
00000390: 0D 4D 41 4B 45 20 22 45  20 28 33 29 0D 4D 41 4B  |.MAKE "E (3).MAK|
000003A0: 45 20 22 41 20 28 33 30  29 0D 4D 41 4B 45 20 22  |E "A (30).MAKE "|
000003B0: 44 20 5B 3F 5D 0D 4D 41  4B 45 20 22 53 54 41 52  |D [?].MAKE "STAR|
000003C0: 54 55 50 20 5B 45 44 49  54 45 58 54 45 5D 0D     |TUP [EDITEXTE]. |

. TO ECR. MAKE "B LPUT :D :B. IF :F = []
 THEN MAKE "F [@] ECRIT1. MAKE "B LPUT [
.] :B. ECRIT1.END..TO ECRIT1. IF .NODES 
> 300 THEN .GCOLL. MAKE "A FIRST CURSORP
OS. MAKE "E LAST CURSORPOS. MAKE "D RQ. 
CURSOR :A :E PRINT1 :D PRINT1 CHAR 32. I
F EMPTY? :D THEN PR [] MAKE "D [?] MAKE 
"F [] ECR. IF FIRST :D = "T THEN MAKE "D
 LAST :D CURSOR :A :E REPEAT :D [PRINT1 
CHAR 32] MAKE "F [] ECR. IF :D = [FIN] T
HEN ERASE PROCEDURES .GCOLL READ "SAUVE.
 ECR.END..TO ECRIT. CLEARTEXT. .GCOLL. P
RINT1 "'..TAB=T + NS * RETURN * FIN * NO
DES ' PR .NODES. TEXTCOLOR 9. PR [] PR [
]. MAKE "D []. ECRIT1.END..TO EDITEXTE. 
PR CHAR 14. MAKE "F [@]. CLEARTEXT TEXTB
G 8. PR "'.. * E=ECRIRE - I=IMPRIMER - C
=CORRIGER * .'. TEXTCOLOR 8. MAKE "R RC.
 IF :R = "E THEN MAKE "B [] ECRIT. IF :R
 = "I THEN ERASE PROCEDURES .GCOLL READ 
"IMPRIME. IF :R = "C THEN ERASE PROCEDUR
ES .GCOLL READ "CORRIGE. EDITEXTE.END..M
AKE "R "E.MAKE "B [].MAKE "F [@].MAKE "E
 (3).MAKE "A (30).MAKE "D [?].MAKE "STAR
TUP [EDITEXTE].

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL