I am having difficulty with this because I do not understand that dialect of basic well enough.
For example, what does OPEN "CREDO" FOR INPUT AS 1 do? Is it specifically always opening a file named "credo"? Does the input statement on line 1 read from this file? Which part of the string does mid$ read? (are you stripping off the first 2 characters or the first three characters with mid$(a$,2)? Thanks, -- Raul On Tue, Nov 27, 2012 at 1:31 AM, Bo Jacoby <bojac...@yahoo.dk> wrote: > Dear J'ers. > > At the Norddata conference in Göteborg in the summer 1989 I gave a lecture > (in Danish) on Ultraflexible Database Structure and Artificial Catholicism. > > > It contained this 8-liner in BASIC. > > 1 INPUT;C$: IF C$="" THEN END > 2 OPEN "CREDO" FOR INPUT AS 1: PRINT":"; > 3 IF EOF(1) THEN CLOSE: PRINT: GOTO 1 > 4 LINE INPUT#1,A$: B$=C$ > 5 IF A$=""THEN A%=-1 ELSE A%=ASC(A$)-48: A$=MID$(A$,2) > 6 IF B$=""THEN B%=-1 ELSE B%=ASC(B$)-48: B$=MID$(B$,2) > 7 IF A%<0 THEN PRINT" ";A$;: GOTO 3 > 8 IF A%=0 OR B%=0 OR A%=B% THEN 5 ELSE 3 > > I have not yet been able to translate this program into J, mainly (I think) > because I have no experience in reading textfiles from J. I request your > assistance! The line numbers in the file must be separated from the rest of > the lines. The line numbers may be padded to the right with zeroes. > > > The program is a database browser. The question put to the program is a > number, and the answer from the program consists of the lines in the database > having numbers compatible to that of the question. Like this: > > 1: CREDO AMEN > 2: CONFITEOR AMEN > 3: EXPECTO AMEN > 0: CREDO CONFITEOR ET EXPECTO AMEN > > The digit zero is wild card character. A zero in the question indicate that > the answer has many words, and zero in a word in the database indicate that > this word answers many questions. So "AMEN" is included in all answers. Like > this: > > 11: CREDO IN DEUM AMEN > 12: CREDO IN JESUM AMEN > 13: CREDO IN SPIRITUM AMEN > 14: CREDO ECCLESIAM AMEN > 15: CREDO AMEN > 10: CREDO IN DEUM ET IN JESUM ET IN SPIRITUM ET ECCLESIAM AMEN > 21: CONFITEOR BAPTISMA AMEN > 22: CONFITEOR AMEN > 31: EXPECTO RESURRECTIONEM AMEN > 32: EXPECTO VITAM AMEN > 33: EXPECTO AMEN > 30: EXPECTO RESURRECTIONEM ET VITAM AMEN > 01: CREDO IN DEUM CONFITEOR BAPTISMA ET EXPECTO RESURRECTIONEM AMEN > 13500: CREDO IN SPIRITUM QUI CUM PATRE ET FILIO SIMUL ADORATUR ET > GLORIFICATUR AMEN > > 13510: CREDO IN SPIRITUM QUI CUM PATRE ET FILIO SIMUL ADORATUR AMEN > 13520: CREDO IN SPIRITUM QUI CUM PATRE ET FILIO SIMUL GLORIFICATUR AMEN > 13501: CREDO IN SPIRITUM QUI CUM PATRE ADORATUR ET GLORIFICATUR AMEN > 13502: CREDO IN SPIRITUM QUI CUM FILIO ADORATUR ET GLORIFICATUR AMEN > 13511: CREDO IN SPIRITUM QUI CUM PATRE ADORATUR AMEN > 13512: CREDO IN SPIRITUM QUI CUM FILIO ADORATUR AMEN > 13521: CREDO IN SPIRITUM QUI CUM PATRE GLORIFICATUR AMEN > 13522: CREDO IN SPIRITUM QUI CUM FILIO GLORIFICATUR AMEN > > The database is this. > 1 CREDO > 11 IN > 111 UNUM > 11 DEUM > 112 PATREM > 1121 OMNIPOTENTEM > 113 FACTOREM > 1131 CÆLI > 1139 ET > 1132 TERRÆ > 11331 VISIBILIUM > 1133 OMNIUM > 11339 ET > 11332 INVISIBILIUM > 19 ET > 12 IN > 1211 UNUM > 1211 DOMINUM > 12 JESUM > 1211 CHRISTUM > 1212 FILIUM > 1212 DEI > 12121 UNIGENITUM > 1219 ET > 1213 EX > 1213 PATRE > 1213 NATUM > 12131 ANTE > 121311 OMNIA > 12131 SÆCULA > 1221 DEUM > 12211 DE > 12211 DEO > 1222 LUMEN > 12221 DE > 12221 LUMINE > 1223 DEUM > 12231 VERUM > 12232 DE > 12232 DEO > 122321 VERO > 1231 GENITUM > 12311 NON > 12311 FACTUM > 1232 CONSUBSTANTIALEM > 1232 PATRI > 12321 PER > 12321 QUEM > 12321 OMNIA > 12321 FACTA > 12321 SUNT > 124 QUI > 124101 PROPTER > 124101 NOS > 12410101 HOMINES > 124109 ET > 124102 PROPTER > 12410201 NOSTRAM > 124102 SALUTEM > 12411 DESCENDIT > 1241101 DE > 1241101 CÆLIS > 12419 ET > 12412 INCARNATUS > 12412 EST > 1241201 DE > 1241201 SPIRITU > 124120101 SANCTO > 1241202 EX > 1241202 MARIA > 124120201 VIRGINE > 12419 ET > 1241301 HOMO > 12413 FACTUS > > 12413 EST > 124211 CRUCIFIXUS > 1242101 ETIAM > 1242101 PRO > 1242101 NOBIS > 1242102 SUB > 1242102 PONTIO > 1242102 PILATO > 124212 PASSUS > 124219 ET > 124213 SEPULTUS > 12421 EST > 12429 ET > 12422 RESURREXIT > 124221 TERTIA > 124221 DIE > 124222 SECUMDUM > 124222 SCRIPTURAS > 12429 ET > 12423 ASCENDIT > 124231 IN > 124231 CÆLUM > 12424 SEDET > 124241 AD > 124241 DEXTERAM > 124241 PATRIS > 12429 ET > 124251 ITERUM > 12425 VENTURUS > > 12425 EST > 124252 CUM > 124252 GLORIA > 124253 JUDICARE > 1242531 VIVOS > 1242539 ET > 1242532 MORTUOS > 125 CUJUS > 125 REGNI > 125 NON > 125 ERIT > 125 FINIS > 19 ET > 13 IN > 13 SPIRITUM > 131 SANCTUM > 132 DOMINUM > 139 ET > 133 VIVIFICANTEM > 134 QUI > 134 EX > 1341 PATRE > 1342 FILIO > 1349 QUE > 134 PROCEDIT > 135 QUI > 135 CUM > 13501 PATRE > 13509 ET > 13502 FILIO > 13509 SIMUL > 1351 ADORATUR > 1359 ET > 1352 GLORIFICATUR > 136 QUI > 136 LOCUTUS EST > 1361 PER > 1361 PROPHETAS > 19 ET > 141 UNAM > 142 SANCTAM > 143 CATHOLICAM > 149 ET > 144 APOSTOLICAM > 14 ECCLESIAM > 2 CONFITEOR > 211 UNUM > 21 BAPTISMA > 212 IN > 212 REMISSIONEM > 2121 PECCATORUM > 9 ET > 3 EXPECTO > 31 RESURRECTIONEM > 311 MORTUORUM > 39 ET > 32 VITAM > 3211 VENTURI > 321 SÆCULI > AMEN > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
