path: root/LORCHA.LST

1 POKE 82,0›2 ? CHR$(125)›3 POSITION 0,0›5 OPEN #1,8,0,"H:LORCHA.DAT"›10 ? "  
= 
="›20 ? "  ‹ "›30 ? "    "›40 ? "Š  ˆ  "›50 ? "
 |  |"›60 ? " ””””” "›70 ? "Š     ˆ"›100 FOR Y=0 TO 6›105 FOR X=0 TO 6›110 ? #1;CHR$(PEEK(40000+X+Y*40));›120 NEXT X›130 NEXT Y›140 CLOSE #1›