From the most simple to the most complex. MULTICON is another Multiface file converter. Okay, stop yawning!. This one not only converts the screen to a standard AMSDOS screen, but if it is a SPECTRUM screen (all disjointed!), then it will automatically detect and convert that as well!! The screen is saved with the INKS. BORDER and MODE within itself, and can be displayed by loading into the DISPLAY program, which is directly after MULTICON. As if all this ART-mungus stuff wasn't enough, it also saves out a PALette file, so that the file can be loaded into the Advanced Art Studio, with all the inks correctly set. This is the program we use in the office for converting screens! 10 '******************************** 20 '* Multiface Screen manipulator * 30 '* (c) 1992 Rob Scott and STS!! * 40 '* written for grabbing screens * 50 '* from Multiface format and * 60 '*converting them to normal even* 70 '*if they are in SPECTRUM format* 80 '******************************** 90 ' 100 ' 110 IF HIMEM=&3FFF THEN 140 120 MEMORY &3FFF 130 GOSUB 670:CALL &8500 140 MODE 1:INK 0,0:INK 1,20:INK 2,26 150 INK 3,22:BORDER 0:PAPER 0:PEN 1 160 WINDOW #1,1,40,5,19 170 PRINT"Multiface Converter for Grabbed Screens" 180 PRINT" written by Rob Scott (c) STS 1992" 190 PRINT"Insert disk in drive and Press any key.":CALL &BB18 200 a$="*.bin":ùDIR,àa$ 210 PRINT:PRINT:PRINT 220 INPUT"Enter SCREEN filename >>",file$ 230 IF file$="" OR LEN(file$)=0 OR LEN(file$)>8 THEN 220 240 PRINT:PRINT 250 PRINT" Insert DISK with SCREEN and press a key" 260 CALL &BB18 270 LOAD file$+".bin",&4000 280 IF PEEK(&8079)=&20 THEN spec=1 290 scmode=PEEK(&8088) AND 3 300 CLS#1 310 LOCATE#1,5,19 320 ùDECODE 330 BORDER PEEK(&9000) 340 MODE scmode 350 IF scmode=1 THEN inks=3 ELSE inks=15 360 FOR a=0 TO inks:INK a,(PEEK(&9001+a)):NEXT 370 ùMOVEUP 380 IF spec THEN ùSPEC 390 CALL &BB18 400 ùMOVEDN 410 MODE 1 420 CALL &BC02:PRINT:INPUT"Save the screen Y/N >>",yn$ 430 IF UPPER$(yn$)="N" THEN END 440 IF yn$="" THEN 420 450 PRINT:INPUT"Enter SAVE filename >>",sf$ 460 POKE &4FED,scmode 470 POKE &4FEE,PEEK(&9000) 480 FOR a=0 TO 15:POKE &4FEF+a,PEEK(&9001+a) 490 NEXT 500 SAVE sf$+".scr",b,&4000,&4000 510 PRINT:PRINT"Saving PALette file..." 520 POKE &8809,scmode 530 POKE &880A,&FF 540 POKE &880B,PEEK(&8067)+&40 550 a=0 560 FOR multi=&8068 TO &8077 570 hardware=PEEK(multi) 580 FOR c=0 TO 12 590 POKE &880C+a+c,hardware+&40 600 NEXT c 610 a=a+12 620 NEXT multi 630 SAVE sf$+".pal",b,&8809,&EF 640 PRINT"" 650 PRINT"All Done..and have a nice day!!" 660 END 670 ln=770 680 FOR adr=&8500 TO &8637 STEP 13 690 READ byte$:chk=0 700 FOR i=0 TO 12 710 v=VAL("&"+MID$(byte$,i*2+1,2)) 720 POKE adr+i,v:chk=chk+v 730 NEXT 740 IF chk<>VAL("&"+RIGHT$(byte$,3)) THEN PRINT"error in line ";ln:STOP 750 ln=ln+10:NEXT 760 RETURN 770 DATA 211885010A85CDD1BCC91C85C35D5 780 DATA 3385C34E85C35A85C36685000059E 790 DATA 00004445434F44C54D4F5645553B0 800 DATA D04D4F564544CE535045C300064CA 810 DATA 112167801100907EE5D52117864B0 820 DATA 5F1600197ED1E112231310EEC94CD 830 DATA 2100401100C0010040EDB0C9213FA 840 DATA 00C0110040010040EDB0C921003D9 850 DATA C0110040010040D5E5EDB0CD11587 860 DATA BCCD0EBCD1E13E18EDA0EDA0ED862 870 DATA A0EDA0EDA0EDA0EDA0EDA0EDA09EE 880 DATA EDA0EDA0EDA0EDA0EDA0EDA0EDA3B 890 DATA A0EDA0EDA0EDA0EDA0EDA0EDA09EE 900 DATA EDA0EDA0EDA0EDA0EDA0EDA0EDA3B 910 DATA A0EDA0EDA0EDA0EDA0EDA0EDA09EE 920 DATA EDA0EDA0EDA0EDA0EDA0EDA0EDA3B 930 DATA A0EDA0EDA0EDA0EDA0EDA0EDA09EE 940 DATA EDA0EDA0EDA0EDA0EDA0EDA0EDA3B 950 DATA A0EDA0EDA0EDA0EDA0EDA0EDA09EE 960 DATA EDA0EDA0EDA0011000EB09EB3D6D4 970 DATA C27D8501000209EB01800009EB430 980 DATA 7AB3C27B85C90D00131901070A403 990 DATA 100000181A06080F1100001214096 1000 DATA 0002090B0416151703050C0E0007EThe screen display program follows. Use this for displaying the screens which were converted with MULTICON. 10 'displayer for MULTICON converted screens 20 ' 30 MEMORY &3FFF 40 MODE 2:ùDIR,"*.scr" 50 INPUT"Enter screen to load >>",scr$ 55 IF scr$="" THEN 1000 60 LOAD scr$+".scr",&4000 70 FOR a=&100 TO &10B:READ b$ 80 POKE a,VAL("&"+b$):NEXT 90 MODE PEEK(&4FED):BORDER PEEK(&4FEE) 100 FOR a=0 TO 15:INK a,PEEK(&4FEF+a) 110 NEXT 120 CALL &100 130 CALL &BB03:CALL &BB18:RUN 140 DATA 21,00,40,11,00,c0,01,00,40 150 DATA ed,b0,c9 160 CALL &BC02:MODE 1:PEN 1:ENDCPC Attack ★ AMSTRAD CPC ★ DOWNLOAD ★ |
CPCrulez[Content Management System] v8.7-desktop/c Page créée en 317 millisecondes et consultée 1545 foisL'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko. |
|
|
|