IMD 1.16: 29/05/2007 18:46:55 FOGCPM.075 --FOGCPM075AUTOST COMALPHA BASALPHA DOCHICLINT DAT LET- DAT LET0 DAT LET1 DATLET2 DATLET3 DATLET4 DAT LET5 DAT LET6 DATLET7 DATLET8 DATLET9 DATLET-EQ DAT LETA DAT!"#LETB DAT$%&LETC DAT'(LETD DAT)*LETE DAT+,-LETF DAT./LETG DAT012LETH DAT345LETI DAT 67LETJ DAT89:LETK DAT;<=LETL DAT>?LETM DAT@ABLETN DATCDELETO DATFGHLETP DATIJKLETQ DATLMNLETR DATOPQLETS DATRSTLETT DAT UVLETU DATWXLETV DATYZ[LETW DAT\]^LETX DAT_`aLETY DATbcLETZ DATdefLET-LS DATghiTESTBAS BAS:jklmnopqTESTBAS COMrsTESTBAS MAC:tuvwxyz{TESTBAS REL|}~TESTMAC COMTESTMAC MAC:TESTMAC RELWI3GRAPHBASMWI3GRAPHDOC6CALLPROGBASDISK DOC WI3BAS OVR WI3HLP OVR WI3Z80 OVR-06-00 86 -CPM075 DOC(This is the disk name. *.|g"gA x}aaaai*g.V*g.>w*g.|w*gw# xV  MBASIC ALPHAg$G$ Loading MBASIC FOR CLINT... $YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaKWWWWWWWWWWWWWWWWWWWWIaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYIaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaKWWWWWWZaaaaaaaaaaVWWWWWWIaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWWWWWWWWaaaaaaaaaaWWWWWWWWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWWWWWWWWaaaaaaaaaaWWWWWWWWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWWWWWWWWaaaaaaaaaaWWWWWWWWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaVWWWWWWIaaaaaaaaaaKWWWWWWZaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYZaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaVWWWWWWWWWWWWWWWWWWWWZaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa$a: CLINT'S ALPHABET PROGRAMa:a: CREATED APRIL, 1985b: JOHN DAGGAN"b: STATEN ISLAND, NY7b (): ()Rb "I",#,"HICLINT.DAT"db () Fsb( #,AF,FAb2 AF,FAb< bF bI$b I$"" b (I$) b (I$)+ b (I$)+ c (I$)- c (I$)= 0c (I$)0 Fc (I$)9 Pc gc (I$) A c (I$) [  c c (I$)a c  (I$)z cI$((I$) )cFILE$"LET"I$".DAT"c 1c  d1 "I",,FILE$.d3 X 2:: T : T: XCd4 (): ()Ud6 () Jdd; #,AF,FApd@ AF,FAzdE 6dJ dOd (): ():dXT: X ALPHA.BAS by John Daggan 657 Van Duzer St. Staten Island, NY 10304 "ALPHA.BAS" is a simple program I wrote for my three-year-old son. The purpose of the program is to give a very young person an introduction to computers on a very basic level, i.e., push a key on the keyboard and something happens on the screen. The graphics were created using the program "GRAPHIX.BAS", written by Ed McCall and printed in the February 1985 FOGHORN (pg. 50.). This program allows you to draw pictures on the Osborne I and save them to disk files. "ALPHA.BAS" merely waits for keyboard input and then displays the appropriate picture on the screen. For example, when the child pushes an "A", a picture of an upper and a lower cas appears Whe h pushe anothe key sa "2" the A's disappear and a 2 appears. The "AUTOST.COM" file has been modified to run "ALPHA" when booted. 61729 10 61730 22 61731 8 61830 22 61831 22 61837 22 61838 22 61856 10 61857 0 61858 0 61859 0 61860 8 61958 22 61959 22 61965 22 61966 22 61971 13 61982 27 61983 27 61984 27 61985 27 61986 27 61987 27 61988 27 61989 27 61990 27 62086 22 62087 22 62093 22 62094 22 62110 2 62118 14 62214 22 62215 22 62216 22 62217 22 62218 22 62219 22 62220 22 62221 22 62222 22 62227 22 62237 0 62240 13 62244 13 62247 0 62342 22 62343 22 62349 22 62350 22 62355 22 62365  0 62370 13 62375 0 62470 22 62471 22 62477 22 62478 22 62483 22 62494 14 62502 2 62598 22 62599 22 62605 22 62606 22 62611 22 62623 14 62624 20 62625 27 62626 27 62627 27 62628 18 62629 2 62637 13 62638 13 62639 13 62752 14 62756 2 62763 13 62765 13 62766 13 62767 13 62877 2 62878 27 62879 27 62880 27 62881 27 62882 27 62883 27 62884 27 62885 27 62886 27 62887 27 62888 14 62892 13 62893 27 62894 27 62895 13 63004 2 63017 14 63021 2 63022 4 63143 2 63144 14 63146 14 63148 2 63150 2 63270 2 63273 14 63275 2 63277 2 63402 14 63404 2  2 63270 2 63273 14 63275 2 22 62611 22 62623 14 62624 20 62625 27 62626 27 62627 27 62628 18 62629 2 62637 13 62638 13 62639 13 62752 14 62756 2 62763 13 62765 13 62766 13 62767 13 62877 2 62878 27 62879 27 62880 27 62881 27 62882 27 62883 27 62884 27 62885 27 62886 27 62887 27 62888 14 62892 13 62893 27 62894 27 62895 13 63004 2 63017 14 63021 2 63022 4 63143 2 63144 62103 10 62104 8 62230 10 62231 22 62232 22 62233 8 62357 10 62358 22 62359 25 62360 21 62361 22 62362 8 62484 10 62485 22 62486 25 62489 21 62490 22 62491 8 62611 10 62612 22 62613 25 62618 21 62619 22 62620 8 62738 10 62739 22 62740 25 62747 21 62748 22 62749 8 62865 10 62866 22 62867 25 62876 21 62877 22 62878 8 62992 10 62993 22 62994 25 63005 21 63006 22 63007 8 63119 10 63120 22 63121 25 63134 21 63135 22 63136 8 63246 10 63247 22 63248 25 63263  21 63264 22 63265 8 63373 10 63374 22 63375 25 63392 21 63393 22 63394 8 63500 10 63501 22 63502 22 63503 22 63504 22 63505 22 63506 22 63507 22 63508 22 63509 22 63510 22 63511 22 63512 22 63513 22 63514 22 63515 22 63516 22 63517 22 63518 22 63519 22 63520 22 63521 22 63522 22 63523 8  22 63518 22 63519 22 63520 22 63521 22 63522 22 63523 25 63005 21 63006 22 63007 8 63119 10 63120 22 63121 25 63134 21 63135 22 63136 8 63246 10 63247 22 63248 25 63263  62231 10 62232 22 62233 22 62234 22 62235 22 62236 22 62237 22 62238 8 62358 10 62359 22 62360 25 62365 21 62366 22 62367 8 62485 10 62486 22 62487 25 62494 21 62495 22 62496 8 62612 10 62613 22 62614 25 62623 21 62624 22 62625 8 62739 10 62740 22 62741 25 62752 21 62753 22 62754 8 62867 22 62868 22 62881 22 62882 22 62995 22 62996 22 63009 22 63010 22 63123 22 63124 22 63137 22 63138 22 63251 22 63252 22 63265 22 63266 22 63379 21 63380 22 63381 8 63392  10 63393 22 63394 25 63508 21 63509 22 63510 8 63519 10 63520 22 63521 25 63637 21 63638 22 63639 8 63646 10 63647 22 63648 25 63766 21 63767 22 63768 8 63773 10 63774 22 63775 25 63895 21 63896 22 63897 22 63898 22 63899 22 63900 22 63901 22 63902 25  22 63897 22 63898 22 63899 22 63907 22 62868 22 62881 22 62882 22 62995 22 62996 22 63009 22 63010 22 63123 22 63124 22 63137 22 63138 22 63251 22 63252 22 63265 22 63266 22 63379 21 63380 22 63381 8 63392  61846 10 61847 22 61848 22 61973 10 61974 22 61975 22 61976 22 62103 22 62104 22 62231 22 62232 22 62359 22 62360 22 62487 22 62488 22 62615 22 62616 22 62743 22 62744 22 62871 22 62872 22 62999 22 63000 22 63127 22 63128 22 63255 22 63256 22 63383 22 63384 22 63511 22 63512 22 63639 22 63640 22 63767 22 63768 22 63895 22 63896 22 64022 22 64023 22 64024 22 64025 22  22 63895 22 63896 22 64022 22 64023  61714 10 61715 22 61716 22 61717 22 61718 22 61719 22 61720 22 61721 22 61722 22 61723 22 61724 8 61841 10 61842 22 61843 25 61851 21 61852 22 61853 8 61968 10 61969 22 61970 25 61980 21 61981 22 61982 8 62095 10 62096 22 62097 25 62109 21 62110 22 62111 8 62238 22 62239 22 62366 22 62367 22 62493 10 62494 22 62495 25 62620 10 62621 22 62622 25 62747 10 62748 22 62749 25 62867 10 62868 22 62869 22 62870 22 62871 22 62872 22 62873 22 62874 22 62875 22 62876  25 62994 10 62995 22 62996 25 63121 10 63122 22 63123 25 63248 10 63249 22 63250 25 63375 10 63376 22 63377 25 63503 22 63504 22 63631 22 63632 22 63759 22 63760 22 63887 22 63888 22 63889 22 63890 22 63891 22 63892 22 63893 22 63894 22 63895 22 63896 22 63897 22 63898 22 63899 22 63900 22 63901 22  22 63896 22 63897 22 63898 22 63899 22 63900 25 62747 10 62748 22 62749 25 62867 10 62868 22 62869 22 62870 22 62871 22 62872 22 62873 22 62874 22 62875 22 62876  61716 10 61717 22 61718 22 61719 22 61720 22 61721 22 61722 22 61723 22 61724 22 61725 22 61726 8 61843 10 61844 22 61845 25 61853 21 61854 22 61855 8 61970 10 61971 22 61972 25 61982 21 61983 22 61984 8 62097 10 62098 22 62099 25 62111 21 62112 22 62113 8 62224 10 62225 22 62226 25 62240 22 62241 22 62368 22 62369 22 62496 22 62497 22 62624 22 62625 22 62751 10 62752 22 62753 25 62878 10 62879 22 62880 25 62998 22 62999 22 63000 22 63001 22 63002 22 63003  22 63004 22 63005 22 63006 22 63007 22 63134 21 63135 22 63136 8 63263 21 63264 22 63265 8 63392 22 63393 22 63520 22 63521 22 63648 22 63649 22 63760 21 63761 22 63762 8 63776 22 63777 22 63889 21 63890 22 63891 8 63903 10 63904 22 63905 25 64018 21 64019 22 64020 8 64030 10 64031 22 64032 25 64147 21 64148 22 64149 8 64157 10 64158 22 64159 25 64276 21 64277 22 64278 22 64279 22 64280 22 64281 22 64282 22 64283 22 64284 22 64285 22 64286 25  22 64281  61724 10 61725 22 61726 22 61727 22 61851 10 61852 22 61853 25 61854 22 61855 22 61978 10 61979 22 61980 25 61982 22 61983 22 62105 10 62106 22 62107 25 62110 22 62111 22 62232 10 62233 22 62234 25 62238 22 62239 22 62359 10 62360 22 62361 25 62366 22 62367 22 62486 10 62487 22 62488 25 62494 22 62495 22 62613 10 62614 22 62615 25 62622 22 62623 22 62740 10 62741 22 62742 25 62750 22 62751 22 62867 10 62868 22 62869 25 62878 22 62879 22 62995 22 62996 22 62997 22 62998 22 62999 22 63000 22 63001 22 63002 22 63003 22 63004 22 63005 22 63006 22 63007 22 63134 22 63135 22 63262 22 63263 22 63390 22 63391 22 63518 22 63519 22 63646 22 63647 22 63774 22 63775 22 63902 22 63903 22 64030 22 64031 22  22 63774 22 63775 22 63902 22 63903 22 64030 2 62494 22 62495 22 62613 10 62614 22 62615 25 62622 22 62623 22 62740 10 62741 22 62742 25 62750 22 62751 22 62867 10 62868 22 62869 25 62878 22 62879 22 62995 22 62996 22 629 61842 22 61843 22 61844 22 61845 22 61846 22 61847 22 61848 22 61849 22 61850 22 61851 22 61852 22 61853 22 61854 22 61855 22 61970 22 61971 22 62098 22 62099 22 62226 22 62227 22 62354 22 62355 22 62482 22 62483 22 62610 22 62611 22 62738 22 62739 22 62740 22 62741 22 62742 22 62743 22 62744 22 62745 22 62746 22 62747 22 62748 22 62749 8 62876 21 62877 22 62878 8 63005 21 63006 22 63007 8 63134 22 63135 22 63262 22 63263 22 63390 22 63391 22 63518 22 63519  22 63646 22 63647 22 63773 10 63774 22 63775 25 63900 10 63901 22 63902 25 64019 22 64020 22 64021 22 64022 22 64023 22 64024 22 64025 22 64026 22 64027 22 64028 22 64029 25  22 64024 22 64025 22 64026 22 64027 22 64028 22 64029 22 62738 22 62739 22 62740 22 62741 22 62742 22 62743 22 62744 22 62745 22 62746 22 62747 22 62748 22 62749 8 62876 21 62877 22 62878 8 63005 21 63006 22 63007 8 63134 22 63135 22 63262 22 63263 22 63390 22 63391 22 63518 22 63519  61848 10 61849 22 61850 22 61851 22 61852 22 61853 22 61854 22 61855 22 61856 22 61857 8 61975 10 61976 22 61977 25 61984 21 61985 22 61986 8 62102 10 62103 22 62104 25 62113 21 62114 22 62115 8 62230 22 62231 22 62242 21 62243 22 62358 22 62359 22 62486 22 62487 22 62614 22 62615 22 62742 22 62743 22 62745 10 62746 22 62747 22 62748 22 62749 22 62750 22 62751 22 62752 22 62753 8 62870 22 62871 22 62872 10 62873 22 62874 25 62880 21 62881 22 62882 8 62998  22 62999 22 63000 22 63001 25 63009 21 63010 22 63011 8 63126 22 63127 22 63128 25 63138 22 63139 22 63254 22 63255 22 63265 10 63266 22 63267 25 63382 21 63383 22 63384 8 63392 10 63393 22 63394 25 63511 21 63512 22 63513 8 63519 10 63520 22 63521 25 63640 21 63641 22 63642 22 63643 22 63644 22 63645 22 63646 22 63647 22 63648 25  22 63643 22 62750 22 62751 22 62752 22 62753 8 62870 22 62871 22 62872 10 62873 22 62874 25 62880 21 62881 22 62882 8 62998  61967 22 61968 22 61969 22 61970 22 61971 22 61972 22 61973 22 61974 22 61975 22 61976 22 61977 22 61978 22 61979 22 61980 22 61981 25 62106 10 62107 22 62108 25 62233 10 62234 22 62235 25 62360 10 62361 22 62362 25 62487 10 62488 22 62489 25 62614 10 62615 22 62616 25 62741 10 62742 22 62743 25 62868 10 62869 22 62870 25 62995 10 62996 22 62997 25 63122 10 63123 22 63124 25 63249 10 63250 22 63251 25 63376 10 63377 22 63378 25  25 63249 10 63250 22 63251 2 61846 10 61847 22 61848 22 61849 22 61850 22 61851 22 61852 8 61973 10 61974 22 61975 25 61979 21 61980 22 61981 8 62100 10 62101 22 62102 25 62108 21 62109 22 62110 8 62227 10 62228 22 62229 25 62237 21 62238 22 62239 8 62355 22 62356 22 62366 22 62367 22 62483 22 62484 22 62494 22 62495 22 62611 22 62612 22 62622 22 62623 22 62739 21 62740 22 62741 8 62749 10 62750 22 62751 25 62868 21 62869 22 62870 8 62876 10 62877 22 62878 25 62997 21 62998 22 62999  8 63003 10 63004 22 63005 25 63126 22 63127 22 63128 22 63129 22 63130 22 63131 22 63132 22 63253 10 63254 22 63255 25 63259 21 63260 22 63261 8 63380 10 63381 22 63382 25 63388 21 63389 22 63390 8 63507 10 63508 22 63509 25 63517 21 63518 22 63519 8 63635 22 63636 22 63646 22 63647 22 63763 22 63764 22 63774 22 63775 22 63891 22 63892 22 63902 22 63903 22 64019 21 64020 22 64021 8 64029 10 64030 22 64031 25 64148 21 64149 22 64150 8 64156 10 64157 22  64158 25 64277 21 64278 22 64279 8 64283 10 64284 22 64285 25 64406 21 64407 22 64408 22 64409 22 64410 22 64411 22 64412 25  21 64407 22 64408 22 64409 22 64410 22 64411 225 63388 21 63389 22 63390 8 63507 10 63508 22 63509 25 63517 21 63518 22 63519 8 63635 22 63636 22 63646 22 63647 22 63763 22 63764 22 63774 22 63775 22 63891 22 63892 22 63902 22 63903 22 64019 21 64020 22 64021 8 64029 10 64030 22 64031 25 64148 21 64149 22 64150 8 64156 10 64157 22  62100 10 62101 22 62102 22 62103 22 62104 22 62105 22 62106 22 62107 8 62227 10 62228 22 62229 25 62234 21 62235 22 62236 8 62354 10 62355 22 62356 25 62363 21 62364 22 62365 8 62481 10 62482 22 62483 25 62492 21 62493 22 62494 8 62609 22 62610 22 62621 22 62622 22 62737 22 62738 22 62749 22 62750 22 62865 22 62866 22 62877 22 62878 22 62993 22 62994 22 63005 22 63006 22 63121 21 63122 22 63123 8 63132 10 63133 22 63134 22 63250 21 63251 22 63252 8 63259   10 63260 22 63261 22 63262 22 63379 21 63380 22 63381 8 63386 10 63387 22 63388 25 63389 22 63390 22 63508 21 63509 22 63510 22 63511 22 63512 22 63513 22 63514 22 63515 25 63517 22 63518 22 63645 22 63646 22 63773 22 63774 22 63901 22 63902 22 64029 22 64030 22 64157 22 64158 22 64285 22 64286 22 64413 22 64414 22  22 64157 22 64158 22 64285 22 62994 22 63005 22 63006 22 63121 21 63122 22 63123 8 63132 10 63133 22 63134 22 63250 21 63251 22 63252 8 63259  62224 22 62225 22 62226 22 62227 22 62228 22 62229 22 62230 22 62231 22 62232 22 62233 22 62234 22 62235 22 62236 22 62237 22 62238 22 62239 22 62240 22 62241 22 62242 22 62243 22 62244 22 62245 22 62246 22 62352 22 62353 22 62373 22 62374 22 62480 22 62481 22 62501 22 62502 22 62608 22 62609 22 62629 22 62630 22 62736 22 62737 22 62757 22 62758 22 62864 22 62865 22 62885 22 62886 22 62992 22 62993 22 63013 22 63014 22 63120 22 63121 22 63141 22 63142 22 63248 22 63249 22 63269 22 63270 22 63376 22 63377 22 63397 22 63398 22 63504 22 63505 22 63525 22 63526 22 63632 22 63633 22 63653 22 63654 22 63760 22 63761 22 63781 22 63782 22 63888 22 63889 22 63909 22 63910 22 64016 22 64017 22 64037 22 64038 22 64144 22 64145 22 64146 22 64147 22 64148 22 64149 22 64150 22 64151 22 64152 22 64153 22 64154 22 64155 22 64156 22 64157 22 64158 22 64159 22 64160 22 64161 22 64162 22 64163 22 64164 22 64165 22 64166 22  22  61841 10 61842 8 61968 10 61969 22 61970 22 61971 8 62095 10 62096 22 62097 25 62098 21 62099 22 62100 8 62222 10 62223 22 62224 25 62227 21 62228 22 62229 8 62349 10 62350 22 62351 25 62356 21 62357 22 62358 8 62476 10 62477 22 62478 25 62485 21 62486 22 62487 8 62603 10 62604 22 62605 25 62614 21 62615 22 62616 8 62730 10 62731 22 62732 25 62743 21 62744 22 62745 8 62857 10 62858 22 62859 22 62860 22 62861 22 62862 22 62863 22 62864 22 62865 22 62866  22 62867 22 62868 22 62869 22 62870 22 62871 22 62872 22 62873 22 62874 8 62984 10 62985 22 62986 25 63001 21 63002 22 63003 8 63111 10 63112 22 63113 25 63130 21 63131 22 63132 8 63150 10 63151 22 63152 22 63153 8 63154 22 63238 10 63239 22 63240 25 63259 21 63260 22 63261 8 63277 10 63278 25 63282 22 63365 10 63366 22 63367 25 63388 21 63389 22 63390 8 63405 22 63410 22 63492 10 63493 22 63494 25 63517 21 63518 22 63519 8 63533 21 63534 8 63538 22 636 19 10 63620 22 63621 25 63646 21 63647 22 63648 8 63662 21 63663 22 63664 22 63665 25 63666 22  22 63648 8 63662 22 63003 8 63111 10 63112 22 63113 25 63130 21 63131 22 63132 8 63150 10 63151 22 63152 22 63153 8 63154 22 63238 10 63239 22 63240 25 63259 21 63260 22 63261 8 63277 10 63278 25 63282 22 63365 10 63366 22 63367 25 63388 21 63389 22 63390 8 63405 22 63410 22 63492 10 63493 22 63494 25 63517 21 63518 22 63519 8 63533 21 63534 8 63538 22 636 61701 22 61702 22 61703 22 61704 22 61705 22 61706 22 61707 22 61708 22 61709 22 61710 22 61711 22 61712 22 61713 8 61829 22 61841 21 61842 8 61957 22 61970 21 61971 8 62085 22 62099 22 62213 22 62227 22 62341 22 62355 22 62469 22 62482 10 62483 25 62597 22 62609 10 62610 25 62725 22 62736 10 62737 25 62745 22 62853 22 62854 22 62855 22 62856 22 62857 22 62858 22 62859 22 62860 22 62861 22 62862 22 62863 22 62864 22 62873 22 62981 22 62992 21 62993 8 63001  22 63109 22 63121 21 63122 8 63129 22 63237 22 63250 21 63251 8 63257 22 63365 22 63379 22 63385 22 63493 22 63507 22 63513 22 63621 22 63635 22 63641 22 63642 22 63643 22 63644 22 63645 22 63646 22 63647 22 63648 22 63649 22 63650 8 63749 22 63763 22 63769 22 63778 22 63877 22 63890 10 63891 25 63897 22 63906 22 64005 22 64017 10 64018 25 64025 22 64034 22 64133 22 64144 10 64145 25 64153 22 64162 22 64261 22 64262 22 64263 22 64264 22 64265 22 64266 22 64267 22 64268 22 64269 22 64270 22 64271 22 64272 25 64281 22 64282 22 64283 22 64284 22 64285 22 64286 22 64287 22 64288 22 64289 22 64290 25  22 64285 22 64286 22 64287 22 63644 22 63645 22 63646 22 63647 22 63648 22 63649 22 63650 8 63749 22 63763 22 63769 22 63778 22 63877 22 63890 10 63891 25 63897 22 63906 22 64005 22 64017 10 64018 25 64025 22 64034 22 64133 22 64144 10 64145 25 64153 22 64162 22 64261 22 64262 22 64263 22 64264 22 64265 22 64266  61829 10 61830 22 61831 22 61832 22 61833 22 61834 22 61835 22 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61843 22 61844 22 61845 22 61846 22 61956 10 61957 25 62083 10 62084 25 62210 10 62211 25 62337 10 62338 25 62464 10 62465 25 62592 22 62720 22 62848 22 62976 22 63104 22 63232 22 63360 22 63392 10 63393 22 63394 22 63395 22 63396 22 63397 22 63398 22 63399 22 63400 22 63488 22 63519 10 63520 25 63616 21 63617 8 63646 10 63647 25 6374 5 21 63746 8 63773 10 63774 25 63874 21 63875 8 63901 21 63902 8 64003 21 64004 8 64030 21 64031 8 64132 21 64133 8 64159 21 64160 8 64261 21 64262 22 64263 22 64264 22 64265 22 64266 22 64267 22 64268 22 64269 22 64270 22 64271 22 64272 22 64273 22 64274 22 64275 22 64276 22 64277 22 64288 21 64289 22 64290 22 64291 22 64292 22 64293 22 64294 22 64295 22 64296 22 64297 22  22 64292 22 64293 22 2 63519 10 63520 25 63616 21 63617 8 63646 10 63647 25 6374 61957 22 61958 22 61959 22 61960 22 61961 22 61962 22 61963 22 61964 22 61965 22 61966 8 62085 22 62094 21 62095 8 62213 22 62223 21 62224 8 62341 22 62352 21 62353 8 62469 22 62481 21 62482 8 62597 22 62610 21 62611 8 62637 22 62725 22 62739 21 62740 8 62765 22 62853 22 62868 21 62869 8 62893 22 62981 22 62997 22 63021 22 63109 22 63125 22 63149 22 63237 22 63252 10 63253 25 63277 22 63365 22 63379 10 63380 25 63398 10 63399 22 63400 22 63401 22 63402  22 63403 22 63404 22 63405 22 63493 22 63506 10 63507 25 63525 10 63526 25 63533 22 63621 22 63633 10 63634 25 63652 10 63653 25 63661 22 63749 22 63760 10 63761 25 63780 22 63789 22 63877 22 63887 10 63888 25 63908 21 63909 8 63917 22 64005 22 64014 10 64015 25 64037 21 64038 8 64045 22 64133 22 64134 22 64135 22 64136 22 64137 22 64138 22 64139 22 64140 22 64141 22 64142 25 64166 21 64167 22 64168 22 64169 22 64170 22 64171 22 64172 22 64173 22  22 64168  61827 22 61828 22 61829 22 61830 22 61831 22 61832 22 61833 22 61834 22 61835 22 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61843 22 61844 22 61955 22 62083 22 62211 22 62339 22 62467 22 62595 22 62723 22 62851 22 62979 22 62980 22 62981 22 62982 22 62983 22 62984 22 62985 22 62986 22 62987 22 62988 22 62989 22 62990 22 62991 22 62992 22 62993 22 62994 22 62995 22 63107 22 63235 22 63267 10 63268 22 63269 22 63270 22 63271 22 63272 22 63273 22 63274 8 63363 22 63394 10 63395 25 63402 21 63403 8 63491 22 63521 10 63522 25 63530 10 63531 25 63619 22 63649 22 63657 10 63658 25 63747 22 63777 22 63778 22 63779 22 63780 22 63781 22 63782 22 63783 22 63784 22 63785 25 63875 22 63905 22 64003 22 64033 21 64034 8 64131 22 64132 22 64133 22 64134 22 64135 22 64136 22 64137 22 64138 22 64139 22 64140 22 64141 22 64142 22 64143 22 64144 22 64145 22 64146 22 64147 22 64148 22 64162 21 64163 8 64291   21 64292 22 64293 22 64294 22 64295 22 64296 22 64297 22 64298 22  22 64293 22 64294 22 64295 22 64296 22 64297 22 3649 22 63657 10 63658 25 63747 22 63777 22 63778 22 63779 22 63780 22 63781 22 63782 22 63783 22 63784 22 63785 25 63875 22 63905 22 64003 22 64033 21 64034 8 64131 22 64132 22 64133 22 64134 22 64135 22 64136 22 64137 22 64138 22 64139 22 64140 22 64141 22 64142 22 64143 22 64144 22 64145 22 64146 22 64147 22 64148 22 64162 21 64163 8 64291  61827 22 61828 22 61829 22 61830 22 61831 22 61832 22 61833 22 61834 22 61835 22 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61843 22 61844 22 61955 22 61956 22 62083 22 62084 22 62211 22 62212 22 62339 22 62340 22 62467 22 62468 22 62595 22 62596 22 62723 22 62724 22 62851 22 62852 22 62853 22 62854 22 62855 22 62856 22 62857 22 62858 22 62859 22 62860 22 62861 22 62862 22 62863 22 62879 10 62880 22 62881 22 62882 22 62883 22 62884 8 62979 22 62980 22 63006 10 63007 25 63012 21 63013 8 63107 22 63108 22 63133 10 63134 25 63141 21 63142 8 63235 22 63236 22 63261 22 63270 22 63363 22 63364 22 63389 22 63491 22 63492 22 63517 22 63619 22 63620 22 63645 22 63646 27 63647 27 63648 27 63649 27 63650 27 63651 27 63652 27 63747 22 63748 22 63773 22 63875 22 63876 22 63901 22 64003 22 64004 22 64029 22 64131 22 64132 22 64157 22 64259 22 64260 22 64285 22  22 64131 22 64132 22 64157 22 64259 22 64 61704 10 61705 22 61706 22 61707 22 61708 22 61709 22 61710 22 61711 22 61712 22 61713 22 61714 22 61715 8 61831 10 61832 25 61843 21 61844 8 61958 10 61959 25 61972 21 61973 8 62085 10 62086 25 62101 21 62102 8 62212 10 62213 25 62230 22 62340 22 62358 22 62468 22 62486 22 62596 22 62724 22 62852 22 62980 22 63017 10 63018 22 63019 22 63020 22 63021 22 63022 22 63023 22 63108 22 63144 10 63145 25 63151 22 63236 22 63272 22 63279 22 63364 22 63372 22 63373  22 63374 22 63375 22 63376 22 63377 22 63378 22 63379 22 63380 22 63381 22 63382 22 63400 22 63407 22 63492 22 63510 22 63528 21 63529 8 63535 22 63620 22 63638 22 63657 21 63658 22 63659 22 63660 22 63661 22 63662 22 63663 22 63748 21 63749 8 63766 22 63791 22 63877 21 63878 8 63893 10 63894 25 63919 22 64006 21 64007 8 64020 10 64021 25 64039 22 64046 10 64047 25 64135 21 64136 8 64147 10 64148 25 64167 21 64168 8 64173 10 64174 25 64264 21 64265 22   64266 22 64267 22 64268 22 64269 22 64270 22 64271 22 64272 22 64273 22 64274 22 64275 25 64296 21 64297 22 64298 22 64299 22 64300 22 64301 25  25 64296 21 64297 22 64298 21 63658 22 63659 22 63660 22 63661 22 63662 22 63663 22 63748 21 63749 8 63766 22 63791 22 63877 21 63878 8 63893 10 63894 25 63919 22 64006 21 64007 8 64020 10 64021 25 64039 22 64046 10 64047 25 64135 21 64136 8 64147 10 64148 25 64167 21 64168 8 64173 10 64174 25 64264 21 64265 22  61825 22 61826 22 61844 22 61845 22 61953 22 61954 22 61972 22 61973 22 62081 22 62082 22 62100 22 62101 22 62209 22 62210 22 62228 22 62229 22 62337 22 62338 22 62356 22 62357 22 62465 22 62466 22 62484 22 62485 22 62593 22 62594 22 62612 22 62613 22 62721 22 62722 22 62740 22 62741 22 62746 22 62849 22 62850 22 62851 22 62852 22 62853 22 62854 22 62855 22 62856 22 62857 22 62858 22 62859 22 62860 22 62861 22 62862 22 62863 22 62864 22 62865 22 62866 22 62867 22 62868 22 62869 22 62874 22 62977 22 62978 22 62996 22 62997 22 63002 22 63105 22 63106 22 63124 22 63125 22 63130 22 63233 22 63234 22 63252 22 63253 22 63258 22 63361 22 63362 22 63380 22 63381 22 63386 22 63387 22 63388 22 63389 22 63390 8 63489 22 63490 22 63508 22 63509 22 63514 22 63518 21 63519 8 63617 22 63618 22 63636 22 63637 22 63642 22 63647 22 63745 22 63746 22 63764 22 63765 22 63770 22 63775 22 63873 22 63874 22 63892 22 63893 22 63898  22 63903 22 64001 22 64002 22 64020 22 64021 22 64026 22 64031 22  22 64001 22 64002 22 64020 22 64021 22 64026 22 63130 22 63233 22 63234 22 63252 22 63253 22 63258 22 63361 22 63362 22 63380 22 63381 22 63386 22 63387 22 63388 22 63389 22 63390 8 63489 22 63490 22 63508 22 63509 22 63514 22 63518 21 63519 8 63617 22 63618 22 63636 22 63637 22 63642 22 63647 22 63745 22 63746 22 63764 22 63765 22 63770 22 63775 22 63873 22 63874 22 63892 22 63893 22 63898  61835 22 61836 22 61837 22 61838 22 61839 22 61840 22 61965 22 61966 22 62093 22 62094 22 62221 22 62222 22 62349 22 62350 22 62477 22 62478 22 62605 22 62606 22 62733 22 62734 22 62861 22 62862 22 62989 22 62990 22 63117 22 63118 22 63138 22 63139 22 63245 22 63246 22 63373 22 63374 22 63394 22 63395 22 63501 22 63502 22 63522 22 63523 22 63629 22 63630 22 63650 22 63651 22 63757 22 63758 22 63778 22 63779 22 63885 22 63886 22 63906 22 63907 22 64013 22 64014 22 64034 22 64035 22 64141 22 64142 22 64162 22 64163 22 64267 22 64268 22 64269 22 64270 22 64271 22 64272 22 64290 22 64291 22  22 64269 22 64270 22 64271 22 64272 22 34 22 62861 22 62862 22 62989 22 62990 22 63117 22 63118 22 63138 22 63139 22 63245 22 63246 22 63373 22 63374 22 63394 22 63395 22 63501 22 63502 22 63522 22 63523 22 63629 22 63630 22 63650 22 63651 22 63757 22 63758 22 63778 22 63779 22 63885 22 63886 22 63906 22 63907 22 64013 22 640 61834 22 61835 22 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61843 22 61844 22 61845 22 61846 22 61847 22 61848 22 61849 22 61969 22 61970 22 62097 22 62098 22 62225 22 62226 22 62353 22 62354 22 62481 22 62482 22 62609 22 62610 22 62737 22 62738 22 62865 22 62866 22 62887 22 62888 22 62993 22 62994 22 63121 22 63122 22 63143 22 63144 22 63249 22 63250 22 63271 22 63272 22 63377 22 63378 22 63399 22 63400 22 63505 22 63506 22 63527 22 63528 22 63633 22 63634 22 63655 22 63656 22 63750 21 63751 22 63752 8 63761 22 63762 22 63783 22 63784 22 63879 21 63880 22 63881 8 63888 10 63889 22 63890 25 63911 22 63912 22 64008 21 64009 22 64010 8 64015 10 64016 22 64017 25 64030 21 64031 22 64032 8 64038 10 64039 22 64040 25 64137 21 64138 22 64139 22 64140 22 64141 22 64142 22 64143 22 64144 25 64159 21 64160 22 64161 8 64165 10 64166 22 64167 25 64288 21 64289 22 64290 22 64291 22 64292 22 64293  22 64294 25  21 64289 22 64290 22 64291 22 64292 22 64293 22 63752 8 63761 22 63762 22 63783 22 63784 22 63879 21 63880 22 63881 8 63888 10 63889 22 63890 25 63911 22 63912 22 64008 21 64009 22 64010 8 64015 10 64016 22 64017 25 64030 21 64031 22 64032 8 64038 10 64039 22 64040 25 64137 21 64138 22 64139 22 64140 22 64141 22 64142 22 64143 22 64144 25 64159 21 64160 22 64161 8 64165 10 64166 22 64167 25 64288 21 64289 22 64290 22 64291 22 64292 22 64293  61833 22 61834 22 61845 10 61846 22 61961 22 61962 22 61972 10 61973 22 61974 25 62089 22 62090 22 62099 10 62100 22 62101 25 62217 22 62218 22 62226 10 62227 22 62228 25 62345 22 62346 22 62353 10 62354 22 62355 25 62473 22 62474 22 62480 10 62481 22 62482 25 62601 22 62602 22 62607 10 62608 22 62609 25 62729 22 62730 22 62734 10 62735 22 62736 25 62753 22 62857 22 62858 22 62861 10 62862 22 62863 25 62881 22 62985 22 62986 22 62988 10 62989 22 62990 25 63009 22 63113 22 63114 22 63115 10 63116 22 63117 25 63118 22 63119 8 63137 22 63142 10 63143 25 63241 22 63242 22 63243 22 63244 25 63246 21 63247 22 63248 8 63265 22 63269 10 63270 25 63369 22 63370 22 63375 21 63376 22 63377 8 63393 22 63396 10 63397 25 63497 22 63498 22 63504 21 63505 22 63506 8 63521 22 63523 10 63524 25 63625 22 63626 22 63633 21 63634 22 63635 8 63649 22 63650 10 63651 25 63753 22 63754 22 63762 21 63763 22 63764 8 63777 22 63778  21 63779 8 63881 22 63882 22 63891 21 63892 22 63893 8 63905 22 63907 21 63908 8 64009 22 64010 22 64020 21 64021 22 64022 8 64033 22 64036 21 64037 8 64137 22 64138 22 64149 21 64150 22 64151 8 64161 22 64165 21 64166 8 64265 22 64266 22 64278 21 64279 22 64289 22 64294 21 64295 8 64407 21 64417 22 64423 21 64424 8  22 64294 21 64295 8 62 63633 21 63634 22 63635 8 63649 22 63650 10 63651 25 63753 22 63754 22 63762 21 63763 22 63764 8 63777 22 63778  61829 22 61830 22 61957 22 61958 22 62085 22 62086 22 62213 22 62214 22 62341 22 62342 22 62469 22 62470 22 62597 22 62598 22 62623 22 62624 22 62725 22 62726 22 62751 22 62752 22 62853 22 62854 22 62879 22 62880 22 62981 22 62982 22 63007 22 63008 22 63109 22 63110 22 63135 22 63136 22 63237 22 63238 22 63263 22 63264 22 63365 22 63366 22 63391 22 63392 22 63493 22 63494 22 63519 22 63520 22 63621 22 63622 22 63647 22 63648 22 63749 22 63750 22 63775 22 63776 22 63877 22 63878 22 63903 22 63904 22 64005 22 64006 22 64031 22 64032 22 64133 22 64134 22 64159 22 64160 22 64261 22 64262 22 64287 22 64288 22 64389 22 64390 22 64391 22 64392 22 64393 22 64394 22 64395 22 64396 22 64397 22 64398 22 64399 22 64400 22 64401 22 64402 22 64403 22 64404 22 64405 22 64415 22 64416 22  22 64402 22 64403 22 644 22 63392 22 63493 22 63494 22 63519 22 63520 22 63621 22 63622 22 63647 22 63648 22 63749 22 63750 22 63775 22 637 61955 22 61956 22 61957 8 61971 10 61972 22 61973 22 61974 22 62083 22 62084 22 62085 22 62086 8 62098 10 62099 22 62100 25 62101 22 62102 22 62211 22 62212 22 62213 21 62214 22 62215 8 62225 10 62226 22 62227 25 62229 22 62230 22 62339 22 62340 22 62342 21 62343 22 62344 8 62352 10 62353 22 62354 25 62357 22 62358 22 62467 22 62468 22 62471 21 62472 22 62473 8 62479 10 62480 22 62481 25 62485 22 62486 22 62595 22 62596 22 62600 21 62601 22 62602 8 62606  10 62607 22 62608 25 62613 22 62614 22 62723 22 62724 22 62729 21 62730 22 62731 8 62733 10 62734 22 62735 25 62741 22 62742 22 62851 22 62852 22 62858 21 62859 22 62860 22 62861 22 62862 25 62869 22 62870 22 62979 22 62980 22 62987 21 62988 22 62989 25 62997 22 62998 22 63107 22 63108 22 63125 22 63126 22 63235 22 63236 22 63253 22 63254 22 63363 22 63364 22 63381 22 63382 22 63390 22 63392 10 63393 22 63394 8 63397 10 63398 22 63399 8 63491 22 63492 22 63509 22 63510 22 63518 22 63519 10 63520 25 63522 21 63523 8 63524 10 63525 25 63527 21 63528 8 63619 22 63620 22 63637 22 63638 22 63646 22 63647 25 63651 22 63652 25 63656 22 63747 22 63748 22 63765 22 63766 22 63774 22 63779 22 63784 22 63875 22 63876 22 63893 22 63894 22 63902 22 63907 22 63912 22 64003 22 64004 22 64021 22 64022 22 64030 22 64035 22 64040 22 64131 22 64132 22 64149 22 64150 22 64158 22 64163 22 64168 22  22 64132 22 64149 22 64150  61828 22 61829 22 61830 8 61847 22 61848 22 61956 22 61957 22 61958 22 61959 8 61975 22 61976 22 62084 22 62085 22 62086 21 62087 22 62088 8 62103 22 62104 22 62212 22 62213 22 62215 21 62216 22 62217 8 62231 22 62232 22 62340 22 62341 22 62344 21 62345 22 62346 8 62359 22 62360 22 62468 22 62469 22 62473 21 62474 22 62475 8 62487 22 62488 22 62596 22 62597 22 62602 21 62603 22 62604 8 62615 22 62616 22 62724 22 62725 22 62731 21 62732 22 62733 8 62743  22 62744 22 62852 22 62853 22 62860 21 62861 22 62862 8 62871 22 62872 22 62980 22 62981 22 62989 21 62990 22 62991 8 62999 22 63000 22 63108 22 63109 22 63118 21 63119 22 63120 8 63127 22 63128 22 63236 22 63237 22 63247 21 63248 22 63249 8 63255 22 63256 22 63263 22 63265 10 63266 22 63267 22 63268 8 63364 22 63365 22 63376 21 63377 22 63378 8 63383 22 63384 22 63391 22 63392 10 63393 25 63396 21 63397 8 63492 22 63493 22 63505 21 63506 22 63507 8 63511 22 63512 22 63519 22 63520 25 63525 22 63620 22 63621 22 63634 21 63635 22 63636 8 63639 22 63640 22 63647 22 63653 22 63748 22 63749 22 63763 21 63764 22 63765 8 63767 22 63768 22 63775 22 63781 22 63876 22 63877 22 63892 21 63893 22 63894 8 63895 22 63896 22 63903 22 63909 22 64004 22 64005 22 64021 21 64022 22 64023 22 64024 22 64031 22 64037 22  22 64021 21 64022 22 64023 22 64024 22 64031 21 63397 8 63492 22 63493 22 63505 21 63506 22 63507 8 635 61835 10 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61843 8 61962 10 61963 22 61964 25 61970 21 61971 22 61972 8 62089 10 62090 22 62091 25 62099 21 62100 22 62101 8 62216 10 62217 22 62218 25 62228 21 62229 22 62230 8 62343 10 62344 22 62345 25 62357 21 62358 22 62359 8 62470 10 62471 22 62472 25 62486 21 62487 22 62488 8 62598 22 62599 22 62615 22 62616 22 62726 22 62727 22 62743 22 62744 22 62854 22 62855 22 62871 22 62872 22 62982  22 62983 22 62999 22 63000 22 63110 22 63111 22 63127 22 63128 22 63143 10 63144 22 63145 22 63146 22 63147 8 63238 22 63239 22 63255 22 63256 22 63270 10 63271 25 63275 21 63276 8 63366 21 63367 22 63368 8 63382 10 63383 22 63384 25 63397 10 63398 25 63404 21 63405 8 63495 21 63496 22 63497 8 63509 10 63510 22 63511 25 63525 22 63533 22 63624 21 63625 22 63626 8 63636 10 63637 22 63638 25 63653 22 63661 22 63753 21 63754 22 63755 8 63763 10 63764 22 63765 25 63781 22 63789 22 63882 21 63883 22 63884 8 63890 10 63891 22 63892 25 63909 21 63910 8 63916 10 63917 25 64011 21 64012 22 64013 22 64014 22 64015 22 64016 22 64017 22 64018 22 64019 25 64038 21 64039 8 64043 10 64044 25 64167 21 64168 22 64169 22 64170 22 64171 25  10 64044 2 22 63497 8 63509 10 63510 22 63511 25 63525 22 63533 22 63624 21 63625 22 63626 8 63636 10 63637 22 63638 25 63653 22 63661 22 63753 21 63754 22 63755 8 63763 10 63764 22  61828 22 61829 22 61830 22 61831 22 61832 22 61833 22 61834 22 61835 22 61836 22 61837 22 61838 8 61956 22 61957 22 61965 21 61966 22 61967 8 62084 22 62085 22 62094 21 62095 22 62096 8 62212 22 62213 22 62223 21 62224 22 62225 8 62340 22 62341 22 62352 21 62353 22 62354 8 62468 22 62469 22 62481 22 62482 22 62596 22 62597 22 62608 10 62609 22 62610 25 62724 22 62725 22 62735 10 62736 22 62737 25 62852 22 62853 22 62862 10 62863 22 62864 25 62980 22 62981  22 62989 10 62990 22 62991 25 63108 22 63109 22 63110 22 63111 22 63112 22 63113 22 63114 22 63115 22 63116 22 63117 22 63118 25 63236 22 63237 22 63364 22 63365 22 63389 22 63390 22 63391 22 63392 8 63492 22 63493 22 63517 22 63520 21 63521 8 63620 22 63621 22 63645 22 63649 21 63650 8 63748 22 63749 22 63773 22 63777 10 63778 25 63876 22 63877 22 63901 22 63904 10 63905 25 64004 22 64005 22 64029 22 64030 22 64031 22 64032 25 64132 22 64133 22 64157 22 64260 22 64261 22 64285 22 64413 22  22 64133 22 64157 2 63111 22 63112 22 63113 22 63114 22 63115 22 63116 22 63117 22 63118 25 63236 22 63237 22 63364 22 63365 22 63389 22 63390 22 63391 22 63392 8 63492 22 63493 22 63517 22 63520 21 63521 8 63620 22 63621 22 63645 22 63649 21 63650 8 63748 22 63749 22 63773 22 63777 10 63778 25 63876 22 63877 22 63901 22 63904 10 63905 25 64004 22 64005 22 64029 22 64030 22 64031 22 64032 25 64132 22 64133 22 64157 2 61835 10 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61843 8 61962 10 61963 22 61964 25 61970 21 61971 22 61972 8 62089 10 62090 22 62091 25 62099 21 62100 22 62101 8 62216 10 62217 22 62218 25 62228 21 62229 22 62230 8 62343 10 62344 22 62345 25 62357 21 62358 22 62359 8 62470 10 62471 22 62472 25 62486 21 62487 22 62488 8 62598 22 62599 22 62615 22 62616 22 62726 22 62727 22 62743 22 62744 22 62854 22 62855 22 62871 22 62872 22 62982  22 62983 22 62999 22 63000 22 63110 22 63111 22 63127 22 63128 22 63238 22 63239 22 63255 22 63256 22 63268 10 63269 22 63270 22 63271 22 63366 21 63367 22 63368 8 63382 10 63383 22 63384 25 63395 10 63396 25 63399 22 63495 21 63496 22 63497 8 63506 21 63507 22 63508 8 63509 10 63510 22 63511 25 63523 21 63524 8 63527 22 63624 21 63625 22 63626 8 63635 21 63636 22 63637 22 63638 25 63652 21 63653 22 63654 22 63655 22 63753 21 63754 22 63755 8 63763 10  63764 22 63765 22 63766 8 63783 22 63882 21 63883 22 63884 8 63890 10 63891 22 63892 25 63893 21 63894 22 63895 8 63911 22 64011 21 64012 22 64013 22 64014 22 64015 22 64016 22 64017 22 64018 22 64019 25 64022 21 64023 22 64024 8 64039 22 64167 21 64168 8 64169 10 64170 25 64296 21 64297 25  22 64167 21 64168 8 64169 10 64170 25 64296 21 64293626 8 63635 21 63636 22 63637 22 63638 25 63652 21 63653 22 63654 22 63655 22 63753 21 63754 22 63755 8 63763 10  61828 22 61829 22 61830 22 61831 22 61832 22 61833 22 61834 22 61835 22 61836 22 61837 22 61838 8 61956 22 61957 22 61965 21 61966 22 61967 8 62084 22 62085 22 62094 21 62095 22 62096 8 62212 22 62213 22 62223 21 62224 22 62225 8 62340 22 62341 22 62352 21 62353 22 62354 8 62468 22 62469 22 62481 22 62482 22 62596 22 62597 22 62608 10 62609 22 62610 25 62724 22 62725 22 62735 10 62736 22 62737 25 62852 22 62853 22 62862 10 62863 22 62864 25 62980 22 62981  22 62989 10 62990 22 62991 25 63108 22 63109 22 63110 22 63111 22 63112 22 63113 22 63114 22 63115 22 63116 22 63117 22 63118 25 63236 22 63237 22 63244 21 63245 22 63246 8 63364 22 63365 22 63373 21 63374 22 63375 8 63389 8 63390 10 63391 22 63392 22 63393 8 63492 22 63493 22 63502 21 63503 22 63504 8 63517 22 63518 25 63521 21 63522 8 63620 22 63621 22 63631 21 63632 22 63633 8 63645 22 63748 22 63749 22 63760 21 63761 22 63762 8 63773 22 63876 22 63877 22 63889 21 63890 22 63891 8 63901 22 64004 22 64005 22 64018 21 64019 22 64020 8 64029 22 64132 22 64133 22 64147 21 64148 22 64149 8 64157 22 64260 22 64261 22 64276 21 64277 22 64285 22  8 64157 22 64260 22 64261 22 64276 90 10 63391 22 63392 22 63393 8 63492 22 63493 22 63502 21 63503 22 63504 8 63517 22 63518 25 63521 21 63522 8 63620 22 63621 22 63631 21 63632 22 63633 8 63645 22 63748 22 63749 22 63760 21 63761 22 63762 8 63773 22 63876 22  61966 10 61967 22 61968 22 61969 22 61970 22 61971 22 61972 22 61973 8 62093 10 62094 22 62095 25 62100 21 62101 22 62102 8 62220 10 62221 22 62222 25 62229 21 62230 22 62231 8 62347 10 62348 22 62349 25 62358 21 62359 22 62360 8 62475 22 62476 22 62487 21 62488 22 62603 22 62604 22 62731 22 62732 22 62859 21 62860 22 62861 8 62988 21 62989 22 62990 8 63117 21 63118 22 63119 22 63120 22 63121 22 63122 22 63123 22 63124 8 63251 21 63252 22 63253 8 63275  10 63276 22 63277 8 63380 21 63381 22 63382 8 63402 10 63403 25 63405 21 63406 8 63509 21 63510 22 63511 8 63530 22 63638 22 63639 22 63658 21 63659 8 63766 22 63767 22 63787 21 63788 22 63789 8 63882 22 63883 8 63894 22 63895 22 63917 21 63918 8 64010 21 64011 22 64012 8 64021 10 64022 22 64023 25 64046 22 64139 21 64140 22 64141 8 64148 10 64149 22 64150 25 64170 21 64171 8 64173 10 64174 25 64268 21 64269 22 64270 8 64275 10 64276 22 64277 25 64299  21 64300 22 64301 25 64397 21 64398 22 64399 22 64400 22 64401 22 64402 22 64403 22 64404 25  22 64399 22 64400 2 22 63638 22 63639 22 63658 21 63659 8 63766 22 63767 22 63787 21 63788 22 63789 8 63882 22 63883 8 63894 22 63895 22 63917 21 63918 8 64010 21 64011 22 64012 8 64021 10 64022 22 64023 25 64046 22 64139 21 64140 22 64141 8 64148 10 64149 22 64150 25 64170 21 64171 8 64173 10 64174 25 64268 21 64269 22 64270 8 64275 10 64276 22 64277 25 64299  61826 22 61827 22 61828 22 61829 22 61830 22 61831 22 61832 22 61833 22 61834 22 61835 22 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61961 22 61962 22 62089 22 62090 22 62217 22 62218 22 62345 22 62346 22 62473 22 62474 22 62601 22 62602 22 62729 22 62730 22 62857 22 62858 22 62985 22 62986 22 63008 22 63113 22 63114 22 63136 22 63241 22 63242 22 63261 23 63262 23 63263 23 63264 22 63265 23 63266 23 63267 23 63369 22 63370 22 63392 22 63497 22 63498 22 63520 22 63625 22 63626 22 63648 22 63753 22 63754 22 63776 22 63881 22 63882 22 63904 22 64009 22 64010 22 64032 22 64137 22 64138 22 64160 22  22 64009 22 89 22 62090 22 62217 22 62218 22 62345 22 62346 22 62473 22 62474 22 62601 22 62602 22 62729 22 62730 22 62857 22 62858 22 62985 22 62986 22 63008 22 63113 22 63114 22 63136 22 63241 22 63242 22 63261 23 63262 23 63263 23 63264 22 63265 23 63266 23 63267 23 63369 22 63370 22 63392 22 634 61829 22 61830 22 61843 22 61844 22 61957 22 61958 22 61971 22 61972 22 62085 22 62086 22 62099 22 62100 22 62213 22 62214 22 62227 22 62228 22 62341 22 62342 22 62355 22 62356 22 62469 22 62470 22 62483 22 62484 22 62597 22 62598 22 62611 22 62612 22 62725 22 62726 22 62739 22 62740 22 62853 22 62854 22 62867 22 62868 22 62981 22 62982 22 62995 22 62996 22 63109 22 63110 22 63123 22 63124 22 63237 22 63238 22 63251 22 63252 22 63365 22 63366 22 63379 22 63380 22 63391 22 63397 22 63493 21 63494 22 63495 8 63506 10 63507 22 63508 25 63519 22 63525 22 63622 21 63623 22 63624 8 63633 10 63634 22 63635 25 63647 22 63653 22 63751 21 63752 22 63753 8 63760 10 63761 22 63762 25 63775 22 63781 22 63880 21 63881 22 63882 8 63887 10 63888 22 63889 25 63903 21 63904 8 63908 10 63909 25 64009 21 64010 22 64011 22 64012 22 64013 22 64014 22 64015 22 64016 25 64032 21 64033 22 64034 22 64035 22 64036 25  22 64016 25 6403 61824 21 61825 22 61826 8 61854 10 61855 22 61856 25 61953 21 61954 22 61955 8 61981 10 61982 22 61983 25 62082 21 62083 22 62084 8 62108 10 62109 22 62110 25 62211 21 62212 22 62213 8 62235 10 62236 22 62237 25 62340 21 62341 22 62342 8 62362 10 62363 22 62364 25 62469 21 62470 22 62471 8 62489 10 62490 22 62491 25 62598 21 62599 22 62600 8 62616 10 62617 22 62618 25 62727 21 62728 22 62729 8 62743 10 62744 22 62745 25 62856 21 62857 22 62858 8 62870  10 62871 22 62872 25 62985 21 62986 22 62987 8 62997 10 62998 22 62999 25 63114 21 63115 22 63116 8 63124 10 63125 22 63126 25 63243 21 63244 22 63245 8 63251 10 63252 22 63253 25 63372 21 63373 22 63374 8 63378 10 63379 22 63380 25 63392 21 63393 22 63394 8 63400 10 63401 22 63402 25 63501 21 63502 22 63503 8 63505 10 63506 22 63507 25 63521 21 63522 22 63523 8 63527 10 63528 22 63529 25 63630 21 63631 22 63632 22 63633 22 63634 25 63650 21 63651 22 63652 8 63654 10 63655 22 63656 25 63759 21 63760 22 63761 25 63779 21 63780 22 63781 22 63782 22 63783 25 63908 21 63909 22 63910 25  22 63781 22 63782 22 63783 25 63908 21 63253 25 63372 21 63373 22 63374 8 63378 10 63379 22 63380 25 63392 21 63393 22 63394 8 63400 10 63401 22 63402 25 63501 21 63502 22 63503 8 63505 10 63506 22 63507 25 63521 21 63522 22 63523 8 63527 10 63528 22 63529 25 63630 21 63631 22 63632 22 63633 22 63634 25 63650 21 63651 22 636 61825 21 61826 22 61827 8 61859 10 61860 22 61861 25 61954 21 61955 22 61956 8 61986 10 61987 22 61988 25 62083 21 62084 22 62085 8 62113 10 62114 22 62115 25 62212 21 62213 22 62214 8 62240 10 62241 22 62242 25 62341 21 62342 22 62343 8 62367 10 62368 22 62369 25 62470 21 62471 22 62472 8 62494 10 62495 22 62496 25 62599 21 62600 22 62601 8 62621 10 62622 22 62623 25 62728 21 62729 22 62730 8 62738 10 62739 22 62740 8 62748 10 62749 22 62750 25 62857  21 62858 22 62859 8 62865 10 62866 22 62867 22 62868 22 62869 8 62875 10 62876 22 62877 25 62986 21 62987 22 62988 8 62992 10 62993 22 62994 25 62996 21 62997 22 62998 8 63002 10 63003 22 63004 25 63115 21 63116 22 63117 8 63119 10 63120 22 63121 25 63125 21 63126 22 63127 8 63129 10 63130 22 63131 25 63244 21 63245 22 63246 22 63247 22 63248 25 63254 21 63255 22 63256 22 63257 22 63258 25 63373 21 63374 22 63375 25 63383 21 63384 22 63385 25 63395 21 63396 8 63399 10 63400 8 63403 10 63404 25 63524 21 63525 8 63526 10 63527 25 63528 21 63529 8 63530 10 63531 25 63653 21 63654 25 63657 21 63658 25  8 63530 10 63531 25 6363002 10 63003 22 63004 25 63115 21 63116 22 63117 8 63119 10 63120 22 63121 25 63125 21 63126 22 63127 8 63129 10 63130 22 63131 25 63244 21 63245 22 63246 22 63247 22 63248 25 63254 21 63255 22 63256 22 63257 22 63258 25 63373 21 63374 22 63375 25 63383 21 63384 22 63385 25 63395 21 63 61700 22 61701 8 61717 10 61718 22 61719 25 61828 21 61829 22 61830 8 61844 10 61845 22 61846 25 61957 21 61958 22 61959 8 61971 10 61972 22 61973 25 62086 21 62087 22 62088 8 62098 10 62099 22 62100 25 62215 21 62216 22 62217 8 62225 10 62226 22 62227 25 62344 21 62345 22 62346 8 62352 10 62353 22 62354 25 62473 21 62474 22 62475 8 62479 10 62480 22 62481 25 62602 21 62603 22 62604 8 62606 10 62607 22 62608 25 62731 21 62732 22 62733 22 62734 22 62735  25 62860 22 62861 22 62862 22 62987 10 62988 22 62989 22 62990 22 62991 8 63114 10 63115 22 63116 25 63118 21 63119 22 63120 8 63241 10 63242 22 63243 25 63247 21 63248 22 63249 8 63266 21 63267 8 63272 10 63273 25 63368 10 63369 22 63370 25 63376 21 63377 22 63378 8 63395 21 63396 8 63399 10 63400 25 63495 10 63496 22 63497 25 63505 21 63506 22 63507 8 63524 21 63525 8 63526 10 63527 25 63622 10 63623 22 63624 25 63634 21 63635 22 63636 8 63653 22 63654 22 63749 10 63750 22 63751 25 63763 21 63764 22 63765 8 63780 10 63781 25 63782 21 63783 8 63876 10 63877 22 63878 25 63892 21 63893 22 63894 8 63907 10 63908 25 63911 21 63912 8 64003 10 64004 22 64005 25 64021 21 64022 22 64023 8 64034 10 64035 25 64040 21 64041 8  21 64022 22 63399 10 63400 25 63495 10 63496 22 63497 25 63505 21 63506 22 63507 8 63524 21 63525 8 63526 10 63527 25 63622 10 63623 22 63624 25 63634 21 63635 22 63636 8 63653 22 6365 61700 8 61715 10 61716 22 61717 25 61827 21 61828 22 61829 8 61842 10 61843 22 61844 25 61956 21 61957 22 61958 8 61969 10 61970 22 61971 25 62085 21 62086 22 62087 8 62096 10 62097 22 62098 25 62214 21 62215 22 62216 8 62223 10 62224 22 62225 25 62343 21 62344 22 62345 8 62350 10 62351 22 62352 25 62472 21 62473 22 62474 8 62477 10 62478 22 62479 25 62601 21 62602 22 62603 8 62604 10 62605 22 62606 25 62730 21 62731 22 62732 22 62733 25 62859 22 62860  22 62880 22 62887 22 62987 22 62988 22 63008 21 63009 8 63014 10 63015 22 63115 22 63116 22 63137 21 63138 8 63141 10 63142 25 63143 22 63243 22 63244 22 63266 21 63267 22 63268 22 63269 25 63271 22 63371 22 63372 22 63399 22 63499 22 63500 22 63527 22 63627 22 63628 22 63655 22 63755 22 63756 22 63783 22 63883 22 63884 22 63906 8 63910 10 63911 25 64011 22 64012 22 64034 21 64035 22 64036 22 64037 22 64038 25 64139 22 64140 22  21 64035 22 64036 22 64037  61829 22 61830 22 61831 22 61832 22 61833 22 61834 22 61835 22 61836 22 61837 22 61838 22 61839 22 61840 22 61841 22 61842 22 61843 22 61844 22 61845 22 61846 22 61847 22 61848 22 61849 22 61850 25 61975 10 61976 22 61977 25 62102 10 62103 22 62104 25 62229 10 62230 22 62231 25 62356 10 62357 22 62358 25 62483 10 62484 22 62485 25 62610 10 62611 22 62612 25 62737 10 62738 22 62739 25 62864 10 62865 22 62866 25 62991 10 62992 22 62993 25 63118 10 63119 22 63120 25 63245 10 63246 22 63247 25 63372 10 63373 22 63374 25 63396 22 63397 22 63398 22 63399 22 63400 22 63401 22 63402 22 63403 22 63404 25 63499 10 63500 22 63501 25 63530 10 63531 25 63626 10 63627 22 63628 25 63657 10 63658 25 63753 10 63754 22 63755 25 63784 10 63785 25 63880 10 63881 22 63882 25 63911 10 63912 25 64007 10 64008 22 64009 25 64038 10 64039 25 64134 10 64135 22 64136 25 64165 10 64166 25 64261 10 64262 22 64263 25 64292 10 64293 22 64294  22 64295 22 64296 22 64297 22 64298 22 64299 22 64300 22 64388 10 64389 22 64390 22 64391 22 64392 22 64393 22 64394 22 64395 22 64396 22 64397 22 64398 22 64399 22 64400 22 64401 22 64402 22 64403 22 64404 22 64405 22 64406 22 64407 22 64408 22 64409 22  22 64404 22 64405 22 64406 22 81 22 63882 25 63911 10 63912 25 64007 10 64008 22 64009 25 64038 10 64039 25 64134 10 64135 22 64136 25 64165 10 64166 25 64261 10 64262 22 64263 25 64292 10 64293 22 64294  62086 22 62087 22 62088 22 62089 22 62090 22 62091 22 62092 22 62093 22 62094 22 62095 22 62096 22 62097 22 62098 22 62099 22 62100 22 62101 22 62102 22 62103 22 62104 22 62105 22 62106 22 62107 22 62108 22 62109 22 62110 22 62111 22 62112 22 62113 22 62114 22 62115 22 62116 22 62117 22 62118 22 62119 22 62120 22 62121 22 62122 22 62123 22 62214 22 62215 22 62250 22 62251 22 62342 22 62343 22 62378 22 62379 22 62470 22 62471 22 62506 22 62507 22 62598 22 62599 22 62634 22 62635 22 62726 22 62727 22 62762 22 62763 22 62854 22 62855 22 62890 22 62891 22 62982 22 62983 22 63018 22 63019 22 63110 22 63111 22 63146 22 63147 22 63238 22 63239 22 63274 22 63275 22 63366 22 63367 22 63402 22 63403 22 63494 22 63495 22 63530 22 63531 22 63622 22 63623 22 63658 22 63659 22 63750 22 63751 22 63752 22 63753 22 63754 22 63755 22 63756 22 63757 22 63758 22 63759 22 63760 22 63761 22 63762 22 63763 22 63764 22 63765 22 63766  22 63767 22 63768 22 63769 22 63770 22 63771 22 63772 22 63773 22 63774 22 63775 22 63776 22 63777 22 63778 22 63779 22 63780 22 63781 22 63782 22 63783 22 63784 22 63785 22 63786 22 63787 22  22 63782 22 63783 22 63784 22 63785 2 63403 22 63494 22 63495 22 63530 22 63531 22 63622 22 63623 22 63658 22 63659 22 63750 22 63751 22 63752 22 63753 22 63754 22 63755 22 63756 22 63757 22 63758 22 63759 22 63760 22 63761 22 63762 22 63763 22 63764 22 63765 22 63766  50000 PRINT CHR$(&H1A) 50001 FOR K=0 TO 23 :FOR I=0 TO 79: READ A:POKE I+K*128+61440!,A:NEXT I:NEXT K 50002 DATA 32,32,32,32,32,32,32,32,32,45,45,45,45,45,45,45,62,62,62 50003 DATA 32,32,73,84,39,83,32,79,78,76,89,32,65,32,32,32,32,84,69 50004 DATA 83,84,32,32,32,60,60,60,45,45,45,45,45,45,45,32,32,32,32 50005 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50006 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50007 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50008 DATA 32,32,83,32,32,69,32,32,32,32,32,32,32,32,32,32,32,32,32 50009 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50010 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50011 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50012 DATA 32,32,32,32,32,32,69,32,32,83,32,32,32,32,32,32,32,32,32 50013 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50014 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50015 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 50016 DATA 32,32,84,83,69,84,32,32,32,32,32,32,32,32,32,32,32,32,32 50017 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50018 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32 50019 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50020 DATA 32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50021 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50022 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50023 DATA 0,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50024 DATA 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32 50025 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50026 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50027 DATA 32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50028 DATA 32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32,32 50029 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50030 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50031 DATA 32,32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32 50032 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32 50033 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50034 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50035 DATA 32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 50036 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50037 DATA 0,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50038 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50039 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32 50040 DATA 32,32,32,32,215,201,206,196,207,215,160,160,207,206,197 50041 DATA 32,32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32 50042 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50043 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50044 DATA 32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32,32 50045 DATA 32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 50046 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50047 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50048 DATA 32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32 50049 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32 50050 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50051 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50052 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32 50053 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50054 DATA 32,0,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50055 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50056 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,0,32 50057 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50058 DATA 32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32,32 50059 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50060 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50061 DATA 32,32,0,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50062 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50063 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50064 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50065 DATA 127,127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32 50066 DATA 32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50067 DATA 32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50068 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50069 DATA 32,32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32 50070 DATA 32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32 50071 DATA 32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32 50072 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50073 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,127,32 50074 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,0,0,0 50075 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,127,32,32,32,32,32,32,32,32 50076 DATA 32,32,32,32,32,32,32,215,201,206,196,207,215,160,212,215 50077 DATA 207,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50078 DATA 32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50079 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50080 DATA 127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50081 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50082 DATA 32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32 50083 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50084 DATA 32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32 50085 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50086 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,127,32,32,32 50087 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50088 DATA 32,32,32,32,32,32,32,32,32,32,32,32,127,32,32,32,32,32 50089 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50090 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50091 DATA 32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50092 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,127 50093 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50094 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50095 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50096 DATA 127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50097 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50098 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50099 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50100 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50101 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50102 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50103 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50104 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50105 DATA 32,32,32,32,32 50105 DATA 32,32,32,32,32  50104 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50105 DATA 32,32,32,32,32 50105 DATA 3232,32,32,32,127 50093 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50094 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50095 DATA 127,127,127,127,127,127,127,127,127,127,127,127,127,127 50096 DATA 127,127,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50097 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50098 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50099 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50100 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50101 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50102 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50103 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,! !P!OP!P!P!?P!P!ߢP!/P!P!ϣP!P!oP!P!P!_P!P!P!OP!P!P!?P!Pߧ$ ------->>> IT'S ONLY A TEST <<<------- S E E S TSET נ        נ         w  .Z80 ASEG ORG 100H HORG EQU 0A000H STROUT EQU 9 BDOS EQU 5 CONOUT EQU 2 WSTART EQU 0 LD HL,BANF LD DE,HORG LD BC,ENDE-START LDIR ; JP START JP WSTART BANF: .PHASE HORG START: ; LD DE,CLEAR ;CLEAR SCREEN ROUTINE LD C,STROUT CALL BDOS ; LD HL,LINE1 LD DE,61440 LD BC,80 LDIR ; LD HL,LINE2 LD DE,61568 LD BC,80 LDIR ; LD HL,LINE3 LD DE,61696 LD BC,80 LDIR ; LD HL,LINE4 LD DE,61824 LD BC,80 LDIR ; LD HL,LINE5 LD DE,61952 LD BC,80 LDIR ; LD HL,LINE6 LD DE,62080 LD BC,80 LDIR ; LD HL,LINE7 LD DE,62208 LD BC,80 LDIR ; LD HL,LINE8 LD DE,62336 LD BC,80 LDIR ; LD HL,LINE9 LD DE,62464 LD BC,80 LDIR ; LD HL,LINE10 LD DE,62592 LD BC,80 LDIR ; LD HL,LINE11 LD DE,62720 LD BC,80 LDIR ; LD HL,LINE12 LD DE,62848 LD BC,80 LDIR ; LD HL,LINE13 LD DE,62976 LD BC,80 LDIR ; LD HL,LINE14 LD DE,63104 LD BC,80 LDIR ; LD HL,LINE15 LD DE,63232 LD BC,80 LDIR ; LD HL,LINE16  LD DE,63360 LD BC,80 LDIR ; LD HL,LINE17 LD DE,63488 LD BC,80 LDIR ; LD HL,LINE18 LD DE,63616 LD BC,80 LDIR ; LD HL,LINE19 LD DE,63744 LD BC,80 LDIR ; LD HL,LINE20 LD DE,63872 LD BC,80 LDIR ; LD HL,LINE21 LD DE,64000 LD BC,80 LDIR ; LD HL,LINE22 LD DE,64128 LD BC,80 LDIR ; JP EN CLEAR: DB 1AH,'$' LINE1: DB 32,32,32,32,32,32,32,32,32,45,45,45,45,45,45,45,62,62,62,32 DB 32,73,84,39,83,32,79,78,76,89,32,65,32,32,32,32,84,69,83,84 DB 32,32,32,60,60,60,45,45,45,45,45,45,45,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE2: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,83,32,32,69 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE3: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,69,32,32,83 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE4: DB 32,32,32,32,32,32,32,0,0,0,0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,32,84,83,69,84 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE5: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE6: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE7: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE8: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE9: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE10: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,215,201,206,196,207,215 DB 160,160,207,206,197,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE11: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE12: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE13: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE14: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE15: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,32,32,32,32,32,32,32,32,32,32 LINE16: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE17: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE18: DB 32,32,32,32,32,32,32,0,0,0,0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 215,201,206,196,207,215,160,212,215,207,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE19: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE20: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE21: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE22: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,32,32,32,32,32,32,32,32,32,32 ; EN: RET ;EN: CALL BDOS ; ENDE: NOP .DEPHASE NOP END 32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE20: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE21: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE22: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,127,127,127,127,127,127,127,127,127Te8(.;`/8/DՀڰ!P;Vz"xJjB?Q@ @XQ ( }D<%`!(v'DՀڰԁP;Vz"zJjBR@` @XAP( }J=%`!WB(v/(DՀڰP;Vz"|JjB?S@ @XQp(}N@ hZ-Tq0 PS*x-Eh@ @ @ @ @ @ @ @ L@ "@ @ @ @ @ @ @ @ @ @ )@ @ @ @ @ @ PE*@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @d@g1D@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ????? @ @ @ @ @ @ @ @ @  @ @ @ @ @ @ @ @ @  @ @ @ @ 5,#=j5@ @  @ @ @ @ @ @ @ @ @  @ @ @ @ @ @ @ @ @  @ @ @ @ @ @ @ @ @  @ @ @ @ ????? @ 2@ @ @ @ @ @ @  @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ????? @ @ @ @ @ @ @ @ @  @ @ @ @ @ @ @ @ @  @ @ @ @ 5,#=j5@ @  @ @ @ @ @ @ @ @ @  @ @ @ ! !P!OP!P!P!?P!P!ߢP!/P!P!ϣP!P!oP!P!P!_P!P!P!OP!P!P!?P!Pߧ$ ------->>> IT'S ONLY A TEST <<<------- S E E S TSET נ        נ           .Z80 ASEG ORG 100H HORG EQU 0A000H STROUT EQU 9 BDOS EQU 5 CONOUT EQU 2 WSTART EQU 0 LD HL,BANF LD DE,HORG LD BC,ENDE-START LDIR JP START JP WSTART BANF: .PHASE HORG START: ; LD DE,CLEAR ;CLEAR SCREEN ROUTINE LD C,STROUT CALL BDOS ; LD HL,LINE1 LD DE,61440 LD BC,80 LDIR ; LD HL,LINE2 LD DE,61568 LD BC,80 LDIR ; LD HL,LINE3 LD DE,61696 LD BC,80 LDIR ; LD HL,LINE4 LD DE,61824 LD BC,80 LDIR ; LD HL,LINE5 LD DE,61952 LD BC,80 LDIR ; LD HL,LINE6 LD DE,62080 LD BC,80 LDIR ; LD HL,LINE7 LD DE,62208 LD BC,80 LDIR ; LD HL,LINE8 LD DE,62336 LD BC,80 LDIR ; LD HL,LINE9 LD DE,62464 LD BC,80 LDIR ; LD HL,LINE10 LD DE,62592 LD BC,80 LDIR ; LD HL,LINE11 LD DE,62720 LD BC,80 LDIR ; LD HL,LINE12 LD DE,62848 LD BC,80 LDIR ; LD HL,LINE13 LD DE,62976 LD BC,80 LDIR ; LD HL,LINE14 LD DE,63104 LD BC,80 LDIR ; LD HL,LINE15 LD DE,63232 LD BC,80 LDIR ; LD HL,LINE16  LD DE,63360 LD BC,80 LDIR ; LD HL,LINE17 LD DE,63488 LD BC,80 LDIR ; LD HL,LINE18 LD DE,63616 LD BC,80 LDIR ; LD HL,LINE19 LD DE,63744 LD BC,80 LDIR ; LD HL,LINE20 LD DE,63872 LD BC,80 LDIR ; LD HL,LINE21 LD DE,64000 LD BC,80 LDIR ; LD HL,LINE22 LD DE,64128 LD BC,80 LDIR ; JP EN CLEAR: DB 1AH,'$' LINE1: DB 32,32,32,32,32,32,32,32,32,45,45,45,45,45,45,45,62,62,62,32 DB 32,73,84,39,83,32,79,78,76,89,32,65,32,32,32,32,84,69,83,84 DB 32,32,32,60,60,60,45,45,45,45,45,45,45,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE2: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,83,32,32,69 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE3: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,69,32,32,83 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE4: DB 32,32,32,32,32,32,32,0,0,0,0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,32,84,83,69,84 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE5: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE6: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE7: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE8: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE9: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE10: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,215,201,206,196,207,215 DB 160,160,207,206,197,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE11: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE12: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE13: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE14: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 LINE15: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,32,32,32,32,32,32,32,32,32,32 LINE16: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE17: DB 32,32,32,32,32,32,32,0,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE18: DB 32,32,32,32,32,32,32,0,0,0,0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 215,201,206,196,207,215,160,212,215,207,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE19: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE20: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE21: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE22: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,32,32,32,32,32,32,32,32,32,32 ; ;EN: RET EN: CALL BDOS ; ENDE: NOP .DEPHASE NOP END ,122,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE20: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE21: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,32,32 LINE22: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,127,127,127,127,127,127,127,127,127,127,TPeD(. ;`(`EYPڰ!P;V"xJjBPP @XG ( =D@<%`!o v"EՀڰaP;V"zJjBoRPP @XW@(=J@=%`!/B v*(EՀڰP;V"|JjBSP @XGp( =N@>%`oBA@ Z-E| JrN&D@ *JeA@<hZ-@ @ @ @ @ @ @ @ )Q@ @ @ @ @ @ @ @ @ @ "1@ @ @ @ @ @ @ *ȥA@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ sP((@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ??????@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ %g F<@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ??????@ hN@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ??????@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ %g F<@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ 10 ' 20 ' 30 ' TAG DER LETZTEN BEARBEITUNG 35 ' ( LAST UPDATE ) 40 ' ***** 22. MARCH 86 ***** 50 ' 60 CLEAR 65 POKE &HE168,0: '****** AUTO HORIZONTAL SCROLL DISABLE ****** 70 CLS$=CHR$(&H1A): '****** CLS$ = CLEAR SCREEN ****** 80 PRINT CLS$ 90 PRINT 100 PRINT CHR$(&H1B)+CHR$(&H6C);" GRAPHIC PROGRAM FOR THE OSBORNE 1 ";CHR$(&H1B)+CHR$(&H6D) 110 PRINT 120 PRINT 130 PRINT " Copyright (c) 03/22/86 by Romanus Wille" 140 PRINT 150 PRINT " Version 3.0" 160 PRINT CHR$(&H1B)+CHR$(&H29);"================================================================================" 170 PRINT 200 PRINT 210 PRINT 220 PRINT 225 PRINT 230 PRINT 240 PRINT " <";CHR$(&H1B)+CHR$(&H28);" hit any key ";CHR$(&H1B)+CHR$(&H29);">" 242 PRINT 244 PRINT " <";CHR$(&H1B)+CHR$(&H28);" or hit ? for help ";CHR$(&H1B)+CHR$(&H29);">";CHR$(&H1B)+CHR$(&H28) 250 B$=INKEY$:IF B$="" THEN 250 252 ' 253 ' ****** IF ANY QUESTIONS LOOK AT WI3HLP.OVR ****** 254 ' 255 IF B$="?" THEN CHAIN MERGE "WI3HLP.OVR",5000,ALL 260 PRINT CLS$ 270 DEF FNTU$(X$)=CHR$(ASC(X$)-32*((X$>="a")*(X$<="z"))) 280 X=0 : FILUP$="" 290 DIM PR$(250,2): '*** AUF (I,1) WERDEN DIE Z80-BEFEHLE UND AUF (I,2) DIE DB-ANWEISUNGEN ABGELEGT 300 DIM MA$(24,3) 306 ' 307 ' ****** B=START OF VIDEO MEMORY ****** 308 ' ****** E=END OF VIDEO MEMORY ****** 309 ' 310 B=61440!:E=64512! 320 Z=B 330 C=62 340 RM=999 345 LM=999 350 STACK=32 360 BLANK$="32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32" 660 GOSUB 3500 670 INPUT "FILE NAME without .ext (default is TEST): ";F$ 680 IF F$="" THEN F$="TEST" : GOTO 690 681 FILENEW$="" 682 FOR I=1 TO LEN(F$) 683 FILENEW$=FILENEW$+FNTU$(MID$(F$,I,1)) 684 NEXT I 685 F$=FILENEW$ 690 F2$=F$ 697 ' 698 ' ****** CREATE FILENAMES WITH EXTENSION ****** 699 ' 700 F$=F$+".BAS":F2$=F2$+".MAC" 710 GOSUB 3500 720 PRINT "Do you desire CP/M cursor, WS cursor or Special cursor" 725 PRINT:PRINT "Special cursor means: left ... ^H" 726 print " up ... ^E" 727 print " right ... ^D" 728 print " down ... ^X" 730 PRINT:INPUT "enter C, W or S";CUR$ 737 ' 738 ' ****** SELECT CORRECT CURSOR SET ****** 739 ' 740 GOSUB 2920 750 GOSUB 3500 755 PRINT "Do you want to create a BASIC- or a Z80-CODE?" 760 INPUT "enter B or Z";CREA$ 770 IF CREA$="B" THEN 820 780 IF CREA$="b" THEN CREA$="B":GOTO 820 790 IF CREA$="Z" THEN 820 800 IF CREA$="z" THEN CREA$="Z":GOTO 820 810 GOTO 760 817 ' 818 ' ****** BEGINNING LINE NUMBER AND LINE INCREMENT ****** 819 ' 820 IF CREA$="B" THEN GOSUB 2110 822 IF CREA$="B" THEN 830 824 PRINT:PRINT:INPUT "call-address ";HEXADR$ 830 PRINT:print 840 UPDATE=0 850 INPUT "Do you want to update a file (Y/N)";ANS1$ 860 IF ANS1$="Y" OR ANS1$="y" THEN 890 870 IF ANS1$="N" OR ANS1$="n" THEN 1030 880 GOTO 830 890 INPUT "FILE NAME without .ext:";FILUP$ 891 FILUPNEW$="" 892 FOR I=1 TO LEN(FILUP$) 893 FILUPNEW$=FILUPNEW$+FNTU$(MID$(FILUP$,I,1)) 895 NEXT I 896 FILUP$=FILUPNEW$ 900 RESET:UPDATE=1 907 ' 908 ' ****** CHAIN MERGE FILE TO UPDATE ****** 909 ' 910 GOSUB 3110 1030 MATR$="104" 1100 ' 1110 ' ****** REMOVE CURSOR FROM SCREEN ****** 1120 ' 1122 IF ANS1$="N" OR ANS1$="n" THEN PRINT CLS$: POKE Z+128,STACK 1127 ' 1128 ' ****** POKE GRAPHIC CHARACTERS ON SCREEN ****** 1129 ' 1130 GOSUB 2180 1145 STACK=PEEK(Z) 1150 POKE Z,C 1170 ' 1180 ' ****** WAIT FOR KEYBOARD INPUT ****** 1190 ' 1200 A$=INKEY$:IF A$="" THEN 1200 1210 Z11=(Z-61440!) MOD 128 1230 ' 1240 ' ****** CHECK IF INPUT IS ARROW KEY ****** 1250 ' 1260 IF A$=CHR$(13) THEN POKE Z,STACK:GOTO 2100:' ****** RETURN KEY ****** 1270 IF A$=UP$ THEN C=94 :GOTO 1590:' ****** CURSOR UP ****** 1280 IF A$=DOWN$ THEN C=118 :GOTO 1700:' ****** CURSOR DOWN ****** 1290 IF A$=RIGH$ THEN C=62 :GOTO 1810:' ****** CURSOR RIGHT ****** 1300 IF A$=LEF$ THEN C=60 :GOTO 1960:' ****** CURSOR LEFT ****** 1310 IF A$=CHR$(21) AND STACK<128 THEN STACK=STACK+128:POKE Z,STACK:GOTO 1510:' ****** UNDERLINING ****** 1320 IF A$=CHR$(21) AND STACK>=128 THEN STACK=STACK-128:POKE Z,STACK:GOTO 1510:' ****** UNDERLINING ****** 1327 ' 1328 ' ****** SELECT GRAPHIC CHARACTER ROUTINE ****** 1329 ' 1330 IF A$=CHR$(7) THEN GOSUB 2580:GOTO 1440 1340 A=ASC(A$) 1350 IF X>31 THEN X=0 1360 ' 1370 ' ****** CHECK IF INPUT IS GRAPHIC ****** 1380 ' 1390 IF A=27 THEN A=X:X1=X:X=X+1:POKE Z,A:GOTO 1200 1400 IF A=9 THEN A=X1 1410 ' 1420 ' ****** CHECK LEFT MARGIN AND RIGHT MARGIN ****** 1430 ' 1440 Z1=Z-61440! :'*** Z1=VIDEOSTART + SUMME DER SPALTEN *** 1450 IF C=60 THEN IF Z1/128=INT(Z1/128) THEN STACK=PEEK(Z):POKE Z,A:GOTO 1200 1460 IF C=62 THEN IF (Z1-79)/128=INT((Z1-79)/128) THEN STACK=PEEK(Z):POKE Z,A:GOTO 1200 1470 POKE Z,A 1480 ' 1490 ' ****** MOVE CURSOR ****** 1500 ' 1510 IF C=94 AND Z-127>B THEN Z=Z-128:STACK=PEE K(Z):POKE Z,C:GOTO 1200 1520 IF C=118 AND Z+128B THEN Z=Z-1:STACK=PEEK(Z):POKE Z,C:GOTO 1200 1550 GOTO 1200 1560 ' 1570 ' ****** CURSOR UP ROUTINE ****** 1580 ' 1590 IF Z-128C THEN 1640 1610 POKE Z,STACK 1620 Z=Z-128 1630 STACK=PEEK(Z) 1640 C1=C 1650 POKE Z,C 1660 GOTO 1200 1670 ' 1680 ' ****** CURSOR DOWN ROUTINE ****** 1690 ' 1700 IF Z+128>E THEN GOTO 1200 1710 IF C1<>C THEN 1750 1720 POKE Z,STACK 1730 Z=Z+128 1740 STACK=PEEK(Z) 1750 C1=C 1760 POKE Z,C 1770 GOTO 1200 1780 ' 1790 ' ****** CURSOR RIGHT ROUTINE ****** 1800 ' 1810 IF Z+1>E THEN 1200 1820 IF C1<>C THEN 1880 1830 Z1=Z-61440! 1840 IF Z1=RM THEN 1200 1850 POKE Z,STACK 1860 Z=Z+1 1870 STACK=PEEK(Z) 1880 C1=C 1890 Z1=Z-61440! 1900 IF (Z1-79)/128=INT((Z1-79)/128) THEN RM=Z1 1910 POKE Z,C 1920 GOTO 1200 1930 ' 1940 ' ****** CURSOR LEFT ROUTINE ****** 1950 ' 1960 IF Z-1C THEN 2050 2010 Z1=Z-61440! 2014 IF Z1=LM THEN GOTO 1200 2020 POKE Z,STACK 2030 Z=Z-1 2040 STACK=PEEK(Z) 2050 C1=C 2060 Z1=Z-61440! 2070 IF Z1/128=INT(Z1/128) THEN LM=Z1 2080 POKE Z,C 2090 GOTO 1200 2097 ' 2098 ' ****** CREATE A Z80 LANGUAGE FILE (FILENAME.MAC) ****** 2099 ' 2100 RESET : IF CREA$="Z" OR CREA$="z" THEN CHAIN MERGE "WI3Z80.OVR",5000,ALL 2102 ' 2103 ' ****** CREATE A BASIC FILE (FILENAME.BAS) ****** 2104 ' 2105 IF CREA$="B" OR CREA$="b" THEN CHAIN MERGE "WI3BAS.OVR",5000,ALL 2109 GOTO 5000 2110 PRINT 2120 INPUT "enter beginning line number (default is 50000): ";LN 2130 PRINT 2140 IF LN=0 THEN LN=50000 2150 INPUT "increment between line numbers (default is 1): ";IC 2160 IF IC=0 THEN IC=1 2170 RETURN 2180 POKE 61546!,127 2190 I1=0 2200 FOR I=61802! TO 63722! STEP 256 2210 POKE I,I1 2220 I1=I1+1 2230 NEXT I 2240 FOR I=61550! TO 63726! STEP 256 2250 POKE I,I1 2260 I1=I1+1 2270 NEXT I 2280 FOR I=61554! TO 63730! STEP 256 2290 POKE I,I1 2300 I1=I1+1 2310 NEXT I 2320 FOR I=61558! TO 63224! STEP 256 2330 POKE I,I1 2340 I1=I1+1 2350 NEXT I 2360 I=63978!:K=I+13:I1=I 2370 RETURN 2380 I=I1+128:K=I+11:I1=I 2390 RETURN 2400 I=I1+128:K=I+12:I1=I 2410 RETURN 2420 I=I1+128:K=I+13:I1=I 2430 RETURN 2440 I=I1+128:K=I+5:I1=I 2460 RETURN 2580 PRINT CHR$(&H1B)+"S"+CHR$(32)+CHR$(108); 2590 I=61545! 2600 POKE I,(PEEK(I)+128) 2610 A$=INKEY$:IF A$="" THEN 2610 2620 PRINT CHR$(&H1B)+"S"+CHR$(32)+CHR$(108); 2630 IF A$=CHR$(13) THEN PRINT CHR$(&H1B)+"="+CHR$(32)+CHR$(32);:GOTO 2870 2640 IF A$=DOWN$ THEN 2680:' ****** V ****** 2650 IF A$=UP$ THEN 2730:' ****** ^ ****** 2660 IF A$=RIGH$ THEN 2780:' ****** > ****** 2670 IF A$=LEF$ THEN 2820:' ****** < ****** 2680 IF I=63721! OR I=63725! OR I=63729! THEN 2610 2690 POKE I,(PEEK(I)-128) 2700 I=I+256! 2710 POKE I,(PEEK(I)+128) 2720 GOTO 2610 2730 IF I=61545! OR I=61549! OR I=61553! THEN 2610 2740 POKE I,(PEEK(I)-128) 2750 I=I-256! 2760 POKE I,(PEEK(I)+128) 2770 GOTO 2610 2780 POKE I,(PEEK(I)-128) 2790 I=I+4! 2800 POKE I,(PEEK(I)+128) 2810 GOTO 2610 2820 IF I<=LR THEN 2610 2830 POKE I,(PEEK(I)-128) 2840 I=I-4! 2850 POKE I,(PEEK(I)+128) 2860 GOTO 2610 2870 POKE I,(PEEK(I)-128) 2880 A=PEEK(I+1) 2890 X1=A 2900 PRINT CHR$(&H1B)+"S"+CHR$(32)+CHR$(32) 2910 RETURN 2920 IF CUR$="W" OR CUR$="w" THEN 2990 2930 IF CUR$="S" OR CUR$="s" THEN 3040 2940 UP$=CHR$(11) 2950 DOWN$=CHR$(10) 2960 RIGH$ =CHR$(12) 2970 LEF$ =CHR$(8) 2980 RETURN 2990 UP$=CHR$(5) 3000 DOWN$=CHR$(&H18) 3010 RIGH$ =CHR$(4) 3020 LEF$ =CHR$(&H13) 3030 RETURN 3040 UP$=CHR$(5) 3050 DOWN$=CHR$(&H18) 3060 RIGH$ =CHR$(4) 3070 LEF$ =CHR$(8) 3080 RETURN 3110 PRINT:PRINT "Please wait!":FOR I=1 TO 500 :NEXT I 3115 FILUP$=FILUP$+".BAS" 3120 OPEN "I",#1,FILUP$ 3130 INPUT #1,DAT1$ 3140 IF VAL(LEFT$(DAT1$,5))<>50002 THEN 3130 3145 PRINT CLS$ 3150 IF VAL(LEFT$(DAT1$,5))>255 THEN DAT1$=MID$(DAT1$,12) 3152 POKE (61440!),(VAL(DAT1$)) 3154 ONECHAR=1 3156 'ON ERROR GOTO 3300 3160 FOR K=0 TO 23 3170 FOR I=0 TO 79 3174 IF ONECHAR=1 THEN ONECHAR=0:GOTO 3230 3180 INPUT #1,DAT1$ 3190 IF VAL(DAT1$)>255 THEN DAT1$=MID$(DAT1$,12) 3210 POKE (I+K*128+61440!),(VAL(DAT1$)) 3230 NEXT I 3240 NEXT K 3245 CLOSE #1 3250 RETURN 3300 'RESUME 3230 3500 PRINT CLS$ 3510 PRINT CHR$(&H1B)+CHR$(&H29);"WI3GRAPH GRAPHIC FOR THE OSBORNE 1 by Romanus Wille" 3520 PRINT CHR$(&H1B)+CHR$(&H28) 3530 PRINT 3540 RETURN 59999 END ) 3010 RIGH$ =CHR$(4) 3020 LEF$ =CHR$(&H13) 3030 RETURN 3040 UP$=CHR$(5) 3050 DOWN$=CHR$(&H18) 3060 RIGH$ =CHR$(4) 3070 LEF$ =CHR$(8) 3080 RETURN 3110 PRINT:PRINT "Please wait!":FOR I=1 TO 500 :NEXT I 3115 FILUP$=FILUP$+".BAS" 3120 OPEN "I",#1,FILUP$ 3130 INPUT #1,DAT1$ 3140 IF VAL(LEFT$(DAT1$,5))<>50002 THEN 3130 3145 PRINT CLS$ 3150 IF VAL(LEFT$(DAT1$,5))>255 THEN !WI3GRAPH.DOC by Romanus Wille Th progra WI3GRAPH.BA base o th SCREENWRITE progra whic i writte b Jac Walrave (Th Portabl Companion April/Marc 1983 pp 53) I work wel o th Osborn RO͠ 1.44 n blinkin cursor) The program is divided into several parts: WI3GRAPH.BAS (the main part of the program) WI3HLP.OVR (a short description of the functions) WI3BAS.OVR (an overlay to create BASIC files) WI3Z80.OVR (an overlay to create files with Z80 mnemonics) WI3GRAPH.DOC (this file) Al file (excep WI3GRAPH.DOC mus b o th defaul drive sugges tha yo mak cop o MBASIC.CO an al WI*. t ne formatted disk. The command to start the graphic program is: MBASIC WI3GRAPH ; = RETURN key Before you paint on the screen you have to answer some questions. 1.Yo hav t tel th progra th nam o th fil t whic th pictur i save Th extensio i mad b th program. 2. Yo hav t selec th curso interpretation D yo hav CP/ curso o WordSta curso o M Guerra' Specia curso (mad b FK.COM). 3. D yo wan t sav th pictur i BASI o i Z8 languag program I you' lik t mak correction o addition i future sav i a BASI progra wit 5000 a th startin lin numbe (defaul lin number) I you' lik t hav Z8 languag progra pleas specif a addres (fo bloc movin comman LDIR suc a 0A000H I yo lik t cal severa picture durin BASI program yo hav t choos differen addresses Ho ca yo calculat th addresse s tha th picture don' overlap? WI3GRAPH.BA use 2 line o OSBORNE' screen Eac lin i 128 lon (maximum) Thi give tota capacit o 307 byte o 0C00 bytes A yo kno th CC start a 0CB00 (RO 1.44) S th highes addres shoul b 0BE00H Th secon pictur shoul the b a 0B100H 4. I you' lik t mak a updat o a ol picture yo ma d s now. B careful wit th RETUR key Thi wil sto th progra an create the picture file. CURSOR CONTROL AND ALPHA-NUMERICS Us th arro key t mov th curso t th desire position Th curso wil sho wha directio i wil move Us th alpha- numeri key t layou th scree forma an message. GRAPHICS! Us ^ o th ESC-ke t selec graphi character I yo us ^G th scree scroll an yo se al graphi character tha ar possible Th curso appear a th lef sid o on graphi character Yo ca mov th curso usin th curso key t an othe graphi character Afte th curso reache th characte you'v desired hi th RETUR ke t ge it Th scree scroll bac an th selecte graphi characte i no o th screen. Us th TA ke t continu drawin tha graphi characte i th directio yo indicate wit th arrow-keys Th TA ke hold alway th las graphi character. I you' lik t writ o th screen us th keyboar a usual Pleas notic tha yo ar abl t writ i an directio (loo a th cursor). Us ^ t underlin character o spaces (any direction). Whe you desig i completed hi th RETURN key. Th progra wil the rea (peek you desig i vide memory writ a ASSEMBLE (.MAC o BASI (.BAS progra an sav i i sequentia file whic yo the CAL o MERG wit an o you program (jus mak sur tha th lin number don' overlap) Don' b worrie abou th delet character (CHR$(127) whic appea o th screen Th delet character shows you, where the program is reading. The BASIC program you've created is used as usual. I you'v selecte Z8 program yo hav t loo a th .MA fil (fo exampl TESTBAS.MAC us WordStar mode) Yo wil se somethin lik th following: .Z80 ASEG ORG 100H HORG EQU 0A000H ;<----here is the address you specified STROUT EQU 9 BDOS EQU 5 CONOUT EQU 2 WSTART EQU 0 LD HL,BANF LD DE,HORG LD BC,ENDE-START LDIR JP START JP WSTART BANF: .PHASE HORG START: ; LD DE,CLEAR ;CLEAR SCREEN ROUTINE LD C,STROUT CALL BDOS ; LD HL,LINE2 LD DE,61568 LD BC,80 LDIR ; ; and so on ( MORE BLOCK MOVE COMMANDS POSSIBLE ) ; LD HL,LINE18 LD DE,63616 LD BC,80 LDIR ; JP EN CLEAR: DB 1AH,'$' LINE2: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 ; ;and so on ( MORE LINES POSSIBLE ) ; LINE18: DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 DB 127,127,127,127,127,127,"127,127,127,127,127,127,127,127,127,127,127,127,127,127 DB 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,32 DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 ; ;EN: RET EN: CALL BDOS ; ENDE: NOP .DEPHASE NOP END You have to look at four lines. At first: JP START JP WSTART then: ;EN: RET EN: CALL BDOS I you' lik t cal th pictur b BASI program yo ma chang th line JP START into JР STAR (thi mean yo won' se th pictur whe you execute TESTBAS.COM) but you have to change the lines ;EN: RET EN: CALL BDOS into EN: RET (because MBASIC needs a RET) ;EN: CALL BDOS T chang th .MA fil int .CO fil us Microsoft' M80.CO an L80.COM: M80 TESTBAS,=TESTBAS this means: use TESTBAS.MAC and create TESTBAS.REL L80 TESTBAS,TESTBAS/N/E this means: use TESTBAS.REL and create TESTBAS.COM Afte tha tes you TESTBAS.COM T tes b callin fro BASIC yo hav t d th following: TESTBAS MBASIC /M:&HA000 /M: is the save RAM function of MBASIC it saves RAM above &HA000, if the address you've specified is &HA000 RUN"CALLPROG" I yo hav an suggestion o questions pleas dro m line M address: Romanus Wille E.-Mueller-Weg 15 D-2081 Prisdorf West - Germany Prisdorf 16 March 1986 END OF DOCUMENT T chang th .MA fil int .CO fil us Microsoft' M80.CO an L80.COM: M80 TESTBAS,=TESTBAS this means: use TESTBAS.MAC and create TESTBAS.REL L80 TESTBAS,TESTBAS/N/E this means: use TESTBAS.REL and create T10 ' 20 ' ****** PROGRAM FOR TESTING THE PICTURE ****** 30 ' ****** THAT IS SAVED IN Z80 LANGUAGE ****** 40 ' ****** PRODUCED BY WI3GRAPH.BAS ****** 50 ' 60 INPUT "ADDRESS (for example &HA000) ";ADR 70 CALL ADR 80 GOTO 60 90 END LETX DAT_`aLETY DATbcLETZ DATdefLET[ DATghiTESTBAS BAS:jklmnopqTESTBAS COMrsTESTBAS MAC:tuvwxyz{TESTBAS REL|}~TESTMAC COMTESTMAC MAC:TESTMAC RELWI3GRAPHBASMWI3GRAPHDOC6CALLPROG$$$DISK.DOC by Romanus Wille April, 1986 Thi dis contain graphi progra fo th OSBORN 1 Th complet package consists of: WI3GRAPH.BAS (the main part of the program) WI3HLP.OVR (a short description of the functions) WI3BAS.OVR (an overlay to create BASIC files) WI3Z80.OVR (an overlay to create files with Z80 mnemonics) WI3GRAPH.DOC (a description of the program) TESTBAS.BAS (a BASIC file that contains a picture) TESTBAS.MAC (a Z80 mnemonics file, prepared for) TESTBAS.REL (a call from a BASIC file (address=&HA000)) TESTBAS.COM (execute this first) TESTMAC.MAC (a Z80 mnemonics file, prepared for use) TESTMAC.REL (within CP/M) TESTMAC.COM (execute this file) CALLPROG.BAS (start this program to test TESTMAC.COM) Try it and have fun!  April, 1986 Thi dis contain graphi progra fo th OSBORN 1 Th complet package consists of: WI3GRAPH.BAS (the main part of the program) WI3HLP.OVR (a short description of the functions) WI3BAS.OVR (an overlay to create BASIC files) WI3Z80.OVR (an overlay to create files with Z80 mnemonics) WI3GRAPH.DOC (a description of the program) TESTBAS.BAS (a BASIC file that contains a picture) TESTBAS.MAC (a Z80 mnemonics file, prepared for) TESTBAS.REL (a call from a BASIC file (address=&HA000)) TESTBAS.COM (execute this first) TESTMAC.MAC (a Z80 mnemonics file, prepared for use) TESTMAC.REL (within CP/M) TESTMAC.COM (execute this file) CALLPROG.BAS (start this program to test TESTMAC.COM) Try it and have fu#5000 ' 5010 '***** READ (PEEK) SCREEN AND WRITE BASIC PROGRAM ***** 5020 '***** AND SAVE FILE TO DISK ***** 5030 ' 5040 TEXT1$ = "FOR K=0 TO 23 :FOR I=0 TO 79: READ A:POKE I+K*128+61440!,A:NEXT I:NEXT K" 5045 ANFANG = 0 5050 ENDE = 79 5060 PR$="" 5070 OPEN "O",#1,F$ 5075 ' 5080 ' ****** IF YOU DON'T LIKE TO CLEAR SCREEN BEFORE PAINTING ****** 5085 ' ****** ON THE SCREEN, DELETE THE NEXT 2 LINES OR CHANGE ****** 5086 ' ****** THEM TO REMARK LINES ****** 5087 ' 5090 PR$=STR$(LN)+" PRINT CHR$(&H1A)":LN=LN+IC 5100 PRINT #1,PR$ 5110 PR$=STR$(LN)+" "+TEXT1$ 5120 PRINT #1,PR$ 5130 LN=LN+IC 5140 PR$="" 5145 ' 5146 ' ****** PEEK THE CHARACTERS FROM THE SCREEN ****** 5147 ' ****** AND WRITE THE CODE TO DISK ****** 5148 ' 5150 FOR K=0 TO 23 5160 FOR N=ANFANG TO ENDE 5170 Z=N+K*128+61440! 5180 T%=PEEK(Z) 5190 POKE Z,127 5200 T$=MID$(STR$(T%),2) 5210 IF LEN(PR$)<52 THEN PR$=PR$+T$+",":GOTO 5240 5220 PR$=STR$(LN)+" DATA "+PR$+T$ 5230 PRINT #1,PR$:LN=LN+IC:PR$="" 5240 NEXT N 5250 NEXT K 5260 IF PR$="" THEN 5280 5270 PR$=STR$(LN)+" DATA "+PR$+"32,32" 5280 PRINT #1,PR$:LN=LN+IC 5300 PRINT #1,PR$ 5310 PRINT CLS$ 5320 PRINT:PRINT "YOUR DESIGN: ";F$;" HAS BEEN SAVED TO DISK" 5330 ' 5340 GOTO 59999:' ****** END OF PROGRAM ******  THE SCREEN, DELETE THE NEXT 2 LINES OR CHANGE ****** 5086 ' ****** THEM TO REMARK LINES ****** 5087 ' 5090 PR$=STR$(LN)+" PRINT CHR$(&H1A)":LN=LN+IC 5100 PRINT #1,PR$ 5110 PR$=STR$(LN)+" "+TEXT1$ 5120 PRINT #1,PR$ 5130 LN=LN+IC 5140 PR$="" 5145 ' 5146 ' ****** PEEK THE CHARACTERS FROM THE SCREEN ****** 5147 ' ****** AND WRITE THE CODE TO DISK ****** 5148 ' 5150 FOR K=0 TO 23 5160 FOR N=ANFANG TO ENDE 5170 Z=N+K*128+61440! 5180 T%=PEEK(Z) 5190 POKE Z,127 5200 T$=MID$(STR$(T%),2) 5210 IF LEN(PR$)<52 THEN PR$=PR$+T$+",":GOTO 5240 5220 PR$=STR$(LN)+" DATA "+PR$+T$ 5230 P5000 PRINT CLS$ 5010 ' 5020 '***** ERKL[RUNGEN ***** 5030 ' 5040 PRINT CHR$(&H1B)+CHR$(&H6C);"CURSOR CONTROL AND ALPHA-NUMERICS";CHR$(&H1B)+CHR$(&H6D) 5050 PRINT CHR$(&H1B)+CHR$(&H29); 5060 PRINT "Use the arrow keys to move the cursor to the desired position. The " 5070 PRINT "cursor will show what direction it will move. Use the alpha-numeric " 5080 PRINT "keys to layout the screen format and message." 5090 ' 5100 PRINT CHR$(&H1B)+CHR$(&H28); 5110 PRINT 5120 PRINT CHR$(&H1B)+CHR$(&H6C);"GRAPHICS!";CHR$(&H1B)+CHR$(&H6D);CHR$(&H1B)+CHR$(&H29) 5130 PRINT "Use ^G or the ESC-key to select a graphic character. Use the TAB-key " 5140 PRINT "to continue drawing that graphic in the direction you indicated with " 5150 PRINT "the arrow-keys. Use ^U to underline characters or spaces." 5160 ' 5170 PRINT "When your design is completed, hit the enter-key. The program will then " 5180 PRINT "read (peek) your design in video memory, write an ASSEMBLER (.MAC) " 5190 PRINT "or a BASIC program and save it in a sequential file, which you " 5200 PRINT "then CALL or MERGE with any of your programs (just make sure that " 5210 PRINT "the line numbers don't overlap)." 5220 PRINT "Use Microsoft's M80.COM and L80.COM to create .COM files wich moves " 5230 PRINT "the graphic subroutine to the address you specify." 5240 PRINT CHR$(&H1B)+CHR$(&H28) 5250 PRINT:PRINT "press any key to begin"; 5260 Y$=INPUT$(1) 5270 GOTO 260 S!";CHR$(&H1B)+CHR$(&H6D);CHR$(&H1B)+CHR$(&H29) 5130 PRINT "Use ^G or the ESC-key to select a graphic character. Use the TAB-key " 5140 PRINT "to continue drawing that graphic in the direction you indicated with " 5150 PRINT "the arrow-keys. Use ^U to underline characters or spaces." 5160 ' 5170 PRINT "When your design is completed, hit the enter-key. The program will then " 5180 PRINT "read (peek) your design in video memory, write an ASSEMBLER (.MAC) " 5190 PRINT "or a BASIC program and save it in 5000 ' 5010 ' ****** CREATE Z80 LANGUAGE CODE ****** 5020 ' 5030 OPEN "O",#2,F2$ 5040 FOR I=0 TO 23 5050 MA$(I,0)="LINE"+MID$(STR$(I+1),2) 5060 NEXT I 5070 W1=61440! 5080 ' 5090 ' ***IN (I,0) STORE LINEX; IN (I,1) DB 5100 ' 5110 FOR I=0 TO 23 5120 MA$(I,1)=MID$(STR$(W1),2) 5130 W1=W1+128 5140 NEXT I 5150 CU=0:CV=0 5160 ' 5170 ' ****** EQUATES UND MOVE-ANWEISEUNGEN ****** 5180 ' 5190 GOSUB 5640 5200 ' 5210 ' ****** CLEAR SCREEN ROUTINE ****** 5220 ' 5230 GOSUB 5830 5240 FOR L=0 TO 23 5250 NURBLANK=0 5260 ' 5265 ' ****** PREPARE LDIR COMMANDS ****** 5270 ' 5280 PR$(CU,0)=" LD HL,"+MA$(L,0) : CU=CU+1 5290 PR$(CU,0)=" LD DE,"+MA$(L,1) : CU=CU+1 5300 PR$(CU,0)=" LD BC,80" : CU=CU+1 5310 PR$(CU,0)=" LDIR" : CU=CU+1: LAB=LAB+1 5320 PR$(CU,0)=";" : CU=CU+1 5330 PR$(CV,1)=MA$(L,0)+":" : CV=CV+1 5340 P=0 5350 FOR N=0 TO 79 5360 Z=N+VAL(MA$(L,1)) 5370 T%=PEEK(Z) 5380 POKE N+VAL(MA$(L,1)),127 5390 T$=MID$($STR$(T%),2) 5400 IF P<19 THEN 5480 : '** DB-BEREICH FORMATIERUNG 5410 PRT$=PRT$+T$ 5420 IF PRT$=BLANK$ THEN NURBLANK=NURBLANK+1 :'** BEI NURBLANK=4 IST DIE GANZE ZEILE LEER 5430 IF N=20 THEN PR$(CV,1)=" DB "+PRT$ ELSE PR$(CV,1)=" DB "+PRT$ 5440 CV=CV+1 5450 IF NURBLANK=4 THEN CU=CU-5:CV=CV-5 5460 PRT$="" 5470 GOTO 5490 5480 PRT$=PRT$+T$+"," : '** DB-ZEILE WIRD ERSTELLT 5490 IF P=19 THEN P=0 ELSE P=P+1 5500 NEXT N 5510 NEXT L 5520 FOR I=0 TO CU-1 5530 PRINT #2,PR$(I,0) 5540 NEXT I 5550 FOR K=0 TO CV-1 5560 PRINT #2,PR$(K,1) 5570 NEXT K 5580 PRINT #2,";":PRINT #2,";EN: RET":PRINT #2,"EN: CALL BDOS":PRINT #2,";" 5590 PRINT #2,"ENDE: NOP":PRINT #2," .DEPHASE":PRINT #2," NOP":PRINT #2," END":PRINT #2,"" 5600 CLOSE #2 5610 PRINT:PRINT:PRINT:PRINT:'PRINT CLS$ 5620 PRINT:PRINT "YOUR DESIGN: ";F2$;" HAS BEEN SAVED TO DISK" 5630 END:' **** ENDE PROGRAMM **** 5640 PRINT #2," .Z80" 5650 PRINT #2," ASEG" 5660 PRINT #2," ORG 100H" 5670 PRINT #2,"HORG EQU "+HEXADR$ 5680 PRINT #2,"STROUT EQU 9" 5690 PRINT #2,"BDOS EQU 5" 5700 PRINT #2,"CONOUT EQU 2" 5710 PRINT #2,"WSTART EQU 0" 5720 PRINT #2," LD HL,BANF" 5730 PRINT #2," LD DE,HORG" 5740 PRINT #2," LD BC,ENDE-START" 5750 PRINT #2," LDIR" 5760 PRINT #2," JP START" 5770 PRINT #2," JP WSTART" 5780 PRINT #2,"BANF:" 5790 PRINT #2," .PHASE HORG" 5800 PRINT #2,"START:" 5810 PRINT #2,";" : LAB=1 5820 RETURN 5830 PRINT #2," LD DE,CLEAR ;CLEAR SCREEN ROUTINE" 5840 PRINT #2," LD C,STROUT" 5850 PRINT #2," CALL BDOS" 5860 PR$(CV,1)=" JP EN": CV=CV+1 5865 PR$(CV,1)="CLEAR: DB 1AH,'$'": CV=CV+1 5870 PRINT #2,";" 5880 RETURN  5700 PRINT #2,"CONOUT EQU 2" 5710 PRINT #2,"WSTART EQU 0" 5720 PRINT #2," LD HL,BANF" 5730 PRINT #2," LD DE,HORG" 5740 PRINT #2," LD BC,ENDE-START" 5750 PRINT #2," LDIR" 5760 PRINT #2," JP START" 5770 PRINT #2," JP WSTART" 5780 PRINT #2,"BANF:" 5790 PRINT #2," .PHASE HORG" 5800 PRINT #2,"START:" 5810 PRINT #2,";" : LAB=1 5820 RETURN 5830 PRINT #2," LD DE,CLEAR ;CLEAR SCREEN ROUTINE" 5840 PRINT #2," LD C,STROUT" 5850 PRINT #2," CALL BDOS" 5860 PR$(CV,1)=" JP EN": CV=CV+1 5865 PR$(CV,1)="CLEAR: DB 1AH,'$'": CV=CV+1 5870 PRINT #2,";" This is the release date of the disk. CLAS6 FON {4FLETTERS u[*CFONT EXE \)$fCONVPRF EXE `$fDELFONTSHP Pn $DOWNLOADEXE %t^'BDSKSPACEEXE h,l%EFONT EXE \,JFANCFONTPRO tou(FFCONFIGEXE ]e@ as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Osborne 1 specific programs Source is included for most of these programs so that they can be modified for other% computers. Filename Description -06-00 .86 This is the release date of the disk. -CPM075 .DOC This is the description of the disk contents. ALPHA .BAS AEC5 1K [ALPHA 1 of 43] A simple MBasic game for children. This puts a large letter on screen every time the kids press a letter. Note that LET-LS.DAT must be renamed to LET[.DAT and LET-EQ.DAT must be renamed to LET=.DAT ALPHA .DOC E53D 1K [ALPHA 2 of 43] AUTOST .COM 2288 2K [ALPHA 3 of 43] HICLINT .DAT E743 3K [ALPHA 4 of 43] LET- .DAT 69AA 2K [ALPHA 5 of 43] LET0 .DAT D1C9 2K [ALPHA 6 of 43] LET1 .DAT EA3E 1K [ALPHA 7 of 43] LET2 .DAT 8E03 2K [ALPHA 8 of 43] LET3 .DAT E9FB 2K [ALPHA 9 of 43] LET4 .DAT CF8A 2K [ALPHA 10 of 43] LET5 .DAT 7EA9 2K [ALPHA 11 of 43] LET6 .DAT 5F47 2K [ALPHA 12 of 43] LET7 .DAT 00B7 1K [ALPHA 13 of 43] LET8 .DAT 70EB 3K [ALPHA 14 of 43] LET9 .DAT 7C8F 2K [ALPHA 15 of 43] LET-EQ .DAT 1501 2K [ALPHA 16 of 43] Rename to LET+.DAT before using. LETA .DAT B00D 3K [ALPHA 17 of 43] LETB .DAT D5A0 3K [ALPHA 18 of 43] LETC .DAT F659 2K [ALPHA 19 of 43] LETD .DAT 6BC6 2K [ALPHA 20 of 43] LETE .DAT 8CD0 3K [ALPHA 21 of 43] LETF .DAT 139C 2K [ALPHA 22 of 43] LETG .DAT 4A94 3K [ALPHA 23 of 43] LETH .DAT C177 3K [ALPHA 24 of 43] LETI .DAT BB00 2K [ALPHA 25 of 43] LETJ .DAT A37D 3K [ALPHA 26 of 43] LETK .DAT 2DF2 3K [ALPHA 27 of 43] LETL .DAT 2920 2K [ALPHA 28 of 43] LETM .DAT E08C 3K [ALPHA 29 of 43] LETN .DAT 7C9E 3K [ALPHA 30 of 43] LETO .DAT 2F3B 3K [ALPHA 31 of 43] LETP .DAT 5430 3K [ALPHA 32 of 43] LETQ .DAT 26B7 3K [ALPHA 33 of 43] LETR .DAT 1078 3K [ALPHA 34 of 43] LETS .DAT B70A 3K [ALPHA 35 of 43] LETT .DAT 86F3 2K [ALPHA 36 of 43] LETU .DAT 5169 2K [ALPHA 37 of 43] LETV .DAT C368 3K [ALPHA 38 of 43] LETW .DAT 14E7 3K [ALPHA 39 of 43] LETX .DAT 1438 3K [ALPHA 40 of 43] LETY .DAT 7D62 2K [ALPHA 41 of 43] LETZ .DAT 47A6 3K [ALPHA 42 of 43] LET-LS .DAT 9D54 3K [ALPHA 43 of 43] Rename to LET[.DAT before using. WI3GRAPH.BAS 62D2 10K [Osborne 1 Graphics 1 of 14] A complete graphics program for the Osborne 1 computer. Also included here are examples of calling Z80 mnemonics from MBasic, etc. Some source is included. A definite must for those interested in either graphics or programming. WI3GRAPH.DOC 6A64 7K [Osborne 1 Graphics 2 of 14] DISK .DOC C923 2K [Osborne 1 Graphics 3 of 14] WI3HLP .OVR 87F0 2K [Osborne 1 Graphics 4 of 14] WI3BAS .OVR FE72 2K [Osborne 1 Graphics 5 of 14] WI3Z80 .OVR 805A 4K [Osborne 1 Graphics 6 of 14] TESTBAS .BAS 639C 8K [Osborne 1 Graphics 7 of 14] TESTBAS .MAC D9AE 8K [Osborne 1 Graphics 8 of 14] TESTBAS .REL 6864 3K [Osborne 1 Graphics 9 of 14] TESTBAS .COM 5BD8 2K [Osborne 1 Graphics 10 of 14] TESTMAC .MAC 8AE0 8K [Osborne 1 Graphics 11 of 14] TESTMAC .REL 9AA7 3K [Osborne 1 Graphics 12 of 14] TESTMAC .COM E92F 2K [Osborne 1 Graphics 13 of 14] CALLPROG.BAS 9349 1K [Osborne 1 Graphics 14 of 14]  [ALPHA 29 of 43] LETN .DAT 7C9E 3K&'