*‹ Â(215)²0 § ™" 80-COLUMNS ONLY!":€1þ%@™Ç(27);"U"L× 63998œ *************************************************************************ì ** **< ** - HELPER 128 - **Œ ** PROGRAM BY **Ü( ** JOEL STANIEC **,* ** PLEASE SEND E-MAIL TO JOEL STANIEC OR **|2 ** ON Q-LINK TO JOLTER **Ì< ** --------------------------------------------- **F ** **lP ** DATE START 11-9-86 **¼Z ** DATE FINISH 11-24-86 ** [ ** REVISED DAILY **[ d*************************************************************************a nè™ xè:™ £24);Ç(15)"HELPER 128:BY JOEL STANIEC’":™:™:™Ç ‚™ "PLEASE CHOOSE ONE OF THE FOLLOWING":™Ý Œ™ "[D]OS SHELL":™ú –™ "[R]E-DEFINE F-KEYS":™! ™ "[A]DRESS KEEPER":™.!ª™ "[K]EYBOARD LOCK":™F!´™ "[T]YPERWRITER":™b!µ™ "[Q]UIT HELPER 128":™z!¶™ "[I]NFORMATION":™°!¾…"PLEASE HIT THE KEY SIGNAGIFYING YOUR CHOICE";C$Ã!Ü‹ C$²"D" § 290×!æ‹ C$²"R" § 5000ë!ð‹ C$²"A" § 6000ÿ!ú‹ C$²"K" § 7010"‹ C$²"T" § 8000("‹ C$²"Q" § 63999;"‹ C$²"" § 110P"‹ C$²"I" § 10000b"— 198,0:‰ 110h":o"":è›",è:™"DOS SHELL FOR THE C-128 AND 1571’"£"6™:™½"@™"[L]OAD A PROGRAM":™Ö"J™"[S]EE DIRECTORY":™í"T™"[E]RASE FILES":™#^™"[V]ALIDATE DISK":™#h™"[R]ENAME A FILE":™6#r™"[F]ORMAT DISK":™W#†™"[D]EVICE NUMBER CHANGED":™l#™"[1]541 MODE":™”#š™" HIT 'X' TO GO BACK TO MAIN MENU"¸#¤… "PLEASE CHOSE A FUNCTION ";F$Ë#®‹ F$²"L" § 600Þ#¸‹ F$²"S" § 650ñ#‹ F$²"E" § 700$Ì‹ F$²"V" § 800$Ö‹ F$²"R" § 900+$à‹ F$²"F" § 1000?$ô‹ F$²"D" § 1200S$þ‹ F$²"1" § 1300f$‹ F$²"X" § 120p$‰ 290v$:|$&:”$X™"“LOAD A PROGRAM"´$b… "NAME OF FILE TO LOAD";F$Ê$l™"“ LOADING....."Ö$vð(F$):€Ü$€:ò$Š™"“SEE DIRECTORY#%”™"TO SLOW THE PROCESS HIT THE NO SCROLL KEY"3%ž… "OKAY";K$L%¨‹K$²"Y"°K$²"YES"§691V%²‰ 290\%³îm%´ 30000:‰290y%¶‰ 63999%¼™"“SCRATCH FILES"²%Æ…"NAME OF FILE TO SCRATCH";S$Ï%Ð…"ARE YOU SURE Y";A$ç%Ú‹A$²"Y"§ ò(S$):Õ740ø%ä 30000:‰290&ø‰ 639995& ™"“ VALIDATEING MAY TAKE UP TO TWO MINUTES"E&%… "OKAY";O$X&*‹ O$²"Y" § 820k&/‹ O$²"N" § 290q&4óƒ&9 30000:‰ 290&>‰ 63999Ÿ&„™"“RENAME"¾&‰…"NAME OF OLD FILENAME";F$Ý&Ž…"NAME OF NEW FILENAME";N$ø&“…"OKAY TO GO AHEAD";A$ '˜‹ A$²"Y" § 935'‹ A$²"N"§ 290''¢‰ 2908'§õ(F$) ¤ (N$)J'¬ 30000:‰ 290V'¶‰ 63999l'è™"“ FORMAT DISK"§'í™"BEWARE ALL THE PREVIOUS FILE ON DISK WILL BE ERASED"Á'ò™:…"OKAY TO GO ON";J$Þ'÷‹ J$²"Y" ° J$²"YES"§1030è'ü‰ 290(… "FILENAME FOR DISK";F$( … "ID NUMBER";I$2(…"OKAY TO GO ON";A$C(‹A$²"Y"§1055M(‰ 290\(ñ (F$),II$h($™"DONE"z() 30000:‰ 290†(3‰ 63999¤(°™"“CHANGE DEVICE NUMBER"Â(µ™:…"NEW DEVICE NUMBER";DNÑ(º…"OKAY";A$â(¿‹A$²"Y"§1225ì(ĉ 290)ÉŸ15,DN,15:˜15,"U0>"ªÇ(DN): 15 )Î 30000:‰ 290,)؉ 63999D)™"“1541 MODE":DN²8d)™"HIT 'RETURN' TO CONTINUE"})¡ùA$:‹A$³±Ç(13)§1310›)#Ÿ15,DN,15:˜15,"U0>M0": 15­)( 30000:‰ 290¹)2‰ 63999Ö)ˆ™"“REDEFINE F-KEYS":™:™*‰…"DO YOU WISH TO LOAD A SET OF F-KEYS";O$D*Š‹O$²"Y"§™"PUT DATA DISK IN DRIVE AND HIT RETURN":¡ùA$:Õ5005a*‹…"FILENAME";F$:þ(F$),B0*™"THE CURRENT F-KEYS DEFINATIONS ARE":ù²*’… "WHICH TO DO WANT TO CHANGE";CÁ*“‹ C±8§ 100Ó*—‹C³0°C±8§5010+œ…"NEW DEFINATION WITHOUT CHR$";DF$:…"CHR$ NUMBERS";CR:…"CHR$ NUMBER";CF;+¡ù (C),(DF$)ªÇ(CR)ªÇ(CF)V+¦™"THE NEW DEFS ARE ":ù{+«… "DO YOU WANT TO SAVE (Y/N)";A$Ž+°‹A$²"Y" § 5050¡+µ 30000:‰ 5000Í+º… "FILENAME";F$:þ(F$),B0,P4096 ¤ P4352è+Ä… "DO IT ALL AGAIN";S$û+Å‹ S$²"Y"§ 5000,Ɖ 110,p™"“ DATA MANAGER"4,z™:™"[M]AKE FILE ":H,„™:™"[G]ET FILE"`,…™:™"[D]ELETE FILES"y,Ž™:™"[S]EE DIRECTORY"•,˜™:™"[F]ORMAT DATA DISK"¥,¢™:™"[Q]UIT"Ù,¬…"PLEASE HIT THE KEY SIGNAFYING YOUR CHOICE";C$ì,¶‹ C$²"M"§ 6200ÿ,À‹ C$²"G"§ 6300-Ê‹ C$²"S" § 6400&-Ô‹ C$²"F"§ 6450:-Õ‹ C$²"D" § 6500K-Þ‹ C$²"Q"§ 10V-߉ 6000k-8™"“MAKE FILE":™€-B…"FIRST NAME";N$”-L…"LAST NAME";L$¦-V…"ADDRESS";A$µ-`…"CITY";C$Å-j…"STATE";S$Ø-t…"ZIP CODE";Z$ï-~…"PHONE NUMBER";P$ .ˆ…"FILENAME FOR SAVE";F$8.‰™"PUT DATA DISK IN DRIVE AND HIT RETURN"H.’þ #1,(F$),Wd.“˜1,N$,L$,A$,C$,S$,Z$,P$t.”  1:™"DONE"‡.• 30000:‰ 6000œ.œ™"“ GET FILE":™¯.¦…"FILENAME";F$á.«™"PUT DATA DISK IN DRIVE AND HIT RETURN":¡ùA$ñ.°þ #1,(F$),R /º„1,N$,L$,A$,C$,S$,Z$,P$/Ä  1//ΙN$;L$;A$;C$;S$;Z$;P$_/Ø…"READ ANOTHER FILE";R$:‹R$²"Y"§6300:Õ 6000w/™"“žSEE DIRECTORY" / ™"PUT DATA DISK AND HIT RETURN":¡ùA$¦/îº/ 30000:‰ 6000"Ã/)‰ 10Ú/2™"“ FORMAT DISK";0<™"PUT BLANK DISK IN DRIVE AND HIT RETURN"!0F¡ùA$:‹A$³±Ç(13)§647050Pñ"P-128 DM",I99H0Z 30000«‰ 6000y0d™"“DELETE FILE":…"DIRECTORY";D$:IDD$²"Y"§ î’0e…"FILE TO DELETE";F$œ0fò(F$)®0n30000:‰ 6000õ0b™"“THIS WILL LOCK YOUR KEYBOARD UNTIL YOU HIT THE RIGHT KEY CODE"81c™"TYPE A LETTER CODE FOR LOCK OF KEYBOARD":…"A LETTER CODE";L$l1l™"THE SCREEN WILL CLR AND WAIT FOR A KEY PRESS"—1v™"ONLY THE RIGHT ONE WILL LOG ON":þ 5­1€è :¡ D$:— 808,110¾1Š‹D$³±L$§7040Ñ1”— 808,100:‰ 10æ1@™"“ TYPEWRITER"2J™"PLEASE TURN ON PRINTER AND TO DEVICE#4"=2T¡A$:™"IF YOU WANT TO QUIT HIT 'Q'":™\2^…"MESSAGE";M$:‹ M$²"Q"§ 10h2hŸ4,4:4t2r˜4,(M$)2|‰ 8030–2'™"“žINFORMATION"Ó2'™"DOS SHELL LETS YOU ACCESS THE DISK OPERATING SYSTEM":™$3'™"RE-DEFINE FUNCTION KEYS LETS YOU CUSTOM DEFINE THE EIGHT FUNCTIONS KEYS":™c3'™"ADDRESS KEEPER IS A ADDRESS BOOK KEEPER FOR YOUR USES":™È3'™"KEYBOARD LOCK LOCKESS YOUR KEYBOARD UNTIL YOU COME BACK AND ENTER THE RIGHT ":™"LETTER CODE":™4'™"QUIT DOES JUST THAT":™"THIS IS FREEWARE IF YOU LIKE PLEASE SEND 1 DOLLAR TOO":™W4'™"JOEL STANIEC 13215 MOENART DETROIT MICHIGAN 48212"“4'™:™"THANK YOU THIS IS VERSION 3.0 REVISED DAILY BY":™³4'™"J O E L S T A N I E C "Ç4' 30000:‰ 10000ã4÷* REVISED SAVE ROUTEINE50u…"GO BACK TO MAIN MENU OR FUNCTION MENU (M/F)";M$+51u‹ M$²"M" § 10<52u‹ M$²"F" § ŽB53u€m5þù™"“ERROR ";Ó(ER);" IN ";EL:ê:¡ùA$:Ö 10›5ÿù… "“ARE YOU SURE N";A$:‹A$²"N"§290:Õ€