10 REM bbcbasic prog. for Einstein
   11 ?&FA0D=&66
   20 REM needs serial link to PC with hardware hand shacking.
   30 REM when run keyboard input will come from PC.
   40 REM PC needs terminal Prog i.e. Win 95/98 hyper terminal.
   50 REM bbcbasic listings saved as text files on PC
   60 REM can be loaded into Einstein by send text file.
   70 HIMEM=HIMEM-&20
   80 GOSUB 120
   90 PRINT"START  "
  100 GOSUB 130
  110 STOP
  120 BEGIN=HIMEM+1
  130 CODE=BEGIN
  140 P%=CODE
  150 [
  160 PUSH AF
  170 LD A,&27
  180 OUT (&11),A
  190 POP AF
  200 LD (&FBB2),A
  210 RST &08
  220 DEFB &A1
  230 PUSH AF
  240 LD A,&07
  250 OUT (&11),A
  260 POP AF
  270 RET
  280 ]
  290 SECOND=&3A47
  300 CODE =SECOND
  310 P%=SECOND
  320 [
  330 .SECOND CALL BEGIN
  340 RET
  350 ]
  360 RETURN
  370 REM goto 9010 to get input from the Einstein keyboard.
  380 SWOP=HIMEM+&B:?SWOP=&9C
  390 STOP
  400 REM goto 9110 to get inputfrom PC keyboard.
  410 SWOP=HIMEM+&B:?SWOP=&A1
  420 ?&FA0D=&66
  430 STOP
>