home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / CCCC8.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  384 b   |  13 lines
  1. 1 CHAIN MERGE "cs",2,DELETE 2-6
  2. 2 D=3
  3. 6 E=4
  4. 10 CLS
  5. 20 PRINT "A>_"
  6. 30 LOCATE 7,1 :PRINT LI$
  7. 40 PRINT "       ╞┴─╗╠ß╩╛╖√'A>'╕µ╦▀╬╥▐╤─┐┬╝╥╤╛¡╕─║├ ,╡▒╟░─┐┬╝╛═╩╟╕∙─┐┬╝."
  8. 50 LOCATE 10,1:PRINT XY$;
  9. 60 BS$=INKEY$
  10. 70 IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN CHAIN "c9",ALL ELSE IF BS$="R" OR BS$="r" THEN 75 ELSE 60
  11. 75 CHAIN "ama1",ALL
  12. 80 END
  13. EN CHAIN "c0",A