APPLICATIONSDIVERS ★ Multiface Screen manipulator ★

Multiface Screen manipulator|CPC Attack)Applications Divers
★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se presenta en su versión original ★ 
 ★ Dieser Text wird in seiner Originalfassung präsentiert ★ 

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 0002090B0416151703050C0E0007E

The 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:END

CPC Attack

★ PUBLISHERS: CPC Attack! / STS Software
★ YEAR: 1992
★ AUTHOR: Rob Scott

★ AMSTRAD CPC ★ DOWNLOAD ★

File:
» Multiface  Screen  manipulatorDATE: 2013-12-10
DL: 28 fois
TYPE: ZIP
SIZE: 22Ko
NOTE: 40 Cyls
.HFE: OUI

Je participe au site:
» Newfile(s) upload/Envoye de fichier(s)
★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser...

Lien(s):
» Coding Src's » Graphic - Advanced Art Studio screen loader (Attack)
» Coding Src's » Abrollen
» Coding Src's » Sound - Bruit Vagues - Mouette (CPC Revue)
» Coding Src's » Graphic - Kalaedoscope (Amstrad Computer User)
» Coding Src's » Graphic - Symphonie Zoom (CPC Revue)
» Coding Src's » Graphic - Triangles

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 639 millisecondes et consultée 562 fois

L'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.