KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK ‹EN²0§Ž´™"ERROR STATUS:";EN;EM$;ET;ES2¾…"CONTINUE?";Y$:‹Y$²"Y"§Ž8ÈVÊ ***********************tÌ * SET TRACK & SECTOR *’Î ***********************³Ò‹F³358§F1²0:F2²22:F3²1:‰5370ÝÜ‹F±357¯F³472§F1²357:F2²20:F3²19:‰5370æ‹F±471Kì ***********************' ñ * FDD BLOCK READ *E ô ***********************O ö5330i ˜15,"U1:";CH;FD;FT;FS~ ˜15,"B-P:";CH;FPˆ 5270• FI²1¤FX¦ („CH,FB$(FI):¬ <‚² FŽÐ P ***********************î Q * FDD BLOCK WRITE KKKKKKK‡¯F³580§F1²471:F2²19:F3²25:‰5370%ð‹F±579§F1²579:F2²18:F3²31DúFT²µ(((F«F1)«1)­(F2«1))ªF3eFS²F«F1«(FT«F3)¬F2ª(FT«F3«1)kŽwŒŽ•– ***********************³› * ERROR CHECK *Ñž ***********************æ „15,EN,EM$,ET,ESòªK * R ***********************Z5330+d˜15,"B-P:";CH;FPMnFI²1¤FX:˜CH,FB$(FI);Ç(13);:‚gx˜15,"U2:";CH;FD;FT;FSq‚5270wŒŽ•– ***********************³› * ERROR CHECK *Ñž ***********************æ „15,EN,EM$,ET,ESòªKKKKK $²A$ª":"- à I²0 ¤ 15:N²Æ(A$(I)): 790:‹ Z$²"N"§ J²40:‰ 571I âC$²A$(I): 850:B$²B$ªC$Q ä‚ Ii æ‹ JJ$²"P" § ˜4,A$B$v è‚ J:‰571š ;******************************¾ <* NEXT TRACK AND SECTOR *â =****************************** ?™"NEXT   ***********************= * RANDOM FILE EXAMPLE *[ ***********************|†I$(664):FD²0:FX²5:CH²2:FP²1™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"¸™" INSERT DATA SHEET"Õ™"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"ò™" START PRESS 'S'"¡P$:‹P$  ¸ I²K ¤ 3' º¡#2,A$(I):‹ A$(I)²"" § A$(I)²NL$H ¼‹ K²1 ¯ I³2 § NB(2)²Æ(A$(I))T ¾‚ I:K²0{ ÀA$²"":B$²":":N²J¬4: 790:A$²A$ª":"š  I²0 ¤ 3:N²Æ(A$(I)): 790¶ ÄC$²A$(I): 850:B$²B$ªC$Ð Æ‚ I:‹ JJ$²"S" § ™A$B$Ý Ê‚ J:‰571 Ì*************** "I;:I$(I)²"/"-™I$(I):‚:‰507.Ÿ5,8,5,"0:INDEX,S,R"M/I²1¤664:„5,I$(I)z0™"WAIT! "I;I$(I)„1‚I: 5¤2™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"Á4™" JOB MENU "ß6™"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"å8™ú:™" 1=CREATE"$U‹ JJ$²"P" § ˜4:˜4,"TRACK"T" SECTOR"S:˜4?^˜15,"U1:2,"D$;T;S:650ch******************************‡r* READ BYTE 0 OF DISK BUFFER *«†******************************½˜15,"B-P:2,1"Óš˜15,"M-R"Ç(0)Ç(5)ö¤¡#15,A$(0):‹A$(0)²""§A$(0)²NL$**************'h™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"Ci™"  MASTER FILE CREATE"aj™"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"|k…"RECORD NO. = 0";FŠm‹ F²0§170§n…"NAME =.";FB$(1)Äx…"ADDRESS =.";FB$(2)á‚…"ZIP =.";FB$(3)þ„…"TEL =.$ª""ªÇ(I)ª"’":‚ I!ð† A$(15),NB(2),ûD$²"0"[ý™" S’CREENOR P’RINTER"rþ¡JJ$:‹ JJ$²"" §254•ÿ‹ JJ$²"S"§™" SCREEN’"¹‹ JJ$²"P"§™" PRINTER’"ÓŸ15,8,15,"I"ªD$: 650Ü Ÿ4,4òŸ 2,8,2,"#": 650**628 ° Æ(C$)±159 § Ž˜C$²Ê(SS$,3¬(Æ(C$)«127),3):Ž 7504ø‹ Z$²"N" § ŽH‹ Z$³±"Y" § 750i ™"“TRACK" T " SECTOR"S "“":Ž******************************± * DISK BYTE TO HEX PRINT *Õ*******************************ø4A1²µ(N­16):A$²********* ä™"CONTINUE(Y/N)"#î¡Z$:‹ Z$²"" § 7504ø‹ Z$²"N" § ŽH‹ Z$³±"Y" § 750i ™"“TRACK" T " SECTOR"S "“":Ž******************************± * DISK BYTE TO HEX PRINT *Õ*******************************ø4A1²µ(N­16):A$²***********************, Ò™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"H Ô™" MASTER FILE DELETE"h Ö™"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ":™ƒ Ü…"RECORD NO. = 0";F æ‹F²0§260¤ ë‹I$(F)³±"1"§220Ë ðI$(F)²"/":™"RECORD NO."F;"DELETE"Ô ú‰220î Ÿ5,8,5,"@0:INDEX,S,W" TRACK AND SECTOR"NB(1)NB(2) ""6 D™"DO YOU WANT NEXT TRACK AND SECTOR"L N¡ Z$:‹ Z$²"" §590p X‹ Z$²"Y" § T²NB(1):S²NB(2):‰330ƒ b‹ Z$²"N" § 320 l‰ 590± v******************************Õ €* SUBROUTINES *ù Š*****************³±"S"§26#Ÿ15,8,15,"I0":Ÿ2,8,2,"#"C™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"_ ™"INDEX FILE OPERATION"}"™"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"¡$…" NEW SHEET? N";O$:™""°&‹O$²"N"§46À(‹O$³±"Y"§36Ü*™:™" WAIT!":I²1¤664 ,™" ***************% Î* READ & PRINTER DISPLAY *I Ð******************************` ÒK²1:NB(1)²Æ(A$(0))o Ô J²0 ¤ 15~ Ö I²K ¤ 15£ Ø¡#2,A$(I):‹ A$(I)²"" § A$(I)²NL$Ä Ú‹ K²1 ¯ I³2 § NB(2)²Æ(A$(I))Ð Ü‚ I:K²0ø ÞA$²"":B$²":":N²J¬16: 790:A<™" 2=DELETE"$>™" 3=SEARCH"6@™" 0=END"<A™[B…"1 , 2 , 3 , 0 1";O$sD‹O$²"0"§ 15: 5: 2:€ƒF‹O$²"1"§104“H‹O$²"3"§300£J‹O$³±"2"§50¬L‰200Êd ***********************èf * MASTER FILE CREATE *g ********* ¬‹ JJ$²"S"§430 ®‹ JJ$²"P"§460> ¯******************************b °* READ & CRT DISPLAY *† ±* REST OF THE DISK BUFFER *ª ²******************************Á ´K²1:NB(1)²Æ(A$(0))ô ¶ J²0 ¤ 63:‹ J²32 § 710:‹ Z$²"N"§ J²80:‰ 458 ";FB$(4) †…"COMMENT =.";FB$(5)% Œ52003 –I$(F)²"1"<  ‰104V ªŸ5,8,5,"@0:INDEX,S,W"s ¯I²1¤664:˜5,I$(I);Ç(13);  ´™"WAIT! "I;I$(I)© ¹‚: 5± ¾‰74Ï È ***********************í É * MASTER FILE DELETE * Ê ****************************:"* LOAD TRACK AND SECTOR *^,* INTO DISK BUFFER *‚6******************************ž@…"TRACK, SECTOR";T,SÎJ‹ T²0 ° T±35 § ˜15,"I"D$: 2: 4: 15:™"END":€øT‹ JJ$²"S" § ™"TRACK"T" SECTOR"S""ÄÄÄÄÄÄÄÄÄÄÄ":™ @…"RECORD NO. = 0";F% A‹F²0§509 B‹I$(F)³±"1"§320C E5100] h™"NAME    = ";FB$(1)w r™"ADDRESS = ";FB$(2)‘ |™"ZIP    = ";FB$(3)« ~™"TEL    = ";FB$(4)Å ™"COMMENT  = ";FB$(5)â ™"---------------------"ë †‰320 A$ªÊ(HX$,A1ª1,1)>A2²µ(N«16¬A1):A$²A$ªÊ(HX$,A2ª1,1).HA$²A$ªSP$:ŽRR******************************v\* DISK BYTE TO ASC DISPLAY *šf* CHARACTER *¾p******************************Øz‹ Æ(C$)³32 § C$²" ":ŽøŽ‹ Æ(C$)³1I²1¤664:˜5,I$(I);Ç(13);6 ™"WAIT! "I;I$(I)? ‚: 5G ‰50e , ***********************ƒ - * FILE SEARCH *¡ . *********************** 6™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"Þ 8™" SEARCH "þ :™"ÄÄÄÄÄÄÄÄÄÄÄ*************”* ERROR ROUTINE *Až******************************a¨„15,EN,EM$,ET,ES:‹ EN²0 § Ž²™"DISK ERROR’"EN,EM$,ET,ES‡¼€«Æ******************************ÏÐ* SCREEN CONTINUE MESSAGE *óÚ********************* d—59468,129n™"“DRIVE ADDRESS CHANGE PROGRAM"Yo™"TURN OFF ALL DRIVES NOW"~p™"EXCEPT THE ONE TO BE CHANGED." x™"OLD DEVICE ADDRESS 8";¿‚… OD: ‹ OD³8 ° OD±15 ‰ 120ጙ"NEW DEVICE ADDRESS 9";–… ND: ‹ ND³8 ° ND±15 ‰ 1  Ÿ2,8,15™"“":‰ 10000. Ÿ1,8,0,"$0"<¡#1,A$,B$J¡#1,A$,B$X(¡#1,A$,B$`2C²0w<‹ A$³±"" § C²Æ(A$)”F‹ B$³±"" § C²CªÆ(B$)¬256¯P™""Ê(Ä(C),2);£3);"’";ÉZ¡#1,B$:‹ ST³±0 § 1000Þd‹ B$³±Ç(34) § 90n¡#1,B$:‹ B$³±Ç(34)§ ™B$;:‰1 ²"":™">";«¡B$:‹B$²"" §40115¬™B$;:‹ B$²Ç(13) § 4020I­C$²C$ªB$:‰ 4011S´˜2,C$]ˆ™"";~’¡#2,A$:™A$;:‹ A$³±Ç(13)‰5010‡œ™"’"›'™ "D-DIRECTORY"²'™ ">-DISK COMMAND"É$'™ "Q-QUIT PROGRAM"à.'™ "S-DISK STATUS "õt'¡A$:‹A$²""§10100Ø' (d ********************************Oe * VIEW BAM FOR VIC & 64 DISK *vf ********************************ƒiŸ15,8,15¯n˜15,"I0":NU$²"N/A N/A N/A N/A N/A":Z4²1¾xŸ2,8,2,"#"á‚Y$²""ŒX$²"‚:™"“"Y²22:X²1:4308"I²0¤20:™:™"‘‘"É(Ä(I)ª" ",3);:‚E,T²18¤35N6450j@Y²22:X²T«13:430:540:‚zJI²1¤1000:‚ˆT™"“"œ^˜15,"B-P";2;144ÀhN$²"":I²1¤20:¡#2,A$:N$²N$ªA$:‚ár™" "N$" "TS«17;"BLOCKS FREE"ñ|I²1¤4000:‚ú†™"“"<ð äÿðèÉ Ðä äÿðûÐÝ© Òÿ ÐÏ Ìÿ© ÃÿhhLgä©  ºÿ©¦+¤, ÕÿL•áªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªSB(2)²Æ(A$) Ž%™""É(Ä(T),1);"‘‘";[& PRINTT" "SC" "SB(0)" "SB(1)" "SB(2)=CHR$(0)~0‹T±24¯S²18§:™Ê(NU$,Z4,1);:‰660Š:S²0¤20˜D‹T³18§620»N‹T±30¯S²17§:™Ê(NU$,Z4,1);:‰660ÞX‹T±24¯S²18§:™Ê(NU$,Z4,1);:‰660 b‹T±24¯S²19§™Ê(NU$,Z CHECK DISK -- VER 1.4=DN²8: FLOPPY DEVICE NUMBERk†T(100):†S(100): BAD TRACK, SECTOR ARRAYŒ ™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"§ ™" CHECK DISK PROGRAM"Ä ™"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"ÏD$²"0"ÝŸ15,DN,15ë#˜15,"V"D$ü-N%²»(TI)¬255%øZB²1 § 440®‹ ST § 1000E¸˜15,"M-R"Ç(172)Ç(16):¡#15,ZC$:ZC²Æ(ZC$ªÇ(0))f‹ ZC²1 § MT²12: : 8050 V2.7‡Ì‹ ZC²2 § MT²12: : 8250 V2.7ÖŽ X 15: Ÿ15,OD,15Ëb˜15,"M-W"Ç(MT)Ç(0)Ç(2)Ç(NDª32)Ç(NDª64)ÑvŽèè™" DEVICE ERROR "îò€‹ ST § *‡™" TRACK "T;" SECTOR "S"‘‘"?Œ„15,EN,EM$,ES,ETM–‹ EN²0§85e T(J)²T:S(J)²S:J²Jª1¥™"BAD BLOCK:",T;S""‰ª‰85—Ș15,"I"D$ Ò900§Ô 2Ê׋J²0§™"NO BAD BLOCKS!":€ÚÙŸ2,DN,2,"#"ÿÚ™"BAD BLOCKS","TRACK","SE40  300: FIND DRIVE TYPE9ª 600: CHANGE ADDRESSh´™"THE SELECTED DRIVE HAS BEEN CHANGED..."Ž¹™"NOW TURN ON THE OTHER DRIVE(S)"”¾€¯,: IDENTIFY DRIVE TYPEÁ6 15:Ÿ15,OD,15ð@˜15,"M-R"Ç(255)Ç(255):¡#15,C$:C²Æ(C$ªÇ(0))J‹ ST § 10x¡#1,B$:‹ B$²Ç(32) § 120.‚™ £18);:C$²""RŒC$²C$ªB$:¡#1,B$:‹ B$³±"" § 140b–™""È(C$,3)} ¡ T$:‹ T$³±"" § 2000ª‹ ST²0 § 30¡è™" BLOCKS FREE"°ò 1:‰ 10000ÄЋ T$²"Q" §  1:€ÜÚ¡ T$:‹ T$²"" § 2000âäŽõ  DISK COMMANDªC$h‹ A$²"D" § 10-<(‹ A$²"." ° A$²">" ° A$²">" § 4000>F(‹ A$²"Q" § €RP(‹ A$²"S" § 5000^÷*‰ 10100 ¡ T$:‹ T$³±"" § 2000ª‹ ST²0 § 30¡è™" BLOCKS FREE"°ò 1:‰ 10000ÄЋ T$²"Q" §  1:€ÜÚ¡ T$:‹ T$²"" § 2000âäŽõ  DISK COMMANDªC$".–– ¥S(Z) ² 2®(S«µ(S­8)¬8) ¯ (SB(µ(S­8)))E ˜15,"U1:";2;0;18;0Wª˜15,"B-P";2;1a´™"“";s¾Y²22:X²1:430—ÈI²0¤20:™:™"‘‘"É(Ä(I)ª" ",3);:‚¢Ò¡#2,A$­Ü¡#2,A$¸æ¡#2,A$ÁðTS²0ÒúT²1¤17:450íY²22:X²Tª4:430:540:‚I²1¤2000:…"ANOTHER DISKETTE N";A$-š‹A$²"Y"§Š<¤‹A$³±"Y"§€T®™È(Y$,Y)È(X$,X)"";Z¸Žz¡#2,SC$:SC²Æ(É(Ç(0)ªSC$,1))‡ÌTS²TSªSC¡Ö¡#2,A$:‹A$²""§A$²Ç(0)±àSB(0)²Æ(A$)Ëê¡#2,A$:‹A$²""§A$²Ç(0)ÛôSB(1)²Æ(A$)õþ¡#2,A$:‹A$²""§A$²Ç(0)%d******************************In* DISPLAY ANY TRACK $ SECTOR *mx* ON THE DISK TO THE SCREEN *‘‚* OR THE PRINTER *µŒ******************************Ö–™"“ÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒÒ"ô ™"DISPLAY BLOCK CONTENTS"¥™"ÅÅÅ¡4,1);:‰660* l‹T±17¯S²20§™Ê(NU$,Z4,1);:Z4²Z4ª1:‰6604 v™"";O €‹ ¥S(S)²0 § ™"Û";:‰660{ Š™"’Û";:RIGHT$(STR$(S),1);Z4,1);:GOTO72‡ ”™"‘’"; ž‚“ ¨ŽA$²Ç(0)±àSB(0)²Æ(A$)Ëê¡#2,A$:‹A$²""§A$²Ç(0)ÛôSB(1)²Æ(A$)õþ¡#2,A$:‹A$²""§A$²Ç(0) 2A$²"":I²1¤255:A$²A$ªÇ(255¯(IªN%)):‚.<900>FŸ2,DN,2,"#"KP™:˜2,A$;WUT²1:S²0lZ˜15,"B-A:"D$;T;Sd„15,EN,EM$,ET,ESn‹EN²0§130£s‹ET²0§200: ENDÄx˜15,"B-A:"D$;ET;ES:T²ET:S²ESÚ‚˜15,"U2:2,"D$;T;Sü†NB²NBª1:™" CHECKED BLOCKS"NBÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ":7ª******************************[´* SET PROGRAM CONSTANT *¾******************************«ÈSP$²" ":NL$²Ç(0):HX$²"0123456789ABCDEF"ÚÒFS$²"":I²64 ¤ 95:FS$²FS$ª""ªÇ(I)ª"’":‚ IÜSS$²" ": I²192 ¤ 223:SS$²SSÍCTOR" ÜI²0¤J«1(æ˜15,"B-A:";D$,T(I);S(I)9ð™,,T(I),S(I)?ú‚i™""J"BAD BLOCKS HAVE BEEN ALLOCATED"r 2:€‡„„15,EN,EM$,ET,ES–Ž‹ EN²0 § Žµ˜™"ERROR #"EN,EM$;ET;ES""â˜15,"I"D$15,"U2:2,"D$;T;Sü†NB²NBª1:™" CHECKED BLOCKS"NB1000#T‹ C²254 § MT²119: : 2031 V2.6E^‹ C²226 § MT²50: : 2040 V1.2gh‹ C²213 § MT²12: : 4040 V2.1‰r‹ C²242 § MT²12: : 8050 V2.5›|‹ C²198 § 400¡†ŽÒ˜15,"M-R"Ç(234)Ç(16):¡#15,ZB$:ZB²Æ(ZB$ªÇ(0))óš‹ ZB²0 § MT²12: : 4040 V2.7¤‹   PATRICK MCALLISTER< ™"“ DISKETTE INSTRUCTIONS "E™" "t™"ADDITIONAL COMMANDS ARE AVAILABLE WHICH"¡(™"ALLOW YOU TO TYPE SHORT INSTRUCTIONS "½2™"TO THE DISK DRIVE. "ê<™"LOAD AND RUN THE VIC-20 WEDGE IF YOU "F™"HAVE A VIC; U IN THE BAM ""ø™"TO PREVENT THOSE BLOCKS FROM BEING "K™"USED BY THE DOS AT A LATER TIME. "U1000}™" PRESS RETURN TO LOAD PART TWO."¨™"AFTER IT LOADS; TYPE 'RUN' & RETURN"Ú™"LOAD"ªÇ(34)ª"HOW PART TWO"ªÇ(34)ª",8‘‘‘"à€üè™"  ROGRAMMER TO EXAMINE THE CONTENTS OF "A v™"A BLOCK BY SPECIFYING THE PARTICULAR "n €™"TRACK NUMBER AND SECTOR NUMBER WHICH "Œ Š™"IDENTIFIES THAT BLOCK."– 1000Ÿ ”™" "¾ ž™" CHECK DISK "Ç ¨™" "ó ²™" THE CHECK DISK PROGRAM CAN BE   ™"“"-™" PERFORMANCE TEST"6 ™" "b*™" THE PERFORMANCE TEST PROGRAM ALLOWS"Œ4™"ANYONE TO TEST THE ELECTRONIC AND "¸>™"MECHANICAL CAPABILITIES OF THE DISK "ÚH™"DRIVE WHENEVER NECESSARY. "R™"USE THIS PROGRAM WHENEVER YOUTRONIC CAPABILITIES OF THE PRINTER. "! Ñ1000* Ö™" "G à™" VIEW BAM "P ê™" "w ô™" THE VIEW BAM PROGRAM ALLOWS A "¤ þ™"PROGRAMMER TO EXAMINE THE CONTENTS OF"Ê ™"THE SECTORS WHICH MAKE UP THE "ñ ™"BLOCK AVAILABILITY MAP OR BAM.  AND CAN"0¬™"BE USED AS GUIDELINES WHEN WRITING "V¶™"YOUR OWN PROGRAMS. THEY ALSO "À™"ILLUSTRATE THE IMPORTANT TECHNIQUE "¬Ê™"OF CHECKING THE ERROR CHANNEL AFTER"ÓÔ™"EACH ACCESS TO THE DISK DRIVE. "ÝÙ9000 è™"SEQUENTIAL FILE AND RA, DRIVE 0 (THE UNCHANGED DRIVE) "B T™"TO UNIT 9, DRIVE 0 (THE DRIVE JUST "q ^™"CHANGED). THE DISKETTE YOU ARE COPYING"œ h™"TO MUST NOT HAVE THE WRITE PROTECT "Ê r™"NOTCH COVERED AND IT IS A GOOD IDEA TO"ô |™"PUT A PIECE OF TAPE OVER THE WRITE"R.".9000 @€&(#™" <>":2#¡A$:‹A$²""§9010F<#™"“";:ŽEY ALSO "À™"ILLUSTRATE THE IMPORTANT TECHNIQUE "¬Ê™"OF CHECKING THE ERROR CHANNEL AFTER"ÓÔ™"EACH ACCESS TO THE DISK DRIVE. "ÝÙ9000 è™"SEQUENTIAL FILE AND RAÒ™" "(Ü™"THE COPY/ALL PROGRAM WRITTEN BY "Tæ™"JIM BUTTERFIELD CAN BE USED TO COPY "ð™"FILES FROM ONE DRIVE TO ANOTHER IF "¬ú™"THE DRIVES ARE CONNECTED TO THE SAME "×™"COMPUTER. IT IS NECESSARY TO FIRST"™"CHANGE THE DEVICE NUMBER O ™"“"£6)"VIC WEDGE3™" BY DAVID A. HOOKP™"> DISK STATUSl(™"@ OR COMMANDS‰2™">$0 DIRECTORY“<™"@$0°F™"/FILENAME LOADËPž(Â(43)ª256¬Â(44)ª215)ÑZ¢ªªªªª¥78é3…7…3¥8é…8…4 3¥+¦,èèè…"†#¥7¦8è…$SE THE C-64 WEDGE IF YOU "6P™"HAVE A COMMODORE 64.  "@U1000gZ™"YOU WILL NOW BE ABLE TO TYPE A "•d™"BACKSLASH FOLLOWED BY THE PROGRAM NAME"Ân™"TO LOAD A PROGRAM. THE / MEANS LOAD "ïx™"FROM DISK DRIVE. FOR EXAMPLE, TYPE: "‚™"/MILEA8<>"ò¡A$:‹A$²""§1010ü™"“";:ŽÆ™"BEEN HEADERED IS IN FACT A GOOD DISK. "{Й"THE PROGRAM WRITES TO EVERY BLOCK TO "¢Ú™"TO VERIFY ITS ABILITY TO STORE "Ìä™"INFORMATION AND WILL IDENTIFY AND "÷î™"ALLOCATE ANY BAD BLOCKS USED " ¼™"TO MAKE SURE THAT A NEW DISK THAT HAS"NÆ™"BEEN HEADERED IS IN FACT A GOOD DISK. "{Й"THE PROGRAM WRITES TO EVERY BLOCK TO "¢Ú™"TO VERIFY ITS ABILITY TO STORE "Ìä™"INFORMATION AND WILL IDENTIFY AND "÷î™"ALLOCATE ANY BAD BLOCKS SUSPECT "6\™"THAT THERE MAY BE DAMAGE TO THE DRIVE."@a9000If™" "gp™" SEQUENTIAL FILE"…z™" AND "£„™" RANDOM FILE "¬Ž™" "Ù˜™" THESE TWO FILES ARE INCLUDED ON THIS"¢™"DISK AS PROGRAMMING EXAMPLES" ™"THE BAM IS THE TABLE THAT THE DOS "H &™"USES TO IDENTIFY THE BLOCKS THAT HAVE"k 0™"BEEN ALLOCATED TO THE FILES" :™"ON THAT DISK. "‹ ?1000” D™" "³ N™" DISPLAY T&S "¼ X™" "æ b™" THE DISPLAY T&S PROGRAM ALLOWS A " l™"PNDOM FILE BOTH"3ò™"REQUIRE THE 3K EXPANSION CARTRIDGE"Zü™"TO LOAD PROPERLY ON THE VIC-20 "x™"BECAUSE OF THEIR SIZE."£™"THE DOS 5.1 PROGRAM IS NOT INTENDED"Ι"TO BE LOADED DIRECTLY BUT IS LOADED"ú$™"INSTEAD FROM THE PROGRAM C-64 WEDGE# †™"PROTECT NOTCH ON THE DISK TO BE COPIED."- ‹10006 ™" "U š™" PRINTER TEST "^ ¤™" "Œ ®™" THE PRINTER TEST PRINTS A LISTING OF "» ¸™"THE CHARACTERS IN A FORMAT THAT ALLOWS "ç ™"EASY CHECKING OF THE MECHANICAL AND " Ì™"ELECªªªªªªêæzÐæ{†›º½ÉŒÐ6½ÉÄÐ/¥zÐ(¥{ÉÐ" „›±zÉ>ð É@ð È…›É/ðUРȱzð,É$ðJÐLy¦›Ly© ±ÿ©o “ÿæz ±zð ¨ÿ¸Pò ®ÿ¸P„z© ´ÿ©o –ÿ ¥ÿÉ ð Bç¸Pó Bç «ÿLyȱzÐûˆ˜¢  ½ÿ¢¥›Ð>© ` ºÿ Àÿ© ´ÿ©` –ÿ©… „· ¥ÿ…°¤Ð ¥ÿ…±¤Ð¤·ˆÐ禰¥± ÍÝ© ÐÐ@Ð1ÐÖ Òÿ ¥ÿ¦Ð%Éð Òÿ áÿF ONE DRIVE "&™"FROM 8 TO 9 BY USING THE "S"™"CHANGE ADDR DISK PROGRAM. LOAD & RUN"]'1000Œ,™"THE CHANGE ADDR DISK PROGRAM, FOLLOWING"»6™"THE PROMPTS; THEN PROCEED TO LOAD & RUN"é@™"COPY/ALL. THIS WILL LET YOU COPY FROM" J™"UNIT 8†%¢±"‘$ˆÐùÊð0 ±"‘$Æ%Æ# ðè©L…s¤7¦8ÈÐè„t†u`ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªGE TO LOAD A PROGRAM CALLED ".Œ™"MILEAGE. "Y–™"TYPE > OR @ TO DISPLAY THE CURRENT "n ™"ERROR STATUS."œª™"TYPE >$ OR @$ TO DISPLAY THE DIRECTORY"É´™"WITHOUT ERASING THE CURRENT PROGRAM. "Ó¹1000ܾ™" "÷È™" COPY/ALL PROGRAM"Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×_ìÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1541TEST/DEMO     ZX 2A    ‚HOW TO USE       ‚HOW PART TWO    ‚ VIC-20 WEDGE    ‚C-64 WEDGE      ‚DOS 5.1         ‚COPY/ALL         ‚ PRINTER TEST     ‚DISK ADDR CHANGEKKÿ‚DIR             ‚VIEW BAM        ‚CHECK DISK      ‚DISPLAY T&S     ‚PERFORMANCE TEST ‚SEQUENTIAL FILE ‚RANDOM FIAL      KKKKKKKKKKKKKK@ ‹A²0§A²1:“"DOS 5.1",8,16‹A²1§ž12¬4096ª12¬256<¢‚ VIC-20 WEDGE     ÌLáÌÎÎÎÎÎÎÍÍÍÎÎ!!!!!xGGG~k%/­^®_>±@#Qªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª DOS MANAGER V5.1/071382 BY BOB FAIRBAIRN (C) 1982 COMMODORE BUSINESS MACHINES LóÌ¢½ÞÌ•|Êø¥ºwÌLKÏ…¦†§º½É ÿð äÿðèÉ Ðä äÿðûÐÝ© ç LÉÍ Bö© çLy¦+¤,­zÌÉ%Щ,©…¹© Õÿ°.­zÌÉ%𥯅.¥®…- Y¦ 3¥­zÌÉ­ðÉ/ÐL†ã© ÿ Ž¦L®§L†ã¢½«ã•|ÊøL†ã YáLͤ·¹'Ì)ẅð¹'Ì)¨ð ­wÌi ˆÐûwÌLy  sªÐL:Ï©`…|¥zH¥{HŠÉ"ð sÐ÷h…{h…z y¢É"ð¢ä{Ð\¢ð hh¢ sðVÉ"ðRÉ=ðÉ:ТÿÉ[ð ™' -d™"“ DIK.COPY.ALL JIM BUTTERFIELD"Zn† L2(232),L1%(232),N$(232),T%(232),T$(4)txƒ XXX,SEQ,PRG,USR,REL‰‚J²0¤4:‡T$(J):‚J®„ƒ10,32,67,72,77,82,87,98,117,147ІSI²2348:SB²Â(44):MB²SB¬256ªSIëˆI²0¤9:‡A:—MBªA,SBª9:‚Œ…"FROM UNIT 8' OR 'N' KEY TO SELECT"3™"PROGRAMS TO BE COPIED..."F"Ÿ 1,F,3,"$"ªF$Y,830:‹E§:‰220p6¡#1,A$:A²Æ(A$ª" ")Š@‹A²1°A²65§L1²253:‰350 J‹A²67§L1²761:‰350²T 1:™"?????":È^J²1¤L1:¡#1,X$:‚JàhN²0:N1²0:R²255:Z²89ÿrN$²"":1020:T9²Y«128:5:‰520ô‹Z$²Ç(13)§R²0:‰520þ‰480H‹Z³80§™"‘ ‘":‰540~N²Nª1:L2(N)²L2:N$(N)²È(N$,J1):T%(N)²T9:L1%(N)²L1%Œ‹ST±0‰570¨&N1²N1ª1:‹N1²8§N1²0:‰370·01000:‰370Ð: 1: 15:™" * * * * *"ÛDJ²1¤NûNL2²L2(J):T%²T%(J):‹L±LŸ4,T,4,T$ª":"ªN$(J)ª",L,"ªÇ(L1%(J)):‰700D ²Ÿ4,T,4,T$ª":"ªN$(J)ª","ªT$(T%)ª",W"i ¼L²L«L2:830:‹E§™"*** ";E$;E:‰750 Æ‹T%²4§ž(MBª43):‰730 О(MBª3)µ ÚN$(J)²"":830:‹E§™"**** ";E$;E:‰750¾ ä™"‘"Ð î 4: 3: 15: 14× ø‚J X²¸(0):™"ANOTHER INPUTE,ID";X$,Y$ z˜15,"N"ªT$ª":"ªX$ª","ªY$+ „830:‹E§:‰860Q Ž˜15,"I"ªT$:Ÿ1,T,0,"$"ªT$ª":!#$%&"d ˜830:‹E§:‰860r ¢980:980 ¬Q²Qª1:¡#1,X$:‹X$³±""‰940˜ ¶980½ ÀL²XªY¬256:™"(";L;"BLOCKS FREE )"Ê Ê 1: 15:ŽÕ Ô¡#1,X$à Þ¡#1,X$ë è¡#1,X$ `þ`þ";X$,Y$ z˜15,"N"ªT$ª":"ªX$ª","ªY$+ „830:‹E§:‰860Q Ž˜15,"I"ªT$:Ÿ1,T,0,"$"ªT$ª":!#$%&"d ˜830:‹E§:‰860r ¢980:980 ¬Q²Qª1:¡#1,X$:‹X$³±""‰940˜ ¶980½ ÀL²XªY¬256:™"(";L;"BLOCKS FREE )"Ê Ê 1: 15:ŽÕ Ô¡#1,X$à Þ¡#1,X$ë è¡#1,X$  #d PRINTER TEST FOR VIC AND 64;nNL$²Ç(10):CR$²Ç(13)\xBS$²Ç(8):SO$²Ç(14):SI$²Ç(15)€‚PO$²Ç(16):ESC$²Ç(27):SUB$²Ç(26)™ŒCD$²Ç(17):CU$²Ç(145)´–RVS$²Ç(18):OFF$²Ç(146)º :ɪŸ4,4:˜4:˜4ï´˜4,SO$" PRINTER TEST"õ¾:ÿȘ4:˜40Ò˜4,SO$"1. CHECK GRAPHIC (CURSOR UP) MODE"SI$<Ü840: 4Bæ:QðŸ4,4,7 :˜4„ú˜4,SO$"2. CHECK BUSINESS(CURSOR DOWN) MODE"SI$840: 4–:ÁŸ4,4:˜4:˜4,SO$"3. CHR$(10) TEST"SI$:˜4ã"I²48¤52:˜4,PO$"25"Ç(I);NL$:‚é,:6˜4:˜4,SO$"4. CæðɌнɧðɤР¥¦¢ÝÌðÊø¥¦¦§É:°L€LŠ†¥zÌ £Î¦¥©'…»©Ì…¼­wÌ…º½ÌH½ÌH`˜ðE¢ ½ÌðÍ'Ìð èó­'ÌÉ$ðQLqÍÆ·©(…»©Ì…¼L?Í¥º ±ÿ©o…¹ “ÿ ¹'Ì ¨ÿÈÄ·õ ®ÿL¯Í¥º ´ÿ©o…¹ –ÿ ¥ÿÉ ð çLœÍ ç «ÿLy©`…¹ Õó¥º ´ÿ¥¹ –ÿ©… „· ¥ÿ…à ¥ÿ…ĤÐ>¤·ˆÐë¦Ã¥Ä ͽ© ç ¥ÿ¦Ð&Éð ç ácÌyÌèÈß sð.xÌ sð&É]Ð"à°­yÌÉ*Јʩ?,© à°™'ÌÈèõ­xÌÐâL†|L¯„·¢L†| yð sÐû`¢½{Ìð çèÐõ`$ðQLqÍÆ·©(…»©Ì…¼L?Í¥º ±ÿ©o…¹ “ÿ ¹'Ì ¨ÿÈÄ·õ ®ÿL¯Í¥º ´ÿ©o…¹ –ÿ ¥ÿÉ ð çLœÍ ç «ÿLy©`…¹ Õó¥º ´ÿ¥¹ –ÿ©… „· ¥ÿ…à ¥ÿ…ĤÐ>¤·ˆÐë¦Ã¥Ä ͽ© ç ¥ÿ¦Ð&Éð ç á";F –800 F$²D$.ª…"TO UNIT 9";T7´800A¾T$²D$SÈ‹F²T ¯F$²T$§Š\Ò860|Ü 1: 15:Ÿ 15,F,15:˜15,"I"ªF$’æ830:‹ E § :‰220ªð…"PATTERN *";P$ÌúJ²1¤Ã(P$):‹Ê(P$,J,1)³±"*"§‚JéP1²J«1:‹P1±0§P$²È(P$,P1)™"HOLD DOWN 'Y1000*|J1²1:Z$²Ç(160):J²1¤16:¡#1,X$:N$²N$ªX$;†‹X$³±Z$§J1²JB‚JQš990:L1%²Y_¤980:980n®L2²Xª256¬Y¸‹T9³1°T9±4‰540‹P1±0§‹P$³±È(N$,P1)‰540°Ì™N$;" ";T$(T9)¿ÖP²Â(151)¯RØà¡Z$:‹Z$²""¯P³255‰520þê‹Z$²"Y"°Z$²"N"§Z²Æ(Z$):R²252‰640 X™"*** OUTPUT DISK FULL"7 b…"DO YOU HAVE A NEW ONE";Z$H l‹Æ(Z$)³±89§€V v860:‰590l €Ÿ14,F,15:Ÿ15,T,15š Š™N$(J);È(" ",17«Ã(N$(J)));½ ”Ÿ3,F,3,F$ª":"ªN$(J)ª","ªT$(T%)é ž„14,E,E$,E1,E2:840:‹E§™"** ";E$;E:‰750 ¨‹T%²4§ DISK READY":…" N";Z$ ‹Æ(Z$)²89‰220$ €9 …"DRIVE 0";DI *‹D¬D³±D‰800Z 4D$²Ç(Dª48):Žm >„15,E,E$,E1,E2 H‹E²0§E²(ST ¯ 191):E$²"*ST*"“ RŽÎ \Ÿ15,T,15:™"WANT TO NEW THE OUTPUT DISK":…" N";Z$á f‹Æ(Z$)³±89‰910û p…"DISK NAMòX²Ã(X$):‹X§X²Æ(X$) ü¡#1,X$:Y²Ã(X$):‹Y§Y²Æ(X$)& Ž Ìÿ¢ Æÿ ÚŽ@¥A Ìÿ¢ Éÿ®@ È­AðÚ…LÌÿ©…_…` Ìÿæ_Ðæ`¢ Éÿ¢P È¢ Ȧ_ Ȧ` È¢ È Ìÿ¢ Æÿ Ú Ìÿà0ð`¢ Æÿ ÿÈ Ú¤aŠ™z¦–ðò„b Ìÿ¢ Éÿ ÿȹzª ȤaÄbÐòð•„a Š Òÿ¥)ðˆÐó`„a  äÿª¥)ðˆÐóHR$(13) TEST"SI$:˜41@I²53¤57:˜4,PO$"25"Ç(I);CR$:‚7J:\T˜4:˜4,SO$"5. CHR$(8) TEST"SI$:˜4g^J²1¤2‰hA$²"":I²128¤255:A$²A$ªÇ(I):‚ r˜4,BS$A$:˜4,SI$:‚J«|J²1¤2ІB$²"":I²255¤128©«1:B$²B$ªÇ(I):‚ç˜4,BS$B$:˜4,SI$:‚Jíš:¤˜4:˜4,SO Ÿ4,4- ø˜4:˜4,SO$"12. CHR$(18) & CHR$(146) TEST "SI$:˜4B A$²" COMMODORE " I²0¤3:˜4,RVS$A$OFF$" "A$" "RVS$A$OFF$" "A$" "RVS$A$… ‚‹ :¯ *˜4:˜4:4,SO$"PROGRAM LIST"SI$:›µ 4€» >: H˜4Ï RI²32¤47î \J²1¤8:˜4,Ç(I);:‚:˜4," "; f4,4- ø˜4:˜4,SO$"12. CHR$(18) & CHR$(146) TEST "SI$:˜4B A$²" COMMODORE " I²0¤3:˜4,RVS$A$OFF$" "A$" "RVS$A$OFF$" "A$" "RVS$A$… ‚‹ :¯ *˜4:˜4:4,SO$"PROGRAM LIST"SI$:›µ 4€» >: H˜4Ï RI²32¤47î \J²1¤8:˜4,Ç(I);:‚:˜4," "; f è PERFORMANCE TEST 2.0$ò:Cü VIC-20 AND COMMODORE 64c SINGLE FLOPPY DISK DRIVEi:Ÿ 1,8,15:Ÿ15,8,15‰$LT²35—.LT$²Ä(LT)¡8NT²30ÁB™"“ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ"ÜL™" PERFORMANCE TEST"úV™"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"` DISK NEW COMMAND "ªÇ(13)9C2$²" WAIT ABOUT 80 SECONDS"P CC$²C1$ªC2$: 1840a‹ TI³NT§1370s™"SYSTEM IS"’(™" NOT RESPONDING"°2™" CORRECTLY TO COMMANDS"»< 1880ÁF:ÇP:ÚZ™"DRIVE PASS"ùd™" MECHANICAL TEST"S0:TEST FILE"-ÈCC$²"SCRATCH FILE":TT²1 : 18403Ò:9Ü:CæTT²21SðŸ 4,8,4,"#"€úNN%²(1ª»(TI)¬254ªNN%)¯255:˜1,"B-P";4;NN%¦NN$²"": I²1 ¤ 255:NN$²NN$ªÇ(I):‚³˜ 4,NN$;ʘ 1,"U2:";4;0;LT;0ë"CC$²"WRITE TRACK"ªLT$: 1840 ,˜1,"U2" PULL DISKETTE FROM") ¤™" DRIVE BEFORE TURNING"> ®™" POWER OFF."D ¸€J Â:P Ì:l Ö™" CONTINUE (Y/N)?";‚ à I²0 ¤ 50:¡ A$:‚š ê¡ A$:‹ A$²"" § 1770¦ ô™ A$""· þ‹ A$²"N" § €È ‹ A$²"Y" § ŽÓ ‰ 1760Ù :ß &:é 0™ CC$þ :„ 1,g¡A$ Ú I²1000 ¤ 2000 ä„ CH,J7 î‹ J³±I § ™"READ ERROR:’": 1850= ø‚H  1850S   CH:ŽCONTINUE (Y/N)?";‚ à I²0 ¤ 50:¡ A$:‚š ê¡ A$:‹ A$²"" § 1770¦ ô™ A$""· þ‹ A$²"N" § €È ‹ A$²"Y" § ŽÓ ‰ 1760Ù :ß &:é 0™ CC$þ :„ 1, ***************) * EXAMPLE> * READ & WRITES * A SEQUENTIALe * DATA FILE{ ***************˜ ™"“INITIALIZE DISK"¤†A$(25)¯†B(25)Á(Ÿ15,8,15,"I0"Ì< 1000ÚFCR$²Ç(13)àP™ýZ™" WRITE SEQ TEST FILE"$"6. CHR$(14) & CHR$(15) TEST"SI$:˜4+®J²2¤4©2R¸A$²"":I²J¬16¤J¬16ª31:A$²A$ªÇ(I):‚i˜4,SO$A$CR$SI$A$:‚oÌ:•Ö˜4:˜4,SO$"7. CHR$(16) TEST"SI$:˜4Àà J²0¤7:˜4,PO$Ç(48ªJ)Ç(0)"COMMODORE":‚Æê:ìô˜4:˜4,SO$"8. CHR$(26) TEST"SI$:˜4þ J²0¤3,SO$"10. CHR$(17) TEST"SI$:˜4 €J²10¤13G ŠA$²"":I²J¬16¤J¬16ª15:A$²A$ªÇ(I):‚[ ”˜4,A$" "CD$A$a ž‚g ¨:’ ²˜4:˜4,SO$"11. CHR$(145) TEST"SI$:˜4: 4¦ ¼Ÿ4,4,7:J²10¤13Í ÆA$²"":I²J¬16¤J¬16ª15:A$²A$ªÇ(I):‚á И4,A$" "CU$A$ê Ú‚: 4ð ä:ù îJ²1¤8:˜4,Ç(Iª16);:‚:˜4," ";2 pJ²1¤8:˜4,Ç(Iª32);:‚:˜4," ";T zJ²1¤8:˜4,Ç(Iª48);:‚:˜4," ";w „J²1¤8:˜4,Ç(Iª128);:‚:˜4," ";š ŽJ²1¤8:˜4,Ç(Iª144);:‚:˜4," ";½ ˜J²1¤8:˜4,Ç(Iª160);:‚:˜4," ";à ¢J²1¤8:˜4,Ç(Iª176);:‚:˜4," ";æ ¬‚ï ¶˜4:Ž2,A$","Ä(B)CR$;‘ 1000 –‰ 120(   2<È *************DÉ *VÊ * READ SEQiË * TEST FILEqÌ *…Í *************‹Ι§Ï™" READ SEQ TEST FILE"­ЙÏÒŸ2,8,2,"0:SEQ TEST FILE ,S,R"Ú× 1000ìÜ„2,A$(I),B(I)öàRS²STá™j™" INSERT SCRATCH"t™;~™" DISKETTE IN DRIVE"Aˆ™[’™" PRESS RETURN’"aœ™~¦™" WHEN READY"”° I²0 ¤ 50:¡ A$:‚°º¡ A$:‹ A$³±Ç(13) § 1210¶Ä:¼Î:ÍØTI$²"000000"×âTT²18ðì˜1,"N0:TEST DISK,00"öC1$²" nTT²21!xŸ 2,8,2,"0:TEST FILE,S,W"I‚CC$²"OPEN WRITE FILE" : 1840qŒCH²2:CC$²"WRITE DATA" : 1930™–CC$²"CLOSE "ªCC$ : 1840· Ÿ 2,8,2,"0:TEST FILE,S,R"ߪCC$²"OPEN READ FILE" : 1840ï´CH²2: 1990¾˜1,":";4;0;1;0( 6CC$²"WRITE TRACK 1" : 1840> @˜1,"U1:";4;0;LT;0f JCC$²"READ TRACK"ªLT$ : 1840{ T˜1,"U1:";4;0;1;0£ ^CC$²"READ TRACK 1" : 1840« h  4± r:· |:Ð †™" UNIT HAS PASSED"î ™" PERFORMANCE TEST!" š™EN,EM$,ET,ES D™£12)""EN;EM$;ET;ES;""( N‹ EN³2 § ŽA X™" UNIT IS FAILING"] b™" PERFORMANCE TEST"z lTM$²TI$: 1750:TI$²TM$:Ž€ v:† €:š Š™"WRITING DATA"¶ ” I²1000 ¤ 2000:˜CH,I:‚À ž1850Ë ¨  CH:ŽÑ ²:× ¼:ë Æ™"READING DATA"ó Ð 1000æ™A$(I),B(I)#ð‹R S²64 § 3005ú‹ RS³±0 § 400?I²Iª1I‰ 220Q,  2W6€t™"BADDISKSTATUSIS"RS|š  2‚¤€•è ************é *«ê * READ½ë * THE ERRORÎì * CHANNELÖí *éî ************þò„15,EN,EM$ _™d *************e *2f * WRITE SEQEg * TEST FILEMh *ai *************„nŸ2,8,2,"@0:SEQ TEST FILE ,S,W"s 1000²u™"ENTER A WORD, COMMA, NUMBER"Òv™"ENTER WORD 'END' TO STOP"ãx…"A$,B";A$,Bö‚‹A$²"END"§ 160 Œ˜ :˜4,BS$SUB$Ç(10ª10¬J®2)Ç(255):‚:C˜4:˜4,SO$"9. CHR$(27) TEST"SI$:˜4XSP$²" "i& I²0¤360©10~0I$²É(SP$ªÄ(I),4)˜:YO²220ª120¬¿(I¬ÿ­180)¶DYH²µ(YO­256):YL²YO«YH¬256ÔN˜4,I$ESC$PO$Ç(YH)Ç(YL)"*"ÝX‚: 4ãb:ìlŸ4,4 v˜4:˜4KKKKKKR,ET,ES ü‹ EN²0 § Ž&™"ERROR ON DISK"8™EN;EM$;ET;ES@  2F$€ READ SEQiË * TEST FILEqÌ *…Í *************‹Ι§Ï™" READ SEQ TEST FILE"­ЙÏÒŸ2,8,2,"0:SEQ TEST FILE ,S,R"Ú× 1000ìÜ„2,A$(I),B(I)öàRS²STáKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK