home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / CC10.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  512 b   |  14 lines
  1. 1 CHAIN MERGE "cs",2,DELETE 2-6
  2. 2 Q=1
  3. 6 W=1
  4. 180 KEY OFF:CLS
  5. 190 LOCATE 1,2:PRINT "C>"
  6. 195 LOCATE 7,1 : PRINT LI$
  7. 200 PRINT "              ║├!─π╥╤╛¡═Ω│╔┴╦░╤C┼╠╔╧╡─▓┘╫≈╧╡═│╬─╝■┐╜▒┤╡╜A┼╠╡─╚╬╬±"
  8. 209 LOCATE 10,1:PRINT XY$;;
  9. 210 B$=INKEY$
  10. 230 IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c11",ALL ELSE IF B$="r" OR B$="R" THEN 235 ELSE 210
  11. 235 CHAIN "ama1",ALL
  12. 240 END
  13.  CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c11",ALL ELSE IF B$="r" OR B$="R" THEN 235 ELSE 210
  14. 235 CHAIN "ama1",A