;! ==1c01==
 10000 rem !, andrew gaunt 04/22/89 - a-bbs boot-strap
 10100 rem
 10200 d=peek(186)
 10300 :
 10400 key 2,chr$(13)+"awg"+chr$(13)+"!hacker!"+chr$(13)
 10410 key 1,chr$(13)+"sys"+chr$(13)+"!system!"+chr$(13)
 10415 key 8,chr$(13)+"sys"+chr$(13)+"!system!"+chr$(13)+"< check"+chr$(13)+"exit"+chr$(13)
 10500 trap 11200
 10600 print "{clr}{down}{down}{down}{down}{down}{down}{CTRL-G} hit stop {rvon} *now* {rvof} to abort a-bbs boot-strap"
 10700 print " (will boot proline shell)"
 10800 sleep 2
 10900 print "{clr}booting a-bbs ...":run "p-a-bbs.*",u(d)
 11000 :
 11100 rem********************************************
 11200 trap 10000
 11300 n$=chr$(13)
 11400 a$="setu 1 9 0"
 11500 for i=1 to len(a$)
 11600 : poke 841+i,asc(mid$(a$,i,1))
 11700 next i
 11800 poke 208,len(a$)
 11900 rem print "{home}{home}{clr}{down}{down}{down}col 3 0 5 0"+n$+"setu 1 9 0"+n$+"ed "+n$+"{home}";
 12000 print "{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} {rvon} * booting shell... * {rvof}{home}";
 12100 run"shell",u(d)
 12200 end