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

SAUVE.LOGO

FILE INFORMATION

FILENAME(S): SAUVE.LOGO

FILE TYPE(S): PRG

FILE SIZE: 555b

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

APPEARS ON: 1 disk(s)

FILE HASH

6cd793f2332f7926dddddfb96776e2c32c887c4118981db458a5a58b6a6f554e

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 53 41 55  56 45 31 0D 20 45 52 41  |. TO SAUVE1. ERA|
00000010: 53 45 20 50 52 4F 43 45  44 55 52 45 53 0D 20 50  |SE PROCEDURES. P|
00000020: 52 49 4E 54 31 20 22 27  1C 12 20 CE 4F 4D 20 41  |RINT1 "'.. .OM A|
00000030: 20 50 52 4F 43 45 44 55  52 45 20 41 20 53 41 55  | PROCEDURE A SAU|
00000040: 56 45 52 20 3F 20 20 92  27 20 4D 41 4B 45 20 22  |VER ?  .' MAKE "|
00000050: 52 20 52 51 0D 20 53 41  56 45 20 46 49 52 53 54  |R RQ. SAVE FIRST|
00000060: 20 3A 52 0D 20 45 52 41  53 45 20 41 4C 4C 0D 20  | :R. ERASE ALL. |
00000070: 2E 47 43 4F 4C 4C 0D 20  52 45 41 44 20 22 45 44  |.GCOLL. READ "ED|
00000080: 49 54 45 58 54 45 0D 45  4E 44 0D 0D 54 4F 20 53  |ITEXTE.END..TO S|
00000090: 41 55 56 45 0D 20 50 52  20 5B 5D 20 50 52 20 5B  |AUVE. PR [] PR [|
000000A0: 5D 0D 20 50 52 20 22 27  1F 12 20 2A 2A 2A 20 D3  |]. PR "'.. *** .|
000000B0: 3D 53 41 55 56 45 20 2D  20 C5 3D 45 46 46 41 43  |=SAUVE - .=EFFAC|
000000C0: 45 20 2D 20 C4 3D 44 45  54 52 55 49 54 20 2A 2A  |E - .=DETRUIT **|
000000D0: 2A 20 20 2A 2A 20 C3 3D  43 4F 52 52 49 47 45 20  |*  ** .=CORRIGE |
000000E0: 2D 20 C9 3D 49 4D 50 52  49 4D 45 20 2D 20 D1 3D  |- .=IMPRIME - .=|
000000F0: 51 55 49 54 54 45 20 2A  2A 20 92 27 20 4D 41 4B  |QUITTE ** .' MAK|
00000100: 45 20 22 52 20 52 43 0D  20 49 46 20 3A 52 20 3D  |E "R RC. IF :R =|
00000110: 20 22 53 20 54 48 45 4E  20 53 41 55 56 45 31 0D  | "S THEN SAUVE1.|
00000120: 20 49 46 20 3A 52 20 3D  20 22 45 20 54 48 45 4E  | IF :R = "E THEN|
00000130: 20 45 52 41 53 45 20 41  4C 4C 20 2E 47 43 4F 4C  | ERASE ALL .GCOL|
00000140: 4C 20 52 45 41 44 20 22  45 44 49 54 45 58 54 45  |L READ "EDITEXTE|
00000150: 0D 20 49 46 20 3A 52 20  3D 20 22 44 20 54 48 45  |. IF :R = "D THE|
00000160: 4E 20 45 52 41 53 45 20  41 4C 4C 20 2E 47 43 4F  |N ERASE ALL .GCO|
00000170: 4C 4C 20 52 45 41 44 20  22 45 44 49 54 45 58 54  |LL READ "EDITEXT|
00000180: 45 0D 20 49 46 20 3A 52  20 3D 20 22 43 20 54 48  |E. IF :R = "C TH|
00000190: 45 4E 20 45 52 41 53 45  20 50 52 4F 43 45 44 55  |EN ERASE PROCEDU|
000001A0: 52 45 53 20 2E 47 43 4F  4C 4C 20 52 45 41 44 20  |RES .GCOLL READ |
000001B0: 22 43 4F 52 52 49 47 45  0D 20 49 46 20 3A 52 20  |"CORRIGE. IF :R |
000001C0: 3D 20 22 49 20 54 48 45  4E 20 45 52 41 53 45 20  |= "I THEN ERASE |
000001D0: 50 52 4F 43 45 44 55 52  45 53 20 2E 47 43 4F 4C  |PROCEDURES .GCOL|
000001E0: 4C 20 52 45 41 44 20 22  49 4D 50 52 49 4D 45 0D  |L READ "IMPRIME.|
000001F0: 20 49 46 20 3A 52 20 3D  20 22 51 20 54 48 45 4E  | IF :R = "Q THEN|
00000200: 20 47 4F 4F 44 42 59 45  0D 20 53 41 55 56 45 0D  | GOODBYE. SAUVE.|
00000210: 45 4E 44 0D 0D 4D 41 4B  45 20 22 53 54 41 52 54  |END..MAKE "START|
00000220: 55 50 20 5B 53 41 55 56  45 5D 0D                 |UP [SAUVE].     |

. TO SAUVE1. ERASE PROCEDURES. PRINT1 "'
.. NOM A PROCEDURE A SAUVER ?  .' MAKE "
R RQ. SAVE FIRST :R. ERASE ALL. .GCOLL. 
READ "EDITEXTE.END..TO SAUVE. PR [] PR [
]. PR "'.. *** S=SAUVE - E=EFFACE - D=DE
TRUIT ***  ** C=CORRIGE - I=IMPRIME - Q=
QUITTE ** .' MAKE "R RC. IF :R = "S THEN
 SAUVE1. IF :R = "E THEN ERASE ALL .GCOL
L READ "EDITEXTE. IF :R = "D THEN ERASE 
ALL .GCOLL READ "EDITEXTE. IF :R = "C TH
EN ERASE PROCEDURES .GCOLL READ "CORRIGE
. IF :R = "I THEN ERASE PROCEDURES .GCOL
L READ "IMPRIME. IF :R = "Q THEN GOODBYE
. SAUVE.END..MAKE "STARTUP [SAUVE].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL