home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / CC7.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 B=8
  3. 6 A=9
  4. 170 KEY OFF:CLS
  5. 185 LOCATE 7,1 : PRINT LI$
  6. 190 PRINT "    'A>'╖√╠ß╨╤─πSUBDIR1╫╙─┐┬╝╥╤╛¡╜¿┴ó,╧╓╘┌╒²╡╚┤²╩Σ╚δ├ⁿ┴ε,─╟├┤╚├╬╥├╟╙├DIR                  └┤╝∞▓Θ,╘≥╝ⁿ╚δ'dir a:'╝░╗╪│╡╝ⁿ"
  7. 191 LOCATE 1,2:INPUT "A>",BS$
  8. 192 IF BS$="dir a:" OR BS$="DIR A:" THEN 196 ELSE 193
  9. 193 BEEP
  10. 194 LOCATE 1,40 : PRINT AB$
  11. 195 GOTO 191
  12. 196 LOCATE 1,4:PRINT BS$:LOCATE 1,10:PRINT "                                                                  ":NAME "fff.bas" AS "ttt77.bas"
  13. 197 CLS:SYSTEM
  14. 200 END
  15. T "                                                                  ":NAME "fff.bas" AS "ttt77.bas"
  16. 197 C