1 REM Ins{nd av Bo Kullmar <1789>    1985-04-22 23.33.22
2 ! **********************************************************************
3 ! Program          WFL.BAS          Utg}va  1.0      1985-04-22
4 ! av Bo Kullmar
5 ! Ins{nd av Bo Kullmar
6 ! F|r ABC800M ABC800C ABC802 ABC806
8 ! Testad p} ABC806
9 ! Programmet {r en version av Bj|rn Gustavssons program som finns publiserat
10 ! i ABC-Bladet nr 1, 1983 sid 6. Programmet l{gger upp koden i en dosbubbert.
11 ! OBServera dock att dosbufferten INTE markeras som upptagen.
12 ! **********************************************************************
60 EXTEND : INTEGER 
300 DIM Text$=0
700 POKE -1280,69,251,42,145,255,34,44,251,33,21,251,34,145,255
710 POKE -1266,42,0,251,34,42,251,201,229,42,42,251,126,35
720 POKE -1253,34,42,251,225,167,192,229,42,44,251,34,145,255
730 POKE -1240,227,201,0,251,0,0
1000 ; CHR$(12) DBLE 'WFL AUOTPILOT' : ; : ; 
1010 POKE VAROOT(Text$),0,1,69,251,0,0 ! DIM Text$=256
1020 Text$='LIST CON:'+CHR$(13)+'LIST NUL:'+CHR$(13)+';CHR$(7)'+CHR$(13,0)
1030 ; : ; 
1040 Z=CALL(64258)