home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / CC6.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  512 b   |  14 lines
  1. 1 CHAIN MERGE "cs",2,DELETE 2-6
  2. 2 A=2
  3. 6 D=5
  4. 106 CLS
  5. 108 PRINT " C>_"
  6. 109 LOCATE 7,1 : PRINT LI$
  7. 110 PRINT "    ╞┴─╗╫≤╔╧╜╟╠ß╩╛╖√'C>',═¿╓¬─π'sys'├ⁿ┴ε╥╤╓┤╨╨═Ω▒╧,─π╥╤╛¡░╤ C╟²╢»╞≈╓╨╡─╧╡═│            ╬─╝■┤½╦═╡╜ A┼╠╓╨"
  8. 120 PRINT XY$;
  9. 130 B$=INKEY$
  10. 132 IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c7",ALL ELSE IF B$="R" OR B$="r" THEN 133 ELSE 130
  11. 133 CHAIN "ama1",ALL
  12. 134 END
  13. N CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c7",ALL ELSE IF B$="R" OR B$="r" THEN 133 ELSE 130
  14. 133 CHAIN "