ECRANE VIDEO CU CRISTALE LICHIDE

Anul trecut firma Renault a prezentat ultima sa creație în domeniu: RENAULT MEGANE. Specialiștii consideră această apariție ca fiind superlativul tehnicii actuale, un miracol al electronicii și ergonomiei automatizate. Pentru a caracteriza această prezență stranie lansată la ultimul salon automobilistic de la Paris - 1988, cuvântul de ordine este ineditul.

Producătorul firmei și partenerii săi asociați, luând în studiu anumite componente ale acestui proiect, au realizat cu multă imaginație autoturismul de mâine. Pentru prima oară în lume s-a fabricat un automobil cu design modular.

Mégane se poate transforma în câteva secunde din profil tricorp în profil bicorp (fig. 3). Coeficientul de portanță Cx constituie un record... 0,21 și 0,22! Elementul surpriză domină exponatul.

Pentru a pătrunde în habitaclu, ușile nu sunt prevăzute cu nici un fel de clanțe sau încuietori, dar o ușoară apăsare pe telecomandă face ca cele 4 uși să gliseze fără zgomot, unele spre înainte, altele spre înapoi, oferind o ciudată perspectivă a habitaclului în care frumosul și-a dat mâna cu tehnica ergonomiei (foto 6).

În interior, mașina este prevăzută cu 4 fotolii tip avion cl. I, echipate cu tetiere, cotiere repaus pentru picioare (fig. 2).

Fotoliul din dreapta șoferului poate pivota 180° pentru a se așeza în poziția "salon", cu fața spre partenerii de drum așezați în spate. Aceștia, la rândul lor, pot declanșa extinderea habitaclului cu geometrie variabilă, transformând silueta lui Mégane în bicorp (fig. 2).

Scaunul șoferului poate fi comandat electric în poziția "pilotaj", regându-i înălțimea de așezare, distanța față de volan, înclinarea spătarului și adaptarea distanței convenabile (fig. 7).

CATALOG

Programul "catalog" permite identificarea părților componente ale fișierelor înregistrate pe caseta magnetică utilizate de microcalculatoarele compatibile Spectrum.

Subrutinele de sistem ale acestor microcalculatoare permit salvarea/încărcarea unor fișiere alcătuite din două părți: un antet și un bloc de date precedate fiecare de un semnal cu frecvența de 807Hz și de câte un scurt impuls de sincronizare.

Primul octet al fiecărei părți semnalează tipul fișierului conform următoarei codificări:

Antetul conține elementele de identificare a fișierului codificate astfel: P - program BASIC N - variabilă numerică indexată C - variabilă alfanumerică indexată B - octeți de date sau program cod mașină H - antet de lungime nestandard.

În plus sunt listate numele antetului, adresa la care se va încărca blocul de date și lungimea acestuia sau linia de autolansare, lungimea programului+variabilele aferente pentru programele BASIC.

100 DEF FN a(x) PEEK (b+x)+256*PEEK (b+x+1): CLEAR 26199: LOAD "cod"CODE 25902,215 110 INPUT "Copie la imprimantă (d/n)?";v$: IF v$<>"d" AND v$<>"n" THEN GO TO 110 120 IF v$="d" THEN CLOSE #3: OPEN #3,"a" 130 INK 0: PAPER 6: BRIGHT 1: CLS: LET b=26200 140 RANDOMIZE USR 25902: LET l=FN a(0)-26202: IF l<0 THEN LET l=39334+FN a(0) 150 LET t=PEEK (b+2): IF t<>0 THEN GO TO 290 160 LET a$="*": LET c=PEEK (b+3) 170 IF c<>0 THEN GO TO 200 180 LET a$=a$+"P": GO SUB 330: IF FN a(16)<9999 THEN LET a$=a$+"run"+STR$ (FN a(16)) 190 LET a$=a$+","+STR$ (FN a(18))+"+"+STR$ (FN a(14)-FN a(18)): GO TO 310 200 IF c<>1 THEN GO TO 220 210 LET a$=a$+"N": GO SUB 330: LET a$=a$+CHR$ (PEEK (b+17)-64)+":"+STR$ (FN a(14)): GO TO 310 220 IF c<>2 THEN GO TO 240 230 LET a$=a$+"C": GO SUB 330: LET a$=a$+CHR$ (PEEK (b+17)-128)+":"+STR$ (FN a(14)): GO TO 310 240 IF c<>3 THEN GO TO 270 250 LET a$=a$+"B": GO SUB 330 260 LET a$=a$+STR$ (FN a(16))+","+STR$ (FN a(14)): GO TO 310 270 LET a$=a$+"H#"+STR$ c+":": GO TO 260 280 LET a$=a$+"H": GO TO 300 290 LET a$="[]": IF t<>255 THEN LET a$=a$+" D#"+STR$ t 300 LET a$=a$+" "+STR$ (l-2)+" bytes" 310 POKE 23692,255: PRINT a$: IF v$="d" THEN LPRINT a$ 320 GO TO 140 330 FOR a=b+4 TO b+13: LET d=PEEK a: IF d<32 OR d>127 THEN LET a$=a$+":": GO TO 350 340 LET a$=a$+CHR$ d: 350 NEXT a: LET a$=a$+":": RETURN

Pentru blocurile de date este indicat numărul de octeți fără a socoti primul octet (identificatorul antet/bloc de date) și ultimul octet (suma de control).

În cazul în care dispuneți de un microcalculator TIM-S echipat cu o imprimantă serială lista fișierelor apare simultan pe ecran și pe hârtie.

Tastați mai întâi programul BASIC din fig. 1 și salvați-l pe casetă. Introduceți apoi în memorie subrutina în cod mașină din fig. 2 începând de la adresa 25902 în sus, rezervând în prealabil spațiul necesar cu comanda CLEAR 25901 și salvați cu comanda SAVE "cod"CODE 25902,215. După încărcarea programului introduceți în casetofon caseta pe care doriți să o analizați și veți obține catalogul tuturor fișierelor înregistrate. Pentru exemplificare, în fig. 3 este prezentată lista fișierelor de pe caseta JECO recent comercializată.

ing. Sorin Călinescu

SAVE "catalog" LINE 1 1,33,90,102,17,0,208,175 55,205,86,101,221,34,88,102 201,245,58,72,92,230,56,15 15,15,211,254,62,127,219,254 31,251,56,2,207,12,211,201 20,8,21,243,62,15,211,254 33,63,101,229,219,254,31,230 32,246,2,79,191,192,205,231 101,48,250,33,21,4,16,254 43,124,181,32,249,205,227,101 48,235,6,156,205,227,101,48 228,62,198,184,48,224,36,32 241,6,201,205,231,101,48,213 120,254,212,48,244,205,231,101 208,121,238,3,79,38,0,6 176,24,31,8,32,7,48,0 221,117,0,24,15,203,17,221 117,0,175,121,31,79,0,0 0,0,0,0,221,35,27,8 6,178,46,1,205,227,101,208 62,203,184,203,21,6,176,210 202,101,124,173,103,122,179,32 202,124,254,1,201,205,231,101 208,62,22,61,32,253,167,4 200,62,127,219,254,31,208,169 230,32,40,243,121,47,79,230 7,246,8,211,254,55,201

SAVE "cod"CODE 25902,215

*P: GRAFICE :run10,837+31 [ 868 bytes *B11 [ 150 bytes *B: SCREEN :16384,6912 [ 6912 bytes *P: BASIC :run10,10381+836 [11217 bytes *B: MACHINE :53000,12000 [ 12000 bytes