n INFOCOM KEYS AND 128 MODIFICATIONS GARY STAGLIANOS MODIFICATIONS OF A PROGRAM BY RUSS CURTIS AND ZORKtd:nES$(27): ESCAPExCL$(147): CLEAR SCREENLF$(157): CURSOR LEFTRE$(13): RETURN DU$"": DISK NUMBER/QT$(34): QUOTATION MARK5:Q%: 1000:  0,0,79,24" WHAT WHERE N E S W NE NW SW SE UP DOWN IN OUT ENTER EXIT ";"BRIEFRESTARTRESTORESAVESCORESCRIPTUNSCRIPTVERBOSEVERSIONWAIT";"F1 LOOK F2 INVENTORY F3 DIAGNOSE F4 EXAMINE F5 TAKE F6 DROP F7 ATTACK F8 AGAIN" 2000: COPY THE BOTTOM 3 LINES OF THE NORMAL SCREEN INTO THE NEW LINES NUMBER 26 - 28.:, 1,"LOOK"6 2,"INVENTORY""@ 3,"DIAGNOSE"4J 4,"EXAMINE"CT 5,"TAKE"R^ 6,"DROP"ch 7,"ATTACK"sr 8,"AGAIN"y: === REDEFINE THE RUN/STOP KEY ===Y0: X0 7:YY(4096X):: CALC WHERE RUN DEF STARTS RU$RE$"QUIT"RE$: CREATE RUN KEY COMMAND STRINGY LR(RU$): 4104,LR: POKE LENGTH OF NEW RUN STRING INTO PLACE  X1 LR: 4105YX,((RU$,X,1)):: POKE NEW RUN STRING INTO POSITION &HL$"HELP"RE$: RECREATE NORMAL HELP STRING 0LH (HL$):YY(4104)!: X1 LH: 4105YX,((HL$,X,1)):!D X4096 4351: X2800,(X):: === STUFF KEY DEFINITIONS OFF TO AN AREA OF MEMORY WHERE THEY MIGHT BE RETRIEVED IF NECESSARY ===!X 3000!b" *** SET UP LARGER SCREEN, AND MOVE ATTRIBUTE MEMORY TO ACCOMMODATE ***D"WR("CDCC"): ROM WRITE ROUTINE C/O VDC REGISTERS, AT 52684"RR("CDDA"): ROM READ ROUTINE C/O VDC REGISTERS, AT 52698" WR,16,20: SEND VDC REG. 20 NEW ATTRIBUTE START HI; LO STAYS SAME, 00# 2607,16: ALSO UPDATE THIS SPOT WITH NEW ATTIBUTE START HI# WR,30, 7: CHANGE VDC REGISTER 7 TO MOVE THE SCREEN DISPLAY UP SLIGHTLY, ALLOWING BETTER BOTTOM LINE VISIBILITY $$ WR,28, 6: NOW CHANGE TO 28 LINES IN VDC REGISTER 6 ==== CHANGE THE 28 TO THE TOTAL SCREEN LINES YOUR SYSTEM CAN SUPPORT ====$.$8:Q$ RR,,24: R0: GET CURRENT VALUE OF VDC REGISTER 24$R1R0 128: SET BIT 7 TO ENABLE VDC BLOCK-COPY MODE$ WR,R1,24: WRITE THE MODIFIED REG. 24 VALUE BACK TO VDC% ***************************************************************U% *** COPY THE TEXT WRITTEN TO LINES 23-25 OF NORMAL SCREEN, ***% *** TO THE NEW/FIXED LINES 26-28 THAT ARE INDEPENDENT. ***%  ****************************************************************&HI (2000256):LO 2000HI256: DETERMINE COPY-DESTINATION BYTESt&  WR,HI,18: WR,LO,19: STORE THE DESTINATION BYTES TO VDC REGS.18/19&*HI (1760256):LO 1760HI256: DETERMINE COPY-SOURCE BYTES&4 WR,HI,32: WR,LO,33: STORE THE SOURCE BYTES TO VDC REGS.32/338'> WR,240,30: COPY THE TEXT INTO OUR EXTRA LINES 26-28~'H ***************************************************************'R *** COPY ATTRIBUTES WRITTEN TO LINES 23-25, NORMAL SCREEN, *** (\ *** TO THE NEW/FIXED LINES 26-28 THAT ARE INDEPENDENT. ***P(f ***************************************************************(pHI (6096256):LO 6096HI256: DETERMINE COPY-DESTINATION BYTES(z WR,HI,18: WR,LO,19: STORE THE DESTINATION BYTES TO VDC REGS.")HI (5856256):LO 5856HI256: DETERMINE COPY-SOURCE BYTESb) WR,HI,32: WR,LO,33: STORE THE SOURCE BYTES TO VDC REGS.) WR,240,30: COPY THE TEXT INTO OUR EXTRA LINES 26-28):) WR,R0,24: RESTORE ORIGINAL REGISTER 24 VALUE BACK TO VDC)* : THIS PART SETS UP THE 128 KERNALD* " ":"NSERT DISK, HIT ";Y$M*  1l* I0 35: A: 628I,A:* I("FF81") ("FFF3") 3* I,32: I1,116: I2,2* :"GAME"*  15: 792,51: 793,255: 248,64: ("FF68"),1,1+  1: 825615(+ 141,152,2,8,104,141,153,2,169K+& 0,141,0,255,104,56,233,2,141p+0 146,2,104,173,153,2,72,173,152+: 2,40,32,129,255,141,2,255,96