home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1983 April / Antic_April_1983_Vol_2_No_1.atr / menu.sys < prev    next >
Text File  |  2021-01-21  |  2KB  |  7 lines
  1. 10 R:        MENU.SYS¢20 R:AN AUTOMATED MENU SYSTEM¢30 R:         PART 1¢40 R: ANTIC #7 --- KEN HARMS¢50 R:¢60 C:@B752=1 [TURN OFF CURSOR¢70 C:@B709=154 [TURNS ON LETTERS¢80 U:*FACE¢90 T:HI! \¢100 U:*OPEN¢110 T:PLEASE \¢120 U:*PUCKER¢130 T:WAIT¢140 U:*HALF¢150 T:JUST \¢160 U:*TIGHT¢170 T:A MINUTE.¢180 U:*OPEN¢190 U:*SMILE¢200 LOAD D:DIRECT.SYS¢1470 R:¢1480 *FACE¢1490 POS:2,5¢1500 R: USE CTRL Ps, reverse CTRL Ys,         and CTRL Ys. CTRL F, G, & N for       mouth.¢1510 T:      ⓪⓪⓪¢1520 T:    ⓪⓪   ⓪⓪¢1530 T:   ⓪       ⓪¢1540 T:   Ö û   û ⑨¢1550 T:   Ö   ④   ⑨¢1560 T:   Ö       ⑨¢1570 T:   Ö ◆╱ ⑨¢1580 T:   Ö       ⑨¢1590 T:    ◆╱¢1600 T:¢1610 PA:30¢1620 E:¢1630 *SMILE¢1640 U:*SETXY¢1650 POS:7,11¢1660 T:◆╱¢1670 POS:7,12¢1680 T:     [ERASE MOUTH BOTTOM¢1690 PA:5¢1700 U:*RESETXY¢1710 E:¢1720 *OPEN¢1730 U:*SETXY¢1740 POS:7,11¢1750 T:╱
  2.  
  3.  
  4. ◆¢1760 POS:7,12¢1770 T:◆╱¢1780 PA:5¢1790 U:*RESETXY¢1800 E:¢1810 *TIGHT¢1820 U:*SETXY¢1830 POS:7,11¢1840 R: CTRL U¢1850 T:⑤⑤⑤⑤⑤¢1860 POS:7,12¢1870 T:     [TYPE 5 SPACES AFTER COLON¢1880 PA:5¢1890 U:*RESETXY¢1900 E:¢1910 *PUCKER¢1920 U:*SETXY¢1930 POS:7,11¢1940 T:╱
  5. ◆¢1950 POS:7,12¢1960 T:
  6. ◆╱
  7. ¢1970 PA:5¢1980 U:*RESETXY¢1990 E:¢2000 *HALF¢2010 U:*SETXY¢2020 POS:7,11¢2030 T:¢2040 POS:7,12¢2050 T:◆╱¢2060 PA:5¢2070 U:*RESETXY¢2080 E:¢2090 R:¢2100 *SETXY¢2110 R: STORES CURSOR POSITION¢2120 C:#X=@B85     [GET X COORDINATE¢2130 C:#Y=@B84     [GET Y COORDINATE¢2140 E:¢2150 R:¢2160 *RESETXY¢2170 R: RESTORES CURSOR POSITION¢2180 C:@B85=#X¢2190 C:@B84=#Y¢2200 E:¢2210 R:¢