Untitled - TRS-80 Color Computer Archive

THEN PRINT IN?iPRINTM{UP][5 RIGHT}";GC 450 FOR 1=0 TO 24 STEP 3:B$=S?:FOR J=l TO 2:IF F THEN B$=MID$(IN$,I+J,1)HA 460 PRINT"[RVS}"B?L$;:IF I"/"ANDA$"@"ANDA$EA THEN CLOSE3:PRINT"{DOWN}{BLU}** END OF ENTRY **{BLK}{2 DOWN]":GOTO700F=0:GOTO440PRINT"{CLR]{DOWN]{RVS]I SPACE)DISPLAY DATA ":GOSUB400:IF IN?=N$ THEN220PRINT"{DOWNj{BLU}PRESS:tRVS}SPACE{OFF} TO PAUSE, {RVS}RETURN{OFF} TOKS 630 GOSUB360:B=BS+AD-SA:FORI=BTO B+7:A=PEEK(I):GOSUB350:GOSUB380:PRINT S$CC 640 NEXTjPRINT"{RVS}";:A=CK:GOSUB350:PRINTKH 650 F=l:AD=AD+8:IF AD>EA THENPRINT"{DOWN]{BLU}** END OF DATA **":GOTO220KC 660 GET A$:IF A$=R? THEN GOSUB1080:GOTO220EQ 670 IF A§=S$ THEN F=F+1:GOSUB1080AD 680 ONFGOTO630,660,630CM 690 PRINT"{DOWN][RVS] LOADISPACEjDATA ":OP=1:GOTO710PC 700 PRINT"{DOWN]{RVS] SAVE1 SPACE}FILE HiOP=0RX 710 IN?=N$iINPUT"[DOWN]FILENAMEg43"?IN$:IF IN$=N${SPACE}THEN220PR 720 F=0:PRINTH{DOWN}lBLK]{RVS]T{OFF}APE OR {RVS]D{OFF}ISK: 643";FP 730 GET A$:IF A$="T"THEN PRINT"T[DOWN]":GOTO880HQ 740 IF A$"D"THEN730HH 750 PRI NT "D{ DOWN} ":OPEN.15,8,15,"10:H:B=EA-SA:IN?="0:"+IN?:IF OP THEN810SQ 760 OPEN l,8,8,IN$+",p,W":GOSUB860:IF A THEN220FJ 770 AH-INT(SA/256):AL=SA-(AH*256):PRINT#1,CHR$(AL);CHR$(AH);PE 780 FOR 1=0 TO B:PRINT#1,CHR${PEEK(BS+I));:IF ST THEN800FC 790 NEXT:CLOSE!:CLOSE15:GOT0940GS 800 GOSUB1060:PRINT"[DOWN}{BLKjERROR DURING SAVE:§4§":GOSUB860:GOTO220MA 810 OPEN 1,8,8,IN?+",P,R":GOSUB860JIF A THEN220GE 820 GET#1,A$,B?:AD=ASC(A$+Z$)+256*ASC(B$+ZS)iIF ADSA THEN F=1:GOTO850RX 830 FOR 1=0 TO B:GET#l,A$tPOKE BS+I,ASC(A?+Z?)iIF(IB)AND ST THEN F=2:AD=I:I=BFA 840 NEXT:IF ST64 THEN F=3FQ 850 CLOSE!:CL0SE15:0N ABS(F>0)+l GOTO960.970SA 860 INPUT#15,A,A$:IF A THENCLOSE1 ICLOSE.15 [GOSUB1060:PRINT"{RVS]ERROR: "A$GQ 870 RETURNEJ 880 POKE183,PEEK(FA+2):POKE187,PEEK(FA+3):P0KE188,PEEK(FA+4)iIFOP=0THEN920HJ 890 SYS 63466:IF(PEEK(783)AND1)THEN GOSUB1060:PRINT"{DOWN]{RVS} FILE NOT[SPACE]FOUND ":GOTO690CS 900 AD=PEEK(829)+256*PEEK(830)iIF ADOSA THEN F=l:GOTO970SC 910 A=PEEK(831)+256*PEEK{832)-liF=F-2*(AEA):AD=A-ADiGOTO930KM 920 A=SA:B=EA+1:GOSUB1010:POKE780,3:SYS 63338JF 930 A=BS:B=BS+(EA-SA)+1 jGOSUB1010:ON OP GOTO950:SYS 63591AE 940 GOSUB1080:PRINT"(BLU}**SAVE COMPLETED **":GOT0220XP 950 POKE147,0:SYS 63562:IF{SPACE}ST>0 THEN970FR 960 GOSUB1080:PRINT"{BLU}**LOAD COMPLETED **":GOT0220DP 970 GOSUB1060:PRINT"tBLK}{RVSjERROR DURING LOAD:(DOWN}E43":ON F GOSUB980,990,1000:GOTO220PP 980 PRINT"INCORRECT STARTING ADDRESS (";:GOSUB360:PRINT")":RETURNGR 990 PRINT"LOAD ENDED AT "j:AD=SA+AD:GOSUB360:PRINTD$!RETURNFD 1000 PRINT"TRUNCATED AT ENDINGADDRESS":RETURNRX 1010 AH=INT(A/256)iAL=A-(AH*256):POKE193,AL:POKE194, AHFF 1020 AH=INT(B/256):AL=B-(AH*256):POKE174,AL:POKE175,AH:RETURNFX 1030 IF ADEA THEN1050HA 1040 IF(AD>511 AND AD49151 AND AD niooucu fouk comivutioki orHUUHItS TO CHOOM fflOM.■ *.N* ILtCUIl Of ■ULS.O UNO HUHXn C ' HU PKOOIUintED.. PWHTf OUT P*II LOTTO HWrttMOMWN.PUT COUPUIIH riC" JEIPHER..1M0 HUHBIK DIUWrmaucHCT i i-.i. IMKDOU HIiaK* OI««MTO« IMCIJMDStreil"WindowHl-SESOLLTION DRAWING IN MULTI OB MONO COLORCOM ■ HMKXt. PIP. UO KWUM miOOWlflu. ■ BOH! •"■■■■ * -■'-■- TO -■--*.! VIILIB(, . UVf UO lO'D rou« MBIW OH P1Inu« ■ mm on iiuiDMB ooi mim mm*co.oa >ouu» ■ aon sjio> «"■ n-'tiTTtU L 1111 HI UO Wl";iF^'^i.lilH^IKi'":.' tMlfeNK JU(D"OTATI.TMfHlt*¥HIOOU PLOI-DMW OK W HfUMO H1HOOH »hD tcl« Dun■uat j*STOCKPROFITS CLARANTf:tD ORYOL'R MONEY BACK■HIM OOOO MUJIt. KOUTU ItHJfi AMIUHM TMi TUMI trim KU HAVE 10U niLL'MVUTED AT Tt