★ CODING ★ SOURCES ★ SCR2BMP (Basic source code) ★ |
SCR2BMP (Basic source code) | Coding Sources |
110 '(c) 1997 CRTC/Systeme D 120 : 130 DEFINT a-z:MEMORY &3FFF 131 PRINT"Convert MODE 2 screen to .BMP format" 132 PRINT"$1997 CRTC/Systeme D" 133 PRINT"Almost PD from Robot Software":PRINT 140 LINE INPUT "Original filename: ",a$ 150 LINE INPUT "Compressed with SQ23 (Y/N): ",c$ 155 LINE INPUT "Save as .BMP to drive: ",d$:MODE 2 160 WHILE INSTR(a$,".")=0:a$=a$+".SCR":WEND 170 IF UPPER$(LEFT$(c$,1))="Y" THEN LOAD a$,&4000:CALL &4000 ELSE LOAD a$,&C000 180 OPENOUT d$+":"+LEFT$(a$,INSTR(a$,".")-1)+".BMP" 190 : 200 FOR n=0 TO 61:READ i$ 210 PRINT#9,CHR$(VAL("&"+i$));:NEXT 220 DATA 42,4D,BE,3E,00,00,00,00,00,00,3E,00,00,00,28,00 230 DATA 00,00,80,02,00,00,C8,00,00,00,01,00,01,00,00,00 240 DATA 00,00,80,3E,00,00,12,0B,00,00,12,0B,00,00,02,00 250 DATA 00,00,02,00,00,00,FF,FF,FF,00,00,00,00,00,00,00 260 DATA 00,00 270 : 280 a=&FF80 290 FOR n=0 TO 199 300 FOR x=0 TO 79 310 PRINT#9,CHR$(PEEK(a+x));:NEXT:POKE a,PEEK(a)XOR 255 320 a=a-&800 330 IF a<&C000 THEN a=a+16304 340 NEXT 350 CLOSEOUT |
|
|