'convierte ficheros de texto ASCII 'a ficheros formato RSC, 'cargables desde el ensamblador RSC ' 'para detalles ficheros RSC, 'ver el fichero RSCFILE.TXT ' '29/1/2003 - FUNCIONA '11/2/2003 - conversion minusculas a mayusculas ' (RSC solo soporta codigo fuente en MAYUSCULAS) ' CLS FILES PRINT INPUT "¨Fichero ASCII a convertir (con extension)"; fe$ PRINT FILES fe$ 'comprueba si existe PRINT INPUT "¨Fichero resultante "; fs$ ' PRINT PRINT "Convirtiendo fichero ..." ' OPEN fe$ FOR INPUT AS 1 ' ls$ = "" 'buffer para fichero lf = 0 'longitud fichero resultante n = 10'numero de linea incial DO LINE INPUT #1, li$ lo = LEN(li$) 'los nemotecnicos se convierten a mayusculas pero no los comentarios li1$ = UCASE$(LEFT$(li$, INSTR(li$, ";"))) 'parte de programa li2$ = RIGHT$(li$, lo - LEN(li1$))'parte de comentario IF li1$ = "" THEN li2$ = UCASE$(li2$) lo = lo + 4 'tama¤o linea+4 lsb = n AND &HFF msb = (n AND &HFF00) / 256 ls$ = ls$ + CHR$(lo) 'longitud linea ls$ = ls$ + CHR$(lsb) + CHR$(msb) + CHR$(0) 'numero linea 'texto de la linea 'ls$ = ls$ + li$ ls$ = ls$ + li1$ + li2$ ls$ = ls$ + CHR$(1) 'fin linea lf = lf + lo + 1'long fichero n = n + 10 LOOP WHILE NOT EOF(1) ' lf = lf + 1 'long datos lsbl = lf AND &HFF msbl = (lf AND &HFF00) / 256 ' ls$ = CHR$(2) + CHR$(lsbl) + CHR$(msbl) + ls$ + CHR$(0) ' OPEN fs$ FOR RANDOM ACCESS WRITE AS 2 LEN = LEN(ls$) FIELD 2, LEN(ls$) AS d$ LSET d$ = ls$ PUT 2 ' CLOSE PRINT "Ok"