‹A²0§A²1:“"TMACHRELO",8,17—53280,11:—53281,11e™" TRELO/LOADER PSIDAC (C)84 VBN":™"":‰15¤™"PUT CPY TAPE IN DRIVE - SET FOR  RECORD’":™"PRESS F7"´ ¡A$:‹A$""§9ä ™"SAVING ";NF$;" FROM ";BG;" TO ";EA:ž8043 ‹CK$²"D"§Ÿ15,8,15:„15,A$,B$,C$,D$:™""A$,B$,C$,D$: 15P —8047,1:—8049,1:…"MAKE NEW TAPE HEADER";AK$a ‹AK$²"Y"§100t ‹CK$²"D"§200:€¥ ™"PLACE ORIGINAL TAPE IN DRIVE":—1,Â(1)¯223Õ ™"PERFORM TAPE LOAD... WHEN FOUND MESSAGE" ™"APPEARS, žRUN/STOP THEN ENTER žRUN25":€, —52,20:—56,20:—53280,11:—53281,11X AH²Â(830):AL²Â(829):BH²Â(832):BL²Â(831)“ OD²(Â(830)¬256)ªÂ(829):OE²(Â(832)¬256)ªÂ(831):BY²OE«OD° BG²32¬256:—254,32:—253,0Ö ™" TRELO/LOADER PSIDAC (C)84 VBN" —1,Â(1)¯223:™"REWIND TAPE ’PRESS F7 WHEN DONE" !¡A$:‹A$""§33: "—1,Â(1)°32:™"PRESS PLAY "o #…"INPUT EXACT’ FILENAME";NF$:NL²Ã(NF$):—251,NL (ž8008:ž8103  -™"# OF BYTES="BY;"":EA²BGªBYê 2™"ORIGINAL STARTING ADDRESS = ";OD:™"ORIGINAL ENDING ADDRESS = ";OE 7…"SAVE ON T/D";CK$:‹CK$²"T"§8I <™"PREP DISK TO COPY - F7 WHEN READY":—8047,8:—8049,8:‰9} d—830,AH:—829,AL:—832,BH:—831,BL:—254,AH:—253,AL‘ i—175,BH:—174,BL¾ s™"“ * ROUTINE TO REPLACE TAPE HEADER *"ô x—1,Â(1)¯223:™" REWIND TAPE TO EXACT BEGINNING’" }™"F7 WHEN READY!" ‚¡A$:‹A$""§ 130J Œ™"“PRESS PLAY AND RECORD’":—1,Â(1)°32‘ –™"“TIME FOR EXACTLYž 13.1 SECONDS.....":™"THEN HIT RUN/STOP’"§  ™"F7 WHEN READY"¹ ª¡A$:‹A$""§170à ´ž8043ó È™"USE DISK-EDITOR TO RESET LOAD TO ADDRESS"