10 @%=&20009
   20 CLS
   30 PRINT''"CYBER ROASTER"
   40 PRINT'"Are you cooking beef, lamb, chicken, pork or turkey (enter B/L/C/P/T)"
   50 INPUT M$:IF M$="B" THEN meat$="beef"ELSE IF M$="L"THEN meat$="lamb"ELSE IF M$="C" THEN meat$="chicken"ELSE IF M$="P"THEN meat$="pork"ELSE IF M$="T"THEN meat$="turkey"
   60 CLS
   65:
   70 INPUT''"Enter the weight in kg.",W
   80 L=W*2.2046
   90 CLS
  100 PRINT'"That is ";L;" lb."
  110 PRINT'"Because we are cooking ";meat$;:IF meat$="chicken" AND L<3 THEN PRINT " and the weight is under 3lb"
  120 IF M$="P" THEN M=30 ELSE M=20:IF M$="C" AND L<3 THEN M=15
  130 PRINT " it will be ";M;" minutes per lb. and ";M;" minutes over."
  140 TM=(M*L)+M
  150 H%=TM DIV 60: M%=TM MOD 60
  160 PRINT'"The total cooking time is ";H%;" hr. and ";M%;" min. Press any key when cooking starts."
  170 G=GET
  180 T$=RIGHT$(TIME$,8)
  190 CLS
  200 CLOCK$=RIGHT$(TIME$,8)
  210 MIN$=LEFT$(CLOCK$,5)
  220 H$=LEFT$(MIN$,2):M$=RIGHT$(MIN$,2)
  230 H=VAL(H$):M=VAL(M$)
  240 FH=H%+H:FM=M%+M
  250 PROCtimer
  260 END
  265 :
  270 DEFPROCtimer
  280 R=FM
  290 Q=R DIV 60
  300 S=FH+Q
  310 IF S>24 THEN S=S-24
  320 NFM=R MOD 60
  330 PRINT'' "The time is now ";RIGHT$(TIME$,8)
  340 PRINT'"The "meat$;" is due out of the oven at ";S;":";NFM;" to the nearest minute."
  350 ENDPROC