Sayfa 31

2 İNPUT" NEW TAPE HEADER"; AK$ 3 IFAK$#-"Y"THENİ00O 4 END 5 ORİGİNAL TAPE İN DRİVE": ,PEEK(1)AND223 TAPE LOAD... WHEN FOUND MESSAGI THEN ENTER 1,11 (831) (832) *256) *PEEK (831) :

SIDAC (C)B4 VENZ" TAPE EPRE! ,PEEK (1) OR3 PLAY 5 İNPUT" INPUT FİLENAME" ş : POKE2Sİ ,NL 8YS8008: 5YSB103 OF p INPUT" SBAVE ON T/D"şCK$: DİSK TO COPY O AH: POKEB29 , Al 75,BH:POKE174,BL * ROUTİNİ ,PEEK (1) AND: WHEN Ri 30 GETA$: 130 O PLAY AND RECORDE ,PEEK (1) ORZ2 FOR HİT WHEN READY"

8 F7 WHEN DONE"

3 — "şODEPRİNT"ŞORİGİNAL ENDİNG ADDRESS — T"THENB WHEN READY" : , Br POKEBO49 GOTO9 BH: , BL : POKE254 , AH: POKE2SE, AL

TO REPLACE TAPE HEADER *" RIİNT" 9 TAPE TO EXACT BEGİNNİNGE"

O 5YS8043 O DİSK-EDİTÖR TÜ LOAD TÜM ADDRI

READY.

TMACURCUN

İF 5 LDR A5 85 Lim FF İSE e LDA 4FE 1F56 . LDX #441 (20 1 . #203 Eğ .206 BD FF 4FFBD - 65 GÖ LDR 1FSF FD LDX $FD 1FEL AS FE — LDY (29 1F63.&0 D5 FF 1F66 AB İF JSR “50 RTS 1FSA ERK > SR $1F95 1FEE . LDA #401 4301 Bö > #SFF A5 - 1F7? LDA $FB 2D 1F79 . LUX #$Bİ 1FTB 2 LDY #302 D9 -28 EN FF JSR 4FFBD