x : : "Programa Generador de EPROM": ::"1 Generar EPROM":"2 Visualizar EPROM":"3 Salida": "Opcion: ";K: K ,x,: M( ): P(@):RN:O: "Valor Energetico: ";K: "Bloq.eprom: 0,1,2,3,4,5,6,7,file=8, :";B::"Energia = ";K: "Bloque = ";B: Z  : : Z: B NN B NN B NN  B NN B NN B NN+ B NN= B d Z ; :YY(K (Zd)):X:M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N):M(N) Y4 X : Y:M(N):M(N)*:M(N):M(N)*:M(N):M(N)*:M(N):M(N)*:M(N):M(N)*" Y- X : Y:M(N):M(N):M(N):M(N)*:M(N):M(N)*:M(N):M(N)*:M(N):M(N)w$ Y X : Y:M(N):M(N)*:M(N):M(N)*:M(N):M(N)*:M(N):M(N)*& Y X : Y:M(N):M(N):M(N):M(N)*:M(N):M(N)*:M(N):M(N):( Y X : Y:M(N):M(N)*:M(N):M(N)*:M(N):M(N)** Y X : Y:M(N):M(N):M(N):M(N)*:M(N):M(N), Y X : Y:M(N):M(N)*:M(N):M(N)*. YX X : Y:M(N):M(N):M(N):M(N)*>0 Y X : Y:M(N):M(N)*f2 Y X : Y:M(N):M(N)<NN: X;" ";:P(R)X:RRFOOX: Z: "Media = "; O :Y: Q : R :Y(P(R)(Yff&)): ((Q)R,n(Y)): ((Q)R,n(Y)): R: QZR: Dd: "Bloque de Reserva 0-7 :";Tn: "Guardar Archivo": "eprom\*.": "Nombre de Archivo ";S$:S$"eprom\"S$: SEG (`):T$"eprom\temp": T$,,@>p Z  : Z, M(Z): Z: Z @ : X : (ZX),M(X(T)): X: Z: S$,,@: T$,:T$T$".bas": T$Hs x: "Cargar Archivo":: "eprom\*.bas": "Nombre de Archivo ";S$:S$"eprom\"S$: SEG (`):T$"eprom\temp": T$,,@: S$,0z "Bloque 0-7, Mix=8,9 (>9=exit): ";K:L:J:R:: K : T$,:T$T$".bas": T$: B{ K X| K J: |} Z(K) ((K)) ~ X :Q (ZX) LL:Q (ZX) LL:Q (ZX) LL:Q  (ZX)* LL:Q/ : ((ZX(K)),Q): 7 XHRR(L)q : ((Z(K)),L): :L: Z"Eprom: ";S$;" ";"Bloque: ";K;" Energia= ";(Rd): z KJ J Z(K) ((K))  X :Q' (ZX) LLB (ZX) LL [ (ZX) LLv (ZX)* LL ~ X KJ: ((Z(K)),L): :L: Z K z