home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / CC8.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  640 b   |  16 lines
  1. 1 CHAIN MERGE "cs",2,DELETE 2-6
  2. 2 A=1
  3. 6 B=1
  4. 105 CLS
  5. 109 LOCATE 7,1 : PRINT LI$
  6. 118 PRINT "      ╧╓╘┌╚├╬╥├╟╘┌ A╠ß╩╛╖√╧┬╝∞▓Θ'bbb.bak'╩╟╖±╘┌A╟²╢»╞≈╡─╫╙─┐┬╝╓╨(╫ó╥Γ:A┼╠╡─╡▒╟░           ─┐┬╝╩╟ SUBDIR1),╟δ╝ⁿ╚δ:dir/w ╝░╗╪│╡╝ⁿ";
  7. 120 LOCATE 1,2:INPUT "A>",B$
  8. 121 IF B$="DIR/W" OR B$="dir/w" THEN 128 ELSE 123
  9. 123 BEEP
  10. 124 LOCATE 1,40:PRINT AB$
  11. 125 GOTO 120
  12. 128 LOCATE 1,4:PRINT B$:LOCATE 1,9:PRINT "                                                                 ": NAME "fff.bas" AS "ttt88.bas"
  13. 129 CLS:SYSTEM
  14. 130 END
  15. T "                                                                 ": NAME "fff.bas" AS "ttt88.bas"
  16. 129 CLS:SYSTE