20000 DIM VER$(37),LEER$(37),P$(3),WIN$(11)¢20010 VER$(1)="②":VER$(37)="②":VER$(2)=VER$:P$="<②②":LEER$(1)=" ":LEER$(37)=" ":LEER$(2)=LEER$¢20020 P$="<②②":WIN$="D8:WIN .OVL"¢20030 REM ááבנמהחו¡קדצקáá¢20040 IF PEEK(12)+256*PEEK(13)=8320 THEN GOTO 20110¢20050 ? "}"¢20060 ? "Dieses Programm benoetigt"¢20070 ? "TURBO-BASIC.":END ¢20080 ? "}"¢20090 ? "Dieses Programm benoetigt"¢20100 ? "eine RAM-DISK":END ¢20110 TRAP 20080¢20120 CLOSE #3:OPEN #3,6,0,"D8:*.*"¢20130 CLOSE #3¢20140 REM GOTO PROGRAMMANFANG¢20150 REM ááנסדמ¡תחמגנתáá¢20160 PROC OPENW¢20170 WIN$(7,7)=STR$(WIN)¢20180 CLOSE #3:OPEN #3,8,0,WIN$¢20190 BPUT #3,DPEEK(88),960:CLOSE #3¢20200 WEITE=X1-X-2¢20210 POSITION X,Y:? "①";VER$(1,WEITE);"❎"¢20220 FOR XXX=Y+1 TO Y1-1¢20230 POSITION X,XXX:? "|";LEER$(1,WEITE);"|"¢20240 NEXT XXX¢20250 POSITION X,Y1:? "ə";VER$(1,WEITE);"⇨"¢20260 ENDPROC ¢20270 REM ááבכנצד¡תחמגנתáá¢20280 PROC CLOSEW¢20290 WIN$(7,7)=STR$(WIN)¢20300 CLOSE #3:OPEN #3,4,0,WIN$¢20310 BGET #3,DPEEK(88),960:CLOSE #3¢20320 ENDPROC ¢
