_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

CORRIGE.LOGO

FILE INFORMATION

FILENAME(S): CORRIGE.LOGO

FILE TYPE(S): PRG

FILE SIZE: 885b

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

APPEARS ON: 1 disk(s)

FILE HASH

99a649bd4b5ca84b52a8a2bcf6b36cb157de4b02144ea7125008d0fc13a00e06

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PANS TAAL 06 CORRIGE.LOGO PRG The BAM Archive 25 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 44 45 54  52 55 49 54 0D 20 50 52  |. TO DETRUIT. PR|
00000010: 20 5B 5D 0D 20 50 52 49  4E 54 31 20 22 27 90 12  | []. PRINT1 "'..|
00000020: 20 C3 41 54 41 4C 4F 47  55 45 20 3F 20 4F 20 2F  | .ATALOGUE ? O /|
00000030: 20 4E 20 20 20 92 27 20  4D 41 4B 45 20 22 52 20  | N   .' MAKE "R |
00000040: 52 43 0D 20 49 46 20 3A  52 20 3D 20 22 4F 20 54  |RC. IF :R = "O T|
00000050: 48 45 4E 20 43 41 54 41  4C 4F 47 0D 20 50 52 20  |HEN CATALOG. PR |
00000060: 5B 5D 0D 20 50 52 49 4E  54 31 20 22 27 1F 12 20  |[]. PRINT1 "'.. |
00000070: CE 4F 4D 20 44 55 20 46  49 43 48 49 45 52 20 41  |.OM DU FICHIER A|
00000080: 20 44 45 54 52 55 49 52  45 20 3F 20 20 92 27 20  | DETRUIRE ?  .' |
00000090: 4D 41 4B 45 20 22 52 20  52 51 0D 20 50 52 20 5B  |MAKE "R RQ. PR [|
000000A0: 5D 0D 20 45 52 41 53 45  46 49 4C 45 20 46 49 52  |]. ERASEFILE FIR|
000000B0: 53 54 20 3A 52 0D 20 43  41 54 41 4C 4F 47 0D 20  |ST :R. CATALOG. |
000000C0: 50 52 20 5B 5D 0D 20 50  52 20 22 27 90 12 20 C3  |PR []. PR "'.. .|
000000D0: 3D 43 4F 4E 54 49 4E 55  45 52 20 2D 20 D1 3D 51  |=CONTINUER - .=Q|
000000E0: 55 49 54 54 45 52 20 2D  20 C4 3D 44 45 54 52 55  |UITTER - .=DETRU|
000000F0: 49 52 45 20 92 27 20 4D  41 4B 45 20 22 52 20 52  |IRE .' MAKE "R R|
00000100: 43 0D 20 49 46 20 3A 52  20 3D 20 22 43 20 54 48  |C. IF :R = "C TH|
00000110: 45 4E 20 45 52 41 53 45  20 41 4C 4C 20 2E 47 43  |EN ERASE ALL .GC|
00000120: 4F 4C 4C 20 52 45 41 44  20 22 45 44 49 54 45 58  |OLL READ "EDITEX|
00000130: 54 45 0D 20 49 46 20 3A  52 20 3D 20 22 51 20 54  |TE. IF :R = "Q T|
00000140: 48 45 4E 20 47 4F 4F 44  42 59 45 0D 20 44 45 54  |HEN GOODBYE. DET|
00000150: 52 55 49 54 0D 45 4E 44  0D 0D 54 4F 20 52 41 4D  |RUIT.END..TO RAM|
00000160: 45 4E 45 0D 20 50 52 20  5B 5D 0D 20 50 52 20 22  |ENE. PR []. PR "|
00000170: 27 1F 12 20 D2 3D 52 41  4D 45 4E 45 20 46 49 43  |'.. .=RAMENE FIC|
00000180: 48 49 45 52 20 2A 20 2A  20 C4 3D 44 45 54 52 55  |HIER * * .=DETRU|
00000190: 49 54 20 46 49 43 48 49  45 52 20 92 27 20 50 52  |IT FICHIER .' PR|
000001A0: 20 5B 5D 20 4D 41 4B 45  20 22 52 20 52 43 0D 20  | [] MAKE "R RC. |
000001B0: 49 46 20 3A 52 20 3D 20  22 44 20 54 48 45 4E 20  |IF :R = "D THEN |
000001C0: 44 45 54 52 55 49 54 0D  20 50 52 20 22 27 97 12  |DETRUIT. PR "'..|
000001D0: 20 CE 4F 4D 20 44 55 20  46 49 43 48 49 45 52 20  | .OM DU FICHIER |
000001E0: 41 20 52 41 4D 45 4E 45  52 20 3F 20 20 92 27 20  |A RAMENER ?  .' |
000001F0: 50 52 20 5B 5D 20 4D 41  4B 45 20 22 52 20 52 51  |PR [] MAKE "R RQ|
00000200: 0D 20 52 45 41 44 20 46  49 52 53 54 20 3A 52 0D  |. READ FIRST :R.|
00000210: 20 45 44 20 3A 52 0D 20  45 52 41 53 45 20 5B 52  | ED :R. ERASE [R|
00000220: 41 4D 45 4E 45 20 44 45  54 52 55 49 54 20 43 4F  |AMENE DETRUIT CO|
00000230: 52 52 49 47 45 5D 20 2E  47 43 4F 4C 4C 0D 20 52  |RRIGE] .GCOLL. R|
00000240: 45 41 44 20 22 53 41 55  56 45 0D 45 4E 44 0D 0D  |EAD "SAUVE.END..|
00000250: 54 4F 20 43 4F 52 52 49  47 45 0D 20 50 52 20 5B  |TO CORRIGE. PR [|
00000260: 5D 20 50 52 20 5B 5D 0D  20 50 52 20 22 27 95 12  |] PR []. PR "'..|
00000270: 20 CC 41 20 43 4F 52 52  45 43 54 49 4F 4E 20 50  | .A CORRECTION P|
00000280: 4F 52 54 45 20 53 55 52  20 55 4E 20 54 45 58 54  |ORTE SUR UN TEXT|
00000290: 45 20 51 55 45 20 20 20  20 56 4F 55 53 20 56 45  |E QUE    VOUS VE|
000002A0: 4E 45 5A 20 44 45 20 54  41 50 45 52 20 3F 20 4F  |NEZ DE TAPER ? O|
000002B0: 20 2F 20 4E 20 20 20 20  20 20 20 20 20 20 20 27  | / N           '|
000002C0: 20 4D 41 4B 45 20 22 52  20 52 43 0D 20 54 45 58  | MAKE "R RC. TEX|
000002D0: 54 43 4F 4C 4F 52 20 36  0D 20 49 46 20 3A 52 20  |TCOLOR 6. IF :R |
000002E0: 3D 20 22 4E 20 54 48 45  4E 20 52 41 4D 45 4E 45  |= "N THEN RAMENE|
000002F0: 0D 20 45 52 4E 41 4D 45  20 22 41 0D 20 45 52 4E  |. ERNAME "A. ERN|
00000300: 41 4D 45 20 22 45 0D 20  45 52 4E 41 4D 45 20 22  |AME "E. ERNAME "|
00000310: 52 0D 20 45 52 4E 41 4D  45 20 22 46 0D 20 45 52  |R. ERNAME "F. ER|
00000320: 4E 41 4D 45 20 22 44 0D  20 45 44 20 4E 41 4D 45  |NAME "D. ED NAME|
00000330: 53 0D 20 45 52 41 53 45  20 50 52 4F 43 45 44 55  |S. ERASE PROCEDU|
00000340: 52 45 53 20 2E 47 43 4F  4C 4C 0D 20 52 45 41 44  |RES .GCOLL. READ|
00000350: 20 22 53 41 55 56 45 0D  45 4E 44 0D 0D 4D 41 4B  | "SAUVE.END..MAK|
00000360: 45 20 22 53 54 41 52 54  55 50 20 5B 43 4F 52 52  |E "STARTUP [CORR|
00000370: 49 47 45 5D 0D                                    |IGE].           |

