C8R32C5R6C8R23o"DЖC8R56C6R28C8R45oHNЖC8R32C5R4C8R28C6R2C8R36C5R6C8R21oTXЖC8R129oqbЖC8R32C5R4C8R68C5R4C8R21oЖlЖC8R56C6R28C8R45oзvЖC8R30C5R4C6R2C8R70C5R4C8R19o╗АЖC8R84C7R2C8R43o▄КЖC8R30C5R4C6R2C8R70C5R4C8R19oїФЖC8R58C6R26C5R2C8R43pЮЖC8R30C5R4C6R2C8R72C5R2C8R19p.иЖC8R84C7R2C5R2C8R41pF▓ЖC8R32C5R2C6R2C8R93p_╝ЖC8R60C6R26C5R2C8R41pk╞ЖC8R129p╨ЖC8R86C7R2C8R41pФ┌ЖC8R112C6R2C8R15pйфЖC8R60C6R28C8R41p┬юЖC8R110C5R4C6R2C8R13p╬°ЖC8R129pчЖC8R108C7R2C5R6C8R13p№ ЖC8R60C6R28C8R41qЖC8R110C5R4C6R2C8R13q6 ЖC8R60C5R2C6R2C8R24C7R2C8R39qK*ЖC8R112C6R2C8R15qd4ЖC8R62C5R2C6R26C8R39qp>ЖC8R129qИHЖC8R62C7R2C6R2C8R63qФRЖC8R129qн\ЖC8R64C5R2C6R26C8R37q╣fЖC8R129q╤pЖC8R64C7R2C6R2C8R61q▌zЖC8R129q·ДЖC8R64C6R2C5R2C6R24C8R37rОЖC8R129rШЖC8R66C7R2C6R2C8R59r*вЖC8R129rKмЖC8R64C6R4C5R2C6R22C5R2C8R35rW╢ЖC8R129rx└ЖC8R68C7R2C5R8C8R16C5R2C8R33rД╩ЖC8R129rе╘ЖC8R78C7R2C5R2C8R12C7R2C8R33r▒▐ЖC8R129r╥шЖC8R78C7R2C5R2C8R12C7R2C8R33r▐ЄЖC8R129Тk k k▀k▀х▓х▓х▓х▓ы═ы═ы═ы═eee                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                5R2C8R10C7R2C5R2C8R14C5R4C6R2C8R70C5R4C8R19fVdЖC8R52C6R6C5R6C6R2C5R2C6R4C5R2C6R50C5R5fЩnЖC8R0C5R2C6R10C5R4C8R14C5R4C6R2C8R26C5R2C8R44C5R2C7R2C6R2C8R15fъxЖC8R54C5R2C8R2C7R2C5R2C7R2C6R2C7R2C8R4C7R2C6R2C8R8C7R2C5R24C6R2C8R6C5R10C6R1g.ВЖC8R0C6R2C8R10C5R2C8R18C5R2C6R2C8R14C5R14C8R44C7R2C5R2C6R2C8R15g\МЖC8R54C5R8C6R2C5R4C6R16C5R28C6R4C5R10C6R3gШЦЖC8R0C6R12C5R2C8R18C5R2C6R2C8R12C5R16C8R42C5R6C6R2C8R15g▌аЖC8R54C6R2C8R4C7R2C6R2C7R2C6R2C5R2C8R4C5R2C8R12C7R2C5R34C6R2C8R3hкЖC8R10C7R2C8R20C5R2C6R2C8R10C5R16C8R40C7R2C5R6C6R2C8R17hR┤ЖC8R54C6R8C5R2C6R2C5R4C6R4C5R2C6R4C5R4C6R10C5R28C6R7hР╛ЖC8R0C6R10C5R2C8R20C5R2C6R2C8R6C5R8C8R50C7R2C5R6C6R2C8R19hр╚ЖC8R54C6R2C8R6C7R2C5R6C6R2C8R2C7R2C6R2C8R6C5R4C8R8C7R2C5R2C7R6C5R12C6R2C8R9i╥ЖC8R6C7R2C5R2C8R22C5R2C6R2C8R4C5R8C8R50C5R8C8R23i@▄ЖC8R54C6R16C5R2C6R14C5R4C6R8C5R20C6R11iyцЖC8R0C6R4C5R6C8R22C5R2C6R2C8R2C5R8C8R50C5R6C6R2C8R25i╜ЁЖC8R72C5R2C6R2C8R4C5R2C6R2C8R6C5R4C8R4C7R4C5R2C7R6C5R6C6R2C8R11iЎ·ЖC8R2C7R2C5R2C8R26C5R2C6R2C5R6C8R50C7R2C5R6C6R2C8R27j$ЖC8R54C6R28C5R4C6R6C5R4C6R4C5R16C6R12C5R1jMЖC8R0C5R4C8R28C5R8C8R50C7R2C5R6C8R31jЖЖC8R52C6R2C8R20C7R2C5R2C8R8C5R4C8R4C7R2C5R2C8R30C5R1jл"ЖC8R0C5R2C8R30C5R8C8R48C5R8C8R33j▄,ЖC8R52C6R24C5R4C6R8C5R4C6R4C5R4C6R26C5R2C8R1k6ЖC8R32C5R4C8R48C7R2C5R6C6R2C8R35kG@ЖC8R52C6R2C8R24C7R2C8R12C5R4C8R2C7R2C5R2C8R10C5R2C6R2C8R2C5R6C8R5klJЖC8R32C5R4C8R46C7R2C5R6C6R2C8R37kиTЖC8R52C6R28C8R6C6R8C5R4C6R2C5R4C6R6C5R2C6R4C5R2C6R6C8R5k╔^ЖC8R30C5R4C6R2C8R44C5R8C8R41lhЖC8R80C7R2C8R14C7R2C5R2C8R2C7R2C5R6C6R2C8R2C5R2C6R2C8R11l+rЖC8R30C5R4C6R2C8R42C5R6C6R2C8R43l]|ЖC8R52C6R28C5R2C8R10C6R6C5R4C6R8C5R4C6R4C8R11lЛЖЖC8R30C5R4C6R2C8R26C5R2C8R12C5R6C6R2C8R45l╢РЖC8R52C6R2C8R26C7R2C8R18C7R2C5R10C8R17lтЪЖC8R32C5R2C6R2C8R14C5R14C8R12C5R12C8R41mдЖC8R54C6R26C5R2C8R16C6R16C8R15m1оЖC8R32C5R2C6R2C8R12C5R16C8R12C5R16C8R37mJ╕ЖC8R110C7R2C5R2C8R15mv┬ЖC8R32C5R2C6R2C8R10C5R16C8R16C5R16C8R35mФ╠ЖC8R54C6R28C8R20C6R4C8R23m╜╓ЖC8R32C5R2C6R2C8R6C5R8C8R38C5R8C8R33m╤рЖC8R82C7R2C8R45m·ъЖC8R32C5R2C6R2C8R4C5R8C8R44C5R8C8R29nЇЖC8R54C6R28C5R2C8R45nE■ЖC8R32C5R2C6R2C8R2C5R8C8R18C6R2C8R28C5R8C8R27nbЖC8R54C6R2C8R26C7R2C8R45nФЖC8R32C5R2C6R2C5R6C8R20C5R4C6R2C8R28C5R6C8R27nнЖC8R56C6R26C5R2C8R45n╫&ЖC8R32C5R8C8R20C7R2C5R6C8R32C5R6C8R23nу0ЖC8R129o :ЖC8R32C5R8C8R22C5R4C6R26R2C8R2C7R2C8R2C7R2C6R2C8R2C5R2C8R2C6R2C5R2C8R2C6R2C8R2C7R2C8R42C5R4C6R2C8R9]s ╩ЖC8R18C6R2C8R2C6R2C8R4C7R2C6R2C8R97]─ ╘ЖC8R28C6R6C5R2C6R4C5R2C6R4C5R2C6R2C5R2C6R6C5R2C6R4C5R2C6R4C5R2C6R42C5R2C6R13]╪ ▐ЖC8R0C6R48C8R81^E шЖC8R28C5R2C8R2C7R2C6R2C8R4C6R2C8R2C7R2C6R2C8R2C5R2C8R2C7R2C6R2C7R2C8R2C6R2C7R2C8R4C7R2C8R42C5R2C6R2C8R11^i ЄЖC8R18C5R2C8R2C5R2C8R6C5R2C8R97^│ №ЖC8R30C6R2C5R2C6R10C5R2C6R8C5R2C6R2C5R2C6R4C5R2C6R4C5R2C6R42C5R2C6R13^▄ЖC8R0C6R18C5R2C6R2C5R2C6R20C5R2C8R83_9ЖC8R32C6R2C8R6C6R2C8R2C6R2C8R2C7R2C6R2C8R2C5R2C8R2C5R2C8R2C6R2C7R2C8R6C6R2C8R40C5R2C8R13_VЖC8R18C7R2C8R2C7R2C8R105_З$ЖC8R34C6R4C5R2C6R8C5R2C6R12C5R4C6R6C5R2C6R55_░.ЖC8R0C6R18C5R2C6R2C5R2C6R14C5R4C8R87` 8ЖC8R36C7R2C6R2C8R4C6R2C8R2C6R2C8R2C7R2C8R4C6R2C7R2C5R2C7R2C6R2C8R4C7R2C8R40C6R2C8R13`.BЖC8R20C6R2C8R2C6R2C8R10C5R2C8R91`nLЖC8R34C6R2C5R2C6R4C5R2C6R8C5R2C6R2C5R2C6R2C5R4C6R8C5R2C6R55`ШVЖC8R0C6R32C5R2C8R28C5R2C8R12C5R2C8R51`Ё`ЖC8R36C7R2C8R2C7R2C6R2C8R2C7R2C6R2C8R2C5R2C8R2C7R2C8R2C7R4C6R2C5R2C8R4C7R2C6R2C8R53a(jЖC8R20C5R2C8R2C5R2C8R4C5R2C8R18C5R14C8R12C5R12C8R41a`tЖC8R38C6R2C5R2C6R4C5R2C6R8C5R2C6R2C5R2C6R2C5R4C6R61aШ~ЖC8R0C6R20C5R2C6R2C5R2C6R4C8R18C5R16C8R12C5R16C8R37aэИЖC8R40C7R2C8R4C5R2C8R4C6R2C8R2C5R2C8R2C6R2C8R2C6R2C7R2C6R2C8R4C6R2C8R38C6R2C8R13bТЖC8R20C7R2C8R2C5R2C8R20C5R16C8R16C5R16C8R35bJЬЖC8R40C5R2C6R8C5R2C6R12C5R2C6R8C5R2C6R53bАжЖC8R0C6R20C5R2C6R4C8R2C5R2C8R12C5R8C8R38C5R8C8R33b╒░ЖC8R40C5R2C8R4C6R2C8R2C7R2C8R4C6R2C8R2C6R2C8R2C7R2C6R2C5R2C8R4C7R2C8R38C6R2C8R13c║ЖC8R20C6R2C8R2C6R2C8R14C5R8C8R44C5R8C8R29c;─ЖC8R42C6R4C5R2C6R2C5R2C6R4C5R2C6R6C5R8C6R2C5R2C6R53ce╬ЖC8R0C6R22C5R6C8R10C5R8C8R48C5R8C8R27c▒╪ЖC8R46C7R2C8R2C7R2C6R2C8R2C7R2C8R2C6R2C8R2C7R2C8R2C5R2C8R4C5R2C6R2C8R51cутЖC8R18C7R2C6R2C5R2C7R2C8R10C5R6C8R54C5R6C8R27dьЖC8R46C5R2C6R8C5R2C6R6C5R2C6R6C5R2C6R55d@ЎЖC8R0C6R18C5R2C6R2C5R4C8R8C5R6C8R60C5R6C8R23dНЖC8R48C6R2C8R2C5R2C8R2C7R2C8R2C6R2C8R2C6R2C7R2C6R2C8R2C5R2C8R40C6R2C8R13d╖ ЖC8R18C7R2C5R4C8R10C5R6C8R60C5R6C8R23dыЖC8R48C5R2C6R2C5R2C6R2C5R2C6R4C5R2C6R2C5R2C6R61eЖC8R0C6R18C5R6C8R8C5R4C8R66C5R6C8R21eL(ЖC8R48C7R2C8R2C7R2C8R4C6R4C7R2C8R2C5R2C8R4C6R2C8R55ev2ЖC8R16C7R2C5R2C8R12C5R4C8R68C5R4C8R21eЦ<ЖC8R50C6R2C5R2C6R4C5R6C6R65e└FЖC8R0C6R14C5R6C8R10C5R4C8R72C5R4C8R19eЇPЖC8R54C6R2C8R2C7R6C8R2C6R2C8R4C5R2C8R52C7R2C5R1f*ZЖC8R0C5R6C8R1TL ▓ЖC8R2C5R2C8R4C7R2C6R4C8R4C7R2C8R6C5R2C6R2C8R62C6R2C7R10C6R14C8R11T│ ╝ЖC8R14C6R4C5R2C6R2C5R2C6R10C5R2C6R4C5R2C6R8C5R2C6R10C5R2C6R4C5R2C6R2C5R2C6R2C5R2C6R22C5R18C6R6C5R5Tю ╞ЖC8R0C5R2C6R10C5R2C6R4C5R4C6R36C8R34C6R2C7R22C6R2C8R11U{ ╨ЖC8R18C7R2C6R2C7R2C6R2C8R8C5R2C8R2C7R2C5R2C8R6C7R2C6R2C8R2C7R2C6R2C8R2C7R2C6R2C7R2C5R4C8R2C6R2C8R2C5R2C8R20C7R2C6R4C8R2C5R2C8R6C6R2C8R13U╣ ┌ЖC8R10C5R2C7R2C8R6C7R2C8R6C5R2C6R2C8R60C6R2C7R22C6R2C8R11V* фЖC8R18C6R2C5R2C6R2C5R2C6R6C5R2C6R4C5R2C6R6C5R4C6R4C5R2C6R4C5R2C6R2C5R4C6R2C5R2C6R26C5R2C6R6C5R2C6R6C5R2C6R13Vm юЖC8R0C6R10C5R4C6R6C5R2C6R8C5R2C6R24C5R2C8R34C6R2C7R22C6R2C8R11W °ЖC8R20C7R2C6R2C8R2C5R2C8R2C7R2C5R2C8R2C7R2C6R2C8R6C5R2C8R4C7R2C6R2C8R2C7R2C6R2C8R2C6R2C7R2C8R2C7R2C8R2C7R2C6R2C8R18C7R2C6R2C8R2C6R2C8R4C6R2C8R4C5R2C6R2C8R11WM ЖC8R10C7R2C6R4C8R6C6R2C8R8C5R2C6R2C8R56C6R2C7R10C6R14C8R11W╖ ЖC8R20C6R2C5R2C6R2C5R6C6R4C5R2C6R6C5R2C6R4C5R4C6R4C5R2C6R6C5R2C6R2C5R2C6R2C5R2C6R16C5R6C6R16C5R2C6R13Wў ЖC8R0C6R12C5R4C6R6C5R2C6R10C5R2C6R20C8R36C6R2C7R10C6R2C8R23X} ЖC8R20C6R2C7R2C6R2C8R8C7R2C6R2C8R4C5R4C8R2C7R2C6R2C8R4C7R2C6R2C8R2C7R2C6R2C5R2C8R2C6R2C8R2C5R2C8R16C5R2C8R8C6R2C8R10C5R2C6R2C8R11X╕ *ЖC8R12C7R4C6R2C8R4C7R2C8R12C5R2C8R54C6R2C7R10C6R2C8R23Y 4ЖC8R20C5R2C6R2C5R6C6R4C5R2C6R4C5R2C6R6C5R2C6R6C5R2C6R2C5R4C6R2C5R4C6R20C5R2C6R22C5R4C6R11Y^ >ЖC8R0C6R12C5R2C6R2C5R2C6R4C5R2C6R12C5R2C6R18C8R36C6R2C7R10C6R2C8R23Y╧ HЖC8R22C6R2C8R8C7R2C6R2C8R4C5R2C8R4C7R2C6R2C8R2C7R2C5R4C8R2C7R2C8R2C5R2C6R2C7R2C8R2C7R2C6R2C8R38C5R2C6R2C8R11Z RЖC8R14C5R2C7R2C6R2C8R4C6R2C8R10C7R2C8R54C6R2C7R10C6R14C8R11Z` \ЖC8R24C6R8C5R2C6R4C5R2C6R6C5R2C6R4C5R4C6R4C5R6C6R2C5R2C6R2C5R2C6R40C5R4C6R11Zг fЖC8R0C6R14C5R2C6R2C5R2C6R4C5R2C6R28C5R2C8R36C6R2C7R22C6R2C8R11[ pЖC8R30C7R2C6R2C8R4C5R2C8R4C7R2C6R2C8R2C7R2C5R2C6R2C8R2C5R2C6R2C5R4C8R2C6R2C8R2C5R2C8R40C5R2C6R2C8R11[J zЖC8R14C7R2C6R2C7R2C6R2C8R4C5R2C6R2C8R62C6R2C7R22C6R2C8R11[У ДЖC8R28C6R2C5R2C6R4C5R2C6R6C5R2C6R4C5R4C6R6C5R2C6R4C5R2C6R46C5R4C6R11[┬ ОЖC8R0C6R16C5R2C6R34C8R40C6R2C7R22C6R2C8R11\+ ШЖC8R28C7R2C6R2C8R4C7R2C8R4C7R2C6R2C8R2C7R2C6R2C5R2C8R2C7R2C6R2C5R2C7R2C6R2C7R2C8R4C6R2C8R40C5R4C8R11\Y вЖC8R16C7R2C8R2C5R2C8R6C5R2C8R62C6R26C8R11\о мЖC8R28C5R2C6R6C5R2C6R4C5R2C6R2C5R4C6R6C5R2C6R4C5R2C6R2C5R2C6R2C5R2C6R42C5R2C6R13\█ ╢ЖC8R0C6R16C5R2C6R2C5R2C6R6C5R2C6R20C8R79]K └ЖC8R28C6R2C8R4C7R2C6R2C8R2C7R2C7R2C8R34C7R1KА ъЖC8R0C7R2C6R2C5R4C8R8C5R2C7R2C5R2C6R2C8R4C5R6C6R2C7R2C5R2C8R8C7R2C8R2C7R2C6R2C8R2C6R2C5R2C8R30C6R2C7R22C6R2C8R11Kщ ЇЖC8R4C6R6C5R2C6R10C5R2C6R2C5R8C6R2C5R4C6R4C5R14C6R2C5R2C6R4C5R2C6R6C5R2C6R2C5R2C6R2C5R2C6R8C5R2C6R35LK ■ЖC8R0C6R2C5R2C6R2C5R4C6R6C5R2C6R4C5R4C6R8C5R4C6R10C5R2C6R2C5R2C6R4C5R4C8R30C6R2C7R22C6R2C8R11L█ ЖC8R10C7R2C6R2C8R8C7R2C6R2C8R2C7R2C5R4C6R2C8R2C7R2C5R6C6R2C8R2C5R2C7R2C6R2C8R4C5R2C8R2C7R2C6R2C7R2C6R2C8R2C6R2C8R2C6R2C7R2C6R2C8R8C6R2C8R35M6 ЖC8R4C5R2C8R4C5R4C6R2C8R2C5R4C8R2C7R2C5R4C8R14C5R4C6R2C7R2C6R2C8R38C6R2C7R10C6R14C8R11Mи ЖC8R6C6R6C5R2C6R10C5R2C6R4C5R4C6R8C5R12C6R4C5R2C6R4C5R2C6R2C5R2C6R2C5R2C6R2C5R2C6R2C5R2C6R8C5R2C6R14C5R6C6R17M¤ &ЖC8R0C6R4C5R4C6R6C5R4C6R2C5R4C6R4C5R4C6R8C5R4C6R4C5R4C6R8C8R32C6R2C7R10C6R2C8R23N▒ 0ЖC8R10C6R2C8R2C5R2C8R2C5R2C6R2C8R4C5R2C6R2C8R2C5R2C6R2C8R4C7R2C5R2C7R2C5R2C7R2C5R2C8R6C5R2C8R2C7R2C6R2C8R2C5R2C8R2C7R2C8R2C7R2C8R2C5R2C8R8C7R2C8R12C7R2C5R6C6R2C8R8C5R2C6R2C8R3O :ЖC8R6C5R6C6R2C8R2C7R2C5R2C6R2C8R2C5R4C8R2C7R2C5R2C8R4C5R4C8R2C7R2C5R2C6R2C8R42C6R2C7R10C6R2C8R23OЧ DЖC8R6C6R4C5R2C6R2C5R2C6R4C5R2C6R6C5R2C6R8C5R8C6R2C5R2C6R6C5R2C6R4C5R2C6R2C5R2C6R4C5R2C6R2C5R2C6R12C5R2C6R12C5R10C6R6C5R6C6R3Oэ NЖC8R0C6R6C5R4C6R2C5R2C6R6C5R4C6R2C5R4C6R2C5R6C6R4C5R4C6R12C8R34C6R2C7R10C6R2C8R23Pе XЖC8R6C6R2C8R2C7R2C6R2C8R2C5R2C8R4C5R2C6R2C8R4C5R2C6R2C8R2C7R2C5R2C8R2C5R2C8R2C7R2C6R2C8R4C7R2C5R2C8R2C7R2C6R2C8R2C7R2C8R4C6R2C8R2C6R2C7R2C6R2C8R10C6R2C8R8C7R2C5R10C8R6C5R6C6R2C8R1P· bЖC8R6C5R2C6R4C8R2C5R2C6R2C8R4C7R2C6R2C8R4C5R2C8R4C5R6C6R2C8R48C6R2C7R10C6R2C8R23QК lЖC8R8C6R4C5R2C6R2C5R2C6R6C5R2C6R6C5R6C6R2C5R2C6R2C5R4C6R6C5R2C6R4C5R2C6R2C5R4C6R2C5R2C6R2C5R2C6R2C5R2C6R12C5R2C6R8C5R12C6R4C5R2C6R2C5R6C6R1Q╪ vЖC8R0C6R4C5R2C6R4C5R2C6R4C5R2C6R6C5R2C6R4C5R6C6R22C8R34C6R2C7R10C6R2C8R23R} АЖC8R12C7R2C6R2C8R2C5R2C6R2C8R4C5R2C6R2C8R8C7R2C5R2C8R2C5R2C8R6C7R2C6R2C8R2C7R2C6R2C8R2C7R2C8R4C7R2C8R2C7R2C8R2C5R2C8R12C7R2C5R2C8R6C7R2C5R10C8R4C7R2C6R2C5R6C8R1R┬ КЖC8R4C5R2C8R2C5R2C7R2C8R6C6R2C8R4C7R2C6R2C8R64C6R2C7R10C6R2C8R23S3 ФЖC8R10C6R4C5R4C6R2C5R2C6R6C5R2C6R6C5R4C6R2C5R2C6R8C5R2C6R2C5R4C6R4C5R2C6R4C5R6C6R18C5R4C6R6C5R12C6R4C5R8C6R1Sq ЮЖC8R0C6R2C5R2C6R4C5R4C6R6C5R2C6R38C8R34C6R2C7R10C6R2C8R23T иЖC8R16C7R2C6R2C7R2C6R2C8R12C5R2C8R4C5R2C8R6C7R2C6R2C8R2C5R2C8R4C7R2C6R2C8R4C6R2C7R2C8R2C7R2C6R2C8R16C7R2C5R2C8R4C7R2C5R8C7R2C5R2C8R2C7R2CC8R0C5R6C6R6C5R4C6R2C5R6C6R8C5R6C6R2C5R4C6R2C5R12C6R2C5R4C6R2C5R2C8R24C6R2C7R10C6R2C8R2C6R2C7R6C6R2C8R11Bх ЖC8R12C7R2C5R22C6R2C5R2C6R2C8R4C5R12C7R2C5R2C6R2C8R4C7R2C5R4C6R2C8R2C5R2C8R2C7R2C6R2C7R2C6R2C7R2C5R2C8R26C5R2C8R2C7R2C5R3Cv "ЖC8R0C5R8C6R2C5R4C8R2C5R4C6R2C8R2C7R2C5R8C8R2C7R2C6R2C8R2C7R2C5R2C8R2C7R4C5R4C8R2C5R2C7R2C5R2C8R2C7R2C8R24C6R2C7R10C6R2C8R2C6R2C7R6C6R2C8R11C═ ,ЖC8R2C6R10C5R28C6R6C5R4C6R2C5R10C6R8C5R4C6R2C5R2C6R4C5R2C6R2C5R6C6R10C5R16C6R2C5R9DR 6ЖC8R0C5R6C6R2C5R8C6R2C5R2C6R4C5R8C6R2C5R2C6R2C5R2C6R4C5R2C6R2C5R2C6R2C5R4C6R2C5R6C6R2C5R2C8R24C6R2C7R10C6R2C8R2C6R2C7R6C6R2C8R11D╚ @ЖC8R2C6R2C8R8C7R2C5R20C6R2C7R2C6R2C8R6C7R2C5R14C8R8C7R2C5R2C7R2C6R2C8R2C7R2C6R2C7R2C6R2C5R2C8R12C5R2C8R2C5R22C6R1EF JЖC8R0C6R2C5R2C6R2C8R2C6R2C7R2C5R4C6R4C5R8C6R2C5R2C6R2C5R2C8R4C5R2C8R4C5R2C8R2C5R2C8R2C5R4C8R2C5R4C8R28C6R14C8R2C6R10C8R11Eг TЖC8R2C6R10C5R22C6R2C5R2C6R10C5R12C6R14C5R2C6R4C5R2C6R2C5R2C6R14C5R2C6R4C5R12C6R2C5R8C6R1E· ^ЖC8R0C6R6C5R8C6R6C5R6C6R2C5R4C6R2C5R2C6R4C5R2C6R4C5R2C6R2C5R2C6R4C5R2C6R2C5R4C8R65F~ hЖC8R2C6R2C8R10C7R2C5R18C6R2C7R2C6R2C8R10C5R8C6R2C8R12C5R4C8R2C5R2C6R2C7R2C5R2C7R2C6R2C8R10C5R2C8R10C7R2C5R4C8R2C7R2C5R4C7R2C5R1Fщ rЖC8R0C5R2C8R2C5R4C6R2C8R2C5R2C6R8C7R2C6R2C8R2C7R2C5R2C6R2C5R2C8R6C6R2C8R4C5R2C8R2C5R2C8R4C6R2C5R4C8R65GB |ЖC8R2C6R12C5R20C6R2C5R4C6R14C5R2C6R10C5R8C6R2C5R2C6R4C5R2C6R2C5R2C6R10C5R14C6R10C5R7GП ЖЖC8R0C5R2C6R2C5R4C6R14C5R4C6R2C5R4C6R2C5R2C6R12C5R2C6R2C5R2C6R6C5R2C8R67G∙ РЖC8R16C5R18C6R2C7R2C5R2C6R2C8R24C5R6C6R2C8R2C7R2C8R2C7R2C5R2C8R2C6R2C8R8C5R2C6R2C8R22C7R2C5R2C6R2C5R1HJ ЪЖC8R0C5R4C8R2C6R2C8R4C6R10C8R2C5R12C8R4C7R2C6R2C8R6C6R2C8R2C6R2C8R2C6R4C8R67Hд дЖC8R4C6R12C5R18C6R4C5R4C6R18C5R8C6R2C5R2C6R4C5R2C6R2C5R2C6R2C5R2C6R8C5R2C6R30C8R2C5R1Hь оЖC8R0C5R4C6R2C5R2C6R8C5R2C6R2C5R2C6R2C5R8C6R2C5R2C6R4C5R2C6R20C8R67Ij ╕ЖC8R16C7R2C5R2C6R2C7R2C5R10C6R2C8R2C5R8C6R2C8R12C5R2C8R2C7R2C5R2C7R2C5R2C6R2C8R2C7R2C8R2C6R2C8R2C5R2C8R8C6R2C8R30C7R2C6R1I╙ ┬ЖC8R0C6R2C5R2C8R4C6R2C8R2C5R8C7R2C5R2C6R2C5R6C7R2C6R2C8R4C6R2C8R8C6R2C8R2C6R2C8R2C6R4C8R30C6R26C8R11J0 ╠ЖC8R4C6R14C5R2C6R4C5R12C6R4C5R8C6R6C5R6C6R2C5R4C6R2C5R4C6R4C5R4C6R2C5R2C6R8C5R2C6R34C5R1JЗ ╓ЖC8R0C5R4C6R4C5R8C6R2C5R2C6R2C5R12C6R4C5R2C6R8C5R2C6R12C5R2C8R28C6R2C7R22C6R2C8R11K рЖC8R4C6R2C8R4C5R2C8R10C6R2C8R2C7R2C5R8C6R2C8R4C5R8C7R2C5R6C6R2C8R2C5R2C8R2C7R2C6R2C5R2C8R2C7R2C6R2C7R2C8R2C7R2C8R8C0C5R30C7R4C5R14C6R2C8R8C5R4C6R2C8R28C6R2C7R10C6R2C8R2C6R2C7R6C6R2C8R119f ьЖC8R2C5R2C6R16C5R46C6R2C5R619░ ЎЖC8R0C5R44C6R2C5R4C6R8C5R6C6R2C8R26C6R2C7R10C6R2C8R2C6R2C7R6C6R2C8R119╤ ЖC8R2C6R2C8R16C5R50C8R2C5R57: ЖC8R0C5R44C6R2C5R6C6R2C8R4C7R2C5R4C8R28C6R2C7R10C6R2C8R2C6R2C7R6C6R2C8R11:4 ЖC8R2C6R18C5R109:v ЖC8R0C5R54C6R6C5R4C6R2C8R26C6R2C7R10C6R2C8R2C6R2C7R4C6R2C8R13:Л (ЖC8R18C7R2C5R109:ъ 2ЖC8R0C5R18C6R2C5R28C6R2C7R2C5R2C6R2C8R4C7R2C6R2C5R2C8R26C6R2C7R10C6R2C8R2C6R2C7R4C6R2C8R13; <ЖC8R2C6R16C5R54C6R2C5R28C6R6C5R21;_ FЖC8R0C5R18C6R2C5R30C6R2C5R4C6R6C5R6C8R24C6R2C7R10C6R2C8R2C6R2C7R2C6R2C8R15;Ы PЖC8R18C5R26C8R2C5R20C6R2C5R6C7R2C5R20C6R2C8R12C7R2C5R17;ч ZЖC8R0C5R14C6R6C5R24C6R2C5R14C8R2C7R2C5R2C8R26C6R2C7R10C6R6C7R2C6R2C8R15<' dЖC8R2C6R16C5R24C6R2C5R12C6R4C5R6C6R2C5R20C6R6C5R12C6R8C5R15 WHEN RECORDER":Зд11)"IS READY":З б(32,"*");╜┤Е  Т│ Л(13)з200:Д180╘╛W│1:PN$│PN$л"/BAS"ф╚Щ"O",#W,PN$є╥АI│1е100:Л ▄З#W,"5 CLEAR500" 7цЗ#W,"10 PMODE4,1:PCLS1:SCREEN1,1:PMODE3,1" _ЁЮ:Й"STARTING LINE ( 0 - 192 ):";SP: ·Е SP┤0 з240 :ДЕ SP▓192 з240 зЗ"ENDING LINE ("SP" - 192 ):";:Й EP ╔Е EP┤SP з 240 :ДЕ EP▓192 з260 ЎA$│"20 FORI="л И(SP)л"TO"л И(EP):З #W,A$!%"A$│"30 I$=STR$(I):READ A$:READ B$":З #W,A$!f,A$│"40 DRAW"л Л(34)л"S4BM0,"л Л(34)л"+I$+A$:DRAW B$":З #W,A$!Б6A$│"50 NEXT I":З #W,A$!Ь@A$│"60 GOTO60":З #W,A$!иJPP│1000!╢T╚3,1:┐1,1!╞^АY│ SP е EP!╒hВ SPEED UP!чrА L│0е128й128!э|Ю!ўЖA$│""" РT$│ И(PP)л"DATA"".ЪC│ а(0,Y):T$│T$л"C"л И(C)л"R""PдЗ"NOW DECODING LOCATION # ";Y"cоАI│0лL е 128лL"p╕З@63,T$;"Й┬D│ а(I,Y):Е D│C з490"п╠H$│ И(V)л"C"л И(D)л"R":ЗH$;:Бж670"┬╓T$│T$лH$:H$│"""╘рC│D:V│1:Бе500"▐ъV│Vл1"хЇЛI#■H$│ И(V):Бж670:T$│T$лH$#З@64,T$:V│0:A$│T$:T$│""#'T$│A$#4K│ З(T$)#O&АYY│1еK:R$│ Р(T$,YY,1)#`0Е R$│" "з580#v:P$│P$лR$:З@64,P$;#гDЛ YY:A$│P$:З@64,P$;" ";:P$│"":PP│PPл10#│NВ SLOW DOWN#┐XЗ #W,A$#╬bВ SPEED UP#╒lЛL#▄vЛY#ьАВ SLOW DOWN#їКЪ #W# ФБе710$6ЮTR│ З(H$):А KL│1е TR:JJ$│ Р(H$,KL,1):Е JJ$│" "з690$FиWR$│WR$лJJ$$O▓Л KL$c╝H$│WR$:WR$│"":Р$z╞Ю:З@160, б(32,42);$▐╨З"YOU BASIC GRAPHIC PROGRAM IS NOWSAVED AND READY TO BE RELOADED INTO YOUR COMPUTER'S MEMORY."$Ў┌З б(32,42);:З:З:З:З$№фК%{юВ ****GRAPHIC SCREEN DATA COMPILER BY FRED B. SCERBO, USEDBY THE PERMISSION OF ILLUSTRATEDMEMORY BANKS, COPYRIGHT (C) 1983KK│66мX:AA│ Б(KKо2)%йHА R│1 е AA:З#NN:Л R%╖RА K│1 е X%у\Е  Р(L$(K),1,1)│"<" з  Р(L$(K),1,1)│" "&!fА B│1 е  З(L$(K)):Е  Р(                                                                                                                                                                                                                                                                 ж&%:Г********DRAGON MAGIC*********&I:Г******CHARACTER CREATOR******&m:Г*******COPYRIGHT 1983********&С:Г****PRICKLY-PEAR SOFTWARE****&╡:Г*****ALL RIGHTS RESERVED*****&├X│ Д(м Я)&╘ М C(8),C$(8)&ьА X│1 е 8:Н C$(X):Л'5dЮ:З" PRESS ANY KEY TO ROLL":K$│ Т:Бж 9000:З" COMPUTING ROLL";:Бж 199'UnЮ:А X│1 е 8:ЗC$(X),C(X):Л X'БpHP│C(3)лC(7)лC(8):З"HIT POINTS",HP:CC│0'╓sЕ C(1)▓9 ░ C(2)▓9 ░ C(4)▓7 ░ C(5)▓8 ░ C(6)▓9 ░ C(7)▓8 ░ C(8)▓8 з З" ROGUE",:CC│1( vЕ C(5)▓6 ░ C(7)▓8 ░ C(8)▓8 з З" WARRIOR",:CC│1(CxЕ C(2)▓7 ░ C(4)▓7 ░ C(5)▓8 ░ C(6)▓9 з З" THIEF",:CC│1(АzЕ C(2)▓9 ░ C(3)▓8 ░ C(6)▓8 ░ C(7)▓7 з З" ARCANIST",:CC│1(м|Е C(2)▓8 ░ C(3)▓11 з З" GUARDIAN",:CC│1(№~Е C(2)▓9 ░ C(3)▓10 ░ C(4)▓9 ░ C(5)▓9 ░ C(7)▓9 ░ C(8)▓9 з З" CHAMPION",:CC│1)Е CC│0 з З" COMMONER",)KАЕ C(1)▓10 ░ C(2)▓9 ░ C(5)▓9 ░ C(6)▓9 з З" ELF",)eБЕ C(8)▓7 з З" DWARF",)ЭВЗ:З"PRESS 'R' TO REROLL OR 'G'":З"TO GO ON.";:K$│ Т)█МK$│ Т:Е K$┤▓"R" ░ K$┤▓"G" з 140 :Д а 150,1:Е K$│"R" з 100)√ЦЮ:З"THIS PART ISN'T DONE":К*A╟АC│1е8:C(C)│0:АC│1е8:D1│ Д(4):D2│ Д(4):D3│ Д(4):D4│ Д(4):D5│ Д(4)*Л╚HH$(1)│ И(D1):HH$(2)│ И(D2):HH$(3)│ И(D3):HH$(4)│ И(D4):HH$(5)│ И(D5)*▒╥А X│1 е 4:Е HH$(X)▓HH$(Xл1) з 250*╣▄Л X*хцC(C)│( Й(HH$(3))л Й(HH$(4))л Й(HH$(5)))*їЁЗ".";:Л C:Р+%·X$│HH$(X):HH$(X)│HH$(Xл1):HH$(Xл1)│X$:Бе210+P#(Е  Т│"" з X│ Д(0):Бе 9000::Д а 150,1:Р+е'Ж PHYSICAL BEAUTY,INTELLIGENCE,FAITH,SPEED,AGILITY,MANIPULATION,STAMINA,STRENGTHВ SLOW DOWN#┐XЗ #W,A$#╬bВ SPEED UP#╒lЛL#▄vЛY#ьАВ SLOW DOWN#їКЪ #W# ФБе710                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                RN│ Д(PP):ЕRN┤▓10зРBxАZS│1еSB:ЕSB$(ZS)│""зЛ:Р:ДSX│ Й("&H"л Р(SB$(ZS),3,2)):SY│ Й("&H"л П(SB$(ZS),2)):SX│SXл5:SY│SYм3B╛&UZ│U:U│1:B│ Д(8)л2:Бж400:╗(SX,SY)м(X6,Y6),╜:U│UZ:ЕUS(B)│0зUS│USм1C 0US(B)│1:АX│1е4:┬(X6,Y6),X:Л:Т65494,0:╔"V6O1L9C":Т65495,0:ЕUS┤1з1870:ДРC'::ГNONEXISTENT SOVIET BASEC6DRR│0:Бе340CRN:ГNONEXISTANT U.S. BASECПXЕU│1зA$│"U.S. BASE"л И(B)л" NO LONGER EXISTS":Бж50:U│0:РCЩbБе410Cлl:ГSOVIET LOSEC°vЗ@265,"THEY LOOSE....":АX│1е165:┬(128,96),X:в&H549B:ЕX│50з1920:ДЛ:Бе1930D,АЗ@279,"FIRST...":Т65494,0:╔"V6O1L9C":Т65495,0:ЛD7КБе1970DGФ:ГU.S. LOSEDУЮЗ@266,"YOU LOOSE....":АX│1е165:┬(128,96),X:в&H549B:ЕX│50з1960:ДЛ:Бе1970D╟иЗ@279,"FIRST...":Т65494,0:╔"V6O1L9C":Т65495,0:ЛE▓Ю0:A$│" IS IT A GAME, OR IS IT REAL? ":Бж50:З@257,A$;:З@288, б(32, Л(128));E5╝╔"V6O1L9C":АSZ│1е Д(300)EV╞I$│ Т:ЕI$┤▓""з2000:ДЛ:Бе1980Ef╨З@480,"";:СEx┌:ГDEFCON DROPEИфY│121:X│190EЬюY│Yл12:ЕY▓169зРE╛°Бж2050:├(211,Yм11),0,0:Бе2030F2╗(210,Y)м(253,Y),╜:╗м(253,Yл10),╜:╗м(210,Yл10),╜:╗м(210,Y),╜:╗(234,Y)м(234,Yл10),╜:├(211,Yл1),1,1:аX,1:X│Xм10:Р88,116,100,114,112,114,116,118,109,118,111,122,115,126,127,143,129,139,136,149,99,99Fу.НX,Y:ЕX│99░Y│99з1090:Д╗(X,Y)м(Xл2,Yм2),╜:╗(Xл2,Yм2)м(Xл4,Y),╜:╗(Xл4,Y)м(X,Y),╜:Бе1070Gx8Ж109,129,73,115,78,116,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Л:ДЗ@X,Y:а10,1:X│Xл32:ЕX│486зX│335:Л:ДЛ9ЪкАSZ│1е3000:Л:АSZ│294е454й32:З@SZ, б(20," "):Л:З@294,"MISSLES TARGETED":З@330,"AND READY":АSZ│1е1000:Л:в&H54C3:Р9▒┤:ГSOVIET CONDITION:Щ╛Бж1260:A$│"SOVIET UNION'S CONDITION: ":Бж50:в&H54A9:АSZ│294е454й32:З@SZ, б(20," "):Л:SH│ Д(100):SP│ Д(100000000):З@294,"PROJECTED KILL RATIO":З@333,SH:З@358,"% HOUSING DESTROYED":З@394,"";:З═"#########,";SP:З@425,"PEOPLE DEAD";$╚АSZ│1е3000:Л:АSZ│294е454й32:З@SZ, б(20," "):Л:З@294,"BASES REMAINING:":X│326:АY│1е10:ЕSU(Y)│1зЛ:ДЗ@X,Y:а100,1:X│Xл32:ЕX│486зX│335:Л:ДЛ;Ш╥АSZ│1е3000:Л:АSZ│294е454й32:З@SZ, б(20," "):Л:З@294,"MISSLES TARGETED":З@330,"AND READY":АSZ│1е1000:Л:в&H54C3:Р;м▄:ГTIME FUNCTION<}цБж1260:Бж1560:АSZ│294е454й32:З@SZ, б(20," "):Л:З@298,"GAME TIME":З@330," ELAPSED":З@358,THE"HRS"TME"MIN"TSE"SEC":З@394,"ESTIMATED TIME":З@428,"REMAINING":З@454,RH"HRS"RM"MIN"RS"SEC":АSZ│1е4000:Л:в&H54C3:Р<ДЁ:Г<Ч·Е Я▓32768зTF│1<╣Е Я┤32768 ░ TF│1зF4│F4л1:TF│0<╞Бж1780:Р=_в&H54A9:TS│((F4н18)н60)л Ш( Яо60.680555):THE│ Ш(TSо60о60):TS│ Ш(TSм(THEн60н60)):TME│ Ш(TSо60):TS│ Ш(TSмTMEн60):TSE│TS:RH│4мTHE:RM│59мTME:RS│60мTSE:Р=f":Г=},:ГSUB DESTROY MODE=й6Бж1260:A$│"SUBMARINE DESTROY MODE":Бж50=╪@XS│128:YS│144:SL│1:S1│XS:S2│YS:C│ а(XS,YS)>J╜(S1,S2,C):C│ а(XS,YS):S1│XS:S2│YS:ЕC│0з╜(XS,YS,1):Д╛(XS,YS)>\TБж1680:I$│ Т:Е Ж(338)│191з1700:ДЕ Ж(340)│191зSL│0:╜(XS,YS,C):Р>Д^Е Ж(341)│247зYS│YSм1:ЕYS│115зYS│116>мhЕ Ж(342)│247зYS│YSл1:ЕYS│173зYS│172>╥rЕ Ж(343)│247зXS│XSм1:ЕXS│54зXS│55>·|Е Ж(344)│247зXS│XSл1:ЕXS│201зXS│200?ЖР?rРАSZ│1еSB:ЕSB$(SZ)│""зЛ:Р:ДSX│ Й("&H"л Р(SB$(SZ),3,2)):SY│ Й("&H"л П(SB$(SZ),2)):ЕXS│SXл3 ░ YS│SYм1 з1690:ДЛ:Р?Ъа240,1:Р?удЕLA│1з1240:Да120,1:┬(XS,YS),6:ЕXS│SXл3 ░ YS│SYм1 зSB$(SZ)│"":SS│SSм1:╗(XSм3,YSл6)м(XSл3,YSл6),╛@sоUZ│U:U│1:B│ Д(8)л2:Бж400:╗(X6,Y6)м(XS,YS),╜:U│UZ:АX│1е6:┬(XS,YS),X:Л:АX│6е1йм1:┬(XS,YS),X,0:Л:Т65494,0:╔"V6O1L9C":Т65495,0:U$│"":U│0:Бе1600@Н╕:ГU.S. LAUNCH ROUTINE@╜┬З@480, б(32," "):I│0:Е З(U$)┤3зU$│"":Бе1280A4╠а120,1:U│ Ю(1,U$,"-"):UL$│ П(U$, З(U$)мU):UR$│ О(U$,Uм1):U│1:U9│1:B│ Й(UL$):ЕB▓0░B┤11зБж350:ДU$│"":U│0:U9│0:Бе1280Ai╓B│ Й(UR$):ЕB▓0░B┤11зБж400:ДU$│"":U│0:U9│0:Бе1280A}рU9│0:ЕUS(B)│1зРA└ъUU│1:YU│Y5:U$│"":X│X4:Y│Y4:X4│X5:Y4│Y5:X5│X:Y5│Y:Бж710:U│0:Р:РA┘Ї:ГSUB LAUNCH ROUTINEAх■ЕSS│0зРA№ЕJM│1зPP│30:ДPP│50B:Р0а~ЕLA│0░ Я▓1000лRM зЗ@383,10000л Д(89999):З@415,10000л Д(89999):LA│1:A$│"SOVIETS HAVE JAMMED YOUR LAUNCH CODE...":Бж50:З@480,"** CHANGES LOCKED OUT **":а5,20ўИЕLA│1зA$│"COMPUTER ATTEMPTING TO RESTORE CODE...STAND BY...":Бж50:З@480, б(30," ")1 ТБж1520:ЕU│1зР1ЬЕSL│1з16101+жI$│ Т:ЕI$│""зР1░а240,1:ЕI$▓"@"░I$┤ Л(91)▒I$▓"/"░I$┤":"▒I$│"?"▒I$│ Л(13)▒I$│ Л(8)▒I$│"-"з1210:ДР1│║ЕI$│ Л(8)зЕI▓0зI│Iм1:U$│ О(U$,I):З@480лI," ";:Р1╚─ЕI$│"?"░I│0з13101┘╬ЕHP│1зБж13102П╪Е Ж(338)│191зЕLA│1зU$│"":I│0:З@269,"STAND BY...":АSZ│1е4:З@480,"** ACCESS DENIED **":╔"V28O1L6C":З@480, б(20," "):АZS│1е150:ЛZS,SZ:З@269," ":З@480, б(20," "):Р:ДБе12702░тU$│U$лI$:З@480лI,I$;:I│Iл1:Р2╤ьЗ@480, б(32," "):I│0:U$│"":Р3ЎU│ Ю(U$, Л(8)):ЕU│0з1280:ДU$│ О(U$,Uм1)л Р(U$,Uл1):Бе12703YЕU$│"JAM"з1350:ДЕU$│"SUBS?"з1390:ДЕU$│"USCON"з1430:ДЕU$│"SOVCON"з14703у ЕU$│"TIME?"з1510:ДЕ О(U$,6)│"LAUNCH"зU$│ Р(U$,7):Бе1720:ДЕU$│"DESUB"з1590:ДБж1260:З@480,"*COMMAND INPUT ERROR*":а240,1:а50,1:Бж1260:Р3є:ГHELP MENU4 Бж1260:ЕHP│1з13304_(З@288,"USCON ":З"SOVCON":З"JAM ":З"SUBS? ":З"DESUB ":З"LAUNCH":З"TIME? ":HP│1:Р4ю2HP│0:З@288,"LAUNCH":З" CODE ":З" ":З" ":З" ":З" ":З@383,UC;:З@415,CU;:╗(0,109)м(48,109),╜:╗(0,179)м(48,179),╜:Бж1260:Р5<:ГJAM SOVIET'S CODE5tFБж1260:ЕJM▓0зA$│"SOVIETS HAVE SECURED THEIR LAUNCH CODE FROM OUR SENSORS...JAMMING IS INEFFECTIVE":Бж50:Р5иPJM│1:A$│"SOVIET LAUNCH CODE JAMMED":Бж50:J1│0:Р6ZЕJM│1зЕJ1┤350зJ1│J1л1:Бж990:Бе1370:ДJM│2:A$│"SOVIET LAUNCH CODE RE-ACTIVATED":Бж50:Р:ДР6d:Г# OF SUBS6ZnБж1260:A$│"THERE ARE"л И(SS)л" ENEMY SUBS REMAINING":Бж50:ЕSS│0зР7xАSZ│1еSB:ЕSB$(SZ)│""зЛ:Р:ДSC│ Й("&H"л О(SB$(SZ),2)):SX│ Й("&H"л Р(SB$(SZ),3,2)):SY│ Й("&H"л П(SB$(SZ),2)):З@263л(SZл1)н32, Л(SC):╗(SX,SY)м(SXл7,SY),╜:╗м(SXл8,SYм1),╜:╗м(SXл7,SYм2),╜7ЯВ╗м(SXл5,SYм2),╜:╗м(SXл5,SYм3),╜:╗м(SXл4,SYм3),╜:╗м(SXл4,SYм2),╜:╗м(SX,SYм2),╜:╗м(SXм1,SYм1),╜:╗м(SXм2,SYм2),╜:╗м(SXм2,SY),╜:а200,1:Л:Р7┤М:ГU.S. CONDITION8ЬЦБж1260:A$│"UNITED STATES' CONDITION: ":Бж50:в&H54A9:АSZ│294е454й32:З@SZ, б(20," "):Л:UH│ Д(100):UP│ Д(100000000):З@294,"PROJECTED KILL RATIO":З@333,UH:З@358,"% HOUSING DESTROYED":З@394,"";:З═"#########,";UP:З@425,"PEOPLE DEAD"9&аАSZ│1е3000:Л:АSZ│294е454й32:З@SZ, б(20," "):Л:З@294,"BASES REMAINING:":X│326:АY│1е10:ЕUS(Y)│1з7│31:Р'X7│48:Y7│34:Р')X7│70:Y7│42:Р';&X7│53:Y7│53:Р'N0X7│230:Y7│46:Р'`:X8│99:Y8│27:Р'sDX8│107:Y8│29:Р'УNX8│128:Y8│62:X9│67:Y9│140:Р'│XX8│132:Y8│66:X9│77:Y9│155:Р'╙bX8│130:Y8│55:X9│76:Y9│118:Р'ЇlX8│136:Y8│61:X9│105:Y9│135:Р(vX8│142:Y8│70:X9│125:Y9│159:Р(6АX8│154:Y8│66:X9│167:Y9│145:Р(WКX8│147:Y8│58:X9│141:Y9│125:Р(wФX8│126:Y8│54:X9│72:Y9│117:Р(УЮ:ГU.S. GROUND EXPLOSION(ЮиЕU│1зР)▓╗((XXлX3)о2,109)м(X3,Y3),╜:АX│1е4:┬(X3,Y3),X:Л:Т65494,0:╔"V6O1L9C":Т65495,0:ЕUS┤1з1940:ДБе440)╝:ГPLAYER'S ARC DRAW)У╞АXL│0е50:X2(XL)│0:Y2(XL)│0:Л:R2│0:ZZ│0:QQ│0:XA│X4:XI│X4:YI│Y4:ЕX5┤X4 зR2│1:X│X4:Y│Y4:X4│X5:Y4│Y5:X5│X:Y5│Y:XI│X5:YI│Y5)ч╨X2(0)│X4:Y2(0)│Y4:XF│(X4лX5)о2:YF│(Y4лY5)о2:D│(Y4мY5):AOS│XF:XV│AOS:YV│(YFлD)о2)ў┌ЕZZ▓50зZZ│0*█ЕZZ┤0зZZ│50*c▀XM│(X4лXV)о2:YM│(Y4лYV)о2:XN│(X4лXM)о2:YN│YM:X2(ZZ)│X4:Y2(ZZ)│Y4:ЕQQ│0зZZ│ZZл1:ДZZ│ZZм1*|фЕ Б(XN)│ Б(XV)м2з770*ЦюЕ Б(XN)│ Б(XV)л3 з790*м°X4│XN:Y4│YN:Бе730+3ZZ│ZZм1:QQ│1:X2(ZZ)│XV:Y2(ZZ)│YV:X2(ZZл1)│XV:Y2(ZZл1)│YV:X2(ZZл2)│XV:Y2(ZZл2)│YV:X2(ZZл3)│XV:Y2(ZZл3)│YV:ZZ│ZZн2:X4│X5:Y4│Y5:Бе730+: :Г+UZZ│ZZн2:UU│1:ЕR2│1з880+q ЕY2(ZZ)│0зZZ│ZZм1:Бе800+Я*ЕU│1зЕYU▓52з╗(X6,Y6)м((X2(0)лX6)о2,109),╜+о4AU│м1:FK│1+█>AU│AUл1:ЕAU▓ZZ з850:ДЕX2(AU)┤0зX2(AU)│XI,8C╜(X2(AU),Y2(AU),1):╗(XI,YI)м(X2(AU),Y2(AU)),╜:XI│X2(AU):YI│Y2(AU):Бж990:ЕRR│1з970:ДБе830,BHБе830,QRЕSU│0з1900,l\UU│0:FK│0:ЕRR│1з970:ДР,sf:Г,ПpЕY2(ZZ)│0зZZ│ZZм1:Бе880,╜zЕU│1зЕYU▓52з╗(X6,Y6)м((X2(0)лX6)о2,109),╜,╔ДAU│ZZл1,їОAU│AUм1:ЕAU│м1з930:ДЕX2(AU)┤0зX2(AU)│XI-RУ╜(X2(AU),Y2(AU),1):╗(XI,YI)м(X2(AU),Y2(AU)),╜:XI│X2(AU):YI│Y2(AU):Бж990:ЕRR│1з970:ДБе910-\ШБе910-kвЕSU│0з1900-БмUU│0:ЕRR│1з970:ДР-Э╢:ГRETURN TO OTHER'S ARC-░└ЕFK│1з830:Д910-├╩ЕF2│1з220:Д290-╩╘:Г-▌▐:ГPLAYER INPUT.GшЕLA│1зV│ Д(5):ЕLL│9зV│1:V│ Д(10):OC(V)│ Й(OC$(V)):Бе1020:ДЕV│1зV│ Д(10):OC(V)│ Й(OC$(V)):Бе1020:Д1020.RЄБе1150.М№LL│0:АSZ│10е1йм1:ЕOC(SZ)┤10зV│OC(SZ):LL│LLл1:ДV│ Д(9).юV$│ И(V):ИSZ Бж1100,1110,1120,1130,1140,1050,1060,1070,1080,1090:Л:ЕLL│10зLA│2:Бе1040:ДБе1170/aA$│"U.S. LAUNCH CODE RE-ACTIVATED":ЕU$│""зБж50:Бе1150:ДАSZ│1е З(U$):З@479лSZ, Р(U$,SZ,1);:а240,1:Л:Бж50:Бе1150/qЗ@383,V$;:Р/Б$З@384,V$;:Р/С.З@385,V$;:Р/б8З@386,V$;:Р/▒BЗ@387,V$;:Р/┴LЗ@415,V$;:Р/╤VЗ@416,V$;:Р/с`З@417,V$;:Р/ёjЗ@418,V$;:Р0tЗ@419,V$; (3 :Г WARGAME#:ГA:Г BY TOM WEBERZ(Т65495,0:Бж2020:Бе90Ф2L│ З(A$):A│0:B│0:A│Aл1:D$│ Р(A$,A,1):L$│ б(31," ")лD$═<З@256,L$;:A│Aл1:ЕA▓L зA│L:ЕY│0▒F1│1з70:Д╜(X,Y,1):Д80фFЗ@256, б(32," "):РPL$│ П(L$, З(L$)м1)л Р(A$,A,1):а200,2:Бе60БZSB$(1)│"213778":SB$(2)│"223784":SB$(3)│"233790":SB$(4)│"24379C":SB$(5)│"3D37A8":SB│ Д(5):SS│SB:RM│ Д(2000) PdUC│10000л Д(89999):CU│10000л Д(89999):З@383,UC;:З@415,CU;:CU$│ И(CU)л И(UC):CU$│ П(CU$,11):CU$│ О(CU$,5)л П(CU$,5):АSZ│1е10:OC$(SZ)│ Р(CU$,SZ,1):OC(SZ)│10:Л:SU│10:US│10: Я│0:МX1(50),Y1(50),X2(50),Y2(50) ceТ65495,0:Бе340 {n:ГCOMPUTER ARC DRAW! xБж1370:АX│0е50:X1(X)│0:Y1(X)│0:Л:R│0:ZM│0:F│0:B│ Г0(0):╚4,1:┐1,1:XX│X1:XO│X1:YO│Y1:ЕX2┤X1 зR│1:X│X1:Y│Y1:X1│X2:Y1│Y2:X2│X:Y2│Y:XO│X2:YO│Y2!^ВX1(0)│X1:Y1(0)│Y1:XF│(X1лX2)о2:YF│(Y1лY2)о2:D│(Y1мY2):AOS│XF:XV│AOS:YV│(YFлD)о2!tМБж990:ЕZM▓50зZM│0!ДНЕZM┤0зZM│50!▀СXM│(X1лXV)о2:YM│(Y1лYV)о2:XN│(X1лXM)о2:YN│YM:X1(ZM)│X1:Y1(ZM)│Y1:ЕF│0зZM│ZMл1:ДZM│ZMм1!°ЦЕ Б(XN)│ Б(XV)м2з180"аЕ Б(XN)│ Б(XV)л3 з190"(кX1│XN:Y1│YN:Бе140"?┤ZM│ZMм1:ЕZM┤0зZM│0"P╡ЕZM▓47зZM│47"╬╣F│1:X1(ZM)│XV:Y1(ZM)│YV:X1(ZMл1)│XV:Y1(ZMл1)│YV:X1(ZMл2)│XV:Y1(ZMл2)│YV:X1(ZMл3)│XV:Y1(ZMл3)│YV:ZM│ZMн2:X1│X2:Y1│Y2:Бе140"ч╛F│0:ZM│ZMн2:ЕR│1з260"°╚ЕZM▓50зZM│50#═ЕY1(ZM)│0зZM│ZMм1#╥F2│1:A│м1#D▄A│Aл1:ЕA▓ZM з240:ДЕX1(A)┤0зX1(A)│XO#Z▌ЕY1(A)┤0зY1(A)│YO#▒с╜(X1(A),Y1(A),1):╗(XO,YO)м(X1(A),Y1(A)),╜:XO│X1(A):YO│Y1(A):ЕUU│1з960:ДБж990:Бе220#╗цБе220#щЁF│0:ZM│0:F2│0:RR│0:ЕYO▓52з670:ДЕUS┤1з1940#я·Р#Ў:Г$ЕY1(ZM)│0зZM│ZMм1:Бе270$A2│ZMл1$И"A2│A2м1:ЕA2┤0з310:Д╜(X1(A2),Y1(A2),1):╗(XO,YO)м(X1(A2),Y1(A2)),╜:XO│X1(A2):YO│Y1(A2):ЕUU│1з960:ДБж990$Т,Бе290$╗6F│0:ZM│0:RR│0:ЕYO▓52з670:ДЕUS┤1з1940$┴@Р$▐J:ГGET SOVIET COORDINATES$ЁTRR│1:B│ Д(10)%7^ИB Бж470,480,490,500,510,520,530,540,550,560:ЕU│1зЕSU(B)│0зSU│SUм1%VhЕU│1зSU(B)│1:X4│X7:Y4│Y7:Р%rrX1│X7:Y1│Y7:TX│X1:TY│Y1%Н|:ГGET U.S. COORDINATES%ЪЖB│ Д(10)%сРИB Бж570,580,590,600,610,620,630,640,650,660:ЕU9│1зЕUS(B)│1зБж1870&ЪЕU│1зX5│X8:Y5│Y8:X6│X9:Y6│Y9:Р&IдX2│X8:Y2│Y8:X3│X9:Y3│Y9:XT│X2:YT│Y2:UX│X3:UY│Y3:ЕUS(B)│0зUS│USм1&[оUS(B)│1:Бж110&g╕PR│SUл1&Й┬PU│ Д(PR):ЕPU┤▓1 зБж990:Бе450&У╠Бе340&ж╓X7│238:Y7│42:Р&╣рX7│232:Y7│40:Р&╠ъX7│238:Y7│45:Р&▀ЇX7│240:Y7│46:Р&Є■X7│238:Y7│47:Р'X7│242:YT 2 1 2":CS$(6)│"NV":Ю:З"SELECT PRESIDENTIAL CANDIDATE REPUBLICAN":FLAG│0:Бж8090TВuЙFL:FL│ Б(FL):ЕFL┤1▒FL▓6з8053:Д8054TжvЮ:З"SELECT RUNNING MATE":Бж8090T╬wЙX:X│ Б(X):ЕX┤1▒X▓6▒X│FLз8055:Д8056T┘xБж8060UyPC$(2,2)│PC$(2,2)л" R-"лCS$(X):PC$(2,1)│PC$(2,1)л" R-"лCS$(FL)U"zРUS|PC$(J,1)│ О(C$(FL),23):PC$(J,2)│ О(C$(X),23)UР}З"THE STATE CHAIRMEN ARE GIVEN THEIR INSTRUCTIONS..."UЫ~АI│1е3U┴SR(J,1,I)│ Й( Р(C$(FL),22л2нI,1))UцАSR(J,2,I)│ Й( Р(C$(X),22л2нI,1))UэБЛIVГHS$(J,1)│CS$(FL):HS$(J,2)│CS$(X)VЕАI│0е50V<ЖЕHS$(J,1)│S$(I)зCC(J,1)│IVZЗЕHS$(J,2)│S$(I)зCC(J,2)│IV`ИЛVЧМCN│1:PL│J:LO│CC(J,1):Бж1000:VT(LO,PL)│10лVT(LO,PL)V╬НCN│2:PL│J:LO│CC(J,2):Бж1000:VT(LO,PL)│VT(LO,PL)л10VщОVT(LO,PL)│VT(LO,PL)л10VяПРWЪЗ" # HOPEFULS F E C":АJJ│1е6W0ЫЕFLAG│JJз8095WOЬЗJJ;C$(JJ):З" "лCS$(JJ)WUЯЛW[аРWs" В LOCATIONS X,X,Y,YW╝#Ж 12,11,12,12,11,11,13,12,12,11,12,11,8,9,10,11,11,10,9,9,10,10,9,8 W·#Ж 9,8,9,9,10,9,8,8,7,7,7,6,6,4,5,2,2,7,2,4,5,3,4,1,5,3,1 X1#Ж 2,3,2,2,2,2,1,2,2,3,2,3,4,3,4,3,3,5,4,3,4,3,4,4 Xm#Ж 2,3,2,2,2,3,1,2,3,3,2,1,2,4,3,2,1,4,3,3,4,2,1,5,2,3,1Xy# В EDGESX░# Ж 0,0,0,1,0,0,1,0,1,1,1,0,0,1,0,1,0,1,0,0,0,0,0,0 Xь# Ж 1,0,1,0,1,1,0,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,0,1,1,1X№#В ADV COSTSY2#Ж 1,1,2,2,3,4,1,1,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1Yn#Ж 2,2,2,3,3,3,1,1,1,1,1,1,1,1,1,1,1,3,4,1,1,1,1,1,1,1,1Y#В ELEC VOTESY└#Ж 8,10,14,17,27,41,4,4,4,3,3,3,10,10,12,12,13,17,9,9,8,6,7,6Z#Ж 11,12,13,21,25,26,10,8,8,7,5,3,4,6,7,6,9,26,45,4,4,4,4,4,3,3,3Z #'В STATES AND AVG VOTESZn#(Ж CT,MD,MA,NJ,PA,NY,ME,RI,NH,DE,VT,DC,LA,TN,GA,VA,NC,FL,AL,KY,SC,WV,MS,ARZ┼#)Ж WI,MO,IN,MI,OH,IL,MN,IA,OK,KS,NE,ND,SD,AZ,CO,OR,WA,TX,CA,UT,NM,ID,MT,HI,WY,NV,AK[!#*Ж 150,150,250,300,450,650,40,40,30,23,18,13,130,150,140,170,170,300,120,110,80,8,70,70 [З#+Ж 200,200,210,360,400,500,180,120,100,90,60,30,30,70,100,100,150,400,750,50,40,32,32,30,15,20,11 [Ъ#2АDL│1е1200:Л:Р[н#3АDL│1е2400:Л:Р[╣'Х500:└2[┬'Бе10                                                                                                                                                                                                                                                                SHOWS:"K.║ЗPC$(1,1):Зд14), Б(100нXо(XлY));"%"KV─ЗPC$(2,1):Зд14), Б(100нYо(XлY));"%"Ka╬Бе4500KВ З"PRESS TO CONTINUE"KвK$│ Т:ЕK$│ Л(13)з7800:Д7695K╡xИPLБе7801,7803K╧yЮ4:З@10,"DEMOCRATIC";K┌zБе7804KЇ{Ю3:З@10,"REPUBLICAN";L|ИCNБе7805,7807L+}З@36," PRESIDENTIAL CANDIDATE "L6~Бе7808L_З@32," VICE-PRESIDENTIAL CANDIDATE "LoАЗPC$(PL,CN)LЎБЕDY▓1зЗ Л(255);" ";DY;"DAYS UNTIL THE ELECTION "; Л(255);:ДЗ" "; Л(255); Л(255);" TOMORROW'S THE ELECTION! "; Л(255); Л(255);" ";M!ВЗ@129,"FINANCIAL STRENGTH";SR(PL,CN,1)MLДЗ@161,"EXPERIENCE ";SR(PL,CN,2)MwЕЗ@193,"CHARISMA ";SR(PL,CN,3)MЛЖЕ(MDм10│PL)з500MйЗЕMY(PL)▓0▒DY┤3з7816:Д7838MщИЗ═"% %$#,###,###";"MONEY AVAILABLE ",MY(PL)N"ЙЗ" YOU ARE CURRENTLY IN -";S$(CC(PL,CN));"- "NJКЗ@321,"T=TRAVEL A=ADVERTISE"NoМЗ@353,"R=RAISE FUNDS D=DEBATE"NбОЗ@385,"Y=YIELD I=INTELLIGENCE":а100,5N╖ЦK$│ Т:ЕK$│""з7830NчШЕK$│"T"▒K$│"A"▒K$│"R"▒K$│"D"▒K$│"Y"зР:Д7834N■ЪЕK$│"I"з7500:Д7830O[ЮЗ═"% %$#,###,###";"YOU OWE ", В(MY(PL)):З"YOU MUST RAISE FUNDS":Бж9011:K$│"R":Бе7832Oц@Ю:З"DIRECTIONS FOR CANDIDATE SELECTION: CHOOSE PRESIDENTIAL AND VICE PRESIDENTIAL CANDIDATES FROM THE";P]AЗ"LIST. STRENGTHS ARE CODED BY F=FINANCIAL(1-5) E=EXPERIENCE(1-5) C=CHARISMA(1-5)"P~CЗ:З:З"HIT ENTER TO CONTINUE"PЮDK$│ Т:ЕK$│ Л(13)з8005:Д8004PдEРQ=JЮ:C$(1)│"SEN. JOHN GLENN 2 1 4":CS$(1)│"OH":C$(2)│"SEN. ALAN CRANSTON 3 2 1":CS$(2)│"CA":C$(3)│"GOV. JERRY BROWN 1 2 4":CS$(3)│"CA"Q╘KC$(4)│"SEN. WALTER MONDALE 2 4 2":CS$(4)│"MN":C$(5)│"GOV. REUBEN ASKEW 1 1 2":CS$(5)│"FL":C$(6)│"SEN. GARY HART 1 1 3":CS$(6)│"CO"RLFLAG│0:З"SELECT PRESIDENTIAL CANDIDATE DEMOCRATIC PARTY":Бж8090REMЙFL:FL│ Б(FL):ЕFL┤1▒FL▓6з8013:Д8014RiNЮ:З"SELECT RUNNING MATE":Бж8090RСOЙX:X│ Б(X):ЕX┤1▒X▓6▒X│FLз8015:Д8016RЬPБж8060R▀QPC$(1,2)│PC$(1,2)л" D-"лCS$(X):PC$(1,1)│PC$(1,1)л" D-"лCS$(FL)RхRРS~rЮ:C$(1)│"PRES. RONALD REAGAN 3 5 3":CS$(1)│"CA":C$(2)│"VICE-PRES. GEORGE BUSH 1 3 2":CS$(2)│"MI":C$(3)│"SEN. LOWELL WEICKER 1 2 4":CS$(3)│"CT"SфsC$(4)│"SEN. ROBERT DOLE 3 2 1":CS$(4)│"KS":C$(5)│"SEN. HOWARD BAKER 1 3 3":CS$(5)│"TN"TZtC$(6)│"SEN. PAUL LAXALB┬П:АI│1е153:НY:ЛB)╠JJ│0:АI│0еX:НJJ:ЛBx╓JJ│JJн50000:З"ADVERTISING IN -";K$;"- COSTS $";JJ:Бж9010 BНрMY(PL)│MY(PL)мJJBнъVT(X,PL)│VT(X,PL)л15л Д(15)B│ЇРCApЮ:З@128,"RAISE FUNDS":З:З:З"OPTIONS:":З"1=RALLY *HIGH RISK2=$100-A-PLATE DINNER *MED RISK3=PRIVATE CONTRIBUTIONS*LOW RISK"CwzЗ"ENTER 1,2, OR 3":ЙX:X│ Б(X):ЕX┤1▒X▓3з6010:Д6020C═ДY│SR(PL,CN,1)н10000н Д( Б(10оX)):З"CONGRATULATIONS, YOU RAISED IN EXCESS OF $";YDОVT(CC(PL,CN),PL)│VT(CC(PL,CN),PL)л20м5нCNн Д(5)DУMY(PL)│MY(PL)лYD"ШБж9011:РDjdЮ:З@128,"YOU ARE CHALLENGING YOUR OPPONENT TO A DEBATE...":ЗDВnЕ Д(3)│2з6530:Д6520DфxБж9010:З:З"HE DECLINES . . . BUT YOU PICK UP SUPPORT NATIONWIDE FOR YOUR INITIATIVE":Бж9011EyАI│1е25:X│ Д(51)м1:VT(X,PL)│VT(X,PL)л Д(5):ЛIEzРEYВБж9011:З"HE ACCEPTS ... BUT WILL ONLY DEBATE YOU ON";EeДX│ Д(4)E|ЖИXБе6535,6536,6537EУЗЗ" DEFENSE":Бе6540EоИЗ" THE ECONOMY":Бе6540E═ЙЗ" SOCIAL PROGRAMS":Бе6540EхКЗ" HIS TURF":Бе6540F<МЗ:Бж9010:X│ Д(2):ЕX│1зЗ"THIS HITS YOUR WEAKNESS...":ДЗ"THIS FITS YOUR STRATEGY..."FfОЗ:З"DO YOU STILL WANT TO DEBATE? Y/N"FЮРK$│ Т:ЕK$│""з6544:ДЕK$│"Y"з6546:ДЕK$│"N"з6548:Д6544F░ТБж9011:X│3мPLFєУY│SR(PL,CN,2)лSR(PL,CN,3)мSR(X,CN,2)мSR(X,CN,3)л3м Д(6):Бе6560G6ФБж9011:З" OK, BUT YOU LOSE SOME RESPECT OF THE VOTERS":Бж9011GIХЕPL│1зX│2:ДX│1GvЦАI│1е20:Y│ Д(51)м1:VT(Y,X)│VT(Y,X)л Д(3)GГЧБж9010:РGжаЕ В(Y)┤1з6570:ДЕY▓0з6580:Д6590G╘кЗ"THE DEBATE WAS A VIRTUAL DRAW":Бж9011:РH ┤З"YOU WERE A CLEAR CUT WINNER OF THE DEBATE":Бж9011H3╢АI│0е50:VT(I,PL)│VT(I,PL)л Д(4):ЛH9╕РHФ╛З"YOU STUMBLED ON SOME IMPORTANT POINTS ... THE PRESS FEELS THAT YOU LOST THE DEBATE"Hз└ЕPL│1зX│2:ДX│1H╦┬АI│0е50:VT(I,X)│VT(I,X)л Д(4):ЛH▌├Бж9010:Бж9010Hу─РI<XЮ:З@128,"YOU ARE YIELDING YOUR POSITION ...YOU WILL GAIN STRENGTH IN THIS STATE"IGbБж9011I{lVT(CC(PL,CN),PL)│VT(CC(PL,CN),PL)л20м5нCNл Д(5)IТqMY(PL)│MY(PL)м1000IШvРIмLП:АJ│1е204:НX:ЛI║VЮ:АI│0е50I┼`НC$(1)IхjT│ Б(VS(I)о10):W│VS(I)мTн10JlЕT│1зX│188:ДЕT│2зX│179:ДЕT│3зX│191:ДX│143JAnЕW│1зY│172:ДЕW│2зY│163:ДЕW│3зY│175:ДY│143JltЗ@Iн8,S$(I)л"-"лC$(1)л" "; Л(X); Л(Y);Js~ЛIJШИЗ:З"PRESS FOR MORE INFO"J╕ТK$│ Т:ЕK$│ Л(13)з7580:Д7570J╞ЬЮ:X│0:Y│0JьжАI│0е50:X│XлVT(I,1):Y│YлVT(I,2):ЛK░З"GALLUP POLL ENT - THIS HASRESULTED IN GENERAL SUPPORT FOR THE REPUBLICAN PARTY"9n╜X│PL:PL│1:АJ│1е20:Y│ Д(50)м1:Бж4700:ЛJ9~╛PL│X:Бе7690:-╞З"AP WIRE STORY: SHUTTLE LAUNCH DELAY HAS RESULTED IN NEW QUERY ON COST OVERRUNS IN NASA - BOTH CANDIDATES SUFFER, REPUBLICANS IN TEXAS AND DEMOCRATS IN CALI- FORNIA.":d╟X│PL:PL│1:Y│41:Бж4700:PL│2:Y│42:Бж4700:PL│X:Бе7690:с╨З"NEW YORK TIMES HAS ENDORSED THE REPUBLICAN PRESIDENTIAL CANDI- DATE, AND THE L.A. TIMES HAS EN-DORSED THE DEMOCRATS.";#╤X│PL:АJ│1е25:Y│ Д(51)м1:PL│1:Бж4700:Y│ Д(51)м1:PL│2:Бж4700:ЛJ;3╥PL│X:Бе7690;Ї┌З"SECOND QUARTER ECONOMIC FIGURES SHOW A SLIGHT INCREASE IN NEW HOUSING STARTS, BUT THE COST-OF-LIVING INDEX HAS RISEN .6% FOR THE MONTH - DEMOCRATS WILL GAIN THE BENEFITS OF THIS NEWS"<█X│PL:PL│1:АJ│1е13:Y│ Д(51)м1:Бж4700:ЛJ °З"NATIONAL ENQUIRER REPORTS THAT":ЗPC$(1,2):З"DEDUCTED EXPENSES ON HIS 1980 INCOME TAX FOR LAS VEGAS GAMB- LING LOSSES.">/∙Бж9011:З"NOBODY CARED...":Бе7690>I\VT(Y,PL)│VT(Y,PL)л5:Р>wИЮ:З@128,"GOING OUT ON THE CAMPAIGN TRAIL">МКK$│S$(CC(PL,CN))>ьМЗ:З"YOU ARE CURRENTLY IN ";K$;".":З"WHERE DO YOU WANT TO GO? (ENTER 2-LETTER STATE)"?ТЙK$:Е З(K$)┤▓2з5000?ЬX│м1:АI│0е50?'жЕS$(I)│K$зX│I?.░ЛI?>▓ЕX┤▓м1з5050?И│З"THERE IS NO STATE IDENTIFIER LIKE THAT, TRY AGAIN":Бж9011:Бе5000?Ы║П:АI│1еX:НX1:Л?╢─П:АI│1еCC(PL,CN):НX2:Л?╠╬П:АI│1е51лX:НY1:Л?ъ╪П:АI│1е51лCC(PL,CN):НY2:Л@тX3│(X1мX2)н(X1мX2)л(Y1мY2)н(Y1мY2)@hьX3│ Б(X3):ЕX3┤│2зЗ"THIS WILL BE A CHEAP TRIP.":ДЗ"THE PRESS CORPS IS GOING ALONG."@ЬЎMY(PL)│MY(PL)м900нX3:З"THE TRIP COSTS $";900нX3@мCC(PL,CN)│X@ю VT(CC(PL,CN),PL)│VT(CC(PL,CN),PL)л33м7нCNл Д(8)л2нSR(PL,CN,3)@∙Бж9011ALO│CC(PL,CN):Бж1000A(РAZ|Ю:З@128,"ADVERTISING ...":З:З:З"WHERE? (ENTER 2-LETTER STATE)"ArЖЙK$:Е З(K$)┤▓2з5500AГРX│м1:АI│0е50AХЪЕS$(I)│K$зX│IAЬдЛIA▒╕ЕX│м1з5561:Д5570AЇ╣З"THERE IS NO STATE IDENTIFIER LIKE THAT, TRY AGAIN":Бж9011A ║Бе5500LECTORAL VOTES":З═H$;X1;:З" POPULAR VOTES" 0n}ЗPC$(2,1):ЗMY(2);" ELECTORAL VOTES":З═H$;Y1;:З" POPULAR VOTES" 0Л~З"PRESS TO EXIT"0ХБе8950╓АЗ"PRESS TO CONTINUE THE TALLY":ЙX:Р0ъшT│ Б(VS(LO)о10)0№щW│VS(LO)мTн101ъИPLБе1010,10201-ЄИTл1Бе1011,1013,1015,10161BєVS(LO)│10нCNлW:Р1^їЕCN│1з1014:ДVS(LO)│30лW1dЎР1АўЕCN│2з1014:ДVS(LO)│30лW1Ж°Р1д№ИWл1Бе1021,1023,1025,10261╣¤VS(LO)│CNлTн10:Р1╫ ЕCN│1з1024:ДVS(LO)│3лTн101▌Р1√ЕCN│2з1024:ДVS(LO)│3лTн102Р2╨╚1,1:╝2:┐1,02┌┴3,22wф╞"BM32,24;L12D10R8L8D10R12;BM38,18;D20R12;BM72,24;L12D10R8L8D10R12;BM88,28;L8G4D12F4R8"2╙ю╞"BM92,24;R12L6D20;BM112,20;D20;BM124,24;R4F4D12G4L4H4U12E4;BM136,16;D20;BM+12,+0;U20;"2ь°╗(136,16)м(148,36),╜3?╞"BM184,20;D4;BM+8,+0;R4F4D4G4F4D4G4L4H4U4E4R4L4H4U4E4;BM208,20;D12R12L4U6D14"3╣╞"BM36,64;D16R6E2U4H2L6;BM+12,+0;D8R8D4G4L2R2E4U12;BM+15,+0;U8R4F2D4R2D7G3L5U8R7;BM+8,+0;R8D8L8U8;BM+14,+0;R8D8L8U16"4#╞"BM128,64;R16L8D16;BM+8,+0;U8D8R8U8D12G4L2;BM+14,-8;R8U4L8U4R8;BM+8,+0;R8D8L8U8;BM+12,+0;D8U4E4R4D8"4D┴1,2:╗(0,100)м(255,195),╜,BF4M┴3,24Ю╞"BM52,152;U26G4U4E8R38D10R2U6E4R4F4D26F2R2E2F1G4L6H4U8H6L2D18L8U12L24D12L6"4░ ├(72,132),3,34╣ ┴4,25╞"BM148,127;D12R2D12R4U12R18D12R5U20R2D11R2U11H4L6D1L17U1H6U2L1UEL2D4L1G9D4R4E6"5!├(158,135),4,45-АI│1е155O┐1,1:АJ│1е50:Л:┐1,0:АJ│1е50:Л5^аIн10,1:ЛI5d Р5ЕФX│ Д(15):ЕFG(X)│1з7690:Д45025рЦFG(X)│1:ИXБе4510,4520,4530,4540,4550,4560,4570,4580,4590,4600,7690,7690,7690,7690,76906бЮЗ"AP NEWS BULLETIN: LEBONESE AND SYRIAN FORCES EXCHANGED GUNFIRE.JEWISH GROUPS REACT IN NEW YORK AND PENNSYLVANIA - CANDIDATES SHOULD TRAVEL TO THESE STATES TOMEET WITH JEWISH LEADERS."6╥ЯPL│3мPL:Y│4:Бж4700:Y│5:Бж4700:PL│3мPL:Бе76907биЗ"UPI BULLETIN: SUPREME COURT RULES THAT STATES HAVE THE RIGHTTO SET REASONABLE PENALTIES FOR REFUSING TO BE SEARCHED - A.C.L.U. IS OUTRAGED, REPUBLICAN CANDI-DATE LOSES SUPPORT OF LIBERAL GROUPS."7▀йX│PL:PL│1:Y│ Д(51)м1:Бж4700:Y│ Д(51)м1:Бж4700:PL│X:Бе76908Б▓З"RUMORS DEVELOP THAT REPUBLICAN CANDIDATE MAY AGREE TO REMOVE TOBACCO PRICE SUPPORTS - TRAVEL TO NORTH CAROLINA(NC) IS THE ONLY WAY TO STOP THE RUMOR"8з│X│PL:PL│1:Y│16:Бж4700:PL│X:Бе76909C╝З"TIME MAGAZINE HAS ENDORSED THE REPUBLICAN TICKET BASED ON STA- BILITY OF GOVERNM1е153:НY:Л')Y│0:АI│0еX:НY:Л'W*Y│Yн50000:MY(PL)│MY(PL)мY:VT(X,PL)│VT(X,PL)л Д(15)л15'a+Бе680'ж:Ю:X│ Д(51)м1:ЗPC$(PL,CN):З"IS CAMPAIGNING IN -";S$(X);"-":Бж9011'╣<П:АI│1еX:НX1:Л'╘=П:АI│1еCC(PL,CN):НX2:Л'ъ>П:АI│1е51лX:НY1:Л(?П:АI│1е51лCC(PL,CN):НY2:Л(~@X3│(X1мX2)н(X1мX2)л(Y1мY2)н(Y1мY2):MY(PL)│MY(PL)м900нX3:CC(PL,CN)│X:VT(X,PL)│VT(X,PL)л33м7нCNл Д(8)л2нSR(PL,CN,3)(ЦALO│CC(PL,CN):Бж1000(аBБе680(▐DЮ:ЗPC$(PL,CN):З"IS RESTING IN -";S$(CC(PL,CN));"-":Бж9011)FVT(CC(PL,CN),PL)│VT(CC(PL,CN),PL)л20м5нCNл Д(5)))HMY(PL)│MY(PL)м1000)3JБе690)ВNЮ:ЗPC$(PL,CN):З"IS HOLDING A FUND RAISING DINNERFOR PARTY REGULARS":Бж9011)▀PX│ Д(3):Y│SR(PL,CN,1)н10000н Д( Б(10оX)):VT(CC(PL,CN),PL)│VT(CC(PL,CN),PL)л20м5нCNн Д(5))єRMY(PL)│MY(PL)лY)■иБж9010*I▓Е(PL│1░CN│1)з230:ДЕ(PL│1░CN│2)з260:ДЕ(PL│2░CN│1)з290:ДЕ(PL│2░CN│2)з320*S│Бе230*Й╝Ю:З б(41, Л(239));" ELECTION DAY "; б(41, Л(239))*м╛FL│0:MY(1)│0:MY(2)│0:X1│0:Y1│0*▌┼З"THE RETURNS ARE COMING IN FROM THE EAST:"*щ╞АI│0е11*ї╟Бж800:Л+(╚Ю:З"THE RETURNS ARE COMING IN FROM THE SOUTH"+5╔АI│12е23+A╩Бж800:Л+v╦Ю:З"THE RETURNS ARE COMING IN FROM THE MIDWEST"+Г╠АI│24е36+П═Бж800:Л+┴╬Ю:З"THE RETURNS ARE COMING IN FROM THE WEST"+╬╧АI│37е50+┌╤Бж800:Л+ъ╥ЕI▓│50зFL│0+Ў╘Ю:Бе860,г Бж9011:Ю:З"CURRENT POPULAR VOTE TOTALS:":З О(PC$(1,1),22):З═H$;X1:З О(PC$(2,1),22):З═H$;Y1:З б(32, Л(185)):З@192,"RETURNS COMING IN ...":Бж9010:З@224,"STATE .. ";S$(I);,├%аIн4л1,3:П:АJ│1е205лI:НY:ЛJ,▌*З",";Y;" ELEC. VOTES", /П:АJ│1е255:НX:Л:АJ│1е51:НK$:Л-0АJ│0еI:НX:Л-81J│VT(I,1)лVT(I,2):ЕJ│┤0зJ│1:ДJ│ Б(J)-T2T│VT(I,1)оJ:W│VT(I,2)оJ-Р4T│1500нXл7000нXнTл Д(15000):W│1500нXл7000нXнWл Д(15000)-д5X1│X1лT:Y1│Y1лW-┴6ЕT│WзW│10000м Д(20000)лW-╬7ЕT│Wз822.9З@288,PC$(1,1):ЗPC$(1,2):З═"% %###,###,###% %";"==== "; Б(T);" VOTES".g:ЗPC$(2,1):ЗPC$(2,2):З═"% %###,###,###% %";"==== "; Б(W);" VOTES".Н>ЕT▓WзMY(1)│MY(1)лY:ДMY(2)│MY(2)лY.┐BБж9011:Бж9010:Ю:З@128,"ELECTORAL VOTE TALLY:"/CЗ@192,PC$(1,1):ЗMY(1):ЗPC$(2,1):ЗMY(2):З:З" -- 270 VOTES NEEDED TO WIN --"/5HБж9011:ЕMY(1)┤270░MY(2)┤270зР:Д850/ARЕFL│1зР/uTАPL│1е8:Ю(PL):аPLн20,2:АLO│1е150:ЛLO:ЛPL:Ю:FL│1/Р\ЕMY(1)▓│270зPL│1:ДPL│2/╙fЗ@128,"THE WINNER IS . . . . ";PC$(PL,1):З б(32,".")/цzЕFL│1з896:Д8920*|ЗPC$(1,1):ЗMY(1);" E'Ю:Г***** PHONE NUMBERS ******'=и:ГDATA: NAME, PHONE, TYPE'_▓:Г(ENTER NO SPACES OR DASHES)'|╝:ГTYPE: 1=DATA, 2=VOICE 'Э╞:Г**************************'╕╨Ж COMPUSERVE,4756935,1'┘┌Ж CONNECTION 80,2124413755,1'ЁфЖ SOURCE,7851614,1( юЖ RAINBOW,5022284492,2(*°Ж MOM AND DAD,1112223333,2(4Ж ENDЗ"<>"(ЪNЗ"<<<<<<<>>>>>>> BY ALAN DAVENPORT"(╗XCH│ Й( Т):Е CH│0 ▒ CH▓8 з600(┴bЮ(ЁlИ CH Бж 380,1260,1450,650,700,860,980,1170(·vБе480)А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  5$:Г****************************D:Г TELECOM -- R.S. MODEM IIc:Г AUTOMATIC PHONE DIALER~:Г BY: JORGE MIRб:Г****************************╝ Бж610 :Г print heading·З @448, б(32,140);:З@480," PRESS enter TO END PROGRAM";З@164,"WHO DO YOU WISH TO CALL?"=(Зд8);:╗ЙID$:Е ID$│""з Ю:К`2:Г****************************<:Г FIND TELEPHONE NUMBERвF:Г****************************йPП ╔ZН NAME$:Е NAME$│"END" з 390█dН PHONE$,TYPEЎnЕ  Ю(NAME$,ID$)│0 з 90 xБж 610:З@164,"CALL "NAME$"?":а100,1 4ВI$│ Т:Е I$│""з130 FМЕ I$│"N" з 90 hЦ:Г*************************** За:Г PROGRAM R.S. MODEM II йк:Г*************************** ╣┤Бж610:Бж650 █╛З@165,"PROGRAMMING MODEM FOR"!╚Е  П(NAME$,1)│"S"з NAME$│NAME$л"'" :Д NAME$│NAME$л"'S"!4╥З д(32м З(NAME$))о2)NAME$!M▄З д10)"PHONE NUMBER"!WцБж540!jЁЕ TYPE│2 з 330!М·:Г***************************!к:Г LOAD TERMINAL PROGRAM!╠:Г***************************!°З@480,"LOADING COMMUNICATIONS PROGRAM";""╙M"VIDEOTEX":Т&HFF40,0:в"7,:Г***************************"X6:Г DIAL PHONE NUMBER (VOICE)"z@:Г***************************"оJЗ:З"PHONE NUMBER IS NOW BEING DIALED":З#м2,"X";"цTЗ@480,"(GET PHONE AND DISCONNECT MODEM";:Т&H5FF,105"№^А D│1е2000:ЛD:Ю:К#h:Г***************************#?r:ГENTER NUMBER FROM KEYBOARD#a|:Г***************************#kЖБж610#ЭРЗ@161,"SORRY, I DON'T RECOGNIZE THAT NAME."#ЎЪЗ:З" DO YOU WANT TO INPUT TELEPHONE NUMBER FROM THE KEYBOARD FOR":З" ";ID$" (Y/N)?"$ дI$│ Т:Е I$│""з420$оЕ I$│"N" з 10$;╕Е I$┤▓"Y" з а100,2:Бе420$U┬З:Й" PHONE NUMBER";N$$r─PHONE$│"":А N│1 е  З(N$)$Ь╞X$│ Р(N$,N,1):Е  Ю(" -()",X$)▓0 з 458$▒╚PHONE$│PHONE$лX$$╣╩Л N$▄╠Й" TYPE (1=BBS, 2=VOICE)";TYPE$Ў╓Е TYPE┤1 ▒ TYPE▓2з460%рNAME$│ID$%ъБе 180%ЇК%7■:Г***************************%W:Г SEND DIGITS TO MODEM II%y:Г***************************%ИТ&H96,&HBE%Щ&А X│1е З(N$)%├0I$│ Р(N$,X,1):Е  Ю(" -()",I$)▓0 з 600%р:З@367, Р(N$,X,1);:а150,1%їDЗ#м2, Р(N$,X,1);&NА D│1е200:ЛD&XЛX:З@367," ";:Р&NbЮ:З д5)"AUTOMATIC PHONE DIALER":З  б(32,131);:Р&pl:Г***************************&Рv:Г LONG DISTANCE OR LOCAL?&▓А:Г***************************&°КЕ  З(PHONE$)▓7 з N$│"*DT2223333PP12345"лPHONE$::Д N$│"*DT"лPHONE$&■ФР =├ Бе100009 МS$(51),VT(51,2),VS(51),SR(2,2,3),MY(2)l МC$(6),CS$(6),PC$(2,2),HS$(2,2),CC(2,2),FG(15)Б H$│"###,###,###"лАI│0е50:VS(I)│0:АJ│1е2:VT(I,J)│0:ЛJ,I═FV│0:АI│1е15:FG(I)│0:Л:Бж2000ЄП:АI│1е255:НX:Л:АI│0е50:НS$(I):Л]Ю:З@128,"ARE YOU READY FOR A SHORT OR A REGULAR CAMPAIGN? ... TYPE AN OR AN "ЗK$│ Т:ЕK$│"S"зST│10:ДЕK$│"R"зST│3:Д29ъЮ:З@132,"SELECT MODE: 1 CAMPAIGN MANAGER OR 2 CAMPAIGN MANAGERS?" #ЙMD:ЕMD│1▒MD│2з36:Д30 $ИMDБе37,40 Y%Ю:З"CHOOSE YOUR POLITICAL PARTY 'R'EPUBLICAN OR 'D'EMOCRATIC" П&K$│ Т:ЕK$│""з38:ДЕK$│"R"зMD│11:ДЕK$│"D"зMD│12:Д38 Ш'Бе50 ч(З@256,"PLAYER 1 IS THE DEMOCRATIC PARTY AND PLAYER 2 IS REPUBLICAN":Бж9011!*АI│0е50:VT(I,3мPL)│ Д(5)лVT(I,3мPL):Л:Бе680!"2АJ│1е2!-7Бж8000!?<ИJБж8010,8050!EFЛ!ZdDY│100:PL│1:CN│1!ЛfАJ│1е2:MY(J)│250000н(SR(J,1,1)лSR(J,2,1)):ЛJ!а╚FLAG│1:ЕDY│0з700!л╥Бж7800"▄ЕK$│"T"зБж5000:ДЕK$│"A"зБж5500:ДЕK$│"R"зБж6000:ДЕK$│"D"зБж6500:ДЕK$│"Y"зБж7000:Д210"цFLAG│0:CN│2"ЁБж7800"v·ЕK$│"T"зБж5000:ДЕK$│"A"зБж5500:ДЕK$│"R"зБж6000:ДЕK$│"D"зБж6500:ДЕK$│"Y"зБж7000:Д240"ДPL│2:CN│1"ПБж7800"чЕK$│"T"зБж5000:ДЕK$│"A"зБж5500:ДЕK$│"R"зБж6000:ДЕK$│"D"зБж6500:ДЕK$│"Y"зБж7000:Д270"Ё"CN│2"√,Бж7800#S6ЕK$│"T"зБж5000:ДЕK$│"A"зБж5500:ДЕK$│"R"зБж6000:ДЕK$│"D"зБж6500:ДЕK$│"Y"зБж7000:Д300#`@DY│DYмST#vEЕDY┤30░ST│10зST│5#СJЕ(DY┤10░FV│0)з335:Д340#сOFV│1:ST│1:АI│0е50:VT(I,1)│ Б(VT(I,1)о2)л Д(2):VT(I,2)│ Б(VT(I,2)о2)л Д(2):Л#їTPL│1:CN│1:Бе200$ЇX│ Д(7):Бж9010:Бж9010$&■ЕMY(PL)┤0░DY▓3зX│8$NИXБе530,550,550,570,570,570,580,590$нЮ:ЗPC$(PL,CN):З"IS CHALLENGING YOU TO A DEBATE ON";:Е Д(2)│2зЗ" ECONOMICS.":ДЗ" DEFENSE."$╔З"DO YOU ACCEPT? (Y/N)"$ёK$│ Т:ЕK$│"Y"з536:ДЕK$│"N"з538:Д534%ВX│ Д(2):Бж9010:Бж9010:ЕX│PLзЗ"THE WASHINGTON POST EDITORS FEELTHAT YOU WON THE DEBATE.":ДЗ"THE PRESS CORPS AGREES THAT YOU LOST THE DEBATE."%ХЕX│PLз540:Д542&Бж9011:Бж9011:X│ Д(2):ЕX│PLзЗ"YOU GAINED SOME SUPPORT FOR YOURSTAND.":ДЗ"YOU LOST THE CONFIDENCE OF YOUR PARTY REGULARS"&%ЕX│PLз540:Д542&QАI│0е50:VT(I,PL)│ Д(5)лVT(I,PL):Л:Бе680&БАI│0е50:VT(I,3мPL)│ Д(5)лVT(I,3мPL):Л:Бе680&╔&Ю:X│ Д(51)м1:ЕPL│1зЗ"THE DEMOCRATIC PARTY":ДЗ"THE REPUBLICAN PARTY"&ю'З"IS ADVERTISING IN -";S$(X);"-"' (Бж9011:П:АI│ CONVERT BEGIN/END DATES0/ЇDATE│31н(BMм1)лBD0B■Q│31н(EMм1)лED0kЕ Q┤│DATE з З"INVALID DATES":Бе 11600vБж 9600ЗC$│ О(BD$,2)0Ь&Е C$│"SU" з MF│10▒0Е C$│"MO" з MF│20╞:Е C$│"TU" з MF│30█DЕ C$│"WE" з MF│40ЁNЕ C$│"TH" з MF│51XЕ C$│"FR" з MF│61bЕ C$│"SA" з MF│71>lЕ MF│0 з З"INVALID DAY":Бе 11801DvР1eА:Г CONVERT DATE SUBROUTINE1ШКЕ  Б(Dо31)│Dо31 з MONTH│ Б(Dо31):DY│31:Бе 19601нФMONTH│ Б(Dо31)л11├ЮDY│Dм(MONTHм1)н311ёиDT$│ И(MONTH)л"/"л П( И(DY), З( И(DY))м1)1ў▓Р2╝:Г PRINT DATE ON FIRST LINE2%╞А N│1 е 722╨D│PBлNм12H╒Е D▓372 з D│Dм3722\┌Е D┤0 з D│Dл3722n▀Е D│0 з D│3722дфЕ D│279 ▒ D│124 ▒ D│155 ▒ D│341 з PB│PBл1:Бе 20002╧юЕ D│60 ▒ D│61 ▒ D│62 з PB│PBл1:Бе 20002█°Бж 19202ўЗ#м2,д(Nм1)н19)"+";DT$;2  Л N3З#м2,д131)"+"3 Р31 ╖:Г NEW DATA FILE SUB39'└ 13C'Бе 30":"лD1$:CS│03╕HАI│3е11:▀D1,17,I,A$,B$:A$│A$л О(B$,120):АJ│0е7:З".";:SBJECT$│ Р(A$,Jн32л1,8):EXT$│ Р(A$,Jн32л9,3)3▄RЕ К(SBJECT$)│255зJ│7:I│11:Бе87044\F$│SBJECT$л"/"лEXT$л":"лD1$:ЕF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                L$(N)│"":Бе 870'%HJ(N)│ Ю(P$(N),"@")'ARPL$(N)│ О(P$(N),J(N)м1)'d\P$(N)│ П(P$(N), З(P$(N))мJ(N))'lfЛ N'Гp:Г PRINT ONE LINE 'ПzLN│LNл1'ЭДА N│1 е 7'╝ОЗ#м2,д(Nм1)н19)"+";PL$(N);'─ШЛ N'╓вЗ#м2,д131)"+"'щмЕ LN▓CL з 1430'Ї╢Бе 820(└:Г CAPITALIZE ENTRY('╩B$│"":АN│1 е  З(BD$)(=╘A│ К( Р(BD$,N,1))(Y▐Е A▓96 ░ A┤123 з A│Aм32(iшB$│B$л Л(A)(qЄЛ N(|№BD$│B$(ВР(Щ:Г SAVE TICKLER(└Й"SAVE AS FILE";Y$:ЕY$┤▓"" з F$│Y$(ЄЕDC│м1 з З"READY CASSETTE, PRESS ":Я И)Е DC│м1 з Y$│ Т:ЕY$│""з1047)Я к)*Щ"O",#DC,F$)6$З#DC,MF)D.З#DC,DATE)R8АN│1е 372)aBЗ#DC,I$(N))iLЛ N)rVЪ#DC){`Ю(3))ФjЗ"DATA SAVED":Бе 240)▒t:Г B/E DATE SUBROUTINE)╨~:Г DATE=B DATE, Q=E DATE)ёИЙ"BEGINNING MONTH <1-12>";BM*ТЙ"BEGINNING DATE <1-31>";BD*+ЬЙ"BEGINNING DAY";BD$*LжЙ"ENDING MONTH <1-12>";EM*m░Й"ENDING DATE <1-31>";ED*┼║Е BM┤1 ▒ BM▓12 ▒ BD┤1 ▒ BD▓31 ▒ EM┤1 ▒ EM▓12 ▒ ED┤1 ▒ ED▓31 з З"REDO DATES":Бе 1160*╤─Бж 1770*╫╬Р*ц╪АN│1 е BCT+тЕ  Й(BD$(N,2))┤DATE з 1290+!ьЕ  Й(BD$(N,2))▓Q з 1290+<ЎM│ Й(BD$(N,2))мDATEлMF+]L$(M)│BD$(N,1)л" B/D@"лL$(M)+e Л N+tАN│1 е TCT+ТЕ  Й(I$(N,1))┤DATE з 1350+н(Е  Й(I$(N,1))▓Q з 1350+╟2M│ Й(I$(N,1))мDATEлMF+у/";DDT$-┌J│ Ю(DDT$,"/")."Е J│0 з З"INVALID DATE":АJ│1е300:Л:Бе 210.F,A│ Й( О(DDT$,Jм1)):B│ Й( П(DDT$, З(DDT$)мJ)):D│(Aм1)н31лB.К6Е A┤1 ▒ A▓12 ▒ B┤1 ▒ B▓31 з З"INVALID DATE":АJ│1 е 300:Л:Бе 210.Р@Р.╜JЕ  Ю(I$(D),"@")│ З(I$(D)) з 1620 :Д 1630.сTI$(D)│"":З"ITEM DELETED":Бе 500.№^З@481,"DELETE NUMBER";/hЙ X/rЕ X│1 з 1740/"|А N│1 еX/:ЖJ│ Ю(Jл1,I$(D),"@")/jРЕ J│0 з З"INVALID NUMBER":АJ│1е300:Л:Бе 500/|ЪЕ N│Xм1 з A│J/ВдЛ/ооI$(D)│ О(I$(D),A)л П(I$(D), З(I$(D))мJ)/╣┬Бе 500/═╠J│ Ю(I$(D),"@")/э╓I$(D)│ П(I$(D), З(I$(D))мJ)/°рБе 5000ъ:Г D :ГDIARY 3.4 2/12/83%Бе 99991Х 10000>(МI$(372)M2М B$(40,2)Z<М M$(12)gFМ L$(14)ВPCL│5 :ГCALENDAR LENGTHЧQ:Г INITIALIZE╜UЮ(3):З@32н8л8,"APPOINTMENT BOOK";▀VЗ@32н10л8,"BRUCK ASSOCIATES";WЗ@32н11л8," (301) 270-5822 ";Z:ГCHECK FOR DISK BASIC+[DC│ Ж(188)G\Е DC│14 з DC│1 :Д DC│м1l`З@32н15,"FILENAME NEW FILE";uaЙ F$ЯbЕ F$│"N" з Й"NEW FILE NAME";F$:Бе 210╠c Е  З(F$)▓8 з З"INVALID FILE NAME":Бе 97хhЕ F$│"" з F$│"DIARY" nЕ DC│м1 з З"POSITION CASSETTE" u:Г GET DATA +xЩ"I",#DC,F$ 8ВЙ #DC,MF FМЙ#DC,DATE VЦА N│1 е 372 gа╗ Й#DC,I$(N) oкЛ N x┤Ъ#DC Б╥Ю(3) З▄З жцЗ" CALANDAR PROGRAM ─ЁЗ@224," INPUT" р·З" PRINTOUT" √З" DISPLAY"!З" SAVE"!8З@416," "!P"I$│ Т:Е I$│"" з 290!l,Е I$│"I" ▒ I$│"i" з 350!И6Е I$│"D" ▒ I$│"d" з 480!д@Е I$│"P" ▒ I$│"p" з 650!┴JЕ I$│"S" ▒ I$│"s" з 1040!фTЗ@448,"INVALID COMMAND":Бе 290!¤^:Г INPUT NEW DATA"hЮ"rБж 1550"0|З"What? (16 characters max)""?Ж╗ Й "?";J$"PРJ│(Aм1)н31лB"fЪЕ  З(J$)▓16 з 380"}дI$(J)│I$(J)лJ$л"@""▄оЗ"ANOTHER?":З" YES":З" NO":З" SAME DAY ANOTHER ITEM":З" SAME ITEM ANOTHER DAY""ё╕I$│ Т:ЕI$│""з440# ┬Е I$│"Y" ▒ I$│"y" з 350#)╠Е I$│"S" ▒ I$│"s" з 380#P╤Е I$│"D" ▒ I$│"d" з Бж 1550:Бе 400#[╓Бе 210#mр:Г DISPLAY#uхZ│0#БъБж 1140#ЗЇЮ#Ш■А N│DATE е Q#╡D│N:Бж 1920 :Г GET DATE#┬K$│I$(N)#╘Е K$│"" з 620#х&J│ Ю(K$,"@")#ў0D$│ О(K$,Jм1)$:Е J│ З(K$) з K$│"":Бе 590$/DK$│ П(K$, З(K$)мJ)$>NЗDT$;д9)D$$aXZ│Zл1:ЕZо12│ Б(Zо12) з Бж 1480$zbЕ J┤▓ З(I$(N)) з 540$ВlЛ N$ОvБж 1480$ЩАБе 210$╣К:Г TICKLER PRINTOUT$├ПEOY│0$╬ФD│DATE$┌ЮБж 1140%иЗ#м2, Л(27)"E"; Л(27)"S";" S M T W T F S";%5▓PB│DATEмMFл1:PE│Q%G╖Е PB▓PE з 210%a╝З#м2, Л(27)"F"; Л(15)%v╞З#м2, б(132,"-")%╨LN│0%У┌:Г END ROUTINE%ефЕ PB▓PE з 210%╖юЕ EOY│1 з 210%┴єVB│PB%▐°Бж 1980 :ГDATE ON LINE 1% :Г BUFFER 1 - ALL WEEK ITEMS&  А N│1 е7&(Е VB┤1 з WR│372 :Бе 790&GЕ VB▓372 з WR│м372 :Д WR│0&ШЕ VB│279 ▒ VB│124 ▒ VB│155 ▒ VB│341 ▒ VB│60 ▒ VB│61 ▒ VB│62 з VB│VBл1:Бе 788&┤P$(N)│I$(VBлWR):VB│VBл1&╝ Л N&▐*:Г BUFFER 2 - 1 LINE OF ITEMS&ь4А N│1 е 7'>Е P$(N)│"" з P95░S┤128зS│Sм64' ТADл&HA00,S:Р&├VF$│ Р(D$,S,1)&╨`F│ К(F$)&ёjИ Sм11 Бж1460,1500,1550,1740&∙tЛ S'(~Е  К(FT$)│2 ░ X1│1 Бж2270 :ГPRINT ML ADDR'0ИЛ N'8ТЛ X'HЬЕGU┤0 зGU│0'XжЕGA┤0 зGA│0'h░ЕBU┤0 зBU│0'x║ЕBA┤0 зBA│0'─:Г'б╬:ГPRNT DIS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  !( :ГGRAFMESS: Graphic Message Editor~:ГOriginal version from The Color Connection (512)285-5028, edited by Lane Lester▀Х5000:МLL$(15,32):Бж370:AD│&H400:KEY$│ Л(8)л Л(9)л Л(10)л Л(12)л Л(64)л Л(92)л Л(94):LS│&H80·(ST│ Ж(AD):ТAD,&H2E:J│122K$│ Т:ЕK$┤▓""зТAD,ST:S│ST:Бж520:Бе90:ДJ│Jл1:ЕJ┤5з50L<ТAD,ST:S│ST:Бж520:J│1rFK$│ Т:ЕK$│""зJ│Jл1:ЕJ┤25з70:ДБе40ЗP:Г Decipher Keys║ZK│ Ю(KEY$,K$):ИK Бе170,140,230,260,300,320,200 dA│ К(K$):ЕA┤64░ Ж(&H11A)зA│Aл64:ДЕA┤64░и Ж(&H11A)зA│LS :ДЕA▓96зA│Aм96 +nТAD,A:S│A:Бж520:ЕAD┤&H5FF зAD│ADл1 4xБе40 GВ:Г Right Arrow hМЕAD┤&H5FF зAD│ADл1:ДAD│&H400 qЦБе40 Га:Г Left Arrow дкЕAD▓&H400 зAD│ADм1:ДAD│&H5FF │┤ST│LS:Бе60 ├╛:Г Up Arrow ▌╚ЕAD▓&H41F зAD│ADм&H20 ц╥Бе40 °▄:Г Down Arrow!цЕAD┤&H5E0 зAD│ADл&H20!ЁБе40!8·:Г Enter New Shape Value!iL$│ Т:ЕL$│""з260:ДL│ К(L$):ЕL▓96зL$│ Л(Lм32)!ЪS$│ Т:ЕS$│""з270:ДS│ К(S$):ЕS▓96зS$│ Л(Sм32)!╡LS│ Й("&H"лL$лS$):Бе40!╘":Г Display Shape in Memory!у,ST│LS:Бе60"6:ГWrite to Transmit File"i@Щ"O",DV,F$:LL$│"":LL│ Э(LL$):ТLL,32:АI│0е15:LO│&H0E00лIн32:MSB│ Б(LOо256):ТLLл2,MSB:ТLLл3,LOмMSBн256"zJ┘#DV,LL$:Л:Ъ"УT:ГWrite to Edit File"ф^ЕDV│1з╪MF$,&H400,&H600,&H400:а200,2:Бе40:ДШMF$,&H400,&H600,&H400:а200,2:Бе40"ўr:ГInstructions#^|Ю:З"***GRAPHIC MESSAGE GENERATOR*** @ KEY DISPLAYS GRAPHIC SHAPE. CLEAR KEY TRIGGERS NEW SHAPE:"#╟ЖЗ" ENTER HEX VALUE FROM NANOS CARD WITH TWO KEY PRESSES.","ARROW KEYS MOVE CURSOR, LEFT AR-";$CРЗ"ROW DISPLAYS SHAPE SET BY CLEAR.SHIFT CLEAR STARTS SAVE OF ASCIIAND BINARY FILES. USE ASCII TO TRANSMIT, BINARY TO";$│ЪЗ" EDIT WITH THIS PROGRAM.",,"CHARACTERS ARE TYPED AS USUAL, EXCEPT THAT INVERTED SYMBOLS DO NOT PRINT."$·дЗ"PRESS 1 TO START NEW GRAPHIC OR 0 TO LOAD EXISTING FILE.";%8оK$│ Т:ЕK$┤"0"▒K$▓"1"з430:Да200,2:ER$│ б(63,32):З@448,ER$;%i╕З@448,"PRESS 1 FOR TAPE"," 0 FOR DISK";%╚┬L$│ Т:ЕL$┤"0"▒L$▓"1"з450:ДЗ@448,ER$;:З@480,"ENTER FILE NAME(8 CHAR. MAX.)";:З@448,"";:╗ЙF$%р╠ЕL$│"1"зDV│м1:ДDV│1&╓ЕK$│"1"зЗ@448,"PRESS CLS VALUE":Бе490:ДЮ0:ЕDV│1з╙MF$:ДЧMF$&NрАAD│&H400 е&H5FF:S│ Ж(AD):Бж520:Л:а200,2:Р&ФъK$│ Т:ЕK$┤"0"▒K$▓"8"з490:ДЕK$│"0"зS│&H80 :ДS│&H70л Й(K$)н&H10л&HF&╝ЇАI│&H400 е&H5FF:ТI,S:ТIл&HA00,S:Л:Р&ш■:ГTransfer Edit Array to Transmit Array'Е S┤27зS│Sл96:ДЕS▓ 7 :ГSYSOP PROGRAM1Х5000:МNAME$(50):Т150,1дЮ:З"ENTER NUMBER OF FUNCTION:","1. DISPLAY ACTIVITY FILE","2. PRINT ACTIVITY FILE","3. INITIATE ACTIVITY FILE"#(З"4. DISPLAY MEMBER FILE","5. PRINT MEMBER FILE","6. START MEMBER FILE","7. REMOVE MEMBERS","8. KILL OLD MESSAGES","9. ENDc2ЙK:ЕK┤1▒K▓9з30:ДИK Бж60,60,100,110,110,140,160,210,250:Бе30x<ЕK│1зDV│0:ДDV│м2иFЩ"D",1,"ACTIVITY":L│ е(1):З#DV,"CALLERS ="LїPАI│1еL:─#1,I:Й#1,ACT$:АJ│255е0йм1:Е Р(ACT$,J,1)│" "зЛJ :ДACT$│ О(ACT$,J) )ZЗ#DV,ACT$:ЛI:Ъ:╗Й"PRESS ENTER TO CONTINUE";K$:Р ?d╥"ACTIVITY/DAT":Р TnЕK│4зDV│0:ДDV│м2 ╗xЩ"I",1,"MEMBERS":Й#1,NUM:АI│1еNUM:Й#1,NAME$(I):З#DV, О(NAME$(I),3)" " П(NAME$(I), З(NAME$(I))м3):Л тВЪ:╗Й"PRESS ENTER TO CONTINUE";K$:Р!1МЮ:З"ENTER SYSOP INITIALS AND NAME, FOR INSTANCE: LPLLANE LESTER":╗ЙSYSOP$![ЦЩ"O",1,"MEMBERS":┘#1,1:┘#1,SYSOP$:Ъ:Р!iаK│4:Бж110!╞кЙ"INITIALS OF MEMBER TO REMOVE, X TO RETURN";INITS$:ЕINITS$┤▓"X"з190:ДЩ"O",1,"MEMBERS"!ю┤┘#1,NUM:АI│1еNUM:┘#1,NAME$(I):Л:Ъ:Р"&╛J│1:АI│1еNUM:Е О(NAME$(I),3)│INITS$зI│Iл1:NUM│NUMм1"J╚NAME$(J)│NAME$(I):J│Jл1:Л:Бе170"b╥:ГKill Old Messages"┴▄АI│3е11:▀1,17,I,A$,B$:A$│A$л О(B$,120):АJ│0е7:SBJECT$│ Р(A$,Jн32л1,8):EXT$│ Р(A$,Jн32л9,3)#цA│ К(SBJECT$):ЕA│255зJ│7:I│11:ДЕA┤▓0зЕ Р(EXT$,2,1)│"*"з╥SBJECT$л"/"лEXT$л":1"#ЁЛJ,I:Р#$·КLIST4%ОЩ"I",1,:Ъ:MISC$│"IN":РLIST4GОЩ"I",1,"MEMBERS:0":Й#1,NUM:АI│0еNUM:Й#1,NAME$4{ШЗ О(NAME$,3)л" "л П(NAME$, З(NAME$)м3):Л:Ъ:Бе904Йш:ГGOODBYE4ЮЄЗ"GOODBYE!": Я│04╜№Е Я┤100з1020:ДЗ"+++";: Я│04╓Е Я┤100з1030:ДЗ"ATH"5LЩ"I",1,"MISC:0":АI│0е125:Й#1,M$(I):INARY TO";$│ЪЗ" EDIT WITH THIS PROGRAM.",,"CHARACTERS ARE TYPED AS USUAL, EXCEPT THAT INVERTED SYMBOLS DO NOT PRINT."$·дЗ"PRESS 1 TO START NEW GRAPHIC OR 0 TO LOAD EXISTING FILE.";%8о                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ─╚ ╚╞┼╚┬─┴╟╔┴%&'╔)*╞─-./0╟2├┴5┼╞─9:├<=╚╔     MENU1183BAS"├REM BAS#╦GRAFMESSBAS $SYSOP BAS!:RAINBORDBAS$╤DIARY BASGMSTRMSGRBAS(ьTELECOM BAS8ELECTIONBAS╞WARGAME BIN+╟WARGAME2BAS,pWARGAME3BAS1?WARGAME4BAS6REMOTE BIN3ПARTIST BAS4uSINFONIABAS6ьREDCHASEBAS7шCOMPILERBAS DRAGBYTEBAS йHOW BAS8MAPMNDERBAS KDRAW-EZ BAS тLASRWORMBAS;√DISKWASHBAS>┌                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 └$ :ГRAINBOW ON TAPE MONTHLY MENU7╚3,1:╝:┐0,1:Ю0кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25 2╞"S4BM116,126C3L50"<├(100,124),3,3NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛIdP╞"BM20,132C2R161"vZ├(75,130),2,2Цd┬(256,130),257,4,.45,.5,.25╢n┬(256,138),226,4,.56,.5,.25╩x╞"BM0,128C4R45"▄В├(15,126),4,4°М╗(0,126)м(256,147),╛,BF Ц╗(0,0)м(256,192),╛,B *а╗(0,0)м(256,22),╛,BF iк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D" Е┤┬(176,90),8:┬(220,90),8 │╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜ ┼╚├(176,70),3,3!╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л!▄╞"S12BM19,177C3"лRB$!\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛI!bЁЮ!r·Х 200,16352!ЦА R│16352 е 16380:Н P:Т R,P:Л R!е╣ Г0│16352!╓Ж 189, 179, 237, 31, 152, 142, 4, 0, 16, 142""Ж 4, 31, 237, 137, 1, 224, 237, 164, 49, 168"3,Ж 32, 237, 129, 140, 4, 32, 38, 240, 57"G6Ю 4 :X│ Г0(270)"d@З@72, "RAINBOW ON TAPE";"uJЗ@142,"FOR";"СTЗ@201," NOVEMBER 1983";"к^З@426, "HIT A KEY.";"╣hX│ Г0(270)"╦rА R │ 1 е I:Л"┌|X│ Г0(267)"ыЖА T│ 1 е I:Л#РЕ I▓1 з I│Iм1 :Д I│50#ЪЕ  Т│"" з 360#дЮ#<оЗ" RAINBOW ON TAPE"#\╕З" (C) FALSOFT, 1983"#брЗ " (XX)=PAGE NUMBER OF LISTING IN NOVEMBER'S RAINBOW"#зъЗ#╧ЇЗ " (24) REMOTE", " (24) GRAFMESS"#ї■З" (25) SYSOP", " (29) RAINBORD"$З" (35) DIARY", " (43) MSTRMSGR"$CЗ" (53) TELECOM", " (77) ELECTION"$lЗ" (93) WARGAME*", "(100) WARGAME2"$Х&З"(105) WARGAME3", "(106) WARGAME4"$ЫNЗ$┐XЗ" PRESS ANY KEY TO CONTINUE"$╧bЕ  Т│""з610$╒lЮ$№vЗ " (XX)= PAGE NUMBER OF LISTING"%АЗ%(КЗ"(120) REMOTE*", "(129) ARTIST"%QФЗ"(152) SINFONIA", "(158) REDCHASE"%yЮЗ"(162) COMPILER", "BONUS DRAW-EZ"%ЭиЗ"(172) DRAGBYTE", "(204) HOW"%┼▓З"(220) LASRWORM", "(293) MAPMNDER"%█╝З"(310) DISKWASH"% ┌З" *=MACHINE LANGUAGE PROGRAM"&фЗ&HюЗ " PRESS ANY KEY TO RETURN TO FIRST PAGE OF MENU"&p°З "PRESS ^ (UP ARROW) TO EXIT MENU"&пЕ  Т│ Л(94) з Т 113,0:в 40999 :Д Е  Т│"" з 770 :Д Ю:Бе 430&┐ З б(32,45);&q8N$│ Р(D$,1,8):E$│ Р(D$,9,3)&ПBЕ X1 з З#м2,д5)N$;" ";E$ ╚ :ГREMOTE+Х800,&H7F00:╙M"REMOTERM"K:ГDisable Break (Control-C)x(Т&H7F50,&H86:Т&H7F51,&H2A:Т&H7F52,&H12:вР2:ГEnable SmartModem╢<З"AT E0 M0 Q1 S0=1 S5=130 S10=20"┼FО"RAINBORD:┬(256,126),142,3,.75,.50,.25 2╞"S4BM116,126C3L50"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #╬[ :ГRAINBOARD - Copyright 1983 by Lane Lester, 413 Woodland Circle, Lynchburg, VA 24502fБе1450Л:ГLower/Upper Case Input Routineх(ЗMSG$;:╗ЙC$:LN│ З(C$):ЕLN▓1зD$│C$:E$│"":АI│1еLN:C$│ Р(D$,I,1):Бж50:E$│E$лC$:Л:C$│E$:Р2ЕC$▓"@"зC$│ Л(( К(C$)▒32)м32)3<ЕLN│1░BITS│8зЗ б(32, Д(7)н16л143);:Р:ДР_FХ5000:МDISPLAY$(46),NAME$(20),TEXT$(70)├PFILE$│"WELCOME":Y│1:Z│15:Бж1440:FILE$│"HELP":Y│16:Z│30:Бж1440:FILE$│"COLDSTRT":Y│31:Z│46:Бж1440 /ZЮ:╗Й"IF A SINGLE-DRIVE SYSTEM, REMOVESTARTUP DISK AND INSERT ONLINE DISK. PRESS ENTER TO CONTINUE.";C$ ЙdЩ"I",1,"MEMBERS":Й#1,NUM:АI│1еNUM:Й#1,NAME$(I):Л:Ъ:Ю:З"RAINBOARD IS READY TO RECEIVE! ╒nD1│0:D1$│"0":D2│0:D2$│"0" :ГMessage (D1) and Program (D2) Drive Numbers ыx:ГLogon Procedure!В╗ЙSTART$:АI│1е100:Л!vМ╗Й"DO YOU WANT 7 BITS FOR TEXT ONLY OR 8 BITS FOR COLOR, TOO? ";BITS$:ЕBITS$┤"7"▒BITS$▓"8"з140:ДBITS│ Й(BITS$)!▒ЦFL│0:ЕBITS│8зЗ Л(27)"G4":АI│1е15:ЗDISPLAY$(I);:Л:Бе170"'аЗ"WELCOME TO THE RAINBOARD..." Л(13) Л(13)"WITH A RAINBOW OF COLOR AND A" Л(13)"POT OF GOLD IN GOOD TIMES." Л(13)"kкMSG$│"YOUR THREE INITIALS, PLEASE:":Бж40:I$│C$:ACT$│"* "лI$л" ""г┤FL│FLл1:Е З(I$)┤▓3зЕFL│3зNAME$│"FRIEND":Бе1280:Д170"ї╛Бж1410:ЕMBR зN$│NAME$(I):S│ Ю(N$," ")м4:NAME$│ Р(N$,4,S):INITS$│ О(N$,3):Д230#B╚MSG$│ П(N$, З(N$)м3)л","л Л(13)л"RIGHT(Y/N)? ":Бж40:ЕC$┤▓"Y"░C$┤▓"N"з200#x╥ЕC$│"Y"зЗ"CHECKING FOR MESSAGES.":C│1:Бж650:Бе360#Р▄:ГNew Member Signup$ц╗Й"PLEASE TELL ME YOUR FIRST NAME: ";NAME$:╗Й"AND NOW YOUR LAST NAME:";LAST$:ACT$│ACT$л" "лNAME$л" "лLAST$л" "$uЁЕ З(ACT$)┤13з1280:ДMSG$│"YOU ARE NOT YET A MEMBER OF THE RAINBOARD."л Л(13)л"WOULD YOU LIKE TO BELONG? (Y/N)"$С·Бж40:Е О(C$,1)┤▓"Y"з360$ўЗ"GREAT! TO WHAT THREE INITIALS" Л(13)"SHOULD YOUR MESSAGES BE" Л(13)"ADDRESSED? ";:╗ЙINITS$:FL│0%8FL│FLл1:ЕFL│6з1280:ДАI│1еNUM:Е О(NAME$(I),3)┤▓INITS$зЛ:Бе300%вЗ"I'M SORRY, "NAME$", ANOTHER" Л(13)"MEMBER HAS THE SAME INITIALS." Л(13)"PLEASE MAKE UP THREE OTHERS%╦"╗Й"FOR THE RAINBOARD: ";INITS$:Бе270& ,Е З(INITS$)│3зАI│1е3:A│ К( Р(INITS$,I)):ЕA▓64░A┤91зЛ:Бе330&v6ACT$│ACT$л" "лINITS$:FL│FLл1:ЕFL│6з1280:ДЗ"WE NEED THREE INITIALS." Л(13)"FOR INSTANCE, MINE ARE 'LPL'.&Ь@╗Й"WHAT ARE YOURS? ";INITS$:Бе270' JЗ"JUST A MOMENT WHILE I ADD YOU" Л(13)"TO THE MEMBERSHIP LIST.":NUM│NUMл1:NAME$(NUM)│INITS$лNAME$л" "лLAST$']TЩ"O",1,"MEMBERS:0":┘#1,NUM:АI│1еNUM:┘#1,NAME$(I):Л:Ъ:FILE$│"NEWMEMBR":Бж1340'm^:ГMain Menu'бhMSG$│"ENTER H,B,S,R,L,P,T,A,M,N,G:":Бж40:Бж1370'■rC│ Ю("HBSRLPTAMNG",C$)л1:ИC Бж390,390,460,490,580,740,950,1090,1230,1260,1280,1280:Бе360( |:ГHelp(0ЖЕBITS│8зАI│16е30:ЗDISPLAY$(I);:Л:Р(йРЗ"(H)ELP-THIS SCREEN" Л(13)"(B)ULLETIN-LATEST NEWS" Л(13)"(S)CAN MESSAGE TITLES" Л(13)"(R)EAD MESSAGES FROM MEMBERS")ЪЗ"(L)EAVE MESSAGES TO MEMBERS" Л(13)"(P)ROGRAMS TO DOWNLOAD" Л(13)"(T)EXT FILES TO READ")OдЗ"(A)RT GALLERY-VIEW THE GRAPHICS" Л(13)"(M)EMBER LIST-SEE WHO'S ON")╗оЗ"(N)AME ENTRY-IF YOU CAME ON IN" Л(13)" THE MIDDLE OF THE PROGRAM" Л(13)"(G)OODBYE-BEFORE HANGING UP)┴╕Р)╨┬:ГBulletin*A╠MSG$│"THE CURRENT BULLETIN IS DATED"л Л(13)л"9/1/83."л Л(13)л"DO YOU WANT TO READ IT (Y/N)?":Бж40:ЕC$┤▓"Y"зР*_╓FILE$│"BULLETIN":Бж1340:Р*sр:ГScan Messages*╚ъMSG$│"ENTER H,C,I,R:":Бж40:Бж1370:C│ Ю("HCIR",C$)л1:ЕC│5зР:ДИC Бе490,500,510,530*цЇFILE$│"SCAN":Бж1340:Бе490*∙■I$│"XXX":Бе540+ I$│INITS$:Бе540+tMSG$│"FOR WHICH 3 INITIALS WOULD YOU"л Л(13)л"LIKE TO SCAN, "лNAME$л"? ":Бж40:I$│C$:Е З(I$)┤▓3з530+чCK│0:АI│3е11:▀D1,17,I,A$,B$:A$│A$л О(B$,120):АJ│0е7:SBJECT$│ Р(A$,Jн32л1,8):EXT$│ Р(A$,Jн32л9,3):A│ К(SBJECT$),R&ЕA│255зJ│7:I│11:ДЕ(EXT$│I$▒I$│"XXX")░EXT$▓"A00"░EXT$┤▓"DAT"░ О(EXT$,2)┤▓"P0"░A┤▓0зЗSBJECT$"/"EXT$:CK│1,Ш0ЛJ,I:ЕCK з490:ДЗ"SORRY, "NAME$"," Л(13)"NO MESSAGES FOUND.":Бе490,м::ГRead Messages-DMSG$│"ENTER H,S,I,R:":Бж40:Бж1370:C│ Ю("HSIR",C$):ЕC│4зР:ДИCл1 Бе580,590,610,630-NFILE$│"READ":Бж1340:Бе580-/XБж650:Бе580-}bЗ"WHICH SUBJECT WOULD YOU LIKE TO READ, "NAME$"?";:╗ЙS$:L│ З(S$):ЕL▓8з720-дlS$│S$л б(8м З(S$)," "):Бж650:Бе580. vЗ"FOR WHICH 3 INITIALS WOULD YOU" Л(13)"LIKE TO READ MESSAGES? ";:╗ЙI$:Е З(I$)┤▓3з630:ДБж650:Бе580."А:ГDirectory Search.ОКCD│0:АK│3е11:▀D1,17,K,AD$,BD$:AD$│AD$л О(BD$,120):АL│0е7:SBJECT$│ Р(AD$,Lн32л1,8):EXT$│ Р(AD$,Lн32л9,3).╕ФAC│ К(SBJECT$):ЕAC│255зL│7:K│11:Бе710/ЮЕAC│0▒(C│1░EXT$┤▓INITS$)▒(C│2░SBJECT$┤▓S$)▒(C│3░EXT$┤▓I$)▒(SBJECT$│"PERSONAL"░EXT$┤▓INITS$)з710/dиCD│1:FILE$│SBJECT$л"/"лEXT$:З Л(13)FILE$:FILE$│FILE$л":"лD1$:Бж1340/е▓ЕEXT$┤▓INITS$з710:ДF$│ О(FILE$,10)л"*"л П(FILE$,3):╓FILE$еF$/№╝MSG$│NAME$л", WOULD YOU LIKE"л Л(13)л"TO REPLY TO THIS (Y/N)? ":Бж40:ЕC$│"Y"зБж7400<╞ЛL,K:ЕCD зР:ДЗ"SORRY, "NAME$"," Л(13)"NO MESSAGES FOUND.":Р0Z╨FILE$│"READ":Бж1340:Бе5800o┌:ГLeave Messages0ффMSG$│"ENTER 3 LETTERS:"л Л(13)л"INITIALS OF RECIPIENT,"л Л(13)л"MEM-BER LIST,"л Л(13)л"INS-TRUCTIONS, OR"л Л(13)1юMSG$│MSG$л"RET-URN TO MAIN MENU:":Бж40:I$│C$1\°Е З(I$)│3зАI│1е3:A│ К( Р(I$,I,1)):Е(A▓64░A┤91)▒(A▓47░A┤58)зЛ:Бе7801xЗ"WE NEED 3 LETTERS.":Р1┼ ЕI$│"MEM"Бж1260:Бе740:ДЕI$│"INS"зFILE$│"LEAVE":Бж1340:Бе740:ДЕI$│"RET"зР2(Е П(I$,1)▓"9"зБж1410:ЕиMBR зЗ"SORRY, "NAME$", ONLY MEMBERS" Л(13)"CAN RECEIVE MESSAGES.":Бе7402j З"WHAT IS THE MESSAGE'S SUBJECT?":╗Й"(8 LETTERS MAXIMUM):";S$2Х*Е З(S$)▓8зЗ"8 LETTER MAXIMUM, "NAME$:Р2ц4Е Ю(S$,":")▒ Ю(S$,"0")▒ Ю(S$,"/")▒ Ю(S$,".")зЗ"PLEASE DO NOT USE: 0 . : /":Р3R>З"CHECKING FOR DUPLICATE FILE." Л(13)"ONE MOMENT, PLEASE.":FILE$│S$л б(8м З(S$),32)л"/"лI$л":"лD1$:CS│03╕HАI│3е11:▀D1,17,I,A$,B$:A$│A$л О(B$,120):АJ│0е7:З".";:SBJECT$│ Р(A$,Jн32л1,8):EXT$│ Р(A$,Jн32л9,3)3▄RЕ К(SBJECT$)│255зJ│7:I│11:Бе87044\F$│SBJECT$л"/"лEXT$л":"лD1$:ЕF$│FILE$▒F$│ О(FILE$,10)л"*"л П(FILE$,3)зCS│1:J│7:I│114аfЛJ,I:З:ЕCS зЗ"SORRY, "NAME$", THAT FILE" Л(13)"NAME IS ALREADY IN USE." Л(13)"PLEASE TRY AGAIN.":Бе8004°pЗ"BEGIN MESSAGE ENTRY." Л(13)"PRESS 'ENTER' BY ITSELF TO END.":I│м1:C$│FILE$:Бж13705DzI│Iл1:З".":╗ЙTEXT$(I):ЕTEXT$(I)│""▒I│70з920:ДLT│ З(TEXT$(I)):ЕLT┤64з8905ОДЗ Л(7) Л(7) Л(7)"THAT LINE'S TOO LONG, "NAME$"." Л(13)"IT NOW READS:"5чОАJ│LT е1йм1:Е Р(TEXT$(I),J,1)┤▓" "▒J▓65зЛ:ДTEXT$(I)│ О(TEXT$(I),Jм1):ЗTEXT$(I):Бе8906@ШMSG$│"ENTER 'S' TO SAVE; 'R' FOR"л Л(13)л"ANOTHER REQUEST: ":Бж40:ЕC$┤"R"▒C$▓"S"з9206ЫвЕC$│"R"зР:ДЩ"O",1,FILE$:АJ│0еIм1:З#1,TEXT$(J):Л:Ъ:З"YOUR MESSAGE IS SAVED, "NAME$".":Р6км:ГPrograms7╢MSG$│"ENTER H,L,D,P,R:":Бж40:Бж1370:C│ Ю("HLDPR",C$)л1:ЕC│6зР:ДИC Бе950,960,970,1010,10207*└FILE$│"PROGRAMS":Бж1340:Бе9507К╩АI│3е11:▀D2,17,I,A$,B$:A$│A$л О(B$,120):АJ│0е7:SBJECT$│ Р(A$,Jн32л1,8):EXT$│ Р(A$,Jн32л9,3)7э╘A│ К(SBJECT$):ЕA│255зJ│7:I│11:Бе1000:ДЕA┤▓0░ О(EXT$,1)│"P"░ Р(EXT$,2,1)│"0"зЗSBJECT$" ";:Д10008E▐T$│ П(EXT$,1):ЕT$│"U"зЗ"UTILITY":ДЕT$│"A"зЗ"APPLICATION":ДЕT$│"G"зЗ"GAME":ДЗ"OTHER"8TшЛJ,I:Бе9508vЄFILE$│"PROGDESC":Бж1340:Бе9508╥№I$│INITS$:Бж1410:ЕиMBR зЗ"SORRY, "NAME$", ONLY MEMBERS" Л(13)"CAN DOWNLOAD PROGRAMS.":Р9З"WHICH PROGRAM WOULD YOU LIKE TO GET?":╗ЙFILE$9fАI│3е11:▀D2,17,I,A$,B$:A$│A$л О(B$,120):АJ│0е7:SBJECT$│ Р(A$,Jн32л1,8):EXT$│ Р(A$,Jн32л9,3)9ЩЕ К(SBJECT$)│255зJ│7:I│11:ДЕSBJECT$│FILE$з10709┌$ЛJ,I:З"SORRY, "NAME$"," Л(13)"I CAN'T FIND THAT FILE.":Бе950: .FILE$│SBJECT$л"/"лEXT$л":"лD2$:Бж1340:Бе950:8:ГText Files:|BMSG$│"ENTER H,L,D,T,R:":Бж40:Бж1370:C│ Ю("HLDTR",C$)л1:ЕC│6зР:ДИC Бе1090,1100,1110,1140,1150:ЫLFILE$│"TEXT":Бж1340:Бе1090:·VАI│3е11:▀0,17,I,A$,B$:A$│A$л О(B$,120):АJ│0е7:SBJECT$│ Р(A$,Jн32л1,8):EXT$│ Р(A$,Jн32л9,3);@`A│ К(SBJECT$):ЕA│255зJ│7:I│11:ДЕEXT$┤"AAA"░A┤▓0зЗSBJECT$л"/"лEXT$;PjЛJ,I:Бе1090;stFILE$│"TEXTDESC":Бж1340:Бе1090;╨~I$│INITS$:Бж1410:ЕиMBR зЗ"SORRY, "NAME$", ONLY MEMBERS" Л(13)"CAN RECEIVE TEXT FILES.":РьАI│1еNUM:З О(NAME$(I),3)" " П(NAME$(I), З(NAME$(I))м3):Л:Р>#Ў:ГGoodbye>\Щ"D",1,"ACTIVITY":┘#1,ACT$:┼#1, е(1)л1:Ъ:ЕC$│"N"з140>z З"GOODBYE, "NAME$"!": Я│0>ЩЕ Я┤200з1300:ДЗ"+++";: Я│0>╖Е Я┤200з1310:ДЗ"ATH": Я│0>╘(Е Я┤200з1320:ДFL│0:Бе130>ч2:ГDisplay File? FOR LINE #1.":Е EL│998 з EL│0:РvnЙ"EDIT WHICH LINE";ELЭxEL│ELм1:ЕEL▓A з80 :Д Е EL┤0 з EL│0╗ВЮ:З"LINE #"ELл1:ЗA$(EL):З CМЗ"ENTER TO DELETE THIS LINE.ENTER TO RETURN TO MENU. ENTER TO GO BACK A LINE. PRESS TO SKIP THIS LINE." fЦЗ"STRING TO REPLACE?":╗Й"";RP$ ╝аЕ RP$│"DDD" зЗ"ARE YOU SURE YOU WANT TO DELETE THIS LINE? PRESS OR .":Д180 хкZ$│ Т:ЕZ$│"Y"з180:ДЕ Z$│"N"з130:Д170  ┤ЕRP$│""зEL│ELл1:Бе340!И╛Е RP$│"MMM" зР :Д Е RP$│"DDD"з CC│CCм З(A$(EL)):Ю:NL$│"":З@196,"<<<<<>>>>>":╔"T2AP2":Бе320:Д Е RP$│"BBB"зEL│ELм1:Бе340!з╚АR│1е  З(A$(EL))м З(RP$)л1!╠╥Е RP$│ Р(A$(EL),R, З(RP$)) з 240!╥▄Л"цЮ:З@96,"STRING TO REPLACE NOT FOUND!":╔"T22CDCDT1P1":Бе130"#ЁCC│CCм З(RP$)"9·L$│ О(A$(EL),Rм1)"bR$│ П(A$(EL), З(A$(EL))мRм З(RP$)л1)"ИЗ:З"REPLACEMENT STRING?":╗Й"";RP$"иNL$│L$лRP$лR$:CC│CCл З(RP$)"о"Ю"▄,З:ЗNL$:З:З"IS THIS OK? PRESS OR ."# 6Z$│ Т:Е Z$│"Y"з 320 :Д Е Z$│"N" з 130 :Д310#@Ю#)JA$(EL)│NL$:EL│ELл1#НTЕEL┤0зEL│0 :Д ЕEL▓│A з Ю:З@129,"<> PRESS OR .":Бе360#Ч^Бе130#╩hZ$│ Т:Е Z$│"Y"з Р :Д ЕZ$│"N" зEL│0:Бе130 :Д360#ьr:Г***************************$q|A$│"":З@0,"ENTER FOR MENU OR","ENTER AT THE END OF A LINE TO DELETE THAT LINE.","PRESS enter TO STORE THE LINE."$чЖЗ@485,"CHARACTER COUNT="CC".";:Е CC▓1848 зЗ@416,"*WARNING*! RUNNING OUT OF ROOM. FINISH MESSAGE!";:╔"T2C"$№РЗ@160,"":╗Й"";A$%/ЪЕ  П(A$,3)│"DDD"з A$│"":а1,6:З@192, б(255," ")%@дЕ A$│"" з400%YоЕ  П(A$,3)│"MMM"з480%╢╕Е  З(A$)▓78 з Ю:З@320,"LINE TOO LONG! 79 CHARACTERS MAXIMUM. DO AGAIN.",A$:а1,9:Бе380&Ю┬CC│CCл З(A$):Е CC▓2048 з З@193,"LINE NOT ENTERED. MESSAGE TOO LONG FOR MESSAGE BOARD! ENTER FOR MENU. EDIT MESSAGE OR CONTINUE WITH A NEW FILENAME. STORE NEW FILE AS A SEPERATE MESSAGE ON THE BOARD!!":а1,19:Бе400&╪╠A$(A)│A$:A│Aл1:а200,1:A$│"":З@192, б(255," "):З:Бе390&°╓:Г*************************&■рЮ'&ъЗ"<<<<<<<<<<<
>>>>>>>>>>"'IЇЗ"1. CREATE TEXT OR CONTINUE."'i■З"2. LIST OR EDIT MESSAGE."'ИЗ"3. LOAD FILE FROM DISK."'пЗ"4. SCRATCH MESSAGE OR OLD FILE."'╨З"5. STORE MESSAGE TO DISK."'ш&З"6. EXIT PROGRAM."(0З"7. INSERT A LINE BETWEEN OTHERS.";(0:З"8. PRINT DISK DIRECTORY.(ZDЗ:З"<>"(ЪNЗ"<<<<<<<>>>>>>> BY ALAN DAVENPORT"(╗XCH│ Й( Т):Е CH│0 ▒ CH▓8 з600(┴bЮ(ЁlИ CH Бж 380,1260,1450,650,700,860,980,1170(·vБе480)А:Г************************)КЮ)rФЗ"ARE YOU SURE YOU WANT TO SCRATCHYOUR MESSAGE?":З:З" PRESS OR .)вЮZ$│ Т:Е Z$│"Y" з 680 :Д Е Z$│"N" з Р :Д 670)ыиАR│0еA:A$(R)│"":Л:CC│0:A│0:З@229,"OLD MESSAGE SCRATCHED";:╔"T1L2C":Р* ▓:Г************************G╝Ю:Е A$(0)│"" ░ A│0 з З@230,"NO MESSAGE TO STORE!":а1,19:Р*С╞З@192,"PRESS enter TO ABORT OPERATION. ENTER ."*░╨╗Й"OUTPUT FILE NAME? ";NM$*┴┌Е NM$│"" з Р*ЁфЕ  Р(NM$, З(NM$)м1,1)│":"з D│ Й( П(NM$,1))+~юDF│ г(D):Е DF┤1 зЮ:а1,19:З:З"DISK IS FULL!! SWITCH DISKS, PRESS ENTER TO STORE. ENTER TO RETURM TO MENU.":╗Й"";Z$:Е Z$│"M"з Р:Д750+║°Е  З(NM$)▓14 з Ю:З" INVALID FILENAME!":а1,1:Бе710+╦Щ "O",#1,NM$+╪ АR│0 е A+ыЕA$(R)│"" з810+∙ З#1,A$(R)+ *Л,4Ъ,!>З:ЗNM$" SAVED TO DISK.",;H╔"T22CFA":АD│1е2000:Л,ARР,К\Ю:З:З:З"PRESS TO END OR ANY OTHER KEY TO RETURN TO MAIN MENU.",╖fZ$│ Т:ЕZ$│""з870 :Д Е Z$┤▓"E" з 480 :Д Ю,ЎpЗ@224,"<<<<<<<<<<>>>>>>>>>>":╔"T1P1":Ю:в&H8000-z:Г*************************-ДЮ-)ОАR│0еAм1-;ШЗRл1": "A$(R)-]вSF│SFл З(A$(R)):Е SF┤200з 950-ЩмSF│0:З@484,"PRESS SPACEBAR FOR MORE";:Е Т┤▓" "з940 :Д Ю-Я╢Л-ч└З@482,"PRESS SPACEBAR TO CONTINUE.";:Е Т│" "з SF│0:A$│"":Ю:Р :Д 960.╩:Г*************************. ╘Ю.V▐Е A$(0)│"" ░ A│0 зЗ"THERE ARE NO LINES IN MEMORY!":а1,9:АD│1е999:Л:Р.бшЙ"INSERT NEW LINE BEFORE WHICH LINE. HIT ENTER TO ABORT INSERT.";NL.╪ЄЕ NL▓A зЗ"LINE NUMBER OUT OF RANGE!":╔"T2C":Бе1000/ №З@224,"STAND BY, OPENING SPACE FOR NEW LINE."/Е NL│0 з Р/#A│Aл1/5АR│A е NL йм1/R$A$(R)│A$(Rм1):A$(Rм1)│""/X.Л/^8Ю/АBЗ" CHARACTER COUNT="CC"."/ЬLЗ@192,"LINE TO INSERT:"/йV╗Й"";NL$0 `Е  З(NL$)▓78 з Ю:З"LINE TOO LONG. 79 CHARACTERS MAXIMUM! DO AGAIN.":а1,9:З@320,NL$:Бе11000jЮ:ЗNL$0<tЗ:З"IS THIS OK? PRESS OR ."0Д~Z$│ Т:Е Z$│"Y" з A$(R)│NL$:CC│CCл З(NL$):Р :Д Е Z$│"N" з1080 :Д11500еИ:Г**************************0лТЮ0яЬЗ"LISTING DIRECTORY TO PRINTER. ENTER <9> TO RETURN TO MENU."1 жЗ@192:Й"WHICH DRIVE";DR1░Е DR│9 з Р1Ш║В'CHANGE "ND" IN LINE $$ 1220 TO EQUAL THE HIGHEST DRIVE $$$$ NUMBER IN YOUR SYSTEM.$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$1ф─ND│1:Е DR┤0 ▒ DR▓ND з З@0,"<<<<>>>>":а1,5:Бе11901ї╬Т111,254:╬DR2╪З#м2:Р2!т:Г**************************2'ьЮ2]ЎЗ:З"<<<<<<<>>>>>>>":З б(32,"*")2З"1. LIST MESSAGE TO SCREEN."2в З"2. LIST MESSAGE TO PRINTER."2║З"3. EDIT MESSAGE."2┘З"4. RETURN TO MAIN MENU."2ы(З:З б(32,"*")32З"<>"35 OR ."3┘xZ$│ Т:Е Z$│"Y" з 1410 :Д Е Z$│"N" з Р :Д 14003цВАR│0еAм13№МЗ#м2,Rл1": "A$(R)4ЦЛ:Р4%а:Г**************************4+кЮ4\┤З" INPUTTING OLD FILE FROM DISK", б(32,239)4╕╛З"ENTER FOR DISK DIRECTORY. ENTER TO RETURN TO MENU OR TYPE 4╒╚╗Й"INPUT FILE NAME?";NM$5╥Е NM$│""з1450 :Д Е NM$│"M"з Р :Д Е NM$│"D" з ╬:Бе14805J▄Е  З(NM$)▓14 з Ю:З@232,"FILENAME INVALID":а1,19:Бе14805WцЮ4:Бж6805hЁЩ "I",#1,NM$5~·Е  М(1)│м1 з 15605Н╗Й#1,A$(A)5оCC│CCл З(A$(A)):A│Aл1:Бе15305╢Ъ:Ю5ш"З@224,NM$" LOADED FROM DISK.":╔"T22CBAT1P1":РШMSG$│"ENTER 'S' TO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╜Q mМ1&lМ,╛hпМ'0Мh┐h╛ЫпМ0М┐Ы9mМ'·oМ оМ ┐hоМ щВsВ╣4ЎUЖў╖ ╢ КАБў'╩ ─ўўUЎVЖя╖ ╢ КАБў'╩ ─ўўV52bп~не46Б'Щ╞-1НУба'01'Z&ў╞$ба'1%Z&ў5╢Н"╞чН9╞9чН[нчН+╞зчНM рНН ┌▄И4DVTTTTЖ =Ж =5─:▄╝0Л9╞OзД0И Z&°╞жазД0И Z&яЖзДзИ 9 ▓01Н&Н╞ БAf< %0J4,R '*T88T:?2°Ж154,125,162,124,162,122,165,122,166,123,170,120,170,119,174,117,178,117,180,112,181,114,183,111,185,114,187,113,183,118,184,120,181,123,181,125,178,127,178,129,175,131,175,133,177,135,178,137,175,140?Ж173,141,171,142,171,144,170,146,169,148,168,152,169,156,170,158,173,161,176,165,175,167,172,165,169,163,167,162,167,161,165,159,163,158,161,158,159,160,157,158,147,158,148,160,149,158,147,161,146,161,138,159?╒ Ж135,159,130,160,128,161,126,162,126,164,125,166,126,168,124,168,122,166,120,165,119,163,117,161,114,161,112,163,110,162,108,160,104,159,100,159,100,160,92,160,80,157,75,157,73,154,70,153,70,151,67,150@CЖ65,145,64,140,62,139,64,138,62,135,63,132,64,126,65,120,63,115,62,113,67,118,68,118,69,117,69,115,68,112@ъ Ж67,109,66,111,64,111,62,109,140,109,136,114,140,109,142,110,143,112,144,114,146,114,149,115,153,115,155,116,156,118,156,120,157,122,160,122,160,120,169,120,99,99A*╗(187,113)м(190,109),╜:X1│126:Y1│168AM4НX,Y:ЕX│99░Y│99з840:Д╗(X1,Y1)м(X,Y),╜:X1│X:Y1│Y:Бе820Ax>Ж128,169,128,170,126,171,129,179,99,99AЙHX1│75:Y1│157A├RНX,Y:ЕX│99░Y│99з870:Д╗(X1,Y1)м(X,Y),╜:X1│X:Y1│Y:Бе850Ba\Ж76,163,77,165,80,170,80,172,78,172,80,174,82,175,83,179,86,179,85,175,86,173,84,170,83,165,82,162,82,161,86,162,89,163,89,165,90,170,92,175,94,179,99,99BsfX1│150:Y1│179BнpНX,Y:ЕX│99░Y│99з900:Д╗(X1,Y1)м(X,Y),╜:X1│X:Y1│Y:Бе880BЁzЖ152,177,154,176,156,176,157,177,158,176,159,177,158,178,99,99CДX1│166:Y1│174C<ОНX,Y:ЕX│99░Y│99з930:Д╗(X1,Y1)м(X,Y),╜:X1│X:Y1│Y:Бе910C╫ШЖ168,173,171,172,175,172,176,173,179,174,183,175,185,175,184,176,187,176,189,177,188,178,178,178,180,177,176,176,173,175,174,174,172,174,165,175,99,99C вНX,Y:ЕX│99░Y│99з950:Д╜(X,Y,1):Бе930DFмЖ67,140,77,155,76,118,105,135,125,159,167,145,141,125,72,117,99,99DW╢X1│64:Y1│131DС└НX,Y:ЕX│99░Y│99з980:Д╗(X1,Y1)м(X,Y),╜:X1│X:Y1│Y:Бе960D╩╩Ж67,131,70,133,122,133,122,154,120,154,120,163,99,99D▄╘X1│122:Y1│154E▐НX,Y:ЕX│99░Y│99з1010:Д╗(X1,Y1)м(X,Y),╜:X1│X:Y1│Y:Бе990ERшЖ147,154,147,139,156,139,162,133,169,117,169,110,99,99EmЄ╗(169,117)м(183,117),╜EИ№╗(162,133)м(174,133),╜Eг╗(122,110)м(122,133),╜E╝╗(85,110)м(85,133),╜FНX,Y:ЕX│99░Y│99з1070:Д╗(X,Y)м(X,Yл3),╜:╗(Xл2,Y)м(Xл2,Yл3),╜:╗(Xл4,Y)м(Xл4,Yл3),╜:Бе1050FЙ$Ж109,132,115,135,92,156,88,116,100,114,112,114,116,118,109,118,111,122,115,126,127,143,129,139,136,149,99,99Fу.НX,Y:ЕX│99░Y│99з1090:Д╗(X,Y)м(Xл2,Yм2),╜:╗(Xл2,Yм2)м(Xл4,Y),╜:╗(Xл4,Y)м(X,Y),╜:Бе1070Gx8Ж109,129,73,115,78,116,70,140,74,139,73,136,78,153,113,156,114,150,120,145,119,133,118,116,128,157,141,146,145,128,161,153,173,120,177,122,99,99G╜B╗(105,138)м(109,138),╜:╗м(106,140),╜:╗м(107,137),╜:╗м(108,140),╜HlLТ65494,0:A│ Г1(0):Ю0:З@256," INSERT TAPE TO SAVE WAR ROOM PICTURE TO, THEN HIT ENTER":З" ";:З@334,"";:ЙA$:ШM"WAR ROOM",1536,7679,20768PRESS FEELS THAT YOU LOST THE DEBATE"Hз└ЕPL│1зX│2:ДX│1H╦┬АI│0е50:VT(I,X)│VT(I,X)л Д(4):ЛH▌├Бж9010:Бж9010Hу─РI<XЮ:З@128,"YOU ARE YIELDI                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  < :Г WARGAME::Г INSTRUCTIONSL:Г j(:Г BY TOM WEBERС2╣ Г0│&H5120:╣ Г1│&H5141:Ю:Т65495,0╞<Й"DO YOU WANT INSTRUCTIONS";A$:Е О(A$,1)│"N"з220╬FM│1╘PЮ¤ZИM Бж140,150,160,170,180,190,200,210dЕM│6зM│Mл1:Бе90`nАA│1е З(A$):B$│ Р(A$,A,1):ЗB$;:Т140,190:Т142,2:в43350:Л:M│Mл1:З:АX│1е300:ЛlxЕM┤9з90жВАX│1е300:Л:З б(32,"-");:АX│1е16:З:АY│1е100:ЛY,X:Бе220┬МЗ@13,"";:A$│"WARGAME":Р BЦA$│"THIS PROGRAM IS A SIMULATION OF OPERATING OUR NORTH AMERICAN DEFENSE (NORAD) COMPLEX IN CHEYENNE MOUNTAIN, COLORADO.":Р єаA$│"IN ACTUALITY, THIS IS A SIMULATION OF A SIMULATION. ONE OF A NUCLEAR ATTACK CONDUCTED BY NORAD TO TEST PERSONEL AND EQUIPTMENT IN THE EVENT OF AN ACTUAL NUCLEAR WAR.":Р!YкA$│"THE OBJECT OF THE SIMULATION IS SIMPLE: DISABLE ALL SOVIET BASES BEFORE THEY DISABLE OURS.":Р!╞┤З" ";:A$│"GOOD LUCK, GENERAL. THE PRESIDENT EXPECTS A HIGH RATING OF NORAD AS A RESULT OF THIS TEST.":Р!у╛АX│1е5:З:АY│1е200:ЛY,X:Р"╚З@498,"";:A$│"THAT IS ALL.":Р"'╥З@500,"";:A$│"PENTAGON OUT":Р"I▄Ю0:З@231,"SIMULATION BEGINS";"░цТ65494,0:АPM│0е4й2:АSC│0е1:┐0,SC:╔"V15O3L17EV31L2A":╚PM,1:┐1,SC:╔"O2V10L90EL15C":АX│1е520:ЛX,SC,PM"┬ЁA│ Г0(0):┐1,1"╧·Т65495,0# A$│"SIMULATION WILL BEGIN SHORTLY....... ":Бж270:Бе340#L│ З(A$):A│0:B│0#)A│Aл1#;"D$│ Р(A$,A,1)#g,L$│" "лD$#У6З@256,L$;:A│Aл1:ЕA▓L зA│L:B│Bл1:ЕB│32зР#╡@L$│ П(L$, З(L$)м1)л Р(A$,A,1)#╞Jа200,2:Бе310#╫T:ГSHOW BASES$^A$│"SOVIET BASES: ":X│0:Y│0:Бж590$%hA$│"MOSCOW ":X│238:Y│42:Бж590$KrA$│"LENINGRAD ":X│232:Y│40:Бж590$o|A$│"KHARKOV ":X│238:Y│45:Бж590$ФЖA$│"VOLOGRAD ":X│240:Y│46:Бж590$╖РA$│"ROSTOV ":X│238:Y│47:Бж590$▌ЪA$│"ARCHANGEL ":X│242:Y│31:Бж590$ дA$│"MINSK ":X│230:Y│46:Бж590%$оA$│"KAMCHATKA ":X│70:Y│42:Бж590%K╕A$│"VLADIVOSTOK ":X│53:Y│53:Бж590%n┬A$│"YAKUTSK ":X│48:Y│34:Бж590%Ц╠A$│"U.S. BASES: ":X│0:Y│0:Бж590%╢╓A$│"NOME ":X│99:Y│27:Бж590%▄рA$│"FAIRBANKS ":X│107:Y│29:Бж590& ъA$│"SEATTLE ":X│126:Y│54:X2│72:Y2│117:Бж590&>ЇA$│"SPOKANE ":X│130:Y│55:X2│76:Y2│118:Бж590&u■A$│"SAN FRANCISCO ":X│128:Y│62:X2│67:Y2│140:Бж590&иA$│"SAN DIEGO ":X│132:Y│66:X2│77:Y2│155:Бж590&┘A$│"DENVER ":X│136:Y│61:X2│105:Y2│135:Бж590' A$│"HOUSTON ":X│142:Y│70:X2│125:Y2│159:Бж590'=&A$│"CHICAGO ":X│147:Y│58:X2│141:Y2│125:Бж590'r0A$│"CHARLESTON ":X│154:Y│66:X2│167:Y2│145:Бж590'К:З@276," ";'ФDБе710'йNL│ З(A$):A│0:B│0'│XA│Aл1'┼bD$│ Р(A$,A,1)'ёlL$│" "лD$' vЗ@256,L$;(.АЕY│0▒F1│1з660:ДЕ а(X,Y)│0з╜(X,Y,1):Д╛(X,Y)(_КЕY2│0з660:ДЕ а(X2,Y2)│0з╜(X2,Y2,1):Д╛(X2,Y2)(РФA│Aл1:ЕA▓L зA│L:ЕY│0▒F1│1з670:Д╜(X,Y,1):Д680(сЮЗ@256," ":ЕF1│1зF1│0:Р:ДЕY2│0зР:Д╜(X2,Y2,1):Р)иL$│ П(L$, З(L$)м1)л Р(A$,A,1))▓а200,2:Бе630)"╝З@480,"";);╞З@480,"";:Т65494,0:Ч9,13.77,62,14,64.5,14.2,65.5,14.55,66,14.5,68.5,14.35,69,14.25,67,14.2,68.5,14,67.5,13.8,71,13.6,70,13.8,68,12.9,68.5,12.35,68)▀╥Ж12.4,69,11.5,70.5,11,69,99,99*U▄Ж2.45,5,3,-6,3.1,-3,2.6,5,2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Е?Ж╔Чц╛hпН5╛kпНdЖ~╖j╖g0Н ┐h0Н┐k94 o&Б &Ж ╜О Ж ╜О 5~?(p o&-2b4нЯа' Ў "V%ЄН╞4OНЎ "V$к`h`$Є2aД5Х~?(Н4Цц!■J&√5В ? ")лD$═<З@256,L$;:A│Aл1:ЕA▓L зA│L:ЕY│0▒F1│1з70:Д╜(X,Y,1):Д80фFЗ@256, б(32," "):РPL$│ П(L$, З(L$)м1)л Р(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r:Г PRINTER ARTIST>:Г (C) 1983 BY MICHAEL J. HIMOWITZn:Г FOR PERSONAL USE OF RAINBOW READERS ONLYu└1А Х 5000НМ L$(80)ЫA│1:NN│м2BЮ:З " PRINTER ARTIST":З:З:З"1. CREATE A DRAWING":З"2. SAVE TO TAPE OR DISK":З"3. ENTER FROM TAPE OR DISK":З"4. PRINT DRAWING IN MEMORY":З"5. EDIT DRAWING"u#Е NF$│"" з 40 :Д З@480м32,"current file: "лNF$О(CH$│ Т:Е CH$│"" з 40╕2И  Й(CH$) Бе 200, 400, 600, 800, 1000┬<Бе 40ш╚Ю:З" CREATE A DRAWING":Бж 15300 '╦З:З"1. START A NEW DRAWING":З"2. CONTINUE CURRENT DRAWING" A╠HG$│ Т:Е HG$│"" з 204 W═Е  Й(HG$)│1 з A│1 f▄А X│A е 80 БцЗ"LINE NO."X:╗ Й L$(X) дщЕ L$(X)│"SAME" з L$(X)│L$(Xм1) ╚ъV│ Й(L$(X)):Е V▓0 з L$(X)│L$(V) ьыЕ PL│1 ░ L$(X)┤▓"" з З#м2,L$(X)!ЁЕ L$(X)│"" з 350!єБж 245:Бе 260!?їЕ  Р(L$(X),1,1)│" " з  Р(L$(X),1,1)│"<"!}ўА B│1 е  З(L$(X)):Е  Р(L$(X),B,1)│":" з  Р(L$(X),B,1)│"="!Е°Л B!Л∙Р!йЗ"IS THIS CORRECT? (Y/N)"!├CR$│ Т:Е CR$│"" з 270!шЕ CR$┤▓"Y" з З"CORRECTED":Бе 230!Ё"Л X!·,Бе 30"^X│Xм1:A│Xл1:Бе 30"CРЮ:З" SAVE DRAWING":З:З"TAPE (T) OR DISK (D)?""NСБж 405"xТЙ "NAME OF DRAWING";NF$:NF$│ О(NF$,7)"ГУБе 430"ЭХMD$│ Т:Е MD$│"" з 405"╤ЪЕ MD$│"T" з MD│м1 :Д Е MD$│"D" з MD│1 :Д Бе 405#дЕ MD│1 з ZR$│"DISK" :Д Е MD│м1 з ZR$│"TAPE"#йР#2оЗ"PREPARE "лZR$:Й "AND PRESS enter";PE#O╕З"SAVING "лNF$л" TO "ZR$#А┬Е MD│1 з Е  П(NF$,3)┤▓"DAT" з NF$│NF$л"/ART"#Ф╠Щ "O", #MD, NF$#├╓З#MD,X:А K│1 е X:З#MD,L$(K):Л K:Ъ#MD:Бе 30#фXЮ:З"ENTER FROM TAPE OR DISK"$]З"TAPE (T) OR DISK (D)?"$IbБж 405:Й"NAME OF DRAWING";NF$:NF$│ О(NF$,7):Е MD│1 з NF$│NF$л"/ART"$tgЗ"PREPARE "лZR$:Й "AND PRESS enter";PE$ХlЗ"LOADING "лNF$л" FROM "ZR$"$╒vЩ "I",#MD,NF$: Й#MD,X:А K│1 е X:╗ Й#MD,L$(K):Л K:Ъ#MD:Бе 30% Ю:З"PRINT "лNF$:З:Й "HOW MANY COPIES";BB%I*З"POSITION TOP OF PAPER":З"AT PRINTER HEAD":Й "AND PRESS enter";PE%U/Бж 2000%y4А F│1 е BB:Ю:З NF$л" COPY NO."F%С>KK│66мX:AA│ Б(KKо2)%йHА R│1 е AA:З#NN:Л R%╖RА K│1 е X%у\Е  Р(L$(K),1,1)│"<" з  Р(L$(K),1,1)│" "&!fА B│1 е  З(L$(K)):Е  Р(L$(K),B,1)│"=" з  Р(L$(K),B,1)│":"&)pЛ B&<вЗ#м2,дMR)L$(K)&OзА W│1 е 30:Л W&WмЛ K&m▒А F│1 е AA:З#NN:Л&v╢З#NN&А└Бе 30&┴шЮ:З" EDIT A LINE":З:З"1. CHANGE A LINE":З"2. INSERT A LINE"&┌Q$│ Т:Е Q$│"" з 1030&ЇИ  Й(Q$) Бе 1100,1300'Бе 1000',LЮ:З"CHANGE A LINE":З:Й "WHICH LINE?";WN'H`З"CURRENT LINE":ЗL$(WN)'kjЗ"ENTER CORRECTED LINE":╗ Й J$'ЙtЕ J$│"DEL" з 1150 :Д 1200'└~А K│WN е Xм1:L$(K)│L$(Kл1):Л K:X│Xм1:A│Xл1:Бе 1280'╓░L$(WN)│J$:Бж 1400'эЗ"ANOTHER CHANGE?"(AC$│ Т:Е AC$│"" з 1283(#Е AC$│"Y" з 1100 :Д 30(qЮ:З"INSERT A LINE":З:З"LINE AFTER WHICH":Й "NEW LINE WILL BE INSERTED";WN(ОЗ"ENTER NEW LINE":╗ Й J$(и#З:З"IS THIS CORRECT?"(├(RC$│ Т:Е RC$│"" з 1320(┘-Е RC$┤▓"Y" з 1300(х2IL│WNл1)<А K│Xл1 е ILл1 йм1:L$(K)│L$(Kм1):Л K:L$(IL)│J$)%FБж 1500)5KX│Xл1:A│Xл1)?PБе 30)mxЕ  Р(L$(WN),1,1)│" " з  Р(L$(WN),1,1)│"<")ЕВА B│ 1 е  З(L$(WN)))│МЕ  Р(L$(WN),B,1)│":" з  Р(L$(WN),B,1)│"=")╗ЦЛ B)┴аР)я▄Е  Р(L$(IL),1,1)│" " з  Р(L$(IL),1,1)│"<"*0цА B│1 е  З(L$(IL)):Е  Р(L$(IL),B,1)│":" з  Р(L$(IL),B,1)│"="*8ЁЛ B*>·Р*G╨MJ│0*U┌А K│2 е X*ТфЕ  З(L$(K))│▓ З(L$(Kм1)) з MJ│ З(L$(K)):MR│ Б((80мMJ)о2)*ЪюЛ K*о°Е MJ│▓80 з MR│0*┤Р*┬ А K│1 е X*щЗ#м2, ═ "###";K;:З#м2, " "лL$(K)*ў Л K:Бе 25+2;─З:З"DO YOU WANT TO PRINT":З"LINES WHEN ENTERED? (Y/N)"+N;╬PL$│ Т:Е PL$│"" з 15310+k;╪Е PL$│"Y" з PL│1 :Д PL│0+q;тР*ЕU│1зЕYU▓52з╗(X6,Y6)м((X2(0)лX6)о2,109),╜+о4AU│м1:FK│1+█>AU│AUл1:ЕAU▓ZZ з850:ДЕX2(AU)┤0зX2(AU)│XI,8C╜(X2(AU),Y2(AU),1):╗(XI,YI)м(X2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 щ Бж 1000!А X│1 е 100:Л X┼ ╔"O2L8CO5L16CO4BO5L8CO4GEGL16CDCO3BO4L8CO3GEGL16CGDGEGFGEGDGCO4CO3BAGO4CO3BAGFEDCGDGEGFGEGDGCO4CO3BAGO4CO3BAGFEDCDEFGABO4CDEFDEGCDEFGABO5CO4ABO5CO4GFGEGFGEGDG" ╔"CO5CO4BAGCACGCFC EGDGEGFGEGDGCO5CO4BAGCACGCFC EO3CO4CO3CBCO4CO3"Б╔"CO4DO3CBC O4CO3CO4EO3CO4DO3CO4EO3CO4FO3CO4DO3C O4ECO3CO4CO2BO4CO3CO4CO3DO4CO2BO4C O3CO4CO3EO4CO3DO4CO3EO4CO3F"√(╔"O4CO3DO4C O3CDCDEGCDEGCD EFEFGO4CO3EFGO4CO3EF GAGAB-O4EO3GAB-O4EO3GA B-O4GECO3B-GECO2B-AB-G ABABO3C#EO2ABO3C#EO2AB" r2╔"O3C#DC#DEAC#DEAC#D EFEFGO4C#O3EFGO4C#O3EF GO4EC#O3AO4GEFDC#EO3AG FAFDO4DO3BO4CO3AG#BED CECO2AO3CEAEO4CO3AO4EO3A" °<╔"G#BG#EO4ED#ED#EO3BO4CO3A G#BG#EO4DC#DC#DO3BO4CO3A G#BG#EAEG#EL8AF L4EO4DP8L8O3B L4O4CO3AP8O4L8D# L4EO5DP8L8O4B L4O5CO4AP8L8O3A"!╛F╔"L16 CD#AD#O4CO3D#AD#O4CO3D#AD# CD#AD#O4CO3D#AD#O4CO3D#AD# O2BO3EAEBEAEBEAE DEG#EBEG#EBEG#E AO4AGFEAEDCECO3B AO4AEDCECO3BAO4CO3AG L8F#DF#AL4O4C L16O3BO4GF#EDGDCO3BO4DO3BA GO4GFEDFDCO3BO4DO3BA"!ыP╔"L2O4FL16FEFD ECEGO5CO4GECP16O4GO5CO4B""│Z╔"L4O5CO4L2G L8GL16FEL2F L8FL16EDL4EL16ECO3GO4C O3FO4CDCO3BGBO4CDO3GO4DE L4.FL8GL4E L16EFEL32FDL32DEDEDEDEDEDEDEDEL4.DL8C L16CO5CO4BAGO5CO4FO5CO4EO5CO4DO5C O4CO5CO4BAGCFCECDC P16O3EGBO4CEGBL4O5C""═ДЗ@394,"PRESS ANY KEY""щОI$│ Т:Е I$│""з 910 :Д 1"ячК#шЮ:З@43,"SINFONIA"#ЄЗ@73,"BY J.S. BACH"#2№З@139,"ARRANGED"#UЗ@165,"FOR THE COLOR COMPUTER"#dЗ@206,"BY"#~З@233,"TOMMY POLLOCK"#О$З@269,"AND"#з.З@298,"GAIL POLLOCK"#╩8З@357,"PRESS ANY KEY TO BEGIN"#шBI$│ Т:Е I$│"" з 1090 :Д РTAPE (T) OR DISK (D)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 х:Г REDCHASE:Г*:Г WRITTEN BYA:Г RICH DERSHEIMERV:Г 2203 S.HUGHESr:Г AMARILLO, TX 79109y:ГИdХ200,16300вn:ГDATA FOR RED SCREEN╖xЖ 86,20,8E,03,FF╠ВЖ 30,01,A7,84,8CсМЖ 05,FF,25,F7,39°Ц:Г DATA FOR CHASER аЖ 8E,04,00,8C,06"кЖ 00,27,1A,A6,847┤Ж 81,80,25,08,81L╛Ж F0,25,08,8B,90a╚Ж A7,84,30,01,20v╥Ж E9,8B,10,A7,84Л▄Ж 30,01,20,E1,39иц:Г LOAD INTO HIGH MEMORY╖ЁА X│1 е 50└·Н A$┌Т Xл16300, Й("&H"лA$)тЛ X■:Г DEFINE USER ROUTINES "╣ Г0│16301 ,╣ Г1│16316 16:Г TEST THE CODE ;@┐ 0,1 HJТ 359,13 UTA│ Г0(0) h^З@70,"chaser"; yhЗ@77,"test"; ЛrЗ@105,"with"; Ь|З@110,"red"; ░ЖЗ@114,"screen"; ╛РА X│0 е 7 ═ЪN│143л16нX рдЗ@172лX, Л(N); єоЗ@204лX, Л(N);!╕З@236лX, Л(N);!┬З@268лX, Л(N);!,╠З@300лX, Л(N);!4╓Л X!EрЗ@357,"hit";![ъЗ@361,"spacebar";!kЇЗ@370,"to";!}■З@373,"stop";!КA│ Г1(0)!Ъа  Д(100),1!дA$│ Т!╕&Е A$┤▓" " з 520!┬0┐ 0,0!╨:З@480,"";!▐DТ 359,126!фNКO4B""│Z╔"L4O5CO4L2G L8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &Т 65495,0&5Х 200:МO$(26),H$(10),N(52),Y(7):П&№╚ 1,1:╝:Ю0:╔"V30L255T255":H$(0)│"U10R10D10L10R10BR4":H$(1)│"R10L5U10G5BF5BR9":H$(2)│"U5R10U5L10BD10R10BR4":H$(3)│"R10U10L10R10D5L8R8D5BR4":H$(4)│"BU5U5D5R10U5D10BR4":H$(5)│"R10U5L10U5R10BD10BR4"'ъЖU4E4F4L8R8D4BR4,U8R7FD2GL7R7FD2GL7R7BR5,U8R8L8D8R8BR4,U8R7F1D6G1L7R7BR5,U8R8L8D4R6L6D4R8BR4,U8R8L8D4R6L6D4BR12,U8R8D2U2L8D8R8U4L4R4D4BR4,U8D4R8U4D8BR4,R4U8L4R8L4D8R4BR4,U2D2R8U8D8BR4,U8D4R4E4G4F4BR4,U8D8R8BR4,U8F4E4D8BR4,U8F8U8D8BR4(▓ЖU8R8D8L8R8BR4,U8R8D4L8D4BR12,U8R8D8L8R6H2F4H2R2BR4,U8R8D4L8R4F4BR4,R8U4L8U4R8BD8BR4,BR4U8L4R8BD8BR4,U8D8R8U8D8BR4,BR4H4U4D4F4E4U4BD8BR4,U8D8E4F4U8D8BR4,E8G4H4F8BR4,BR4U4H4F4E4BD8BR4,E8L8BD8R8BR4)FАT│1 е 26:Н O$(T):Л T:╚ 1,1:╝:H$(6)│"U10R10L10D5R10D5L10BR14":H$(7)│"E10L10BR14BD10":H$(8)│"U10R10D10L10U5R10D5BR4":H$(9)│"R10U10L10D5R10D5BR4")Q Бж 46)[Бж 68)i ╚1,1:┐1,1)s Бе 12)╤ L│ З(R$):А TY│1 е L:M│ К( Р(R$,TY,1))м64:Е M│м32 з ╞"BR10":Л TY:Р :Д ╞O$(M):а 50,1:Л TY:Р)у ╞"S4BM2,2BD8"* Y(1)│64:Y(2)│2:Y(3)│16:Y(4)│1:Y(5)│32:Y(6)│8:Y(7)│4*1А S│1 е 7 :T│Y(S)*DА X│1 е 52:Н N*QA$│ И(N)*aC│Cл1:Бж 31*ВЕ C│6 з ╞"BL254":╞"BD20":C│0*ЦЕ A$│ И(0) з 21*ЮЛ X*╥╞"S4C4BM0,190":R$│" IS YOUR NUMBER HERE ":Бж 11*шE$│ Т:Е E$│""з 22+ Е E$│"Y"з TT│TTлT:Бж 33 :Бе 28+9Е E$│"N" з TT│TT:╞"BM2,2BD8":Бж 33 :Бе 28+KЕ E$│"Q"з ╝:О+cЕ S│7 з Бж 33:Бе 27+mБе 22+ЕC│0:╝:╞"C4BM2,2BD8"+Ща Sл150,Sл1:Л S+гБе 30+ў╞"C3BR2BU5R4BD5BR4":А L│2 е  З(A$):M│ Й( Р(A$,L,1)):╞ H$(M):╔ "L100O3CO2AE":Л L+¤ Р,!Е S│7 з 34 :Д Бе 36,*"Е TT▓101 з TT│0,q#Е S│7 з A$│ И(TT) :╝:Бж 94:Бж 103:╞"S8BM80,120":Бж 31 :Бж 98:Бж107,w$Р,Б%Бж 94,Л&Бе 38-'Ж 64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,0-Э(Ж 2,3,6,7,10,11,14,15,18,19,22,23,26,27,30,31,34,35,38,39,42,43,46,47,50,51,54,55,58,59,62,63,66,67,70,71,74,75,78,79,82,83,86,87,90,91,94,95,98,99,0.5)Ж 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,0.╬*Ж 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,53,55,57,59,61,63,65,67,69,71,73,75,77,79,81,83,85,87,89,91,93,95,97,99,0/F+Ж 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,96,97,98,99,100,0/▄,Ж 8,9,10,11,12,13,14,15,24,25,26,27,28,29,30,31,40,41,42,43,44,45,46,47,56,57,58,59,60,61,62,63,72,73,74,75,76,77,78,79,88,89,90,91,92,93,94,95,00t-Ж 4,5,6,7,12,13,14,15,20,21,22,23,28,29,30,31,36,37,38,39,44,45,46,47,52,53,54,55,60,61,62,63,68,69,70,71,76,77,78,79,84,85,86,87,92,93,94,95,100,00z.В0Ж/╚ 3,1:╝0ъ0╞"BM8,123;E40R16ND12G16R12NE4R12E16R16ND12G40D12NE12L16U12NR16E16L24G16L16D12R16NU12E16NU12R12"151╞"BM76,123;E40R12F40D12L92U12NR92R16BE8E16ND12R12ND12F16L44R12E4R12F4"1Ф2╞"BM180,123;H40ND12R16F32R12H16ND12R12H4U12R16F40D12L68NH12U12NR68R16BH8R12BR12NH16R12H32"1р3├(16,128),2,4:├(60,128),2,4:├(104,128),2,4:├(200,128),2,4:├(32,120),3,42I4├(56,96),3,4:├(48,116),3,4:├(80,116),3,4:├(108,108),3,4:├(120,108),3,4:├(136,110),3,4:├(160,108),3,42k5├(190,112),3,4:├(200,100),3,42Ы6├(40,100),4,4:├(108,100),4,4:├(160,100),4,42к7╚ 4,1:┐1,12╥8А I│1 е 20й 10:┬(124,20),I,3,.1:Л I39А I│1 е 40 й 8:┬(124,23),I,3,.1:а 10лI,1:ЛI34:А I│1 е 60 й 10:┬(124,30),I,3,.1:а150лI,1:Л I3d;А I│1 е 80 й10:┬(124,40),I,3,.1:а180лI,1:ЛI3Ц<А I│1 е 100 й10:┬(124,52),I,3,.1:а 180мI,1:ЛI3╟=А I│1 е 120й10:┬(124,70),I,3,.1:а 140мI,1:ЛI3°>А I│ 1 е 160 й10:┬(124,152),I,3,.1:а200,1:ЛI4(?А I│1 е 180 й10:┬(124,180),I,3,.1:а150,1:ЛI4>@E$│ Т:Е E$│""з 644TAЕ E$│ Л(13) з ╝:Р4iBЕ E$│"R"з ╝:Бе 94sCБе 644zDВ 4МE╚ 1,1:╝2:┐1,04▒F╞"S12C4BM50,40":R$│"H O W":Бж 114┌G╞"S8C3BM2,80":R$│"IS A SIMPLE":Бж 115H╞"S8C3BM30,110":R$│"T R I C K":Бж 115&I╞"S8C3BM100,140":R$│"OF":Бж 115JJ╞"S8C4BM76,170":R$│"MATH":Бж 115_KА X│1 е 2000:Л X5jL╝:┐1,15ЧM╞"S6C3BM0,40":R$│"HOW TO PLAY HOW":Бж 115─N╞"S4C4BM50,60":R$│"YOU WILL THINK ":Бж115єO╞"S4C4BM40,80":R$│"A NUMBER BETWEEN":Бж 116'P╞"S4C4BM10,100":R$│" ONE AND ONE HUNDRED":Бж 116\Q╞"S4C4BM2,120":R$│"THE CO CO WILL ASK YOU":Бж 116РR╞"S4C4BM10,140":R$│" IS THE NUMBER HERE":Бж 116┼S╞"S4C4BM10,160":R$│" YOU LL ANSWER Y OR N":Бж 116┌TА X│1 е 3000:Л X6рU╝7V╞"S8C3BM60,20":R$│"T H E N":Бж 117:W╞"S4C4BM0,60":R$│"THE MAGIC OF THE CO CO":Бж 117hX╞"S4C4BM40,80":R$│" WILL GIVE YOU":Бж 117ЩY╞"S4C4BM30,100":R$│" THE RIGHT ANSWER":Бж 117┼Z╞"S4C2BM10,160":R$│"IF YOU WANT ":Бж 117·[╞"S4C2BM10,180":R$│"TO PLAY AGAIN PRESS R":Бж 118\Бе 648 ] ╝:Р8=^╞"S4C3BM30,40":R$│"DO YOU BELIEVE IT":Бж 118n_╞"S4C3BM20,60":R$│" THE CO CO SAYS ":Бж 118Ю`╞"S4C3BM20,80":R$│" YOUR NUMBER IS":Бж 118дaР8╪b╞"S4C4BM20,140":R$│" HA HA HA THE CO CO ":Бж 119 c╞"S4C4BM10,160":R$│" CAN READ YOUR MIND":Бж 119@d╞"S4C3BM10,175":R$│" DO YOU WANT TO PLAY":Бж119he╞"S4C3BM90,190":R$│"PRESS R ":Бж 119nfР9~gА X│80 е 909Ъhа X,1:а Xл10,2:а Xм10,19вiЛ X9иjР9┐kE$│ Т:Е E$│""з 1079╤lЕ E$│"R"з ╝:О9ыmЕ E$│"N"з Т 65494,0:К:nЕ E$│ Л(13)з ╝: Бе 1:oБе 107│1е4:З@480,"** ACCESS DENIED **":╔"V28O1L6C":З@480, б(20," "):АZS│1е150:ЛZS,SZ:З@269," ":З@480, б(20," "):Р:ДБе12702░тU$│U$лI$:З@480лI,I$;:I│Iл1:Р2╤ьЗ@480, б(32," "):I│0:U$│"":Р3ЎU│ Ю(U$, Л(8)):ЕU│0з1280:ДU$│ О(U$,Uм1)л                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ° :Г LASERWORM & FIREFLY 6.3<:Г 16K STRIPPED VERSION[:Г (C) 1983 JOSEF A. LAAKEdБе18в╗(M,R)м(F,E),╛:╗(M,R)м(F,E),╜:╔"O5L255BA#G#FC#O-G#DO-G":Р╞Y│ Ж(65280):ЕY│126▒Y│254з108:ДР▄╔"CDEFGABO+CP8":РBЮ Д(7)л1:АA│0е31:B│ Д(9)м1:Ь(A,0,B):Ь(0,A,B):Ь(63мA,0,B):Ь(63,A,B):Ь(A,31,B):Ь(63мA,31,B):Л:Бж6:РЮ╞"BM45,3"лA$( Б(SC(3)о10))л"BM53,3"лA$(SC(3)м Б(SC(3)о10)н10)л"BM61,3"лA$( Б(SC(2)о10))  ╞"BM69,3"лA$(SC(2)м Б(SC(2)о10)н10)л"BM77,3"лA$( Б(SC(1)о10))л"BM85,3"лA$(SC(1)м Б(SC(1)о10)н10) j ╞"BM239,3"лA$( Б(( Б(Hо5))о10))л"BM247,3"лA$(( Б(Hо5))м(( Б(( Б(Hо5))о10))н10)):╗(100,5)м(235,5),╜ Е ИG Бе12,13,14,15,16,17 Ь ┼(35,3)м(41,7),L,╜ │ ┼(27,3)м(33,7),L,╜ ╩┼(19,3)м(25,7),L,╜ с┼(11,3)м(17,7),L,╜ Ў┼(3,3)м(9,7),L,╜ №Р!╔"L128O2":Бж7!МЗ@198," RESET HIGH SCORE ? ";:З@295," FOR YES, HIT ";:З@327," FOR NO, HIT ";:З@358," OR JOYSTICK BUTTON ";:╔"O1"!╬A$│ Т:ЕA$│"Y"з21:ДЕA$│"N"з22:ДY│ Ж(65280):ЕY│126▒Y│254з22:Д20!шАY│16376е16378:ТY,0:Л"BБж7:З@106," CAT'S MEOW ";:Бж6:З@135," ELECTROSOFT INC. ";:Бж6:З@171," PRESENTS ";:Бж6"╝╔"L16O3GF#GEFGL8AL16GF#GL28CDEFGABO4CP8":З@260," LASERWORM ";:╔"O3C":З@271," & ";:╔"G":З@274," FIREFLY! ";:╔"O+CO1P8"# З@358," COPYRIGHT (C) 1983 ";:Бж6:З@392," JOSEF A. LAAKE ";:Бж6:╔"L128":Бж6#/АY│16379е16383:ТY,0:Л:Т16380,4#GТ65495,0:Х350,16375#╝МK(8,5),L(7,5),Q(8,5),V(8,5),A(0),B(0),C(0),D(0),E(0),F(0),G(0),H(0),M(0),R(0),X(0),Y(0),HS(3),SC(3),T$(8),A$(9)$G│ Ж(16380):H│ Ж(16379):SC(1)│ Ж(16381):SC(2)│ Ж(16382):SC(3)│ Ж(16383)$[SC│SC(1)лSC(2)н100лSC(3)н10000:HS(1)│ Ж(16376):HS(2)│ Ж(16377):HS(3)│ Ж(16378)$РHS│HS(1)лHS(2)н100лHS(3)н10000:T$(1)│"BL7R1NE3F3$жT$(2)│"BR7L1NH3G3$╝ T$(3)│"BU7D1NG3F3$╥!T$(4)│"BD7U1NH3E3$ш"T$(5)│"BE6G1ND3L4$■#T$(6)│"BH6F1ND3R4%$T$(7)│"BG6E1NU3R4%*%T$(8)│"BF6H1NU3L4%G&A$(0)│"BR1R2F1D4G1L2H1U4%^'A$(1)│"BF1E1D6L2R4%z(A$(2)│"R3F1D1G1L2G1D2R4%б)A$(3)│"BD1E1R3F1D1G1L1R1F1D1G1L3H1%╡*A$(4)│"D4R4U2D4%╥+A$(5)│"BR4L4D2R3F1D2G1L3%є,A$(6)│"BR3L2G1D4F1R2E1U1H1L3& -A$(7)│"D1U1R4D2G2D2&7.A$(8)│"BR1R2F1D1G1F1D1G1L2H1U1E1NR1H1U1&X/A$(9)│"BF3L2H1U1E1R2F1D4G1L2&~0╚4,1:╝:┬(4,20),4,5,.9:├(4,20),5,5&╠1╞"BM1,1F3R1E3D1G3L1H3D1F3R1E3D1G3L1H3BM1,15E3R1F3U1H3L1G3U1E3R1F3U1H3L1G3'-2─(1,2)м(8,6),V,G:─(1,10)м(8,14),Q,G:─(9,2)м(16,6),K,G:─(1,18)м(7,22),L,G:M│122:R│183:I│1:K│1'F3╚4,1:╝:┐1,1:Бж8: Я│0'a4A│ Д(247):B│ Д(172)л11'|5┼(A,Bл3)м(Aл7,Bл7),K,╜'╒6A│Aл Д( Б(((2нH)л45)о5))м Б((Hл25)о5):B│Bл Д( Б(((2нH)л45)о5))м Б((Hл25)о5):ЕA┤0зA│0'ф7ЕB┤11зB│11'ї8ЕA▓248зA│248(9ЕB▓182зB│182(T:┼(A,B)м(Aл7,Bл4),V,╜:Бж62:Бж5:┼(A,B)м(Aл7,Bл7),K,╜:┼(A,Bл3)м(Aл7,Bл7),Q,╜(k;Е Я▓1240зB│3:Бе159(ЛC│ Н(0):D│ Н(1):Т200,M:Т202,R:╞"C0"лT$(K):╔"L64O3G")?ЕC│63 ░ D│63з80)@ЕC│0 ░ D│63з83)&AЕC│0 ░ D│0з86)9BЕC│63 ░ D│0з89)FCЕD│63з92)RDЕD│0з96)`EЕC│63з100)mFЕC│0з104)┴G┼(Mм3,Rм2)м(Mл3,Rл2),L,╜:Т200,M:Т202,R:╞"C5"лT$(K):ИK Бе72,73,74,75,76,77,78,79)╠H╔"1":Р)╫I╔"8":Р)тJ╔"5":Р)юK╔"12":Р)∙L╔"6":Р*M╔"3":Р*N╔"O+1":Р*O╔"10":Р*9PM│Mл4:ЕM▓247зM│247:Бе94*\QR│Rл4:ЕR▓183зR│183:M│Mм4:Бе102*iRK│8:Бе71*ГSM│Mм4:ЕM┤10зM│10:Бе94*жTR│Rл4:ЕR▓183зR│183:M│Mл4:Бе106*│UK│7:Бе71*═VM│Mм4:ЕM┤10зM│10:Бе98*юWR│Rм4:ЕR┤16зR│16:M│Mл4:Бе106*√XK│6:Бе71+YM│Mл4:ЕM▓247зM│247:Бе98+8ZR│Rм4:ЕR┤16зR│16:M│Mм4:Бе102+E[K│5:Бе71+T\ЕM┤10зM│10+e]ЕM▓247зM│247+|^R│Rл5:ЕR▓183зR│183+Й_K│4:Бе71+Ш`ЕM┤10зM│10+йaЕM▓247зM│247+╛bR│Rм5:ЕR┤16зR│16+╦cK│3:Бе71+▄dЕR▓183зR│183+ыeЕR┤16зR│16,fM│Mл7:ЕM▓247зM│247,gK│2:Бе71, hЕR▓183зR│183,/iЕR┤16зR│16,DjM│Mм7:ЕM┤10зM│10,QkK│1:Бе71,lX│ Я:ИK Бе109,112,115,118,121,126,131,136,УmE│R:АF│Mм8е2йм2,жnЕ а(F,E)│5з181,║o╜(F,E):ЛF:Бе141,╧pE│R:АF│Mл8е254й2,тqЕ а(F,E)│5з181,Ўr╜(F,E):ЛF:Бе141- sF│M:АE│Rм8е11йм2-tЕ а(F,E)│5з181-2u╜(F,E):ЛE:Бе141-GvF│M:АE│Rл8е191й2-ZwЕ а(F,E)│5з181-nx╜(F,E):ЛE:Бе141-ЕyE│Rм7:АF│Mл7е255й2-ШzЕ а(F,E)│5з181-й{╜(F,E):E│Eм2-┐|ЕE┤10зE│Eл2:Бе141-╪}ЛF:F│Fм2:E│Eл2:Бе141-я~F│Mм7:АE│Rм7е11йм2.Е а(F,E)│5з181.А╜(F,E):F│Fм2.(БЕF┤1зF│Fл2:Бе141.5ВЛE:Бе141.LГF│Mм7:АE│Rл7е191й2._ДЕ а(F,E)│5з181.pЕ╜(F,E):F│Fм2.ЕЖЕF┤0зF│Fл2:Бе141.ЮЗЛE:E│Eм2:F│Fл2:Бе141.╡ИF│Mл7:АE│Rл7е191й2.╚ЙЕ а(F,E)│5з181.┘К╜(F,E):F│Fл2.ЁЛЕF▓255зF│Fм2:Бе141/ МЛE:E│Eм2:F│Fм2:Бе141/НБж4/$О╗(M,R)м(F,E),╛/=ПI│Iл1:ЕI│6зB│2:Бе159/HР Я│X:Р/YС╔"L64O2":Бж7/vТЗ@33," FINAL SCORE ";/СУЗ@49," HIGH SCORE ";/йФЕHS┤SC зHS│SC :Д152/║ХТ16376,SC(1)/╦ЦТ16377,SC(2)/▄ЧТ16378,SC(3)/ЄШЗ@67,SC;:З@86,HS;0ЩЗ@233," *** GAME *** ";0*ЪЗ@265," *** OVER *** ";0VЫЗ@417," TO RESET GAME, PRESS OR ";0АЬЗ@450," FIRE BUTTON ON JOYSTICK ";0бЭY│ Ж(65280):ЕY│126 ▒ Y│254з30┤ЮЕ Т│"R"з3:Д1570╔Я╔"L28":АY│5е55й50┌а┬(M,R),Y,,.90Ўб╔"L-L-O1;"л И(13м(Yо5))1 вЛY:G│Gл1:Т16380,G1гТ65494,0:Ю515дИB Бе165,176,179,1801ZеЗ@68," FIREFLY IN YOUR EYE!!! ";1АжЗ@132," FATAL TO LASERWORMS!!! ";1├з╔"L8O1CDE-FE-P8CP8L44G#AG#AG#AG#AG#AL8GP16L16BO2CP16O1GP16CP2"1┌иЕG│6з170:ДЕG│7з1452 йЗ@258," YOU HAVE LASERWORMS LEFT ";:Бе17124кЗ@258," YOU HAVE LASERWORM LEFT! ";2NлАY│1е5:З@268, Л(128);2lм╔"L126O1CO2CO1CO2CO1CO2C"2{нЗ@267,7мG;2Хо╔"O1GO2GO1GO2GO1GO2G"2апЛ:Бе262┐░З@71," TOO MANY SHOTS!! ";2х▒З@132," DEPLETED ENERGY SUPPLY ";3▓З@195," IS FATAL TO LASERWORMS!! ";:Бе16736│З@72," OUT OF TIME!!! ";:Бе1773_┤З@69," YOU SHOT YOURSELF!!! ";:Бе1663g╡Бж43Р╢ЕF┤A ▒ F▓Aл7 ▒ E┤B ▒ E▓Bл7зB│4:Бе1593и╖╔"L80O4":АY│15е39й33╝╕┬(F,E),Yм10,,.93у╣ЕY┤39з╔ И(Yо3):Л:Д╔"O5C":C│0:H│Hл14║ИI Бе187,188,189,190,1914 ╗C│5004╝C│Cл2504"╜C│Cл1504-╛C│Cл5048┐C│Cл504b└SC│SCлC:B│ Б((1240мX)н( Б(Hо5)о24.8))4┴ЕX▓930▒C│50зB│0:ДSC│SCлB4Ц┬SC(3)│ Б(SCо10000)4╣├SC(2)│ Б((SCмSC(3)н10000)о100)4▄─SC(1)│SCмSC(3)н10000мSC(2)н1004Є┼Т16380,G:Т16379,H5╞Т16381,SC(1)5╟Т16382,SC(2)5"╚Т 65494,05G╔Ю5:З@228," POINTS THIS SHOT "C;5x╩ЕH┤5з204:ДЗ@260," ENERGY BONUS X" Б(Hо5);B;5Ь╦З@292," TOTAL THIS ROUND"BлC;5╣╠ИI Бе205,207,206,208,2095▀═╔"L32O4CDEO+CEGECO-ECEGO+C":Бе2106╬╔"L16O4EDCO-AO+AP16GO+C":Бе2106'╧╔"L20O4GFGDGO-BO+CDO-GO+C":Бе2106J╨╔"L16O3EE-EE-EDCO-AGO+C":Бе2106w╤╔"L60O3E-EP10G-GP30E-EP6E-EP10G-GP30E-E"6г╥ЕSC(3)▓ Ж(16383)зТ16383,SC(3):G│Gм1:Д266░╙Т16380,G6╘╘Ю5:З@70," CONGRADULATIONS!!! ";6■╒З@130," EVERY 10,000 ENERGY POINTS ";7╓З@199," HATCHES ANOTHER ";7[╫╔"L16O3GEGO4CO3GECDEDO2GO3L48CDCECFCGCACBCO4L16CP16O5CP6"7М╪АX│1е5:З@262, б(20,143лXн16);:╔"L64O5GCGCGC"7└┘З@262," LASERWORM LARVA!!! ";:╔"GB-GB-GB-GB-":Л7ў┌З@322," YOU NOW HAVE"7мG"LASERWORMS! ";:╔"P1":Бе265R16C                                                                                                                                                                                                                                                                 ╫& :ГDISKWASH 1.1&(:ГDAVID SZLUCHA&D:Г14 GREAT GARLAND RISE&^(:ГFAIRPORT N.Y. 14450&m2:Г 7/11/83&w<Х2000&ЕFB│143:S│0'PТ &HF8,&H32:Т &HF9,&H62:Т &HFA,&H1C:Т&HFB,&HAF:Т&HFC,&H7E:Т&HFD,&HAD:Т&HFE,&HA5:Т&H19A,&H39:Т&H19B,&H0:Т&H19C,&HF8:Т&H19A,&H7E'Z╧ S'd:Г'!nБж500')xX│3'IВЗ@480," PLEASE WAIT...";'\М▀ S,17,X,A$,B$'qЦC$│A$л О(B$,127)'ЖаNAM$(0)│ О(C$,8)'ЭкEXT$(0)│ Р(C$,9,3)'л┤А N│1 е 7'╟╛NAM$(N)│ Р(C$,Nн32л1,8)'у╚EXT$(N)│ Р(C$,9лNн32,3)(╥TYP$(N)│ Р(C$,13лNн32,1)(▄ЛN(цЕ FL│0 з N│0 :Д N│7(AЁЕ  О(NAM$(N),1)│ Л(255) з 310(a·Е  О(NAM$(N),1)│ Л(0) з 310(ОЗ@480," ";(▒З@416,NAM$(N);"/";EXT$(N);":";(└Бж380:FL│0(╤"З@384,"":З:З(х,З@384,"DRIVE:"S(Ў6ЕI$│"B" з350) @N│Nл1:Е N┤8 з 240)#JX│Xл1:Е X┤12 з 130).TБе 120)C^ЕN▓0зN│Nм1:Бе240)nhЕN│0 з FL│1:X│Xм1:ЕX┤3 з X│11 :Д Бе130)yrБе 130)Г|I$│ Т)НЖБж920)аРЕ I$│"R" з 650)▒ЪЕ I$│" " з Р)┬дЕ I$│"X" з К)╙оЕ I$│"B" з Р)ц╕Е I$│"P" з 960)∙┬Е I$│"D" з 730* ╠Е I$│"C" з 780*╓Е I$│"S" з 850*2рЕ I$│"N" з 890*=ъБе 380*bЇЮ:З" 'DISKWASH' BY DAVE SZLUCHA"*h■З*ЙЗ" COMMAND FUNCTION"*пЗ" P DIR TO PRINTER"*╥З" R RENAME FILE"*є&З" C COPY FILE"+0З" D DELETE FILE"+;:З" X EXIT TO BASIC"+ZDЗ" SPACE BAR FORWARD"+vNЗ" B BACK"+ЫXЗ" S CHANGE DRIVES"+╛bЗ" N CHANGE DISK"+═lЗ"DRIVE:"S+╙vР+▐АБе 500+ЄК╗Й"NAME ";N$:З;,ФЕ  З(N$)▓8 ▒  З(N$)┤1 з 710,!ЮE$│EXT$(N),AиЗ@480," RENAMING...";,g▓╓ NAM$(N)л"/"лEXT$(N) е N$л"/"лE$,q╝Бе110,{╞Бж500,Б╨Р,г┌╗Й"ARE YOU SURE ?/ ";S$,╡фЕ S$┤▓"Y" з Р,╫юЗ@480," DELETING...";,ё°╥ NAM$(N)л"/"лEXT$(N),√Бе110- ╗Й"DESTINATION DRIVE ";D$-3Е D$▓"3" ▒ D$┤"0" з Р-Z S1│S:D│ Й(D$):S$│ И(S):S$│ П(S$,1)-М*Е S1│D з ▐ NAM$(N)л"/"лEXT$(N)л":"лS$:Бж500:Р-ц4З@480," COPYING...";:▐ NAM$(N)л"/"лEXT$(N)л":"лS$ е NAM$(N)л"/"лEXT$(N)л":"лD$-ё>Бж 500-ўHР.R╗Й"DRIVE ";S$:S│ Й(S$).+\Е S▓3 ▒ S┤0 з S│0 :Р.3f╧ S.>pБе 100.[zЗ:З"INSERT NEW DISK AND".rД╗Й"PRESS ENTER";Q$.}ОБе 110.СШЕ B▓255 з B│143.░вЗ Л(B);:АP│1е75:ЛP:З Л(8);.╗мB│Bл16.┴╢Р.╨└Т111,254:╬.╓╩Р8,6),V,G:─(1,10)м(8,14),Q,G:─(9,2)м(16