BOB KOBER 03/24/89j‹¸(0)³±¸(1)§‹Â(215)§™"“"£100)"SWITCH YOUR MONITOR TO 40 COLUMN MODE":ž65375…™"“":—53281,0:™Ç(142)²(™¦6)"THIS PROGRAM WILL CHANGE THE"×2™¦8)"HEADER NAME OF A DISK !" <…" IN DRIVE NUMBER ’ 8";DR" FŸ9,0:Ÿ15,DR,15:—53280,14E PHI%²42729­256:LO²42729«HI%¬256v Z˜15,"M-R"Ç(LO)Ç(HI%):¡#15,A$:A$²È(A$ªÇ(0),1)† d‹A$²"8"§120¹ n™£48)"DRIVE #"Ê(Ä(DR),1)" IS –NOT A 1581":€ê x—53281,15:™"“":MD$²"":I²1¤20:MD$²MD$ª"":‚ ‚I²1¤39:BL$²BL$ª" ":‚/ ŒP0$²"“ DISK NAME CHANGE"W –RE$²" PRESS RETURN’"t  ƒ2,OUT OF RANGE,TOO LONG” ª‡A:†EM$(A):I²1¤A:‡EM$(I):‚ž ´‰300 ³ ¾„15,E,EM$:‹E²0§Žñ È™MD$" DISK ERROR!’":™" #"E" "EM$þ Ò 2: 15:€ Ü„9,Q$:™:Q1$²È(Q$,1):Ž% æ 2: 15:€< ð™È(MD$,MD)BL$:™BL$N ú™È(MD$,MD);:Ž] MD²21:240Œ ™"  UNACCEPTABLE ENTRY -- "EM$(EM)¢ ™RE$"›":220:240¨ "Žµ ,F²0:™P0$¾ 6DV²0Ö @‹DV²0¯Q1$³±"0"§EM²1ÿ J™P0$:™¦8)"PLACE DISK IN DRIVE"DR""$ T™RE$"›":220:™£54)" WORKING. "; ^˜15,"I"ªÄ(DV):190f hŸ2,DR,2,"#":˜15,"U1:2";DV;",40,0":190„ r˜15,"B-P:2,4":190:DN$²""¤ |I²1¤16:¡#2,A$:DN$²DN$ªA$:‚¸ †MD²10:240:‹F§ŽÞ ™¦8)"THE PRESENT DISK NAME IS"ú š™""£20«Ã(DN$)­2)DN$ ¤MD²132 ®™¦5)"DO YOU WISH TO CHANGE IT? (Y/N) "T ¸¡K$:‘«(K$²"")‰440:‹K$²"Y"§460] ‰230g ÌMD²16¦ Ö™¦10)"ENTER NEW DISK NAME":™¦9)"LIMIT TO 16 CHARACTERS"Ú à™£52);:220:‹Ã(Q$)±16§™£52)"NAME TOO LONG":‰460ð êNDN$²È(Q$ªBL$,16)ÿ ôMD²21:240þDQ$²"SHALL I SEND "ªNDN$4™£20«Ã(DQ$)­2)DQ$e™"TO THE DISKETTE IN DRIVE"DR"? (Y/N) "ˆ¡A$:‘«(A$²"")‰540:‹A$³±"Y"§460§&MD²21:™¦14)" WORKING..."¾0˜15,"B-P:2,4":190Ð:˜2,NDN$;:190ïD˜15,"U2:2";DV;",40,0":190 N˜15,"I"ªÄ(DV):190: 2 XF²1:™P0$:350 :F²0@b™¦10)"THE NEW DISK NAME IS"[l™""£20«Ã(DN$)­2)DN$mv 2:MD²21:240’€™¦8)"ANOTHER DISKETTE? (Y/N) "´Š¡K$:‘«(K$²"")‰650:‹K$²"Y"§330½”‰230