home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C0.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  1.4 KB  |  31 lines
  1. 1 CHAIN MERGE "cs",2,DELETE 2-6
  2. 2 S=2
  3. 6 D=3
  4. 39 CLS
  5. 40 PRINT "        ************************  ╫╙  ▓╦  ╡Ñ  4  ************************"
  6. 50 PRINT "        * 1.  FDISK   (╙▓ ┼╠ ╫╝ ▒╕ )├ⁿ┴ε  2.  BACKUP (┐╜▒┤╙▓┼╠╬─╝■)├ⁿ┴ε *"
  7. 60 PRINT "        * 3.  RESTORE (╗╓╕┤╙▓┼╠╬─╝■)├ⁿ┴ε  4.  TIME   (╔Φ╓├╧╡═│╩▒╝Σ)├ⁿ┴ε *"
  8. 70 PRINT "        * 5.  DATE    (╔Φ╓├╧╡═│╚╒╞┌)├ⁿ┴ε  6.  SYS    (╧╡ ═│ ┤½ ╦═ )├ⁿ┴ε *"
  9. 80 PRINT "        * 7.  MD      ( ╜¿┴ó╫╙─┐┬╝ )├ⁿ┴ε  8.  CD     (╨▐ ╕─ ─┐ ┬╝ )├ⁿ┴ε *"
  10. 90 PRINT "        * 9.  TREE    (╧╘ ╩╛ ─┐ ┬╝ )├ⁿ┴ε  10. PATH   (╔Φ╓├╝∞╦≈─┐┬╝)├ⁿ┴ε *"
  11. 91 PRINT "        * 11. ╦╝  ┐╝  ╠Γ                  12. ╦╝  ┐╝  ╠Γ  ╠ß  ╩╛        *"
  12. 92 PRINT "        *****************************************************************"
  13. 100 LOCATE 9,1 : INPUT "                                ╟δ╩Σ╚δ─·╡─╤í╘±(1-10)? ░┤'R'╝ⁿ╖╡╗╪╓≈▓╦╡Ñ :",BS$
  14. 110 IF BS$="r" OR BS$="R" THEN 198
  15. 111 IF BS$="1" THEN CHAIN "c1"
  16. 121 IF BS$="2" THEN CHAIN "c2"
  17. 131 IF BS$="3" THEN CHAIN "c3"
  18. 141 IF BS$="4" THEN CHAIN "c4"
  19. 151 IF BS$="5" THEN CHAIN "c5"
  20. 152 IF BS$="6" THEN CHAIN "c6"
  21. 160 IF BS$="7" THEN CHAIN "c7"
  22. 170 IF BS$="8" THEN CHAIN "c8"
  23. 180 IF BS$="9" THEN CHAIN "c9"
  24. 190 IF BS$="10" THEN CHAIN "c10"
  25. 195 IF BS$="11" THEN CHAIN "c11"
  26. 196 IF BS$="12" THEN CHAIN "c12" ELSE 100
  27. 198 CHAIN "ama1",ALL
  28. 200 END
  29.  THEN CHAIN "c10"
  30. 195 IF BS$="11" THEN CHAIN "c11"
  31. 196 IF BS$="12" THEN CHAIN "c12" ELSE 100