Liren Large Software Subsidy 13/13.iso/p/p029/xl.img/DOSXX.ARJ/CC9.BAS

BASIC Source File | 1980-01-01 | 512 b | 15 lines

1 CHAIN MERGE "cs",2,DELETE 2-6
2 A=2
6 B=2
10 CLS
20 LOCATE 1,2 : PRINT "A>_"
30 LOCATE 7,1:PRINT LI$
40 PRINT "       ║├ !─π═Ω│╔┴╦└√╙├ TREE ├ⁿ┴ε└┤╧╘╩╛╓╕╢¿┼╠ A╔╧╡─╦∙╙╨┬╖╛╢╝░╞Σ▓π┤╬╣╪╧╡╡─┴╖╧░"
50 LOCATE 10,1:PRINT XY$;
60 B$=INKEY$
70 IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c10",ALL ELSE IF B$="r" OR B$="R" THEN 75 ELSE 60
75 CHAIN "ama1",ALL
80 END
THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c10",ALL ELSE IF B$="r" OR B$="R" THEN 75 ELSE 60
75 CHAIN "ama1",ALL
80