LOGOFRANC.LOGO

FILE INFORMATION

FILENAME(S): LOGOFRANC.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.9K

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

APPEARS ON: 1 disk(s)

FILE HASH

0f12089ef9efb0e58566a0874b15ae53d4817f9171a74478ca9d06f7e7c31261

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 45 43 48  45 4C 4C 45 20 3A 57 0D  |. TO ECHELLE :W.|
00000010: 20 2E 41 53 50 45 43 54  20 3A 57 0D 20 56 45 0D  | .ASPECT :W. VE.|
00000020: 20 52 45 50 45 54 45 20  34 20 5B 41 56 20 31 30  | REPETE 4 [AV 10|
00000030: 30 20 44 52 20 39 30 5D  0D 45 4E 44 0D 0D 54 4F  |0 DR 90].END..TO|
00000040: 20 44 2E 49 4D 50 52 49  4D 41 4E 54 45 0D 20 4E  | D.IMPRIMANTE. N|
00000050: 4F 50 52 49 4E 54 45 52  0D 45 4E 44 0D 0D 54 4F  |OPRINTER.END..TO|
00000060: 20 42 2E 49 4D 50 52 49  4D 41 4E 54 45 0D 20 50  | B.IMPRIMANTE. P|
00000070: 52 49 4E 54 45 52 0D 45  4E 44 0D 0D 54 4F 20 45  |RINTER.END..TO E|
00000080: 43 52 49 53 43 41 52 20  3A 57 0D 20 53 54 41 4D  |CRISCAR :W. STAM|
00000090: 50 43 48 41 52 20 3A 57  0D 45 4E 44 0D 0D 54 4F  |PCHAR :W.END..TO|
000000A0: 20 44 45 54 52 55 49 53  0D 20 51 55 45 53 54 49  | DETRUIS. QUESTI|
000000B0: 4F 4E 0D 20 45 52 41 53  45 46 49 4C 45 20 3A 50  |ON. ERASEFILE :P|
000000C0: 51 0D 45 4E 44 0D 0D 54  4F 20 51 55 45 53 54 49  |Q.END..TO QUESTI|
000000D0: 4F 4E 0D 20 50 52 49 4E  54 31 20 22 27 12 51 55  |ON. PRINT1 "'.QU|
000000E0: 45 4C 20 4E 4F 4D 3F 20  27 20 4D 41 4B 45 20 22  |EL NOM? ' MAKE "|
000000F0: 50 51 20 52 51 0D 20 4D  41 4B 45 20 22 50 51 20  |PQ RQ. MAKE "PQ |
00000100: 46 49 52 53 54 20 3A 50  51 0D 45 4E 44 0D 0D 54  |FIRST :PQ.END..T|
00000110: 4F 20 45 46 46 41 43 45  54 4F 55 54 0D 20 45 52  |O EFFACETOUT. ER|
00000120: 41 53 45 20 41 4C 4C 0D  45 4E 44 0D 0D 54 4F 20  |ASE ALL.END..TO |
00000130: 43 54 0D 20 48 54 0D 45  4E 44 0D 0D 54 4F 20 4D  |CT. HT.END..TO M|
00000140: 54 0D 20 53 54 0D 45 4E  44 0D 0D 54 4F 20 43 45  |T. ST.END..TO CE|
00000150: 4E 54 52 45 0D 20 48 4F  4D 45 0D 45 4E 44 0D 0D  |NTRE. HOME.END..|
00000160: 54 4F 20 56 45 0D 20 48  4F 4D 45 20 43 53 0D 45  |TO VE. HOME CS.E|
00000170: 4E 44 0D 0D 54 4F 20 49  4D 54 53 0D 20 50 4F 54  |ND..TO IMTS. POT|
00000180: 53 0D 45 4E 44 0D 0D 54  4F 20 45 43 52 41 4E 50  |S.END..TO ECRANP|
00000190: 41 52 54 41 47 45 0D 20  53 50 4C 49 54 53 43 52  |ARTAGE. SPLITSCR|
000001A0: 45 45 4E 0D 45 4E 44 0D  0D 54 4F 20 45 43 52 41  |EEN.END..TO ECRA|
000001B0: 4E 44 45 53 53 45 49 4E  0D 20 46 55 4C 4C 53 43  |NDESSEIN. FULLSC|
000001C0: 52 45 45 4E 0D 45 4E 44  0D 0D 54 4F 20 45 43 52  |REEN.END..TO ECR|
000001D0: 41 4E 54 45 58 54 45 0D  20 54 45 58 54 53 43 52  |ANTEXTE. TEXTSCR|
000001E0: 45 45 4E 0D 45 4E 44 0D  0D 54 4F 20 52 45 50 45  |EEN.END..TO REPE|
000001F0: 54 45 20 3A 57 20 3A 57  31 0D 20 52 45 50 45 41  |TE :W :W1. REPEA|
00000200: 54 20 3A 57 20 3A 57 31  0D 45 4E 44 0D 0D 54 4F  |T :W :W1.END..TO|
00000210: 20 46 49 4E 20 0D 45 4E  44 0D 0D 54 4F 20 41 56  | FIN .END..TO AV|
00000220: 20 3A 57 0D 20 46 44 20  3A 57 0D 45 4E 44 0D 0D  | :W. FD :W.END..|
00000230: 54 4F 20 44 52 20 3A 57  0D 20 52 54 20 3A 57 0D  |TO DR :W. RT :W.|
00000240: 45 4E 44 0D 0D 54 4F 20  54 2E 42 0D 20 4C 4F 43  |END..TO T.B. LOC|
00000250: 41 4C 20 22 4C 49 4E 45  0D 20 4D 41 4B 45 20 22  |AL "LINE. MAKE "|
00000260: 4C 49 4E 45 20 41 53 4B  20 22 3E 0D 20 49 46 20  |LINE ASK ">. IF |
00000270: 3A 4C 49 4E 45 20 3D 20  5B 46 49 4E 5D 20 4F 50  |:LINE = [FIN] OP|
00000280: 20 5B 5D 0D 20 4F 50 20  46 50 55 54 20 3A 4C 49  | []. OP FPUT :LI|
00000290: 4E 45 20 54 2E 42 0D 45  4E 44 0D 0D 54 4F 20 41  |NE T.B.END..TO A|
000002A0: 53 4B 20 3A 51 53 54 0D  20 4C 4F 43 41 4C 20 22  |SK :QST. LOCAL "|
000002B0: 41 4E 53 0D 20 50 52 49  4E 54 31 20 3A 51 53 54  |ANS. PRINT1 :QST|
000002C0: 0D 20 4D 41 4B 45 20 22  41 4E 53 20 52 45 51 55  |. MAKE "ANS REQU|
000002D0: 45 53 54 0D 20 49 46 20  45 4D 50 54 59 3F 20 3A  |EST. IF EMPTY? :|
000002E0: 41 4E 53 20 4F 50 20 41  53 4B 20 3A 51 53 54 0D  |ANS OP ASK :QST.|
000002F0: 20 4F 50 20 3A 41 4E 53  0D 45 4E 44 0D 0D 54 4F  | OP :ANS.END..TO|
00000300: 20 41 50 50 52 45 4E 44  53 0D 20 4C 4F 43 41 4C  | APPRENDS. LOCAL|
00000310: 20 22 4E 2E 41 0D 20 4D  41 4B 45 20 22 4E 2E 41  | "N.A. MAKE "N.A|
00000320: 20 41 53 4B 20 5B 4E 4F  4D 3A 5D 0D 20 28 20 50  | ASK [NOM:]. ( P|
00000330: 52 20 22 50 4F 55 52 20  3A 4E 2E 41 20 29 0D 20  |R "POUR :N.A ). |
00000340: 44 45 46 49 4E 45 20 46  49 52 53 54 20 3A 4E 2E  |DEFINE FIRST :N.|
00000350: 41 20 46 50 55 54 20 42  46 20 3A 4E 2E 41 20 54  |A FPUT BF :N.A T|
00000360: 2E 42 0D 20 28 20 50 52  49 4E 54 20 28 20 46 49  |.B. ( PRINT ( FI|
00000370: 52 53 54 20 3A 4E 2E 41  20 29 20 5B 45 53 54 20  |RST :N.A ) [EST |
00000380: 44 45 46 49 4E 49 5D 20  29 0D 45 4E 44 0D 0D 54  |DEFINI] ).END..T|
00000390: 4F 20 42 43 0D 20 50 44  0D 45 4E 44 0D 0D 54 4F  |O BC. PD.END..TO|
000003A0: 20 4C 43 0D 20 50 55 0D  45 4E 44 0D 0D 54 4F 20  | LC. PU.END..TO |
000003B0: 52 45 20 3A 57 0D 20 42  4B 20 3A 57 0D 45 4E 44  |RE :W. BK :W.END|
000003C0: 0D 0D 54 4F 20 53 41 55  56 45 20 3A 57 0D 20 53  |..TO SAUVE :W. S|
000003D0: 41 56 45 20 3A 57 0D 45  4E 44 0D 0D 54 4F 20 43  |AVE :W.END..TO C|
000003E0: 41 54 41 4C 4F 47 55 45  0D 20 43 41 54 41 4C 4F  |ATALOGUE. CATALO|
000003F0: 47 0D 45 4E 44 0D 0D 54  4F 20 52 41 4D 45 4E 45  |G.END..TO RAMENE|
00000400: 20 3A 57 0D 20 52 45 41  44 20 3A 57 0D 45 4E 44  | :W. READ :W.END|
00000410: 0D 0D 54 4F 20 43 46 4F  4E 44 54 45 58 54 45 20  |..TO CFONDTEXTE |
00000420: 3A 57 0D 20 54 45 58 54  42 47 20 3A 57 0D 45 4E  |:W. TEXTBG :W.EN|
00000430: 44 0D 0D 54 4F 20 43 54  45 58 54 45 20 3A 57 0D  |D..TO CTEXTE :W.|
00000440: 20 54 45 58 54 43 4F 4C  4F 52 20 3A 57 0D 45 4E  | TEXTCOLOR :W.EN|
00000450: 44 0D 0D 54 4F 20 43 43  52 41 59 4F 4E 20 3A 57  |D..TO CCRAYON :W|
00000460: 0D 20 50 43 20 3A 57 0D  45 4E 44 0D 0D 54 4F 20  |. PC :W.END..TO |
00000470: 43 46 4F 4E 44 44 45 53  53 45 49 4E 20 3A 57 0D  |CFONDDESSEIN :W.|
00000480: 20 42 47 20 3A 57 0D 45  4E 44 0D 0D 54 4F 20 43  | BG :W.END..TO C|
00000490: 41 50 0D 20 50 52 20 48  45 41 44 49 4E 47 0D 45  |AP. PR HEADING.E|
000004A0: 4E 44 0D 0D 54 4F 20 46  43 41 50 20 3A 57 0D 20  |ND..TO FCAP :W. |
000004B0: 53 45 54 48 45 41 44 49  4E 47 20 3A 57 0D 45 4E  |SETHEADING :W.EN|
000004C0: 44 0D 0D 54 4F 20 45 43  52 49 53 20 3A 57 0D 20  |D..TO ECRIS :W. |
000004D0: 50 52 49 4E 54 20 3A 57  0D 45 4E 44 0D 0D 54 4F  |PRINT :W.END..TO|
000004E0: 20 54 41 50 45 20 3A 57  0D 20 50 52 49 4E 54 31  | TAPE :W. PRINT1|
000004F0: 20 3A 57 0D 45 4E 44 0D  0D 54 4F 20 4E 45 54 54  | :W.END..TO NETT|
00000500: 4F 49 45 0D 20 43 53 0D  45 4E 44 0D 0D 54 4F 20  |OIE. CS.END..TO |
00000510: 42 41 52 52 49 45 52 45  0D 20 4E 4F 57 52 41 50  |BARRIERE. NOWRAP|
00000520: 0D 45 4E 44 0D 0D 54 4F  20 45 4E 52 4F 55 4C 45  |.END..TO ENROULE|
00000530: 0D 20 57 52 41 50 0D 45  4E 44 0D 0D 54 4F 20 53  |. WRAP.END..TO S|
00000540: 49 0D 20 49 46 0D 45 4E  44 0D 0D 54 4F 20 41 4C  |I. IF.END..TO AL|
00000550: 4F 52 53 0D 20 54 48 45  4E 0D 45 4E 44 0D 0D 54  |ORS. THEN.END..T|
00000560: 4F 20 45 43 20 3A 57 0D  20 50 52 20 3A 57 0D 45  |O EC :W. PR :W.E|
00000570: 4E 44 0D 0D 54 4F 20 56  49 44 45 45 43 52 41 4E  |ND..TO VIDEECRAN|
00000580: 0D 20 48 4F 4D 45 20 43  53 0D 45 4E 44 0D 0D 54  |. HOME CS.END..T|
00000590: 4F 20 41 56 41 4E 43 45  20 3A 57 0D 20 46 44 20  |O AVANCE :W. FD |
000005A0: 3A 57 0D 45 4E 44 0D 0D  54 4F 20 52 45 43 55 4C  |:W.END..TO RECUL|
000005B0: 45 20 3A 57 0D 20 42 4B  20 3A 57 0D 45 4E 44 0D  |E :W. BK :W.END.|
000005C0: 0D 54 4F 20 44 52 4F 49  54 45 20 3A 57 0D 20 52  |.TO DROITE :W. R|
000005D0: 54 20 3A 57 0D 45 4E 44  0D 0D 54 4F 20 47 41 20  |T :W.END..TO GA |
000005E0: 3A 57 0D 20 4C 54 20 3A  57 0D 45 4E 44 0D 0D 54  |:W. LT :W.END..T|
000005F0: 4F 20 47 41 55 43 48 45  20 3A 57 0D 20 47 41 20  |O GAUCHE :W. GA |
00000600: 3A 57 0D 45 4E 44 0D 0D  54 4F 20 46 49 58 45 58  |:W.END..TO FIXEX|
00000610: 20 3A 57 0D 20 53 45 54  58 20 3A 57 0D 45 4E 44  | :W. SETX :W.END|
00000620: 0D 0D 54 4F 20 46 49 58  45 59 20 3A 57 0D 20 53  |..TO FIXEY :W. S|
00000630: 45 54 59 20 3A 57 0D 45  4E 44 0D 0D 54 4F 20 46  |ETY :W.END..TO F|
00000640: 49 58 45 58 59 20 3A 57  0D 20 53 45 54 58 20 46  |IXEXY :W. SETX F|
00000650: 49 52 53 54 20 3A 57 0D  20 53 45 54 59 20 4C 41  |IRST :W. SETY LA|
00000660: 53 54 20 3A 57 0D 45 4E  44 0D 0D 54 4F 20 44 4F  |ST :W.END..TO DO|
00000670: 4E 4E 45 20 3A 57 20 3A  57 31 0D 20 4D 41 4B 45  |NNE :W :W1. MAKE|
00000680: 20 3A 57 20 3A 57 31 0D  45 4E 44 0D 0D 54 4F 20  | :W :W1.END..TO |
00000690: 4C 45 56 45 43 52 41 59  4F 4E 0D 20 50 55 0D 45  |LEVECRAYON. PU.E|
000006A0: 4E 44 0D 0D 54 4F 20 42  41 49 53 53 45 43 52 41  |ND..TO BAISSECRA|
000006B0: 59 4F 4E 0D 20 50 44 0D  45 4E 44 0D 0D 54 4F 20  |YON. PD.END..TO |
000006C0: 4D 4F 4E 54 52 45 54 4F  52 54 55 45 0D 20 53 54  |MONTRETORTUE. ST|
000006D0: 0D 45 4E 44 0D 0D 54 4F  20 43 41 43 48 45 54 4F  |.END..TO CACHETO|
000006E0: 52 54 55 45 0D 20 48 54  0D 45 4E 44 0D 0D 54 4F  |RTUE. HT.END..TO|
000006F0: 20 47 43 0D 20 50 45 4E  45 52 41 53 45 0D 45 4E  | GC. PENERASE.EN|
00000700: 44 0D 0D 54 4F 20 47 4F  4D 4D 45 43 52 41 59 4F  |D..TO GOMMECRAYO|
00000710: 4E 0D 20 47 43 0D 45 4E  44 0D 0D 4D 41 4B 45 20  |N. GC.END..MAKE |
00000720: 22 58 20 5B 55 4E 20 44  45 55 58 20 54 52 4F 49  |"X [UN DEUX TROI|
00000730: 53 20 51 55 41 54 52 45  5D 0D 4D 41 4B 45 20 22  |S QUATRE].MAKE "|
00000740: 4C 49 53 4C 49 53 54 45  20 5B 41 53 5D 0D 4D 41  |LISLISTE [AS].MA|
00000750: 4B 45 20 22 41 20 5B 55  4E 20 44 45 55 58 20 54  |KE "A [UN DEUX T|
00000760: 52 4F 49 53 20 51 55 41  54 52 45 5D 0D 4D 41 4B  |ROIS QUATRE].MAK|
00000770: 45 20 22 59 59 20 5B 41  5A 5D 0D 4D 41 4B 45 20  |E "YY [AZ].MAKE |
00000780: 22 50 51 20 22 4C 4F 47  4F 46 52 41 4E 43 0D 4D  |"PQ "LOGOFRANC.M|
00000790: 41 4B 45 20 22 57 31 20  5B 57 45 52 5D 0D 4D 41  |AKE "W1 [WER].MA|
000007A0: 4B 45 20 22 57 20 22 4C  4F 47 4F 46 52 41 4E 43  |KE "W "LOGOFRANC|
000007B0: 0D 00                                             |..              |

