The Rainbow Vol. 09 No. 01 - August 1989 - TRS-80 Color ...

4)= "R4 "
530 PRINT@326, "»> " ; : LINEINPUT
F$
540 A= I NSTR( 1, F$ ,": "):I FA>0THEND
$=RIGHT$(F$,LEN(F$) -A+1) : F$=LEFT
$(F$ , A-1)ELSED$= ""
550 IFK=2THENFORI=1T04 : POKE&HFFA
2,&H70 : LOADM F$+L$(I)+ "/HR1 "+D$ :
POKE&HFFA2, &H71 : LOADM F$+L$ (I)+"
/H R2 "+D$:POKE&HFFA2,&H72 : LOADM F
$+R$(I)+ "/HR1 "+D$ : POKE&HFFA2 , &H7
3: LOADM F$+R$(I)+ "/HR2 "+D$ : POKE&
HFFA2 , &H7A : EXEC&H1284 : NEXT : GOT06
30
560 FORI=1T02 : POKE&HFFA2,&H70 : LO
ADM F$+L$(I)+ "/HR1 "+D$ : POKE&HFFA
2,&H71 : LOADM F$+L$(I)+ "/HR2 "+D$ :
POKE&HFFA2,&H72 : LOADM F$+M$(I)+ "
/ HR1 "+D$ : POKE&HFFA2,&H73 : LOADM F
$+M$ CI)+"/HR2 "+D$
570 POKE&HFFA2 , &H7A : LOADM F$+R$(
I)+"/H R1 "+D$ : LOADM F$+R$(I )+ "/HR
2"+D$ ,8192 : EXEC&H1298 : NEXT
580 O$=D$ : I FO$= " "TH ENO$= " 0" ELSEO
$=RIGHT$(D$ , 1)
590 CLS : PRINT@194, "INSERT DISK W
ITH SECOND SET OF SCREEN FIL
ES IN DRIVE " ;0$:PRINT@258, "AND
PRESS SPACE. "
600 K$=INKEY$ : IFK$0 " "THEN600
610 FORI=3T04 : POKE&HFFA2,&H70 : LO
ADM F$+L$ (I)+" / HR1 "+D$ : POKE&HFFA
2, &H71 : LOADM F$+L$ (I)+" / HR2 "+D$ :
POKE&HFFA2 , &H72 : LOADM F$+M$(I)+ "
/HR1 "+D$ : POKE&HFFA2,&H73 : LO ADM F
$+M$( I)+ " /HR2 "+D$
620 POKE&HFFA2,&H7A : LOADM F$+R$(
I)+ " / HR1 "+D$ : LOADM F$+R$ ( I )+ " / HR
2"+D$ ,8192 : EXEC&H1298 : NEXT
630 CLEAR200,&H7FFF : GOT0470
640 WIDTH40 : CLS 3: LOCATE10,10:PRI
NT "1 LOAD FOR DUMP ": LOCATE10 , 11 :
PRINT "2 RETURN TO DH " : LOCATE10 , 1
2: PRINT "3 EXIT PROGRAM ": RETURN
Listing 3: HALTER
18 ON ERR GOT07000
25 GOSUB820 : POKE&HFFA 2, &H 70 : SAVE
M"OUT1 " , &H4000 , &H5FFF,&HAC73 : POK
E&HFFA2,&H7l : SAVEM "OUT2 " ,&H4000,
&H5BFF , &HAC 73 : POKE&HFFA2,&H7A : RE
NAME "OUTl/BIN "TOF$+ " /HR1 ": RENAME
"OUT2/BIN "TOF$+ " /HR2 ": DRIVE0 : RET
URN
30 GOSUB820 : RENAMEF$+ "/HR1 "TO " IN
1/BIN ": RENAMEF$+ " /HR2 "TO " IN2/B IN
": POKE&HFFA2,&H70 : LOADM "IN1 ": POK
E&H FFA2 , &H71 : LOADM " I N2": POKE&H FF
A2,&H7A
35 RENAME "INl/BIN "TOF$+ "/ HRl " :RE
52 THE RAINBOW August 1989
650 DATA 2, 27 ,49 ,0 ,0,0 ,0,0
660 DATA 5, 27 ,42 , 1,1 92 , 3,0 ,0,0,0
670 DATA 2, 27 ,50, 0, 0 ,0 ,0 ,0
680 CLS3 : LOCATE3 ,8: PRINT "DO YOU
NEED TO RE VI EW FI LE AND
FIL EN AM E REQUI RE MENTS FO R EXECU
TING THIS SCREEN DUMP? (Y/
N) "; : RET URN
690 CLS3 : LOC ATE6 , 5:P RIN T"YOU SHO
ULD HAVE READ Y "; W$(0) : LOCATE6 , 6
: PR IN T"FILE S (SC RE EN IMAGES) FOR
LOADIN G. THE IMA
GES OF ONE "; W$(1) ; "
OF FI LES SHO ULD CORRES PON D
TO THE TOP " ;W $(2) ;" OF THE
PRINTO UT. ",
700 LOCATE6 , 10 :PR I NT"ANOTH ER ";W
$(1) ; " SHO UL D COR RES PON D
TO THE NEXT "; W$(2); " OF THE P
RIN TOUT, ETC .": LOCATE8 , 20
: PRINT M$;: RETURN
710 CLS3 : LOCATE4 , 6: PRINT "THE LAS
T 2 CHARAC TERS OF EACH
FI LENAM E MU ST I ND ICATE WH ERE
THE SCREEN IMAGE IS TO
BE PRI NTED . FOR E
XAMPLE, Ll ";W $(3) ;" AN
D R1 ENDIN G THE FI LENAMES ": RETUR
N
720 DATA 2, 27 , 49 ,0, 0,0 ,0,0
730 DATA 5, 27 ,4 2,3 , 128 , 7,0,0 ,0,0
740 DATA 2,27,50 ,0 ,0,0,0,0
750 DATA 5, 27 , 42 , 1, 192 , 3,0, 0 ,0,0
760 CLS3 :LOCATE13 ,8: PRI NT"GRAPHI
CS MO DE": LOCATE10 , ll : PRI NT"1: 96
0 DOTS PER LIN E": LO CATE 10 ,13 : PRI
NT"2: 1920 DOTS PER LINE "
770 K$=I NKEY$ : IFK$ ="" THE N770ELS E
I FK$="2"THE NR ETU RNELSEIFK$ "1"T
HENSOU ND 60,10: GOT0 770
780 X=X-18 :FORI=0 T09 : READA : POKEX
+I, A:N EXT : POK E&H1290 , &H29 : POKE&H
129 4, &H28 :R ETU RN
NAME "I N2/B I N"TOF$+ "/HR2 " : DRIVE0 :
RETU RN
170 IF K=21T HENHPUT ( U, T)-( W-1,T+ .
5*D) , 4 : H PU T ( U, T +. 5*D)- ( W -1, T +D) ,
4: L= U: GOT065
17 1 I FK=95 THE NI=2* H+2 :HP UT(L , T) ­
( L+ 1, T+D), 1: IFL>W* . 5T HENHGETCU , T
) - ( W- I -1 , T +. 5 * D+ . 5 ) , 6 : H PUT ( U+ I , T
) - ( W -1, T +. 5*D+ . 5) , 6: HGET ( U, T + . 5*
D+ 1 . 5 ) - ( W- I -1 , T +D) , 6 : H PUT ( U+ I , T +
. 5*D+1. 5)-( W-1 , T+D) , 6: GOT0175
172 IF K=95 THE NHG ET(U +I, T) - (W-1 , T
+. 5*D+ . 5),6 :H PU T(U , T) - (W-1-I , T+ .
5 * D+ . 5 ) , 6 : H GET ( U+ I , T +. 5 * D+ 1 . 5 ) - (
W-1,T+ D) , 6:HPU T(U, T+ . 5* D+1 . 5) - (W
- 1 - I , T +D) , 6