& DOUBLE SIDER FOR 128 & 64 ANDE AT LEAST ONE 1571 DRIVEKo( BY ERIC MASON, PUBLIC DOMAIN‹2 FINISHED MAY 4, 1986¨<†M1$(6):I²0¤6:‡M1$(I):‚×Fƒ" SWITCH SIDES OF DISK "Pƒ" FORMAT SIDE(S) OF DISK "5Zƒ" SET OPERATION MODE "ddƒ" DISK COMMAND LINE "“nƒ" HELP/INFORMATION "Âxƒ" SELECT DRIVE (DEFAULT IS 8) "ñ‚ƒ" EXIT PROGRAM "#ŒLN$²"ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ"K–DN$²"":D²8~ ‹¸(1)³±¸(0)§C²1:þ15:×1270: C = 128 MODE FLAGžª—53281,0:—53280,15:‹C§Þ0:þ&Ü´™"“›¤ DOUBLE SIDER ›¤¤¤¤¤¤¤¤¤¤¤¤ ERIC MASON ›¤":‹C§™¾™"ž --+* PUBLIC DOMAIN *+--"/È™" ŸFOR THE COMMODORE 1571 DRIVE"<Ò™""LN$VÜ™£14)"‘³™ M E N U «"†æ™" USE THE CURSOR KEYS TO SELECT OPTION;"°ð™" USE ŸRETURN TO ACTIVATE OPTION.›"Ûú™"Ÿ";:I²0¤6:™M1$(I)"›":‚:™""LN$"" TP$²"":CO²6:I²0¤6:MI$(I)²M1$(I):‚:1150: ‘PO‰280,350,530,590,680,1040,1250q TP$²TP$ª"":MI$(0)²" SWITCH TO NORMAL (1)"µ "MI$(1)²" SWITCH TO SIDE 2 ":MI$(2)²" SWITCH TO DOUBLE-SD "ê ,MI$(3)²" MAIN MENU ":CO²3:1140:1150!6‘PO‰320,330,340,1605!@DC$²"U0>M0":1120:DC$²"U0>H0":1120:1070:‰160h!JDC$²"U0>M0":1120:DC$²"U0>H1":1120:1070:‰160‰!TDC$²"U0>M1":1120:1070:‰160À!^TP$²TP$ª"":MI$(0)²" FORMAT SIDE 1 ""hMI$(1)²" FORMAT SIDE 2 ":MI$(2)²" FORMAT DOUBLE SIDED "9"rMI$(3)²" MAIN MENU ":CO²3:1140:1150Q"|‘PO‰390,400,410,160~"†DC$²"U0>M0":1130:DC$²"U0>H0":1130:‰420«"DC$²"U0>M0":1130:DC$²"U0>H1":1120:‰420Æ"šDC$²"U0>M1":1130:‰420#¤™TP$:I²1¤4:™" ":‚5#®™TP$" PLACE BLANK DISK IN DRIVE, ENTER NAME"v#¸AA$²"":™TP$" "TP$®#™" NAME:¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ID:¤¤":™£6)"‘";:‰500Ä#Ì1100:‹A$²Ç(13)§Žù#Ö‹A$²Ç(20)¯Ã(AA$)§™"¤¤";:AA$²È(AA$,Ã(AA$)«1).$à‹Æ(A$)±31¯Æ(A$)³96¯Ã(AA$)³LN§™A$"¤";:AA$²AA$ªA$7$ê‰460n$ôLN²16:460:NM$²AA$:AA$²"":™:™£27)"‘¤";:LN²2:460¤$þ™:™" ARE YOU CERTAIN? (Y/N)":1100:‹A$³±"Y"§160Ï$DC$²"N0:"ªNM$ª","ªAA$:1120:1070:‰160%TP$²TP$ª"":MI$(0)²" 1541 MODE (SIDE1) "J%MI$(1)²" 1571 MODE, DS ":MI$(2)²" MAIN MENU "_%&CO²2:1140:1150s%0‘PO‰570,580,160”%:DC$²"U0>M0":1120:1070:‰160µ%DDC$²"U0>M1":1120:1070:‰160í%NTP$²TP$ª"":™TP$:‹C§™Ç(27)"T": WINDOW ON 128&X™" ENTER DISK COMMAND ON RED LINE;"?&b™" THE COMMAND WILL BE SENT AND THE"]&l™" DRIVE STATUS PRINTED."„&v™" PRESS ŸRETURN ALONE FOR MENU."É&€AA$²"":LN²37:™" ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤‘":™"";ã&Š460:™"":‹AA$²""§160'”DC$²AA$:1120:Ÿ15,D,15:„15,E,E$,T,S:™E;E$" T:"T" S:"S*'ž 15:‰640h'¨™"“›¤ DOUBLE SIDER ›¤¤¤¤¤¤¤¤¤¤¤¤ ERIC MASON ›¤’";:‹C§™š'²™" DOUBLE SIDER ŸLETS YOU USE THE BACKS OF"È'¼™" YOUR OLD 1541 DISKS WITHOUT RESORTING"ô'Æ™" TO A DISK NOTCHER AND INSERTING THE"(Й" DISK IN UP-SIDE-DOWN. IT MAY ALSO"K(Ú™" DOUBLE YOUR AMOUNT OF STORAGE IF YOU"x(ä™" HAVE SEVERAL 1541-FORMATTED DISKS IN"Ž(î™" YOUR LIBRARY."»(ø™" YOU CAN WORK ROUTINES LIKE THE ONES"ä(™" USED IN DOUBLE-SIDER IN YOUR OWN") ™" PROGRAMS SO YOU COULD HAVE THE PROGRAM">)™" ON ONE SIDE AND DATA FOR IT ON THE"M) ™" OTHER."Ž)*™" PROGRAM NOTES:":™" ŸWHEN FORMATTING SIDE TWO OF A 1541"½)4™" DISK, THE DRIVE WILL RATTLE ON FOREVER"ë)>™" UNLESS YOU POPPED THE DISK OUT OF THE"*H™" DRIVE; DON'T WORRY ABOUT THIS, JUST"F*R™" POP THE DISK, WAIT, AND PUT IT BACK IN"p*\™" THE DRIVE WHEN PROMPTED TO DO SO."›*f™£12)"›PRESS ANY KEY...";:1100:™"“Ÿ"É*p™" ALSO NOTE THAT THE DISK CANNOT SIMPLY"ø*z™" BE FLIPPED OVER TO USE THE OTHER SIDE;"%+„™" THE DRIVE WOULD SPIN THE DISK IN THE"S+Ž™" OPPOSITE DIRECTION. YOU MUST TELL THE"+˜™" 1571 TO USE THE BACK SIDE WITH THIS"­+¢™" PROGRAM OR SEND THE COMMAND TO SWITCH"Ü+¬™" SIDES YOURSELF (U0>H?, WHERE ? IS HEAD" ,¶™" 0 [NORMAL] OR 1). THE DRIVE WILL USE"4,À™" THE HEAD YOU SET UNTIL YOU TELL IT"a,Ê™" OTHERWISE OR A RESET OCCURS (YOU CAN",Ô™" ALSO JUST TURN THE DRIVE OFF & ON)."º,Þ™" THERE ARE PROBABLY SEVERAL WAYS YOU"å,è™" CAN USE BOTH SIDES OUTSIDE THE ONE" -ò™" OUTLINED EARLIER... EXPLORE.";-ü™" --------------------------------------"h-™£10)"›ANY KEY FOR MENU...":1100:‰160¬-™TP$"":™" DRIVE NUMBER WAS"D"; ENTER NEW: ¤¤¤ ";Ù-AA$²"":LN²2:460:D²Å(AA$):‹D³8°D±15§1040â-$‰160..FL²0:Ÿ15,D,15:„15,E,E$,T,S: 15:‹E²0§1110A.8™"“–"£15)"DISK ERROR:":™ E;E$" ŸT:"T"ŸS:"S\.B™" ŸPRESS ANY KEY..."p.L¡A$:‹A$²""§1100v.VŽ.`Ÿ15,D,15,DC$: 15:ŽÌ.j™TP$" IF DRIVE RATTLES, POP DISK OUT. ":‰1120ü.t™TP$"Ÿ";:I²0¤CO:™MI$(I)"›":‚:™""LN$"":Ž/~PO²0/ˆ¡A$:‹A$²""§1160E/’‹A$²""¯PO³CO§1220:PO²POª1:1210:‰1160p/œ‹A$²"‘"¯PO±0§1220:PO²PO«1:1210:‰1160ˆ/¦‹A$²Ç(13)§PO²POª1:Ž˜/°™"";:‰1160©/º™"Ÿ";:‰1230´/Ä™"’›";Ô/ΙTP$;È(DN$,PO);MI$(PO)"":ŽÚ/Ø€é/â™"“";:œ:€0ì TRAPPED LINE: (128 MODE)0öÖ ‚