. TO ECHELLE :W. .ASPECT :W. VE. REPETE 
4 [AV 100 DR 90].END..TO D.IMPRIMANTE. N
OPRINTER.END..TO B.IMPRIMANTE. PRINTER.E
ND..TO ECRISCAR :W. STAMPCHAR :W.END..TO
 DETRUIS. QUESTION. ERASEFILE :PQ.END..T
O QUESTION. PRINT1 "'.QUEL NOM? ' MAKE "
PQ RQ. MAKE "PQ FIRST :PQ.END..TO EFFACE
TOUT. ERASE ALL.END..TO CT. HT.END..TO M
T. ST.END..TO CENTRE. HOME.END..TO VE. H
OME CS.END..TO IMTS. POTS.END..TO ECRANP
ARTAGE. SPLITSCREEN.END..TO ECRANDESSEIN
. FULLSCREEN.END..TO ECRANTEXTE. TEXTSCR
EEN.END..TO REPETE :W :W1. REPEAT :W :W1
.END..TO FIN .END..TO AV :W. FD :W.END..
TO DR :W. RT :W.END..TO T.B. LOCAL "LINE
. MAKE "LINE ASK ">. IF :LINE = [FIN] OP
 []. OP FPUT :LINE T.B.END..TO ASK :QST.
 LOCAL "ANS. PRINT1 :QST. MAKE "ANS REQU
