From NISC.SRI.COM!unix!hplabs!hp-sdd!cs.utexas.edu!uunet!cs.dal.ca!dal1!mlarken Thu Apr 5 04:18:12 PDT 1990 Article 750 of comp.binaries.apple2: Path: NISC.SRI.COM!unix!hplabs!hp-sdd!cs.utexas.edu!uunet!cs.dal.ca!dal1!mlarken >From: mlarken@ac.dal.ca Newsgroups: comp.binaries.apple2 Subject: Polytris -- Tetris for //'s (Part 1 of 2) Summary: BASIC version of the Tetris arcade game Keywords: Tetris Message-ID: <1403@ac.dal.ca> Date: 3 Apr 90 01:37:45 GMT Lines: 261 Organisation: Dalhousie University, Halifax, Nova Scotia, Canada FiLeStArTfIlEsTaRt ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789() LPOLYTRIS.SHK AQz1AAAACA(4cIAgAAAAAAAAAAAAAADAAAoN GVvTlzW6DMSzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA GVvTRYI2AAAQAEAABAAAA8CAAAw4AQAAAAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAMAAAPBFAUlFTTlkUPRkLAIwQAAgAAAAAAoAcGYGAaAAAbDwZ BkwvMA02FaP2AOoQEgvAnDMpQE0yCFRCEEfAQMBBQBUWFESAQIBRyDxUnHcACScY Gs0IQAKJHOYZ8CaBHOZY0wpjgD0cGEBBw0JhQP8NGPfS3gYDWSjZTmYs6gQBAqMa nMEmysBjAreLnlS4ygBTE(sUGPVaPiQBADEdmMRYGw5zQpuamEcBpqRzaXKU2PQS xiQDK2JZ2PZqoqhTYGEPHMXKGvBhT1wTiPenCAcZ0K9UHtZWnGWLU7deGFdAyolb s5tcGORN30VTia6ZnOQC04MT4jubmnS7e6RDL8RO8mQp3wZAka(cmOcEkkN7POUS GPpN0IWdq72bVqVKc3VD8esUcyd2inhTKAKKHnT1kqZaIVeeVrSBGsZzTbTZHwT6 xgpTJPNb(yLqFyyeqI6pDrCUDMCrqp9Jyo6A4rImF0wDOAZQoCLBz0qScDB326Y6 jDBQyhtJMAn0rApNn64QuLJ)OHRR1MKeohVE(HMwjqM2EIDDqCFRQju3Q0QrDojb apTDq0OmTSMEXE74yJRkkHjqNM8KKyzsFTjTOOvqw7Nw3AEabX3KEDjyuKseLDSu BBFsEgwptoCTMDayKAhMALGSyHIB)yqCDrixWqSK9mquk9LDxsD0DrJp(tTRnyOT qb5m5oMrtuqZaZQvN668yQ6rjU7ItDRzinTx(MIqi6sy5riIKIJuGbNRStESy1oS FzI0NtM5CotN56CPrpZ5xTNw1OFFUCDxEN6GYdsFd4wYgRi9CEBhEgmGabVABSoZ XIBBIABXgcDMtb7AHutdWUOtbkXXBcBkotQe398lTIfYolJBRpmYtfUDszAbsTlW 9EG1U1YJFmZhnukKD2qUpehyBQ7oo6t5NalFpjN0oQDjLFfT45uOdl6wqQXtKDxO JNESkR785DEOjsi(PL5VLN4ywscWs04E4C(WJLkWq8mYyYdzkeKVKPKWAuaKIRLh qe6FKB744yzz0StOBnD)otMjqNWYaD01azp1q6EyK5uuZ2ATjiw5qjTMPOE0mm6N ca7yP7J4K77JOvM87(SCjqiI0RIND)D5EQhKQSEFnogoC2n)oySiJKCk4QUKToLU UMIrAuLuqOCv65I(64T0wBtGPHGRvSBlD)BBj2yI7Bx1Yj6pkPMgyad0VTgCLTcX qLzLxwC2QLNOGAd2DMHlHZEQ(O8WXQlxcSo6DsGxyh9tsP0pnErlDub34h03uGtD qkrWCaYOK9Wz1DQ2aeTSKT5huDPppbkNIeaC(gThSFUVRuH2g7tGcEqlvUQDXJ8g mAPyNwDGZM1eeXnijeAcMcI(NTrFU7cgJokNdwW6fb5sWCJzpVivCyVSy5sAigpM EUQFTxDGipqaxviH5QgDYBCwlApzPHM8wIHPWp42lnBKOUUPbkenyJdddEAGKCAs dm1qTeLJKB1N5DqDAFsUtWAEpEc0RgOUCS8T9e5GcjAad0UwrQjFniUqx1cA(FV4 AWUlRRU1LBJICgMgcKeL0ZCYLAW8XYPcmAdO4PGZ0JBW60ZhIFAsDiqcYJXUWDjh wSGJCbdUTcDjBUAID0kD2eRQBJIsLFowewTl35ItZs6kpSUBUoNbWIJkhRQIYkkC e(kAo7DFMcYNkAeDE5FWMdChzQQAMEMckYvpz2hAKUpOyJ3ocPBuoMFHQrFyE5SY 8czwto5MJGEaCOACBBkBzz5ccRB3pUAMOFIDmKQCpkIM4CrHrA4RYNgqLBCym14L sjiNUSdSxXKCFNNIYISOD7Ric8bNnpCzU1JuINE)GE8vAiSMAZhgQMA0ItCbQlwr BYLDAHwAtQACAEYzfinSvT4)QQWDhekCNSK5nliBir8Pz0WGMLKlndQ4bMWkbKJy H4DpJHlPolww0YY5pgMAKG)HnwUUVtwHwgiSTIQaFCigBTRJIAUCcBhwgQIQFEMM CjwQEVYQ(uaVX1SIVqazDhlKh0dpJDbNCck4pe1mgJFAdVbMqcrBKzkmf7gkzxw8 hqLshTY8JOVjrkREqflm7ccnmE7h4qMkcb6IpZF0ZUVMBZpeEyOqr1BD8ZpncRJS NQpCq3BBgIbWUagm(2WsByg6xem3z1)67MsPQ7kH4QB4vYGpgVdBAK8cFChQ5nkC aocADfOqWRN)E9(T4OBSLyz2LdFcBlWAi)mK4kRH5YQJBJOGPCPAXgdbNf)vf83L OBQAYbU9Axh1AAAAAAQAAEAAjDwLAAAAAAA)IEAACAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAgAAM9EUSRVWCMVSAIAAAAAAnkBAdBAAAAwGAQYqPw22 yraAADQBNYIiAhDGgMAbhUJQeS4ZQIQgqk5yRVBZDIQKCEgwUnvJAiXgEFG4a8NE BmKMEBBoKBQiknYQpmFD5QDKySmkL3pYWXKiSncMKXi8YToBBDTK7QhjIBJDWwH) TmC1PV0O0yipSluLLzUpFOFr7wQqcWWjSJYFhml9khKKXyhcpAkrgHBahAQDo05a 6YIAX1Uz8QhoSDqeAoZpmQuU(nMBHPZwyGX8UDNAMYYV46JAhGZzdMQa04JAgCA0 TNQK8OhquBtYc3Q)7UWsA5uQRBQC(UaoKuvQUNcts2hzmAGAkqum7IFKcoDEHLMQ XuScIAvQenadkIGYAAmLRXAHI6xLYuAZ3BJo5lElh7CNCW)UC25IS)FuUjSAqeVS RoLAOMDAmkOMUwMAAWG6prIABoJBGGINwUkAAMGSRASVmQ5RACJmQatmJ8A(oAJT TlR5FFAnKY0FaAAUQBNBQ1QBRBGwMAVALQMipBBJwckbDGgCgDDk(KwgDwPKoBEU lgiPAhHDBZG6AxBaDcZpDEwiUOgGTYUUJhqJLIEgEEdV(3mEaAp68ahXuAoMylQN CBBSBUsAJJNEVRxpnGuCCCRNEcQOBYdO1ZYQAkCQWzFBAeYgBivIQFA4lAtH68iF jAROEUATtx4AAFB0DwkpTkKuBUTACtg0FgkvIAFAREB0JZPadARJDMWuIhpiqaAS YjZA0s5RBgEIIJknOTOgByMloghw0HF4W0mieYugV6p7ydYCiVnkIjVLd(UaLr9e U5pQoiJBIIEEESQGgBiYFAhQtWNXYHEkLEUBAFgaYU5ACQ0RCgWGQeIQRwAQWQAB lnkqJ5TnUScIxyQQrApgk3CXEZUnMAASWrjVelwiXGtwXM5XSIiYDrWBBQJBxoOa TA5JOmNEAjkbgJgBHE50ARTDkTOgCcRf2UWYPHhA6n9ofEaMY5IEbRIAkBIAagGB amBoBzUGBxZhmNoXYRWhEeOgAqIZkF4hHAoWcUhsFYcTZ6FalwjWRrjm6LVmEKR2 whpnToeQbALEMLgGaeQeGi8AQEhZJkoYyJ1FiTcK0R4KTlxyLEt3UQFBKUMMxA3Q DpQ5VEncKwZlQKYwroGLLqD54j7u4C1rdgBIB59QOG5xosZuYiiFBEIag8QrHEXR GiLmKl4mSISs5qELpnpAvJUOYDBP9Uy0Tj9GQUiPieGvMlHCcEYYBBGesTJgkCCW gPUBL0aYhZPeSOpIvk0zAqnAM9HoAIAuKc4(hS3UgxFFq7ggwRRcWMAAFAz3xh0F AQwPVPzAGcAANEBYjBkjIXaACPxBQ8AYECHhAjCTSOVCdDiCwQgAqcEuIGlWkA3W BfEJ4iFg2ZhUdIIFMmeyjpWA0wFRECDIhQE8GEmPEyUUgAKEIgCROqQwRRGeERcS hSTI8TghUQQomQEKJgroiAnQAgZF6b8Q)ja4fIKFHkG8xzNfYCxHkFAwiIYQAQhQ AqDP4oPEgLgii1YgWMA6kBA1j7WIB7rD)AwQ7M0YwABAgwLEC4fAH7gm427xEAAs HBccAgR88ZjAhdIRIVKSRAPoyjpGk9KC(mCg4US8OOG4OSYdXT4AcZkjYEwg2US( KCCGCSvBo6gCU6Ch81QAeIKGFitohheIAyGCOQAg4RKoRIjUBSURoUyCA6zWtXAx GFFzHAXhEN0HOBEAqUBJNJ44dEv2jj7mqA0OiTchoRYyYZAGHghDRr0GEWZTpwzw 6IQYIEk4iSxOQSiDWQwBRoIkLAIgBPwJ1a6c42FE5BRqAWI6HEqCOwOdA06HSCDA ohQMJAI4GAMYyJ5VYgHFBVBQlIUYKCmGFjTdgAFEKQBRVnQgTEQGAgEkAF6DALjl GERRJIIgKAmoDDETR01JIoioSEQECAARCjEDBS1PhIoDkNhAhgQ1AAFKDBsCAKKT WKDhIEgQEMM6FASEwAcB0iymj5hBkQwCCCpTEg2PAiAGGFbgPBIYTAMmqjqKhyOr IKhCOIgAZtKIAESo2AwY9RmCVA1iooYQTYMsHiBs7QSAA33Ko)1g7Em4JkgGDjZA wRaH8MxB(5gYcYNeFhS)ZBxOUenCm)xYwdEaGEQ3DB(UoX6E4moRwQQgCMAwAxDK BIXKwcXjMoRYFIAYkGp4mGGA6OWAinJkLoQIMkAqSrTREUQeCFxDmSVg6Rt6JQwy iD8cgCiGuMxCA4Q42AKRAhDhAwQICeEJ9mBQhAABKGk(iSsflIcHi8TBUBQYcMOw u2)vRJs)0MgCOQxIpsEwMAtD4zaUA)vRoFAi(hQRGfGJABTs8DhJ3uBzNUsQMWgb AG3CYONHogpVMAfpQoEU2CK0wglBRBmD4M6iTEsAAQUYwCjICjZZzQKAQFQxmczZ k0G4ECCCRwAHoD1BxdEO5YEgIPdciYHKoG9wQGQsUzYkMMA1AjBs4j9fI44DMFQ4 hXEoy2jEauiRmBJGmMjAJ1YTBMwcCAfpA7bKYuBhLTh0hAkaiFgQgAI8I(QEIPAs 2)YwfIYGVaHHimzhngjaY(ReoYF2XHNYq8EViQrzH8qRzmAgCNoKABTZr92gDOij HRNQIIQQoClpYBIlGUaAe8SAmMCERLEYBPw(lIeGYCTbZ50(ooJjICGWNE1pgYjH CyzGRwAkBMCQFSVcRAXOEzF3wfhAxAEiAiN3gjOZoAOcoFwWxCrMioB0HAA)AOgv j8XErFnT8Ew0vFE8DlBYAjcAoYCAcZwViLMQCDBTCbqAAtDBGqCYKBHSVIskAQ0U goozQKDGGoekJAIYchShRklFsyxLajuuqGcHSo8FdoxIHxEBemSEfORwOUCqzFWE RvatT0CCIvMpTEDuAGO3CgyvGvTF5bUa6ZVdGdFyFlccRBXiUujII5AqyUIaF4z9 sSwBNK)jszHKc9BAXcCw8AEYCZBDo0WgIMAAHwLgA(qJAwwFB2DHytjhsBYgBYAQ DHQIxAiAMz0jNowADIEUACqTgTSEwtwEwKQxx9QMdMIzAAh9Arwvs4HgKsAo)IAw PAHSjydFodvDezzg58IIOMOyECg8gQKP4wzDKwAYAgMWWFjshS6BAAQAknBQz0Xw 8PGVABVuwYQP4EjfKyPYZYEwJAOGDAGygitF0MAQeDAkAgwW(hAZEcQOm8DGmYAs JAAyMUIEJUAAqFAAYcJinAIk)RIkAQAqMQAsJEApGAM6IAMfUBIhI4A6UBMLQAIq Q8DXmAEENEIKWEAgWEMiZEAiaEIZaEMnbEMxcEMtaEAZgEEtYIMBYEM3fIMNgEIl bEE1jIMXgEEreIELkEMjZIMPfIMpdEM3fIEvsIMFpIEZeIEVwIEHoIMfyEM9pIM) wEM7tIEjrMEX1MMZkMENiMEDoEM5sIE7xMETvMExbIEd9IE3dMM)1IMhxMMz5MMt BRER3MMvrIMD1QELGJErENMz7MEBLRMHxIM)AFIbJREzQNMlfQEXWQEx9QE8mQM5 (QMNVNM5JNM3HREjWQErQ8AEr8BMmIAKQEAAmAAAnIASpIIKmEIAiIACAIAKxIIm 5MAedMAK0QKslNAmdYEZtVM4DEAgrBAAsBIFuZEvXYM3sZM8EEABQIAOhJICiEIB WYA2QIAf0JIspEABUAAAUIIgwMIYQMAyzMIC0MICQNIcoEoQ6EIS6MAShgMA3EIS 6MAc6cM8eZEaAIAHAMAGAIAiuNAihYMxnIAepIAOqIACmIAqkgM(pgM2dFICkcEP jIISpYLopgE0QIIKDcMEoZMemZMXeAIBxFA6vAINxJA((AALUkM8vEIA(UE2CcMW (EAaQEAajGAc1pMdfCIFkqETUEEZiKA(jGADvoM3QMA4QoE2BoEsvoM(1dMAfCAj dmEl0YER7MIe3EAA8MAKQMAo2MAExMIefMIWsAIA8AIA3YMQ3MAqQMAIsEIQnEAe (GASAvE9yIIZyMIsQMAY3MIo5EIAwMIo6OIk6MADZYMcaUCClVKCaEIB8uEsQsE1 0MIgxMIK5MIKetE4uTAD)Q4cxLIAFq7GCBAO35D4DBUCAMIguTABFSwIEhAYB4EM eTAQChwYG6ECgQAEDBMCAIIQpTAHDhIZC5MSB5ESD5D4q7M2BhIZxTJ(s7EJDBAF AAI4UQALn)MYCBIF2HAwGyDb8QAK17MmDhAZ)0EoxPI4aQwQ)4EmG0E(u)EYIQwK EBMCAMI0yTIJ0)Ej2vAXHMAR2LQhfLIxGyDnEVASGDYq7VIEJVIARpDuRcIMUpbv QdAgQCN(wVIEeGNQnXIEeGdI9VASQEFYYYYvptQ9RFF4fYIafYYRfUY9fUYpeUQV SVYTXEFQQJQVUQIkccY)UlYDmEFoEUAinUISRJdjCIF04XAAmElc1FdrmINsUdYV wAISQFVBeJNU1NlENVIEJINUqMNY7EYFTMdTRNF0lQAs9EQZYUYTdQNEgQFEiQNE nQNEUNdjBJAeSMVdqIVrsQNEIRNEUNNQJJFGiMdTURd5BJA8QAQBAFZAiLWTqy16 sAaMnmMMaWhLbsAhIHotjUBMFFRglAQANmAg2k6BlzldHRCIAhqJYHqyGJB02Lqh xyFYgShTStemYJcFqEUQhOQm1hUJDVW7TxiPlEQKBDai)Pgo1uEpFQlDsL6plyE4 FBWdPhxXVNRnTkChQmqmYySYRxoSH4WUFRh0JMeBemKB6XFGW)tloAKAZmeMoAgy EwEA1hUNHMyDmkqBSaGHXFHaT9oJMjQIknBpHGkxKOr66ITG6UJUb7yQQ2ClLNWt 91BboCathuVDdaVoTUjiExAU6gdW2AGfH5Lv9Uc4DaD023cr95knZnLBIjAGRWim cXb))WmmxKwpeN9dzSd3PUxVPd6jhv3cF70hqKGPP8GclQB4)tGY6pxrUBsDiMm) 6zumusWMMTBfmAUSloExqYawggmCZTUsRtT6QlmzaYHFeUCTDgwsO4ryuIwmPRRF osENjFmA6(KbqLJFgc8JpQy06wsXUJIBKxGe8BZDvSwkwkJIRFQxrDD1(Q1oJraS MRppFWT5qqF2BOSKPuINpQ0BxQ0IFo4mtLzLhs0KZfID9f5LPntXqNrwDrmWTbPO VM0aBrntuQVvCUEAYBsJBaMQJFPzABttCYMY5ZKEQEF10kHtheEnEcQc9RCdL0B9 HnqUYAhKCGqAoA0BQIgBGEt9mzEhLEQAwCkf(F95GViHIZSBWHKE4mwRQcF4ggrF nYTldUVIwQCEk1s9A38ShiD2EYRXF0WYhRQ42ARXARAHYFEqdQoHlglQliiLGg2E XKAYICUDuhlwBJABHnlKdfTLNtdd25tBDAAOE(ChBOYLQaDcNwJYgkN7A5QAGAO4 gDqDO0AoYkgWEODBYNUbdToO5h1Q4VR8B9oUEkBAQEUksgFRjAgLSwQFEYhUldCl SWe2gm(UxJl5lTpfO6FRIRQGE1Lh68EWnZjFukYYSRYGWbjkX(phlpXDpkVYOCmW aZ3bL6KaURhbQEEZxm1iWk3UAJIhEaBktaaWr5(F2axW1FIWsrdaIEUrHxmp7X7j NXLnetrbmUet0qNnbc8DN2bGfZmfgkpdQMAoF4EiPUMlzr9DU9geNM)FW8sNTlXZ wVcKwGEf8ilR27SSlZ5bob91O(YWhtRtAk2vknCBCaRGgAEBXg9RH9FkWcFW55BM gFU55RgH(8onJN(257RXXGKbqvvvn8ckdG)eY)3JHL6TuTgH)cVzFb)W6)9jPlO( 3v3nU8ZrAyAAH4HgYAOA3ADFBXXYQeHgAN0hQEQQVlCKVo2qIYACCKggAEAwqAGT ALvVKqKCa6aVqE)QDAEQDqoTgAXfg0BBCGRQegBAJUNMBh7KCCxncBShAcQFUBAu DAQjECXqo2lDGAgAkTQEMEkAChBAgKuCLlrh0DM4hQkBDSuuiQkRXPHASdBxYcA8 72FMDHjfBkRSEIGgAMRQAUAS5Fg(Bg0kAaLCZGYAGII8VICXDDexCZ6KEo1RBFRw lQMkJGvfiqorxNlHBy6BSPIgpeFqIhmfiqYIkTIiEyuYfgclTKUmWweIJCQsW0kC eloMEIOdyGWtjXzRSE(GAohVofI2AGQwioq4A4OCCyFwvXBweWASvWnkDAbEA4HB AECYAgAyWOnCfjEIoCAJSBQCMdTrfxRgvGGJygBdQEamqlg42shZmsI1FMkAxRkB uSnhORwAIAA(CmgnRgwViWPDIPQAJQAyeCKgnRMABKgKsFVNx7ZAoAouQDKrCldS s(OiaigFJIYCdSJBgUQFWXgR2FyCLPWZIYiW8cjglYtB0zfWCAx5I2qmkusDbtPx ABEpuAADSD4A3POgNUpHDIIAAcOgAsDoh8AWZRjJePOcK4HpCCqgggKYIoCKKopj 1ryhANCcu)jHK2Eq4Rrypr6kQGUTsDxU9kJVTFYBBA5BgjCEccdrhOllQclGtCOR pUPT4FAU8ywVgsadArK6LVhsAweUwkqnzQCBbJYBqJuiJIayWiJCmQsipC06k3Ao NDHQCwCVte5awn5lPYt(VACZtCBkQFEZkNhWkTBQ6wemouvC1xrFCnLr55UqAclS EUhurAJNVNLAOAwVeS71TBWBcry(gbE14tTdeDxqkUrGYdHEBUA265NFifbh3Brd 4ZFHTtWdVLq3FY8tvvl71ftOvWtPr38b29vc(iLXKDbF0BOBdBVQrlgz99(u7aH1 vL4C8CigBWAhFBOG8(SPbiQNAd6mAnw7zA9WAYSHenRQ11i(dNawVAPgxTV4x1mu mULOwYlTPDOEqgfOeiyWBp4YOFO8JgJht4)ILLICOfrhoXbIegKp0oo3CTAECJsu jsFxIDdEyddmt2uZbWsWZXki1vF7HSYfdVdwjo8fi9oxcigMLJADteP5CYWSAjUE 2B(4vhsAw9Whlr345Xx1WkGzpRXRuIwCFj92CIG)AZ0HO190V1bOlalzKak)i76t EEXrezSg48teIDyg0aLla((c8y15MtathaIgWvVz1Z6sN2s0wgwL4nWrtWv2z0sj oHAryzt6eWdlAUjDCCxkZHZYIDMzNgJAQYWjNfH6W4RbbGdW2Ur6PKlekGkBpx1q 3rjt(l5xvX76Px9mVoz8ZZbfMEgkHAmg)aB9ganHuwdQqjPV9(GGciQJ5ZV86ZzP BYg99muvB6774qBoiShhb3eUaccVlnd2ZpmRSL4AYobD4akbeUBfOeL8q364gaPI mFesAMohmalwXWSB3FXtaE6MWhxJ67NPMRV07TKVTeXPoofXVyLfNXjenIKeRlSl SYIAsDKIxeEpjGW4lkAvDyBS3kAvAPInfuEGe)D1uOtWpLqp5JkyuZZA43AAeJxc qA01zAFWo30G5R0mA5aHUVP8rKDTWhAIYfGDXjbLCexKwwtxq4gp9nser93UuYAg gxqPEoU8BgMTFEUim6sm8QQEfP(bBuEH6vqwEMeUKYQwql6PEAkgB8UhHEp5fL8g hBPoPEYBX)rCdl8GW3PsLu197gHU4RlxU35MKcv5bBtA0f(jAy5I4Yn3PsekDxfe A1tHA8L8S9mR8iCTXOBw1ird)SAHun6K8f5ivn36n98bT02nNDPPRt)R29Jo9cSt LLbBQyzhLyW4OmV)q8UDr5OvfhKNzDfSnRrS0b5G2HwAkTzksZb6NN7kWZzwYqyG Hf5qAoCqxfjAQQjO8VKqhUy65iguJt6mlXSitYiikxDKDmjm0IzqyCqA3wrocFsS CP4CRtyitdIK7vguYAqAtFABYUzeZFElaRx0dE88UNLlvFEqQci47MDyYhhEKVYS uTCgQoR6kDA0Y1R4h5T0UAawWlg8xICKgEwBAEkib8UscMYQ6SKMSomBIwFiCWnS JCoNgQxBEFGLEHwogUAGAkFmBVU0gOmqwAIKgDS5acDwLlqUlKbua6YnjKLFELRy 9BRTh5qOFUAgiIRAjnrUnORaMhnQMYXfiEpKoU0EC0kUmmaJgM4yDAoBjiaQMNIw AwGrDYQIPUAiQxIQq(CKzdrC4CfQGKCAdU028XXJOKOCQCBPMZJ(q)SpgIY2ezh5 IK8CudwWli7mPZt4VAhAGKB3kEb0mxEiWI0BDJWC890RMRXRzEd0dICiAU2jEBgu 6ChTIOYeZvNseAt7mIZQDIVaepAqEtxHAivTjU82XdknLCXbia72EUDGdIWsgENa )MTMsoRnpu8aaEISd8Umg0MCwOIOM1R7(HJyL2c2Zbc3RqZbguGWcX2ozaqkLg1z X3SxhNg)kdrE2G4A0CS)7VJIlPvxuBBHbiO6QCkBfAj4gLoO6kyszEuGgDE3W3yx oiOmi0tmAvOdE8iCQEUgQQOH63Nu32O6cIJ4djrrrCn0Y9dybY(awF0JQ0R5RiIt OBRHwEPTwFEGyRQExKJ(sfrRMlSGIGUFqgjUSI7R91ySds2csKovr9SgFhkLA5aC cWOOgoIV09I9SpP5ABhQzEfaKVONUVJIhOg5RBjPPPHhT(jMX86hBQgO(cLA)CcW BYOT(tQAMSiKYNdNkU3kyekWWRADPJM(S98P7GUYy7snXUpLJ1mhyRluraPShLlg lltwWiZ)QCxOWvc4z5d97f9iwsnNsqUF7EcBCgDsFCRoWEnLyCBMVECY9zJVU9cy 3mKV6M1oDEiMYAcUEQw7MBBQYVYXjebcIEEeoRyZBEA3z9QHVadcd7ujOKexgiLl 6qoqEGQWeUiN1td6Fl(UZhXYdCPqSqcka56KZKiO(0wFCKkZpfolQUG6LAHcWhWZ mjjZubWEUFLK0Aiy9LoGKECBu4mvOdOFolK46BxZQjpBuBo8u9bw0Od2f8VJREIB YBE9SnpTJtIlrIUD6uUizU4IKIkrtl4EmpttchO7GwM1K3e4JwhbgY9PCEoBmVNw TnzeocBCKTXlC1YZmHztAZ5aK3(BysPD2AN3snpGz9eTu601axH79QniqhMmwAyr AkqUekAFznuAuLAVQAlyACmyQYhiFKKwwqVemUgwBEnGjSHhVmciFfDTpOqppxYw tzuFpd0MZotv6RwHtJmOzR)ngtcdk1ItdPY7LFOBSULg2sMWwZDC1K463IKHLjlH WiculDXLy32Jl1w2Ceg7JmB)D4)fJAAo)HAiE0A9BNQ1iiPMUCRPf)igukAiCcAw AEY8oACU4b7HK4rgC9arfpnu3IOuBmvkg4HoEACc)c99PwPEEEABNDQwUGcd6Bbm GCRqo(TCeGhwoQIxL4B5CbfDEFxz7O2ASZQYxfYEHqIbQuu(w7JKQMfNiOwAZIMo FE5UAUlQhYLJY5amf8zAj0qtICV2CvbGAaQAKwB44FcKKgp)CCIB4AiEEIgAYgaR HAAIKzujyAEO1PGRQTQEAwM(WOS)gDQbUA6HHhSZSpcaUKpoAAQ6GVvTUwC2AAAQ AEAABAAAA8CAAAw4AwPABAAAAAACAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAMAAAPBFAUlFTTlkUSNlLAIwQAAgAAAAAAcRNRQNAcCAAbDgtB8gboABKLACA )YLxEBwHACbQ)gIIcA02CCAeigoCIFUFEEZAQQBxiIiDAMA(GIwD2GiDyDE6GI4E gGUKCMJGcwIRACWOmIMC6wRzILdYEFTA2shzWICbMkGIUOYgEmQEGMUc2QBBkjeY nNVgjWljES(ZmMdazsZj0GwDAA)QSqk6AJBFipAg0UBAkHkPGERBxcFBAecPmHEA guZTuLtbhABSwyhJ4utYEyJGDjoDICUeiNQK4sBzUpcaWFZNJIAT4ncMnMCp6gZj zSEdbwA03sJhcculiMeJSCgoMJxiwjHcBK4gQJhrIBGASQJCwqGKCGJihAZhTVK0 E48tcwgenSLLsAEAAYQQFDaQEFC0p4YvlA6TjF2ibwgxlgJAAOAwAoXiGkttQSAg XCUAIC1cUYY4EhEdAs0hBeCkYawcohgYBANY2qhlAEWgJaVHBMcoOgDAkFQnJCYU owuM(2wgjgp5cPTjMMKaYg(NFUA6Amh2wYSiIGC1ELj9s8jwBAtjgmyCIIYwwraH howrSQClUECgAeGehxoVmlowGgHm8K2BJYIhAoWZFoAgykN5hFDzGEUiMKzGBBYB nhLFYqFAGMDiYCGGA5sTBi4YpLkBHQxQAUmQZoDd03nGSAAUfCYUEweACUURCANo 1pjG9IKyQr2FSxcoFxb74ATA9QX9hEaUnQV1TsK1UcGgVNKoFCU9y0bdBT9)UMnz XTGQIbGGZdN0VMU1UgHAAQI4AiKLAYgZlrAGDBEWX9ebwNmWFIoN2mJYQxvWWCKW tfRXy0r1WUxGW4CgXbGIl1rXj4lNixzmZWiPZKBdEKa9kpkZSDBZjs1WbCQW19QX ot19ViCZHQyXJhrBt4vI)pMemT4hFlnBdAYWprlAOhJl0leojRjvdAeWNuDlVaoJ BUYPWkGgAeIiE1rMCStpYAVaXKlm9Kax00uooFwZRikDuHLCOGGAoQeMBa84gmF5 uMgmREQ0RCUHGs1EgnDtFCUkYIKoYV3I3qz2gTwl(agBQvTUoIXG5OkJG6S(c0xb IRdCflwvAXok8xyM57b8IAuB5gsBjEBwyiVWHYLmPAiB5wtBZQBQkMr109UYEWE0 ogZwioowMhBmG1BBZ3zLgVE1nkgIoiviICSi2LGKgCgT8FAhhdJRs0hB1)UWLzTK ZfoWhmZYAEwQBYIEYARATnXfBcRni(ZCHM0LYTEEU0RIQjORQGBAFcQIoaKJxfoD AGGvh4ego5bZvyaXQATfkzPAqT4x8AG0ACG(QDRBRomCVDxIwEkihUKqIl36gK4B 8DgAbBYwOBMLAgWEQahL0iiIWdkBA99KAANZAzSYDz8eCoeQC4L6CBsoPth9ArRG 2jBjzIxzN4JcDj4BwEyHQsTBSvQwCQ0VF8gxiokXQbNAEuGAECAEoAAaCDnHhxIN QASDMU1C2kxoMGCvFlyAxT1AAtCAooxYAABCNCIUAUKBAJeGu3QwLwwhAOeKCAny YIPFMAwAvGwoSAAeHDBoIoQOIZVBQJTgkRKsZkCGBhkNE2oHlsGj0GwodCIeAEtx AxERB6jayY1AyY44yEM4jnEgCagGIZwjDJgYT8IahAKsPxlGE27BAUhhHIA0CIGc CCTrApEDaFGjIdQQMQN8FYmEqW5ToIFCgvXgNsEuYCS2lwOcH8KO4kBgTQBwTMJs HCAHNi0CkemasiQJLfBwFEIIIghVgyhGAuwhLrgwVIIIKYtMToTbCEUoq4chCBQ4 QACXgGa6Uj6EikGidjwQLQSkCAsgnTFGdnhm6UBqG0hOeJUCAAHupCeNFmKgjpWo cMIqCbqsxbYWADinYRhAoUAkXQODGAvDAcIQ4YHAR0BAwgWnDqqKHgjRCEoOfaUa PKwgnStgqgKUKxDdG1QHyHAydCIuAAPDgwGLocURaX2gWYI8HhQ2An)AwS8AsgSA 3pRAOkKBXDJpH7cPALjBAIYwHQIYDEGsQBMWAClMBs5VO(oKzIcXXNsvAEsJwjSG lV2amgFUOAMPTC7GA4BIk(AhohAaONEKCM1rhxVmbmVtv60ZmQAkz4GxDHTNib4G 4TaGv1AJcMMcIKrBhjyBIO0Au48jnAY8iCEfqmm6AAAEQdQjTNQ41YMgCuIXRbeq ti1uGahTsHFkkWPXuoFDraJNElS21I7o8ZAaSFwnjjFA47VAAACgH0IwDEOoHrsd wA1AuStgpdqNtNAMVgYxmhoqAKAIGxAgd6FwCAQOBiBPalCdAVS3jgAw35G2epQr 3YqrF9zqNcVs47duHeDuX0Q8LPefG5)1QJQAdGIGBAgygwJCA1URg8FjBa5MCIAI BhjGZJIn8aCEVxQIWlU(bLMvBCboC4SRAMRAIkAIEAOfCgUTGpNNQiAEykMgIIDc 1qFYofLL7GbRuZtWgBIBFAMQmbAT5WIAKJG24IwAHKDYnwh(vMmPYDBH4mQwiRCN GkA)ZAdNALCAoMxgClUrmiGMp35HvVFD4BAR6RAQjhG0SrDPAYwkgISCENBhfsb9 0EQTqkhGr51RgFhBukgww5CFAohRAiYP8hZFuM3AbJQIHGEOpE9ghINs4AmATVSt jxA0FYDbQgLxQ0GqDtV6iW8YfGtAzWKDAR0YGBbDLj3LZJObXO8I33Q5NfsVHxWp OlKkRSQDeErgHqV82Hr1QBBqyFkqQB6wHNuOAjOBT1HbUDeCK8Qkr5jBcEgBu7Op Bnk6JAgaJHI(nADOwQSBH4FiebRCAQhBBACW6RDR4TcuR2bKQ4eMSxXJAC5WO6BJ qreI)8NgVd7)w5SC9rB9lmC4BkXeJYAolLAc5Z1vgkOswMVAmfQOEQIHqFHY6fUm TojB0RQhpIYcaEAEPQ4euC9g(wh9p1eocv3XBYydAypYM6oCdOLWVoo26w5W7Ad0 eRfMPC88SwxhjaESN6R9jNRMQDNzuDwOnFQIlCCn8BXrxiIlB8gZTAAAJYMmtBMm gBFAAhtAH4S(1DtWl3JUAiJKg5EOJBChB32txMPGAOg5Ay0HGxUHbBjVlLYgPtva UjpMgZSFDt9DZgwwwM18mNz0hd33ojCOmoxrUAAoSPBLdCCMxIizA(QAET)30ABs wQDLyVAQ3EPC(BZFTzAhcC9XAg5tfLtCwcGhgcyEJPzErNMG5)3mBDSkTTYuYGWG AlBAcWQgY(GlQxHAxlaAibbEoOKDAAimwMTAQbjiAfDjAG4gQkwhQWBgIgGIYnvg oTSvKMUvgpAA0VBAi(EJ6sEogmApYtAA4CVAi6phpZgAsHCBgCBHYxAgjebAAF)u YrQAIVBgjyRK4LBgBbcwRycwokvgTHjhbkcA5y4sQbCHh2swBQoAgKDgYVBATPcA xw4uxMTPKP0rgqwAU(RghQ8kh38Q6PEnwrwAwWRggG1EBRIAyZNMgPLM8(ADw4ss iZFDyF(KYF4gQqgB4mhBrBKssyxDc1Coob1ji6orYjRN4jvtRayth2pgQ6GAySZg gm3kLVJAYmSEoIsig3zCSwJD4hzIhmxAcm0AQrwqovRBRoyOwjhOoY)NrAoua34s qMZJ7WKOgogkkJmBimjKYTxIi6zojePJ4S2Hgq(IqTApo(DHgcGACkgxgXiujilp z5ogiO5xEgHuzyYKUfnqEYHOoK0KwyGApuTAAoAhQdSAgH7qqcLjYkzAo6GCwVBA JfgAQmRhJgnjRcwGsxThRwtHYPSioBRCwvogoeSjQv4pRnNio1RBBsQBhoPQgglB aMXH4tgA4eSAgtBSxBvnoRBr44bJYS8AISRDoShggSzgc85gYQhg09lrwozgZT)H w3RAwBShQLhA4qVAEmqqYEhBwFhAkkqBcwagIFxAZARg0TZEMyqy84qAIGxSgExA I0lBEoqAwWIBwpBAcirAZDhSAzhhoZjnYmCIs8qgJevoi1hIBsfgw6EgQaAgkuog RQdIZxtI4ciLIkiAIqiAMtskwdigIkigwHcgIRCQANigY9oAokiLQAhgYAQAwtQB gkCAwelnQ6AAEXhgIBWgIDgFwsgBUZcghauHJQtgzBKz6rAJAGkNYevgLj7O8Zyo AugF8)dAUBun4gYnEVNgovAgCkxKZw9Hpv6nZNfL4eQzQKCAC0gg4yAgQeCAppvA KN6PYuQgkluARvtnEAch42BgZVCgaqQQZzAtJkHIAuwgIpTggASkor6gU65iIEzA gPzg45JjgmZJ4N6sAqTkYQxg4aDioqBgMBzAj)tAs2(Aak(A4A2sqNEwsIPhktR0 pHog7)NRsWPhsDyAYASq8KCG4AQU4tQhEkSj4mFgouDAcfzA6NkqAswhNJBhU70D 8VeQTb7OkY(IMy2G03GpkD3oIVGJicKosDOuA7wLoWEApxQ0tuCBNzyIHQzIQhdA RiExKkhQkiFFCPMJyUEJRSgGmQUMQU4gkBgKUBKYMQ1BcojGRSWMFhNs0FDZgJAx AMfz From NISC.SRI.COM!unix!hplabs!hp-sdd!cs.utexas.edu!samsung!uunet!cs.dal.ca!dal1!mlarken Thu Apr 5 04:18:16 PDT 1990 Article 751 of comp.binaries.apple2: Path: NISC.SRI.COM!unix!hplabs!hp-sdd!cs.utexas.edu!samsung!uunet!cs.dal.ca!dal1!mlarken >From: mlarken@ac.dal.ca Newsgroups: comp.binaries.apple2 Subject: Polytris -- Tetris for //'s (Part 2 of 2) Summary: BASIC version of the Tetris arcade game Message-ID: <1404@ac.dal.ca> Date: 3 Apr 90 01:39:40 GMT Lines: 31 Organisation: Dalhousie University, Halifax, Nova Scotia, Canada FiLeStArTfIlEsTaRt ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789() LPOLYTRIS.SHK AQz1AADACA(4cIAgAAAAAAAAAAAAAQw1AQhl UOABUIbYTEKTd4gRGPHETlCyC0oxwQFAWmBRlcMSSJaHBooWG0A4SOcKqil6VAxI CGDahCYyIe5QE1jHhAN7gAACGSFDG0deXCswAIyLQJMqI0aR4XgtB0EvIsg4wzHE TDutLQoAZb4vLAoCGoBYxb3KhYgBXUMA8HivC7vZmR0B7oIwRk3fG6xFBF5KbgHR D6mIi(FDaip3Wpi09yVrLVhgAuitInRGCOLDOaY1gSSKCiZid0s5K7GEpkL4b2sh (tWMBANiMa0qEATbSiHAw0cwKJzIBOIQQUEDFl8JhHBZ83H7SJCPTiIAw9cA4AHr p4rLDjq3AJTDLGCQIx5FuvTQPNAvysEvYSGEA6ZKYkpJhhJbaNuBa(SsTQ(ZRkRo PScSXzAGXC(A5jBDBsybiOWlKvDDEMAYA7tObaSiDiAQ22hD76(6gDA8LNgJCEmh e3xKcY6gLB(9QcYQGgXncKmBA8AfAQTBZYURhRBaAZhBNHAoAQ(NQYQoutrqgDRD MOKSYqcMjE04gQQJU1QBKbSGz2eKotsEvgqZIqxyGEQqACHGNcT4GkBagGiiHId8 ZwXDcsrpCRi(OuxgLkcW4AXDpYqJDqHdj3RDPNCq4JtOQ0wwJ3PbE2gE2aMOBZMr rkTAiFbRoRhKZECgUzqKh1RBBCWSIOe2cYEgw(ZYoAhMhuobK7thDYks9ynJkltK 20hgOiBmpAR2h2yYkvioBAhd26NBZ1QvdlZZezsh2jqptygWesEL4waDjhtphUy0 sqYB(WM9DwurN8BAVgCw2kAAcOMw4hJmEwwI1g70AxuTIPEIC7HM(MIYFEHz20Bg cQMEN5iWPZoRKidYypRhGEGgO4HGdklO6EgVBckhDQGmBzsRijo4iCMdAlhWIIkq 96LaZoBCiNHj0lx6bJIcgkosrarrhooswCEwraJ6AI4Q2qytNk5gCst7uvNpZzal oKJw2a)p)uq6aoR1Wy74yeYIJbwtmhGbJv)S9d9X26(Ob565W5NkDAoGHjAUrymi N55v8CZcyHknd(brd0G3zdCL4cQpcaM4yMbvNA4GnBIOuxy9AsxEQjzEre)ZXgFY 4sBAcCOIgR4QESgoChMWA2vWBCM4P4zcOUynnhDM4wSJdOEAwSImiUmDJ6vVU7gD QcGUmgIEYUouaCCWx3)fs837koIYHAEOvG((YzyfFIw3GAEy)9q(FAHAAy)BpwPw VUAsAAeAAhRFDSCA4i4AbcAoMEE2GAlCHgCABRyBqxgQCMIMAECTBANBQzrTc(Ah ZmQYOEo8HKCmfQODY)EBN3fwwOArHECyDhciQnqoQ3hCNNRBIAMKAEhQAgucYoaM qYywA8H0HQEcFHOnwoZDk9hgweQRnQUIIGtpATgTgoTMWejjKUIE4EOVOAsORrOP E8RgsfAgdccgDGrhAMw)AwzBcXHgXZ4DAMGjDgYJAgyDEmgkHqRIJcEuDEsVkCNF IVGJCUUSe0AY7IIkHnpIQ4gHwPIAadBASkcuLGvFEiMAgx8BqywSSOZ8HUogLDP4 QY0V0TngO6BgsEUyDCmsHCAAhjwBK0BTAQo8HcIyNHHHRIoI4zQikzAAnpc4DMva BC9HJ8WONnkRONA4wcCa)mdsQQdb8jvA77zx(BQCfOt)oWAAEAgMAAAAAAAAAAAA AA2l