001 CLEAR
002 SUBROUTINE READ (BIBLIO,LIB A)
003 Z=0; DIM Y(36), X(36)
004 CALL BUSC (BIBLIO,Z,LIB A)
005 READ LIBRO FROM BIBLIO,Z ELSE PRINT... read, read, read
006 “... Si tienes un monstruo dentro, escríbelo ...”
007 “... Nadie me atrapará vivo ...”
008 ...
009 ...
010 “... La extrema condensación de un pensamiento era ya casi el
porvenir...”
011 “... El hombre dijo a la computadora: creced y multiplicaos ...”
012 “... Leer, leer, leer, vivir la vida que otros soñaron ...”
013 “... Hoy hace buena luz y puedo escribir ...”
014 ...
015 FOR DCLXVI=1 TO DEUS
016 ...
017 ...
018 “... Esta noche la niebla será incienso ...”
019 “... Cada idea es un eco; cada acto, un plagio ...”
020 NEXT DCLXVI
021 ...
022 END
.
.
.