EST. IF EMPTY? :ANS OP ASK :QST. OP :ANS
.END..TO APPRENDS. LOCAL "N.A. MAKE "N.A
 ASK [NOM:]. ( PR "POUR :N.A ). DEFINE F
IRST :N.A FPUT BF :N.A T.B. ( PRINT ( FI
RST :N.A ) [EST DEFINI] ).END..TO BC. PD
.END..TO LC. PU.END..TO RE :W. BK :W.END
..TO SAUVE :W. SAVE :W.END..TO CATALOGUE
. CATALOG.END..TO RAMENE :W. READ :W.END
..TO CFONDTEXTE :W. TEXTBG :W.END..TO CT
EXTE :W. TEXTCOLOR :W.END..TO CCRAYON :W
. PC :W.END..TO CFONDDESSEIN :W. BG :W.E
ND..TO CAP. PR HEADING.END..TO FCAP :W. 
SETHEADING :W.END..TO ECRIS :W. PRINT :W
.END..TO TAPE :W. PRINT1 :W.END..TO NETT
OIE. CS.END..TO BARRIERE. NOWRAP.END..TO
 ENROULE. WRAP.END..TO SI. IF.END..TO AL
ORS. THEN.END..TO EC :W. PR :W.END..TO V
IDEECRAN. HOME CS.END..TO AVANCE :W. FD 
:W.END..TO RECULE :W. BK :W.END..TO DROI
TE :W. RT :W.END..TO GA :W. LT :W.END..T
O GAUCHE :W. GA :W.END..TO FIXEX :W. SET
X :W.END..TO FIXEY :W. SETY :W.END..TO F
IXEXY :W. SETX FIRST :W. SETY LAST :W.EN
D..TO DONNE :W :W1. MAKE :W :W1.END..TO 
LEVECRAYON. PU.END..TO BAISSECRAYON. PD.
END..TO MONTRETORTUE. ST.END..TO CACHETO
RTUE. HT.END..TO GC. PENERASE.END..TO GO
MMECRAYON. GC.END..MAKE "X [UN DEUX TROI
S QUATRE].MAKE "LISLISTE [AS].MAKE "A [U
N DEUX TROIS QUATRE].MAKE "YY [AZ].MAKE 
"PQ "LOGOFRANC.MAKE "W1 [WER].MAKE "W "L
OGOFRANC..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL