;™Ç(147):™:™" C-1520 UTILITY FOR THE 128 BY JBEE ’":™°™"01.PRINT OUT SEQ.FILE":™"02.CHANGE PEN COLOR":™"03.CHANGE#OF CHARACTERS PER LINE":™"04.DUMP A PROGRAM LISTING"å™"^NOTE #4 WILL'NEW'+DESTROY PROGRAM IN MEMORY"d™"05.":™"06.TOGGLE UPPERCASE/LOWERCASE":™"07.RESET PRINTER TO ORIGINAL VALUES":™"08.PRINT OUT DIRECTORY":™"09.":™"10.":™:™§…"PICK A #:";N$:N²µ(Å(N$)):‘ N 7,20,23,29,19,35,42,44,19,19®‰1è™"ENTER THE FILE NAME OR":…"A'$' FOR A DIRECTORY";SF$ü‹SF$²"$"§ î:Õ10 ™:™:‰7 þ #3,(SF$):18#Ÿ4,6.¡#3,A$< RS²ST:18G˜4,A$;T‹RS²0§12w‹RS³±64§™"STATUS ERROR IS:";RSˆþ#3:˜4: 4:Ž™‹DS±0§™DS$:ŸŽ™"PICK A NUMBER FOR THE PEN COLOR":™"BLACK=0":™"BLUE =1":™"GREEN=2":™"RED =3":…"THE NUMBER IS:";CN$2CN²µ(Å(CN$)):‘CN55,55,55:‹CN²0§55:ÕŽ8Ž‡™"FOR THE NUMBER OF CHARACTERS PER LINE":…"PICK EITHER 10,20,40,OR 80";CL$©CL²µ(Å(CL$)):‹ CL²80§CL²3:56½‹CL²40§CL²2:56Ñ‹CL²20§CL²1:56å‹CL²10§CL²0:56ëŽ ™:…"DO YOU NEED A DIRECTORY? Y/N";M$:‹M$²"N"§31) î:‰29> …" FILENAME ";F$¯ ™Ç(147):™"";"FORI=1TO15:CLOSEI:NEXTI:OPEN4,6:CMD4:LIST:":™"";"PRINT#4:CLOSE4":™"‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘"Ë !™"DLOAD"ªÇ(34)ªF$ªÇ(34)Ñ "¢þ #™"NORMAL UPPERCASE/SHIFTED LOWERCASE =0"+!$™"NORMAL LOWERCASE/SHIFTED UPPERCASE =1"Q!%…"PICK A NUMBER '0' OR '1' :";CC$b!&CC²µ(Å(CC$))p!'‹CC²0§57~!(‹CC²1§57„!)ŽŒ!*58’!+Ž§!,Ÿ1,8,0,"$":A$²""°!-Ÿ4,6Å!.¡#1,A$:‹ST³±0§54×!/‹A$³±Ç(34)§46á!0B$²"""1¡#1,A$:‹A$³±Ç(34)§B$²B$ªA$:‰49"2¡#1,A$:‹A$²Ç(32)§50&"3˜4,B$<"4¡#1,A$:‹A$³±""§52P"5‹ST²0§X²Xª1:‰46_"6 1:˜4: 4:Žy"7Ÿ2,6,CN:˜2,CN:˜2: 2:Ž“"8Ÿ3,6,CL:˜3,CL:˜3: 3:Ž"9Ÿ6,6,CC:˜6,CC:˜6: 6:ŽÀ":Ÿ7,6,7:˜7: 7:Ž