THE ELITE 00720 *12 CPI AND GRAPHICS MODE 00730 ************************* 00740 SETPRT LDA #$FE two's complement value for -2 00750 STA DEVNUM set DEVNUM=#-2 (printer) 00760 LEAX GRAFIX,PCR point to printer codes 00770 SETPR0 LDA ,X+ fetch value and increment pointer 00780 CMPA #$FF is it end of data marker? 00790 BEQ SETPR1 yes - go return 00800 JSR [CHROUT] no - output code to printer 00810 BRA SETPR0 go back for next value 00820 SETPR1 RTS done, so return 00830 GRAFIX FDB $1B17 $1B $17 = codes to select ELITE printing mode 00840 FDB $12FF $12 = code to select graphics mode. $FF = end of codes marker 00850 ************************* 00860 *ROUTINE TO REFORMAT 256 00870 *PIXELS ACROSS, BY 7 00880 *LINES DOWN INTO 256 00890 *256 PMODE BYTES. 00900 ************************* 00910 REFORM LDA #$20 perform reformat on 32 ($20) bytes across (256 pixels) 00920 STA COUNTR put in counter 00930 LDU #BUFFER point to buffer where the 256 dmp bytes will be stored 00940 LDX TEMPX0 point to start of graphics memory 00950 STX TEMPX1 00960 REFOR0 LDA #$08 columns (8 per byte, 1 per bit) 00970 STA COLUMN 00980 REFOR1 LDA #$07 rows (7 lines per dmp byte, 1 line per bit) 00990 STA ROW 01000 CLR STORE clear area where dmp byte is composed 01010 REFOR2 LDA ,X get pmode byte 01020 ASLA bit 7 to carry flag 01030 ROR STORE carry flag into store 01040 STA ,X put shifted byte back in pmode memory 01050 DEC ROW decrement row counter 01060 BEQ REFOR3 if 0 then 7 lines (rows) have been shifted into STORE 01070 LEAX $20,X else point to next row 01080 BRA REFOR2 go do next line 01090 REFOR3 LDA STORE get dmp byte 01100 LSRA move bits 1-7 to 0-6 01110 REFOR4 COMA reverse b/w data 01120 ORA #$80 set bit 7 high to indicate to printer that it's graphics data 01130 STA ,U+ put in buffer and increment pointer 01140 LDX TEMPX1 restore pmode pointer 01150 DEC COLUMN has 1 pmode byte (8 pixels) by 7 lines been processed? 01160 BNE REFOR1 no - continue 01170 DEC COUNTR have 32 pmode bytes (256 pixels) by 7 lines been processed? 01180 BEQ REFOR5 yes - go return 01190 LDX TEMPX1 no - increment pmode byte pointer 01200 LEAX 1,X 01210 STX TEMPX1 put it back in storage 01220 BRA REFOR0 got do next pmode byte by 7 lines 01230 REFOR5 RTS done so return 01240 ************************* 01250 *ROUTINE TO DUMP THE 01260 *CONTENTS OF THE 256 BYTE 01270 *DMP BUFFER TO THE 01280 *PRINTER. 01290 ************************* 01300 DUMP LDX #BUFFER point to buffer 01310 CLR BUFCNT clear buffer length counter 01320 DUMP0 LDA ,X+ get character and increment buffer pointer 01330 JSR [CHROUT] output the character 01340 DEC BUFCNT decrement buffer counter 01350 BNE DUMP0 is it 0 (256 counts)? no, so continue 01360 LDA #$0D yes, so output a carriage return/line feed 01370 JSR [CHROUT] 01380 RTS return 01390 ************************* 01400 *ROUTINE TO RESTORE THE 01410 *PRINTER TO TEXT MODE AND 01420 *STANDARD 10 CPI NORMAL 01430 *CHARACTER SIZE 01440 ************************* 01450 RESPRT LEAX NORMAL,PCR point to printer codes 01460 RESPR0 LDA ,X+ fetch code and increment pointer 01470 CMPA #$FF is it end of code marker? 01480 BEQ RESPR1 yes, go restore DEVNUM=0=SCREEN 01490 JSR [CHROUT] no - output code 01500 BRA RESPR0 go get next code 01510 RESPR1 CLR DEVNUM clear DEVNUM=0 (screen) 01520 RTS return 01530 NORMAL FDB $1E1B printer codes: $1E = end graphics mode 01540 FDB $13FF $1B13 = select standard character size and $FF = end of codes marker 01550 ************************* 01560 *ROUTINE TO DISPLAY 01570 *PROGRAM NAME, AUTHOR 01580 *NAME AND COPYRIGHT 01590 ************************* 01600 TITLE LDX #$520 point to 10th screen line 01610 STX SCRPOS put in screen memory pointer 01620 LEAX TITLEM,PCR point to title message 01630 TITLE0 LDA ,X+ fetch ascii code 01640 CMPA #$FF is it end of code marker? 01650 BEQ TITLE1 yes - go return 01660 JSR [CHROUT] no - output character to screen 01670 BRA TITLE0 go do it again 01680 TITLE1 RTS 01690 TITLEM FCC ' PMODE 3/4 SCREEN DUMP VER 1.0' 01700 FCB $0D 01710 FCC ' FOR THE TANDY DMP-105 PRINTER' 01720 FCB $0D 01730 FCC ' BY: ROBERT ALLEN TURNER,' 01740 FCB $0D 01750 FCC ' RT 3 BOX 458,' 01760 FCB $0D 01770 FCC ' DOUBLE SPRINGS, AL 35553' 01780 FCB $0D 01790 FCC ' COPYRIGHT (C) 20 MAY 1993.' 01800 FDB $0DFF 01810 ************************* 01820 *END OF ASSEMBLY PSEUDO- 01830 *OPS. 01840 ************************* 01850 DONE EQU * point DONE to end of program 01860 END BEGIN end assembly and set EXEC address to BEGIN 01870 ************************* С&╘:ГPMODE 3/4 SCREEN DUMP FOR THE TANDY DMP-105 PRINTER. COPYRIGHT (C) 1993 BY: ROBERT ALLEN TURNER, PO BOX 396, DOUBLE SPRINGS, AL 35553 VERSION 1.00&ьЕ Ж(33021)│50зБж21&їБе22';З"MAKE SURE YOUR PRINTER IS ON WHILE I POKE THE M/L INTO RAM."'╠А F│ 32373 е 32767:Н A$:Т F, Й("&O"лA$):Л F:Т &HFF40,0:З "PRESS ANY KEY EXCEPT [BREAK] TO DUMP THE SCREEN TO THE PRINTER.":в44539:Ю:в32373:К(6Ж 026,000,002,001,212,064,167,027,000,274,215,044,236,272,277,004,006,206,033,267,004,000,215,061,215(аЖ 175,172,004,000,047,014,276,004,006,060,211,000,340,277,004,006,040,353,027,000,201,065,367,206,376) Ж 227,157,060,215,000,015,246,200,201,377,047,006,255,237,240,002,040,364,071,033,027,022,377,206,040)tЖ 267,004,001,316,004,040,276,004,006,277,004,010,206,010,267,004,002,206,007,267,004,003,177,004,004)▐ Ж 246,204,110,166,004,004,247,204,172,004,003,047,005,060,210,040,040,356,266,004,004,104,103,212,200*H Ж 247,300,276,004,010,172,004,002,046,325,172,004,001,047,012,276,004,010,060,001,277,004,010,040,301*▓Ж 071,216,004,040,177,004,005,246,200,255,237,240,002,172,004,005,046,365,206,015,255,237,240,002,071+Ж 060,215,000,017,246,200,201,377,047,006,255,237,240,002,040,364,017,157,071,036,033,023,377,216,005+Ж Ж 040,237,210,060,215,000,015,246,200,201,377,047,006,255,237,240,002,040,364,071,040,120,115,117,104+ЁЖ 105,040,063,057,064,040,123,103,122,105,105,116,040,104,125,115,120,040,126,105,122,040,061,056,060,ZЖ 015,040,106,117,122,040,124,110,105,040,124,101,116,104,131,040,104,115,120,055,061,060,065,040,120,─Ж 122,111,116,124,105,122,015,040,040,040,040,102,131,072,040,122,117,102,105,122,124,040,101,114,114-.Ж 105,116,040,124,125,122,116,105,122,054,015,040,040,040,040,040,040,040,040,040,122,124,040,063,040-ШЖ 102,117,130,040,064,065,070,054,015,040,040,040,040,104,117,125,102,114,105,040,123,120,122,111,116.Ж 107,123,054,040,101,114,040,063,065,065,065,063,015,040,040,040,103,117,120,131,122,111,107,110,124.lЖ 040,050,103,051,040,062,060,040,115,101,131,040,061,071,071,063,056,015,377,101,105,130,216,200,336.vт32:Р.Р╚0:└4:Х200,&H7E74:Бе31,116.Ж 107,123,054,040,101,114,040,063,065,065,065,063,015,040,040,040,103,117,120,131,122,111,107,110,00100 ************************* 00110 *DMP-105 SCREEN DUMP V1.0 00120 *FOR PMODE GRAPHICS 00130 *WRITTEN BY AND COPYRIGHT 00140 *(C) 18 MAY 1993 OF: 00150 *ROBERT ALLEN TURNER, 00160 *BINARY SYSTEMS, 00170 *PO BOX 396, 00180 *DOUBLE SPRINGS, AL 35553 00190 ************************* 00200 *FILE-NAME:"DMP105A.ASM" 00210 *VIA DISK EDTASM+: 00220 *AD DMP105A /WE/AO/WS/SR 00230 ************************* 00240 *EQUATE VARIABLES AND ROM 00250 *ROUTINES 00260 ************************* 00270 LINCNT EQU $400 00280 COUNTR EQU $401 00290 COLUMN EQU $402 00300 ROW EQU $403 00310 STORE EQU $404 00320 BUFCNT EQU $405 00330 TEMPX0 EQU $406 00340 TEMPX1 EQU $408 00350 BUFFER EQU $420 00360 DEVNUM EQU $6F 00370 SCRPOS EQU $88 00380 SCREEN EQU $BA 00390 CHROUT EQU $A002 00400 ************************* 00410 *SET ORIGINATE ADDRESS 00420 ************************* 00430 ORG $7E75 00440 ************************* 00450 *DOS PROG. CONVENTION 00460 ************************* 00470 BEGIN LBRA START branch to start of program 00480 FDB DONE-BEGIN store length of program (tells DOS how many bytes to load) 00490 ************************* 00500 *ACTUAL START OF PROGRAM 00510 ************************* 00520 START PSHS U,Y,X,B,A,CC preserve registers for a smooth return to BASIC 00530 LBSR TITLE go display author name and copyright 00540 BSR SETPRT go place printer in graphics mode 00550 LDX SCREEN get start of PMODE memory 00560 STX TEMPX0 store it 00570 LDA #$1B $1B*$07=$BD (189) = number of lines per screen (actually there are 192, but we are only dumping 189) 00580 STA LINCNT put it in line counter 00590 START0 BSR REFORM go reformat 256 pixels (columns) across, by 7 lines (rows) down into 256 dmp bytes 00600 BSR DUMP go dump the 256 byte buffer to the printer 00610 DEC LINCNT decrement line counter 00620 BEQ START1 if all 189 lines done, then exit 00630 LDX TEMPX0 more lines to do, so get screen memory pointer 00640 LEAX $E0,X increment it (7 lines * 32 bytes per line = 224 [$E0]) 00650 STX TEMPX0 put it back 00660 BRA START0 go do next 7 lines 00670 START1 LBSR RESPRT done, so go restore printer to text mode 00680 PULS CC,A,B,X,Y,U,PC restore registers and return to BASIC. the PULS PC acts as an RTS 00690 ************************* 00700 *ROUTINE TO PUT THE 00710 *PRINTER INTOck "Smartwatch" installed, remove the REM in line 121, the program will SKIP the date input, and obtain the correct date from the "Smartwatch" you have installed in your disk controller. I do not know if this will work with the BURKE & BURKE real time clock, since I never had one. However, the variable used to obtain the date with the Radio Shack Smartwatch is DATE$. SEE LINE 141 were it states: D$=DATE$. DATE$ is printed to my screen like this: 12-Sep-93 17:24 Line 141 uses the INSTR command, looking for the dashes, to obtain the correct variables for the calendar. You may be able to change the program so it will work with the BURK & BURK clock. If not maybe one of our friends, with a BURKE clock will volunteer to re-write lines 141-145 so that the program will work with this clock. ENJOY !!!! GEORGE QUELLHORST. COCOCAL ................................................................. Page 6 The Julian calendar was .3120488 ЁЭwwf"66666>X<|&V,4jd8ll8jl:8800000Z<f>``lvff|ffn6ff><``lvfff8<f<``flxlf8~6kkkklvfffff>lv```>`<|~fffn6fff<ckk66f<<~0~0000[~ g THE DISK. You cannot check a file and see if there are any records in it until after you OPEN that file. As soon as you press the letter L, the program will OPEN the diskfile and print the message: "NOW LOADING FILE FOR SEPTEMBER 1993". After the file is OPEN we use the LOF(1) command to see if there are any records in the file. Which would only be the case if you had previously saved a file for that month. If LOF(1)=0, which means there are no records in the file, the program will CLOSE the file and KILL it. Because when we OPENED the file it was also put in the directory even though there were no records in the file. After the file has been KILLed, a message stating: "FILE DOES NOT EXIST ON THIS DISK" will replace the message "NOW LOADING SEPTEMBER 1993" and, after about 5 seconds control of the program will be returned to you. 2. FILE IS PRESENT ON THE DISK. The message "NOW LOADING FILE FOR ...." will be displayed while the file is being loaded. Once the file is in memory, a message stating: FILE IS LOADED" will be displayed for about 5 seconds. The dates which have a message "attached" will be printed in light brown and, as you move the cursor from day to day, your messages will be displayed on the screen as long as the cursor is resting on a day containing a message. Note: There is no provision to check if a file is present in memory. If you delete or add messages and then accidentality LOAD the file again, all your deletions and additions will be gone. Note: When you ask the program to print another calendar month to the screen, any messages present in memory for the month on display will be cleared from memory. Save the file first if you want to keep it. HARDCOPY: Press the letter "H" to produce a hardcopy of the month on display. A message stating: "POSITION PAPER IN PRINTER AND PRESS ENTER" will be printed on the screen. Position the paper so that the first line will be printed on the very top of the paper and press the ENTER key. The message "NOW PRINTING" will be displayed, a calendar month will be printed that corresponds to the month on your display. Underneath the calendar your messages will be printed. A line of minus signs will be printed underneath every Saturday to make it easier to read. If no message has been entered for any given day, a line of periods will be printed. This gives you a change to enter more messages by hand at a later time if needed. NOTE: It stands to reason that you must Load a monthly file into memory before you can make a printout of it. BAUD RATES: POKE 150,180 = 300 BAUD. POKE 150,87 = 600 BAUD. POKE 150,40 = 1200 BAUD. POKE 150,25 = 1800 BAUD. POKE 150,23 = 2000 BAUD. POKE 150,18 = 2400 BAUD. POKE 150,10 = 3600 BAUD. POKE 150,7 = 4800 BAUD. POKE 150,3 = 7200 BAUD. POKE 150,1 = 9600 BAUD. You will find the poke for the BAUD rate in line 63 of the program. You must edit this line in to set the correct BAUD rate for your printer. COCOCAL ................................................................. Page 5 PRINTER CODES: To produce a hardcopy of the calendar the printer has to be in the elongated mode. If not, the numbers and days will not line up on the paper. As the program is written it will run without changes, other than the BAUD rate, on all Radio Shack series DMP 300 printers. For those of you who have a different printer, listed below is a description of all the printer codes I used in this program. You will have to edit the lines 63 and 68 and change the printer codes to suit your printer. LINE 63: CHR$(27);CHR$(18) ..................... 10 CPI NLQ CHR$(27);CHR$(14) ..................... START ELONGATION CHR$(27);CHR$(31) ..................... SELECT BOLD CHARACTER LINE 68: CHR$(27);CHR$(15) ..................... END ELONGATION One final note, the font used in this program, FONT/FNT, is NOT reset protected. If you press the reset key for any reason, type LOADM "FONT/FNT" and press ENTER. DO NOT EXEC ! Without the special font the two arrows on the calendar would turn out to be an up-arrow and a reversed slash "\". EXTENDED ADOS 3 REAL TIME CLOCK USERS If you have EXTENDED ADOS 3 installed in an EPROM and also have the Radio Shathe last character of the message. Pressing ENTER after you typed in your message will erase the message "ENTER REMARK FOR DATE INDICATED" and "PRESS ENTER WHEN FINISHED". The message "PRESS ENTER TO TYPE IN MESSAGE / PRESS CLEAR TO ERASE FROM FILE", which was "erased" when you pressed ENTER the first time, will be reprinted to the screen. The message you typed in will remain on the screen. Your message is now part of the file. Lets run a practice session. To make sure we are all together on this, press ENTER on the 10th day of September, 1993. The input message will be printed to the screen. Now type in "This is the tenth day of September 1993" and press ENTER. You will notice that besides the input messages being erased and the ENTER/CLEAR messages being re- printed nothing happened. Now move the cursor to 11 September, by pressing the right-arrow once. The message you just typed in will disappear, and the number "10" on the calendar will be printed in a light brown color. This lets you know that you have a message typed in on the 10th day of that month. NOTE THAT THE NUMBER WILL NOT CHANGE COLOR UNTIL AFTER YOU HAVE MOVED THE CURSOR. Now move the cursor back to the 10th by pressing the left-arrow once. The message you typed in earlier will once again be printed to the screen. COCOCAL ................................................................. Page 3 Note that only the backspace function works while typing in a notation. Pressing the left arrow while entering a message will erase the last character displayed on the screen. THERE IS NO CURSOR WHEN YOU ARE TYPING IN A MESSAGE ! All dates containing a message will be printed in a light brown color. When the cursor is "resting" on a day containing a message, the message will be printed to the screen. You may replace an existing message at any time, by pressing ENTER on a date that contains a message. But bear in mind that the existing message will be cleared from memory as soon as you press ENTER on a date containing a message. THE CLEAR KEY: While you are scrolling thru a month containing massages, you are able to "CLEAR" the message from the file by pressing the CLEAR key while the message is displayed on the screen. THE CLEAR KEY DOES NOT WORK WHEN YOU ARE ENTERING A MESSAGE. Now move the cursor back to 10 September. When the message is displayed press the CLEAR key. The message will be "erased" from the screen and "cleared" from memory. Notice however, that the number 10 will NOT change back to a light blue color until you move the cursor to another date. ( Note: Also see save a file for clearing messages ). SAVE A FILE: Press the letter "S" to save a monthly file to disk. Each monthly file will be exactly one granule long. The file will be named by the program. For example the file for September 1993 will be saved to the disk as SEP1993/DAT. You will NEVER have to enter a filename either when saving or loading. After you press the "S" several things could happen depending on the status of the file. 1. If no messages have been entered for the month you are trying to save a file for, the message "NO DATA IN MEMORY FOR THIS MONTH" will be printed to the screen and of course, the empty file will NOT be saved to your disk. 2. If data has been entered and no file for that month is on the disk, a message stating "NOW SAVING SEPTEMBER 1993" will be printed to your screen. After the file is saved, a message stating "FILE IS SAVED" will be displayed for about 5 seconds after which control of the program is returned to you. 3. If data has been entered and a file for that month is already present on your disk, the message "FILE EXISTS, OVERWRITE es or O" will be printed to the screen. Pressing N will abort the save. Pressing Y will save the new file to the disk. You may add or delete "CLEAR" messages from your file as many times as you wish. After you CLEAR a message from memory with the CLEAR key, (SEE ABOVE), you MUST RE-SAVE the file in order to make the change permanent. The same thing applies when you are adding messages to your file. ALWAYS RE-SAVE THE FILE AFTER DELETING OR ADDING MESSAGES. COCOCAL ................................................................. Page 4 LOAD A FILE: After pressing the letter "L" one of two things may happen: 1. NO FILE PRESENT ON There are three main menu's, all three are displayed continuously. Two of the menus make use of the four arrow keys only. The third menu will let you display a new month, load a file, save a file and create a hardcopy. You will notice that the four arrows displayed on the LEFT side of the screen are printed in yellow, while the ones on the RIGHT side and also the letters C,L,S and H are printed in light blue. A menu is active when the letters and/or arrows are YELLOW. When the program is first run, the number one, or the leftmost menu has yellow arrows printed on the screen. The number one menu is active. Pressing the SPACEBAR once will color the arrows on the number one menu blue and the arrows on the number two menu and also the letters, C,L,S and H yellow. Pressing the spacebar again will activate menu number one again. Note that menus two and three are always active at the same time. MENU NUMBER ONE: This menu will let you scroll thru the calendar. Press the up-arrow and the following month will be printed on the top right side of the screen. The down-arrow will display the previous month, the right arrow will produce the same month a year later, while the left-arrow will display the same month in the previous year. MENU TWO: Besides changing the colors of the letters and numbers to indicate the active menu, pressing the spacebar will also print a message in light blue stating "PRESS ENTER TO TYPE IN MESSAGE / PRESS CLEAR TO ERASE FROM FILE". A left and a right arrow will also be printed on each side of the number one on the right calendar. These two arrows are your CURSOR. The cursor is manipulated with the four arrow keys. The up-arrow will move the cursor one week backward, the down arrow will move the cursor one week forward, while the left and right arrows will move the cursor one day backward or forward. The cursor sports a wrap around function, pressing the right-arrow while the cursor is on a Saturday will move the cursor the the following Sunday. Pressing the left-arrow while the cursor is on a Sunday will move the cursor to the previous Saturday. The up and down-arrows wrap around slightly different, pressing the up arrow while the cursor is on the top row of numbers, the first week of the month, will move the cursor to the LAST day of the month on display. Pressing the down-arrow while the cursor is on the bottom row of numbers, the LAST week of the month, will move the cursor to the first day of the month. COCOCAL ................................................................. Page 2 MENU THREE: THE LETTER ; Pressing the letter "C" will cause the following message to be printed on the screen: Please input date. (MM,DD,YYYY) : This function will allow you to display, on your screen, ANY MONTH FROM 1/1/1753 TO 2/28/4905. Once again the date will have to be inputted separated by commas. A few safeguards have been added to this input, if you type in more than ten characters, or there are no commas in the input, a warning beep will sound, your entry will be "erased" and you get to try it all over again. As far as "editing" your entry goes, since we are working with a HSCREEN here, only the backspace function works while you are typing in a new date. THE ENTER KEY. Since we cannot load or save a file or print a hardcopy until we have created a file we will discuss creating a file first. You are allowed to make a 66 character entry for each day of the month. Place the cursor on the day for which you wish to make a notation and press the ENTER key. The following will be printed on the bottom of your screen: ENTER REMARK FOR DATE INDICATED > 22 .................................................................. ]" PRESS ENTER WHEN FINISHED. The number 22 is the day of the month on which you pressed the ENTER key. The 66 periods represent the 66 characters you are allowed for each entry. The space in front of the bracket will accept an ENTER press only as it is the 67th character. Typing in any other character will create an error beep. Press ENTER when you have typed in the notation. Note that you DO NOT have to press ENTER on the space in front of the bracket if your notation is shorter than 66 characters. Press ENTER after you type in APPOINTMENT CALENDAR FROM 1753 TO 4904 How did we get our present day calendar ? The basic building blocks of our calendar are days and years. A day is the time it takes the earth to rotate once on it's own axes, it does this every 24 hours. A year is the time it takes the earth to revolve once around the sun, this takes exactly 365.24219878 days. It is easy to understand why the early astronomers had such a hard time creating a calendar, the number 365.24219878 is not very easily divisible into smaller units. In the year 46 BC, Sosigenes, an Alexandrian scientist, under orders from Julius Ceasar, created the forerunner of our present day calendar it was called the Julian Calendar. Sosigenes erroneously believed that a year was exactly 365 days and 6 hours long. The Julian calendar had 365 days, the months had either 30 or 31 days, while February had 28. A leap year having 366 days was inserted every four years to correct for the believe that each year was exactly six hours short. In actuality, a year is 365.24219787 days long. But since four times 0.24219878 does not a WHOLE day make, it is only 0.96879512 of a day, and because a FULL day was added every four years, the calendar became more and more inaccurate as the centuries passed. The Julian calendar was .3120488 of a day or 11 minutes and 14 seconds too long, by the time Columbus set sail for these good old United States in 1492, the calendar was 10 days ahead of itself. In the year 1582 Clavius, a famous astronomer, provided prove to Pope Gregory XIII that the vernal equinox was occurring on March 11, instead of March 21. This was a serious error as far as the Catholic Church was concerned since the vernal equinox is used to determine the day on which Easter is celebrated. Note: Easter falls on the First Sunday following the first full moon after the vernal equinox. After much persuasion by scientists and astronomers, Pope Gregory XIII declared that the day after October 4, 1582 would be called October 15, 1582 thus in fact removing 11 days from the year 1582. To make up for the inaccuracies of the Julian calendar, three leap years were omitted from it every 400 years. The omissions take place at the turn of the centuries. The year 2000 is a leap year, but 2100, 2200 and 2300 are not. Because of this new arrangement, the solar year is now only 26 seconds shorter than the "AVERAGE" calendar year. The accumulated 26 second errors will equal exactly one day in the year 4905. ( Better make a note of that !! ) The new Gregorian calendar, took effect immediately in Italy, Spain, Portugal, France and Poland. England and the thirteen American Colonies did not change over to the new calendar until the year 1752. Riots broke out in England when the change over was announced. People accused the state of "stealing" eleven days from their lives. Because the American Colonies did not adopt the Gregorian calendar until 1752, this program, COCOCAL, is accurate only from 1753 until February 28, 4905 because the year 4905 will also be a leap year. Russia adopted the Gregorian calendar in the year 1918 while Turkey waited until 1927. An interesting side note is the fact that when America purchased Alaska from Russia, in the year 1867, 11 days had to be dropped from the Alaskan calendar to make it compatible with the American calendar. COCOCAL ................................................................. Page 1 COCOCAL: Cococal will display an accurate monthly calendar on your screen from the year 1753 until 4904. When the program is first run, you will be prompted for the date which must be inputted in the following manner: Month,Day,Year. Thus January 4, 1993 must be inputted as 1,4,1993. Failing to use the commas will result in a "REDO" error. ( SEE ADOS NOTE AT END OF ARTICLE ) After the present, or any date has been entered, it will take about six seconds before the program is displayed on your screen. On the very top of the screen two identical calendars will be displayed, why two ? Well, the calendar on the left side of the screen is the permanent calendar. This calendar which normally is the "present" or real time calendar will stay on the screen at all times while the program is running. The numbers on the calendars will be a light blue, while the present date, the one you inputted, is yellow. ╪P?■`Ё└░└Ё└Ё└Ё└Пр└?О с└Я с└? ч└ ч└9√ ╧А9ў ▀?╧ └П Ў└uЯ └? э└> ╜¤└} Я√└ Ыє└;я√уА7 є╟Аoўў╧Аo ўПяўЯ ў╛■яЎ└■яn└ я°└?¤я∙└? с└ ├└ ├└ ▀├└ ┐Г└ ?└ ■└o■Ая ПА;╧ ▀3~ ▀└q ▐└c √ └g ╣ └0■└ ░>└ ░|└рx└|└x└рx└_рp└\°`└|°└№|└я■└xaчў└xёч3└|щ√│└}└∙ё└yШ¤°└}Ь¤°└{М~|{~|>|~■>■¤?Ў=√ПЎ¤ЗЎ¤Гў¤├у■╟у■чуА■vсАЁс└р?р└└└└└└└p└└8А└А└А└└ └▀└ └s └s▀└Г █└?Г╛╧└З?Н└?├}М└?╟¤А?ч¤Аf w 7 ;√√√▀√■ Ў└ўЎ└ўЎ?ўЎ> № № №{ №8 № №w № ь0 ╠0 ╠ ╠0 ═░ Мp ╧ ▀Ё} Ё┐ Ё= Ё? ■Ё? №p? ░? р?┐№p р Ёя Ё Ё ■p xя X7я | М? ╠;▀ўь√ ь?¤ ю¤}ц¤ ╞№ ч г?▌ у є▀№sА;¤ ё@ Ё Ё{■ ∙└9▐o∙└9╝э└s╝э└x0?э└78=5; #0??? Qе0qеX╒4_ ∙└9▐o∙└9╝э└s╝э└x0?э└╠╠╠№╠╠╠x00000x╠╠xцflxlfцЁ```bf■╞ю■■╓╞╞╞цЎ▐╬╞╞8l╞╞╞l8№ff|``Ёx╠╠╠╠▄x№ff|lfцx╠рx╠x№┤0000x╠╠╠╠╠╠x╠╠╠╠╠x0╞╞╞╓■ю╞╞╞l88l╞╠╠╠x00x■╞М2f■0№00~0T|88|T 8x|╠vр``|ff▄x╠└╠x|╠╠vx╠№└x8l`Ё``Ёv╠╠|°р`lvffц0p000x╠╠xр`flxlцp00000x╠■■╓╞°╠╠╠╠x╠╠╠x№ff|`Ёv╠╠|▄vf`Ё|└x°0|004╠╠╠╠v╠╠╠x0╞╓■■l╞l8l╞╠╠╠|°№0`№юККккюf3Щ╠f3Щ╠00&f■■` | а╫8x|╠vр``|ff▄x╠└╠x|╠╠vx╠№└x8l`Ё``Ёv╠╠|°р`lvffц0p000x╠╠xр`flxlцp00000x╠■■╓╞°╠╠╠╠x╠╠╠x№ff|`Ёv╠╠|▄vf`Ё|└x°0|004╠╠╠╠v╠╠╠x0╞╓■■l╞l8l╞╠╠╠|°№0`№юККккюf3Щ╠f3Щ╠00&f■■` | p╓P0а║ а▒а║░0^р#│8 а░б б║░0Ра#ж Рp|0pЁ0░▒аб░а░а░б б ░0а йep0░а║ аа0Ри! А┤^╨Т e╨p{0|0{8б║ а8ЦY ] e аpЗp0л░а░а0У ] Z┌╫ж]нз а║ ваА░А}eна╓Z┌|0┌]н e┌|8p0б ааа░Р0╣ 0pz╓Z╨жPн╓]н ep0░а ала0░а9 ┌e┌{0pЗ╓Zpб ║▒а0: аАp|0pЗабаа0pў│ а░а0ps{?pа └p{ ў{0pаа0pЗ├│ў 0pў 2В2Л╦└;╦├╝░<╝░<╝╝▒ ▓╫_нЇАА ?ўР №┴√╨А8╟А |x!╕` ╠ ~Яё╔░└3А @ ?ДЁ+p@ р@аB├° dр№ @? ч└ А >░тxp№0°@ ?№$@р| └ БД?Ё@└фCАp8АсЁА?>x╬А\А@ф╬р└8pH Ёїє№А <╨ЁCА@■№&p┴са<°ЁЬ?$8Г■@р8фррш8@~ єАЁ└? р) ╧АЯ└Ё№~>>Д° └p.Ё р|p└└@ А| ╬p°p└└>рА?А З°рЁ|р└ВЁ° ╧є└А°А°└ИCЗ┴╛`╖пx ЁH^8М>Е░ └pрр└ ~Д@с└Зр ╪╚╟| └HА> ?p8╕єАЁ? └@ 8@рАр<@Щ├А!АрА°p<(╛ Рx8Зs АD"рh А└>0°АД А_└&($■чА||3 рB VАкааА`╝АБ╠ @([дкАА└а8рЁ8а└ьк№№'└?рр|@Б[m·╚РАьЁААГАs@АP╕8Ёр|В_Шa╖$0 с└|°@ИURн `╚PА╛Б8╚А2P"@>(а └p╬└°H$UP- ┴└аi°Б0е@▀ №ВА({└>@Ё~? ¤А┴Ь ь■А@ с ╕?ррся ∙0(АбЁА%TPр<<х ~╛°? ·L╦тp░рpD?А ¤ ў~S╧ў °|°`ЗOр ╕Ю├╠З└A╕?°;kП°oтD# ▒Ьє■[■p GА;~Ёя%D є░ШrГ▀°Б├А<Ша╠3Ё|LК<57я0p░8p8Б╩ёАа#ПЁ@CЗ└SФА╢№Ь°Х╜7Ь рр ° 0`? №_┤╪√аЁ№Ё@╘ўаБ рЁ№р4$ ■°└А■$ ┴№Ё 2р)@$ `├А╪А<└5╣J└ aА[■рр?Д╚h!┘ ЛМ>Ёmрt░╚АP@Щ°ў Б═?@?@H@ А├р6├╞"ААkр╬8ч─ Р└Vа>╩ └@ a Ёэ╝└(H$!b╧АэЁpАA" PАbИ|yыЁТ@ ╚ ДВёч└B¤$С√0pA№`B╖о√80@╗╤P №╧р└@└н`АR0├╧√└ №@ ╦@а└РАя8■@А'w[V│ р!ДPкZ-аЁ/4╟\xя√j█ ср ыу1Ё╝`0@%@&└1_└р+N╥т█AЇIА?└ BА мP °`·└Ь и!┼ я?А~Н6X │.Ў■{╗ЎА$T║┴kXB╔ЫАyAО└ └<╝Ё=А рK■А@ ь┤дЁЖр!?РААБ°%╡Т┼Ио> └~ВюБ╦г^(K р"■ А╝т6 ┬─XС=▒и;ь@Аы'~ё]√АИ─А рА└"BтШ=А0┼[√а!╘шўА0Ё1DмАPБ╢░╕` }ъ╪Iи╧НZЁo╠>╕└:сЫ ▒М3OАxM╒р╪А│РНд╔Ж╠>АPYА└╨ы&у@╤└╛Н>`x8`╓Д=е╗@,Оw° 6┴А&в╕{KAА┴@№ А eР`SФўx (M▒│bp2;╛¤ш Е`Б╨░F А┴o|Ш мгc Ша_R║А р<└(┬╒├И$Ю p`n@eEGГ┬▒°ў└ А1JА═А2БЕ(А╪Cp.└р<~w└├@K▒А╕`╨ в╥3¤@ц╞87╟ї ?рЗ╞цx■ьхАё R■ p юВ`o|А0╕╬Ар Ё √N└0>CЁ Pc,А╩сGЯ ~ @`Ё¤╖Е┌БoгpяЮ@А0|{`▒А └q0╕ @А└Аз$╢@ 0<╗ЛК ┴рмА01╡└Я9■ыБРpЫ~╕°jU╟▀╕?}∙ЧЗ▒└-f└·Ч0nЖЯВ╣№Я¤ Я#АгА<їр(0ъ.V└>х┐°ААtF 8~bП @уХЗКМ№Е?ЖCЯ;Ёд~ВК █yДАP+╞╕Z9ОВК└"}w└i,ВЛ8@Pc░┬П└P РВ╝6PшV╟▀¤═ц°╙`■;G я? Ю> √Ю?└ х└>/=┴·▀¤ ЮД|¤╨╫ўx~╜ (▀фs┼·└\А@ АAvўш╣W('╔E 8<РАА╛p7░l/╩0єЖE ,0З@0l└?■√╖ъ`% +АА`/щ╝аQАЯ√∙ї ╗ uы√й╜╓k┌п■═_г3П;Ў·╧¤ш~ўя▀Ы╖¤g╖╜н╫_¤№з┌Пz№№¤ўо С├╝,Ї9╜И╙U{<ПшА═╕М√▐╞╛GП█?ўё └x╦№~я№1щь ╬пр`ьАAёЄБ╧°7 Г |` └ўрЁўА ╗Є а┌}а3?а?■рg ° ┐√°ў └} ┐{°┘Ё┐Яй└∙є№▐╜▌_Ч№ ў ■╠ ·¤№V ц э√└■■╗▀╬№vт√чє│ f? ▀ s ¤┐╧ √ ;┐ ўг№9╖°?є┐ є┐√ ╠¤ ■ o ∙╬ё┐ √цv¤ы ▀┐│ ■ эS Я¤╖ э▀╒v┴'╗}k~/Н■WOу[╝+явАP╜\пО М'0 ў ┘╜╜чB╜с╛@ОЯ╙ьД¤@пБ╬;ГZ$ ьДэ┴пБ ё╛TЯ╙╛VЯ╒╜5╛RЯ╫╛TЯ╙╜5╛NЯ╙╛PЯ╒╜5╜5a╜5Б}L'╜5ш╜╜р ╜А ╪9АО/О йжАзаМ п&Ў9О5 ьО;О ░ьБэбМ └%Ў╢K╖ Ъ990123>0123=>О б╞0М д$чА\ ЎЮж40НЯж╜╧├5ЯжО б╞"А9М д$чА\ Ў╠▄▌Э9"SCREEN /NIB" !рА5Ю╙ОЬ╒%9цДoАча ЄО┐ Ю╙1?М@%цдoдчД1?0 ю0Я╧╬@ОЖАЧ╦У╫%▀╙9ждФ╦'жАЧ╠╓╠ч└╦ ╦&фЖАЧ╦1! ▄О┐ Ю╙1?М@$0┐а9цдчДoд1?0 ~5АшОО@■аЖАЧ┘╦М└%9ждФ┘'╜5├Ц═зД┘ждФ┘'╜5├Ц╠кДзА┘ ┘&╓ЖАЧ┘1! ╬ ╦'ц└─╦╫╠XXXX╫═ ╦ц──Ё╫═TTTT╫╠ 9О@О@аМ└%9цАшдча ё , _ ШЯШxЁ`g`pqяp`сёБА` @`g`ёБ` @`qёБ` @``B`EGgB@&ёБ` E@p$`TPp2$&с°TPp2`с°` vp'2#&яБЖvE2# с°` vp5E120ёБЖvv020Б`vp0ga vv2@сёЖva#v`vC`сяvp0`gGgapvp$&яБ`ggT0B`Жg 0`@04$`с°`g`0`@0`°`0А`@0q`сёЖ`@0qv°`ас@0qvёБЖ :ё`0`ёБ`0АР:q`сёБ`0Арpt>аЁ p0q`ёБ`АiЪ p0qvБ`Айж╨p0vяЖjУйiж▄p0`РсёЖ0АЪЦЪЦ║░0°v`╘╨ёЖ`А0`╨А╨aЗ`p`Аp0v ; 4T4вRbвRb А╓З4rнQRQRаqC@а ╟L░`PЁўАЗ4ypрpр~J C@гаm ░╕ЗПxpCGЧ pрРЧЧ д] KЛ┤░`PpЗЁpрypрУ ЪРрp╙C@0╕░8╕0╕░`PЁpxЁvpУй 0р}RZ╨`PЁ°pЗЁqvqvqpРй а0Ъ ╥Z╪;K█ЗПapqvpръ:Ъ 9 u%ЛKMН`ръ ~u%pЁЁ``р@арrвR`о Ю~rRРа0РрyrRнPЁ` а0Рu╙Cя p~}нпя РyчЮu5а0Рчu5╨`ъu50└`рJ % └`а@: чЧ% └`ра@аР~ypщч%%а@а0Рщ y~u% RWР% a Уй ЧчЧ%~pРrR рpy ypЧ% `@а@аРЧч% ~pчR ЧРЮrR РprP@P@агчрpРp~u @е0P@0ypРprP@аЁPSP@0pрp~u аЁP0└╩а@0РЧ Ч% P0аPа@а0РpРpчR`аPЁа@аРщч% PZда prR ЁP@ аРp~rR е`j p~Ч% ае@Рp~Ч% чЧАшч yp@Ё`црЧАр`Ч p@ЁаЁаАрАрpа@аЁаЁр`n pа@ЁаЁрцpЧ Ч `ypа@ЁаPЁ°ч ч а@╧ аЁ`щpРг PаЁp`p0РЪ PаЁЙ eа_`рч РУ Ёп ч АРа@аPЁа·аЁpypШ а@е ч БШ Р@├Ёап pч РБШ 0а@жЁаЁx Рй Pe p°pСРУ eг Ёp0РСРг Z pЗ РаГ╡аЁаЇЗРаъ└аоPEp0АРаъ P@N p0РС дрЧч АЙ Й 0аЕeЁрЮ Р0аeрцPорРЧ @рpЙРг рZс p PCрщyч ;рpРЮp0САРарeаррч ГPц ч 0Pач e А8░АР0аиn^ p╕ АР0а^`Г░р╨p╕ АР0аnў╚p╕0│ ╚p╓] e╨0а░Л1РАРаи;р^]{ўнeн e╨╓] e╨▐ А ^eэe|Зна╓Z┌ e╨e╨╓ Ъ8│ ;рц┌`z┌eнpў╓]0░а80РЪ ар░АZeнж|; Г Г░рГ┌|0p│0алАРац`Г0░а▒║0Рархр^eCps8 ░0Рй ^^eш8@4pЗ0p╓] e╨░║а░8 eц{0}не┌p╓] e╓ e╨╓А░а░0РажZ0Гeрнeн ┌]н e┌╨╓]│╨│ e ░║ ░0РУиЖ^нeнз}ж]наА0ла░а░а0Р: N;0░чx0p│А0▒л░▒л ▒Эрц[Г|0p│0▒а░бла0Р▐eцP░7а e`^Аpў8 ^ 0pЗ├│л ▒а0РЫ4ъц│┌╓Z┌╫┌╓ e а░ оГPнeн ╓Z┌ eнз│┌e╨нж╨╓P╨│А0 ║ р[eeнзz╓Z╨нe┌╨ж]зн e▒аб л ░а▒ ║ ж^eрЖ^├┌╓Z┌ у&В FROM ISSUE #20&F :Г NIBSHOW 1.1 by Stuart T. Wyss-Gallifent&Е:Г incorporating the NIB COMPRESSION SYSTEM by Rick Cooper&б:Г NIBSHOW 1.1 (C) 1993&ё(:Г A few commands are duplicated within the program due to NIB interaction.' 2т 80:у 0,0:у 8,63:Ю1''<└8:Х500:МFL$(26):ИЁБе370'pFТ&HF09D,0:Т&HF09E,2:Т&HF09F,0:Т&HF014,0::ГDRIVE,HSCREEN,LINES,BORDER'▒PТ&HF010,0:Т&HF011,0:Т&HF012,0:Т&HF013,0::ГCOUNT,SS,SSK,DELAY'▌ZТ&HF016,1:Т&HF015,1:Т&HF017,0:Т&HF018,1(d:Г LOAD NIBLOADR.BIN FROM DRIVE 0( n╧0(-xТ65496,0:╙M"NIBLOADR":Т65497,0(\ВЕ Ж(&HCFC3)┤▓&H8D зТ&HE76,&HCE:Т&HE77,&HE7(fМБе380(КЦ:ГCHECK DISK FOR NIB EXTENTIONS(Фау9,55(ккАA│2е19:ё0,A:З:ЛA(╧┤°1,0:ё28,12:З"Reading directory"(╫╛K│0(у╚АS│3е11)╥Т65496,0:▀ Ж(&HF09D),17,S,A$,B$:Т65497,0)$▄АA│1е З(A$)й32)fцЕ Р(A$,Aл8,3)│"NIB"░ К( Р(A$,A,1))┤▓0зK│Kл1:FL$(K)│ Р(A$,A,8)){ЁЕK▓26зK│26:Бе300)В·ЛA)ХАA│1е З(B$)й32)╫Е Р(B$,Aл8,3)│"NIB"░ К( Р(B$,A,1))┤▓0зK│Kл1:FL$(K)│ Р(B$,A,8))ьЕK▓26зK│26:Бе300)Ў"ЛA:ЛS*,ё28,12:°0,0:З" "*&6АA│1еK*S@Е З(FL$(A))┤8зFL$(A)│FL$(A)л Л(32):Бе320*ZJЛA*ЛTТ&HF010,K:Т&HF018,1::Г SET NUMBER OF ENTRIES*─^АA│1еK:АB│1е8:Т&HF019лAн8лB, К( Р(FL$(A),B,1)):ЛB:ЛA*╬hБе390*шrХ500:МFL$(26):ИЁБе370+|ф0:Ю:°0,0:у0,0:у8,63:у9,54:у10,19:у11,53+?ЖТ&HF011,0::ГSET SLIDE SHOW TOGGLE OFF+├Рё0,0:З"Current drive:" Ж(&HF09D):ё28,0:°1,0:З"N I B S H O W 1.1":ё60,0:°0,0:З"Default Hscreen:" Ж(&HF09E):З"Vertical lines:";+■ЪL2│ Ж(&HF09F):ЕL2│0зЗ"192":ДЕL2│1зЗ"200":ДЕL2│2зЗ"225",Fдё66,1:З"Border:";:Е Ж(&HF014)│0зЗ"black";:ДЕ Ж(&HF014)│63зЗ"white";,tоЕ Ж(&HF016)│1зТ&HF016,0:АA│2е19:ё0,A:З:ЛA,╝╕Е Ж(&HF017)│1зТ&HF017,0:Бе470:ДЕ Ж(&HF017)│2зТ&HF017,0:ё79,22:Бе480,╥┬Е Ж(&HF010)│0з470,▄╠Бе930-Ц╓Е й(445728)┤▓65зё0,21:З"Arrows:move Space:load D:directory C:change drive number B:border swap H:hscreen swap L:192/200/225 lines select S:slide show X:exit"-лрA$│ Т:ЕA$│""з480-═ъЕA$│"X"зТ65496,0:Х500:╧0:Ю1:К.mЇЕA$│"S"░ Ж(&HF010)▓0зё0,21:З б(160,32);:ё0,21:╗Й"Time delay between frames (in seconds, minimum=3): ";A$:Е Й(A$)┤3▒ Й(A$)▓900з380:ДТ&HF013, Б( Й(A$)):Бе850.╩■ЕA$│"H"зЕ Ж(&HF09E)│2зТ&HF09E,4:Т&HF017,2:Бе400:ДЕ Ж(&HF09E)│4зТ&HF09E,2:Т&HF017,2:Бе400/_ЕA$│"C"зё0,21:З б(160,32);:ё0,21:╗Й"New drive: ";A$:Е Й(A$)┤0▒ Й(A$)▓3зТ&HF017,1:Бе400:ДТ&HF09D, Б( Й(A$)):╧ Ж(&HF09D):Т&HF010,0:Т&HF016,1:Бе400/╣ЕA$│"L"зТ&HF09F, Ж(&HF09F)л1:Е Ж(&HF09F)│3зТ&HF09F,0:Т&HF017,2:Бе400:ДТ&HF017,2:Бе4000ЕA$│"B"зЕ Ж(&HF014)│0зТ&HF014,63:Т&HF017,2:Бе400:ДЕ Ж(&HF014)│63зТ&HF014,0:Т&HF017,2:Бе4000(&ЕA$│"D"з1500>0Е Ж(&HF010)│0з4700X:ЕA$│ Л(32)зA│SL:Бе5900cDБе10300ХNF1$│"":АB│1е8:F1$│F1$л Л( Ж(&HF019лAн8лB)):ЛB0ЯXБе6100╦b:ГACTUALLY LOAD THE PICTURE AND DISPLAY0▐lАX│0е З(F1$)м11vТ&HE92лX, К( Р(F1$,Xл1,1)):ЛX1АТ&HE6E4,&HE61!Кф Ж(&HF09E)19ФХ1:МFL$(26):ИЁБе3701FЮТ65496,01Qив&HF001^▓Т65497,01x╝Х500:МFL$(26):ИЁБе3701д┴А QZ│0 е 3:DP(QZ)│ Ж(&HFFBBлQZ)м64:Л QZ1═╞Т&HFF9A, Ж(&HF014):Е Ж(&HF09E)│4з7402╨L2│ Ж(&HF09F):ЕL2│0зТ&HFF99,158:ДЕL2│1зТ&HFF99,190:ДЕL2│2зТ&HFF99,1262!┌Бе7602kфL2│ Ж(&HF09F):ЕL2│0зТ&HFF99,157:ДЕL2│1зТ&HFF99,189:ДЕL2│2зТ&HFF99,1252uюБе7602Л°Е Ж(&HF011)│1з8902┤I$│ Т:ЕI$│""зЕ Ж(&HE92)│42з1110:Д7702├ЕI$│"1"зф12фЕI$│"2"зф2:Е Ж(&HF09E)│2з7102є ЕI$│"3"зф33*ЕI$│"4"зф4:Е Ж(&HF09E)│4з7103X4ЕI$│"L"зТ&HF09F, Ж(&HF09F)л1:Е Ж(&HF09F)│3зТ&HF09F,0:Бе710:Д7103╕>ЕI$│"B"зЕ Ж(&HF014)│0зТ&HF014,63:Т&HFF9A,63:Бе770:ДЕ Ж(&HF014)│63зТ&HF014,0:Т&HFF9A,0:Бе7703┬HБе7703╙R:ГSLIDE SHOW3ў\Т&HF011,1::ГSET SLIDE SHOW FLAG4fТ&HF012,14VpF1$│"":АB│1е8:F1$│F1$л Л( Ж(&HF019л Ж(&HF012)н8лB)):ЛB:АP│0е15:уP,0:ЛP:Бе6104_z Я│04ЯДЕ Я▓ Ж(&HF013)н60з910:ДЕ Т┤▓""з910:ДЕ Ж(&HE92)│42з1110:Д9004╪ОТ&HF012, Ж(&HF012)л1:Е Ж(&HF012)▓ Ж(&HF010)з870:Д8804тШБе3804эв:ГMENU5мАA│1е Ж(&HF010)5-╢HS│(Aм1)м( Б((Aм1)о4)н4):VS│ Б((Aм1)о4)5=└ёHSн20,VSл35F╩°3,05n╘АB│1е8:З Л( Ж(&HF019лAн8лB));:ЛB:ЛA5Ж▐SL│ Ж(&HF018):OL│SL5┴шHS│(SLм1)м( Б((SLм1)о4)н4):VS│ Б((SLм1)о4):ёHSн20,VSл35ьЄ°0,0:АB│1е8:З Л( Ж(&HF019лSLн8лB));:ЛB5Ў№Бе4706$ЕA$│ Л(10)зSL│SLл4:ЕSL▓ Ж(&HF010)зSL│SLм46IЕA$│ Л(94)зSL│SLм4:ЕSL┤1зSL│SLл46mЕA$│ Л(8)зSL│SLм1:ЕSL┤1зSL│SLл16Ъ$ЕA$│ Л(9)зSL│SLл1:ЕSL▓ Ж(&HF010)зSL│SLм16╡.ЕSL┤▓OL з 1080 :Д 10206Ё8HS│(OLм1)м( Б((OLм1)о4)н4):VS│ Б((OLм1)о4):ёHSн20,VSл37B°3,0:АB│1е8:З Л( Ж(&HF019лOLн8лB));:ЛB77LOL│SL:Т&HF018,SL:Бе10007EV:ГANIMATE7QeH│DP(3)7zfА QZ│3 е 1 й м1:DP(QZ)│DP(QZм1):Л QZ7ЖgDP(0)│H7йhА QZ│0 е 3:у 11лQZ,DP(QZ):Л QZ7тjАT│1е Й( Л( Ж(&HE93)))н15:Л T:Е Ж(&HF011)│1з900:Д770ёHSн20,VSл37B°3,0:АB│1еЬ GyРЁ└Ё└Ё└Ё№└Ё№└Ё№└Ё└ЁапаЁ└ЁpЁ└ЁpЁ№ Ё└Ёz Ё└ЁpапаЁz └ЁpЁpЁpЁpЁpЁpЁpЁpЁpЁpЁ аЁаpЁаз pЁаз p pЁаpЁаpЁаpЁаpз pЁаpЁаpЁаpЁаpЁз _ZАА АА АИ !" H @! @E 6PИDА6АРАШ└ИАPАашPHА@@ ДP! Аpа."РrА@в@4H@дB$А @ВРГ ДR4ГДV@-АOP@ЗА Tр@З аHА*а hYБ ( (Р ( ! 0б@АЕ@`└B(HF@А └ААР└ИD &@+@А@HА(║"А■@ <└Y`H(ЙХ@ р6иР(9А`K@@B@ ЪАHИА0Р@`0А( Д @BHF@АDАшИAАр@МHД╨╘ААаИ%А АА@аRА" аААшQCХы╒KчSV¤==~zm│l┘Ы3f╠═ЩeJ█iъЮ^ы]▀wwsЭэ√ў№└А└└└Арp8АА(0Б└pтр`√``°`ррp└`0└p1└p1А01А8;Ар8Ё<Ё°x<|╝°░рАА└А└Б└┴рБр┴ЁрЁрЁpЁx8(x8x8|p|ь└╠р╠рАрАрpppp88<АШШШБЬБМ╟ОЎ■▄ААА└└└р`А`А└АaАЁ└?6>;8 Ad0adCM,Gy ▄ААА└└└р`А`А└АaА Є&В FROM ISSUE #20&s Ю:З@43,"MAZE RUN":АX│1е1500:ЛX:Ю:H│15:V│7:X│ Д(м Я):М W(Hл1,Vл1),V(Hл1,Vл1):у8,18:у13,18&ЬY│32:Q│0:Z│Q:X│ Д(H):АI│1еH:ЕI│X з40&░З б(2,Y);:Бе50&┼(З Л(Y); Л(128);&╘2ЛI:З Л(Y)&∙dR│1:S│Sл1::Бе120'HnR│Rл1'ZxЕW(R,S)│0 з70'tВЕR│1 ▒W(Rм1,S)▓0 з350'ПМЕS│1 ▒W(R,Sм1)┤▓0 з230'йЦЕR│H ▒W(Rл1,S)▓0 з170'┬аИ Д(3) Бе590,610,630'╤кЕS┤▓V з200'▀┤ЕZ│1 з220'э╛Q│1:Бе210(╚ЕW(R,Sл1)▓0 з220(╥И Д(3) Бе590,610,660(0▄И Д(2) Бе590,610(JцЕR│H ▒W(Rл1,S)▓0 з300(YЁЕS┤▓V з270(g·ЕZ│1 з290(uQ│1:Бе280(КЕW(R,Sл1)▓0 з290(гИ Д(3) Бе590,630,660(╕"И Д(2) Бе590,630(╟,ЕS┤▓V з330(╒6ЕZ│1 з590(у@Q│1:Бе340(°JЕW(R,Sл1)▓0 з590) TИ Д(2) Бе590,660)'^ЕS│1 ▒W(R,Sм1)▓0 з480)AhЕR│H ▒W(Rл1,S)▓0 з430)PrЕS┤▓V з400)^|ЕZ│1 з420)lЖQ│1:Бе410)БРЕW(R,Sл1)▓0 з420)ЪЪИ Д(3) Бе610,630,660)пдИ Д(2) Бе610,630)╛оЕS┤▓V з460)╠╕ЕZ│1 з610)┌┬Q│1:Бе470)я╠ЕW(R,Sл1)▓0 з610*╓И Д(2) Бе610,660*рЕR│H ▒W(Rл1,S)▓0 з540*-ъЕS┤▓V з520*;ЇЕZ│1 з630*I■Q│1:Бе530*^ЕW(R,Sл1)▓0 з630*sИ Д(2) Бе630,660*ВЕS┤▓V з570*П&ЕZ│1 з70*Э0Q│1:Бе660*▒:ЕW(R,Sл1)▓0 з70*╗DБе660*яNW(Rм1,S)│C:C│Cл1:V(Rм1,S)│2:R│Rм1:ЕC│HнVл1 з710*¤XQ│0:Бе130+1bW(R,Sм1)│C:C│Cл1:V(R,Sм1)│1:S│Sм1:ЕC│HнVл1 з710+?lQ│0:Бе130+yvW(Rл1,S)│C:C│Cл1:ЕV(R,S)│0 зV(R,S)│2:Бе640 :ДV(R,S)│3+САR│Rл1:ЕC│HнVл1 з710+ЯКQ│0:Бе350+нФЕQ│1 з700+чЮW(R,Sл1)│C:C│Cл1:ЕV(R,S)│0 зV(R,S)│1:Бе680 :ДV(R,S)│3+ иS│Sл1:ЕC│HнVл1 з710, ▓Бе130,K╝Z│1:ЕV(R,S)│0 зV(R,S)│1:Q│0:R│1:S│R:Бе120 :ДV(R,S)│3:Q│0:Бе70,Y╞ЕZ│1 з730,y╨R│ Д(H):S│V:V(R,S)│V(R,S)л1,Ф┌АJ│1еV:З Л(Y);:АI│1еH,зфЕV(I,J)┤2 з760,╛юЗ б(2,128);:Бе770,╙°З Л(128); Л(Y);,▄ЛI:З,чАI│1еH-Е(V(I,J)│0)л(V(I,J)│2) з810-" З Л(Y); Л(128);:Бе820-1*З б(2,Y);-C4ЛI:З Л(Y):ЛJ-c>З@480, б(31,128);:Т1535,128-|HS│1024:PX│Xн2м1:PY│0-ЗRў: Я│0-Ь\Т SлPXлPYн32,255-▓fJ0│ Н(0):J1│ Н(1)-тpNX│PXл(J0┤20)м(J0▓43):NY│PYл(J1┤20)м(J1▓43)-ёzЕNY┤0 з870.ДP│ Ж(SлNXлNYн32).ОЕP│128 з930.%ШЕP│96 з870.WвТ SлPXлPYн32,128:Т SлNXлNYн32,255:PX│NX:PY│NY.gмЕNY│15 з960.q╢Бе870.У└T│ Я:X│ Б(((Tо60)л.05)н10)о10.┴╩АI│5е1йм1:╔"T255O=I;BA#AG#GF#FED#DC#C":ЛI.ё╘Ю:З"YOU FINISHED THIS MAZE IN";X,"SECONDS."ДP│ Ж(SлNX4,70,134,71,134,72,135,70,135,71,135,72,135,73,136,71,136,72,136,73,136,74,137,70,137,71,137,72,137,73,137,73,138,69,138,70,138,71,138,72,139,68K!Ж 139,69,139,70,139,71,139,72,139,73,139,74,139,75,139,76,139,77,139,78,139,79,139,80,140,68,140,69,140,70,140,71,140,72,140,73,140,74,140,75KеЖ 140,76,140,77,140,78,140,79,140,80,141,68,141,69,141,70,141,71,141,72,141,73,141,74,141,75,141,76,141,77,141,78,141,79,141,80Kн:ГIL?Ж 145,68,145,69,145,79,145,80,146,68,146,69,146,70,146,71,146,72,146,73,146,74,146,75,146,76,146,77,146,78,146,79,146,80,147,68,147,69,147,70L╤Ж 147,71,147,72,147,73,147,74,147,75,147,76,147,77,147,78,147,79,147,80,148,68,148,69,148,70,148,71,148,72,148,73,148,74,148,75,148,76,148,77MЖ 148,78,148,79,148,80,149,68,149,69,149,79,149,80M:ГSMвЖ 153,70,153,71,153,72,154,69,154,70,154,71,154,72,154,73,154,79,154,80,155,68,155,69,155,70,155,73,155,74,155,79,155,80,156,68,156,69,156,73N4Ж 156,74,156,79,156,80,157,68,157,69,157,73,157,74,157,79,157,80,158,68,158,69,158,73,158,74,158,79,158,80,159,68,159,69,159,73,159,74,159,79N╕Ж 159,80,160,68,160,69,160,74,160,75,160,78,160,79,160,80,161,68,161,69,161,74,161,75,161,76,161,77,161,78,162,75,162,76,162,77N└:ГSORЖ 166,70,166,71,166,72,167,69,167,70,167,71,167,72,167,73,167,79,167,80,168,68,168,69,168,70,168,73,168,74,168,79,168,80,169,68,169,69,169,73OфЖ 169,74,169,79,169,80,170,68,170,69,170,73,170,74,170,79,170,80,171,68,171,69,171,73,171,74,171,79,171,80,172,68,172,69,172,73,172,74,172,79Ph Ж 172,80,173,68,173,69,173,74,173,75,173,78,173,79,173,80,174,68,174,69,174,74,174,75,174,76,174,77,174,78,175,75,175,76,175,77Pp!:ГOQ"Ж 178,72,178,73,178,74,178,75,178,76,178,77,179,71,179,72,179,73,179,74,179,75,179,76,179,77,179,78,180,70,180,71,180,72,180,77,180,78,180,79QФ#Ж 181,70,181,71,181,78,181,79,182,70,182,71,182,78,182,79,183,70,183,71,183,72,183,77,183,78,183,79,184,71,184,72,184,73,184,74,184,75,184,76Q╥$Ж 184,77,184,78,185,72,185,73,185,74,185,75,185,76,185,77Q┌%:ГURl&Ж 188,71,188,72,188,73,188,74,188,75,188,76,189,71,189,72,189,73,189,74,189,75,189,76,189,77,190,77,190,78,191,77,191,78,192,77,192,78,193,71R╞'Ж 193,72,193,73,193,74,193,75,193,76,193,77,194,71,194,72,194,73,194,74,194,75,194,76R╬(:ГRSD)Ж 197,72,197,73,197,74,197,75,197,76,197,77,198,72,198,74,199,72,199,74,200,72,200,74,201,73,201,75,201,76,201,77SL*:ГISК+Ж 204,73,204,76,205,73,205,74,205,75,205,76,206,73,206,76SТ,:ГSS▐-Ж 107,85,106,85,105,85,104,86,105,87,106,87,107,88,106,89,105,89,104,89Sц.:ГOT2/Ж 110,86,110,87,110,88,111,85,111,89,112,85,112,89,113,86,113,87,113,88T:0:ГFTЖ1Ж 116,85,116,86,116,87,116,88,116,89,117,85,117,87,118,85,118,87,119,85TО2:ГTT╙3Ж 121,85,122,85,123,85,123,86,123,87,123,88,123,89,124,85,125,85T█4:ГWU<5Ж 128,85,128,86,128,87,128,88,128,89,129,88,130,87,130,88,131,85,131,86,131,87,131,88,131,89UD6:ГOUР7Ж 134,86,134,87,134,88,135,85,135,89,136,85,136,89,137,86,137,87,137,88UШ8:ГRUЄ9Ж 140,85,140,86,140,87,140,88,140,89,141,85,141,87,142,85,142,87,143,86,143,88,143,89U·::ГKVF;Ж 146,85,146,86,146,87,146,88,146,89,147,87,148,85,148,86,148,88,148,89VN<:ГSVЪ=Ж 151,86,151,89,152,85,152,87,152,89,153,85,153,87,153,89,154,85,154,88Ж 140,85,140,86,140,87,140,88,140,89,141,85,141,87,142,85,142,87,143,86,143,88,143,89U·::ГKVF; 8,124,108,125,108,126,108,127,108,128,108,129,108,129,109,130,109,131,109,132,109,133,109,134,109,135,1099шЖ 136,109,137,109,138,109,138,108,139,108,140,108,141,108,142,108,143,108,144,108,144,107,144,106,144,105,144,104,144,103,144,103,143,105,142,105,141,1059мщЖ 140,105,139,105,138,105,137,105,136,105,135,105,134,105,133,105,132,105,131,105,130,105,129,105,129,104,128,104,127,104,126,104,125,104,124,104,123,104,122,104:AъЖ 121,104,120,104,119,104,237,78,237,79,237,80,237,81,237,82,237,83,237,84,237,85,236,85,236,86,236,87,236,88,236,89,236,90,236,91,235,91,235,92:▀ыЖ 235,93,235,94,235,95,235,96,235,97,235,98,234,98,234,99,234,100,234,101,234,102,234,103,234,104,233,104,233,105,233,106,232,107,232,108,232,109,232,110;АьЖ 231,110,231,111,231,112,231,113,231,114,230,115,230,116,230,117,230,118,230,119,229,120,229,121,229,122,229,123,229,124,226,85,225,86,224,86,223,87,221,87<эЖ 220,88,219,88,224,80,223,81,222,81,221,81,220,81,225,72,224,71,223,71,222,70,221,70,220,70,224,76,223,75,222,75,221,75,222,75,220,75,116,105<╣юЖ 116,106,116,107,116,108,117,107,118,107,119,106,119,107,119,108,120,108,120,107,120,106,121,106,121,107,121,108,122,108,122,107,122,106,125,106,126,106,127,106=>яЖ 130,106,131,106,132,106,135,106,136,106,135,107,136,107,135,108,136,108,135,109,136,109,139,106,140,106,141,106,142,106,203,58=FЁ:ГS=ИёЖ 49,72,48,72,47,72,46,73,47,74,48,74,49,75,48,76,47,76,46,76=РЄ:ГO=ъєЖ 56,72,55,71,54,71,53,72,52,73,52,74,52,75,53,76,54,77,55,77,56,76,57,75,57,74,57,73=ЄЇ:ГU>pїЖ 66,70,66,71,66,72,66,73,66,74,66,75,66,76,65,77,64,78,63,78,62,78,61,77,60,76,60,75,60,74,60,73,60,72,60,71,60,70,61,70>xЎ:ГT>ЎўЖ 76,69,75,69,74,69,73,69,72,69,71,69,70,69,69,69,73,70,73,71,73,72,73,73,73,74,73,75,73,76,73,77,73,78,73,79,72,79,72,78?P°Ж 72,77,72,76,72,75,72,74,72,73,72,72,72,71,72,70,71,70,70,70,69,70,74,70,75,70,76,70?X∙:ГH?╓·Ж 87,68,87,69,87,70,87,71,87,72,87,73,87,74,87,75,87,76,87,77,87,78,87,79,87,80,79,80,79,79,79,78,79,77,79,76,79,75,79,74@T√Ж 79,73,79,72,79,71,79,70,79,69,79,68,80,68,80,69,80,70,80,71,80,72,80,73,80,74,80,75,80,76,80,77,80,78,80,79,80,80,86,80@▌№Ж 86,79,86,78,86,77,86,76,86,75,86,74,86,73,86,72,86,71,86,70,86,69,86,68,85,68,85,69,85,70,85,71,85,72,85,73,85,74,85,75 A[¤Ж 85,76,85,77,85,78,85,79,85,80,81,80,81,79,81,78,81,77,81,76,81,75,81,74,81,73,81,72,81,71,81,70,81,69,81,68,82,73,83,73AЛ■Ж 84,73,84,74,83,74,82,74,82,75,83,75,84,75AУ :ГEBЖ 90,68,90,69,90,70,90,71,90,72,90,73,90,74,90,75,90,76,90,77,90,78,90,79,91,68,91,69,91,70,91,71,91,72,91,73,91,74,91,75BПЖ 91,76,91,77,91,78,91,79,92,68,92,69,92,70,92,71,92,72,92,73,92,74,92,75,92,76,92,77,92,78,92,79,93,68,94,68,95,68,96,68C Ж 90,80,91,80,92,80,97,68,98,68,93,69,94,69,95,69,96,69,97,69,98,69,93,70,94,70,95,70,96,70,97,70,98,70,93,73,94,73,95,73CСЖ 93,74,94,74,95,74,93,78,94,78,95,78,96,78,97,78,98,78,93,79,94,79,95,79,96,79,97,79,98,79,93,80,94,80,95,80,96,80,97,80,98,80CЩ:ГRD+Ж 102,68,102,69,102,70,102,71,102,72,102,73,102,74,102,75,102,76,102,77,102,78,102,79,102,80,103,68,103,69,103,70,103,71,103,72,103,73,103,74D╜Ж 103,75,103,76,103,77,103,78,103,79,103,80,104,68,104,69,104,70,104,71,104,72,104,73,104,74,104,75,104,76,104,77,104,78,104,79,104,80,105,68EOЖ 106,68,107,68,108,68,105,69,106,69,107,69,108,69,109,69,108,70,109,70,110,70,108,71,108,71,109,71,108,72,109,72,105,73,106,73,107,73,108,73EшЖ 105,74,106,74,107,74,106,75,107,75,108,75,107,76,108,76,109,76,108,77,109,77,110,77,108,78,109,78,110,78,108,79,109,79,110,79,108,80,109,80,110,80EЁ :ГNFВ Ж 114,68,114,69,114,70,114,71,114,72,114,73,114,74,114,75,114,76,114,77,114,78,114,79,114,80,115,68,115,69,115,70,115,71,115,72,115,73,115,74GЖ 115,75,115,76,115,77,115,78,115,79,115,80,116,68,116,69,116,70,116,71,116,72,116,73,116,74,116,75,116,76,116,77,116,78,116,79,116,80,117,69GжЖ 117,70,117,71,117,72,117,73,118,71,118,72,118,73,118,74,119,72,119,73,119,74,119,75,120,73,120,74,120,75,120,76,121,74,121,75,121,76,121,77H8 Ж 121,76,121,77,122,68,122,69,122,70,122,71,122,72,122,73,122,74,122,75,122,76,122,77,122,78,122,79,122,80,123,68,123,70,123,71,123,72,123,73H╩Ж 123,74,123,75,123,76,123,77,123,78,123,79,123,80,124,68,124,69,124,70,124,71,124,72,124,73,124,74,124,75,124,76,124,77,124,78,124,79,124,80H╥:ГMIdЖ 131,68,131,69,131,70,131,71,131,72,131,73,131,74,131,75,131,76,131,77,131,78,131,79,131,80,132,68,132,69,132,70,132,71,132,72,132,73,132,74IЎЖ 132,75,132,76,132,77,132,78,132,79,132,80,133,68,133,69,133,70,133,71,133,72,133,73,133,74,133,75,133,76,133,77,133,78,133,79,133,80,134,69JПЖ 13 0Ы&В FROM ISSUE #20&-:ГBLIMP (COCO III)&6:ГBY&I:ГROGER SEVERS&k:ГSOUTHERN MISSOURI SOFTWORKS&z:Г(6/1993)&С:ГAS PUBLIC DOMAIN&а:ГFOR CFDM&о ф2:ч8,4:ц&╗АZ│1е771&┼ Н A,B&╒є(A,B,8):ЛZ'ш(35,68),8,8:ш(35,88),8,8:ш(232,78),8,8:ш(0,0),2,8:ш(100,80),1,8''АS│1е887'1Н A,B'Aє(A,B,8):ЛS'L╟Бе 199'X╚:ГBLIMP'т╔Ж 30,76,31,75,32,75,32,74,33,74,33,73,34,73,35,73,35,72,36,72,37,72,37,72,37,71,38,71,39,71,39,70,40,70,41,70,41,70,41,69,42,69,43,69(`╩Ж 43,68,44,68,45,68,45,67,46,67,47,67,47,66,48,66,49,66,50,66,50,65,51,65,52,65,52,64,53,64,54,64,55,64,56,64,56,63,57,63(▐╦Ж 58,63,59,63,60,63,61,63,61,62,62,62,63,62,64,62,65,62,66,62,67,62,67,61,68,61,69,61,70,61,71,61,72,61,73,61,74,61,75,61)\╠Ж 75,60,76,60,77,60,78,60,79,60,80,60,81,60,82,60,82,59,83,59,84,59,85,59,86,59,87,59,88,59,89,59,90,59,90,58,91,58,92,58)ц═Ж 93,58,94,58,95,58,96,58,97,58,98,58,98,57,99,57,100,57,101,57,102,57,103,57,104,57,105,57,106,57,107,57,107,56,108,56,109,56,110,56*x╬Ж 111,56,112,56,113,56,114,56,115,56,116,56,117,56,118,56,119,56,120,56,121,56,122,56,123,56,124,56,125,56,126,55,126,55,127,55,128,55,129,55+ ╧Ж 130,55,131,55,132,55,133,55,134,55,135,55,136,55,137,55,138,55,139,55,140,55,141,55,142,55,143,55,143,54,144,54,145,54,146,54,147,54,148,54+Ь╨Ж 149,54,150,54,150,54,151,54,152,54,153,54,154,54,155,54,156,54,157,54,158,54,159,54,160,54,161,54,161,55,162,55,163,55,164,55,165,55,166,55,.╤Ж 167,55,168,55,169,55,170,55,171,55,172,55,173,55,174,55,175,55,175,56,176,56,177,56,178,56,179,56,180,56,181,56,182,56,183,56,184,56,185,56,╣╥Ж 186,56,187,56,188,56,189,56,190,56,190,57,191,57,192,57,193,57,194,57,195,57,196,57,197,57,198,57,198,58,199,58,200,58,201,58,202,58-K╙Ж 204,58,204,59,205,59,206,59,207,59,208,59,208,60,209,60,210,60,210,61,211,61,212,61,213,61,213,62,214,62,215,62,216,62,216,63,217,63,218,63-▌╘Ж 219,63,219,64,220,64,221,64,221,65,222,65,222,66,223,66,224,66,225,66,225,67,226,67,226,68,227,68,228,68,229,69,230,70,231,71,232,72,233,73.o╒Ж 234,74,235,75,236,76,237,77,238,78,237,79,236,80,235,81,234,82,233,83,232,84,231,85,230,86,229,85,228,84,228,83,227,83,227,82,227,81,227,80/╓Ж 226,80,226,79,226,78,226,77,226,76,226,75,227,75,227,74,227,73,227,72,228,72,228,71,228,70,228,69,230,87,229,88,228,89,228,90,227,90,226,90/У╫Ж 226,91,225,91,224,91,224,92,223,92,223,93,223,94,222,94,221,94,221,95,220,95,219,95,218,95,218,96,217,96,216,96,215,96,215,97,214,97,213,970/╪Ж 212,97,212,98,211,98,210,98,209,98,208,98,208,99,207,99,206,99,205,99,205,100,204,100,203,100,202,100,201,100,201,101,200,101,199,101,198,101,197,1010▌┘Ж 196,101,195,101,194,101,194,102,193,102,192,102,191,102,191,102,190,102,189,102,188,102,187,102,186,102,185,102,184,102,183,102,182,102,182,103,181,103,180,103,179,1031Г┌Ж 178,103,177,103,176,103,175,103,175,103,174,103,173,103,172,103,171,103,170,103,169,103,168,103,168,104,167,104,166,104,165,104,164,104,163,104,162,104,161,1042)█Ж 160,104,159,104,158,104,157,104,156,104,155,104,154,104,153,104,152,104,151,104,150,104,149,104,148,104,147,104,147,103,146,103,145,103,144,103,143,103,142,1032┐▄Ж 141,103,140,103,139,103,138,103,137,103,136,103,135,103,134,103,133,103,132,103,131,102,130,102,129,102,128,102,127,102,126,102,125,102,124,1023e▌Ж 123,102,122,102,121,102,120,102,119,102,118,102,118,101,117,101,116,101,115,101,114,101,113,101,112,101,112,100,111,100,110,100,109,100,108,100,107,100,106,1003ъ▐Ж 106,99,105,99,104,99,103,99,102,99,101,99,100,99,99,99,98,99,98,98,97,98,96,98,95,98,94,98,93,98,92,98,92,97,91,97,90,97,89,974h▀Ж 88,97,88,96,87,96,86,96,86,96,85,96,84,96,83,96,82,96,81,96,81,95,80,95,79,95,78,95,77,95,77,94,76,94,75,94,74,94,73,944црЖ 73,93,72,93,71,93,70,93,69,93,68,93,67,93,67,92,66,92,65,92,64,92,63,92,62,92,61,92,61,91,60,91,59,91,58,91,57,91,56,915XсЖ 55,91,55,90,54,90,53,90,53,89,52,89,51,89,50,89,50,88,49,88,48,88,47,87,46,87,45,87,44,86,43,86,42,86,41,865─тЖ 40,86,40,85,39,85,38,85,37,85,37,84,36,84,35,84,34,84,33,83,32,83,31,83,30,82,30,81,29,81,29,80,29,796BуЖ 28,79,27,78,28,78,29,77,28,75,29,75,30,75,31,75,32,75,33,75,34,75,35,75,36,75,37,75,38,75,39,75,40,75,41,75,42,75,41,766└фЖ 40,76,39,76,38,76,37,76,36,76,35,76,34,76,33,76,32,76,31,76,30,76,29,76,28,76,27,76,26,76,25,76,24,76,25,75,26,75,27,757>хЖ 28,75,29,75,32,74,32,73,32,72,32,71,32,70,32,69,32,68,32,67,32,66,32,65,33,66,34,65,35,65,36,65,37,65,37,66,38,67,38,687╝цЖ 38,69,38,70,38,71,38,86,38,87,38,88,38,89,38,90,37,91,36,91,35,91,34,91,33,91,33,90,33,89,33,88,33,87,33,86,33,85,34,858hчЖ 36,85,117,102,118,103,119,104,120,105,121,106,122,107,123,10 ╙&В FROM ISSUE #20&5В **LOAN & BANK INTEREST**&e :ГREVISED & EXPANDED BY BILL ROSENFELD&╝Т150,18 :ГFOR 2400 BAUD PRINTER - EDIT WITH YOUR PRINTER'S BAUD RATE.&хЮ:З:Зд2)"===LOAN & BANK INTEREST==="''З:З:Зд2)"SELECT THE ACTIVITY IN WHICH YOU ARE INTERESTED:"'HЗ:З" LOAN PAYMENT AMOUNTS'к#З" COMPOUND INTEREST EARNED":З" END":АX│1е5:╔"V30;T175;L4;A+;A;A-":ЛX:З@455,"ACTIVITY?"'╛(R$│ Т:ЕR$│""з40'╧-ЕR$│"A"зБж80'с2ЕR$│"B"зБж310'Ё7ЕR$│"E"з75(+<Ю:а50,4:З@199,"ANOTHER ACTIVITY":Зд11)"";:З"";A$(?AR$│ Т:ЕR$│""з65(RFЕR$│"Y"з20:Д75(XKК(kPВ LOAN PAYMENT(ЗUЮ:З:Зд10)"LOAN PAYMENT"(кZЗ:а200,1:Й"LOAN VALUE $";P:R│P(╤_а200,1:Й"ANNUAL INTEREST RATE %";Z(ўdа200,1:Й"TIME PERIODS (MONTHS)";I)iY│Zо12)(nLP│Pо(((1м(1лYо100)пмI))о(Yо100)))2sБж255)ixЗ:З"WOULD YOU LIKE A MONTHLY":З"BREAKDOWN ?")~}R$│ Т:ЕR$│""з125)ХВЕR$│"Y"зБж205:Д240)аЗАX│1еI)оМA│PнYо100)╣СZ│LPмA)├ЦP│PмZ)╙ЫЕPмZ┤│0з185)уаАT│1е250:ЛT)эеБж215*кC│Cл1:ЕC│12з175:Д180*пАT│1е250:ЛT:Бж205*#┤ЛX*1╣P│0:Бж215*A╛Бж300:Бе240*G├Р*M╚Ю*y═Ю:З" MTH PRNCPL INT BAL":║C│0*╥Р*О╫З═"###";X;*г▄З═"$$####.##";Z;*╕сЗ═"$$####.##";A;*╘цЗ" ";:З═"$$#####.##";P;*┌ыР*№Ёа50,1:З@455,"ANOTHER ";+їR$│ Т:ЕR$│""з245+$·ЕR$│"Y"з80:Д20+* Ю+KЗ:З:З"ON A LOAN VALUE OF $"P+q З"AT"Z"% ANNUAL INTEREST RATE OR"+бЗ"AT";:З═"##.####";Y;:З"% MONTHLY INTEREST"+╗З"FOR"I"TIME PERIODS"+┌З"YOUR PAYMENT PER PERIOD"+ыЗ"WILL BE:";,"З═"$$#####.##";LP,<'З:A│LPнIмP:З"TOTAL INTEREST IS:";:З═"$$#######.##";A:Р,q,A│LPнIмR:З"TOTAL INTEREST IS:";:З═"$$#####.##";A,w1Р,П6В COMPOUND INTEREST,о;Ю:З@40,"COMPOUND INTEREST",┤@З,╬Eа200,1:Й"DEPOSIT $";D,ЁJа200,1:Й"ANNUAL INTEREST %";I-IOа200,1:З"COMPOUNDS DAILY; MONTHLY; QUARTERLY;SEMI-ANNUALLY; ANNUALLY"-^TR$│ Т:ЕR$│""з340-РYа200,1:З"NUMBER OF COMPOUNDING":Й" PERIODS";P-а^ЕR$│"A"з375-░cЕR$│"B"з385-└hЕR$│"C"з395-╨mЕR$│"D"з405-рrЕR$│"E"з415-їwA│Iо365:T$│"DAY"- |Бе425.БA│Iо12:T$│"MONTH".ЖБе425.6ЛA│Iо4:T$│"QUARTER".@РБе425.ZХA│Iо2:T$│"SIX MONTHS".dЪБе425.vЯA│I:T$│"YEAR".АдБе425.ХйFV│Dн(1лAо100)пP.┴оЮ:З@96,"A DEPOSIT OF";:З═"$$#####.##";D.с│З"AT"I"% INTEREST ANNUALLY"/╕З"OR";:З═"###.####";A;:З"% INTEREST EACH "T$/A╜З"WILL HAVE A VALUE OF";:З═"$$#####.##";FV/]┬З"AT THE END OF"P;T$"S"/Н╟З:З"INTEREST EARNED IS ";:З═"$####.##";FVмD/й╠З@455,"ANOTHER ?"/╛╤R$│ Т:ЕR$│""з465/╥╓ЕR$│"Y"з310:Д20ST ANNUALLY"/╕З"OR";:З═"###.####";A;:З" f&В FROM ISSUE #20&l т80:Т65497,0:Ю2:АX│2е22:ё1,X:°0,6:З б(78," ");:Л:АX│3е21:ё3,X:°0,4:З б(74," ");:Л&Су15,32:Т 282,0:В LOWER CASE POKE&Їё8,5:°3,7,U:у7,0:З"W H E R E I N T H E W O R L D I S C O C O C A T ? (pt.3)";:°3,4:З" ";'Ьё8,7:°0,4:АL│11е12:НL$:ё20,L:ЗL$;:Л:ё8,19:°7,4:З"Follow his tracks by answering the questions and collecting clues.";:ё29,20:З"-=PRESS ENTER TO PLAY=-";:°3,4:З" ";'Ў(Ж "That cat is still hiding out of our view.","Someone'll find him; could it be you?"(8<Ж "Let's follow his tracks, find him, and give him a home!!!"(EAТ65496,0(]Fв44539:Ю5:ё0,0:°0,4(gшХ2000(}ЄИЁБе1220:ИяБе1220(т№C$│"!w1QhAZv2WiSX#j3lEDCk$4RbmFVg%n5cTGxBo&f6YuHN'e7UJpM(8aIdKy<,)9rOL.>z0P;s+/?:*-q=t@ "л Л(34))иD$│"ZXCVBNM,<.>/?zxcvbnmASDFGHJKLasdfghjkl;+QWERTYUIOPqwertyuiop@1!23#4$5%6&7'8(9)0:*-= "л Л(34):E$│"/.,MNBVCXZmnbvcxz;LKJHGFDSAlkjhgfdsa@POIUYTREWQpoiuytrewq-:0987654321!#$%&'()*=+<>? "л Л(34)* K$│"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ^1234567890:-=!#$%&'()*@;+,<.>/?"л Л(34)*ПЗ"To find this month's clues, answer question #3:":З:З"What is the middle name of the person who taught CoCo Cat to dance? ";*Ї$CC$│"":╗ЙCC$:N1│ Ю(C$, О(CC$,1)):N2│ Ю(C$, Р(CC$,2,1)):N3│ Ю(C$, Р(CC$,3,1)):N4│ Ю(C$, П(CC$,1))+N.ЕN1┤1▒N2┤1▒N3┤1▒N4┤1▒N1▓85▒N2▓85▒N3▓85▒N4▓85за1,4:З"IMPROPER ENTRY":АX│1е600:Л:Бе1060+║8C$│ П(C$,N1)л О(C$,85мN1):D$│ П(D$,N2)л О(D$,85мN2):E$│ П(E$,N3)л О(E$,85мN3):K$│ П(K$,N4)л О(K$,85мN4)+╚BO$│ Л(34),пCI$│"":C│0:CM$│"smRTR7kyW+QwzrHQERB1e"лO$л"y=nhx*Z=x/6&914^gY*r,hT$m(PevDSximXtpoqBf8zp)MKk*=06gctjY*t;hWi"лO$л"BfdK=+BxM="лO$л"^WTi,QlH3pI4#:?^iJ+?@├╟╟╟BOLD FNT BUMBLE BAS!BUMBLE BIN"╚CATTRAX3BAS iCOCOCAL BAS3ЕCOCOCAL DOC ▌DMP105A ASM ёDMP105A BASФFINANCE BAS╓FONT FNTGILLIGANBASB╡JULY4 BASA*LEARNINGINS #mMAZE3 BASїMOVE-IT2BAS=№NIBLOADRBIN`NIBSHOW BASцPAYMENT2BASCьPICTURE1NIB+╠PICTURE2NIBжPIXMOVERBAS0√PIXMOVERBIN1╤PIXMOVERSOR 2+PRINTCALBAS8SCREEN1 NIB(уSHORE NIB6SICKPC NIB,бSMSBLIMPBASЮSNOW NIB9Ч ╛M !#$%'()*+-./01233455677788888888888776665543321100/..-,,++**))(('''&&&&&&&&&&&&&&&&&'''''((((())))))))))))))(((('''&&%%$$##""!! 7J^rИа╣╙ю+LoФ╗ф?qе▄VШ▌(v╔!тJ╣/м 0 ╗ P эУC■ ─Хs_X`wа┌&З№И+ч ╛"░$└&я)@+┤.M1ИЖLЛЖ?╖ #P0Н■jЯ├Я╞Я╔Я╠0НАЯ└9Ю└жАЧ┬91Н PжАюж▀╧жАюж▀╤жАюж▀╙жАюж▀╒Я└9ОrжЯL├лЯL╞йЯL╔йЯL╠╖ ▄─╙╧▌─▄╟╙╤▌╟▄╩╙╙▌╩▄═╙╒▌═1в& ┬' ╟жА ┴9 uНСБ&OЛ9НОНл Ё:"8"642<:8:"8"642$4$68:"8"682<:8:"8"642&4&68:"8"646$4$202"4"68:*<*:6:,8,646,$4,$202,"4,"68:*>*@BD(B(@><,F,DBD$B$@><0(>0(@BD$B$@><FDBD$B$@><0(>0(@BD6$B6$@>@6.>6.<:<6,>6,@BD4("F4("D@D6B6@>@6.>6.<:<6,>6,@BD("F("D@D$D,$,$,D$D,FB*FB.FB*FB.FB*FB.FB*FB.D*D,*,\D*\D,\D*\D,^ZF*^ZF.^ZF*^ZF.^ZF*^ZF.^ZF*^ZF.D,F,DBD.*F.*D.(B.*D,F,D.*B.*D0*F0*D2&B2&D4,$F4,$H4,$J4,$L4,$J4,$H4,$F4,$D4,$F4,$H4,$J4,$L4,$J4,$H4,$F4,$D,&D6,6,6N,N6PL4PL8PL4PL8PL4PL8PL4PL8N4N646fN4fN6fN4fN6hdP4hdP8hdP4hdP8hdP4hdP8hdP4hdP8N6P6NLN84P84N84L84N64P64N84L84N:2P:2N60L60N>6.P>6.R>6.T>6.V>6.T>6.R>6.P>6.N>6.P>6.R>6.T>6.V>6.T>6.R>6.P>6.N@.L@.LHFPNLN.(L.(JHF( H( JLN.(d.(b`b8,&`8,&^\^`bdbdfhj6*"h6*"fdfdb`b`^\ZXVTRTRPR:T:R2N2:,<,>@BDFHJ:,L:,NPRVXZ \RJD @ \RJD @ D, @ NДj6*"h6*"fdfdb`b`^\ HOW TO TALK TO A COMPUTER AND HOW TO USE IT or ( HOW'D YOU DO IT ? ) by Bill Rosenfeld This document is a condensed, simplified adaptation of your User's Manual which should be read once you have mastered the fundamentals of operating your computer and its peripherals (Printer, Monitor,Floppy Disk Drives,etc.) To start off, your computer is Deaf and Dumb. It wants a Boss to do the thousand and thousand of things it has the potential to do. The act of "Talking to a Computer" is actually that of conveying intelligent, simple instructions to the computer which relays them to its accessories. When it responds to your instructions, and /or commands, it performs tasks in a fraction of the time it would take to do them in the normal longhand way. "SOFTWARE" is the term for the stored files (programs), in this case, floppy drive diskettes, that you load into your computer thru the Floppy Disk Drives.. "HARDWARE" is the term that describes Computer and Keyboard, and its peripherals ,e.g.Disk Drives, Monitor (Visual Display Unit), and Printer. All these units are cabled together to interrelate with one another controlled by one master switch.All units have power cords that plug into receptacles. In this case, the receptacles are on a separate unit plugged into the wall electric receptacle controlled by a single master switch. When turned on, all units are simultaneously powered. You, the User, manage and handle the Software after turning on the power for the Hardware.. There is a well-known saying among millions of Users: "To err is human; but use a computer to really screw up". But that is a gross exaggeration! You won't go wrong if you keep in mind the following simple rules. If do you make an error, it usually is harmless and correctable. The computer's screen (Monitor) will display a text message about your having made an error. It will suspend further operation until you have made the necessary correction which usually involves a spelling mistake by you of a command or the Floppy Disk placed wrong side up in the Disk Drive, or other types of harmless departures from proper procedure. The computer always follows your commands, also known as Input. If you make a mistake, it does not have the capability of guessing what you have in mind. The screen will tell you a mistake or error was made. Operation rules are simple enough. Every mistake you make will be a learning experience so don't let making goofs floor you Before learning how to use a Word Processor program, run the program with the File Name "Finance" as a trial demonstration. . Closely follow the below instructions step by step to familiarize yourself with standard procedure. Then you will be ready to tackle any kind of program with a ".BAS" ending or extension to the file title name. More instructions are to be given when the title extension is ".BIN" or ",TXT" First, Switch on the Power. All units are made operative with putting on the Master Switch. Insert the Floppy Disk keeping the Notched side on the left. into the lower slot of the Disk Drive and turn down the outer latch, . DO NOT INSERT OR REMOVE DISKS WHEN THE POWER IS OFF. ONLY INSERT AFTER YOU TURN THE POWER ON. The program "Finance" is stored in this Floppy. The label on the Floppy disk sleeve lists the programs. To double check, type "DIR" ( an Input command ) and press You will see the title "FINANCE" listed with the other files on this disk. Now you can proceed with the 'loading' (or transferring ) the program from the diskette to the computer's memory. The program is permanently in the disk but is wiped out of the computer's memory (Buffer) when the power is turned off the end of the session. . Type-< LOAD "Finance"> - and press . The word 'LOAD' is the key command. Note that the file name must be in quotation marks. A red indicator light glows on the Disk Drive. When the program is loaded, the red light goes off and the screen shows "O.K." and a blinking small rectangle, called the cursor, appears prompting the User to type in the next command. This means the Floppy has loaded the program in the computer and you can now run it. So, type "RUN", another key command word, and press . Lo and Behold! The Screen says: "SELECT THE FINANCIAL ACTIVITY IN WHICH YOU ARE INTERESTED:" " LOAN PAYMENT" " COMPOUND INTEREST" " END" This is known as a User Friendly program because it prompts you and gives you a choice of different financial activities. The listed items from which you can choose is logically called a "MENU". You want to figure the value of a $1,000 bank deposit at the end of 6 months compounded daily at 9% interest. So you press . Now press The screen shows: "COMPOUND INTEREST" "DEPOSIT $? (Note that the '?' is blinking which means the computer wants you to type in the amount. You type '1000' and press . Then another line appears) "ANNUAL INTEREST %? - Type"9" and .This causes the next prompt to be displayed. COMPOUNDS DAILY:MONTHLY:QUARTERLY: SEMI-ANNUALLY: ANNUALLY. Type for "Compound Daily" and press . Next line appears. NUMBER OF COMPOUNDING PERIODS? Since 6 months has 183 days, Type "183". The program has asked for all the necessary data needed to figure the value of your deposit at the end of 6 months, compounded daily and you have given it all the answers (or 'DATA'). Now, without any further help from you, the program activates its embedded mathematic logic and in a split second you see displayed (another way of saying "shows on the screen"): A DEPOSIT OF $1000.00 AT 9 % INTEREST ANNUALLY 0R 0.0250% INTEREST EACH DAY WILL HAVE A VALUE OF $1046.81 AT THE END OF 183 DAYS INTEREST EARNED IS - $ 46.81 ANOTHER ? If "N" is typed,the original Menu appears to permit you to use one of the other Finance programs or to END this File which clears the computer to accept another File load.The "Y" would repeat the same Compound Interest format to handle other values of principal, interest rate, etc. "N" signifies "No". "Y" signifies "Yes" to repeat the same program. "N" and "Y" are universal abbreviations accepted by computers After ending the program,you now remove the disc(after opening the drive slot latch) before turning the power off and then switch off the power. Never allow the disk to remain in the Drive Slot when you turn the power off.The power cut-off removes the "Finance" program from the computer's memory but the program is still retained in the Floppy Disk and will remain there when given proper storage and handling.. When you wish to run this program again you load it in the same way as described above. With the required command, the results of this program can be printed out as well as viewed on the screen. The printout is also called "Hardcopy" (not to be confused with "Hardware"). The display screen and printer are known as Output devices. The Disk Drives, Keyboard are known as Input devices. The reasons for these names are obvious. You don't have to know the technical details about how a computer works. All you have to know is how to run the software. Just keep in mind that most people can run a car without knowing beans about its motor's valves, pistons and other mechanical parts. Some computer scientists call Software the "Tail that wags the Dog". The "Dog " is always obedient. It will always do what you command it to do but the rules governing the usage of Software must be followed. You can not do any harm to the computer or to the Software as long as you follow the basic rule of removing the Floppy Disks before you turn off the power or properly storing your Floppy Disks. They should be stored in a Disk case, straight up (not stacked on top of one another) and kept at a distance from any other magnetic fields generated by radios, VCRs, motors, etc. Fundamentally,most computers use the same BASIC language The word BASIC is an acronym for Beginners All-purpose Symboloic Instruction Code. But because of differences in the electronic engineering of different makes, programs written for one make can not be run on a another make.programs even though the same BASIC language is used. FOR EXAMPLE, a disk formatted ,initiated by the User, for an IBM system can not run on your Tandy Radio Shack Color Computer. The short-cut procedures outlined in this document are covered in explicit detail in the Operating Instruction Manuals which accompany the computer and related accessories. Many Software programs have printed documentation. And many programs show instructions on the screen the way the newer models of VCRs display instructions on the television screen. It is said there is nothing new under the Sun but that saying was made before the advent of computers. As Will Rogers said "I only know what I read in the papers".But one will never be able to read all that's readable about Computers.There is no end to the continuous amazement and mental stimulation in computer use. The more you know about your computer,the more there is to learn ^k;t I read in the papers".But one will never be able to read all that's readable about Computers.There is no end to the continuous amazement and ment ┘ T╢ _ _ ва`ЁоаЁ. ╩└░ЇфрX(L * ва╨Ёоа0Ёт ╩O@фXВА─└ваЁАP кPJРАДа%DPАХ $К╪║jDДH╔-$$Й ░uBDю┌иpК╪╗jю.ф╕;Йr▄]░╒Hю:╪;Аа@@№~(а(╘ а@x<(░<"VА0№~└x╕аА.Аx╕╣рюЬ╦╕;АN▄Ёpтюz 8АЕR $*(РкDкHСС($аЙTP%BDD*:САА А~@А Б@ °Р@Б@0└АБ@ ВАI@! Б@!▄┬АфИЦАкЭ:D┤Б@"╨pтА╤─А6lю$Б@%РRАА6l(0Б@ А]А"Б@$I<┬А└Б@!┬╕RАф]║тБ@!╚вАIHИT!Ф(DаБ@!@╕QBАБ@%┤1ВАБ@&АDDБ@0└ АюDкDюHБ@0└ А:ОюфБ@ HВА╘И(№Б@ 0ААVш"(xБ@ А╕(¤U@Б@ 0└┬Аюш$тЬБ@ x ╨"АDBИDкIU@Б@( ╪BАБ@$/ АБ@"*0Аа(Б@& тА Б@* №@BА║;аБ@"дВА Б@0└ АаБ@0└ АкАБ@ (А+╗гаБ@ t(HАЙ кАБ@ ╕xBАБ@!|Ё АБ@#(рВАD@PБ@ Р└АюДDД"@Б@ `АBА.ю.tw@Б@'@А((@Б@$ А"P@Б@!┬АаБ@ $Аю.т└WwG@Б@0└ АD$Dк"Б@0└ АаБ@ АБ@$ @"АI@"Б@"PрrАфЙw"U"Б@ 8 `bА▄╗АGwБ@ ААК jDБ@ АА+tБр АБА(\Бp (`bАф╙╕А0wtqБ8"PрrАIHЙ"!D"Б$р@"АБ @АБ0└ АДа@Б░└ А.Dк$@фD$@Б5иАю.рюОрБa$QААшААБя! ВА NА БQ"RTBА`А`Б[% РвА.юш. ИО БO H RАДDBДд@ (ф@Б@%TВА@Б@"R)АБ@!АвАDА!PБ@,P@АюHТРбнUR"@Б@ Ах╩║А Pw Б@0└ А¤°GрБ@0└ А(xЁ└Б@ `РА(¤°:07ък Б@ PАЭ8"А'рБ@#`АкHТгкА!(TB"JкБ@"ФРg╥АБ@!hX"АБ@(СА"АБ@(С BАБ@!h▓АБ@"Ф!bЯ А Б@#А!┬Я АБ@ `@ВА!Б@0└ А Б@ @ АБ@# АБ@"Ф/BАHБ@" vтА└0Ё.@Б@" ТАбс╚iцgЗЛЗК`@Б@"╒ ВАв╥╚Z╒kKJаPИБ@#",XАвк╩и"╡*кл@АБ@ ФРТАвк╩и╥Е*киААБ@ `vтАвкикЕ киА└ИБ@ P/BАСihiEйел@PАБ@ "А АЁЁ├╔╧├╠└Б@ A @АPБ@ @ А@@Б@8А<<P!Б@ ■АZxfxZyЩстстШpаБ@ °АЦ┤к┤Ц╡Z╥иrАБ@0АИ▓к▓ИнB╩к╨HБ@ кААt▓к╛tбB╩к @Б@ JААjкмжjбBк ГБ@ ААZРZZQAjij╨├Б@ PА<Ё<<0└ЄsЁє0@Б@ PАА&Б@ А'Б@ АDААЖ Б@ BкААюIiС(╠DHDБ@0 А:фJ8╕╗╕xxюшюБ@0 А╘b Ёи(Б@ BАVаЁ"Б@ HDБА╕Ё`(Б@ ю7ВАюфа╕╗╕xюшт!Б@ <АDIAТи DBD Б@ xААБ@ ЁА0 АБ@ "юА└Б@ ВD╢ВА*AБ@0 АрBБ@0 Я А$АБ@ UЯ А┼Б@ B$"АE@ЬБ@ twАH@Б@ АLАБ@ АА@ИБ@ А└DБ@ wtwАДаJ @ Б@ "U!"А.Dк$@ъДИ"Б@0 Аю.ркС▄Б@АА @у ├у у у ├8 ▀╫°√▀ў░√Аq└уААуч■ у■ у№{є№ўЁ{Аў■яАє■ └єО└єАрўАрўАруАруАЁ АЁ АЁ А°уА°уА°уА° ы┴° ё°у┐ЁуЗЁуЗЁуГЁу Ёу ЁуА8уА8ўыЁ0ў №0у┐№0уЗ№0уЗ▄0уГ№0у №0у №8уА8ўАў№у№у╝ уЁуруАуМБу№БўАБуАБ┴ўАБ┴уА┴уА┴уА├уАуА╫МуП уМуМўМу▄уМгП їП уП уП∙ уП° уП ¤уП √ ╡П° уП° яу▀ ¤уП уП∙ уП° ┴ └└?6>;8 N╚0n╚N▌┘T╢ Бу№БўАБуАБ┴ўАБ┴уА┴уА ┬ FЯРаїЁАА АА АИ !" H @! @E 6PИ@А6ААИ└ИАPА шP@А@@ ДP! АpаРrА&@4H А@@РГ4├@-@@Жtр@!А`АА* @ Р┴H` А) аЬ!И @ ┴─ АА@r└*A@рB╚$АА┼E@ЬВH@LА@А@И└DD @ А8@А И AИИ@$А \H Ьш!╚р@р@bш9 АDx@ЁА╨└─x0А"H─@M@dААь АЇА@А@▄ ╨@D А@А@ВИА@А ИВ" " ААшW0`000`8`р└└АА└ └рpx╕~╪>8800p``р8└<└└АГАЗЯБ╢Б°БЁАЁ└р└└└р└Ёрpрpаxpxp|8<8<< ??8_8Ё8ууу├├╟╟╞╞цАцАf└f└fаgрgqуАmуА+Б└Б@арА`Аp└p└0└8р8р`0``Ё└?6>;8 AN0aNBv)FЯ Б└Б@арА`Аp└p└0└8р8р Ч [tЁ`Ё`Ё`Ё`Ё`Ё`Ё`Ё`Ё`Ё`Ё`ЁАЁАЁАЁАЁ`ЁАЁ`АЁ`Ё└Ё`Ё└Ё`Ё└Ё`Ё└Ё`Ё└Ё`Ё└Ё`Ё└Ё`Ё№0└Ё№<Ёp0└Ёє└0p0└Ё№ Р`0pЁ`Р`0Ё`Р`0`Р`Ё0pЯР`Р`Ё0pЦР`Р`Ё0pР`Р`ЁщЁ0p`РаЁn ЯypР`РЁРЎ Ё`РoЯi 2 ЁрЦЯ╕2 ЁЯР9░ `Ё~рЁa аЫлP`aЄЁ▒▓Ї┤РЁєРЁ0╧╧KР1ўЁ0├ Ў $^Я0црЯ└0└0`РEЁ∙%яРЁ1Я0`РE ∙/oцщЁРnЁ└├ io Ё2 a■№Ё`РK`ё░ o`Ё└<0├0`РёNФ`ц !1 oЦЁ0`Рсфd ; (ЯЦяЦР0`РРЦ∙o `Ц o`ЎР`2Ё`ЦЁЎ #ЎЁ`Р`0Io` 1ж `oЯ ЎЫ`Ё`8а`ono `▓Т:ЯkРиЎ `Сба:│Бa`p@`РЎЦЦР @лгР0: │АОaЁЎЎ ioЦ@йЫ2ЁpE∙Ў Ёi РЎ%@б9Ї╢└╖ЎЯ ЎРo`@└Ё`а0ЎР%KТ4Ё@╕°aР∙ `O 0ЯЦT │║ЯЦЧ∙ЁЎO ЎР$ oЄ ∙oЦ ЁЁЯopЦЎРiЎР0Р░ШЁ@└ЁpАi`Ц∙`Р0У+│h Ё@└pАiЎР0J▒ пЯ oЦ лбв аП Яi ;АЁ@└`@pАС oЦ *П Яi вСл0@└`F@pАРРЦ∙`Р0@░@└а`а@ pАС Яi л@└@pАРРЦ∙`Р0░Ыа└а 0РiЎР0░Рж@АС0РЦ∙`Р0р`d 0РiЎР0р`АЛ oЦ ЁР0р`░@АР Яi Ў 0РЦ∙`Я @А Яi∙ 0РЦЁРр`Рр@АБ0РiЎРр`РрАР0РЦ∙`Рр`РрАР0РЎРр`рАР0Я<∙`Рр`РрАР0є?i ╧ЦРр`РЁРЁР0├∙i ╧Ц 1+Г?i`РЁР8╖C╧i GP0├Ё∙i @A0<Ё∙i єёя !∙ 00! 0 Р`Р00 ! Р`Р02 02 Р`2 0Р`Р2 Р`Р 0Рi Р`РР2 Р`РР 00 РАЦ 00РАРЦ 20Р`РАРАРЦ 2 `Р 0Р`Р`Р0Р`РА`Р РАРАРАРАРАРАРАРАРАРАРАР`Р0pi РАРАР`РР0pi РАРАР`РРА0pi `РРА0pрi `РРА0pАi Р`РРА0pА`Р`РРА0Р`РРА0`HР`Й`H╞Р`АpH╞ ╞ ╞ А`аА`pH╞ М`аА`М`аАш`аАр`аАраАраО єРАА А ВИ@И АDА"И@(ААP РP А@Pа0А(ааЁ8ДИД@RЙJА╧jЩГА00╧└╬р╝0O@а■╝┴@@ @А<рwx`@цАр└@0Д@А▀с@6М0{jyГАА╗Е▌└w~`└@-ИА<"&А=╞QЩГА<└%)O@`0@Фx)* @(P)КцА`")`R !$!А$й@АўzаZўw╝єЁэ╟qyГАП╫ЗБАpтp/┬'А/xpc{ИАаj└а ЁRРH>ррюрФа PДE*ДJPDJаФа PЁ@H└ХЕH`└@#√ИРR@H`@H└`H A ╚А0 б"╩@$АBїяС╜А0H A ╚6jДк░RА@LТБ╪lАБАi┘кCUcFdSА@LУАя▒ь:0H3$АA ╠УАвРВКfKfdа А00!ААH3$АA ╠У `аSА@LБ@0AАБГА@ РА@JБ аАD(АА($ И А"@АаДА"И PБ АР@ ВA$ P аP└$@$$X└"HаUHI!@R@I $PJ $А$А└$Ра @Т$$Т@└ AHАА I$А@└I АH`А А $ 0@└$АHPВ$Р@Ф @Т `xТ░┴@ AААP АH а`$А@(0А Аа0@(Р! АP\В$aА @Ъ@@ А@А(P∙H `@uш DH@ `№ @@А"@╗■,aАBoя А!P°р░А@7╧Е°:№╙┐р w┐Ё3hЩТ(}╦∙ў└┤╠єаКжщ р╪fcАА Ї▀зЁ/s"└U┐ё?╘0АрA@ n╟ №А9 PPGz°я╪P╣эА└▌{╪·Xlщ└АP¤k╜√ша№р @@№╒ї ╕6~<[pP{У▀¤°Цк$V╨P- √╝@(Ж█s6ЬРаА▌ /ЬШ А А└╜╫¤№└(`_ ═, АаQ0?▐■ ї8А░А0┴o▀╛ я°0ааБё└ ў∙Эo╝` А `y▀¤ ╘└QЖ*Ж208V√¤√\1А)╡1╡)а4PАWюч▀|е C@А0@└А(T°╬▀vМ C@`р ═▀■()1)p >└8Аwўш`Q2*2P(ЁpаA√чш└D`А(Qї№.2А@Q@'р √▀╢ж`@T@0)└8Аz ЁФ р@а КpаXн░0:└Е(А*"ЬА(P?р``U@аjИзр =╚@0АЁQАhв)└8А7s0(J(КpаWxю4dЖ`вКвЬА(SО& @:(жИзр PАиИ▓К,в)└8\аqр( ивк(КpрL(К)вК"ЬЖшP( ╔P"Л(вИзэ╩`АL@└кК(в)└;А└аQАhвК(КpаА( P ╩(вКBЬА( M )@"К(в└зр А@0jPвК*)8АаPаBФ(вР pа0(АеК(░TA▄А(а ╨)@"КЖEзЁ АВ ╢█m█m╢▄А0 PидСD)└Е└0tХ·,b$Q pАмА ╢█m█m╢▄`aEд■аHЙBЬЁ(└А0CQ@)Ж"Eз|р@└╪P ^дИСD)└ЧАЁ▌Ч·"$Q qЁp@@-]КеюИЙB▌V8(mН╥А){в"E╧GР`═╒╪а ^ИСD╒╪"А@0АP┬╒╪▌(ЧВ"$RP┼zЖ╪▌]КеИЙбFАM▌]Н╥А)@"PkT└y@5]Н╒╪а PИАА"@xPmН╒╪▌(Ф"А└DаQM╒╪▌]КеИА`А@&Аx`├╪▌]Н╥А)@"( └0XК▌]Н╒╪а PА-@А P(N]Н╒╪▌(Ф@╡А Н╒╪▌]Ке┬╘ ВФе╪▌]Н╥А)@P е(▌]Н╒╪а P-@PАВИ)J]Н╒╪▌(Фu ааВв RН╒╪▌]КжЇЕ(Ж╚ иВФе╪▌]Н╙*░б@0 b* е(▌]Н╒┘@aE(PАА0В И)J]Н╒╪▌`├QJа└ Вв RН╒╪▌]АВФRЕ(А─ P иВФе╪▌]НрS@еб 6:36:0* е(▌]НЕ┴DP)E(А6:'6:$р;ГД И)J]Н╒ЕT QLа№ 9 :╠─р9┴А'в RН╒╪ EФ\(. - "╠─р└ └иВФе╪▌-A@е t p`p* е(▌]▒P)А980Ь И)@]Н#╝АА,'в JНДЛА@ (0 └иВЖ┼-5A@ ИЙ"$D@ p* жш┤aBАP) НП6{=^█}╡№┐e╢юЄя╦o¤┐ ┐ я Б?Жoяш? ■╜ o- ╜ў▄ц█№o▀ Ё √№▀э√Пч■╖ ┐№ ыП ╜ ■ ° ° №~▀■√ Бя╖nw ю√ ю√ Ы┐у{ ╧ Я■ √чї ╟▀ч/ тЎ ═■╧ Є>¤у Ё№ч┴■Ї·■Г¤╨р╚╕p ╟Гс├└ё┴р√Бр|@xp№├Ё├№BєАo8'╖N░8 ╦∙`>└Аа╪·└√u╪?`x√╟У у@ А ─А░╤╨0в c:pМСА5┐рМpcя ¤F╕1ГюА(QЗ╝1П║МcяяCя&√╓√╫■Ч■▌√¤√ ¤▀■√▀ ?6*Аv1└gp└у`р├Ар`┴А└`БАЁpББЁ0Б┴А0А┴ Ё ┴┐Ё ┴┐° ├Я╕ x ├° у?°` Ё cwШ А ╝ и ═° ╨ └№ И№я░№ ╕№чА№aє№ўА╘cўЬ р0 ├ўШєў°p└8Ёў├ °Ў├ °ў├xЗ├ °ББ °ББ√є1┴Бўўp├БЬ?xу№>xg╪~|<№№┴ю╬╧└╟ч└уЖcОрsМlq▄a∙╪n∙°f°▄Ёf№pglps~`w>s?w `├`ё√`├р рcр▀ └▀¤└▐я└cсП~БПЗ`cА~>>?`?`?Ё?Ё?ЖЁ?ОЁ?Н°?НШ?НШ7ШЬЬw;3?7;?Ў;?╢?Ў аo ?╞o >╟w { ▀ 8▀ 8 8ў 8xу 0┐ 0`╟┐ p0╟ xя x0╟ x x`go |я lя■ьp▀■╠pc▀■╬`c▀ ╞ ▀╞└ ╞`a┐ ╟ °? Г? Г °? Г└x┐р8┐БА┐Бр8┐БА▀БАЯБ¤°▀А ▀А° ╧А№ яА┴№ яА яА}№ А┐ А╞? №? №; №/ └ ■├ ■├ ├ уА cА c╞ у ч s 3 3 √ 3Аo ў3 ўА Ў3√ ■3ў┐ ·; ў┐·3¤ ·s¤ aя ¤a┐ ▀¤aя{▀¤∙№y▀ ┘р▀╛∙└╧╛°└я┐∙└я?▒└oЁ└fЁ└цЁ└ц`g`cрsр3├3Ж├1З└ЗАЗА├А└└└6└Ё`?888$#$ $ N>0n>Uн╟[t ўА Ў3√ ■3ў┐ ·; ў┐·3¤ ·s¤ aя ¤a┐ ▀¤aя{▀¤∙№y▀ ┘р▀╛∙└╧╛°└я┐∙└я?▒└oЁ└fЁ└цЁ└ц` °&В FROM ISSUE #20&'Х 500,&H7600&6И Ё Бе 650&EИ я Бе 640&Mт32&sЗ" THIS PROGRAM REQUIRES A 512K"&ФЗ " COLOR COMPUTER 3"&╧З:З" PRESS ENTER TO CONTINUE OR"&ЎЗ " PRESS ANY OTHER KEY TO QUIT."' I$│ Т:Е I$│"" з 9'# Е I$┤▓ Л(13) з 650'I:Г ******************************'o:Г * PIX MOVER *'Х(:Г * BY RICK COOPER *'╗2:Г * FOR THE COCO FRIENDS *'р<:Г******************************'чF└8'яPт32'ЎZЮ0(d╙M"PIXMOVER"(n╙M"NIBLOADR(JxЕ Ж(&HCFC3)┤▓&H8D з Т &HE76,&HCE:Т &HE77,&HE7(SВNP│5(bМА T│1 е NP(lЦН F1$(ВаЕ З(F1$)│8 з 190(УкL1│8м З(F1$)(к┤F1$│F1$л б(L1," ")(╖╛L2│&HE92(═╚А X│0 е З(F1$)м1(ш╥Т L2, К( Р(F1$,Xл1,1))(Ї▄L2│L2л1(№цЛ X)ЁТ &HE6E4,&HE6)·ф2)!в &HF00)/Т &H1DA,1)=Т &H1DB,T)I"в &H1DC)Q,Л T)Y6т32)h;Т &HFFD9,0)n@ў)ЧJЗ "PRESS 'C' FOR CONTINUOUS VIEWING")оTЗ " OR")┤^З)▄hЗ "PRESS 'I' FOR KEY PRESS VIEWING")тrЗ)∙|З " OR") ЖЗ*РЗ" PRESS 'Q' TO QUIT"*7ЪI$│ Т:Е I$│"" з 410*JдЕ I$│"C" з 460*]оЕ I$│"I" з 550*p╕Е I$│"Q" з 650*{┬Бе 310*Ь╠В CONTINUOUS VIEWING ROUTINE*г╓ф2*▓рА T│1 е NP*└ъТ &H1DA,2*╬ЇТ &H1DB,T*┌■в &H1DC*яА Y│1 е 1000:Л Y*ўЛ T+Бе 310+&В KEY PRESS VIEWING+!0ф2+0:А T│1 е NP+>DТ &H1DA,2+LNТ &H1DB,T+XXв &H1DC+jbЕ Т│"" з 610+rlЛ T+}vБе 310+зАЗ "THERE'S AN ERROR #" м" IN LINE " н+─КТ &HFFD8,0:Т &HE6E4,&HE6+╩ФК+ўЮЖ SCREEN1,PICTURE1,PICTURE2,SICKPC,SHOREБе А┌Ў█┴#9]&9╢┌Б'╢┌Б'W9О ░Ў█Ж=Ж@¤Ш└¤Ъ╛Ъ╜}Ў█ZXXў вЖ0╖ б╞]&Ж9╖ бЖ:╖ в9ZН эО О@М@%| б| в9жАза юО └┐ШО@ЎBZ█ZЖ=:О ░┐Ъ╜}Ў█ZXXў бЖ0╖ в╞ дЖ7╖ в╛Ъ╝Ш%Ж:╖ в9жАза ю 00100 ORG $1DA 00200 OPERAT FCB $00 1=SAVE 2=LOAD 00300 PIXNUM FCB $00 MOVE PICTURE 1-12 00400 ORG $1DC 00405 START LDB PIXNUM TEST FOR 1-12 00410 CMPB #12 00415 BLS START1 00420 RTS 00425 START1 TSTB 00430 BNE START2 00435 RTS 00500 START2 LDA OPERAT TEST FOR SAVE 00600 CMPA #1 00700 BEQ SAVE 00800 LDA OPERAT TEST FOR LOAD 00900 CMPA #2 01000 BEQ LOAD 01100 RTS 01800 SAVE LDX #$FFB0 01805 LDB PIXNUM 01806 LDA #16 01807 MUL 01810 LDA #$40 01815 STD HIPONT 01820 SUBB #16 01825 STD XHOLD 01830 LDY XHOLD 01835 JSR DOPAL 03100 SAVE2 LDB PIXNUM 03200 DECB 03300 LSLB 03400 LSLB 03500 STB $FFA2 03600 LDA #$30 03700 STA $FFA1 03800 LDB #4 03900 SAVE3 TSTB 04000 BNE SAVE4 04100 LDA #$39 04200 STA $FFA1 04300 LDA #$3A 04400 STA $FFA2 04500 RTS 04600 SAVE4 DECB 04700 BSR MOVE 04800 BRA SAVE3 04900 MOVE LDX #$2000 05000 LDY #$4000 05100 MOVE0 CMPX #$4000 05200 BLO MOVE1 05300 INC $FFA1 05400 INC $FFA2 05500 RTS 05600 MOVE1 LDA ,X+ 05700 STA ,Y+ 05800 BRA MOVE0 05805 LOAD LDY #$FFC0 05815 STY HIPONT 05825 LDX #$4000 05835 LDB PIXNUM 05836 DECB 05837 LDA #16 05838 MUL 05839 ABX 05840 LDY #$FFB0 05841 STY XHOLD 05845 JSR DOPAL 05850 LOAD1 LDB PIXNUM 05855 DECB 05860 LSLB 05865 LSLB 05870 STB $FFA1 05875 LDA #$30 05880 STA $FFA2 05885 LDB #4 05890 BRA SAVE3 06000 DOPAL LDA #$37 06005 STA $FFA2 06007 LDY XHOLD 06010 DOPAL0 CMPY HIPONT 06015 BLO DOPAL1 06020 LDA #$3A 06025 STA $FFA2 06030 RTS 06035 DOPAL1 LDA ,X+ 06040 STA ,Y+ 06045 BRA DOPAL0 06050 HIPONT FDB $0000 06051 XHOLD FDB $0000 06055 END %В&В FROM ISSUE #20&F:Г ***************************************&v:Г * Coco III Appointment calendar *&ж:Г * For CFDM subscibers only *&╓:Г * By: George Quellhorst *':Г * (C) 08/08/1993 *'6:Г ***************************************'=:Г'c :Г Draw screen and read variables'тў:Х5000:э1,290:э2,440:э3,4700:Т65497,0:у0,1:у1,52:у2,54:у3,27:у9,1:у10,27:т40:Т65434,1:°2,0:Ю0:Т41598,255:Т140,180:ИЁБе151(еТ&HF80F,0:Т&HF84F,0:Т&H89C,0:в43350:МA(40),D$(31),D(12),H(37),V(37),M(12),Y(12),RM$(31),ND(37):C$(1)│" "л Л(91)л" "л Л(92):C$(2)│ Л(91)л" "л Л(92):Е Ж(155)┤▓134з╙M"FONT/FNT":в43350:Т155,134) Бж121:т80:Т65434,1:Ю0:ё19,12:З"PLEASE WAIT DRAWING SCREEN. < 6 SECONDS >":Т59065,57:ф4:Т59065,32:ц0:Т65434,1)ы(416,0)м(558,7),1:ы(372,31)м(590,38),2:П:АZ│1е12:НQ$:ЛZ:АZ│1е37:НH(Z),V(Z):ЛZ:L1│L:L│31:Бж162:L│L1*ч2:ъ(40,13)м(262,13),╜:ъ(362,13)м(584,13),╜:ъ(40,26)м(262,26),╜:ъ(362,26)м(584,26),╜:ъ(40,84)м(584,84),╜:ъ(40,98)м(584,98),╜*Бъ(452,98)м(452,140),╜:ъ(453,98)м(453,140),╜:ч2:ъ(40,140)м(584,140),╜:ь(416,0)м(558,7),1:АV│31 е 71й8:ь(372,V)м(590,Vл7),2:ЛV*лЕ Б( З(A$)о2)┤▓ З(A$)о2 зA$│A$л Л(32)+B$│"":B$│A$л И(Y):TA│46л Б(27м( З(B$)))о2:WW│TA:ю(TA,0),B$:ю(46,2),"Sun Mon Tue Wed Thu Fri Sat":V│4:Т282,255+NDA│0:TA│(Nн4)л46:АT│1 е L:DA│DAл1:Е DA▓L з32+uЕDA┤10 зD$│" "л И(DA) :Д D$│ И(DA)+╗ЕD(M)│DA ░ M(M)│M ░ Y(M)│Y зч2 :ДЕND(DA)│1 ░ MM│M ░ YY│Y зч1 :Дч3+цю(TA,V),D$:TA│TAл4:ЕTA│74 зTA│46:V│Vл1,)Л:ЕLF│1 з LF│0:ь(428,72)м(520,79),2:АT│1е10:в:Л:P$│ Л(32):Бе31,{ЕQW│1 зАT│1е10:в:Л:Бе30 :ДЕQW│0 з ы(364,0)м(592,80),3:ь(40,0)м(268,80),3:QW│1-.ч1:ю(16,11),"APPOINTMENT CALENDAR ACCURATE FROM 1753 TO 4905":ч3:ю(5,13),"^ + One Month":ю(5,14),"] - One Month":ю(5,15),"\ - One Year":ю(5,16),"[ + One Year":ч2:Бж153-Пч2:ю(25,13),"PRESS THE":ю(25,14),"SPACE BAR":ю(25,15),"TO TOGGLE":ю(22,16),"ARROW FUNCTIONS"-·ч3:ю(40,13),"^ - One Week":ю(40,14),"] + One Week":ю(40,15),"\ - One Day":ю(40,16),"[ + One Day".Ыю(58,13)," Calendar":ю(58,14)," Load File":ю(58,15)," Save File":ю(58,16)," Hardcopy":ч3:ю(59,13),"C":ю(59,14),"L":ю(59,15),"S":ю(59,16),"H".╫Т59108,230:ф4:Т59108,231:Т65434,1:Т282,255:АT│1е10:в:ЛT.¤:Г Inkey loop to change calendars/ЕCM│1 з CM│0:P$│ Л(32):Бе37/1 P$│ Т:ЕP$│""з32/Z!Е Ж(341)│247зв:M│Mл1:ЕM│13зM│1:Y│Yл1/Г"Е Ж(342)│247зв:M│Mм1:ЕM│0зM│12:Y│Yм1/Ь#Е Ж(343)│247зв:Y│Yм1/╡$Е Ж(344)│247зв:Y│Yл10%ЕP$│" "зP$│"":в43350:ч3:Бж153:ч2:Бж154:Z│NNл1:ч2:ю(H(Z)м1,V(Z)),C$(1):Бе4109&ЕP$│ Л(8) ▒P$│ Л(9) ▒P$│ Л(10) ▒P$│ Л(94)з39:Д320k'L1│L:L│31:Бж161:L│L1:Z│0:LF│1:Бж124:LF│1:Бе170Ц(:Г Inkey loop to change notation dates0Є)P$│"":ч3:Бж158:S2│ZмNN:ЕND(S2)│1 ░ S2│ZмNN ░ M│MM ░ Y│YY зч1:ю(4,21),RM$(S2):M$│RM$(S2)1#*P$│ Т:ЕP$│ Л(13) зТ282,255:в:Бе81:ДЕP$│""з421f+ЕP$│ Л(12)зв:ч0:ю(4,21),M$:T│S2:CL│1:Бж163:ЕS1│0 зW│1:Бе41:Д411Ы,K│ Ю(1,"CLSH",P$):ЕK│0 з45:ДИ K Бе 91,111,101,611╨-ЕP$│ Л(9)зв:W│Z:S1│ZмNN:Z│Zл1:ЕS1│L зZ│NNл1:S1│L2.ЕP$│ Л(8)зв:W│Z:S1│ZмNN:Z│Zм1:ЕZ│NN зZ│LлNN25/ЕP$│ Л(10)зв:W│Z:Z│Zл7:S1│Zм7мNN:ЕS1▓Lм7 зZ│NNл12j0ЕP$│ Л(94)зв:W│Z:Z│Zм7:S1│Zл7мNN:ЕZ┤NNл1 зZ│LлNN2╟1ЕP$│ Л(32)зБж168:в:ч0:ю(4,21),M$:Бж158:ч2:Бж153:ч3:Бж154:ч0:ю(H(Z)м1,V(Z)),C$(A):ч2:Бе322№2ЕP$│ Л(8) ▒P$│ Л(9) ▒P$│ Л(10) ▒P$│ Л(94)з51:Д423.3ZO$│ И(S1):ЕS1┤10 зZO$│ZO$л" ":ДZO$│ П(ZO$,2)3h4S2│ZмNN:ZN$│ И(S2):ЕS2┤10 зZN$│ZN$л" ":ДZN$│ П(ZN$,2)3о5ЕD(M)│S1 ░ M(M)│M ░ Y(M)│Y зч2 :ДЕND(S1)│1 ░ MM│M ░ YY│Y зч1 :Дч34#6Е (S1┤10 ░ S2┤10)зA│1:B│1 :Д Е(S1┤10 ░ S2│▓10)зA│1:B│2 :ДЕ(S1│▓10 ░ S2┤10)зA│2:B│1 :ДЕ(S2│▓10 ░ S1│▓10)з A│2:B│24Б7ю(H(W),V(W)),ZO$:ч0:ю(H(W)м1,V(W)),C$(A):ч2:ю(H(Z)м1,V(Z)),C$(B):ч0:ю(4,21),M$:M$│"":Бе414н<:Г Hardcopy, calendar and appointments.4с=в:ч0:ю(4,21),M$:Бж159:ЕU│1 зU│0:Бе32::Дч1:Бж1565>P$│ Т:ЕP$│ Л(13) зв:ч0:Бж156:ч1:Бж157:Д625и?Т150,18:Т65496,0:З#м2, Л(27); Л(18); Л(27); Л(14); Л(27); Л(31);:PR│ Б((40м( З(B$)))о2):АT│1е3:З#м2:Л:З#м2,дPRл1);B$:З#м2,дPRл1); б( З(B$),"-"):З#м26@З#м2,д4);"SUN MON TUE WED THU FRI SAT":З#м2,д4); б(33,"-"):З#м2:PR│4л(Nл1)н5м5:A│Nл16>AАT│1еL:ЕT┤10 зDA$│" "л И(T)л" " :Д DA$│ И(T)л" "6xBЗ#м2,дPR);DA$;:A│Aл1:Е Б(Aо7)│(TлN)о7 зЗ#м2:З#м2:PR│46вCЛT:A│Aм1:Е Б(Aо7)┤▓(Aо7) зЗ#м2, Л(13)7WDЗ#м2:З#м2,д4); б(33,"="):S│ Ю(1,A$," "):B$│ О(A$,S)л П(A$,4):HE$│"APPOINTMENTS FOR "лB$:PR│ Б((40м( З(HE$)))о2)л1:З#м2,дPR);HE$:З#м2,д4); б(33,"="):З#м2, Л(27); Л(15);:З#м2:A│N7╢EАT│1еL:Е Б(Aо7)┤▓(Aо7) зЗ#м2,д7);RM$(T):A│Aл1 :Д З#м2,д8); б(66,"-"):З#м2,д7);RM$(T):A│Aл17шFЛT:З#м2,д8); б(66,"="):ч0:Бж157:Т65487,0:Бе328P:Г Make notatation for specified date.8oQТ282,255:ч0:ю(4,21),M$:S1│ZмNN:H│10:V│21:RM$│ О(RM$(S1),4):Q$│RM$:ч0:Бж158:H│5:ч1:Бж1558ЕRIN$│ Т:ЕIN$│""з828№SЕIN$│ Л(8)░ RM$│Q$ зIN$│"":в:Бе83 :ДЕIN$│ Л(8)зв:ч0:ю(H,V),RM$:RM$│ О(RM$, З(RM$)м1):ю(H,V),RM$:ч1:ю(H,V),RM$:Бе829STЕIN$│ Л(13)зв:Т282,255:ND(S1)│1:RM$(S1)│RM$л П((RM$(S1)),68м З(RM$)):ч0:Бж155:Бе419├URM$│RM$лIN$:в:Е З(RM$)│69 з╔"O1L2T10C":ч0:ю(H,V),RM$:RM$│ О(RM$,68):ч1:ю(H,V),RM$:Бе82 :Дч1:ю(H,V),RM$:Бе829ьZ:Г Print new calendar. 1753 to 2099.:A[в:ч0:ю(4,21),M$:АT│1еL:RM$(T)│ И(T)л Л(32):ЕT┤10 зRM$(T)│ Л(32)л"0"л П(RM$(T),2):{\RM$(T)│RM$(T)л б(66,"."):ND(T)│0:Л:H│51:V│21:ч1:Бж152:П]P$│ Т:ЕP$│""з93;^ЕP$│ Л(8)░CA$│""зP$│"":в:Бе93 :ДЕP$│ Л(8)зв:ч0:ю(H,V),CA$:CA$│ О(CA$, З(CA$)м1):ю(H,V),CA$:ч1:ю(H,V),CA$:Бе93;l_ЕP$│ Л(13)зв:S│ Ю(1,CA$,","):M│ Й( О(CA$,S)):Q│ Ю(Sл1,CA$,","):D│ Й( Р(CA$,Sл1,Q)):Y│ Й( Р(CA$,Qл1,4));о`ЕP$│ Л(13)░(S│0 ▒ Q│0)зАT│1е10:в:Л::ч0:ю(H,V),CA$:CA$│"":Бе93; aЕP$│ Л(13)зв:ч0:Бж152:Z│0:Бж123:CM│1:ч2:Бе16 :ДЕ З(CA$)│▓10зАT│1е10:в:Л:Бе93<#bCA$│CA$лP$:в:ч1:ю(H,V),CA$:Бе93Jiч0:Бж108:АI│1еL:╘R$│RM$(I):┼#1,I:ЛI:Ъ#1:Т&HFF40,0:Т65497,0:в:ч0:ю(PR,18),PR$:ч1:PS$│"FILE IS SAVED":ю(34,20),PS$:АT│1е1000:ЛT:ч0:ю(34,20),PS$>wjч3:Бж158:ч0:Бж108:ч1:Е F$┤▓""зю(4,21),M$>ЩkLF│1:CM│1:АT│1е9:в:ЛT:ч2:Бе17>╤lю(22,20),"FILE EXISTS, OVERWRITE ES OR O ?":Р>їn:Г Load monthly file from disk.?oч0:Бж168:ю(H(Z)м1,V(Z)),C$(A):ю(4,21),M$:ч1:Бж112:ч0:ю(PR,20),PR$:ч1:Бж116:в:АT│1е1000:ЛT:в:ч0:Бж116:LF│1:CM│1:АT│1е9:в:Л:V│4:ч2:Бе17?чpS│ Ю(1,B$," "):G$│ О(B$,S)л П(B$,4):PR$│"NOW LOADING FILE FOR "лG$:PR│(80м( З(PR$)))о2:ю(PR,20),PR$@<qFI$│ О(B$,3)л П(B$,4)л"/DAT":Т65496,0:Щ"D",#1,FI$,68:╨#1,68 з RM$:Е е(1)│0 з117@ЖrАI│1 е L:─#1,I:ND(I)│1:RM$(I)│RM$:Е Р(RM$(I),10,10)│ б(10,46)зND(I)│0@жsЛI:Ъ#1:Т&HFF40,0:Т65497,0:Р@╞tю(34,20),"FILE IS LOADED":РAGuч0:ю(PR,20),PR$:Ъ#1:Т65497,0:АT│1е10:в:ЛT:ч1:Бж118:╥FI$:АT│1е2000:ЛT:АT│1е9:в:ЛT:ч0:Бж118:LF│1:CM│1:P$│ Л(32):P$│ Л(32):Бе37Ayvю(24,20),"FILE DOES NOT EXIST ON THIS DISK":РAпx:Г Calculate requested calendar. / Check for ADOSA█yВ IFPEEK(&HA282)=23THENGOSUB141:GOTO123B)zё10,8:З"Please input the date":ё13,10:З"[ MM,DD,YYYY ]":ё12,13:Й" ";M,D,YBР{A(1)│31:A(2)│28:A(3)│31:A(4)│30:A(5)│31:A(6)│30:A(7)│31:A(8)│31:A(9)│30:A(10)│31:A(11)│30:A(12)│31B─|П:АT│1еM:НA$:Л:FM│Mл1:GY│Y:ЕM┤3 зFM│Mл13:GY│Yм1Bщ}FM│Mл1:GY│Y:ЕM┤3 зFM│Mл13:GY│Yм1C~N│ Б(365.25нGY)л Б(30.6нFM)м621048CSЕ((Y│1700 ░ M▓2) ▒ Y▓1700) ░ ((Y│1800 ░ M┤3) ▒ Y┤1800) з N│Nл2CЦАЕ((Y│1800 ░ M▓2) ▒ Y▓1800) ░ ((Y│1900 ░ M┤3) ▒ Y┤1900) з N│Nл1C╟БN│Nм Б(Nо7)н7:L│A(M):ЕM│2 ░ Yо4│ Б(Yо4)зL│29C ВЕM│2 ░ (Yо100│ Б(Yо100)) ░ (Yо400┤▓ Б(Yо400)) зL│28D8ГNN│N:MM│M:YY│Y:ЕQS│0зD(M)│D:M(M)│M:Y(M)│Y::QS│1:Р:ДРDЕМ:Г Calculate date for ADOS-SMARTWATCH users. / Convert DATE$ into M,D,YD╒НD$│ ╕:S│ Ю(1,D$,"-"):D$(1)│ О(D$,Sм1):D$(2)│ Р(D$,Sл1,3):D$(3)│ Р(D$,Sл5,2)EОQQ$│" JanFebMarAprMayJunJulAugSepOctNovDec"E7ПАS│1е13:B$│ Р(QQ$,Sн3,3):ЕB$│D$(2) з 144:ДЛSEWРD$(2)│ П( И(S), З( И(S))м1)EЖСD│ Й(D$(1)):M│ Й(D$(2)):Y│1900л Й(D$(3)):РEвЦ:Г Misceleneous gosubs.E╩Ч█:ў:т80:Т41598,3:Ю1:°2,0:Т65496,0:КFШю(15,21),"Please input date. ( MM,DD,YYYY ) : "лCA$:CA$│"":РFuЩю(5,13),"^":ю(5,14),"]":ю(5,15),"\":ю(5,16),"[":ю(59,13),"C":ю(59,14),"L":ю(59,15),"S":ю(59,16),"H":РFуЪю(40,13),"^":ю(40,14),"]":ю(40,15),"\":ю(40,16),"[":ю(59,13),"C":ю(59,14),"L":ю(59,15),"S":ю(59,16),"H":РGoЫю(21,18),"ENTER REMARK FOR DATE INDICATED":ю(4,21),">":ю(9,21), б(64,96):ю(74,21),"@":ю(H,V),RM$:ю(24,23),"PRESS ENTER WHEN FINISHED":РGўЬS│ Ю(1,A$," "):G$│ О(B$,S)л П(B$,4):PR$│"POSITION PAPER IN PRINTER AND PRESS ENTER TO PRINT "лG$:PR│(80м( З(PR$)))о2:ю(PR,20),PR$:РH Эю(28,20),"N O W P R I N T I N G":РHpЮю(8,18),"PRESS ENTER TO TYPE IN MESSAGE / PRESS CLEAR TO ERASE FROM FILE":РHЧЯАT│1е31:Е Р(RM$(T),5,1)┤▓"."зР:ДЛTIDач1:Z│NNл1:АT│1е9:в:Л:ю(24,20),"NO DATA IN MEMORY FOR THIS MONTH":АT│1е2000:Л:ч0:ю(24,20),"NO DATA IN MEMORY FOR THIS MONTH":U│1:АT│1е10:в:Л:ч2:ю(H(Z)м1,V(Z)),C$(1):Бе42Iйбч2:M$│"":АT│1е5:в:Л:ь(416,0)м(558,7),1:АJ│31е71 й8:ь(372,J)м(590,Jл7),2:ЛJ:ю(54,9),"PLEASE WAIT"I╢вАT│1 е LIЇгRM$(T)│ И(T)л Л(32):ЕT┤10 зRM$(T)│ Л(32)л"0"л П(RM$(T),2)J-дRM$(T)│RM$(T)л б(66,"."):ND(T)│0:ЕCL│1зCL│0:Р :ДЛT:РJJе:Г Data statements. Etc.JжжЖ JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERKeзЖ 47,4,51,4,55,4,59,4,63,4,67,4,71,4,47,5,51,5,55,5,59,5,63,5,67,5,71,5,47,6,51,6,55,6,59,6,63,6,67,6,71,6,47,7,51,7,55,7,59,7,63,7,67,7,71,7,47,8,51,8,55,8,59,8,63,8,67,8,71,8,47,9,51,9KБиЕS2┤10 з A│1:Р :Д A│2:РEPTEMBER,OCTOBER,NOVEMBER,DECEMBERKeзЖ 47,4,51,4,55,4,59,4,63,4,67,4,71,4,47,5,51,5,55,5,59,5,63,5,67,5,71,5,47,6,51,6,55 &?:Г PRINTME/BAS ' This file courtesy of Arthur S. Hallock.&БХ2000:Т65496,.:Т140,180:Т150,18:Т&HF80F,0:Т&HF84F,0:Т&HF89C,0&пў:T│1:в43350:Бж20:у1,1:у10,27:т80:Ю2:°3,1'3ё31,0:°2,1:З"LABEL PROCESSOR":ё31,1:З б(15,42):ё5,4:З"THIS PROGRAM WILL PRINT THE ENTIRE TUTORIAL FOR THIS MONTH'S COLUMN":ё5,6'ЛЗ"TO YOUR PRINTER.":ё23,6:°7,1:З"BE SURE YOU HAVE ENOUGH PAPER, THERE ARE 06 PAGES"(ё20,9:°3,1:З"YOU MUST NOW SET THE BAUDRATE CONSTANT";:ё20,10:З"TO CORRESPOND WITH THE ONE YOUR PRINTER";:ё30,11:З"IS CURRENTLY SET TO"(вё1,14:°2,1:З"600 BAUD=87 / 1200 BAUD=41 / 2400 BAUD=18 / 4800 BAUD=7 / 9600 BAUD=1":ё18,16:З"PLEASE INPUT PROPER BAUD RATE > "(╛ё50,16:╗ЙBD$:BD│ Й(BD$)) Е BD│87 ▒ BD│41 ▒ BD│18 ▒ BD│7 ▒ BD│1 зТ150,BD:Бе10 :Дё49,16:З" ":а50,1:Бе8)╪ ё10,19:°1,1:З"YOU MUST NOW INSERT YOUR PAPER IN THE PRINTER IN SUCH A WAY":ё8,21:З"THAT THE FIRST LINE PRINTED WILL BE ON THE VERY TOP OF THE PAPER":ё25,23:°2,1:З"PLEASE PRESS TO START";)ЇP$│ Т:ЕP$│ Л(13)з12:Д11*<Ю:°3,1:ё19,23:З"PRINTING HAS STARTED, PRESS BREAK TO ABORT";:ИЁБе21*K Щ"I",#1,F$*[Е М(1) з18*q╗Й#1,L$:F│1:A│Aл1*КЗL$:З#м2, б(8,32);L$*ФБе 14*гЪ#1:а100,1*╟Ю:З:З"All Done. Thank you !!":К*▐F$│"COCOCAL/DOC":Р+Ъ#1:Ю:З"PRINTING ABORTED":З:З"ALL FILES CLOSED":КTARTED, PRESS BREAK TO ABORT";:ИЁБе21*K Щ"I",#1,F$*[Е М(1) з18*q╗Й#1,L$:F│1:A│Aл1*КЗL$:З#м2, б(8,32);L$*ФБе 14*гЪ#1:а100,1*╟Ю:З:З"All Done. Thank you !!":К*▐F$│"COCOCAL/DOC":Р+Ъ#1:Ю:З"PRINTING ABORTED":З: #Н cj1QA44A41QATACAQTCAQT414_TA4_AQAT4_AQATCAQё_AQAT4_AQTC_AQACAQ_AQAQ4їЇ41Q_CїёQCГCAQ_Q4824їёQCГ#CїёQ8241_Г#C_Г#CsCA5їёQ1ёQ824741?_1Q1QП1824741Q5їєПQT4Г#CsC_SQёCASCГ#CsCAQ5їєCE4Г#sC5ї4?ПCВ271QS_48°Ї4АГ#s5їєC°CcГ#s5їєCH°Ї4cВ2671S_4?Д416282671QS_S_48єCA628#c#cs_S_?А°41628626715ї5їєЁПЇ4c#АГc#cs#_S_?П416#В626721a5ї5їє°П4c#А#c#cs#_S_8Ї416#В626721a5ї5ї?ЁП16#А#c#cs#_SЁП16#В6267265ї58°ЁГb0В6267265ї8°Ёєb8#c#cs#c_SГЁПГb62676265ї58ЁП16(6262sc#c_SГЁ°ЁП16 Вc#c'6#cSГЁ°Ё°єb&26762658°ЁПП12b&262sc#c#SГ°°Гb&2676#c#SГПАє(c#csc#c#SГ°П1bВb262sb6258?А°°є(&267626258?°Ё°єxb262sb628°Ё°pА&#csb628П1`Вb2676#c#ГППxrb267#b2628°П1gАЖ#&6'6#c#Г°ЁП1h&#&67#b2628АП1hb2bcsb2628?П°єВb2c'6#c#ГАП°єАЖ#&#g6#c#ГППА°ёh&6'2b2628?П°Бhv#&6r6#c#Г°ЁПБgb2cg6#c#Г°°ЁПАЖ#&'6#c#Г°Ё°ёhbgcb26#ГА°°ЁАЖ#&66#c#Г#ГПА°ёghb2aPb262828?ППАЖ&Rb26#Г#c#ГП°°b2gRb6#Г#c#c#Г#ГА°ёАЖ&їb6#Г#c#cГ#Г#ГАПпАёАЖ&qё_b28#b6CГ#Г#ГЁ°иЁ`&qёP0b28#c#cГ#Г#Г°ЁпП`&0#&#В6#cГ#Г#ГПАП`&qёїb82Вc#cГ#Г#Г#ГПАП`gїєc#В68#cГ#Г#Г#Г#Г#Г°Ё°Ё°`ёїВc(#cГ#(#Г#&82828?АПАПАЖпSCВbВh2В82bГ#Г#Г#ГАЁКПАПАЖ ёїCCВbВcГ(2826#Г#Г#Г#Г#°АПиП`g ёї040402ВА`Вh2rВГ#Г#&8#Г#Г#(20°ЁПи°`gпбё_CC(bВrВr82b8#В82b82ПА°·ПБА`gпйCCАЖВrВr8282h&8282b82ЁПёА`·ЪёSCCАЖАrВrВrГ'8bВbГ#Г&(°°`·ЪСёїєCCh('(2r8&(h#Г&(2°П°`·Ъп04040АЖАpАpВrВrВbВbГ(2b82°ППАПБАЖ ·ЪСёїЪCCАЖАpАpАrВrВh&('#Г&(/АППАёАЖ ·ZЯCCАpАpАpАxВbВrГ&( ППА`·ЪЯСёї∙й04040408pАpАpА`АbВrГ&(/ПК°пй∙йпбёїй04040408ЖАhЖ(°А°пёАgпйпй∙ёїЁ040408pАpАpА`АhА°ПпАp·∙йпZЯЪЯCАpАpАpАx`АhА`ПА°Ё°пПА`·ЪёїЪ·ЪУCCАpЗАpЗhАx`А°ЁПАПАpпй∙й∙бёїЯЪУCCАpАxpЗЖАxПАПЁ°йпйпйZ∙йа040408pЗxhx°·Пй∙й∙_па040АpЗЖЗАПАЁПКёАЗЪЯп_ЪЯpЗЖАПЁ°пАёАtйп_йЁ0АЗЖГЁПА°ЁБtЪЯЪСёїЪЯxиzКА0ПА°Ё°пtp·Ъ·ЪЯZЪЯйЁ0ЗКА0ППК°ЁЪЯЪ_й40?OHxиАПиБА@·ЪСёїйп4ЯOпдпДЗКЁ°Ё°ЁёАй∙йп∙й∙йпJ·Ї·Ї·ДК°Ё°Ё·°ёАЪ·Ъ·СёZЯйєй·J·J·∙пДК 0ПА°·ПАй∙й∙бёYй∙йєЪ·Ї·Ъ·Oпй∙·ДК ПП° ПАЪ·Ъ·Я_Я:ЯпЯпЯЪ·ЁH0:· °ПППапП·ЯЪ_Y∙йп9пй∙пй∙·0а0Ё°Ё°ЁпП йп_пй∙й·ЯпЯЪ·Ё0: °ЁПК0й∙йбёїЯЪ·Ъ·ЯЪ·Япа0:· °·А°ё040Ъ·ЪСёїпй∙й·∙·∙п ПКАП040й∙йп_Ъ·Ъ·Япг4 ГПи?Б0·ЪСё_ZЪ·ЯпЯЪ·Ё04@а084ПиH404 ЪЯ∙й∙й∙пй∙·0C@40а04КПA404 йZЪ·Ъ·ЯпЯЪ·Ё0C@40а04°иЇCC Ъёї∙й∙пй∙Ё0C4 JHЇ0C й_Ъ·ЯпЯ040C @0д040аЪёїЪ·є40па04 0ZЪЯЪЯп04Cг @PЪ·ЪЯпг0C4гJ0а4 40а0а0CC C4 а0C4 C@C@0п 0аC40а01 44 0аг44 4 0г 4040а0гCа0:0440аC@а40г 40C@г@а44Cа0:0404а40 0а04400а44040@0а0:0C4 CC@C@C@0 0а04C@а0C@4404040:гC40а0CC0а0а04C@а040а0:0а0C@4 а0:0C40а0а0C@4 а040C 4040а01 C@C@а0 CC 0а0 44 0а0а0а04C 0а: 0г C4 0г 4C 4C@а0г C40а0га4C@а0г 440агаC40а0аCC@а0P05аC@40а05 440а0P5а44 S 440а0P0SSаC@40а050SQQ▓А ■ ╘@ @ Ё (Е А ° ц~QЕ (а Ё №<■2А Аа р ° ╞@ P@` └ ┼ А@@ ∙ ■ >Е #А@h ╧ №№:$И└Б$ А° 0HI╨ АD Ё? └ЁHДаUАА` ч■ ■р@Ф@аА@e ├ №р╚ %J╨└иД ° АрЩ( CСH└Тl№ Ё?Ё БАбG░и└р АЁ└eВ!!@ └? № рDB@j3H( р АHАаАР ? к$Eа@ ■№А0а` @А № °@0Р ° Ё00аH(└`Pй ? Ё0? Ё `└a JА р( └HБmaI, └P ■@H6Y Р└║k№gАH№8(С*и.└0 @0№ №P Ё$!L B)А@P` ¤№"ИP(╚БC(@√ № А а(xH ┼(Hє №АИа( ($@└╝┘№А@0 0$P ╓ №Е@"`ИАа@0ЗЩ №nА аB@АPВJМ/ №qF АРД АА` БА~┐№ыJ`P@А└@ BА│_№е╔AаИ└АВАа@ lЯ№(к МQAГPАo/╠╫% в"АА8ЯЬЩ!РдГXА@pнТ▌д└ФHИH РР@gдЩ1AСРА0AЩ,NЩJ @!80╬:,T└ФL E"(7тДO)АT$Q М@HDпU─ЙШb"СД аАа(uпДY└д(FA @ 0┌7D&aВB"I P▄{─LРС$IВ М И▄ф9 @Q(К @РС┼дРаTEКАDrOL$(@вDQВ (D╣d`┴!$Е# ФА$Сщ41а ФI Д Из▒\р@bDС"TP│C\└б"FЙ(0уFDfp 'Ф(A "( И╫L< EГ"T(BФ■tj╚@┼FМE<!P + Т( rЇ@`%О$4Д░∙╝иQ─В д(BлLфc0 Г2(j∙TбXE$!$Q0└HМИм╠d─┬ А(P@(!&г─Ш8IЕ$"2H(аDb*╝1ДБ@А0 И cм0вР─┬КА@$└P!АHB▄kT4─ ^Д!QH╪(@└$:M1С@а ЕdGТБ@БўtD└АP@"ыЛвM $И QБВ(БI;Tс$КаHB┬╗МА╞╤А "ЦЛ╨Т5 3( ХTdаA )ДЄ@Дк╒СJР*А$Х:>№b┬PMЬ■Ё@#G╥$4аMHB Щdt1QаМ └ B%Кс K SaАИAgн@рА Ш є└Б&чЙ3ТKвМHS╔lМh@X Ё%эв!R╡QК$#цT А@╝ ВБе $МК┘QR"АFrЧь!< ┼%YФв\╥Лx@яЄь Fh ┼e ╠ R╥X2Dtйeы$aBа З╪5 шИ(╚╔R e1|М"хд{■ФА`└@7╕5 ЁD Д╔ еcшЪб!╘B╡Р┴dМ`а Чz- °ИI┤╤b]L\R%*ГQRt Ю· °`Ск▓дпк("H╘йstж ]■ №H`ГQтШV╩╞б*Д╣╝у┤fР[■ №ДHлTR/HlL┬╥┤Ч·H▒Ю ■(СbкaU0кЛ IKО│М`4ВO√ P╔TС7МЪLЖИАY∙4╘ P8▀ K ░ИС2ЪdLД46A*нж4<┐№I └ b1КS╩hKИ▓)│аИW№ рЕ3bX2Fв2ВО╞жф└n№ Ё IAТB┴ЙЬк╙╝АСHн ь °bаЙ$ВD0ГIПЛd0K ь6▀ №Ж)2BDH "@&─Ч ▄"╟ №PаДDИР`К-д4b└╙? ■)0B(DHГB╡W(прЖ? "(0~l[ьп Г А!Bм└ єБзZ ▀ Г └Ф,■%bСn4l`╧ Г_ Ё(@ оМ■ └hbМ╝─а`@╚ _П ∙@└КО@ц┤QRА0 ё_· ∙@"вbБО╨▄< А°└"/Аx)Д╙╥4 \Ею■▀┴°└дАЁ╒wдм@! DИP? 3 ┴°┴єо°ai]╬jЇ_╬ 3 ┴°¤╫мЁЁ┌╡<БГ? · ┴°■g"╕схhY, Г■ 3 ┴°?°tР Аd(}╝■ г 3 ┴°Аї?Аx №~m\ #Р■ ┴ Ф╡┐Ё?рх▄ А┐└ ┴ °|rUАч№.Bь рс?■ ┴ ёу┬W?╬ В4 ЁєЕ ┴ я7@Б4№ ═■ ┴ x2АБЬ■ IЁ? ¤_■xр ?АБ └ Ё@aЯ└ Г ¤с└g┬└└БDрсЯ∙ Ё ч╟А da р°рБ°з ■? №▀Вt@? Ё№БЯ ╝8ВTр~Б? ╪pЁb0ЁБ@ Жaу└P`Б|@№╟А└1Б№ `АdАБ№├|BbБ№Ё<?A№P└?ёрx└Гь#─|?р°~рxo┴ р ёCр|p/а┐°g├ чрЖр< G рЁ №?╫└>╘Т# └xd! ■~`└>`К# ■єШ ├└└"Р? ┐ ├ А■└"Hяў╧ ∙ ■ Ё ╧ 0 №└№в$ ЁYЗ№? р■└вА■ Ь@ ! ЁёpАА1@b └qА%?ч<0q р А~└ацyА°Ёб └└~└╫└Рє╧№ ├ !x`№└`H| ∙ч ■сДД!├№└└$Є ╧ №D!№└Б ■ ■|@!№°└№ ? ? ? №С!°?А А ч Я№!1pЁ?АpБГ3є№ !ЁАAG я№!╫└р╧!#?╧? в!`└ xСРч №BА!├ А ╧IH є■№И@! ■)А%$ T"%┤С"$" ЕU╡Z╢UP%U┤вВTХU┤RЕUU╡к╡U0%R$С"" АAH└Тg`р═@h═р3gАНрё╝3А,1ААcА$0hЖЖX ЮБЮ p;└0│└0∙└07╝ Аmя0LўyЖ`s?`\ЁЁ{`5°7Г■ │Ё №°■№√╚¤¤·∙√▄ ▌■▀▀┐∙∙_ч╦_╧эп╧ўя╧ №■яє¤┐ч№ ?ь√ Я ¤¤╖╧м}√?ўы┐√xў■╗ ▐ vч ╢■┐о}¤Л▄¤Л¤▌Л▌№[wЎ╩╧ ╪_▀эХ╝ ~ья▀▌Ю№ iЮ┤Ь╟│▀▓M┐ │Эo└▀╜ў№╕ }▀Ё ю ┐╜иMў ~√ьA ▐аЙ√┐■y■@РM▀ ч ┘!7 ╣_Б! √тл@╞ ▒яБ3┐ ю╕A# ■жoЄHЖg ■~┌Q ╠ ¤■?|7 ·єў└(■ f№Г №cя╪/▀╗}╧А(c■ Ў╧0Ч ¤░^╖є╢└О∙╬▐а▀√▐№Н№э<∙ўyАт╧┐Ё0у╗╗█√╣ ■┘Я╖w╔▌¤ўєGMў√┤╟┴а┐нЎЦ.№╓▌дК╚'c╢iЛ∙р{Ёёr■-╛└G╚~'╕∙Є╠&Xє▀црч+yБ¤Пx аwАр°аp¤nK╔ з^/■з╟═╗ры`+╫З░?╜│╞ЭШЄcГ'Чf╪╠р0 zW`ix7ТHр└ЧдЮ║Рр Ї@EвА4h Ўг@Oj┌▄╙Г е|0vд┬Б6Е╚э╢m╢f╧╚█)▓@д┌@√3РЇ▓@╝╞R▐LfHфF4Г`~aр╞└aр■└aу■└a╟╛?└a╟ў?└`┐?└c └c╧ └p╧ └g▀ └g╖ └n7■w└~7 ў└vg └wgє Аv╧ №└v╧√№└~П╖ └О┐ └Ю03АЮ└▐~_└Ў°└~ √└▀ @~▀ └|▀ └}╧ └|╧ └}═■ └}═■?└}█¤┐└█є └}█s└}√{o└ {└ уo└■√?└■Ў?└■■└{■■└№■└№ю└ ▐└ Ш└¤Ш└ Ё└ └└ @└ А└ А└■└ А└ А└ А└ А└ А└ А└ А└w А└ А?└ °?└ў°?└ °?└~ °?└ №?└ ■?└¤■?└¤■?└~я■?└{я ┐└я └ ┐└▀ └╧ └╟ └├ └├ └├ └├ └├ └├ └├ └├ └├▀ └├ └┴ └┴ └с └┴ └┴▀ └┴ └с └с └oс ╧└╨ ┐└oр └Ё я└ я└¤▀╧└ё▀П└у▀П└ ▀П└ └g■?└g №?└g №└wя┐є└w ў└є ╟└є√П└у√└є√1└ўю╧└ ¤┐└| √ └l ∙└l=∙∙└l∙∙└pщЩ└p°└p№└p╝└p№└x■└ └y └{Я┐р└yЯ 0└}Я >└|┐ Ж└| └ ▌└~ №└ ■>└w ■?└w▀ └wў └w └s └s └S А└} р└ ╫Ё└ №└} яў└ ╕└ П└? я└? └? °└?▀┴└Я°└?Ыю└Ы╟└_Я╞└`└`└`└`■└`Ў└`■└`Ї└`Ў└`■└`└`└`└`└4?80;"????Xх0xх\Ncj °└?▀┴└Я°└?Ыю└Ы╟└_Я╞└`└`└`└`■└`Ў└`■└`Ї└`Ў└`■└`└`└`└`└ ∙&В FROM ISSUE #20&4 :Г***** MOVE-IT 2 *****&K:ГBY NORMAN BARSON&_:Г7 RIDGE COURT&~(:ГEAST BRUNSWICK, NJ 08816&О2╙M"BOLD/FNT&Ч<Х400&┬FМ PC$(9),XO(9),YO(9),PH(9),PV(9),N$(9)&╚Pў&єZу0,63:у1,9:у2,18:у3,36:у4,0:у5,7:у6,47&·dф2'nч3,0:ю(12,1),"M O V E - I T 2"'=xю(12,2),"by Norman Barson"']Вч1,0:ю(14,4),"INSTRUCTIONS"'ЙМю(5,6),"The playing board shows 9 num-"'│Цю(5,7),"bered red pieces and 2 empty"'▐аю(5,8),"(blue) spaces. The object is,"( кю(5,9),"by moving one piece at a time,"(7┤ю(5,10),"to join pieces 2 and 5 to form"(a╛ю(5,11),"a vertical rectangle in the"(М╚ю(5,12),"upper right corner using the"(и╥ю(5,13),"fewest moves."(╘▄ю(5,15),"For each move, when prompted,")цю(5,16),"key in the piece number, then").Ёю(5,17),"the direction (use arrow keys).")[·ю(5,18),"Only legal moves into an empty")Ию(5,19),"space are allowed and counted.")░ю(8,22),"PRESS WHEN READY.")┬Е Т│"" з 280)с"ц:ю(14,9),"SELECT OPTION:")·,ю(12,11),"(1) PLAY"*6ю(12,13),"(2) SEE SOLUTION"*&@OP$│ Т*5JOP│ Й(OP$)*MTЕ OP┤1 ▒ OP▓2 з 320*a^И OP Бе360,1930*|hАI│1е9:Н XO(I),YO(I):Л*┐rЖ 65,35,142,49,50,65,110,65,48,111,80,95,140,95,125,125,95,155*ч|PC$(1)│"BL44U14R88D28L88U14BR44BU3"+ЖPC$(2)│"BLL30U28R58D58L28U30BR5BU10"+8РPC$(3)│"BL29U14R58D28L58U14BR34BU3"+`ЪPC$(4)│"BL29U14R58D28L58U14BR34BU3"+ЙдPC$(5)│"BRR30D28L58U58R28D30BL10BD3"+▒оPC$(6)│"BL29U14R58D28L58U14BR34BU3"+┘╕PC$(7)│"BL29U14R58D28L58U14BR34BU3",┬PC$(8)│"BL44U14R88D28L88U14BR44BU3",)╠PC$(9)│"BL14U14R28D28L28U14BR17BU3",A╓N$(1)│"BR3NGD7L2R4",ZрN$(2)│"R4FDGL3GD3R5",uъN$(3)│"R4FDGNL2FD2GL4",СЇN$(4)│"BD5NR6E5D3BD2D2",л■N$(5)│"NR5D3R4FD2GL4",╚N$(6)│"BRNR4GD5FR3EU2HL",█N$(7)│"R5G5D2",¤N$(8)│"BD2UER3FDGNLFD2GL3HU2"-&N$(9)│"BD7R4EU5HL3GD2FR"-"0M│0-F::ГDRAW PLAYING FIELD AND PIECES-QDц:ч2,0-lNъ(18,19)м(172,171),╜,B-ЕXъ(8,9)м(182,181),╜,B-Чbш(10,180),2,2-йlш(20,170),1,2-┤vАI│1е9-хАї"C0BM"л И(XO(I))л","л И(YO(I))лPC$(I)лN$(I)-№Кш(XO(I),YO(I)),3,0.ФЛ.ЮАI│1е9:Н PH(I),PV(I):Л.YиЖ 50,20,37,37,35,20,35,20,37,37,35,20,35,20,50,20,20,20.p▓M$│"U10F4E4D10BR4".Ф╝O$│"BU2U6E2R4F2D6G2L4H2BD2BR12".▒╞V$│"BU10D6F4E4U6BD10BR4".╬╨E$│"NR8U5NR4U5R8BD10BR4".ф┌HY$│"BU5R8BD5BR4"/фI$│"R6L3U10L3R6BD10BR4"/юT$│"BU10R8L4D10BR16"/7°TW$│"BU8E2R4F2D2GL6GD4R8"/cї"C3BM200,20"лM$лO$лV$лE$лHY$лI$лT$лTW$/Пї"C5BM199,21"лM$лO$лV$лE$лHY$лI$лT$лTW$/аЕ OP│2 з2140/░ Бж810:Бе870/║*M│Mл1/├4ч6,0/┌>ю(26,5),"MOVE NO:"/ёHЕ M┤10 з ю(36,5),M0RЕ M▓9 з ю(35,5),M0 \Р0fч1,00.pю(25,8),"PIECE NO:"0Czч3,0:ю(38,8),"<"0SДА DL│1е25:Л0hОч0,0:ю(38,8),"<"0~ШPN$│ Т:PN│ Й(PN$)0ЧвЕ PN┤10 ░ PN▓0 з 9500бмБе8900╢╢ч0,0:ю(38,8),"<"0╩└ч1,0:ю(36,8),PN0ф╩ю(24,10),"DIRECTION:"0·╘ч3,0:ю(38,10),"<"1 ▐А DL│1е25:Л1 шч0,0:ю(38,10),"<"1+ЄDI$│ Т1J№Е DI$│ Л(8) з 1030 :Д 10401Бч0,0:ю(38,10),"<":ч1,0:ю(37,10),"L":Бж 1120:Бе17001аЕ DI$│ Л(9) з 1050 :Д 10601╓ч0,0:ю(38,10),"<":ч1,0:ю(37,10),"R":Бж1420:Бе17001Ў$Е DI$│ Л(10) з 1070 :Д 10802,.ч0,0:ю(38,10),"<":ч1,0:ю(37,10),"D":Бж1270:Бе17002L8Е DI$│ Л(94) з 1090 :Д 11002ВBч0,0:ю(37,10),"<":ч1,0:ю(37,10),"U":Бж1550:Бе17002НLБе 9802╟Vї"C=CC;BM"л И(XO(PN))л","л И(YO(PN))лPC$(PN)лN$(PN):Р2ф`Е PN│2 з 1130 :Д Бе 11503.jЕ л(XO(2)мPH(2),YO(2)м5)┤▓1 ▒ л(XO(2)м7,YO(2)л5)┤▓1 з а50,2:Бе 173039tБе11603Н~Е л(XO(PN)мPH(PN),YO(PN)л5)┤▓1 ▒ л(XO(PN)мPH(PN),YO(PN)м5)┤▓1 з а50,2:Бе 17303жИш(XO(PN),YO(PN)),1,03╢ТCC│1:Бж11103╦ЬXO(PN)│XO(PN)м103█жCC│0:Бж11104 ░Е PN│2 з 1210 :Д Е PN│5 з 1230 :Д Бе 12504H║Е л(XO(2)мPH(2),YO(2)м5)│1 ░ л(XO(2)м7,YO(2)л5)│1 з 11704T─Бе 12604С╬Е л(XO(5)м32,YO(5)л5)│1 ░ л(XO(5)м32,YO(5)м5)│1 з 11704Э╪Бе 12604╟тЕ л(XO(PN)мPH(PN),YO(PN)л5)│1 з 11704тьш(XO(PN),YO(PN)),3,0:Р5ЎЕ PN│2 з 1280 :Д Е PN│1 ▒ PN│8 з 1300 :Д Бе13205_Е л(XO(2)л5,YO(2)лPV(2))┤▓1 ▒ л(XO(2)м5,YO(2)л7)┤▓1 з а50,2:Бе17305k Бе 13305сЕ л(XO(PN)л5,YO(PN)лPV(PN))┤▓1 ▒ л(XO(PN)л35,YO(PN)лPV(PN))┤▓1 ▒ л(XO(PN)м35,YO(PN)лPV(PN))┤▓1 з а50,2:Бе 17305эБе 13306B(Е л(XO(PN)л5,YO(PN)лPV(PN))┤▓1 ▒ л(XO(PN)м5,YO(PN)лPV(PN))┤▓1 з а 50,2:Бе 17306[2ш(XO(PN),YO(PN)),1,06lБе 1880>#╔"T3O3L8GGGL2E-P8L8FFFL2D">Dч0,0:ъ(184,50)м(318,90),╜,BF>M&ч1,0>n0ю(23,10),"Great! You solved">О:ю(23,12),"it. Now, can you">оDю(23,14),"solve it in only">╟Nю(23,16),"26 moves?">эXч1,0:ю(23,19),"Play again (Y/N)?">°bAN$│ Т?lЕ AN$│"Y" ▒ AN$│"y" з П:Бе290?6vЕ AN$│"N" ▒ AN$│"n" з К?AАБе1890?lКц:ч6,0:ю(10,10),"Are you really ready"?ОФю(10,11),"to give up and see"?▒Юю(10,12),"the solution (Y/N)?"?╝иK2$│ Т?┌▓Е K2$│"Y" ▒ K2$│"y" з2050?°╝Е K2$│"N" ▒ K2$│"n" з2000@╞Бе 1960@%╨ю(10,15),"Play again (Y/N)?"@0┌AN$│ Т@SфЕ AN$│"Y" ▒ AN$│"y" з П:Бе 360@oюЕ AN$│"N" ▒ AN$│"n" з К@{°Бе 2010@вю(10,14),"Do you want slow action"@┼ю(10,15),"so you can copy the"@сю(10,16),"moves (Y/N)?"@ь K3$│ ТA*Е K3$│"N" ▒ K3$│"n" з 2120A*4Е K3$│"Y" ▒ K3$│"y" з 2130A6>Бе 2080AGHDL│100:Бе360AYRDL│1000:Бе360Ab\ч6,0Ayfю(26,5),"MOVE NO:"AВpч1,0AЪzю(25,8),"PIECE NO:"A┤Дю(24,10),"DIRECTION:"A╝ОM│0A╙ША I│1 е 26:Н PN,DIA▌вБж810A·мч1,0:ю(25,8),"PIECE NO:"B ╢ю(36,8),PNB#└ю(24,10),"DIRECTION:"BC╩И DI Бж 2350,2360,2370,2380BS╘АX│1 е DL:ЛBt▐ч0,0:ъ(270,35)м(310,90),╜,BFB|шЛ IBбЄч1,0:ю(23,19),"See again (Y/N)?"Bм№AN$│ ТB╬ Е AN$│"Y" ▒ AN$│"y" з П:Бе360Bэ Е AN$│"N" ▒ AN$│"n" з 2340B° Бе2300C" $ч0,0:ъ(183,150)м(319,180),╜,BF:Бе1880C< .ю(37,10),"L":Бж1120:РCV 8ю(37,10),"D":Бж1270:РCp Bю(37,10),"R":Бж1420:РCК Lю(37,10),"U":Бж1550:РC° VЖ 9,1,8,2,7,2,6,3,5,3,9,4,8,1,7,2,6,2,4,2,2,2,1,3,3,4,9,4,9,3,5,1,5,4,6,1,4,2,4,3,9,2,5,3,3,2,1,1,2,4,5,3 $ч0 '&.И Ё Бе 5000:И я Бе 5000:В FROM ISSUE #20&::ГJULY4&M:ГKATHY RUMPEL&d:ГROUTE 1 BOX 67-A&}:ГARCADIA, WI 54612&Мў:Т65497,0&╕у0,0:у1,63:у2,8:у3,36:у4,43:у5,60:у6,55&═Т &HFF9A,0:ф2:ц0'щ(50,30),20,1:ш(50,30),1,1:щ(65,30),20,0:ш(65,30),0,0'5 ю(5,22),"HAPPY 4TH":ю(21,22),"OF JULY!!!"'═ ї"BM120,164;C4S8D14RU14NLBUBRD13R2UR3UR5DR4UR3URU11L4DL4UL9DLBD6R2UR5U5LUBD2BRR3DR4UR3URBD3L4DL4UL3BD2R3DR4UR4BD2L4DL4UL5UL3BDBL2BD2R2UR3DR5DR4UR4"(Iш(126,167),2,4:ш(140,166),1,4:ш(140,161),3,4:ш(140,173),1,4:ш(140,169),3,4:ш(140,176),3,4:ш(140,181),1,4:ш(121,165),4,4(мї"BM126,162;C1S4RBR2RBR2RBR2RBD2LBL2LBL2LBL2LBD2RBR2RBR2RBR2RBD2LBL2LBL2LBL2LBD2RBR2RBR2RBR2R"(▄ А T│1е25:X│ Д(300):Y│ Д(150):щ(X,Y),2,6:Л T(ыА FC│1 е 5)Xї"BM140,160":А SH│150 е 35 йм15:щ(145,SH),3,3:ш(146,SHл1),3,3:АDE│1е15:ш(146,SHл1),0,0:щ(145,SH),3,0:ЛSH)ТX1│ Д(120)л75:Y1│ Д(70)л30:X2│ Д(120)л75:Y2│ Д(70)л30)╥Бж22:А I│2е20 й 4:АC│5е1йм1:щ(X1,Y1),I,C:щ(X2,Y2),I,C:Л C,I*А I│2е20 й 2:щ(X1,Y1),I,0:щ(X2,Y2),I,0:Л I:Л FC*kА SH│150 е 35 йм15:щ(145,SH),3,3:ш(146,SHл1),3,3:АDE│1е15:ш(146,SHл1),0,0:щ(145,SH),3,0:ЛSH:Бж22*пА I│50е10 йм5:щ(140,70),I,2,1,.75,.1:щ(140,70),I,3,1,.4,.75:Л I*╞Бж 24:Т65496,0:Ю:К*▐:ГFIRECRACKER SOUND+╔"O1T255L255V31CDGFEV25BGDCV10AFEBV15GEDBACV5EDBF":Р+$:ГHOORAY+╟╔"T7O2V15L4CL2CL4O1B-AL2AL4G#AL1AL2AL4G#AL2AL4G#AL2O2CO1L3AO2L8CO1L1B-L2GGGL4F#GL2GL4F#GL1B-L2B-L4AGAO2L2.CDL4DO1L1GL2GO2CCL4O1B-AL2AL4G#AL1AL2AL4G#AL2AL4G#A",╔"B-AL3GL8EL1GL2FFFL4EFL2A-L4GFL1.O2FO1L4FGAO2CO1FGAO2CO1CDAL1GL2FL4P32F":Р,&ИТ &HFFD8,0╔"T7O2V15L4CL2CL4O1B-AL2AL4G#AL1AL2AL4G#AL2AL4G#AL2O2CO1L3AO2L8CO1L1B-L2GGGL4F#GL2GL4F#GL1B-L2B-L4AGAO2L2.CDL4DO1L1GL2GO2CCL4O1B-AL2AL4G#AL1AL2AL4G#AL2AL4G#A",╔"B-AL3GL8EL1GL2FFFL4EFL2A-L4GFL1.O2FO1L4FGAO2CO1FG ▓&В FROM ISSUE #20&%:ГGILLIGAN&8:ГKATHY RUMPEL&O:ГROUTE 1 BOX 67-A&h:ГARCADIA, WI 54612&гў:у1,63:у2,27:у3,55:у4,25:у5,0:у6,32:у7,17:у8,53:у9,37&╞ф2:ч1,2:ц:ъ(0,100)м(350,100),╜'4ї"BM130,150;U8RU3RU8RU8LNU3LD2LDLDLD2LD10LULULULU2LU11RURURURURURURURURUR2DRUR3DRD3LDL3ULU3LBD3DLDL2ULU2"'╔ї"BL7BD9LD2LD4LULU2LU4RU4RU2RU2RURUR2UR2UR4ND2URUR4DRD2BU3BLURURUR3UR4DRDR2DRDRDRD5LULUL2UNL8L2DR2DRDRDRD2RD2RD6LD2LDLU5LULUL2UL2ULULULULUBL2D3"(@ ї"RD3RD13LD13L6BU5LUL5DLDL13DL2DL3DLD3RDRD3RDRDR9DRDR6UR3UR10DRDR6URURUR5DRDR9URURU4LULULUL2UL2UL2UL8DLDL5ULUL2UL"(Ъ ї"BM210,160;L2DLD2RDRDR3DR8U2RU2RDR2DRULU2LDLU3LULDRDLD2LDLDL2ULULULUL3U4L2DBR2U2R2D")Rї"BM75,30;D2L2D4L10D2R2D2R2D2R2D2R8D2R4U2R2U2R2D2R6D2R4U2R4D2R2U2R8U2L8U4L4U2L8U2L4U2L4U2L6":ї"BM210,35;D2L16D2R10D2R10D2L2D2L2D2R8D2R6D2L4D2R4D2R8U2R10U4L8U2R6U4L2U2L12U4L6U2L10")┌ї"BM35,130;L8D4F2R14E2U2H2L8U2R8U6H6L2BU4D16":щ(153,100),80,,.5,.5,1:ч5,2:ї"BM45,45;U2E4R4NH2U2E4R2":ї"BM260,50;R2E4R6U2D4U2E2R6E2"*e ш(132,148),6,1:ш(132,155),8,1:ш(126,137),7,1:ш(123,120),7,1:ш(140,120),7,1:ш(140,112),7,1:ш(132,112),8,1:ш(132,117),8,1:ш(135,117),8,1*╪ш(35,132),6,1:ш(38,127),9,1:ш(150,90),3,1:ш(220,42),1,1:ш(80,32),1,1:ш(5,170),4,1:ю(11,11),"GILLIGAN'S ISLAND"+c╔"T5O2ADAAL8AAL4GECP8L8CL4DL8AAL4AAGP4P4GDAAAL8GO3L4CL4.CO2L4GFFECDP4DDL8AAL4AAL8GL4EL4.CP8L8CDL4.AL4AAL2.GL4GL8DL4AL4.AL4AGO3L8CL4.C"+╟╔"T5O2L8GGL2A#L4GGL2AP4L4DL2FL4ECL2.DL4E-EBBBL8AL4F#L4.DP8L8DL4EBBBL2AP4L4AEL8BBBBBBAL4O3DL4.D"+ ╔"T5O2L4AL8GL4.GL4F#DL2.EL4EGGF#DL2EP4L4EFO3CCL8CC",▒╔"T5O2L4A#GE-E-FO3CCCL2.O2A#L4GFO3CL2...CP32L4O2G#A#L8E-L1.E-P32L4E-L4.FL8O3CL1CP32O2L4A#G#L2.A#P2P4L2GL4..FO3P32L4CL1CP4O2L3A#O3P32L4E-L4.E-L4E-L2FFV31L4GGL2E-L1..FL4V15":ЮL8BBBBBBAL4O3DL4.D"+ ╔"T5O2L4AL8GL4.GL4F#DL2.EL4EGGF#DL2EP4L4EFO3CCL8CC" щ&В FROM ISSUE #20&С :Г"PAYMENT2"--PRINTS TABLE SHOWING LOAN PAYMENTS FOR DIFFERENT INTEREST RATES, PRINCIPAL AMOUNTS, OR PAYMENT SCHEDULES&мт40:°3,2:Ю:Х500:Т150,1&═М PR(20),RT(20),N(20),PY(20)&ЁЗ"LOAN PAYMENT PROGRAM:" Л(10)'(З"TO SHOW DIFFERENT: PRESS:"'62Зд2);"INTEREST RATES";д8);"1"'V<Зд2)"PRINCIPAL AMTS."д7)"2"'tFЗд2)"PAYOUT TIMES"д10)"3"'ХPX$│ Т:Е Й(X$)┤1▒ Й(X$)▓3з80'иZЕ X$│"1"зБж500'└dЙ"RATE (APR)";RT(1)'уnЕ X$│"1"з Й"RATE INCREMENT";RI'ўxЕ X$│"2"з Бж500(ВЙ"PRINCIPAL";PR(1)(.МЕX$│"2"з Й"INCREMENT, $";PI(BЦЕ X$│"3"з Бж500(^аЙ"NO. OF PAYMENTS";N(1)(|кЕX$│"3"з Й "INCREMENT";NI(УпТ65497,0:ГHI-SPEED(▒┤R1│RT(1):P1│PR(1):N1│N(1)(╛╛А K│1е15(┘╚Бж400:ГCOMPUTE PAYMENT)▄RT(Kл1)│RT(K)лRI:PR(Kл1)│PR(K)лPI:N(Kл1)│N(K)лNI)цЛK)0ЁТ65496,0:ГNORMAL SPEED)o·Ю:З"FOR PRINTOUT, PRESS'P'"; Л(13)"FOR DISPLAY, PRESS 'D'")ПD$│ Т:Е D$┤▓"P"░D$┤▓"D"з260)жЕD$│"P"зD│м2:Д D│0)╟Ю:З#D,д12)"PAYMENT SCHEDULE")╓Е D┤▓0з287)яF1│2:F2│2:F3│2:Бе290*F1│13:F2│20:F3│30:З#D, Л(15);*O"З#D,"PRINCIPAL"дF1)"RATE"дF2)"# PAYMTS."дF3)"PAYMT. AMT."*i'Е D│м2 з З #м2, Л(14)*Б,Е D│0з З б(40,"-")*Ч.X1│10:X2│20:X3│30*н/T1│10:T2│20:T3│30*╫1F1$│"$###,###":F2$│"###.##":F3$│"###"*у6АL│1е15+ @ЕPR(Lм1)┤▓PR(L)з З#D,═ F1$;PR(L);+EБж450+8JЕRT(Lм1)┤▓RT(L)з З#D,═F2$;RT(L);+BOБж460+fTЕ N(Lм1)┤▓N(L)з З#D,═ F3$;N(L);+pYБж470+Й^З#D,═"####.##";PY(L)+СhЛ L+╧mЗ:З"TO CONTINUE, PRESS ANY KEY;" Л(13)" TO QUIT+ёrв44539:Бе20:ГWAIT FOR KEYPOKE,Р:ГCOMPUTE PAYMENTS,ЪMR│(RT(K)о12)о100,6дDV│1м((1лMR)пмN(K)),NоPY(K)│PR(K)н(MRоDV),T╕Р,{┬Е D│0 з ё X1,Lл3:Р :Д З#D,дT1);:Р,б╠Е D│0 з ё X2,Lл3:Р :Д З#D,дT2);:Р,╟╓Е D│0 з ё X3,Lл3:Р :Д З#D,дT3);:Р,╘ЇЕX$│""зР,ш■З"STARTING ";:РEYPOKE,Р:ГCOMPUTE