. TO DETRUIT. PR []. PRINT1 "'.. CATALOG
UE ? O / N   .' MAKE "R RC. IF :R = "O T
HEN CATALOG. PR []. PRINT1 "'.. NOM DU F
ICHIER A DETRUIRE ?  .' MAKE "R RQ. PR [
]. ERASEFILE FIRST :R. CATALOG. PR []. P
R "'.. C=CONTINUER - Q=QUITTER - D=DETRU
IRE .' MAKE "R RC. IF :R = "C THEN ERASE
 ALL .GCOLL READ "EDITEXTE. IF :R = "Q T
HEN GOODBYE. DETRUIT.END..TO RAMENE. PR 
[]. PR "'.. R=RAMENE FICHIER * * D=DETRU
IT FICHIER .' PR [] MAKE "R RC. IF :R = 
"D THEN DETRUIT. PR "'.. NOM DU FICHIER 
A RAMENER ?  .' PR [] MAKE "R RQ. READ F
IRST :R. ED :R. ERASE [RAMENE DETRUIT CO
RRIGE] .GCOLL. READ "SAUVE.END..TO CORRI
GE. PR [] PR []. PR "'.. LA CORRECTION P
ORTE SUR UN TEXTE QUE    VOUS VENEZ DE T
APER ? O / N           ' MAKE "R RC. TEX
TCOLOR 6. IF :R = "N THEN RAMENE. ERNAME
 "A. ERNAME "E. ERNAME "R. ERNAME "F. ER
NAME "D. ED NAMES. ERASE PROCEDURES .GCO
LL. READ "SAUVE.END..MAKE "STARTUP [CORR
IGE].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL