home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / CCC7.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  384 b   |  12 lines
  1. 1 CHAIN MERGE "cs",2,DELETE 2-6
  2. 2 A=1
  3. 6 B=1
  4. 10 LOCATE 1,2 : PRINT "A>"
  5. 20 LOCATE 7,1 : PRINT LI$
  6. 30 PRINT "      ║├ ! ─π╥╤│╔╣ª╡─╜¿┴ó┴╦╫╙─┐┬╝"
  7. 40 LOCATE 10,1:PRINT XY$;
  8. 50 BS$=INKEY$
  9. 60 IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN CHAIN "c8",ALL ELSE IF BS$="r" OR BS$="R" THEN 65 ELSE 50
  10. 65 CHAIN "ama1",ALL
  11. 70 END
  12. EN CHAIN "c0",ALL ELSE IF BS$=" " THEN