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

275 IFK$= "0" OR K$= "o"THENCLS : LO
CATE8 ,9:PR I NT "1: SAVE SCREEN ON
DISK ": LOCATE8,10 : PRINT"2 : DIR ": L
OCATE8,11 : PRINT "3: HI C SCREEN D
UMP " : GOT0725
370 INPUT/11 ,D, S: CLOSE/11 :I FD >7 AN
D D11 AND D15T HEND=23
720 END
725 K$=INKEY$ : IFK$= ""THEN72 5E LSE
IFK$= "1"THENGOSUB25 :GOT0230ELSEI
FK$= "2"THENCLS : DIR : PRINT " P
Listing 4: HAL TE RD
18 ON ERR GOT07000
25 GOSUB820 : POKE&HFFA2 , &H70 : SAVE
M"OUTl " ,&H 4000,&H5FFF,&HAC7 3: POK
E&HFFA2 ,&H 71 : SAVEM "OUT2 '' ,&H 4000 ,
&H5BFF,&HAC73 : 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/BIN
" : POKE&HFFA2 , &H70 : LOADM " I N1 ": POK
E&HFFA2 ,&H71 : LOADM " IN2 " : POKE&HFF
A2 , &H7A
35 RENAME "IN1/BI N"TOF$+ "/HR1 " : RE
NAME " IN2/BIN "TOF$+ " /HR2 ": DRIVE0 :
RETURN
170 IFK=21THE NHPUT(U ,T)-( W-l,T+ .
5 *D ) , 4: H PUT ( U, T+ . 5 *D) - ( W- 1 , T +D) ,
4 : L=U : GOT065
171 I FK=95T HENI =2*H+2 :HPU TCL ,T )­
( L + 1 , T+D) , 1 : IF L> W* . 5TH EN H GET ( U, 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+ l . 5 ) - ( W - I -1 , T + D ) , 6 : H PUT ( U + I , T+
. 5*D+1. 5) - (W -1,T+D) , 6:GOT01 75
172 IFK=95THE NHG ET(U+I ,T)-(W -1,T
+. 5 * D+ . 5) , 6 : H PUT ( U , T) - C W- 1 - I , T +.
Listing 5: HAL TE RE
18 ON ERR GOT07000
25 GOSUB820 : PO KE&HFFA2 , &H70:SAVE
M"OUT1 " ,&H4000,&H 5FFF,&HAC73 : POK
E&HFFA2 , &H7l : SAVEM "OUT2 " , &1-14000 ,
&H5BFF,&HAC73 : POKE&HFFA2 , &H 7A: RE
NAME "OUTl/BIN "TOF$+ " /HR1 " : RENAME
"OUT 2 I BIN " TO F $+ "I H R2 " : DR IV EO : RET
URN
30 GOSUB820 : RENAMEF$+ "/HR1 "TO " IN
1/BIN ": RENAMEF$+ " / HR 2"TO " IN2/BIN
": POKE&HFFA2 , &H70 : LOADM " I N1 ": POK
E&H FFA2 , &H71 : LOADM " I N2 " : POKE&H FF
A2,&H7A
35 RENAME "IN1/BIN "TOF$+ "/HR1 " : RE
54 THE RAINBOW August 1989
RESS SPACE TO CONTINUE "ELSEIFK$=
"3"THE NDRI VE0 : RUN "DRIVERHT "ELSES
OUND60 , 3:GOT0230
726 K$=INKEY$ : I FK$= " "THEN726ELSE
230
820 GOSUB485 :CLS:LOCATE12,8 : PRIN
T" FILENAME : " ;: LINEINPUTF$:Z$=RI
GHT$(F$ , 2) : I FASC(Z$)=58THENDR I VE
VALCRIGHT$(Z$,1)) : F$ =LEFT$ (F$ , LE
NCF$)-2) :R ET URN ELSERETURN
7000 IFERLIN=2330 THEN2340
7001 IFERLI N=50T HE N60
5*D+ . 5), 6: HGET ( U+ I, T +. 5*D+ 1. 5) - (
W-1,T+D) , 6: HPUTCU,T+ . 5*D+1 . 5)-C W
-1 - I , T +D) , 6
275 IF K$ ="0" OR K$= "o"THENCLS : LO
CATE8 , 9: PRINT "1: SCREEN DUMP ": LO
CATE8 ,1 0 :P RINT "2: SAVE SCREEN ON
DI SK " : LOCATE8 , ll :P RI NT" 3: DIR " :
LO CATE8,12 : PRINT"4: HI C SCREEN
DUMP " :GO T0725
370 INPUT/1 1,D, S: CLOSE#1 : IFD >7 AN
D D11 AND D15THEND=23
720 END
725 K$=INKEY$ : IFK$= ""THEN725ELSE
IFK$= "1"THENCLS : EXEC&H1249 : GOT02
30ELSEIFK$= "2"THENGO SUB25 : GOT023
0ELSEIFK$= "3"THENCLS:DIR : PRINT "
PRESS SPACE TO CONTINUE "ELS
EIFK $="4"THENDRI VE0 : RUN "DRIVERHT
"ELSESOUND60 , 3: GOT0230
726 K$=INKEY$ : IFK$= "" THEN 726ELSE
230
820 GOSUB485 :CLS : LOCATE12 ,8: PRIN
T"FILENAME : ";: LINEINPUTF$ : Z$=RI
GHT$(F$ , 2):IFASCCZ$) =58THENDRIVE
VALCRIGHT$(Z$,1)) : F$=LEFT$(F$ , LE
NCF$)-2) : RETURNELSERETURN
7000 IFERLIN=2 33 0THEN2340
7001 IFERL IN =50T HEN60
NAME" IN2/BIN "TOF$+ " /HR2 " : DRIVEO :
RETURN
170 IFK=21T HENHPUT CU,T)-( W-1 ,T+.
5*D),4 : HPUTCU,T+ . 5*0)-( W-1 , T+D) ,
4 :L=U : GOT065
171 IFK=95 TH ENI=2* H+2 :H PUT(L ,T) ­
( L+l , T+D) , 1: IFL>W* . 5THENHGETCU, T
) - C W- I - 1 , T +. 5 * D+ . 5) , 6: H PU T ( U+ I , T
) - (W-1,T+ . 5*D+ . 5),6 : HG ETCU,T+ . 5*
D+ 1. 5)- C W-I- 1, T +D) , 6: H PU T ( U+ I , T +
. 5*D+1. 5) - (W -1, T+D) , 6: GOT0175
172 IF K=95 THE NHGET CU+I ,T> - CW-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: HP UTC U, T+ . 5*D+1 . 5)-(W
- 1 - I , T +D) , 6